10f91506f20d038d58dbfb7fe9d8cd162015f64a
[shellsnippets/shellsnippets.git] / mksh / hash-jenkins
1 # $MirOS: src/bin/mksh/dot.mkshrc,v 1.59 2011/02/09 19:32:35 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 # Jenkins one-at-a-time hash (not via stdio, for speed)
22 typeset -Z11 -Uui16 Loaathash_result
23 function Loaathash_add {
24         [[ -o utf8-mode ]]; typeset u=$?
25         set +U
26         typeset s="$*"
27         [[ -n $s ]] || { s=$(cat;print x); s=${s%x}; }
28         typeset -i i=0 n=${#s}
29
30         while (( i < n )); do
31                 ((# Loaathash_result = (Loaathash_result + 1#${s:(i++):1}) *
32                     1025 ))
33                 ((# Loaathash_result ^= Loaathash_result >> 6 ))
34         done
35
36         (( u )) || set -U
37 }
38 function Loaathash_do {
39         Loaathash_add "$@"
40         ((# Loaathash_result += Loaathash_result << 3 ))
41         ((# Loaathash_result = (Loaathash_result ^
42             (Loaathash_result >> 11)) * 32769 ))
43         print ${Loaathash_result#16#}
44 }
45 function Loaathash {
46         Loaathash_result=0
47         Loaathash_do "$@"
48 }
49 function Loaathash1 {
50         Loaathash_result=0x100
51         Loaathash_do "$@"
52 }