src/dot.mkshrc

   1 # $Id$
   2 # $MirOS: src/bin/mksh/dot.mkshrc,v 1.88 2014/01/11 18:09:39 tg Exp $
   3 #-
   4 # Copyright (c) 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2010,
   5 #               2011, 2012, 2013, 2014
   6 #       Thorsten Glaser <tg@mirbsd.org>
   7 #
   8 # Provided that these terms and disclaimer and all copyright notices
   9 # are retained or reproduced in an accompanying document, permission
  10 # is granted to deal in this work without restriction, including un-
  11 # limited rights to use, publicly perform, distribute, sell, modify,
  12 # merge, give away, or sublicence.
  13 #
  14 # This work is provided "AS IS" and WITHOUT WARRANTY of any kind, to
  15 # the utmost extent permitted by applicable law, neither express nor
  16 # implied; without malicious intent or gross negligence. In no event
  17 # may a licensor, author or contributor be held liable for indirect,
  18 # direct, other damage, loss, or other issues arising in any way out
  19 # of dealing in the work, even if advised of the possibility of such
  20 # damage or existence of a defect, except proven that it results out
  21 # of said person's immediate fault when using the work as intended.
  22 #-
  23 # ${ENV:-~/.mkshrc}: mksh initialisation file for interactive shells
  24
  25 # catch non-mksh (including lksh) trying to shell this file
  26 case $KSH_VERSION in
  27 *MIRBSD\ KSH*) ;;
  28 *) return 0 ;;
  29 esac
  30
  31 PS1='#'; (( USER_ID )) && PS1='$'; [[ ${HOSTNAME:=$(ulimit -c 0; hostname -s \
  32     2>/dev/null)} = *([  ]|localhost) ]] && HOSTNAME=$(ulimit -c 0; hostname \
  33     2>/dev/null); : ${EDITOR:=/bin/ed} ${HOSTNAME:=nil} ${TERM:=vt100}
  34 : ${MKSH:=$(whence -p mksh)}; PS4='[$EPOCHREALTIME] '; PS1=$'\001\r''${|
  35         local e=$?
  36
  37         (( e )) && REPLY+="$e|"
  38         REPLY+=${USER:=$(ulimit -c 0; id -un 2>/dev/null || echo \?)}
  39         REPLY+=@${HOSTNAME%%.*}:
  40
  41         local d=${PWD:-?} p=~; [[ $p = ?(*/) ]] || d=${d/#$p/~}
  42         local m=${%d} n p=...; (( m > 0 )) || m=${#d}
  43         (( m > (n = (COLUMNS/3 < 7 ? 7 : COLUMNS/3)) )) && d=${d:(-n)} || p=
  44         REPLY+=$p$d
  45
  46         return $e
  47 } '"$PS1 "; export EDITOR HOSTNAME MKSH TERM USER
  48 alias ls=ls
  49 unalias ls
  50 alias l='ls -F'
  51 alias la='l -a'
  52 alias ll='l -l'
  53 alias lo='l -alo'
  54 alias doch='sudo mksh -c "$(fc -ln -1)"'
  55 whence -p rot13 >/dev/null || alias rot13='tr \
  56     abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ \
  57     nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM'
  58 if whence -p hd >/dev/null; then :; elif whence -p hexdump >/dev/null; then
  59         function hd {
  60                 hexdump -e '"%08.8_ax  " 8/1 "%02X " " - " 8/1 "%02X "' \
  61                     -e '"  |" "%_p"' -e '"|\n"' "$@"
  62         }
  63 else
  64         function hd {
  65                 local -Uui16 -Z11 pos=0
  66                 local -Uui16 -Z5 hv=2147483647
  67                 local dasc line i
  68
  69                 cat "$@" | { set +U; if read -arN -1 line; then
  70                         typeset -i1 line
  71                         i=0
  72                         while (( i < ${#line[*]} )); do
  73                                 hv=${line[i++]}
  74                                 if (( (pos & 15) == 0 )); then
  75                                         (( pos )) && print -r -- "$dasc|"
  76                                         print -n "${pos#16#}  "
  77                                         dasc=' |'
  78                                 fi
  79                                 print -n "${hv#16#} "
  80                                 if (( (hv < 32) || (hv > 126) )); then
  81                                         dasc+=.
  82                                 else
  83                                         dasc+=${line[i-1]#1#}
  84                                 fi
  85                                 (( (pos++ & 15) == 7 )) && print -n -- '- '
  86                         done
  87                         while (( pos & 15 )); do
  88                                 print -n '   '
  89                                 (( (pos++ & 15) == 7 )) && print -n -- '- '
  90                         done
  91                         (( hv == 2147483647 )) || print -r -- "$dasc|"
  92                 fi; }
  93         }
  94 fi
  95
  96 # Berkeley C shell compatible dirs, popd, and pushd functions
  97 # Z shell compatible chpwd() hook, used to update DIRSTACK[0]
  98 DIRSTACKBASE=$(realpath ~/. 2>/dev/null || print -nr -- "${HOME:-/}")
  99 set -A DIRSTACK
 100 function chpwd {
 101         DIRSTACK[0]=$(realpath . 2>/dev/null || print -r -- "$PWD")
 102         [[ $DIRSTACKBASE = ?(*/) ]] || \
 103             DIRSTACK[0]=${DIRSTACK[0]/#$DIRSTACKBASE/~}
 104         :
 105 }
 106 chpwd .
 107 function cd {
 108         builtin cd "$@" || return $?
 109         chpwd "$@"
 110 }
 111 function cd_csh {
 112         local d t=${1/#~/$DIRSTACKBASE}
 113
 114         if ! d=$(builtin cd "$t" 2>&1); then
 115                 print -u2 "${1}: ${d##*cd: $t: }."
 116                 return 1
 117         fi
 118         cd "$t"
 119 }
 120 function dirs {
 121         local d dwidth
 122         local -i fl=0 fv=0 fn=0 cpos=0
 123
 124         while getopts ":lvn" d; do
 125                 case $d {
 126                 (l)     fl=1 ;;
 127                 (v)     fv=1 ;;
 128                 (n)     fn=1 ;;
 129                 (*)     print -u2 'Usage: dirs [-lvn].'
 130                         return 1 ;;
 131                 }
 132         done
 133         shift $((OPTIND - 1))
 134         if (( $# > 0 )); then
 135                 print -u2 'Usage: dirs [-lvn].'
 136                 return 1
 137         fi
 138         if (( fv )); then
 139                 fv=0
 140                 while (( fv < ${#DIRSTACK[*]} )); do
 141                         d=${DIRSTACK[fv]}
 142                         (( fl )) && d=${d/#~/$DIRSTACKBASE}
 143                         print -r -- "$fv        $d"
 144                         let fv++
 145                 done
 146         else
 147                 fv=0
 148                 while (( fv < ${#DIRSTACK[*]} )); do
 149                         d=${DIRSTACK[fv]}
 150                         (( fl )) && d=${d/#~/$DIRSTACKBASE}
 151                         (( dwidth = (${%d} > 0 ? ${%d} : ${#d}) ))
 152                         if (( fn && (cpos += dwidth + 1) >= 79 && \
 153                             dwidth < 80 )); then
 154                                 print
 155                                 (( cpos = dwidth + 1 ))
 156                         fi
 157                         print -nr -- "$d "
 158                         let fv++
 159                 done
 160                 print
 161         fi
 162         return 0
 163 }
 164 function popd {
 165         local d fa
 166         local -i n=1
 167
 168         while getopts ":0123456789lvn" d; do
 169                 case $d {
 170                 (l|v|n) fa+=" -$d" ;;
 171                 (+*)    n=2
 172                         break ;;
 173                 (*)     print -u2 'Usage: popd [-lvn] [+<n>].'
 174                         return 1 ;;
 175                 }
 176         done
 177         shift $((OPTIND - n))
 178         n=0
 179         if (( $# > 1 )); then
 180                 print -u2 popd: Too many arguments.
 181                 return 1
 182         elif [[ $1 = ++([0-9]) && $1 != +0 ]]; then
 183                 if (( (n = ${1#+}) >= ${#DIRSTACK[*]} )); then
 184                         print -u2 popd: Directory stack not that deep.
 185                         return 1
 186                 fi
 187         elif [[ -n $1 ]]; then
 188                 print -u2 popd: Bad directory.
 189                 return 1
 190         fi
 191         if (( ${#DIRSTACK[*]} < 2 )); then
 192                 print -u2 popd: Directory stack empty.
 193                 return 1
 194         fi
 195         unset DIRSTACK[n]
 196         set -A DIRSTACK -- "${DIRSTACK[@]}"
 197         cd_csh "${DIRSTACK[0]}" || return 1
 198         dirs $fa
 199 }
 200 function pushd {
 201         local d fa
 202         local -i n=1
 203
 204         while getopts ":0123456789lvn" d; do
 205                 case $d {
 206                 (l|v|n) fa+=" -$d" ;;
 207                 (+*)    n=2
 208                         break ;;
 209                 (*)     print -u2 'Usage: pushd [-lvn] [<dir>|+<n>].'
 210                         return 1 ;;
 211                 }
 212         done
 213         shift $((OPTIND - n))
 214         if (( $# == 0 )); then
 215                 if (( ${#DIRSTACK[*]} < 2 )); then
 216                         print -u2 pushd: No other directory.
 217                         return 1
 218                 fi
 219                 d=${DIRSTACK[1]}
 220                 DIRSTACK[1]=${DIRSTACK[0]}
 221                 cd_csh "$d" || return 1
 222         elif (( $# > 1 )); then
 223                 print -u2 pushd: Too many arguments.
 224                 return 1
 225         elif [[ $1 = ++([0-9]) && $1 != +0 ]]; then
 226                 if (( (n = ${1#+}) >= ${#DIRSTACK[*]} )); then
 227                         print -u2 pushd: Directory stack not that deep.
 228                         return 1
 229                 fi
 230                 while (( n-- )); do
 231                         d=${DIRSTACK[0]}
 232                         unset DIRSTACK[0]
 233                         set -A DIRSTACK -- "${DIRSTACK[@]}" "$d"
 234                 done
 235                 cd_csh "${DIRSTACK[0]}" || return 1
 236         else
 237                 set -A DIRSTACK -- placeholder "${DIRSTACK[@]}"
 238                 cd_csh "$1" || return 1
 239         fi
 240         dirs $fa
 241 }
 242
 243 # pager (not control character safe)
 244 function smores {
 245         local dummy line llen curlin=0
 246
 247         cat "$@" | while IFS= read -r line; do
 248                 llen=${%line}
 249                 (( llen == -1 )) && llen=${#line}
 250                 (( llen = llen ? (llen + COLUMNS - 1) / COLUMNS : 1 ))
 251                 if (( (curlin += llen) >= LINES )); then
 252                         print -n -- '\033[7m--more--\033[0m'
 253                         read -u1 dummy
 254                         [[ $dummy = [Qq]* ]] && return 0
 255                         curlin=$llen
 256                 fi
 257                 print -r -- "$line"
 258         done
 259 }
 260
 261 # base64 encoder and decoder, RFC compliant, NUL safe
 262 function Lb64decode {
 263         [[ -o utf8-mode ]]; local u=$?
 264         set +U
 265         local c s="$*" t=
 266         [[ -n $s ]] || { s=$(cat; print x); s=${s%x}; }
 267         local -i i=0 j=0 n=${#s} p=0 v x
 268         local -i16 o
 269
 270         while (( i < n )); do
 271                 c=${s:(i++):1}
 272                 case $c {
 273                 (=)     break ;;
 274                 ([A-Z]) (( v = 1#$c - 65 )) ;;
 275                 ([a-z]) (( v = 1#$c - 71 )) ;;
 276                 ([0-9]) (( v = 1#$c + 4 )) ;;
 277                 (+)     v=62 ;;
 278                 (/)     v=63 ;;
 279                 (*)     continue ;;
 280                 }
 281                 (( x = (x << 6) | v ))
 282                 case $((p++)) {
 283                 (0)     continue ;;
 284                 (1)     (( o = (x >> 4) & 255 )) ;;
 285                 (2)     (( o = (x >> 2) & 255 )) ;;
 286                 (3)     (( o = x & 255 ))
 287                         p=0
 288                         ;;
 289                 }
 290                 t+=\\x${o#16#}
 291                 (( ++j & 4095 )) && continue
 292                 print -n $t
 293                 t=
 294         done
 295         print -n $t
 296         (( u )) || set -U
 297 }
 298
 299 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 \
 300     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 + /
 301 function Lb64encode {
 302         [[ -o utf8-mode ]]; local u=$?
 303         set +U
 304         local c s t
 305         if (( $# )); then
 306                 read -raN-1 s <<<"$*"
 307                 unset s[${#s[*]}-1]
 308         else
 309                 read -raN-1 s
 310         fi
 311         local -i i=0 n=${#s[*]} j v
 312
 313         while (( i < n )); do
 314                 (( v = s[i++] << 16 ))
 315                 (( j = i < n ? s[i++] : 0 ))
 316                 (( v |= j << 8 ))
 317                 (( j = i < n ? s[i++] : 0 ))
 318                 (( v |= j ))
 319                 t+=${Lb64encode_code[v >> 18]}${Lb64encode_code[v >> 12 & 63]}
 320                 c=${Lb64encode_code[v >> 6 & 63]}
 321                 if (( i <= n )); then
 322                         t+=$c${Lb64encode_code[v & 63]}
 323                 elif (( i == n + 1 )); then
 324                         t+=$c=
 325                 else
 326                         t+===
 327                 fi
 328                 if (( ${#t} == 76 || i >= n )); then
 329                         print $t
 330                         t=
 331                 fi
 332         done
 333         (( u )) || set -U
 334 }
 335
 336 # Better Avalanche for the Jenkins Hash
 337 typeset -Z11 -Uui16 Lbafh_v
 338 function Lbafh_init {
 339         Lbafh_v=0
 340 }
 341 function Lbafh_add {
 342         [[ -o utf8-mode ]]; local u=$?
 343         set +U
 344         local s
 345         if (( $# )); then
 346                 read -raN-1 s <<<"$*"
 347                 unset s[${#s[*]}-1]
 348         else
 349                 read -raN-1 s
 350         fi
 351         local -i i=0 n=${#s[*]}
 352
 353         while (( i < n )); do
 354                 ((# Lbafh_v = (Lbafh_v + s[i++] + 1) * 1025 ))
 355                 ((# Lbafh_v ^= Lbafh_v >> 6 ))
 356         done
 357
 358         (( u )) || set -U
 359 }
 360 function Lbafh_finish {
 361         local -Ui t
 362
 363         ((# t = (((Lbafh_v >> 7) & 0x01010101) * 0x1B) ^ \
 364             ((Lbafh_v << 1) & 0xFEFEFEFE) ))
 365         ((# Lbafh_v = t ^ (t >>> 8) ^ (Lbafh_v >>> 8) ^ \
 366             (Lbafh_v >>> 16) ^ (Lbafh_v >>> 24) ))
 367         :
 368 }
 369
 370 # strip comments (and leading/trailing whitespace if IFS is set) from
 371 # any file(s) given as argument, or stdin if none, and spew to stdout
 372 function Lstripcom {
 373         cat "$@" | { set -o noglob; while read _line; do
 374                 _line=${_line%%#*}
 375                 [[ -n $_line ]] && print -r -- $_line
 376         done; }
 377 }
 378
 379 # give MidnightBSD's laffer1 a bit of csh feeling
 380 function setenv {
 381         eval export "\"$1\""'="$2"'
 382 }
 383
 384 : place customisations below this line
 385
 386 for p in ~/.etc/bin ~/bin; do
 387         [[ -d $p/. ]] || continue
 388         [[ :$PATH: = *:$p:* ]] || PATH=$p:$PATH
 389 done
 390
 391 export SHELL=$MKSH MANWIDTH=80 LESSHISTFILE=-
 392 alias cls='print -n \\033c'
 393
 394 #unset LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_IDENTIFICATION LC_MONETARY \
 395 #    LC_NAME LC_NUMERIC LC_TELEPHONE LC_TIME
 396 #p=en_GB.UTF-8
 397 #set -U
 398 #export LANG=C LC_CTYPE=$p LC_MEASUREMENT=$p LC_MESSAGES=$p LC_PAPER=$p
 399
 400 unset p
 401
 402 : place customisations above this line