collection of standard snippets from mksh/dot.mkshrc
authorThorsten Glaser <tg@mirbsd.org>
Wed, 9 Mar 2011 13:08:52 +0000 (14:08 +0100)
committerThorsten Glaser <tg@mirbsd.org>
Wed, 9 Mar 2011 13:08:52 +0000 (14:08 +0100)
mksh/base64 [new file with mode: 0644]
mksh/hash-cdb [new file with mode: 0644]
mksh/hash-jenkins [new file with mode: 0644]
mksh/more [new file with mode: 0644]
mksh/pushd-popd-dirs [new file with mode: 0644]
mksh/strip-comments [new file with mode: 0644]

diff --git a/mksh/base64 b/mksh/base64
new file mode 100644 (file)
index 0000000..18b9c80
--- /dev/null
@@ -0,0 +1,89 @@
+# $MirOS: src/bin/mksh/dot.mkshrc,v 1.59 2011/02/09 19:32:35 tg Exp $
+#-
+# Copyright (c) 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2010, 2011
+#      Thorsten Glaser <tg@mirbsd.org>
+#
+# Provided that these terms and disclaimer and all copyright notices
+# are retained or reproduced in an accompanying document, permission
+# is granted to deal in this work without restriction, including un-
+# limited rights to use, publicly perform, distribute, sell, modify,
+# merge, give away, or sublicence.
+#
+# This work is provided "AS IS" and WITHOUT WARRANTY of any kind, to
+# the utmost extent permitted by applicable law, neither express nor
+# implied; without malicious intent or gross negligence. In no event
+# may a licensor, author or contributor be held liable for indirect,
+# direct, other damage, loss, or other issues arising in any way out
+# of dealing in the work, even if advised of the possibility of such
+# damage or existence of a defect, except proven that it results out
+# of said person's immediate fault when using the work as intended.
+
+# base64 encoder (not NUL safe) and decoder (NUL safe), RFC compliant
+function Lb64decode {
+       [[ -o utf8-mode ]]; typeset u=$?
+       set +U
+       typeset c s="$*" t=
+       [[ -n $s ]] || { s=$(cat;print x); s=${s%x}; }
+       typeset -i i=0 n=${#s} p=0 v x
+       typeset -i16 o
+
+       while (( i < n )); do
+               c=${s:(i++):1}
+               case $c {
+               (=)     break ;;
+               ([A-Z]) (( v = 1#$c - 65 )) ;;
+               ([a-z]) (( v = 1#$c - 71 )) ;;
+               ([0-9]) (( v = 1#$c + 4 )) ;;
+               (+)     v=62 ;;
+               (/)     v=63 ;;
+               (*)     continue ;;
+               }
+               (( x = (x << 6) | v ))
+               case $((p++)) {
+               (0)     continue ;;
+               (1)     (( o = (x >> 4) & 255 )) ;;
+               (2)     (( o = (x >> 2) & 255 )) ;;
+               (3)     (( o = x & 255 ))
+                       p=0
+                       ;;
+               }
+               t=$t\\x${o#16#}
+       done
+       print -n $t
+       (( u )) || set -U
+}
+
+set -A Lb64encode_code -- A B C D E F G H I J K L M N O P Q R S T U V W X Y Z \
+    a b c d e f g h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9 + /
+function Lb64encode {
+       [[ -o utf8-mode ]]; typeset u=$?
+       set +U
+       typeset c s="$*" t
+       [[ -n $s ]] || { s=$(cat;print x); s=${s%x}; }
+       typeset -i i=0 n=${#s} j v
+
+       while (( i < n )); do
+               c=${s:(i++):1}
+               (( v = 1#$c << 16 ))
+               c=${s:(i++):1}
+               (( j = ${#c} ? 1#$c : 0 ))
+               (( v |= j << 8 ))
+               c=${s:(i++):1}
+               (( j = ${#c} ? 1#$c : 0 ))
+               (( v |= j ))
+               t=$t${Lb64encode_code[v >> 18]}${Lb64encode_code[v >> 12 & 63]}
+               c=${Lb64encode_code[v >> 6 & 63]}
+               if (( i <= n )); then
+                       t=$t$c${Lb64encode_code[v & 63]}
+               elif (( i == n + 1 )); then
+                       t=$t$c=
+               else
+                       t=$t==
+               fi
+               if (( ${#t} == 76 || i >= n )); then
+                       print $t
+                       t=
+               fi
+       done
+       (( u )) || set -U
+}
diff --git a/mksh/hash-cdb b/mksh/hash-cdb
new file mode 100644 (file)
index 0000000..0f171d9
--- /dev/null
@@ -0,0 +1,40 @@
+# $MirOS: src/bin/mksh/dot.mkshrc,v 1.59 2011/02/09 19:32:35 tg Exp $
+#-
+# Copyright (c) 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2010, 2011
+#      Thorsten Glaser <tg@mirbsd.org>
+#
+# Provided that these terms and disclaimer and all copyright notices
+# are retained or reproduced in an accompanying document, permission
+# is granted to deal in this work without restriction, including un-
+# limited rights to use, publicly perform, distribute, sell, modify,
+# merge, give away, or sublicence.
+#
+# This work is provided "AS IS" and WITHOUT WARRANTY of any kind, to
+# the utmost extent permitted by applicable law, neither express nor
+# implied; without malicious intent or gross negligence. In no event
+# may a licensor, author or contributor be held liable for indirect,
+# direct, other damage, loss, or other issues arising in any way out
+# of dealing in the work, even if advised of the possibility of such
+# damage or existence of a defect, except proven that it results out
+# of said person's immediate fault when using the work as intended.
+
+# DJB cdb hash (not via stdio, for speed)
+typeset -Z11 -Uui16 Lcdbhash_result
+function Lcdbhash_add {
+       [[ -o utf8-mode ]]; typeset u=$?
+       set +U
+       typeset s="$*"
+       [[ -n $s ]] || { s=$(cat;print x); s=${s%x}; }
+       typeset -i i=0 n=${#s}
+
+       while (( i < n )); do
+               ((# Lcdbhash_result = (Lcdbhash_result * 33) ^ 1#${s:(i++):1} ))
+       done
+
+       (( u )) || set -U
+}
+function Lcdbhash {
+       Lcdbhash_result=5381
+       Lcdbhash_add "$@"
+       print ${Lcdbhash_result#16#}
+}
diff --git a/mksh/hash-jenkins b/mksh/hash-jenkins
new file mode 100644 (file)
index 0000000..10f9150
--- /dev/null
@@ -0,0 +1,52 @@
+# $MirOS: src/bin/mksh/dot.mkshrc,v 1.59 2011/02/09 19:32:35 tg Exp $
+#-
+# Copyright (c) 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2010, 2011
+#      Thorsten Glaser <tg@mirbsd.org>
+#
+# Provided that these terms and disclaimer and all copyright notices
+# are retained or reproduced in an accompanying document, permission
+# is granted to deal in this work without restriction, including un-
+# limited rights to use, publicly perform, distribute, sell, modify,
+# merge, give away, or sublicence.
+#
+# This work is provided "AS IS" and WITHOUT WARRANTY of any kind, to
+# the utmost extent permitted by applicable law, neither express nor
+# implied; without malicious intent or gross negligence. In no event
+# may a licensor, author or contributor be held liable for indirect,
+# direct, other damage, loss, or other issues arising in any way out
+# of dealing in the work, even if advised of the possibility of such
+# damage or existence of a defect, except proven that it results out
+# of said person's immediate fault when using the work as intended.
+
+# Jenkins one-at-a-time hash (not via stdio, for speed)
+typeset -Z11 -Uui16 Loaathash_result
+function Loaathash_add {
+       [[ -o utf8-mode ]]; typeset u=$?
+       set +U
+       typeset s="$*"
+       [[ -n $s ]] || { s=$(cat;print x); s=${s%x}; }
+       typeset -i i=0 n=${#s}
+
+       while (( i < n )); do
+               ((# Loaathash_result = (Loaathash_result + 1#${s:(i++):1}) *
+                   1025 ))
+               ((# Loaathash_result ^= Loaathash_result >> 6 ))
+       done
+
+       (( u )) || set -U
+}
+function Loaathash_do {
+       Loaathash_add "$@"
+       ((# Loaathash_result += Loaathash_result << 3 ))
+       ((# Loaathash_result = (Loaathash_result ^
+           (Loaathash_result >> 11)) * 32769 ))
+       print ${Loaathash_result#16#}
+}
+function Loaathash {
+       Loaathash_result=0
+       Loaathash_do "$@"
+}
+function Loaathash1 {
+       Loaathash_result=0x100
+       Loaathash_do "$@"
+}
diff --git a/mksh/more b/mksh/more
new file mode 100644 (file)
index 0000000..d2c1b6b
--- /dev/null
+++ b/mksh/more
@@ -0,0 +1,37 @@
+# $MirOS: src/bin/mksh/dot.mkshrc,v 1.59 2011/02/09 19:32:35 tg Exp $
+#-
+# Copyright (c) 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2010, 2011
+#      Thorsten Glaser <tg@mirbsd.org>
+#
+# Provided that these terms and disclaimer and all copyright notices
+# are retained or reproduced in an accompanying document, permission
+# is granted to deal in this work without restriction, including un-
+# limited rights to use, publicly perform, distribute, sell, modify,
+# merge, give away, or sublicence.
+#
+# This work is provided "AS IS" and WITHOUT WARRANTY of any kind, to
+# the utmost extent permitted by applicable law, neither express nor
+# implied; without malicious intent or gross negligence. In no event
+# may a licensor, author or contributor be held liable for indirect,
+# direct, other damage, loss, or other issues arising in any way out
+# of dealing in the work, even if advised of the possibility of such
+# damage or existence of a defect, except proven that it results out
+# of said person's immediate fault when using the work as intended.
+
+# pager (not control character safe)
+function more {
+       typeset dummy line llen curlin=0
+
+       cat "$@" | while IFS= read -r line; do
+               llen=${%line}
+               (( llen == -1 )) && llen=${#line}
+               (( llen = llen ? (llen + COLUMNS - 1) / COLUMNS : 1 ))
+               if (( (curlin += llen) >= LINES )); then
+                       print -n -- '\033[7m--more--\033[0m'
+                       read -u1 dummy
+                       [[ $dummy = [Qq]* ]] && return 0
+                       curlin=$llen
+               fi
+               print -r -- "$line"
+       done
+}
diff --git a/mksh/pushd-popd-dirs b/mksh/pushd-popd-dirs
new file mode 100644 (file)
index 0000000..1792458
--- /dev/null
@@ -0,0 +1,175 @@
+# $MirOS: src/bin/mksh/dot.mkshrc,v 1.59 2011/02/09 19:32:35 tg Exp $
+#-
+# Copyright (c) 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2010, 2011
+#      Thorsten Glaser <tg@mirbsd.org>
+#
+# Provided that these terms and disclaimer and all copyright notices
+# are retained or reproduced in an accompanying document, permission
+# is granted to deal in this work without restriction, including un-
+# limited rights to use, publicly perform, distribute, sell, modify,
+# merge, give away, or sublicence.
+#
+# This work is provided "AS IS" and WITHOUT WARRANTY of any kind, to
+# the utmost extent permitted by applicable law, neither express nor
+# implied; without malicious intent or gross negligence. In no event
+# may a licensor, author or contributor be held liable for indirect,
+# direct, other damage, loss, or other issues arising in any way out
+# of dealing in the work, even if advised of the possibility of such
+# damage or existence of a defect, except proven that it results out
+# of said person's immediate fault when using the work as intended.
+
+# Berkeley C shell compatible dirs, popd, and pushd functions
+# Z shell compatible chpwd() hook, used to update DIRSTACK[0]
+DIRSTACKBASE=$(realpath ~/. 2>&- || print -nr -- "$HOME")
+set -A DIRSTACK
+function chpwd {
+       DIRSTACK[0]=$(realpath . 2>&- || print -r -- "$PWD")
+       [[ $DIRSTACKBASE = ?(*/) ]] || \
+           DIRSTACK[0]=${DIRSTACK[0]/#$DIRSTACKBASE/~}
+       :
+}
+chpwd .
+function cd {
+       builtin cd "$@"
+       chpwd "$@"
+}
+function cd_csh {
+       typeset d t=${1/#~/$DIRSTACKBASE}
+
+       if ! d=$(builtin cd "$t" 2>&1); then
+               print -u2 "${1}: ${d##*$t - }."
+               return 1
+       fi
+       cd "$t"
+}
+function dirs {
+       typeset d dwidth
+       typeset -i isnoglob=0 fl=0 fv=0 fn=0 cpos=0
+
+       [[ $(set +o) == *@(-o noglob)@(| *) ]] && isnoglob=1
+       set -o noglob
+       while getopts ":lvn" d; do
+               case $d {
+               (l)     fl=1 ;;
+               (v)     fv=1 ;;
+               (n)     fn=1 ;;
+               (*)     print -u2 'Usage: dirs [-lvn].'
+                       return 1 ;;
+               }
+       done
+       shift $((OPTIND - 1))
+       if (( $# > 0 )); then
+               print -u2 'Usage: dirs [-lvn].'
+               return 1
+       fi
+       if (( fv )); then
+               fv=0
+               while (( fv < ${#DIRSTACK[*]} )); do
+                       d=${DIRSTACK[fv]}
+                       (( fl )) && d=${d/#~/$DIRSTACKBASE}
+                       print -r -- "$fv        $d"
+                       let fv++
+               done
+       else
+               fv=0
+               while (( fv < ${#DIRSTACK[*]} )); do
+                       d=${DIRSTACK[fv]}
+                       (( fl )) && d=${d/#~/$DIRSTACKBASE}
+                       (( dwidth = (${%d} > 0 ? ${%d} : ${#d}) ))
+                       if (( fn && (cpos += dwidth + 1) >= 79 && \
+                           dwidth < 80 )); then
+                               print
+                               (( cpos = dwidth + 1 ))
+                       fi
+                       print -nr -- "$d "
+                       let fv++
+               done
+               print
+       fi
+       (( isnoglob )) || set +o noglob
+       return 0
+}
+function popd {
+       typeset d fa
+       typeset -i isnoglob=0 n=1
+
+       [[ $(set +o) == *@(-o noglob)@(| *) ]] && isnoglob=1
+       set -o noglob
+       while getopts ":0123456789lvn" d; do
+               case $d {
+               (l|v|n) fa="$fa -$d" ;;
+               (+*)    n=2
+                       break ;;
+               (*)     print -u2 'Usage: popd [-lvn] [+<n>].'
+                       return 1 ;;
+               }
+       done
+       shift $((OPTIND - n))
+       n=0
+       if (( $# > 1 )); then
+               print -u2 popd: Too many arguments.
+               return 1
+       elif [[ $1 = ++([0-9]) && $1 != +0 ]]; then
+               if (( (n = ${1#+}) >= ${#DIRSTACK[*]} )); then
+                       print -u2 popd: Directory stack not that deep.
+                       return 1
+               fi
+       elif [[ -n $1 ]]; then
+               print -u2 popd: Bad directory.
+               return 1
+       fi
+       if (( ${#DIRSTACK[*]} < 2 )); then
+               print -u2 popd: Directory stack empty.
+               return 1
+       fi
+       unset DIRSTACK[n]
+       set -A DIRSTACK -- "${DIRSTACK[@]}"
+       cd_csh "${DIRSTACK[0]}" || return 1
+       (( isnoglob )) || set +o noglob
+       dirs $fa
+}
+function pushd {
+       typeset d fa
+       typeset -i isnoglob=0 n=1
+
+       [[ $(set +o) == *@(-o noglob)@(| *) ]] && isnoglob=1
+       set -o noglob
+       while getopts ":0123456789lvn" d; do
+               case $d {
+               (l|v|n) fa="$fa -$d" ;;
+               (+*)    n=2
+                       break ;;
+               (*)     print -u2 'Usage: pushd [-lvn] [<dir>|+<n>].'
+                       return 1 ;;
+               }
+       done
+       shift $((OPTIND - n))
+       if (( $# == 0 )); then
+               if (( ${#DIRSTACK[*]} < 2 )); then
+                       print -u2 pushd: No other directory.
+                       return 1
+               fi
+               d=${DIRSTACK[1]}
+               DIRSTACK[1]=${DIRSTACK[0]}
+               cd_csh "$d" || return 1
+       elif (( $# > 1 )); then
+               print -u2 pushd: Too many arguments.
+               return 1
+       elif [[ $1 = ++([0-9]) && $1 != +0 ]]; then
+               if (( (n = ${1#+}) >= ${#DIRSTACK[*]} )); then
+                       print -u2 pushd: Directory stack not that deep.
+                       return 1
+               fi
+               while (( n-- )); do
+                       d=${DIRSTACK[0]}
+                       unset DIRSTACK[0]
+                       set -A DIRSTACK -- "${DIRSTACK[@]}" "$d"
+               done
+               cd_csh "${DIRSTACK[0]}" || return 1
+       else
+               set -A DIRSTACK -- placeholder "${DIRSTACK[@]}"
+               cd_csh "$1" || return 1
+       fi
+       (( isnoglob )) || set +o noglob
+       dirs $fa
+}
diff --git a/mksh/strip-comments b/mksh/strip-comments
new file mode 100644 (file)
index 0000000..dd22edf
--- /dev/null
@@ -0,0 +1,28 @@
+# $MirOS: src/bin/mksh/dot.mkshrc,v 1.59 2011/02/09 19:32:35 tg Exp $
+#-
+# Copyright (c) 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2010, 2011
+#      Thorsten Glaser <tg@mirbsd.org>
+#
+# Provided that these terms and disclaimer and all copyright notices
+# are retained or reproduced in an accompanying document, permission
+# is granted to deal in this work without restriction, including un-
+# limited rights to use, publicly perform, distribute, sell, modify,
+# merge, give away, or sublicence.
+#
+# This work is provided "AS IS" and WITHOUT WARRANTY of any kind, to
+# the utmost extent permitted by applicable law, neither express nor
+# implied; without malicious intent or gross negligence. In no event
+# may a licensor, author or contributor be held liable for indirect,
+# direct, other damage, loss, or other issues arising in any way out
+# of dealing in the work, even if advised of the possibility of such
+# damage or existence of a defect, except proven that it results out
+# of said person's immediate fault when using the work as intended.
+
+# strip comments (and leading/trailing whitespace if IFS is set) from
+# any file(s) given as argument, or stdin if none, and spew to stdout
+function Lstripcom {
+       cat "$@" | { set -o noglob; while read _line; do
+               _line=${_line%%#*}
+               [[ -n $_line ]] && print -r -- $_line
+       done; }
+}