tutf8.sh - scripts - various script and utils
  HTML git clone git://z3bra.org/scripts
   DIR Log
   DIR Files
   DIR Refs
       ---
       tutf8.sh (856B)
       ---
            1 #!/bin/bash
            2 
            3 usage() {
            4 
            5     echo "`basename $0` [min max] (min, max: 0x0000..0xffff)"
            6 
            7 }
            8 
            9 fast_chr() {
           10     local __octal
           11     local __char
           12     printf -v __octal '%03o' $1
           13     printf -v __char \\$__octal
           14     REPLY=$__char
           15 }
           16 
           17 function unichr {
           18     local c=$1  # ordinal of char
           19     local l=0   # byte ctr
           20     local o=63  # ceiling
           21     local p=128 # accum. bits
           22     local s=''  # output string
           23 
           24     (( c < 0x80 )) && { fast_chr "$c"; echo -n "$REPLY"; return; }
           25 
           26     while (( c > o )); do
           27         fast_chr $(( t = 0x80 | c & 0x3f ))
           28         s="$REPLY$s"
           29         (( c >>= 6, l++, p += o+1, o>>=1 ))
           30     done
           31 
           32     fast_chr $(( t = p | c ))
           33     echo -n "$REPLY$s "
           34 }
           35 
           36 min=0xe000
           37 max=0xe1a0
           38 
           39 if test $# -eq 2; then
           40     min=$1
           41     max=$2
           42 elif test "$1" = "-h"; then
           43     usage
           44     exit 1
           45 fi
           46 
           47 ## test harness
           48 for (( i=$min; i<$max; i++ )); do
           49     unichr $i
           50 done
           51 echo