2009-08-27 18:52:12 +02:00
|
|
|
# $Id$
|
2015-04-11 21:01:59 +02:00
|
|
|
# $MirOS: src/bin/mksh/dot.mkshrc,v 1.96 2015/04/11 19:01:59 tg Exp $
|
2009-05-16 18:59:42 +02:00
|
|
|
#-
|
2012-07-30 23:37:17 +02:00
|
|
|
# Copyright (c) 2002, 2003, 2004, 2006, 2007, 2008, 2009, 2010,
|
2015-01-06 21:54:53 +01:00
|
|
|
# 2011, 2012, 2013, 2014, 2015
|
2009-05-16 18:59:42 +02:00
|
|
|
# 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.
|
2007-09-24 22:30:04 +02:00
|
|
|
#-
|
2010-02-25 21:48:10 +01:00
|
|
|
# ${ENV:-~/.mkshrc}: mksh initialisation file for interactive shells
|
2007-09-24 22:30:04 +02:00
|
|
|
|
2015-04-11 20:08:56 +02:00
|
|
|
# catch non-mksh (including lksh) trying to run this file
|
2015-04-11 21:01:59 +02:00
|
|
|
case ${KSH_VERSION:-} in
|
2013-04-27 20:19:44 +02:00
|
|
|
*MIRBSD\ KSH*) ;;
|
2015-04-11 20:08:56 +02:00
|
|
|
*) return 0 ;;
|
2013-04-27 20:19:44 +02:00
|
|
|
esac
|
|
|
|
|
2015-04-11 21:01:59 +02:00
|
|
|
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:=$(\builtin whence -p mksh)}"
|
|
|
|
HOSTNAME=${HOSTNAME%%*([ ]).*}; HOSTNAME=${HOSTNAME##*([ ])}
|
|
|
|
[[ $HOSTNAME = ?(ip6-)localhost?(6) ]] && HOSTNAME=
|
|
|
|
\: "${HOSTNAME:=nil}${MKSH:=/bin/mksh}"; \export EDITOR HOSTNAME MKSH TERM USER
|
2015-04-11 20:08:56 +02:00
|
|
|
PS4='[$EPOCHREALTIME] '; PS1=$'\001\r''${|
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset e=$?
|
2007-09-25 17:48:45 +02:00
|
|
|
|
2013-05-02 23:59:54 +02:00
|
|
|
(( e )) && REPLY+="$e|"
|
2015-04-11 20:08:56 +02:00
|
|
|
REPLY+=${USER}@${HOSTNAME%%.*}:
|
2013-05-02 23:59:54 +02:00
|
|
|
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset d=${PWD:-?} p=~; [[ $p = ?(*/) ]] || d=${d/#$p/~}
|
|
|
|
\typeset m=${%d} n p=...; (( m > 0 )) || m=${#d}
|
2013-05-02 23:59:54 +02:00
|
|
|
(( m > (n = (COLUMNS/3 < 7 ? 7 : COLUMNS/3)) )) && d=${d:(-n)} || p=
|
|
|
|
REPLY+=$p$d
|
|
|
|
|
2015-03-08 23:54:36 +01:00
|
|
|
\return $e
|
2015-04-11 21:01:59 +02:00
|
|
|
} '"$PS1 "
|
2015-03-08 23:54:36 +01:00
|
|
|
\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 "$(\builtin fc -ln -1)"'
|
|
|
|
\command -v rot13 >/dev/null || \alias rot13='tr \
|
2008-02-29 17:38:41 +01:00
|
|
|
abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ \
|
|
|
|
nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM'
|
2015-03-08 23:54:36 +01:00
|
|
|
if \command -v hd >/dev/null; then \:; elif \command -v hexdump >/dev/null; then
|
2013-05-02 23:46:29 +02:00
|
|
|
function hd {
|
|
|
|
hexdump -e '"%08.8_ax " 8/1 "%02X " " - " 8/1 "%02X "' \
|
|
|
|
-e '" |" "%_p"' -e '"|\n"' "$@"
|
|
|
|
}
|
|
|
|
else
|
|
|
|
function hd {
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset -Uui16 -Z11 pos=0
|
|
|
|
\typeset -Uui16 -Z5 hv=2147483647
|
|
|
|
\typeset dasc line i
|
2013-05-02 23:46:29 +02:00
|
|
|
|
2015-03-08 23:54:36 +01:00
|
|
|
\cat "$@" | { \set +U; if \read -arN -1 line; then
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset -i1 'line[*]'
|
2013-05-02 23:46:29 +02:00
|
|
|
i=0
|
|
|
|
while (( i < ${#line[*]} )); do
|
|
|
|
hv=${line[i++]}
|
|
|
|
if (( (pos & 15) == 0 )); then
|
2015-04-11 21:01:59 +02:00
|
|
|
(( pos )) && \
|
|
|
|
\builtin print -r -- "$dasc|"
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -n "${pos#16#} "
|
2013-05-02 23:46:29 +02:00
|
|
|
dasc=' |'
|
|
|
|
fi
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -n "${hv#16#} "
|
2013-05-02 23:46:29 +02:00
|
|
|
if (( (hv < 32) || (hv > 126) )); then
|
|
|
|
dasc+=.
|
|
|
|
else
|
|
|
|
dasc+=${line[i-1]#1#}
|
|
|
|
fi
|
2015-04-11 21:01:59 +02:00
|
|
|
(( (pos++ & 15) == 7 )) && \
|
|
|
|
\builtin print -n -- '- '
|
2013-05-02 23:46:29 +02:00
|
|
|
done
|
|
|
|
while (( pos & 15 )); do
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -n ' '
|
2015-04-11 21:01:59 +02:00
|
|
|
(( (pos++ & 15) == 7 )) && \
|
|
|
|
\builtin print -n -- '- '
|
2013-05-02 23:46:29 +02:00
|
|
|
done
|
2015-03-08 23:54:36 +01:00
|
|
|
(( hv == 2147483647 )) || \builtin print -r -- "$dasc|"
|
2013-07-25 16:02:02 +02:00
|
|
|
fi; }
|
2013-05-02 23:46:29 +02:00
|
|
|
}
|
|
|
|
fi
|
2006-07-23 20:44:22 +02:00
|
|
|
|
2007-09-24 22:30:04 +02:00
|
|
|
# Berkeley C shell compatible dirs, popd, and pushd functions
|
|
|
|
# Z shell compatible chpwd() hook, used to update DIRSTACK[0]
|
2015-04-11 21:01:59 +02:00
|
|
|
DIRSTACKBASE=$(\builtin realpath ~/. 2>/dev/null || \
|
|
|
|
\builtin print -nr -- "${HOME:-/}")
|
2007-09-24 22:30:04 +02:00
|
|
|
set -A DIRSTACK
|
|
|
|
function chpwd {
|
2015-04-11 21:01:59 +02:00
|
|
|
DIRSTACK[0]=$(\builtin realpath . 2>/dev/null || \
|
|
|
|
\builtin print -r -- "$PWD")
|
2008-05-17 00:22:11 +02:00
|
|
|
[[ $DIRSTACKBASE = ?(*/) ]] || \
|
2008-05-17 00:19:11 +02:00
|
|
|
DIRSTACK[0]=${DIRSTACK[0]/#$DIRSTACKBASE/~}
|
2015-03-08 23:54:36 +01:00
|
|
|
\:
|
2007-09-24 22:30:04 +02:00
|
|
|
}
|
2015-03-08 23:54:36 +01:00
|
|
|
\chpwd .
|
2007-09-24 22:30:04 +02:00
|
|
|
function cd {
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin cd "$@" || \return $?
|
|
|
|
\chpwd "$@"
|
2007-09-24 22:30:04 +02:00
|
|
|
}
|
|
|
|
function cd_csh {
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset d t=${1/#~/$DIRSTACKBASE}
|
2007-09-24 22:30:04 +02:00
|
|
|
|
2015-03-08 23:54:36 +01:00
|
|
|
if ! d=$(\builtin cd "$t" 2>&1); then
|
|
|
|
\builtin print -u2 "${1}: ${d##*cd: $t: }."
|
|
|
|
\return 1
|
2007-09-24 22:30:04 +02:00
|
|
|
fi
|
2015-03-08 23:54:36 +01:00
|
|
|
\cd "$t"
|
2007-09-24 22:30:04 +02:00
|
|
|
}
|
|
|
|
function dirs {
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset d dwidth
|
|
|
|
\typeset -i fl=0 fv=0 fn=0 cpos=0
|
2007-09-24 22:30:04 +02:00
|
|
|
|
2015-03-08 23:54:36 +01:00
|
|
|
while \getopts ":lvn" d; do
|
2007-09-24 22:30:04 +02:00
|
|
|
case $d {
|
|
|
|
(l) fl=1 ;;
|
|
|
|
(v) fv=1 ;;
|
|
|
|
(n) fn=1 ;;
|
2015-03-08 23:54:36 +01:00
|
|
|
(*) \builtin print -u2 'Usage: dirs [-lvn].'
|
|
|
|
\return 1 ;;
|
2007-09-24 22:30:04 +02:00
|
|
|
}
|
|
|
|
done
|
2015-03-08 23:54:36 +01:00
|
|
|
\shift $((OPTIND - 1))
|
2007-09-24 22:30:04 +02:00
|
|
|
if (( $# > 0 )); then
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -u2 'Usage: dirs [-lvn].'
|
|
|
|
\return 1
|
2007-09-24 22:30:04 +02:00
|
|
|
fi
|
|
|
|
if (( fv )); then
|
|
|
|
fv=0
|
|
|
|
while (( fv < ${#DIRSTACK[*]} )); do
|
|
|
|
d=${DIRSTACK[fv]}
|
2008-03-01 22:24:58 +01:00
|
|
|
(( fl )) && d=${d/#~/$DIRSTACKBASE}
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -r -- "$fv $d"
|
|
|
|
\builtin let fv++
|
2007-09-24 22:30:04 +02:00
|
|
|
done
|
|
|
|
else
|
|
|
|
fv=0
|
|
|
|
while (( fv < ${#DIRSTACK[*]} )); do
|
|
|
|
d=${DIRSTACK[fv]}
|
2008-03-01 22:24:58 +01:00
|
|
|
(( fl )) && d=${d/#~/$DIRSTACKBASE}
|
2010-07-11 15:54:37 +02:00
|
|
|
(( dwidth = (${%d} > 0 ? ${%d} : ${#d}) ))
|
|
|
|
if (( fn && (cpos += dwidth + 1) >= 79 && \
|
|
|
|
dwidth < 80 )); then
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print
|
2010-07-11 15:54:37 +02:00
|
|
|
(( cpos = dwidth + 1 ))
|
2007-09-24 22:30:04 +02:00
|
|
|
fi
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -nr -- "$d "
|
|
|
|
\builtin let fv++
|
2007-09-24 22:30:04 +02:00
|
|
|
done
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print
|
2007-09-24 22:30:04 +02:00
|
|
|
fi
|
2015-03-08 23:54:36 +01:00
|
|
|
\return 0
|
2007-09-24 22:30:04 +02:00
|
|
|
}
|
|
|
|
function popd {
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset d fa
|
|
|
|
\typeset -i n=1
|
2007-09-24 22:30:04 +02:00
|
|
|
|
2015-03-08 23:54:36 +01:00
|
|
|
while \getopts ":0123456789lvn" d; do
|
2007-09-24 22:30:04 +02:00
|
|
|
case $d {
|
2011-11-26 00:58:04 +01:00
|
|
|
(l|v|n) fa+=" -$d" ;;
|
2007-09-24 22:30:04 +02:00
|
|
|
(+*) n=2
|
2015-03-08 23:54:36 +01:00
|
|
|
\break ;;
|
|
|
|
(*) \builtin print -u2 'Usage: popd [-lvn] [+<n>].'
|
|
|
|
\return 1 ;;
|
2007-09-24 22:30:04 +02:00
|
|
|
}
|
|
|
|
done
|
2015-03-08 23:54:36 +01:00
|
|
|
\shift $((OPTIND - n))
|
2007-09-24 22:30:04 +02:00
|
|
|
n=0
|
|
|
|
if (( $# > 1 )); then
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -u2 popd: Too many arguments.
|
|
|
|
\return 1
|
2007-09-24 22:30:04 +02:00
|
|
|
elif [[ $1 = ++([0-9]) && $1 != +0 ]]; then
|
|
|
|
if (( (n = ${1#+}) >= ${#DIRSTACK[*]} )); then
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -u2 popd: Directory stack not that deep.
|
|
|
|
\return 1
|
2007-09-24 22:30:04 +02:00
|
|
|
fi
|
|
|
|
elif [[ -n $1 ]]; then
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -u2 popd: Bad directory.
|
|
|
|
\return 1
|
2007-09-24 22:30:04 +02:00
|
|
|
fi
|
|
|
|
if (( ${#DIRSTACK[*]} < 2 )); then
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -u2 popd: Directory stack empty.
|
|
|
|
\return 1
|
2007-09-24 22:30:04 +02:00
|
|
|
fi
|
2015-03-08 23:54:36 +01:00
|
|
|
\unset DIRSTACK[n]
|
|
|
|
\set -A DIRSTACK -- "${DIRSTACK[@]}"
|
|
|
|
\cd_csh "${DIRSTACK[0]}" || \return 1
|
|
|
|
\dirs $fa
|
2007-09-24 22:30:04 +02:00
|
|
|
}
|
|
|
|
function pushd {
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset d fa
|
|
|
|
\typeset -i n=1
|
2007-09-24 22:30:04 +02:00
|
|
|
|
2015-03-08 23:54:36 +01:00
|
|
|
while \getopts ":0123456789lvn" d; do
|
2007-09-24 22:30:04 +02:00
|
|
|
case $d {
|
2011-11-26 00:58:04 +01:00
|
|
|
(l|v|n) fa+=" -$d" ;;
|
2007-09-24 22:30:04 +02:00
|
|
|
(+*) n=2
|
2015-03-08 23:54:36 +01:00
|
|
|
\break ;;
|
|
|
|
(*) \builtin print -u2 'Usage: pushd [-lvn] [<dir>|+<n>].'
|
|
|
|
\return 1 ;;
|
2007-09-24 22:30:04 +02:00
|
|
|
}
|
|
|
|
done
|
2015-03-08 23:54:36 +01:00
|
|
|
\shift $((OPTIND - n))
|
2007-09-24 22:30:04 +02:00
|
|
|
if (( $# == 0 )); then
|
|
|
|
if (( ${#DIRSTACK[*]} < 2 )); then
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -u2 pushd: No other directory.
|
|
|
|
\return 1
|
2007-09-24 22:30:04 +02:00
|
|
|
fi
|
|
|
|
d=${DIRSTACK[1]}
|
|
|
|
DIRSTACK[1]=${DIRSTACK[0]}
|
2015-03-08 23:54:36 +01:00
|
|
|
\cd_csh "$d" || \return 1
|
2007-09-24 22:30:04 +02:00
|
|
|
elif (( $# > 1 )); then
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -u2 pushd: Too many arguments.
|
|
|
|
\return 1
|
2007-09-24 22:30:04 +02:00
|
|
|
elif [[ $1 = ++([0-9]) && $1 != +0 ]]; then
|
|
|
|
if (( (n = ${1#+}) >= ${#DIRSTACK[*]} )); then
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -u2 pushd: Directory stack not that deep.
|
|
|
|
\return 1
|
2007-09-24 22:30:04 +02:00
|
|
|
fi
|
|
|
|
while (( n-- )); do
|
|
|
|
d=${DIRSTACK[0]}
|
2015-03-08 23:54:36 +01:00
|
|
|
\unset DIRSTACK[0]
|
|
|
|
\set -A DIRSTACK -- "${DIRSTACK[@]}" "$d"
|
2007-09-24 22:30:04 +02:00
|
|
|
done
|
2015-03-08 23:54:36 +01:00
|
|
|
\cd_csh "${DIRSTACK[0]}" || \return 1
|
2007-09-24 22:30:04 +02:00
|
|
|
else
|
2015-03-08 23:54:36 +01:00
|
|
|
\set -A DIRSTACK -- placeholder "${DIRSTACK[@]}"
|
|
|
|
\cd_csh "$1" || \return 1
|
2007-09-24 22:30:04 +02:00
|
|
|
fi
|
2015-03-08 23:54:36 +01:00
|
|
|
\dirs $fa
|
2007-09-24 22:30:04 +02:00
|
|
|
}
|
|
|
|
|
2011-02-09 20:32:35 +01:00
|
|
|
# pager (not control character safe)
|
|
|
|
function smores {
|
2014-07-28 23:45:45 +02:00
|
|
|
(
|
2015-03-08 23:54:36 +01:00
|
|
|
\set +m
|
|
|
|
\cat "$@" |&
|
|
|
|
\trap "rv=\$?; 'kill' $! >/dev/null 2>&1; 'exit' \$rv" EXIT
|
|
|
|
while IFS= \read -pr line; do
|
2014-07-28 23:45:45 +02:00
|
|
|
llen=${%line}
|
|
|
|
(( llen == -1 )) && llen=${#line}
|
|
|
|
(( llen = llen ? (llen + COLUMNS - 1) / COLUMNS : 1 ))
|
|
|
|
if (( (curlin += llen) >= LINES )); then
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -n -- '\033[7m--more--\033[0m'
|
|
|
|
\read -u1 || \exit $?
|
|
|
|
[[ $REPLY = [Qq]* ]] && \exit 0
|
2014-07-28 23:45:45 +02:00
|
|
|
curlin=$llen
|
|
|
|
fi
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -r -- "$line"
|
2014-07-28 23:45:45 +02:00
|
|
|
done
|
|
|
|
)
|
2011-02-09 20:32:35 +01:00
|
|
|
}
|
|
|
|
|
2011-05-29 04:18:57 +02:00
|
|
|
# base64 encoder and decoder, RFC compliant, NUL safe
|
2009-05-31 19:17:33 +02:00
|
|
|
function Lb64decode {
|
2015-03-14 06:23:18 +01:00
|
|
|
[[ -o utf8-mode ]]; \typeset u=$? c s="$*" t
|
2015-03-08 23:54:36 +01:00
|
|
|
\set +U
|
|
|
|
[[ -n $s ]] || { s=$(\cat; \builtin print x); s=${s%x}; }
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset -i i=0 j=0 n=${#s} p=0 v x
|
|
|
|
\typeset -i16 o
|
2009-05-31 19:17:33 +02:00
|
|
|
|
|
|
|
while (( i < n )); do
|
|
|
|
c=${s:(i++):1}
|
|
|
|
case $c {
|
2015-03-08 23:54:36 +01:00
|
|
|
(=) \break ;;
|
2009-05-31 19:17:33 +02:00
|
|
|
([A-Z]) (( v = 1#$c - 65 )) ;;
|
|
|
|
([a-z]) (( v = 1#$c - 71 )) ;;
|
|
|
|
([0-9]) (( v = 1#$c + 4 )) ;;
|
|
|
|
(+) v=62 ;;
|
|
|
|
(/) v=63 ;;
|
2015-03-08 23:54:36 +01:00
|
|
|
(*) \continue ;;
|
2009-05-31 19:17:33 +02:00
|
|
|
}
|
|
|
|
(( x = (x << 6) | v ))
|
|
|
|
case $((p++)) {
|
2015-03-08 23:54:36 +01:00
|
|
|
(0) \continue ;;
|
2009-05-31 19:17:33 +02:00
|
|
|
(1) (( o = (x >> 4) & 255 )) ;;
|
|
|
|
(2) (( o = (x >> 2) & 255 )) ;;
|
|
|
|
(3) (( o = x & 255 ))
|
|
|
|
p=0
|
|
|
|
;;
|
|
|
|
}
|
2011-11-26 00:58:04 +01:00
|
|
|
t+=\\x${o#16#}
|
2015-03-08 23:54:36 +01:00
|
|
|
(( ++j & 4095 )) && \continue
|
|
|
|
\builtin print -n $t
|
2011-11-26 00:58:04 +01:00
|
|
|
t=
|
2009-05-31 19:17:33 +02:00
|
|
|
done
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print -n $t
|
|
|
|
(( u )) || \set -U
|
2009-05-31 19:17:33 +02:00
|
|
|
}
|
|
|
|
|
2015-04-11 21:01:59 +02:00
|
|
|
\set -A Lb64encode_tbl -- 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 \
|
2009-05-31 19:17:33 +02:00
|
|
|
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 {
|
2015-03-14 06:23:18 +01:00
|
|
|
[[ -o utf8-mode ]]; \typeset u=$? c s t
|
2015-03-08 23:54:36 +01:00
|
|
|
\set +U
|
2011-05-29 04:18:57 +02:00
|
|
|
if (( $# )); then
|
2015-03-08 23:54:36 +01:00
|
|
|
\read -raN-1 s <<<"$*"
|
|
|
|
\unset s[${#s[*]}-1]
|
2011-05-29 04:18:57 +02:00
|
|
|
else
|
2015-03-08 23:54:36 +01:00
|
|
|
\read -raN-1 s
|
2011-05-29 04:18:57 +02:00
|
|
|
fi
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset -i i=0 n=${#s[*]} j v
|
2009-05-31 19:17:33 +02:00
|
|
|
|
|
|
|
while (( i < n )); do
|
2011-05-29 04:18:57 +02:00
|
|
|
(( v = s[i++] << 16 ))
|
|
|
|
(( j = i < n ? s[i++] : 0 ))
|
2009-05-31 19:17:33 +02:00
|
|
|
(( v |= j << 8 ))
|
2011-05-29 04:18:57 +02:00
|
|
|
(( j = i < n ? s[i++] : 0 ))
|
2009-05-31 19:17:33 +02:00
|
|
|
(( v |= j ))
|
2015-04-11 21:01:59 +02:00
|
|
|
t+=${Lb64encode_tbl[v >> 18]}${Lb64encode_tbl[v >> 12 & 63]}
|
|
|
|
c=${Lb64encode_tbl[v >> 6 & 63]}
|
2009-05-31 19:17:33 +02:00
|
|
|
if (( i <= n )); then
|
2015-04-11 21:01:59 +02:00
|
|
|
t+=$c${Lb64encode_tbl[v & 63]}
|
2009-05-31 19:17:33 +02:00
|
|
|
elif (( i == n + 1 )); then
|
2011-11-26 00:58:04 +01:00
|
|
|
t+=$c=
|
2009-05-31 19:17:33 +02:00
|
|
|
else
|
2011-11-26 00:58:04 +01:00
|
|
|
t+===
|
2009-05-31 19:17:33 +02:00
|
|
|
fi
|
|
|
|
if (( ${#t} == 76 || i >= n )); then
|
2015-03-08 23:54:36 +01:00
|
|
|
\builtin print $t
|
2009-05-31 19:17:33 +02:00
|
|
|
t=
|
|
|
|
fi
|
|
|
|
done
|
2015-03-08 23:54:36 +01:00
|
|
|
(( u )) || \set -U
|
2009-05-31 19:17:33 +02:00
|
|
|
}
|
|
|
|
|
2014-01-11 19:09:43 +01:00
|
|
|
# Better Avalanche for the Jenkins Hash
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset -Z11 -Uui16 Lbafh_v
|
2014-01-11 19:09:43 +01:00
|
|
|
function Lbafh_init {
|
|
|
|
Lbafh_v=0
|
|
|
|
}
|
|
|
|
function Lbafh_add {
|
2015-03-14 06:23:18 +01:00
|
|
|
[[ -o utf8-mode ]]; \typeset u=$? s
|
2015-03-08 23:54:36 +01:00
|
|
|
\set +U
|
2011-05-29 04:18:57 +02:00
|
|
|
if (( $# )); then
|
2015-03-08 23:54:36 +01:00
|
|
|
\read -raN-1 s <<<"$*"
|
|
|
|
\unset s[${#s[*]}-1]
|
2011-05-29 04:18:57 +02:00
|
|
|
else
|
2015-03-08 23:54:36 +01:00
|
|
|
\read -raN-1 s
|
2011-05-29 04:18:57 +02:00
|
|
|
fi
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset -i i=0 n=${#s[*]}
|
2009-06-22 19:38:39 +02:00
|
|
|
|
|
|
|
while (( i < n )); do
|
2014-01-11 19:09:43 +01:00
|
|
|
((# Lbafh_v = (Lbafh_v + s[i++] + 1) * 1025 ))
|
|
|
|
((# Lbafh_v ^= Lbafh_v >> 6 ))
|
2009-06-22 19:38:39 +02:00
|
|
|
done
|
|
|
|
|
2015-03-08 23:54:36 +01:00
|
|
|
(( u )) || \set -U
|
2009-06-22 19:38:39 +02:00
|
|
|
}
|
2014-01-11 19:09:43 +01:00
|
|
|
function Lbafh_finish {
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset -Ui t
|
2014-01-02 23:51:01 +01:00
|
|
|
|
2014-01-11 19:09:43 +01:00
|
|
|
((# t = (((Lbafh_v >> 7) & 0x01010101) * 0x1B) ^ \
|
|
|
|
((Lbafh_v << 1) & 0xFEFEFEFE) ))
|
|
|
|
((# Lbafh_v = t ^ (t >>> 8) ^ (Lbafh_v >>> 8) ^ \
|
|
|
|
(Lbafh_v >>> 16) ^ (Lbafh_v >>> 24) ))
|
2015-03-08 23:54:36 +01:00
|
|
|
\:
|
2014-01-02 23:51:01 +01:00
|
|
|
}
|
2009-08-27 18:29:21 +02:00
|
|
|
|
2006-08-14 22:32:44 +02:00
|
|
|
# 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
|
2007-04-17 22:04:08 +02:00
|
|
|
function Lstripcom {
|
2015-03-08 23:54:36 +01:00
|
|
|
\cat "$@" | { \set -o noglob; while \read _line; do
|
2006-07-23 20:44:22 +02:00
|
|
|
_line=${_line%%#*}
|
2015-03-08 23:54:36 +01:00
|
|
|
[[ -n $_line ]] && \builtin print -r -- $_line
|
• remove strcasestr.c, use home-grown implementation¹, call it stricmp,
and have it return an API-correct const char *
• enhance and stylify comments
• a little KNF and simplifications
• #ifdef DEBUG: replace strchr and strstr with ucstrchr and ucstrstr
that take and return a non-const char *, and fix the violations
• new cstrchr, cstrstr (take and give const char *)
• new vstrchr, vstrstr (take const or not, give boolean value)
• new afreechk(x) = afreechv(x,x) = if (x1) afree(x2, ATEMP)
• new ksh_isdash(str) = (str != NULL) && !strcmp(str, "-")
• replace the only use of strrchr with inlined code to shrink
• minor man page fixes
• Minix 3 signames are autogenerated with gcc
• rename strlfun.c to strlcpy.c since we don't do strlcat(3) anyway,
only strlcpy(3), and shorten it
• dot.mkshrc: move MKSH=… down to the export line
to not disturb the PS1 visual impression ☺
• dot.mkshrc: Lstripcom(): optimise
• bump version
¹) side effect from creating API-correct cstrchr, cstrstr, etc.
uses goto so it must be better ☻
tested on mirbsd-current via both Makefile and Build.sh
2007-03-04 04:04:28 +01:00
|
|
|
done; }
|
2006-07-23 20:44:22 +02:00
|
|
|
}
|
2007-03-04 07:20:48 +01:00
|
|
|
|
2011-07-04 01:26:47 +02:00
|
|
|
# give MidnightBSD's laffer1 a bit of csh feeling
|
|
|
|
function setenv {
|
2015-03-08 23:54:36 +01:00
|
|
|
\eval "'export' \"$1\""'="$2"'
|
2011-07-04 01:26:47 +02:00
|
|
|
}
|
|
|
|
|
2015-04-11 21:01:59 +02:00
|
|
|
# toggle built-in aliases and utilities, and aliases and functions from mkshrc
|
2015-03-09 00:50:00 +01:00
|
|
|
function enable {
|
2015-03-14 06:23:18 +01:00
|
|
|
\typeset doprnt=0 mode=1 x y z rv=0
|
|
|
|
\typeset b_alias i_alias i_func nalias=0 nfunc=0 i_all
|
2015-03-09 00:50:00 +01:00
|
|
|
\set -A b_alias
|
|
|
|
\set -A i_alias
|
|
|
|
\set -A i_func
|
|
|
|
|
|
|
|
# accumulate mksh built-in aliases, in ASCIIbetical order
|
2015-03-14 06:23:18 +01:00
|
|
|
i_alias[nalias]=autoload; b_alias[nalias++]='\typeset -fu'
|
|
|
|
i_alias[nalias]=functions; b_alias[nalias++]='\typeset -f'
|
2015-03-09 00:50:00 +01:00
|
|
|
i_alias[nalias]=hash; b_alias[nalias++]='\builtin alias -t'
|
|
|
|
i_alias[nalias]=history; b_alias[nalias++]='\builtin fc -l'
|
2015-03-14 06:23:18 +01:00
|
|
|
i_alias[nalias]=integer; b_alias[nalias++]='\typeset -i'
|
|
|
|
i_alias[nalias]=local; b_alias[nalias++]='\typeset'
|
2015-03-09 00:50:00 +01:00
|
|
|
i_alias[nalias]=login; b_alias[nalias++]='\exec login'
|
2015-03-14 06:23:18 +01:00
|
|
|
i_alias[nalias]=nameref; b_alias[nalias++]='\typeset -n'
|
2015-03-09 00:50:00 +01:00
|
|
|
i_alias[nalias]=nohup; b_alias[nalias++]='nohup '
|
|
|
|
i_alias[nalias]=r; b_alias[nalias++]='\builtin fc -e -'
|
|
|
|
i_alias[nalias]=source; b_alias[nalias++]='PATH=$PATH:. \command .'
|
|
|
|
i_alias[nalias]=stop; b_alias[nalias++]='\kill -STOP'
|
|
|
|
i_alias[nalias]=type; b_alias[nalias++]='\builtin whence -v'
|
|
|
|
|
|
|
|
# accumulate mksh built-in utilities, in definition order, even ifndef
|
|
|
|
i_func[nfunc++]=.
|
|
|
|
i_func[nfunc++]=:
|
|
|
|
i_func[nfunc++]='['
|
|
|
|
i_func[nfunc++]=alias
|
|
|
|
i_func[nfunc++]=break
|
|
|
|
i_func[nfunc++]=builtin
|
|
|
|
i_func[nfunc++]=cat
|
|
|
|
i_func[nfunc++]=cd
|
|
|
|
i_func[nfunc++]=chdir
|
|
|
|
i_func[nfunc++]=command
|
|
|
|
i_func[nfunc++]=continue
|
|
|
|
i_func[nfunc++]=echo
|
|
|
|
i_func[nfunc++]=eval
|
|
|
|
i_func[nfunc++]=exec
|
|
|
|
i_func[nfunc++]=exit
|
|
|
|
i_func[nfunc++]=export
|
|
|
|
i_func[nfunc++]=false
|
|
|
|
i_func[nfunc++]=fc
|
|
|
|
i_func[nfunc++]=getopts
|
|
|
|
i_func[nfunc++]=global
|
|
|
|
i_func[nfunc++]=jobs
|
|
|
|
i_func[nfunc++]=kill
|
|
|
|
i_func[nfunc++]=let
|
|
|
|
i_func[nfunc++]='let]'
|
|
|
|
i_func[nfunc++]=print
|
|
|
|
i_func[nfunc++]=pwd
|
|
|
|
i_func[nfunc++]=read
|
|
|
|
i_func[nfunc++]=readonly
|
|
|
|
i_func[nfunc++]=realpath
|
|
|
|
i_func[nfunc++]=rename
|
|
|
|
i_func[nfunc++]=return
|
|
|
|
i_func[nfunc++]=set
|
|
|
|
i_func[nfunc++]=shift
|
|
|
|
i_func[nfunc++]=suspend
|
|
|
|
i_func[nfunc++]=test
|
|
|
|
i_func[nfunc++]=times
|
|
|
|
i_func[nfunc++]=trap
|
|
|
|
i_func[nfunc++]=true
|
|
|
|
i_func[nfunc++]=typeset
|
|
|
|
i_func[nfunc++]=ulimit
|
|
|
|
i_func[nfunc++]=umask
|
|
|
|
i_func[nfunc++]=unalias
|
|
|
|
i_func[nfunc++]=unset
|
|
|
|
i_func[nfunc++]=wait
|
|
|
|
i_func[nfunc++]=whence
|
|
|
|
i_func[nfunc++]=bg
|
|
|
|
i_func[nfunc++]=fg
|
|
|
|
i_func[nfunc++]=bind
|
|
|
|
i_func[nfunc++]=mknod
|
|
|
|
i_func[nfunc++]=printf
|
|
|
|
i_func[nfunc++]=sleep
|
|
|
|
i_func[nfunc++]=domainname
|
|
|
|
|
|
|
|
# accumulate aliases from dot.mkshrc, in definition order
|
|
|
|
i_alias[nalias]=l; b_alias[nalias++]='ls -F'
|
|
|
|
i_alias[nalias]=la; b_alias[nalias++]='l -a'
|
|
|
|
i_alias[nalias]=ll; b_alias[nalias++]='l -l'
|
|
|
|
i_alias[nalias]=lo; b_alias[nalias++]='l -alo'
|
|
|
|
i_alias[nalias]=doch; b_alias[nalias++]='sudo mksh -c "$(\builtin fc -ln -1)"'
|
|
|
|
i_alias[nalias]=rot13; b_alias[nalias++]='tr abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM'
|
|
|
|
i_alias[nalias]=cls; b_alias[nalias++]='\builtin print -n \\033c'
|
|
|
|
|
|
|
|
# accumulate functions from dot.mkshrc, in definition order
|
|
|
|
i_func[nfunc++]=hd
|
|
|
|
i_func[nfunc++]=chpwd
|
|
|
|
i_func[nfunc++]=cd_csh
|
|
|
|
i_func[nfunc++]=dirs
|
|
|
|
i_func[nfunc++]=popd
|
|
|
|
i_func[nfunc++]=pushd
|
|
|
|
i_func[nfunc++]=smores
|
|
|
|
i_func[nfunc++]=Lb64decode
|
|
|
|
i_func[nfunc++]=Lb64encode
|
|
|
|
i_func[nfunc++]=Lbafh_init
|
|
|
|
i_func[nfunc++]=Lbafh_add
|
|
|
|
i_func[nfunc++]=Lbafh_finish
|
|
|
|
i_func[nfunc++]=Lstripcom
|
|
|
|
i_func[nfunc++]=setenv
|
|
|
|
i_func[nfunc++]=enable
|
|
|
|
|
|
|
|
# collect all identifiers, sorted ASCIIbetically
|
|
|
|
\set -sA i_all -- "${i_alias[@]}" "${i_func[@]}"
|
|
|
|
|
|
|
|
# handle options, we don't do dynamic loading
|
|
|
|
while \getopts "adf:nps" x; do
|
|
|
|
case $x {
|
|
|
|
(a)
|
|
|
|
mode=-1
|
|
|
|
;;
|
|
|
|
(d)
|
|
|
|
# deliberately causing an error, like bash-static
|
|
|
|
;|
|
|
|
|
(f)
|
|
|
|
\builtin print -u2 enable: dynamic loading not available
|
|
|
|
\return 2
|
|
|
|
;;
|
|
|
|
(n)
|
|
|
|
mode=0
|
|
|
|
;;
|
|
|
|
(p)
|
|
|
|
doprnt=1
|
|
|
|
;;
|
|
|
|
(s)
|
|
|
|
\set -sA i_all -- . : break continue eval exec exit \
|
|
|
|
export readonly return set shift times trap unset
|
|
|
|
;;
|
|
|
|
(*)
|
|
|
|
\builtin print -u2 enable: usage: \
|
|
|
|
"enable [-adnps] [-f filename] [name ...]"
|
|
|
|
return 2
|
|
|
|
;;
|
|
|
|
}
|
|
|
|
done
|
|
|
|
\shift $((OPTIND - 1))
|
|
|
|
|
|
|
|
# display builtins enabled/disabled/all/special?
|
|
|
|
if (( doprnt || ($# == 0) )); then
|
|
|
|
for x in "${i_all[@]}"; do
|
|
|
|
y=$(\alias "$x") || y=
|
|
|
|
[[ $y = "$x='\\builtin whence -p $x >/dev/null || (\\builtin print mksh: $x: not found; exit 127) && \$(\\builtin whence -p $x)'" ]]; z=$?
|
|
|
|
case $mode:$z {
|
|
|
|
(-1:0|0:0)
|
|
|
|
\print -r -- "enable -n $x"
|
|
|
|
;;
|
|
|
|
(-1:1|1:1)
|
|
|
|
\print -r -- "enable $x"
|
|
|
|
;;
|
|
|
|
}
|
|
|
|
done
|
|
|
|
\return 0
|
|
|
|
fi
|
|
|
|
|
|
|
|
for x in "$@"; do
|
|
|
|
z=0
|
|
|
|
for y in "${i_alias[@]}" "${i_func[@]}"; do
|
|
|
|
[[ $x = "$y" ]] || \continue
|
|
|
|
z=1
|
|
|
|
\break
|
|
|
|
done
|
|
|
|
if (( !z )); then
|
|
|
|
\builtin print -ru2 enable: "$x": not a shell builtin
|
|
|
|
rv=1
|
|
|
|
\continue
|
|
|
|
fi
|
|
|
|
if (( !mode )); then
|
|
|
|
# disable this
|
|
|
|
\alias "$x=\\builtin whence -p $x >/dev/null || (\\builtin print mksh: $x: not found; exit 127) && \$(\\builtin whence -p $x)"
|
|
|
|
else
|
|
|
|
# find out if this is an alias or not, first
|
|
|
|
z=0
|
|
|
|
y=-1
|
|
|
|
while (( ++y < nalias )); do
|
|
|
|
[[ $x = "${i_alias[y]}" ]] || \continue
|
|
|
|
z=1
|
|
|
|
\break
|
|
|
|
done
|
|
|
|
if (( z )); then
|
|
|
|
# re-enable the original alias body
|
|
|
|
\alias "$x=${b_alias[y]}"
|
|
|
|
else
|
|
|
|
# re-enable the original utility/function
|
|
|
|
\unalias "$x"
|
|
|
|
fi
|
|
|
|
fi
|
|
|
|
done
|
|
|
|
\return $rv
|
|
|
|
}
|
|
|
|
|
2015-03-08 23:54:36 +01:00
|
|
|
\: place customisations below this line
|
2009-11-03 18:58:44 +01:00
|
|
|
|
|
|
|
for p in ~/.etc/bin ~/bin; do
|
2015-03-08 23:54:36 +01:00
|
|
|
[[ -d $p/. ]] || \continue
|
2009-11-03 18:58:44 +01:00
|
|
|
[[ :$PATH: = *:$p:* ]] || PATH=$p:$PATH
|
|
|
|
done
|
|
|
|
|
2015-03-08 23:54:36 +01:00
|
|
|
\export SHELL=$MKSH MANWIDTH=80 LESSHISTFILE=-
|
|
|
|
\alias cls='\builtin print -n \\033c'
|
2009-11-03 18:58:44 +01:00
|
|
|
|
2015-03-08 23:54:36 +01:00
|
|
|
#\unset LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_IDENTIFICATION LC_MONETARY \
|
2009-11-03 18:58:44 +01:00
|
|
|
# LC_NAME LC_NUMERIC LC_TELEPHONE LC_TIME
|
|
|
|
#p=en_GB.UTF-8
|
2015-03-08 23:54:36 +01:00
|
|
|
#\set -U
|
|
|
|
#\export LANG=C LC_CTYPE=$p LC_MEASUREMENT=$p LC_MESSAGES=$p LC_PAPER=$p
|
2009-11-03 18:58:44 +01:00
|
|
|
|
2015-03-08 23:54:36 +01:00
|
|
|
\unset p
|
2009-11-03 18:58:44 +01:00
|
|
|
|
2015-03-08 23:54:36 +01:00
|
|
|
\: place customisations above this line
|