15255e0bf7865c18be0c4a41314292f0900d23e4
[shellsnippets/shellsnippets.git] / mksh / hexdump
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
22 # needs input terminated with a trailing newline, as per POSIX files
23
24 typeset -Uui16 -Z11 pos=0
25 typeset -Uui16 -Z5 hv=2147483647
26 dasc=
27 while read -ar line; do
28         typeset -i1 line
29         line[${#line[*]}]=10
30         i=0
31         while (( i < ${#line[*]} )); do
32                 hv=${line[i++]}
33                 if (( (pos & 15) == 0 )); then
34                         (( pos )) && print "$dasc|"
35                         print -n "${pos#16#}  "
36                         dasc=' |'
37                 fi
38                 print -n "${hv#16#} "
39                 if (( (hv < 32) || (hv > 126) )); then
40                         dasc=$dasc.
41                 else
42                         dasc=$dasc${line[i-1]#1#}
43                 fi
44                 (( (pos++ & 15) == 7 )) && print -n -- '- '
45         done
46 done
47 while (( pos & 15 )); do
48         print -n '   '
49         (( (pos++ & 15) == 7 )) && print -n -- '- '
50 done
51 (( hv == 2147483647 )) || print "$dasc|"