network info (primary I/F) script; with workaround for Debian #798329 and iproute2...
[shellsnippets/shellsnippets.git] / mksh / hash-nzat
1 # $MirOS: src/bin/mksh/dot.mkshrc,v 1.64 2011/07/18 00:35:45 tg Exp $
2 #-
3 # Copyright (c) 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2010, 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 # mksh NUL counting, never zero hash
22 typeset -Z11 -Uui16 Lnzathash_v
23 if true; then
24 # not NUL safe
25 function Lnzathash_add {
26         [[ -o utf8-mode ]]; local u=$?
27         set +U
28         local s="$*"
29         [[ -n $s ]] || { s=$(cat;print x); s=${s%x}; }
30         local -i i=0 n=${#s}
31
32         while (( i < n )); do
33                 ((# Lnzathash_v = (Lnzathash_v + 1#${s:(i++):1} + 1) * 1025 ))
34                 ((# Lnzathash_v ^= Lnzathash_v >> 6 ))
35         done
36
37         (( u )) || set -U
38 }
39 else
40 # NUL safe; needs mksh R40
41 function Lnzathash_add {
42         [[ -o utf8-mode ]]; local u=$?
43         set +U
44         local s
45         if (( $# )); then
46                 read -raN-1 s <<<"$*"
47                 unset s[${#s[*]}-1]
48         else
49                 read -raN-1 s
50         fi
51         local -i i=0 n=${#s[*]}
52
53         while (( i < n )); do
54                 ((# Lnzathash_v = (Lnzathash_v + s[i++] + 1) * 1025 ))
55                 ((# Lnzathash_v ^= Lnzathash_v >> 6 ))
56         done
57
58         (( u )) || set -U
59 }
60 fi
61 function Lnzaathash_end {
62         ((# Lnzathash_v *= 1025 ))
63         ((# Lnzathash_v ^= Lnzathash_v >> 6 ))
64         ((# Lnzathash_v += Lnzathash_v << 3 ))
65         ((# Lnzathash_v = (Lnzathash_v ^
66             (Lnzathash_v >> 11)) * 32769 ))
67         print ${Lnzathash_v#16#}
68 }
69 function Lnzaathash {
70         Lnzathash_v=0
71         Lnzathash_add "$@"
72         Lnzaathash_end
73 }
74 function Lnzathash {
75         Lnzathash_v=0
76         Lnzathash_add "$@"
77         if (( Lnzathash_v )); then
78                 Lnzaathash_end
79         else
80                 Lnzathash_v=1
81                 print ${Lnzathash_v#16#}
82         fi
83 }