add usage example
[shellsnippets/shellsnippets.git] / mksh / gcletres
1 #!/bin/mksh
2 #-
3 # Copyright © 2013, 2014
4 #       Thorsten Glaser <t.glaser@tarent.de>
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 # Display all letters (by their value) and digits in the input.
22
23 set -U
24 set -A spec
25 spec[1#ä]=6
26 spec[1#ö]=20
27 spec[1#ü]=26
28 spec[1#ß]=38
29 spec[1#Ä]=6
30 spec[1#Ö]=20
31 spec[1#Ü]=26
32 spec[1#ẞ]=38
33
34 res=0
35 read -aN -1
36 n=${#REPLY[*]} i=-1
37 typeset -i1 ch
38 while (( ++i < n )); do
39         (( ch = (c = REPLY[i]) ))
40         if [[ -n ${spec[c]} ]]; then
41                 (( res = spec[c] ))
42                 print "$((i + 1))       ${ch#1#} $res"
43                 continue
44         fi
45         (( c < 1#0 )) && continue
46         print -n "$((i + 1))    ${ch#1#} "
47         if (( c <= 1#9 )); then
48                 (( res = c - 1#0 ))
49                 print "$res"
50                 continue
51         fi
52         (( c < 1#A || c > 1#z )) && continue
53         (( c < 1#a )) && (( c += 1#a - 1#A ))
54         (( c < 1#a || c > 1#z )) && continue
55         (( res = c - 1#a + 1 ))
56         print "$res"
57 done