mksh/hexudump

   1 # $MirOS: src/bin/mksh/check.t,v 1.465 2011/06/09 21:53:12 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, NUL byte and binary safe, Unicode (UCS-2, OPTU-16) output
  22
  23 # integer-base-one-3Wr
  24 typeset -Uui16 -Z11 pos=0
  25 typeset -Uui16 -Z7 hv=2147483647
  26 dasc=
  27 if read -arN -1 line; then
  28         typeset -i1 line
  29         i=0
  30         while (( i < ${#line[*]} )); do
  31                 hv=${line[i++]}
  32                 if (( (hv < 32) || \
  33                     ((hv > 126) && (hv < 160)) )); then
  34                         dch=.
  35                 elif (( (hv & 0xFF80) == 0xEF80 )); then
  36                         dch=�
  37                 else
  38                         dch=${line[i-1]#1#}
  39                 fi
  40                 if (( (pos & 7) == 7 )); then
  41                         dasc=$dasc$dch
  42                         dch=
  43                 elif (( (pos & 7) == 0 )); then
  44                         (( pos )) && print "$dasc|"
  45                         print -n "${pos#16#}  "
  46                         dasc=' |'
  47                 fi
  48                 print -n "${hv#16#} "
  49                 (( (pos++ & 7) == 3 )) && \
  50                     print -n -- '- '
  51                 dasc=$dasc$dch
  52         done
  53 fi
  54 while (( pos & 7 )); do
  55         print -n '     '
  56         (( (pos++ & 7) == 3 )) && print -n -- '- '
  57 done
  58 (( hv == 2147483647 )) || print "$dasc|"