#! /bin/bash
trap 'rm -f /tmp/cb$$.? cshout cshin' 0 1 2 3 6 15
T=$'\t'
SOURCE="${1:+source $1}"
cat << EOF >cshin
$SOURCE
alias >! /tmp/cb$$.a
setenv >! /tmp/cb$$.e
set >! /tmp/cb$$.v
EOF
/usr/bin/env - USER=$USER HOME=$HOME PATH=/usr/bin:/bin:/usr/ucb:. TERM=$TERM SHELL=$SHELL /bin/csh -i < ./cshin > cshout 2>&1
cat << \EOF >/tmp/cb$$.1
mkalias ()
{
case $2 in
'') echo alias ${1}="''" ;;
*[ comm=$(echo $2 | sed 's/\!\*/"$\@"/g
s/\!:\([1-9]\)/"$\1"/g
s/ echo $1 \(\) "{" command "$comm" "; }"
;;
*) echo alias ${1}=\'$(echo "${2}" | sed "s:':'\\\\'':")\' ;;
esac
}
EOF
sed "s/^\([a-zA-Z0-9_]*\)$T\(.*\)$/mkalias \1 '\2'/" < /tmp/cb$$.a >>/tmp/cb$$.1
echo 'echo
$BASH /tmp/cb$$.1 | sed -e 's/\$cwd/\$PWD/g' \
-e 's/\$term/\$TERM/g' \
-e 's/\$home/\$HOME/g' \
-e 's/\$user/\$USER/g' \
-e 's/\$prompt/\$PS1/g'
echo
echo 'echo
sed -e '/^SHLVL/d' \
-e '/^PWD/d' \
-e "s/'/'"\\\\"''"/g \
-e "s/^\([A-Za-z0-9_]*=\)/export \1'/" \
-e "s/$/'/" < /tmp/cb$$.e
echo
echo 'echo
sed -e 's/'"$T"'/=/' \
-e "s/'/'"\\\\"''"/g \
-e '/^[A-Za-z0-9_]*=[^(]/{
s/=/='"'/"'
s/$/'"'/"'
}' < /tmp/cb$$.v |
sed -e '/^argv=/d' -e '/^cwd=/d' -e '/^filec=/d' -e '/^status=/d' \
-e '/^verbose=/d' \
-e '/^term=/d' \
-e '/^home=/d' \
-e '/^path=/d' \
-e '/^user=/d' \
-e '/^shell=/d' \
-e '/^cdpath=/d' \
-e '/^mail=/d' \
-e '/^home=/s//HOME=/' \
-e '/^prompt=/s//PS1=/' \
-e '/^histfile=/s//HISTFILE=/' \
-e '/^history=/s//HISTSIZE=/' \
-e '/^savehist=$/s//HISTFILESIZE=${HISTSIZE-500}/' \
-e '/^savehist=/s//HISTFILESIZE=/' \
-e '/^ignoreeof=$/s/^.*$/set -o ignoreeof -e '/^ignoreeof=/s//IGNOREEOF=/' \
-e '/^noclobber=/s/^.*$/set -C -e '/^notify=/s/^.*$/set -b -e '/^noglob=/s/^.*$/set -f
echo
echo 'echo
sed -e 's/'"$T"'/=/' < /tmp/cb$$.v |
grep "^cdpath=" |
sed 's/(//
s/ /:/g
s/)//
s/cdpath=/CDPATH=/'
sed -e 's/'"$T"'/=/' < /tmp/cb$$.v |
grep "^mail=" |
sed 's/(//
s/ /:/g
s/)//
s/mail=/MAILPATH=/' |
sed -e 's/MAILPATH=\([0-9][0-9][^:]*\)$/MAILCHECK=\1/' \
-e 's/MAILPATH=\([0-9][0-9][^:]*\):\(.*\)/MAILCHECK=\1 MAILPATH=\2/'
exit 0