src/dot.mkshrc - fp2-dev/platform/external/mksh - Gitiles

 # $Id$
 # $MirOS: src/bin/mksh/dot.mkshrc,v 1.89.2.3 2015/04/12 22:32:22 tg Exp $
 #-
 # Copyright (c) 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2010,
 #		2011, 2012, 2013, 2014, 2015
 #	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.
 #-
 # ${ENV:-~/.mkshrc}: mksh initialisation file for interactive shells

 # catch non-mksh (including lksh) trying to run this file
 case ${KSH_VERSION:-} in
 *MIRBSD\ KSH*) ;;
 *) return 0 ;;
 esac

 PS1='#'; (( USER_ID )) && PS1='$'; : "${TERM:=vt100}${HOSTNAME:=$(ulimit -c \
     0; hostname 2>/dev/null)}${EDITOR:=/bin/ed}${USER:=$(ulimit -c 0; id -un \
     2>/dev/null || echo \?)}${MKSH:=$(whence -p mksh)}"
 HOSTNAME=${HOSTNAME%%*([	 ]).*}; HOSTNAME=${HOSTNAME##*([	 ])}
 [[ $HOSTNAME = ?(ip6-)localhost?(6) ]] && HOSTNAME=
 : "${HOSTNAME:=nil}${MKSH:=/bin/mksh}"; export EDITOR HOSTNAME MKSH TERM USER
 PS4='[$EPOCHREALTIME] '; PS1=$'\001\r''${|
 	local e=$?

 	(( e )) && REPLY+="$e|"
 	REPLY+=${USER}@${HOSTNAME%%.*}:

 	local d=${PWD:-?} p=~; [[ $p = ?(*/) ]] || d=${d/#$p/~}
 	local m=${%d} n p=...; (( m > 0 )) || m=${#d}
 	(( m > (n = (COLUMNS/3 < 7 ? 7 : COLUMNS/3)) )) && d=${d:(-n)} || p=
 	REPLY+=$p$d

 	return $e
 } '"$PS1 "
 alias ls=ls
 unalias ls
 alias l='ls -F'
 alias la='l -a'
 alias ll='l -l'
 alias lo='l -alo'
 alias doch='sudo mksh -c "$(fc -ln -1)"'
 command -v rot13 >/dev/null || alias rot13='tr \
     abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ \
     nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM'
 if command -v hd >/dev/null; then :; elif command -v hexdump >/dev/null; then
 	function hd {
 		hexdump -e '"%08.8_ax  " 8/1 "%02X " " - " 8/1 "%02X "' \
 		    -e '"  |" "%_p"' -e '"|\n"' "$@"
 	}
 else
 	function hd {
 		local -Uui16 -Z11 pos=0
 		local -Uui16 -Z5 hv=2147483647
 		local dasc line i

 		cat "$@" | { set +U; if read -arN -1 line; then
 			typeset -i1 'line[*]'
 			i=0
 			while (( i < ${#line[*]} )); do
 				hv=${line[i++]}
 				if (( (pos & 15) == 0 )); then
 					(( pos )) && \
 					    print -r -- "$dasc|"
 					print -n "${pos#16#}  "
 					dasc=' |'
 				fi
 				print -n "${hv#16#} "
 				if (( (hv < 32) || (hv > 126) )); then
 					dasc+=.
 				else
 					dasc+=${line[i-1]#1#}
 				fi
 				(( (pos++ & 15) == 7 )) && \
 				    print -n -- '- '
 			done
 			while (( pos & 15 )); do
 				print -n '   '
 				(( (pos++ & 15) == 7 )) && \
 				    print -n -- '- '
 			done
 			(( hv == 2147483647 )) || print -r -- "$dasc|"
 		fi; }
 	}
 fi

 # Berkeley C shell compatible dirs, popd, and pushd functions
 # Z shell compatible chpwd() hook, used to update DIRSTACK[0]
 DIRSTACKBASE=$(realpath ~/. 2>/dev/null || \
     print -nr -- "${HOME:-/}")
 set -A DIRSTACK
 function chpwd {
 	DIRSTACK[0]=$(realpath . 2>/dev/null || \
 	    print -r -- "$PWD")
 	[[ $DIRSTACKBASE = ?(*/) ]] || \
 	    DIRSTACK[0]=${DIRSTACK[0]/#$DIRSTACKBASE/~}
 	:
 }
 chpwd .
 function cd {
 	builtin cd "$@" || return $?
 	chpwd "$@"
 }
 function cd_csh {
 	local d t=${1/#~/$DIRSTACKBASE}

 	if ! d=$(builtin cd "$t" 2>&1); then
 		print -u2 "${1}: ${d##*cd: $t: }."
 		return 1
 	fi
 	cd "$t"
 }
 function dirs {
 	local d dwidth
 	local -i fl=0 fv=0 fn=0 cpos=0

 	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
 	return 0
 }
 function popd {
 	local d fa
 	local -i n=1

 	while getopts ":0123456789lvn" d; do
 		case $d {
 		(l|v|n)	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
 	dirs $fa
 }
 function pushd {
 	local d fa
 	local -i n=1

 	while getopts ":0123456789lvn" d; do
 		case $d {
 		(l|v|n)	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
 	dirs $fa
 }

 # pager (not control character safe)
 function smores {
 	(
 		set +m
 		cat "$@" |&
 		trap "rv=\$?; kill $! >/dev/null 2>&1; exit \$rv" EXIT
 		while IFS= read -pr 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 || exit $?
 				[[ $REPLY = [Qq]* ]] && exit 0
 				curlin=$llen
 			fi
 			print -r -- "$line"
 		done
 	)
 }

 # base64 encoder and decoder, RFC compliant, NUL safe
 function Lb64decode {
 	[[ -o utf8-mode ]]; local u=$? c s="$*" t
 	set +U
 	[[ -n $s ]] || { s=$(cat; print x); s=${s%x}; }
 	local -i i=0 j=0 n=${#s} p=0 v x
 	local -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+=\\x${o#16#}
 		(( ++j & 4095 )) && continue
 		print -n $t
 		t=
 	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 ]]; local u=$? c s t
 	set +U
 	if (( $# )); then
 		read -raN-1 s <<<"$*"
 		unset s[${#s[*]}-1]
 	else
 		read -raN-1 s
 	fi
 	local -i i=0 n=${#s[*]} j v

 	while (( i < n )); do
 		(( v = s[i++] << 16 ))
 		(( j = i < n ? s[i++] : 0 ))
 		(( v |= j << 8 ))
 		(( j = i < n ? s[i++] : 0 ))
 		(( v |= j ))
 		t+=${Lb64encode_code[v >> 18]}${Lb64encode_code[v >> 12 & 63]}
 		c=${Lb64encode_code[v >> 6 & 63]}
 		if (( i <= n )); then
 			t+=$c${Lb64encode_code[v & 63]}
 		elif (( i == n + 1 )); then
 			t+=$c=
 		else
 			t+===
 		fi
 		if (( ${#t} == 76 || i >= n )); then
 			print $t
 			t=
 		fi
 	done
 	(( u )) || set -U
 }

 # Better Avalanche for the Jenkins Hash
 typeset -Z11 -Uui16 Lbafh_v
 function Lbafh_init {
 	Lbafh_v=0
 }
 function Lbafh_add {
 	[[ -o utf8-mode ]]; local u=$? s
 	set +U
 	if (( $# )); then
 		read -raN-1 s <<<"$*"
 		unset s[${#s[*]}-1]
 	else
 		read -raN-1 s
 	fi
 	local -i i=0 n=${#s[*]}

 	while (( i < n )); do
 		((# Lbafh_v = (Lbafh_v + s[i++] + 1) * 1025 ))
 		((# Lbafh_v ^= Lbafh_v >> 6 ))
 	done

 	(( u )) || set -U
 }
 function Lbafh_finish {
 	local -Ui t

 	((# t = (((Lbafh_v >> 7) & 0x01010101) * 0x1B) ^ \
 	    ((Lbafh_v << 1) & 0xFEFEFEFE) ))
 	((# Lbafh_v = t ^ (t >>> 8) ^ (Lbafh_v >>> 8) ^ \
 	    (Lbafh_v >>> 16) ^ (Lbafh_v >>> 24) ))
 	:
 }

 # 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; }
 }

 # give MidnightBSD's laffer1 a bit of csh feeling
 function setenv {
 	eval export "\"$1\""'="$2"'
 }

 : place customisations below this line

 for p in ~/.etc/bin ~/bin; do
 	[[ -d $p/. ]] || continue
 	[[ :$PATH: = *:$p:* ]] || PATH=$p:$PATH
 done

 export SHELL=$MKSH MANWIDTH=80 LESSHISTFILE=-
 alias cls='print -n \\033c'

 #unset LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_IDENTIFICATION LC_MONETARY \
 #    LC_NAME LC_NUMERIC LC_TELEPHONE LC_TIME
 #p=en_GB.UTF-8
 #set -U
 #export LANG=C LC_CTYPE=$p LC_MEASUREMENT=$p LC_MESSAGES=$p LC_PAPER=$p

 unset p

 : place customisations above this line
	# $Id$
	# $MirOS: src/bin/mksh/dot.mkshrc,v 1.89.2.3 2015/04/12 22:32:22 tg Exp $
	#-
	# Copyright (c) 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2010,
	# 2011, 2012, 2013, 2014, 2015
	# 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.
	#-
	# ${ENV:-~/.mkshrc}: mksh initialisation file for interactive shells

	# catch non-mksh (including lksh) trying to run this file
	case ${KSH_VERSION:-} in
	MIRBSD\ KSH) ;;
	*) return 0 ;;
	esac

	PS1='#'; (( USER_ID )) && PS1='$'; : "${TERM:=vt100}${HOSTNAME:=$(ulimit -c \
	0; hostname 2>/dev/null)}${EDITOR:=/bin/ed}${USER:=$(ulimit -c 0; id -un \
	2>/dev/null \|\| echo \?)}${MKSH:=$(whence -p mksh)}"
	HOSTNAME=${HOSTNAME%%([ ]).}; HOSTNAME=${HOSTNAME##*([ ])}
	[[ $HOSTNAME = ?(ip6-)localhost?(6) ]] && HOSTNAME=
	: "${HOSTNAME:=nil}${MKSH:=/bin/mksh}"; export EDITOR HOSTNAME MKSH TERM USER
	PS4='[$EPOCHREALTIME] '; PS1=$'\001\r''${\|
	local e=$?

	(( e )) && REPLY+="$e\|"
	REPLY+=${USER}@${HOSTNAME%%.*}:

	local d=${PWD:-?} p=~; [[ $p = ?(*/) ]] \|\| d=${d/#$p/~}
	local m=${%d} n p=...; (( m > 0 )) \|\| m=${#d}
	(( m > (n = (COLUMNS/3 < 7 ? 7 : COLUMNS/3)) )) && d=${d:(-n)} \|\| p=
	REPLY+=$p$d

	return $e
	} '"$PS1 "
	alias ls=ls
	unalias ls
	alias l='ls -F'
	alias la='l -a'
	alias ll='l -l'
	alias lo='l -alo'
	alias doch='sudo mksh -c "$(fc -ln -1)"'
	command -v rot13 >/dev/null \|\| alias rot13='tr \
	abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ \
	nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM'
	if command -v hd >/dev/null; then :; elif command -v hexdump >/dev/null; then
	function hd {
	hexdump -e '"%08.8_ax " 8/1 "%02X " " - " 8/1 "%02X "' \
	-e '" \|" "%_p"' -e '"\|\n"' "$@"
	}
	else
	function hd {
	local -Uui16 -Z11 pos=0
	local -Uui16 -Z5 hv=2147483647
	local dasc line i

	cat "$@" \| { set +U; if read -arN -1 line; then
	typeset -i1 'line[*]'
	i=0
	while (( i < ${#line[*]} )); do
	hv=${line[i++]}
	if (( (pos & 15) == 0 )); then
	(( pos )) && \
	print -r -- "$dasc\|"
	print -n "${pos#16#} "
	dasc=' \|'
	fi
	print -n "${hv#16#} "
	if (( (hv < 32) \|\| (hv > 126) )); then
	dasc+=.
	else
	dasc+=${line[i-1]#1#}
	fi
	(( (pos++ & 15) == 7 )) && \
	print -n -- '- '
	done
	while (( pos & 15 )); do
	print -n ' '
	(( (pos++ & 15) == 7 )) && \
	print -n -- '- '
	done
	(( hv == 2147483647 )) \|\| print -r -- "$dasc\|"
	fi; }
	}
	fi

	# Berkeley C shell compatible dirs, popd, and pushd functions
	# Z shell compatible chpwd() hook, used to update DIRSTACK[0]
	DIRSTACKBASE=$(realpath ~/. 2>/dev/null \|\| \
	print -nr -- "${HOME:-/}")
	set -A DIRSTACK
	function chpwd {
	DIRSTACK[0]=$(realpath . 2>/dev/null \|\| \
	print -r -- "$PWD")
	[[ $DIRSTACKBASE = ?(*/) ]] \|\| \
	DIRSTACK[0]=${DIRSTACK[0]/#$DIRSTACKBASE/~}
	:
	}
	chpwd .
	function cd {
	builtin cd "$@" \|\| return $?
	chpwd "$@"
	}
	function cd_csh {
	local d t=${1/#~/$DIRSTACKBASE}

	if ! d=$(builtin cd "$t" 2>&1); then
	print -u2 "${1}: ${d##*cd: $t: }."
	return 1
	fi
	cd "$t"
	}
	function dirs {
	local d dwidth
	local -i fl=0 fv=0 fn=0 cpos=0

	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
	return 0
	}
	function popd {
	local d fa
	local -i n=1

	while getopts ":0123456789lvn" d; do
	case $d {
	(l\|v\|n) 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
	dirs $fa
	}
	function pushd {
	local d fa
	local -i n=1

	while getopts ":0123456789lvn" d; do
	case $d {
	(l\|v\|n) 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
	dirs $fa
	}

	# pager (not control character safe)
	function smores {
	(
	set +m
	cat "$@" \|&
	trap "rv=\$?; kill $! >/dev/null 2>&1; exit \$rv" EXIT
	while IFS= read -pr 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 \|\| exit $?
	[[ $REPLY = [Qq]* ]] && exit 0
	curlin=$llen
	fi
	print -r -- "$line"
	done
	)
	}

	# base64 encoder and decoder, RFC compliant, NUL safe
	function Lb64decode {
	[[ -o utf8-mode ]]; local u=$? c s="$*" t
	set +U
	[[ -n $s ]] \|\| { s=$(cat; print x); s=${s%x}; }
	local -i i=0 j=0 n=${#s} p=0 v x
	local -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+=\\x${o#16#}
	(( ++j & 4095 )) && continue
	print -n $t
	t=
	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 ]]; local u=$? c s t
	set +U
	if (( $# )); then
	read -raN-1 s <<<"$*"
	unset s[${#s[*]}-1]
	else
	read -raN-1 s
	fi
	local -i i=0 n=${#s[*]} j v

	while (( i < n )); do
	(( v = s[i++] << 16 ))
	(( j = i < n ? s[i++] : 0 ))
	(( v \|= j << 8 ))
	(( j = i < n ? s[i++] : 0 ))
	(( v \|= j ))
	t+=${Lb64encode_code[v >> 18]}${Lb64encode_code[v >> 12 & 63]}
	c=${Lb64encode_code[v >> 6 & 63]}
	if (( i <= n )); then
	t+=$c${Lb64encode_code[v & 63]}
	elif (( i == n + 1 )); then
	t+=$c=
	else
	t+===
	fi
	if (( ${#t} == 76 \|\| i >= n )); then
	print $t
	t=
	fi
	done
	(( u )) \|\| set -U
	}

	# Better Avalanche for the Jenkins Hash
	typeset -Z11 -Uui16 Lbafh_v
	function Lbafh_init {
	Lbafh_v=0
	}
	function Lbafh_add {
	[[ -o utf8-mode ]]; local u=$? s
	set +U
	if (( $# )); then
	read -raN-1 s <<<"$*"
	unset s[${#s[*]}-1]
	else
	read -raN-1 s
	fi
	local -i i=0 n=${#s[*]}

	while (( i < n )); do
	((# Lbafh_v = (Lbafh_v + s[i++] + 1) * 1025 ))
	((# Lbafh_v ^= Lbafh_v >> 6 ))
	done

	(( u )) \|\| set -U
	}
	function Lbafh_finish {
	local -Ui t

	((# t = (((Lbafh_v >> 7) & 0x01010101) * 0x1B) ^ \
	((Lbafh_v << 1) & 0xFEFEFEFE) ))
	((# Lbafh_v = t ^ (t >>> 8) ^ (Lbafh_v >>> 8) ^ \
	(Lbafh_v >>> 16) ^ (Lbafh_v >>> 24) ))
	:
	}

	# 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; }
	}

	# give MidnightBSD's laffer1 a bit of csh feeling
	function setenv {
	eval export "\"$1\""'="$2"'
	}

	: place customisations below this line

	for p in ~/.etc/bin ~/bin; do
	[[ -d $p/. ]] \|\| continue
	[[ :$PATH: = :$p: ]] \|\| PATH=$p:$PATH
	done

	export SHELL=$MKSH MANWIDTH=80 LESSHISTFILE=-
	alias cls='print -n \\033c'

	#unset LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_IDENTIFICATION LC_MONETARY \
	# LC_NAME LC_NUMERIC LC_TELEPHONE LC_TIME
	#p=en_GB.UTF-8
	#set -U
	#export LANG=C LC_CTYPE=$p LC_MEASUREMENT=$p LC_MESSAGES=$p LC_PAPER=$p

	unset p

	: place customisations above this line