fd0ddd5902
global variable ipv print’ing the result for reparse. conveniently, it’s already typeset just right (unsigned hex integer, zero padded)
308 lines
7.5 KiB
Plaintext
308 lines
7.5 KiB
Plaintext
# $MirOS: src/bin/mksh/dot.mkshrc,v 1.45 2009/06/22 17:38:39 tg Rel $
|
||
#-
|
||
# Copyright (c) 2002, 2003, 2004, 2006, 2007, 2008, 2009
|
||
# 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.
|
||
#-
|
||
# ~/.mkshrc: mksh initialisation file for interactive shells
|
||
|
||
: ${EDITOR:=/bin/ed} ${TERM:=vt100} ${HOSTNAME:=$(ulimit -c 0;hostname -s 2>&-)}
|
||
[[ $HOSTNAME = @(localhost|*([ ])) ]] && HOSTNAME=$(ulimit -c 0;hostname 2>&-)
|
||
: ${HOSTNAME:=nil}; if (( USER_ID )); then PS1='$'; else PS1='#'; fi
|
||
function precmd {
|
||
typeset e=$?
|
||
|
||
(( e )) && print -n "$e|"
|
||
}
|
||
PS1='
|
||
$(precmd)${USER:=$(ulimit -c 0;id -un 2>&-||print \?)}@${HOSTNAME%%.*}:$(
|
||
typeset d=${PWD:-?} n p=~; [[ $p = ?(*/) ]] || d=${d/#$p/~}
|
||
(( ${#d} > (n = (COLUMNS/3 < 7 ? 7 : COLUMNS/3)) )) && {
|
||
d=${d:(-n)}; p=...; } || p=; print -nr -- "$p$d") '"$PS1 "
|
||
export EDITOR HOSTNAME LESSHISTFILE=- MKSH=$(whence -p mksh) PS1 TERM USER
|
||
alias ls=ls
|
||
unalias ls
|
||
alias l='ls -F'
|
||
alias la='l -a'
|
||
alias ll='l -l'
|
||
alias lo='l -alo'
|
||
alias which='whence -p'
|
||
whence -p rot13 >&- || alias rot13='tr \
|
||
abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ \
|
||
nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM'
|
||
whence -p hd >&- || function hd {
|
||
hexdump -e '"%08.8_ax " 8/1 "%02X " " - " 8/1 "%02X "' \
|
||
-e '" |" "%_p"' -e '"|\n"' "$@"
|
||
}
|
||
|
||
# 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
|
||
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}
|
||
if (( fn && (cpos+=${#d}+1) >= 79 && ${#d} < 80 )); then
|
||
print
|
||
(( cpos = ${#d} + 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
|
||
}
|
||
|
||
# base64 encoder (not NUL safe) and decoder (NUL safe), RFC compliant
|
||
function Lb64decode {
|
||
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 = *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 {
|
||
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 = *U* ]] && set -U
|
||
:
|
||
}
|
||
|
||
# DJB cdb hash (not via stdio, for speed)
|
||
typeset -Z11 -Uui16 Lcdbhash_result
|
||
function Lcdbhash_add {
|
||
typeset u=$-
|
||
set +U
|
||
typeset s="$*"
|
||
typeset -i i=0 n=${#s}
|
||
|
||
while (( i < n )); do
|
||
(( Lcdbhash_result = ((Lcdbhash_result << 5) + \
|
||
Lcdbhash_result) ^ 1#${s:(i++):1} ))
|
||
done
|
||
|
||
[[ $u = *U* ]] && set -U
|
||
:
|
||
}
|
||
function Lcdbhash {
|
||
Lcdbhash_result=5381
|
||
Lcdbhash_add "$@"
|
||
}
|
||
|
||
# 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; }
|
||
}
|
||
|
||
: place customsations above this line
|