176 lines
3 KiB
Text
176 lines
3 KiB
Text
#
|
|
# .kshenv -- functions and aliases to provide the beginnings of a ksh
|
|
# environment for bash.
|
|
#
|
|
# Chet Ramey
|
|
# chet@ins.CWRU.Edu
|
|
#
|
|
#
|
|
# These are definitions for the ksh compiled-in `exported aliases'. There
|
|
# are others, but we already have substitutes for them: "history", "type",
|
|
# and "hash".
|
|
#
|
|
alias r="fc -e -"
|
|
alias functions="typeset -f"
|
|
alias integer="typeset -i"
|
|
alias nohup="nohup "
|
|
alias true=":"
|
|
alias false="let 0"
|
|
alias hist="fc"
|
|
|
|
#
|
|
# An almost-ksh compatible `whence' command. This is as hairy as it is
|
|
# because of the desire to exactly mimic ksh (whose behavior was determined
|
|
# empirically).
|
|
#
|
|
# This depends somewhat on knowing the format of the output of the bash
|
|
# `builtin type' command.
|
|
#
|
|
|
|
whence()
|
|
{
|
|
local vflag
|
|
local path
|
|
|
|
vflag=
|
|
path=
|
|
if [ "$#" = "0" ] ; then
|
|
echo "whence: argument expected"
|
|
return 1
|
|
fi
|
|
case "$1" in
|
|
-v) vflag=1 ; shift 1 ;;
|
|
-*) echo "whence: bad option: $1" ; return 1 ;;
|
|
*) ;;
|
|
esac
|
|
|
|
if [ "$#" = "0" ] ; then
|
|
echo "whence: bad argument count"
|
|
return 1
|
|
fi
|
|
|
|
for cmd
|
|
do
|
|
if [ "$vflag" ] ; then
|
|
echo $(builtin type $cmd | sed 1q)
|
|
else
|
|
path=$(builtin type -path $cmd)
|
|
if [ "$path" ] ; then
|
|
echo $path
|
|
else
|
|
case "$cmd" in
|
|
/*) echo "" ;;
|
|
*) case "$(builtin type -type $cmd)" in
|
|
"") echo "" ;;
|
|
*) echo "$cmd" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
fi
|
|
fi
|
|
done
|
|
return 0
|
|
}
|
|
|
|
#
|
|
# For real ksh homeboy fanatics, redefine the `type' builtin with a ksh
|
|
# version.
|
|
#
|
|
#type()
|
|
#{
|
|
# whence -v "$*"
|
|
#}
|
|
|
|
cd()
|
|
{
|
|
case $# in
|
|
0) builtin cd "$HOME" ;;
|
|
1) builtin cd "$@" ;;
|
|
2) old="$1"
|
|
new="$2"
|
|
dir=$(echo "$PWD" | sed "s:$old:$new:g")
|
|
case "$dir" in
|
|
"$PWD") echo "bash: cd: bad substitution" >&2 ; return 1 ;;
|
|
*) echo "$dir"
|
|
builtin cd "$dir"
|
|
;;
|
|
esac
|
|
;;
|
|
*) echo "cd: wrong arg count" >&2 ; return 1 ;;
|
|
esac
|
|
}
|
|
|
|
#
|
|
# ksh print emulation
|
|
#
|
|
# print [-Rnprsu[n]] [arg ...]
|
|
#
|
|
# - end of options
|
|
# -R BSD-style -- only accept -n, no escapes
|
|
# -n do not add trailing newline
|
|
# -p no-op (no coprocesses)
|
|
# -r no escapes
|
|
# -s print to the history file
|
|
# -u n redirect output to fd n
|
|
#
|
|
|
|
print()
|
|
{
|
|
local eflag=-e
|
|
local nflag=
|
|
local fd=1
|
|
|
|
OPTIND=1
|
|
while getopts "Rnprsu:" c
|
|
do
|
|
case $c in
|
|
R) eflag= ;;
|
|
r) eflag= ;;
|
|
n) nflag=-n ;;
|
|
s) sflag=y ;;
|
|
u) fd=$OPTARG ;;
|
|
p) ;;
|
|
esac
|
|
done
|
|
shift $[ $OPTIND - 1 ]
|
|
|
|
case "$sflag" in
|
|
y) builtin history -s "$*" ;;
|
|
*) builtin echo $eflag $nflag "$@" >&$fd
|
|
esac
|
|
}
|
|
|
|
# substring function
|
|
# this function should be equivalent to the substring built-in which was
|
|
# eliminated after the 06/29/84 version
|
|
substring ()
|
|
{
|
|
local lpat flag str #local variables
|
|
set -f
|
|
case $1 in
|
|
-l|-L)
|
|
flag=$1
|
|
lpat=$2
|
|
shift 2
|
|
;;
|
|
esac
|
|
# test for too few or too many arguments
|
|
if [ x"$1" = x -o $# -gt 2 ]; then
|
|
print -u2 'substring: bad argument count'
|
|
return 1
|
|
fi
|
|
str=$1
|
|
if [ x"$flag" = x-l ]; then #substring -l lpat
|
|
str=${str#$lpat}
|
|
elif [ x"$flag" = x-L ]; then
|
|
str=${str##$lpat} #substring -L lpat
|
|
fi
|
|
|
|
if [ x"$2" != x ]; then
|
|
echo ${str%$2}
|
|
else
|
|
echo $str
|
|
fi
|
|
|
|
return 0
|
|
}
|