Return to wsh CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mtrenv / bin

Annotation of 43BSD/contrib/mh/miscellany/mtrenv/bin/wsh, revision 1.1.1.1

1.1       root        1: : run this script through /bin/sh
                      2: 
                      3: M="`basename $0`"
                      4: 
                      5: case "$mhaltmsg" in
                      6:     "")            ;;
                      7: 
                      8:     *)     editalt="$mhaltmsg" ; export editalt ;;
                      9: esac
                     10: 
                     11: case "$mheditor" in
                     12:     "")            ;;
                     13: 
                     14:     *)     trap "" 1 2 3 15
                     15:            if $mheditor $mhdraft
                     16:            then
                     17:                trap 1 2 3 15
                     18:            else
                     19:                case "$mhuse" in
                     20:                    0)     echo $M: removing $mhdraft 1>&2; rm -f $mhdraft ;;
                     21:                esac
                     22:                exit 1
                     23:            fi ;;
                     24: esac
                     25: 
                     26: PS1="`rprompt %U\("$M:"\`expr $mhdraft : '.*/\(.*/.*\)'\`\)%U%b`"
                     27: 
                     28: while :
                     29: do
                     30:     echo -n "$PS1"; read C
                     31:     case "$?$C" in 1) C="quit" ; esac
                     32:     set x $C ; shift
                     33:     case "$1" in
                     34:        quit)     case "$2" in
                     35:                      -d*|d*)     rm $mhdraft ;;
                     36:                      "")         echo $M: draft left on $mhdraft 1>&2 ;;
                     37:                  esac
                     38:                  exit 1 ;;
                     39: 
                     40:        push|send|refile)
                     41:                  if eval "$@"; then exit 0; fi ;;
                     42: 
                     43:        *)        eval "$@" ;;
                     44:     esac
                     45: done

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.