8f64956b0dd2095bbce837ecb52300c8d5a89b44
[shellsnippets/shellsnippets.git] / mksh / hexunump
1 # $MirOS: src/bin/mksh/check.t,v 1.464 2011/06/09 21:26:21 tg Exp $
2 #-
3 # Copyright © 2008, 2009, 2011
4 #       Thorsten Glaser <tg@mirbsd.org>
5 #
6 # Provided that these terms and disclaimer and all copyright notices
7 # are retained or reproduced in an accompanying document, permission
8 # is granted to deal in this work without restriction, including un‐
9 # limited rights to use, publicly perform, distribute, sell, modify,
10 # merge, give away, or sublicence.
11 #
12 # This work is provided “AS IS” and WITHOUT WARRANTY of any kind, to
13 # the utmost extent permitted by applicable law, neither express nor
14 # implied; without malicious intent or gross negligence. In no event
15 # may a licensor, author or contributor be held liable for indirect,
16 # direct, other damage, loss, or other issues arising in any way out
17 # of dealing in the work, even if advised of the possibility of such
18 # damage or existence of a defect, except proven that it results out
19 # of said person’s immediate fault when using the work as intended.
20 #-
21 # hexdump, not NUL byte safe, Unicode (UCS-2, OPTU-16) output
22
23 typeset -Uui16 -Z11 pos=0
24 typeset -Uui16 -Z7 hv
25 typeset -i1 wc=0x0A
26 typeset -i lpos
27 dasc=
28 nl=${wc#1#}
29 while IFS= read -r line; do
30         line=$line$nl
31         lpos=0
32         while (( lpos < ${#line} )); do
33                 wc=1#${line:(lpos++):1}
34                 if (( (wc < 32) || \
35                     ((wc > 126) && (wc < 160)) )); then
36                         dch=.
37                 elif (( (wc & 0xFF80) == 0xEF80 )); then
38                         dch=�
39                 else
40                         dch=${wc#1#}
41                 fi
42                 if (( (pos & 7) == 7 )); then
43                         dasc=$dasc$dch
44                         dch=
45                 elif (( (pos & 7) == 0 )); then
46                         (( pos )) && print "$dasc|"
47                         print -n "${pos#16#}  "
48                         dasc=' |'
49                 fi
50                 let hv=wc
51                 print -n "${hv#16#} "
52                 (( (pos++ & 7) == 3 )) && \
53                     print -n -- '- '
54                 dasc=$dasc$dch
55         done
56 done
57 while (( pos & 7 )); do
58         print -n '     '
59         (( (pos++ & 7) == 3 )) && print -n -- '- '
60 done
61 print "$dasc|"