home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / sources / misc / 3803 next >
Encoding:
Text File  |  1992-08-14  |  49.6 KB  |  2,130 lines
  1. Newsgroups: comp.sources.misc
  2. Path: sparky!kent
  3. From: sjg@zen.void.oz.au (Simon J. Gerraty)
  4. Subject:  v31i074:  pdksh - Public Domain Korn Shell, Patch06a/2
  5. Message-ID: <csm-v31i074=pdksh.093459@sparky.IMD.Sterling.COM>
  6. Followup-To: comp.sources.d
  7. X-Md4-Signature: b99a1dcb6cb0d5a1262775c4d240a60f
  8. Sender: kent@sparky.imd.sterling.com (Kent Landfield)
  9. Organization: Sterling Software
  10. Date: Fri, 14 Aug 1992 14:41:48 GMT
  11. Approved: kent@sparky.imd.sterling.com
  12. Lines: 2116
  13.  
  14. Submitted-by: sjg@zen.void.oz.au (Simon J. Gerraty)
  15. Posting-number: Volume 31, Issue 74
  16. Archive-name: pdksh/patch06a
  17. Environment: UNIX
  18. Patch-To: pdksh: Volume 25, Issue 47-55
  19.  
  20. This is patch06 (a two part patch). Please apply both parts to complete
  21. the patch.
  22.  
  23. This patch fixes a bug in the handling of re-directed loops.  It adds 
  24. "special" support for variables FCEDIT and COLUMNS.
  25.  
  26. It also incorporates a significant contribution from Peter Collinson 
  27. of Hillside Systems/BSDI
  28.  
  29. I've guessed at the flags in Makefile and sh/Makefile, but you should 
  30. not have much trouble building this on either BSDI's BSD/386 or Bill 
  31. and Lyne Jolitz's 386bsd. 
  32.  
  33. See ChangeLog for other details.
  34.  
  35. Apply this patch by changing directory to the root of the source tree 
  36. and using the command:
  37.  
  38.     patch -p0 < this_file
  39.  
  40. The following is a complete list of patches to date.
  41.  
  42. Prereq: 09-Nov-91
  43. Prereq: 10-Nov-91
  44. Prereq: 25-Nov-91
  45. Prereq: 25-Apr-92
  46. Prereq: 26-Apr-92
  47. Prereq: 27-Apr-92
  48. Prereq: 12-May-92
  49. *** PATCHDATES.old    Tue May 12 13:42:00 1992
  50. --- PATCHDATES    Mon Aug 10 21:59:12 1992
  51. ***************
  52. *** 6,8 ****
  53. --- 6,9 ----
  54.   26-Apr-92
  55.   27-Apr-92
  56.   12-May-92
  57. + 02-Aug-92
  58. *** ChangeLog.old    Tue May 12 13:42:00 1992
  59. --- ChangeLog    Mon Aug 10 21:59:03 1992
  60. ***************
  61. *** 1,3 ****
  62. --- 1,12 ----
  63. + Sat Aug  1 17:11:24 1992  Simon J. Gerraty  (sjg@zen)
  64. + 
  65. +     * Incorporated massive contribution from Peter Collinson
  66. +     Refer to Changes.pc
  67. + 
  68. +     * Incorporated Emacs-style completion provided by
  69. +     Neil.Smithline@eng.sun.com this a bit nicer than the standard ksh
  70. +     file completion.
  71. + 
  72.   Sun May  3 17:50:03 1992  Simon J. Gerraty  (sjg@zen)
  73.   
  74.       * Updated MACHINES.
  75. *** /dev/null    Mon Aug 10 22:06:03 1992
  76. --- Changes.pc    Mon Aug 10 22:06:01 1992
  77. ***************
  78. *** 0 ****
  79. --- 1,28 ----
  80. + Changes by Peter Collinson - Hillside Systems/BSDI - July 1992
  81. + 
  82. + 
  83. + a)    Add select command - this cannot be ksh without that.
  84. +     (It NEEDS typedefs too)
  85. + b)    Remove all the bcopys from vi.c
  86. +     add 
  87. +     #define memmove in sh.h for BSD systems
  88. + c)    Add <Esc>* command to vi mode - expands to a list of files
  89. +     using the menu printing routine
  90. + d)    Add my version of history, that works much like the `proper' ksh
  91. +     storing data in a file that is shared between different invocations
  92. +     of the shell.
  93. + e)    Add the ability to redirect to am expansion... ie
  94. + 
  95. +         ls > o*
  96. +     if o* is unique then it puts it into the file that matches
  97. +     otherwise it puts it to a file called o*... this is current
  98. +     behaviour.
  99. + f)    Add alternations, from Csh.d) This is not part of ksh but is something
  100. +     that csh users really miss from the Bourne shell derivatives. The idea
  101. +     is that lists inside curly braces expand to arguments. ie.
  102. +         exampl{a,b,c,d,e}
  103. +     will expand to 5 arguments
  104. +         exampla examplb examplc exampld example
  105. +     Recursive lists are permitted.
  106. + g)    Add suspend as a built-in alias.
  107. + h)    Port to BSD/386 - add _POSIX_TERM and _BSDI as defines.
  108. *** MACHINES.old    Tue May 12 13:42:00 1992
  109. --- MACHINES    Mon Aug 10 21:59:08 1992
  110. ***************
  111. *** 20,26 ****
  112.   sun3,    SunOS 4.1.1        1,4    {cc,gcc} -ansi -D_BSD -DHAVE_SYS_STDTYPES
  113.   Bull DPX/2, B.O.S. 2.00.45    1,5    {cc,gcc-2.1} -ansi -D_POSIX_SOURCE
  114.   Bull XPS-100            1,6    cc -D_SYSV -DUSE_SIGNAL
  115. ! 
  116.   
  117.   NOTES:
  118.   The table above sumarizes the config used.  {cc,gcc} indicates
  119. --- 20,26 ----
  120.   sun3,    SunOS 4.1.1        1,4    {cc,gcc} -ansi -D_BSD -DHAVE_SYS_STDTYPES
  121.   Bull DPX/2, B.O.S. 2.00.45    1,5    {cc,gcc-2.1} -ansi -D_POSIX_SOURCE
  122.   Bull XPS-100            1,6    cc -D_SYSV -DUSE_SIGNAL
  123. ! i386,    BSDI BSD/386        2
  124.   
  125.   NOTES:
  126.   The table above sumarizes the config used.  {cc,gcc} indicates
  127. *** MANIFEST.old    Tue May 12 13:42:00 1992
  128. --- MANIFEST    Mon Aug 10 22:06:04 1992
  129. ***************
  130. *** 2,7 ****
  131. --- 2,8 ----
  132.   -----------------------------------------------------------
  133.    ChangeLog                 1    Current change history
  134.    Changes.jrm               1    
  135. +  Changes.pc                1    
  136.    Changes.mlj               1    
  137.    INSTALL                   1    Installation notes
  138.    MACHINES                  1    Systems the shell has been built on
  139. *** Makefile.old    Tue May 12 13:42:00 1992
  140. --- Makefile    Mon Aug 10 21:59:10 1992
  141. ***************
  142. *** 1,5 ****
  143.   # PD Bourne/Korn Shell
  144. ! # $Id: Makefile,v 1.2 1992/04/25 08:17:25 sjg Exp $
  145.   
  146.   SHELL = /bin/sh
  147.   MAKE  = make
  148. --- 1,5 ----
  149.   # PD Bourne/Korn Shell
  150. ! # $Id: Makefile,v 1.3 1992/08/10 11:59:10 sjg Exp $
  151.   
  152.   SHELL = /bin/sh
  153.   MAKE  = make
  154. ***************
  155. *** 10,17 ****
  156.   CONFIG= -D_BSD 
  157.   #CONFIG= -D_BSD -DHAVE_SYS_STDTYPES
  158.   #CONFIG= -D_V7
  159. ! #CONFIG= -D_ST        /* Atari ST */
  160. ! 
  161.   MANPAGES = ksh.1
  162.   #MANDIR=/usr/catman/u_man/man1
  163.   #MANDIR=/usr/man/man1
  164. --- 10,17 ----
  165.   CONFIG= -D_BSD 
  166.   #CONFIG= -D_BSD -DHAVE_SYS_STDTYPES
  167.   #CONFIG= -D_V7
  168. ! #CONFIG= -D_ST                # Atari ST
  169. ! #CONFIG= -D_BSDI -D_POSIX_TERM        # BSD/386
  170.   MANPAGES = ksh.1
  171.   #MANDIR=/usr/catman/u_man/man1
  172.   #MANDIR=/usr/man/man1
  173. *** etc/ksh.kshrc.old    Tue May 12 13:42:00 1992
  174. --- etc/ksh.kshrc    Mon Aug 10 22:00:08 1992
  175. ***************
  176. *** 15,22 ****
  177.   # SEE ALSO:
  178.   #    $HOME/.kshrc
  179.   #
  180.   # RCSid:
  181. ! #    $Id: ksh.kshrc,v 1.2 1992/04/27 07:09:28 sjg Exp $
  182.   #    @(#)Copyright (c) 1991 Simon J. Gerraty
  183.   #
  184.   #    This file is provided in the hope that it will
  185. --- 15,24 ----
  186.   # SEE ALSO:
  187.   #    $HOME/.kshrc
  188.   #
  189. + 
  190.   # RCSid:
  191. ! #    $Id: ksh.kshrc,v 1.3 1992/08/10 12:00:08 sjg Exp $
  192. ! #
  193.   #    @(#)Copyright (c) 1991 Simon J. Gerraty
  194.   #
  195.   #    This file is provided in the hope that it will
  196. ***************
  197. *** 40,52 ****
  198.       tty=`tty`
  199.       tty=`basename $tty`
  200.   
  201. !     set -o ${FCEDIT:-$EDITOR}
  202.   
  203.       # the PD ksh is not 100% compatible
  204.       case "$KSH_VERSION" in
  205.       *PD*)    # PD ksh
  206. !             bind ^?=delete-char-backward
  207. !             bind ^[^?=delete-word-backward
  208.           ;;
  209.       *)    # real ksh ?
  210.           ;;
  211. --- 42,64 ----
  212.       tty=`tty`
  213.       tty=`basename $tty`
  214.   
  215. !     set -o $EDITOR
  216.   
  217. +     alias ls='ls -CF'
  218. +     alias h='fc -l | more'
  219.       # the PD ksh is not 100% compatible
  220.       case "$KSH_VERSION" in
  221.       *PD*)    # PD ksh
  222. !         case "$TERM" in
  223. !         xterm*)
  224. !             # bind arrow keys
  225. !             bind '^[['=prefix-2
  226. !             bind '^XA'=up-history
  227. !             bind '^XB'=down-history
  228. !             bind '^XC'=forward-char
  229. !             bind '^XD'=backward-char
  230. !             ;;
  231. !         esac
  232.           ;;
  233.       *)    # real ksh ?
  234.           ;;
  235. ***************
  236. *** 53,60 ****
  237. --- 65,75 ----
  238.       esac
  239.       case "$TERM" in
  240.       sun*)
  241. +         # these are not as neat as their csh equivalents
  242.           if [ "$tty" != console ]; then
  243. +             # ilabel
  244.               ILS='\033]L'; ILE='\033\\'
  245. +             # window title bar
  246.               WLS='\033]l'; WLE='\033\\'
  247.           fi
  248.           ;;
  249. ***************
  250. *** 66,72 ****
  251.       esac
  252.       # do we want window decorations?
  253.       if [ "$ILS" ]; then
  254. !         wftp () { ilabel "ftp $*"; "ftp" $*; ilabel "$USER@$HOSTNAME"; }
  255.           wcd () { "cd" $*; eval stripe; }
  256.           ilabel () { print -n "${ILS}$*${ILE}"; }
  257.           label () { print -n "${WLS}$*${WLE}"; }
  258. --- 81,88 ----
  259.       esac
  260.       # do we want window decorations?
  261.       if [ "$ILS" ]; then
  262. !         wftp () { ilabel "ftp $*"; "ftp" $*; 
  263. !             ilabel "$USER@$HOSTNAME"; }
  264.           wcd () { "cd" $*; eval stripe; }
  265.           ilabel () { print -n "${ILS}$*${ILE}"; }
  266.           label () { print -n "${WLS}$*${WLE}"; }
  267. ***************
  268. *** 77,84 ****
  269.           eval ilabel "$USER@$HOSTNAME"
  270.           PS1=$PROMPT
  271.       fi
  272. -     alias ls='ls -CF'
  273. -     alias h='fc -l | more'
  274.       alias quit=exit
  275.       alias cls=clear
  276.       alias logout=exit
  277. --- 93,98 ----
  278. *** etc/profile.old    Tue May 12 13:42:00 1992
  279. --- etc/profile    Mon Aug 10 22:00:11 1992
  280. ***************
  281. *** 5,18 ****
  282.   # DESCRIPTION:
  283.   #    This file is processed during login by /bin/sh
  284.   #    and /bin/ksh.  It is used to setup the default user
  285. ! #    environment.  It is processed with root privs.
  286.   #
  287.   # SEE ALSO:
  288.   #    $HOME/.profile
  289.   #    /etc/ksh.kshrc
  290. ! #
  291.   # RCSid:
  292. ! #    $Id: profile,v 1.3 1992/05/03 08:28:27 sjg Exp $
  293.   #    @(#)Copyright (c) 1991 Simon J. Gerraty
  294.   #
  295.   #    This file is provided in the hope that it will
  296. --- 5,19 ----
  297.   # DESCRIPTION:
  298.   #    This file is processed during login by /bin/sh
  299.   #    and /bin/ksh.  It is used to setup the default user
  300. ! #    environment.
  301.   #
  302.   # SEE ALSO:
  303.   #    $HOME/.profile
  304.   #    /etc/ksh.kshrc
  305. ! 
  306.   # RCSid:
  307. ! #    $Id: profile,v 1.4 1992/08/10 12:00:11 sjg Exp $
  308. ! #
  309.   #    @(#)Copyright (c) 1991 Simon J. Gerraty
  310.   #
  311.   #    This file is provided in the hope that it will
  312. ***************
  313. *** 27,36 ****
  314.   *)    # do these once
  315.       _INIT_="$_INIT_"env
  316.       export _INIT_
  317. !     # sys_config.sh should set ARCH,OS,C,N,HOSTNAME,uname
  318. !     # we use these in lots of scripts...
  319. !     [ -f /etc/sys_config.sh ] && . /etc/sys_config.sh
  320.   
  321.       # pick one of the following for the default umask
  322.       # umask 002    # relaxed    -rwxrwxr-x
  323.       umask 022    # cautious    -rwxr-xr-x
  324. --- 28,56 ----
  325.   *)    # do these once
  326.       _INIT_="$_INIT_"env
  327.       export _INIT_
  328. !     case `echo -n ""` in
  329. !     -n*)
  330. !       _N_=""; _C_="\c";;
  331. !     *)
  332. !       _N_="-n"; _C_="";;
  333. !     esac
  334.   
  335. +     if [ -f /unix ]; then
  336. +           # System V
  337. +       [ -z "$TZ" -a -f /etc/TIMEZONE ] && . /etc/TIMEZONE
  338. + 
  339. +         set -- `who -r`
  340. +           case "$3" in
  341. +           S|5|0)    SINGLE=y;;
  342. +           *)    SINGLE=n;;
  343. +       esac
  344. +         # sys_config.sh should set ARCH,OS,C,N,HOSTNAME,uname
  345. +           # we use these in lots of scripts...
  346. +             [ "$SINGLE" = n -a -f /etc/sys_config.sh ] && . /etc/sys_config.sh
  347. +         else
  348. +           [ -f /etc/sys_config.sh ] && . /etc/sys_config.sh
  349. +           SINGLE=n        # doesn't matter so much
  350. +     fi
  351.       # pick one of the following for the default umask
  352.       # umask 002    # relaxed    -rwxrwxr-x
  353.       umask 022    # cautious    -rwxr-xr-x
  354. ***************
  355. *** 53,69 ****
  356.       case $OS in
  357.       SunOS)
  358.           # On sun's /bin -> /usr/bin so leave it out!
  359. !         PATH=.:/usr/bin:/usr/ucb:/usr/5bin
  360.           MANPATH=/usr/man
  361.           defterm=vt220
  362.           ;;
  363.       SCO-UNIX)
  364. !         PATH=.:/bin:/usr/bin:/usr/lbin:/usr/dbin:/usr/ldbin
  365.           MANPATH=/usr/man
  366.           defterm=ansi
  367.           ;;
  368.       B.O.S.)
  369. !         PATH=.:/bin:/usr/bin
  370.           if [ -d /usr/ucb ]; then
  371.               PATH=$PATH:/usr/ucb
  372.           fi
  373. --- 73,89 ----
  374.       case $OS in
  375.       SunOS)
  376.           # On sun's /bin -> /usr/bin so leave it out!
  377. !         PATH=/usr/bin:/usr/ucb:/usr/5bin:.
  378.           MANPATH=/usr/man
  379.           defterm=vt220
  380.           ;;
  381.       SCO-UNIX)
  382. !         PATH=/bin:/usr/bin:/usr/lbin:/usr/dbin:/usr/ldbin:.
  383.           MANPATH=/usr/man
  384.           defterm=ansi
  385.           ;;
  386.       B.O.S.)
  387. !         PATH=/bin:/usr/bin:.
  388.           if [ -d /usr/ucb ]; then
  389.               PATH=$PATH:/usr/ucb
  390.           fi
  391. ***************
  392. *** 73,79 ****
  393.           export SRC_COMPAT
  394.           ;;
  395.       *)
  396. !         PATH=.:/bin:/usr/bin
  397.           if [ -d /usr/ucb ]; then
  398.               PATH=$PATH:/usr/ucb
  399.           fi
  400. --- 93,99 ----
  401.           export SRC_COMPAT
  402.           ;;
  403.       *)
  404. !         PATH=/bin:/usr/bin:.
  405.           if [ -d /usr/ucb ]; then
  406.               PATH=$PATH:/usr/ucb
  407.           fi
  408. ***************
  409. *** 84,92 ****
  410.       if [ -d ${LOCAL}/bin ]; then
  411.           PATH=$PATH:${LOCAL}/bin
  412.       fi
  413. !     if [ -d $HOME/bin -a "$HOME" != / ]; then
  414. !         PATH=$PATH:$HOME/bin
  415. !     fi
  416.       if [ -d ${LOCAL}/man ]; then
  417.           MANPATH=$MANPATH:${LOCAL}/man
  418.       fi
  419. --- 104,121 ----
  420.       if [ -d ${LOCAL}/bin ]; then
  421.           PATH=$PATH:${LOCAL}/bin
  422.       fi
  423. !     case "$HOME" in
  424. !     /)    ;;
  425. !     ""|/tmp)
  426. !         echo "Using /tmp for HOME"
  427. !         HOME=/tmp; export HOME
  428. !         ;;
  429. !     *)
  430. !         if [ -d $HOME/bin ]; then
  431. !             PATH=$PATH:$HOME/bin
  432. !         fi
  433. !         ;;
  434. !     esac
  435.       if [ -d ${LOCAL}/man ]; then
  436.           MANPATH=$MANPATH:${LOCAL}/man
  437.       fi
  438. ***************
  439. *** 94,100 ****
  440.       LOGNAME=${LOGNAME:-`logname`}
  441.       USER=${USER:-$LOGNAME}
  442.   
  443. -     # this is adapted from my whoami.sh
  444.       # we expect id to produce output like:
  445.       # uid=100(sjg) gid=10(staff) groups=10(staff),...
  446.       S='('
  447. --- 123,128 ----
  448. ***************
  449. *** 101,107 ****
  450.       E=')'
  451.       GROUP=`id | cut -d= -f3 | \
  452.           sed -e "s;^[^${S}][^${S}]*${S}\([^${E}][^${E}]*\)${E}.*$;\1;"`
  453. ! 
  454.       # set some group specific defaults
  455.       case "$GROUP" in
  456.       staff)    # staff deal with things that non-staff 
  457. --- 129,136 ----
  458.       E=')'
  459.       GROUP=`id | cut -d= -f3 | \
  460.           sed -e "s;^[^${S}][^${S}]*${S}\([^${E}][^${E}]*\)${E}.*$;\1;"`
  461. !     UID=`id | cut -d= -f2 | \
  462. !                 sed -e "s;\([^${S}]*\)${S}.*;\1;"`
  463.       # set some group specific defaults
  464.       case "$GROUP" in
  465.       staff)    # staff deal with things that non-staff 
  466. ***************
  467. *** 120,125 ****
  468. --- 149,155 ----
  469.       export LOCAL TTY PATH LOGNAME USER
  470.   
  471.       if [ -t 1 ]; then
  472. +         # we are interactive
  473.           TTY=`tty`
  474.           TTY=`basename $TTY`
  475.           ORGANIZATION=""
  476. ***************
  477. *** 133,144 ****
  478.           PAGER=${PAGER:-more}
  479.           export MAIL EMACSDIR MANPATH MAILPATH PAGER
  480.   
  481.           EDITOR=emacs
  482. !         FCEDIT=${EDITOR}    
  483. ! 
  484. !         PROMPT="<$LOGNAME@$HOSTNAME>$ "
  485. !         PUBDIR=/usr/spool/uucppublic
  486. !         export PUBDIR 
  487.           [ -f /etc/profile.TeX ] && . /etc/profile.TeX
  488.       else
  489.           TTY=none
  490. --- 163,181 ----
  491.           PAGER=${PAGER:-more}
  492.           export MAIL EMACSDIR MANPATH MAILPATH PAGER
  493.   
  494. +         CVSROOT=${LOCAL}/src/master
  495.           EDITOR=emacs
  496. !         FCEDIT=$EDITOR
  497. !         export CVSROOT FCEDIT EDITOR
  498. ! #        EMACSLOADPATH=$EMACSDIR/lisp
  499. ! #        [ -d $LOCAL/lib/lisp ] && EMACSLOADPATH=$LOCAL/lib/lisp:$EMACSLOADPATH
  500. ! #        [ -d $HOME/lisp ] && EMACSLOADPATH=$HOME/lisp:$EMACSLOADPATH
  501. !         case $UID in 
  502. !         0)    PROMPT="<$LOGNAME@$HOSTNAME># ";;
  503. !         *)    PROMPT="<$LOGNAME@$HOSTNAME>$ ";;
  504. !         esac
  505. ! #        PUBDIR=/usr/spool/uucppublic
  506. ! #        export PUBDIR EMACSLOADPATH
  507.           [ -f /etc/profile.TeX ] && . /etc/profile.TeX
  508.       else
  509.           TTY=none
  510. ***************
  511. *** 149,155 ****
  512.           # we are Korn shell
  513.           SHELL=/bin/ksh
  514.           ENV=${HOME%/}/.kshrc
  515. !         PROMPT="<$LOGNAME@$HOSTNAME:!>$ "
  516.           export HISTSIZE HISTFILE ENV
  517.           CDPATH=.:$HOME
  518.           if [ "$TMOUT" ]; then
  519. --- 186,197 ----
  520.           # we are Korn shell
  521.           SHELL=/bin/ksh
  522.           ENV=${HOME%/}/.kshrc
  523. !         HISTFILE=${HOME%/}/.ksh_hist
  524. !         case $UID in
  525. !         0)
  526. !             PROMPT="<$LOGNAME@$HOSTNAME:!># ";;
  527. !         *)    PROMPT="<$LOGNAME@$HOSTNAME:!>$ ";;
  528. !         esac
  529.           export HISTSIZE HISTFILE ENV
  530.           CDPATH=.:$HOME
  531.           if [ "$TMOUT" ]; then
  532. ***************
  533. *** 159,166 ****
  534.           SHELL=/bin/sh
  535.       fi
  536.       PS1=$PROMPT
  537. !     export SHELL PS1 EDITOR PATH PROMPT HOSTNAME CDPATH FCEDIT
  538. ! 
  539.   ;;
  540.   esac
  541.   
  542. --- 201,207 ----
  543.           SHELL=/bin/sh
  544.       fi
  545.       PS1=$PROMPT
  546. !     export SHELL PS1 EDITOR PATH PROMPT HOSTNAME CDPATH
  547.   ;;
  548.   esac
  549.   
  550. ***************
  551. *** 168,192 ****
  552.   case "$_INIT_" in
  553.   *log*) ;;
  554.   *)    _INIT_="$_INIT_"log
  555. ! 
  556. !     if [ $TTY != none -a "$0" != "-su" -a "$LOGNAME" = "`logname`" -a ! -f ~/.hushlogin ]
  557.       then
  558. !         case $TERM in
  559. !         network|unknown|dialup|"") 
  560. !             echo $N "Enter terminal type [$defterm]: $C" 1>&2
  561. !             read tmpterm
  562. !             TERM=${tmpterm:-$defterm}
  563.               ;;
  564.           esac
  565. !         # set up desired tty modes
  566. !         stty intr '^c'
  567.           case $TERM in
  568. !         wy50)    stty erase '^h';;
  569. !         *)    stty erase '^?';;
  570.           esac
  571. -         # welcome first time users
  572. -         [ -r ${LOCAL}/etc/1stlogin.ann -a ! -f $HOME/... ] && \
  573. -             . ${LOCAL}/etc/1stlogin.ann
  574.           # not all of the following are appropriate at all sites
  575.           # Sun's don't need to cat /etc/motd for instance
  576.           case "$OS" in
  577. --- 209,237 ----
  578.   case "$_INIT_" in
  579.   *log*) ;;
  580.   *)    _INIT_="$_INIT_"log
  581. !     case "$SINGLE" in
  582. !     y)    ;;
  583. !     *)
  584. !     if [ TTY != none -a "$0" != "-su" -a "$LOGNAME" = "`logname`" -a ! -f ~/.hushlogin ]
  585.       then
  586. !         case $OS in
  587. !         B.O.S.)
  588. !             case $TTY in
  589. !             ttyp*)    stty sane    # problems with telnetd
  590. !                 ;;
  591. !             esac
  592.               ;;
  593.           esac
  594. !         # ensure known state
  595. !         stty isig icanon intr '^c' erase '^h' kill '^u' eof '^d' 
  596. !         mesg y
  597.           case $TERM in
  598. !         network|unknown|dialup|"") 
  599. !           echo ${_N_} "Enter terminal type [$defterm]: ${_C_}" 1>&2
  600. !           read tmpterm
  601. !           TERM=${tmpterm:-$defterm}
  602. !           ;;
  603.           esac
  604.           # not all of the following are appropriate at all sites
  605.           # Sun's don't need to cat /etc/motd for instance
  606.           case "$OS" in
  607. ***************
  608. *** 211,217 ****
  609.               [ -x /usr/bin/news ] && /usr/bin/news -n
  610.               ;;
  611.           esac
  612. !         [ -x /usr/games/fortune ] && /usr/games/fortune -a
  613.           # remind folk who turned on reply.pl to turn it off.
  614.           if [ -f $HOME/.forward ]; then
  615.               echo "Your mail is being forwarded to:"
  616. --- 256,262 ----
  617.               [ -x /usr/bin/news ] && /usr/bin/news -n
  618.               ;;
  619.           esac
  620. ! #        [ -x /usr/games/fortune ] && /usr/games/fortune -a
  621.           # remind folk who turned on reply.pl to turn it off.
  622.           if [ -f $HOME/.forward ]; then
  623.               echo "Your mail is being forwarded to:"
  624. ***************
  625. *** 221,230 ****
  626.               fi
  627.           fi
  628.       fi
  629. !     unset tmpterm defterm C N
  630. !     TERM=${TERM:-unknown}
  631.       export TERM TTY
  632.   ;;
  633.   esac
  634.   # Handle X-terminals if necessary
  635. ! [ -f /etc/profile.X11 ] && . /etc/profile.X11
  636. --- 266,278 ----
  637.               fi
  638.           fi
  639.       fi
  640. !     unset tmpterm defterm C N _C_ _N_
  641. !     esac
  642. !     case "$TERM" in
  643. !     network|unknown|"")    TERM=vt100;;
  644. !     esac
  645.       export TERM TTY
  646.   ;;
  647.   esac
  648.   # Handle X-terminals if necessary
  649. ! [ "$SINGLE" = n -a -f /etc/profile.X11 ] && . /etc/profile.X11
  650. *** etc/sys_config.sh.old    Tue May 12 13:42:00 1992
  651. --- etc/sys_config.sh    Mon Aug 10 22:00:14 1992
  652. ***************
  653. *** 14,29 ****
  654.   #
  655.   # SEE ALSO:
  656.   #    /etc/profile
  657.   #
  658. - # AMENDED:
  659. - #    91/11/05 22:09:08 (rook)
  660. - #
  661. - # RELEASED:
  662. - #    91/11/05 22:09:09 v1.3
  663. - #
  664. - # SCCSID:
  665. - #    @(#)sys_config.sh 1.3 91/11/05 22:09:08 (rook)
  666. - #
  667.   #    @(#)Copyright (c) 1991 Simon J. Gerraty
  668.   #
  669.   #    This file is provided in the hope that it will
  670. --- 14,23 ----
  671.   #
  672.   # SEE ALSO:
  673.   #    /etc/profile
  674. + 
  675. + # RCSid:
  676. + #    $Id: sys_config.sh,v 1.2 1992/08/10 12:00:14 sjg Exp $
  677.   #
  678.   #    @(#)Copyright (c) 1991 Simon J. Gerraty
  679.   #
  680.   #    This file is provided in the hope that it will
  681. ***************
  682. *** 57,68 ****
  683.   OS=${OS:-`eval $uname -s`}
  684.   HOSTNAME=${HOSTNAME:-`eval $uname -n`}
  685.   
  686. ! # set which ever is required to not produce a linefeed 
  687. ! # in an echo(1)
  688. ! case $OS in
  689. ! SunOS)    C="\c"; N="";
  690. !     ;;
  691. ! *)    C="\c"; N=""
  692. !     ;;
  693.   esac
  694. ! export OS ARCH HOSTNAME C N uname
  695. --- 51,60 ----
  696.   OS=${OS:-`eval $uname -s`}
  697.   HOSTNAME=${HOSTNAME:-`eval $uname -n`}
  698.   
  699. ! case `echo -n ""` in
  700. ! -n*)    _C_=""; _N_="-n";;
  701. ! *)    _C_="\c"; _N_="";;
  702.   esac
  703. ! N="${_N_}"
  704. ! C="${_C_}"
  705. ! export OS ARCH HOSTNAME uname
  706. *** ksh.1.old    Tue May 12 13:42:00 1992
  707. --- ksh.1    Mon Aug 10 21:59:15 1992
  708. ***************
  709. *** 1,10 ****
  710. ! .\" $Id: ksh.1,v 1.1 1992/05/02 13:26:52 sjg Exp $
  711.   .nr OJ 1 \" Job Control
  712.   .nr OE 1 \" Command Editing
  713.   .nr OB 1 \" BSD enhanced ulimit options
  714.   .ds OK [\|
  715.   .ds CK \|]
  716. ! .TH KSH 1 "April 1992"
  717.   .SH NAME
  718.   ksh \- Bourne / Korn Shell (Public Domain)
  719.   .SH SYNOPSIS
  720. --- 1,10 ----
  721. ! .\" $Id: ksh.1,v 1.2 1992/08/10 11:59:15 sjg Exp $
  722.   .nr OJ 1 \" Job Control
  723.   .nr OE 1 \" Command Editing
  724.   .nr OB 1 \" BSD enhanced ulimit options
  725.   .ds OK [\|
  726.   .ds CK \|]
  727. ! .TH KSH 1 "July 1992"
  728.   .SH NAME
  729.   ksh \- Bourne / Korn Shell (Public Domain)
  730.   .SH SYNOPSIS
  731. ***************
  732. *** 43,48 ****
  733. --- 43,49 ----
  734.   .S "\fB(\fP list \fB)\fP"
  735.   .S "\fB{\fP list \fB;\fP \fB}\fP"
  736.   .S "\fBfor\fP name { \fBin\fP { word }* }? \fBdo\fP list \fB;\fP \fBdone\fP"
  737. + .S "\fBselect\fP name { \fBin\fP { word }* }? \fBdo\fP list \fB;\fP \fBdone\fP"
  738.   .S "{ \fBwhile\fP | \fBuntil\fP } list \fB;\fP \fBdo\fP list \fB;\fP \fBdone\fP"
  739.   .S "\fBif\fP list \fB;\fP \fBthen\fP list \fB;\fP { \fBelif\fP list \fB;\fP \fBthen\fP list \fB;\fP }* { \fBelse\fP list \fB;\fP }?\fBfi\fP"
  740.   .S "\fBcase\fP name \fBin\fP { \fB(\fP word { \fB|\fP word } \fB)\fP list \fB;;\fP }* \fBesac\fP"
  741. ***************
  742. *** 64,69 ****
  743. --- 65,84 ----
  744.   .S "pipe \fB||\fP cond"
  745.   .IP pipe:
  746.   .S "statement { \fB|\fP statement }*"
  747. + .SS The select statement
  748. + The \fBselect\fP statement provides an automatic method of presenting the
  749. + user with a menu selection from several options.
  750. + The \fIwords\fP given in the list are printed on standard error, each
  751. + preceded by a number.
  752. + Typing the number on standard input sets the variable \fIname\fP to the
  753. + word that was selected.
  754. + The data that was typed is preserved in a variable called REPLY.
  755. + The contents of the loop are then executed using the selected value.
  756. + A new prompt PS3 is used to indicate that a number should be typed in
  757. + to choose a value from the menu.
  758. + .LP
  759. + Menus will continue to be presented until an interrupt is received or
  760. + end-of-file is typed on input.
  761.   .SS Alias expansion
  762.   Alias expansion occurs when the first word of a
  763.   statement is a defined alias,
  764. ***************
  765. *** 70,75 ****
  766. --- 85,99 ----
  767.   except when that alias is already being expanded.
  768.   It also occurs after the expansion of an alias whose
  769.   definition ends with a space.
  770. + .SS Alternation
  771. + Csh provides a filename expansion method known as alternation.
  772. + This has been added into this version of ksh.
  773. + When performing filename subsitution, you can get the shell to create
  774. + a set of strings for you. For example, `exampl{a,b,c,d,e}' will expand
  775. + to ``exampla examplb examplc exampld example''.
  776. + A comma separated set of strings in curly braces 
  777. + will be expanded into a set of strings that are passed into the command.
  778. + The strings are not sorted.
  779.   .SS Shell variables
  780.   The following standard special variables exist:
  781.   \fB!\fP, \fB#\fP, \fB$\fP, \fB\-\fP, \fB?\fP.
  782. ***************
  783. *** 91,101 ****
  784.   \fBEDITOR\fP and finally \fBVISUAL\fP to try and determin what
  785.   command line edit mode to use.  Note that this is not strictly
  786.   ksh compatible behaviour.
  787.   .IP IFS
  788.   \fIInternal field separator\fP,
  789.   used during substitution and the \fIread\fP command.
  790. - .IP HOME
  791. - The default directory for the \fIcd\fP command.
  792.   .IP MAIL
  793.   If set, the user will be informed of the arrival of mail
  794.   in the named file.  This variable is ignored if
  795. --- 115,134 ----
  796.   \fBEDITOR\fP and finally \fBVISUAL\fP to try and determin what
  797.   command line edit mode to use.  Note that this is not strictly
  798.   ksh compatible behaviour.
  799. + .IP COLUMNS
  800. + The width to use for the commandline editing (emacs mode only).
  801. + .IP HISTFILE
  802. + The name of the file used to store history.
  803. + If defined, history will be loaded from this file on startup.
  804. + Also, several invocations of the shell running on the same machine
  805. + will share history if their HISTFILE variables all point at the same file.
  806. + .IP HISTSIZE
  807. + The number of commands normally stored for history, default 128.
  808. + .IP HOME
  809. + The default directory for the \fIcd\fP command.
  810.   .IP IFS
  811.   \fIInternal field separator\fP,
  812.   used during substitution and the \fIread\fP command.
  813.   .IP MAIL
  814.   If set, the user will be informed of the arrival of mail
  815.   in the named file.  This variable is ignored if
  816. ***************
  817. *** 129,146 ****
  818.   The number of seconds since the shell timer was started or
  819.   reset.  Assigning an integer value to this variable resets
  820.   the timer.
  821. - .IP COLUMNS
  822. - The width to use for the commandline editing (emacs mode only).
  823. - .IP HISTFILE
  824. - The name of the file to read initial history from.  The default
  825. - is "\fB$HOME/.pdksh_hist\fP".  When the shell exits it will
  826. - overwrite this file with its current history.  This behaviour
  827. - will almost certainly cause grief when multiple shells are being
  828. - run by the same user.  Making the file read-only will allow each
  829. - shell to start with a set history and avoid overwriting the
  830. - file.
  831. - .IP HISTSIZE
  832. - The number of history items to save in \fBHISTFILE\fP.
  833.   .SS Substitution
  834.   In addition to the System Vr2 substitutions,
  835.   the following are available.
  836. --- 162,167 ----
  837. ***************
  838. *** 495,503 ****
  839.   .br
  840.   bind '^XC'=forward-char
  841.   .br
  842. ! bind '^XC'=backward-char
  843.   .br
  844. ! will bind the arrow keys on an ANSI terminal.  Of course some escape
  845.   sequences won't work out quite that nicely.
  846.   .TP
  847.   \fBbind -m\fP \*(OK \fIstring\fP \*(CK = \*(OK \fIsubstitute\fP \*(CK
  848. --- 516,524 ----
  849.   .br
  850.   bind '^XC'=forward-char
  851.   .br
  852. ! bind '^XD'=backward-char
  853.   .br
  854. ! will bind the arrow keys on an ANSI terminal, or xterm.  Of course some escape
  855.   sequences won't work out quite that nicely.
  856.   .TP
  857.   \fBbind -m\fP \*(OK \fIstring\fP \*(CK = \*(OK \fIsubstitute\fP \*(CK
  858. ***************
  859. *** 809,819 ****
  860.   .LP
  861.   System V and Korn modifications by Eric Gisin,
  862.   with contributions by
  863. ! Ron Natalie, Arnold Robbins, Doug Gwyn, Erik Baalbergen, 
  864. ! AT&T\ (getopt(3)), John McMillan and Simon Gerraty.
  865. ! 
  866.   .SH DIFFERENCES FROM AT&T VERSION
  867. ! The \fBselect\fP statement is not implemented.
  868.   Variable arrays are not implemented.
  869.   Variable attributes other than integer are not implemented.
  870.   The \fBERR\fP and \fBEXIT\fP traps are not implemented for functions.
  871. --- 830,839 ----
  872.   .LP
  873.   System V and Korn modifications by Eric Gisin,
  874.   with contributions by
  875. ! Ron Natalie, Arnold Robbins, Doug Gwyn, Erik Baalbergen, AT&T (getopt(3)),
  876. ! John McMillan, Simon Gerraty and Peter Collinson.
  877.   .SH DIFFERENCES FROM AT&T VERSION
  878. ! Csh-style alternations are implemented.
  879.   Variable arrays are not implemented.
  880.   Variable attributes other than integer are not implemented.
  881.   The \fBERR\fP and \fBEXIT\fP traps are not implemented for functions.
  882. *** sh/ChangeLog.old    Tue May 12 13:42:00 1992
  883. --- sh/ChangeLog    Mon Aug 10 22:02:13 1992
  884. ***************
  885. *** 1,3 ****
  886. --- 1,28 ----
  887. + Mon Aug  3 22:41:17 1992  Simon J. Gerraty  (sjg@zen)
  888. + 
  889. +     * emacs.c: correctly bind <ESC><erase>.
  890. +     * var.c: treat COLUMNS and FCEDIT as special.
  891. + 
  892. + Sat Aug  1 17:17:02 1992  Simon J. Gerraty  (sjg@zen)
  893. + 
  894. +     * Incorporated massive contribution from Peter Collinson
  895. +     includes new features (refer to ../Changes.pc) and support for
  896. +     BSDI's BSD/386.
  897. + 
  898. +     * emacs.c: new command complete-list provided by
  899. +     Neil.Smithline@eng.sun.com this nicer than the standard ksh
  900. +     file completion.  Define COMPLETE_LIST to bind this to <ESC><ESC>
  901. +     by default.
  902. + 
  903. + Sat May 30 15:44:56 1992  Simon J. Gerraty  (sjg@zen)
  904. + 
  905. +     * added flag XXWHL in tree.h, used by execute() when calling
  906. +     exchild() to indicate that stdin should not be invalidated.  This
  907. +     corrects handling of:  
  908. +          ls | while read f; do ls -l $f; done
  909. + 
  910. +     Thanks to Bruce Momjian for tracking down the fault.
  911. + 
  912.   Tue May 12 19:23:17 1992  Simon J. Gerraty  (sjg@zen)
  913.   
  914.       * Fix bug in init_editmode() if EMACS and VI are not both defined.
  915. *** sh/Makefile.old    Tue May 12 13:42:00 1992
  916. --- sh/Makefile    Mon Aug 10 22:02:18 1992
  917. ***************
  918. *** 1,5 ****
  919.   # PD Bourne/Korn Shell
  920. ! # $Id: Makefile,v 1.2 1992/04/25 08:33:03 sjg Exp $
  921.   
  922.   SHELL = /bin/sh
  923.   MAKE  = make
  924. --- 1,5 ----
  925.   # PD Bourne/Korn Shell
  926. ! # $Id: Makefile,v 1.3 1992/08/10 12:02:18 sjg Exp $
  927.   
  928.   SHELL = /bin/sh
  929.   MAKE  = make
  930. ***************
  931. *** 48,57 ****
  932.   # XOPTS=
  933.   # XOBJS=
  934.   #
  935.   
  936.   #CONFIG= -D_SYSV
  937.   #CONFIG= -D_BSD -DHAVE_SYS_STDTYPES
  938. ! CONFIG= -D_BSD
  939.   
  940.   
  941.   STD=../std
  942. --- 48,61 ----
  943.   # XOPTS=
  944.   # XOBJS=
  945.   #
  946. + # BSD/386
  947. + # CONFIG= -D_BSDI -D_POSIX_TERM -D_POSIX_SOURCE
  948. + # XOPTS=
  949. + # XOBJS=
  950.   
  951.   #CONFIG= -D_SYSV
  952.   #CONFIG= -D_BSD -DHAVE_SYS_STDTYPES
  953. ! CONFIG= -D_BSD -DCOMPLEX_HISTORY
  954.   
  955.   
  956.   STD=../std
  957. *** sh/config.h.old    Tue May 12 13:42:00 1992
  958. --- sh/config.h    Mon Aug 10 22:02:20 1992
  959. ***************
  960. *** 1,7 ****
  961.   /*
  962.    * Configuration file for the PD ksh
  963.    *
  964. !  * RCSid: $Id: config.h,v 1.3 1992/05/03 08:28:59 sjg Exp $
  965.    */
  966.   
  967.   #ifndef    _CONFIG_H
  968. --- 1,7 ----
  969.   /*
  970.    * Configuration file for the PD ksh
  971.    *
  972. !  * RCSid: $Id: config.h,v 1.4 1992/08/10 12:02:20 sjg Exp $
  973.    */
  974.   
  975.   #ifndef    _CONFIG_H
  976. ***************
  977. *** 49,52 ****
  978. --- 49,67 ----
  979.   /* #define    SILLY            /* Game of life in EMACS mode */
  980.   /* #define    SWTCH            /* Handle SWTCH for shl(1) */
  981.   
  982. + #define COMPLETE_LIST            /* default to Emacs style completion */
  983. + /*
  984. +  * ALTERNATIONS is csh not ksh, but it is such a nice feature...
  985. +  */
  986. + #define ALTERNATIONS            /* csh {a,b,c} arg expansion */
  987. + 
  988. + /* #define COMPLEX_HISTORY            /* Peter Collinson's history */
  989. + /*
  990. +  * if you don't have mmap() you can't use Peter Collinson's history
  991. +  * mechanism.  If that is the case, then define EASY_HISTORY
  992. +  */
  993. + #if !defined(COMPLEX_HISTORY) || defined(NO_MMAP)
  994. + # define EASY_HISTORY            /* sjg's trivial history file */
  995. + #endif
  996. +   
  997.   #endif    /* _CONFIG_H */
  998. *** sh/edit.c.old    Tue May 12 13:42:00 1992
  999. --- sh/edit.c    Mon Aug 10 22:02:25 1992
  1000. ***************
  1001. *** 7,13 ****
  1002.   #if defined(EMACS) || defined(VI)
  1003.   
  1004.   #ifndef lint
  1005. ! static char *RCSid = "$Id: edit.c,v 1.4 1992/05/12 09:30:31 sjg Exp $";
  1006.   #endif
  1007.   
  1008.   #include "stdh.h"
  1009. --- 7,13 ----
  1010.   #if defined(EMACS) || defined(VI)
  1011.   
  1012.   #ifndef lint
  1013. ! static char *RCSid = "$Id: edit.c,v 1.5 1992/08/10 12:02:25 sjg Exp $";
  1014.   #endif
  1015.   
  1016.   #include "stdh.h"
  1017. ***************
  1018. *** 48,54 ****
  1019.     {
  1020.       setup_done = 42;        /* these get done once only */
  1021.       x_do_init = 1;
  1022. -     x_cols = 80;
  1023.       x_col = 0;
  1024.       ed_erase = -1, ed_kill = -1, ed_werase = -1, ed_intr = -1, ed_quit = -1;
  1025.       x_adj_ok = 1;
  1026. --- 48,53 ----
  1027. ***************
  1028. *** 212,219 ****
  1029. --- 211,222 ----
  1030.   #endif
  1031.   #endif
  1032.   #else
  1033. + #ifdef _POSIX_TERM
  1034. + static    struct termios cb, cborig;
  1035. + #else
  1036.   static    struct termio cb, cborig;
  1037.   #endif
  1038. + #endif
  1039.   
  1040.   /* initialize editing mode */
  1041.   void
  1042. ***************
  1043. *** 261,267 ****
  1044. --- 264,274 ----
  1045.   #endif
  1046.   #endif
  1047.   #else /* !_BSD */
  1048. + #ifdef _POSIX_TERM
  1049. +     (void) tcgetattr(ttyfd, &cborig);
  1050. + #else
  1051.       (void)ioctl(ttyfd, TCGETA, &cborig);
  1052. + #endif
  1053.       if ((cborig.c_lflag & ECHO) == 0)
  1054.           x_noecho = 1;
  1055.       cb = cborig;
  1056. ***************
  1057. *** 347,352 ****
  1058. --- 354,362 ----
  1059.       x_cur_mode = onoff;
  1060.   
  1061.       if (onoff)  {
  1062. + #ifdef _POSIX_TERM
  1063. +         (void) tcsetattr(ttyfd, TCSADRAIN, &cb);
  1064. + #else
  1065.   #ifndef TCSETAW                /* e.g. Cray-2 */
  1066.           /* first wait for output to drain */
  1067.   #ifdef TCSBRK
  1068. ***************
  1069. *** 361,368 ****
  1070. --- 371,382 ----
  1071.   #else
  1072.           (void)ioctl(ttyfd, TCSETAW, &cb);
  1073.   #endif
  1074. + #endif
  1075.       }
  1076.       else {
  1077. + #ifdef _POSIX_TERM
  1078. +         (void) tcsetattr(ttyfd, TCSADRAIN, &cborig);
  1079. + #else
  1080.   #ifndef TCSETAW                /* e.g. Cray-2 */
  1081.           /* first wait for output to drain */
  1082.   #ifdef TCSBRK
  1083. ***************
  1084. *** 378,383 ****
  1085. --- 392,398 ----
  1086.   #else
  1087.           (void)ioctl(ttyfd, TCSETAW, &cborig);
  1088.   #endif
  1089. + #endif
  1090.       }
  1091.       return prev;
  1092.   }
  1093. ***************
  1094. *** 436,470 ****
  1095.   {
  1096.     static char *ev[] = { "FCEDIT", "EDITOR", "VISUAL", NULL };
  1097.     register int i;
  1098. !   register char *rcp, *rcp2;
  1099.   
  1100.     for (i = 0; ev[i]; i++)
  1101.     {
  1102. !     if ((rcp = getenv(ev[i])) && *rcp)
  1103.         break;
  1104.     }
  1105.     if (ev[i] && rcp)
  1106.     {
  1107. !     if (rcp2 = strrchr(rcp, '/'))
  1108. !       rcp = ++rcp2;
  1109.   #ifdef EMACS
  1110. !     if (strstr(rcp, "emacs"))
  1111. !     {
  1112. !       flag[FVI] = 0;
  1113. !       flag[FEMACS] = 1;
  1114. !     }
  1115.   #endif
  1116.   #if defined(EMACS) && defined(VI)
  1117. !     else
  1118.   #endif
  1119.   #ifdef VI
  1120. !       if (strstr(rcp, "vi"))
  1121. !       {
  1122. !     flag[FVI] = 1;
  1123. !     flag[FEMACS] = 0;
  1124. !       }
  1125.   #endif
  1126. -   }
  1127. -   return 0;
  1128.   }
  1129.   #endif
  1130. --- 451,500 ----
  1131.   {
  1132.     static char *ev[] = { "FCEDIT", "EDITOR", "VISUAL", NULL };
  1133.     register int i;
  1134. !   register char *rcp;
  1135.   
  1136.     for (i = 0; ev[i]; i++)
  1137.     {
  1138. ! #ifdef DEBUG
  1139. !     (void) fprintf(stderr, "check %s\n", ev[i]);
  1140. ! #endif
  1141. !     if ((rcp = strval(global(ev[i]))) && *rcp)
  1142.         break;
  1143.     }
  1144.     if (ev[i] && rcp)
  1145.     {
  1146. !     set_editmode(rcp);
  1147. !   }
  1148. !   return 0;
  1149. ! }
  1150. ! 
  1151. ! void
  1152. ! set_editmode(ed)
  1153. !   char *ed;
  1154. ! {
  1155. !   register char *rcp;
  1156. !   
  1157. ! #ifdef DEBUG
  1158. !   (void) fprintf(stderr, "set_editmode(%s)\n", ed);
  1159. ! #endif
  1160. !   if (rcp = strrchr(ed, '/'))
  1161. !     ed = ++rcp;
  1162.   #ifdef EMACS
  1163. !   if (strstr(ed, "emacs"))
  1164. !   {
  1165. !     flag[FVI] = 0;
  1166. !     flag[FEMACS] = 1;
  1167. !   }
  1168.   #endif
  1169.   #if defined(EMACS) && defined(VI)
  1170. !   else
  1171.   #endif
  1172.   #ifdef VI
  1173. !     if (strstr(ed, "vi"))
  1174. !     {
  1175. !       flag[FVI] = 1;
  1176. !       flag[FEMACS] = 0;
  1177. !     }
  1178.   #endif
  1179.   }
  1180.   #endif
  1181. *** sh/edit.h.old    Tue May 12 13:42:00 1992
  1182. --- sh/edit.h    Mon Aug 10 22:02:28 1992
  1183. ***************
  1184. *** 8,14 ****
  1185.    *      
  1186.    *
  1187.    * RCSid:
  1188. !  *      $Id: edit.h,v 1.2 1992/04/25 08:33:28 sjg Exp $
  1189.    *
  1190.    */
  1191.   
  1192. --- 8,14 ----
  1193.    *      
  1194.    *
  1195.    * RCSid:
  1196. !  *      $Id: edit.h,v 1.3 1992/08/10 12:02:28 sjg Exp $
  1197.    *
  1198.    */
  1199.   
  1200. ***************
  1201. *** 39,45 ****
  1202.    */
  1203.   EXTERN int    x_adj_done;
  1204.   
  1205. ! EXTERN int    x_cols;
  1206.   EXTERN int    x_col;
  1207.   EXTERN int    x_displen;
  1208.   EXTERN int    x_arg;        /* general purpose arg */
  1209. --- 39,45 ----
  1210.    */
  1211.   EXTERN int    x_adj_done;
  1212.   
  1213. ! EXTERN int    x_cols _I_(80);    /* default to 80 cols */
  1214.   EXTERN int    x_col;
  1215.   EXTERN int    x_displen;
  1216.   EXTERN int    x_arg;        /* general purpose arg */
  1217. *** sh/emacs.c.old    Tue May 12 13:42:00 1992
  1218. --- sh/emacs.c    Mon Aug 10 22:02:31 1992
  1219. ***************
  1220. *** 10,16 ****
  1221.   #ifdef EMACS
  1222.   
  1223.   #ifndef lint
  1224. ! static char *RCSid = "$Id: emacs.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  1225.   #endif
  1226.   
  1227.   #include "stdh.h"
  1228. --- 10,16 ----
  1229.   #ifdef EMACS
  1230.   
  1231.   #ifndef lint
  1232. ! static char *RCSid = "$Id: emacs.c,v 1.3 1992/08/10 12:02:31 sjg Exp $";
  1233.   #endif
  1234.   
  1235.   #include "stdh.h"
  1236. ***************
  1237. *** 150,155 ****
  1238. --- 150,156 ----
  1239.   static int      x_enumerate ARGS((int c));
  1240.   static int      x_comp_file ARGS((int c));
  1241.   static int      x_list_file ARGS((int c));
  1242. + static int      x_comp_list ARGS((int c));
  1243.   static void     compl_dec   ARGS((int type));
  1244.   static void     compl_file  ARGS((int type));
  1245.   static void     compl_command ARGS((int type));
  1246. ***************
  1247. *** 202,208 ****
  1248. --- 203,215 ----
  1249.       {x_stuff,     "stuff",        0,     0,    0 },
  1250.       {x_transpose,    "transpose-chars",    0, CTRL('T'),    0 },
  1251.   #endif
  1252. + #ifdef COMPLETE_LIST
  1253. +     {x_complete,    "complete",        1,     0,    0 },
  1254. +      {x_comp_list,    "complete-list",    1, CTRL('['),    0 },
  1255. + #else
  1256.       {x_complete,    "complete",        1, CTRL('['),    0 },
  1257. +      {x_comp_list,    "complete-list",    1,      0,    0 },
  1258. + #endif
  1259.       {x_enumerate,    "list",            1,    '?',    0 },
  1260.       {x_comp_file,    "complete-file",    1, CTRL('X'),    0 },
  1261.       {x_comp_comm,    "complete-command",    2, CTRL('['),    0 },
  1262. ***************
  1263. *** 275,285 ****
  1264.           x_nextcmdp = NULL;
  1265.       }
  1266.   
  1267. -     /* <sjg@sun0> this may not be correct */
  1268. -     if ((i = atoi(strval(global("COLUMNS")))) > 0)
  1269. -       x_cols = i;
  1270. -     else
  1271. -       x_cols = 80;
  1272.       x_col = promptlen(prompt);
  1273.       x_adj_ok = 1;
  1274.       x_displen = x_cols - 2 - x_col;
  1275. --- 282,287 ----
  1276. ***************
  1277. *** 1219,1224 ****
  1278. --- 1221,1227 ----
  1279.       x_tab[0][werase] = xft_werase;
  1280.       x_tab[0][intr] = xft_intr;
  1281.       x_tab[0][quit] = xft_quit;
  1282. +     x_tab[1][erase] = xft_werase;
  1283.   }
  1284.   
  1285.   static int
  1286. ***************
  1287. *** 1448,1460 ****
  1288.       compl_file(0);
  1289.       return KSTD;
  1290.   }
  1291.   
  1292. ! static void
  1293. ! compl_dec(type)
  1294. ! {
  1295. !     char    *cp;
  1296. !     cp = xcp;
  1297. ! 
  1298.       while (cp != xbuf && !iscfs(*cp))
  1299.           cp--;
  1300.       if (cp == xbuf && strchr(cp, '/') == NULL)
  1301. --- 1451,1463 ----
  1302.       compl_file(0);
  1303.       return KSTD;
  1304.   }
  1305. + static int
  1306. + x_comp_list(c)   {
  1307. +     compl_dec(2);
  1308. +     return KSTD;
  1309. + }
  1310.   
  1311. ! static void compl_dec(type) {     char    *cp;     cp = xcp; 
  1312.       while (cp != xbuf && !iscfs(*cp))
  1313.           cp--;
  1314.       if (cp == xbuf && strchr(cp, '/') == NULL)
  1315. ***************
  1316. *** 1478,1483 ****
  1317. --- 1481,1487 ----
  1318.       int    len;
  1319.       int    multi = 0;
  1320.   
  1321. +     /* type == 0 for list, 1 for complete and 2 for complete-list */
  1322.       str = xcp;
  1323.       cp = buf;
  1324.       xp = str;
  1325. ***************
  1326. *** 1492,1501 ****
  1327.           xp++;
  1328.       while (*xp == '<' || *xp == '>')
  1329.           xp++;
  1330. !     if (type)
  1331.           while (*xcp && !iscfs(*xcp))
  1332.               x_zotc(*xcp++);
  1333. !     else {
  1334.           x_maxlen = 0;
  1335.           XPinit(words, 16);
  1336.       }
  1337. --- 1496,1506 ----
  1338.           xp++;
  1339.       while (*xp == '<' || *xp == '>')
  1340.           xp++;
  1341. !     if (type) {            /* for complete */
  1342.           while (*xcp && !iscfs(*xcp))
  1343.               x_zotc(*xcp++);
  1344. !     }
  1345. !     if (type != 1) {        /* for list */
  1346.           x_maxlen = 0;
  1347.           XPinit(words, 16);
  1348.       }
  1349. ***************
  1350. *** 1526,1534 ****
  1351.           cp = dp->d_name;
  1352.           if (cp[0] == '.' &&
  1353.               (cp[1] == '\0' || (cp[1] == '.' && cp[2] == '\0')))
  1354. !             continue; /* always ignore . and .. */
  1355. !         if (strncmp(lastp, cp, len) == 0)
  1356. !             if (type)  {
  1357.                   if (loc == -1)  {
  1358.                       (void)strcpy(bug, cp);
  1359.                       loc = strlen(cp);
  1360. --- 1531,1539 ----
  1361.           cp = dp->d_name;
  1362.           if (cp[0] == '.' &&
  1363.               (cp[1] == '\0' || (cp[1] == '.' && cp[2] == '\0')))
  1364. !             continue;    /* always ignore . and .. */
  1365. !         if (strncmp(lastp, cp, len) == 0) {
  1366. !             if (type    /* for complete */) {
  1367.                   if (loc == -1)  {
  1368.                       (void)strcpy(bug, cp);
  1369.                       loc = strlen(cp);
  1370. ***************
  1371. *** 1537,1549 ****
  1372.                       loc = strmatch(bug, cp);
  1373.                       bug[loc] = 0;
  1374.                   }
  1375. !             } else
  1376.                   add_stash(dirnam, cp);
  1377.       }
  1378.       (void)closedir(dirp);
  1379.   
  1380. !     if (type) {
  1381. !         if (loc <= 0)  {
  1382.               x_putc(BEL);
  1383.               return;
  1384.           }
  1385. --- 1542,1558 ----
  1386.                       loc = strmatch(bug, cp);
  1387.                       bug[loc] = 0;
  1388.                   }
  1389. !             }
  1390. !             if (type != 1) { /* for list */
  1391.                   add_stash(dirnam, cp);
  1392. +             }
  1393. +         }
  1394.       }
  1395.       (void)closedir(dirp);
  1396.   
  1397. !     if (type) {            /* for complete */
  1398. !         if (loc < 0 ||
  1399. !             (loc == 0 && type != 2))  {
  1400.               x_putc(BEL);
  1401.               return;
  1402.           }
  1403. ***************
  1404. *** 1564,1571 ****
  1405.               else
  1406.                   x_ins(" ");
  1407.           }
  1408. !     } else
  1409.           list_stash();
  1410.   }
  1411.   
  1412.   static void
  1413. --- 1573,1583 ----
  1414.               else
  1415.                   x_ins(" ");
  1416.           }
  1417. !     }
  1418. !     if (type == 0 ||        /* if list */
  1419. !         (type == 2 && multi)) {    /* or complete-list and ambiguous */
  1420.           list_stash();
  1421. +     }
  1422.   }
  1423.   
  1424.   static void
  1425. ***************
  1426. *** 1581,1586 ****
  1427. --- 1593,1599 ----
  1428.       int  multi;
  1429.       int  loc;
  1430.   
  1431. +     /* type == 0 for list, 1 for complete and 2 for complete-list */
  1432.       str = xcp;
  1433.       cp = buf;
  1434.       xp = str;
  1435. ***************
  1436. *** 1591,1600 ****
  1437.               break;
  1438.           }
  1439.       }
  1440. !     if (type)
  1441.           while (*xcp && !iscfs(*xcp))
  1442.               x_zotc(*xcp++);
  1443. !     else {
  1444.           x_maxlen = 0;
  1445.           XPinit(words, 16);
  1446.       }
  1447. --- 1604,1613 ----
  1448.               break;
  1449.           }
  1450.       }
  1451. !     if (type)            /* for complete */
  1452.           while (*xcp && !iscfs(*xcp))
  1453.               x_zotc(*xcp++);
  1454. !     if (type != 1) {        /* for list */
  1455.           x_maxlen = 0;
  1456.           XPinit(words, 16);
  1457.       }
  1458. ***************
  1459. *** 1614,1621 ****
  1460.           klen = strlen(tp->name);
  1461.           if (klen < len)
  1462.               continue;
  1463. !         if (strncmp(buf, tp->name, len) ==0)
  1464. !             if (type)  {
  1465.                   if (loc == -1)  {
  1466.                       (void)strcpy(bug, tp->name);
  1467.                       loc = klen;
  1468. --- 1627,1634 ----
  1469.           klen = strlen(tp->name);
  1470.           if (klen < len)
  1471.               continue;
  1472. !         if (strncmp(buf, tp->name, len) ==0) {
  1473. !             if (type)  {    /* for complete */
  1474.                   if (loc == -1)  {
  1475.                       (void)strcpy(bug, tp->name);
  1476.                       loc = klen;
  1477. ***************
  1478. *** 1624,1635 ****
  1479.                       loc = strmatch(bug, tp->name);
  1480.                       bug[loc] = 0;
  1481.                   }
  1482. !             } else
  1483.                   add_stash((char *)0, tp->name);
  1484.       }
  1485.   
  1486. !     if (type)  {
  1487. !         if (loc <= 0)  {
  1488.               x_putc(BEL);
  1489.               return;
  1490.           }
  1491. --- 1637,1652 ----
  1492.                       loc = strmatch(bug, tp->name);
  1493.                       bug[loc] = 0;
  1494.                   }
  1495. !             }
  1496. !             if (type != 1) { /* for list */
  1497.                   add_stash((char *)0, tp->name);
  1498. +             }
  1499. +         }
  1500.       }
  1501.   
  1502. !     if (type)  {            /* for complete */
  1503. !         if (loc < 0 ||
  1504. !             (loc == 0 && type != 2))  {
  1505.               x_putc(BEL);
  1506.               return;
  1507.           }
  1508. ***************
  1509. *** 1637,1644 ****
  1510.           x_ins(cp);
  1511.           if (!multi)
  1512.               x_ins(" ");
  1513. !     } else
  1514.           list_stash();
  1515.   }
  1516.   
  1517.   static int
  1518. --- 1654,1667 ----
  1519.           x_ins(cp);
  1520.           if (!multi)
  1521.               x_ins(" ");
  1522. !         else if (type == 2)    /* complete and list rest */
  1523. !             list_stash();
  1524. !     }
  1525. ! 
  1526. !     if (type == 0 ||        /* if list */
  1527. !         (type == 2 && multi)) {    /* or complete-list and ambiguous */
  1528.           list_stash();
  1529. +     }
  1530.   }
  1531.   
  1532.   static int
  1533. *** sh/eval.c.old    Tue May 12 13:42:00 1992
  1534. --- sh/eval.c    Mon Aug 10 22:02:35 1992
  1535. ***************
  1536. *** 3,9 ****
  1537.    */
  1538.   
  1539.   #ifndef lint
  1540. ! static char *RCSid = "$Id: eval.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  1541.   #endif
  1542.   
  1543.   #include "stdh.h"
  1544. --- 3,9 ----
  1545.    */
  1546.   
  1547.   #ifndef lint
  1548. ! static char *RCSid = "$Id: eval.c,v 1.3 1992/08/10 12:02:35 sjg Exp $";
  1549.   #endif
  1550.   
  1551.   #include "stdh.h"
  1552. ***************
  1553. *** 48,53 ****
  1554. --- 48,58 ----
  1555.   static char *   debunk      ARGS((char *cp));
  1556.   static char *   tilde       ARGS((char *acp));
  1557.   static char *   homedir     ARGS((char *name));
  1558. + #ifdef ALTERNATIONS
  1559. + static    int    alt_expand  ARGS((char *, XPtrV *, int));
  1560. + static    int    alt_count   ARGS((char *));
  1561. + static    int    alt_scan    ARGS((char **, char **, char,     int));
  1562. + #endif
  1563.   
  1564.   int    ifs0 = ' ';        /* todo: first char of $IFS */
  1565.   
  1566. ***************
  1567. *** 112,117 ****
  1568. --- 117,150 ----
  1569.       return cp;
  1570.   }
  1571.   
  1572. + /*
  1573. +  * expand string - return only one component
  1574. +  * used from iosetup to expand redirection files
  1575. +  */
  1576. + char *
  1577. + evalonestr(cp, f)
  1578. +     register char *cp;
  1579. +     int f;
  1580. + {
  1581. +     XPtrV w;
  1582. + 
  1583. +     XPinit(w, 1);
  1584. +     expand(cp, &w, f);
  1585. +     switch (XPsize(w)) {
  1586. +     case 0:
  1587. +         cp = "";
  1588. +         break;
  1589. +     case 1:
  1590. +         cp = (char*) *XPptrv(w);
  1591. +         break;
  1592. +     default:
  1593. +         cp = evalstr(cp, f&~DOGLOB);
  1594. +         break;
  1595. +     }
  1596. +     XPfree(w);
  1597. +     return cp;
  1598. + }
  1599. + 
  1600.   /* for nested substitution: ${var:=$var2} */
  1601.   typedef struct SubType {
  1602.       short    type;        /* [=+-?%#] action after expanded word */
  1603. ***************
  1604. *** 144,149 ****
  1605. --- 177,196 ----
  1606.       if (flag[FNOGLOB])
  1607.           f &= ~ DOGLOB;
  1608.   
  1609. + #ifdef ALTERNATIONS
  1610. + #define NOALT    BIT(8)        /* internal to this file */
  1611. +                 /* prevent endless recursion */
  1612. +     /* look for '{' in the input word */
  1613. +     if (((f & NOALT) == 0) && (f & DOGLOB) &&
  1614. +         (dp = strchr(cp, '{')) != NULL &&
  1615. +         (dp[-1] == CHAR) &&
  1616. +             !(dp[1] == CHAR && dp[2] == '}')) {
  1617. +         if (alt_expand(cp, wp, f))
  1618. +             return;
  1619. +     }
  1620. +     f &= ~NOALT;
  1621. + #endif
  1622. + 
  1623.       Xinit(ds, dp, 128);    /* init dest. string */
  1624.       type = XBASE;
  1625.       sp = cp;
  1626. ***************
  1627. *** 496,501 ****
  1628. --- 543,748 ----
  1629.   
  1630.       return str;        /* no match, return string */
  1631.   }
  1632. + 
  1633. + #ifdef ALTERNATIONS
  1634. + /*    (pc@hillside.co.uk)
  1635. +  *    I have decided to `fudge' alternations by picking up
  1636. +  *    the compiled command tree and working with it recursively
  1637. +  *    to generate the set of arguments
  1638. +  *    This has the advantage of making a single discrete change
  1639. +  *    to the code
  1640. +  *
  1641. +  *    This routine calls itself recursively
  1642. +  *    a)    scan forward looking for { building the output string
  1643. +  *        if none found then call expand - and exit
  1644. +  *    b)    When { found, scan forward finding the end }
  1645. +  *    c)    add first alternate to output string
  1646. +  *    d)    scan for the end of the string copying into output
  1647. +  *    e)    call routine with new string
  1648. +  *    Major complication is quoting
  1649. +  */
  1650. + static int
  1651. + alt_expand(cp, wp, f)
  1652. +     char *cp;        /* input word */
  1653. +     register XPtrV *wp;    /* output words */
  1654. +     int f;            /* DO* flags */
  1655. + {
  1656. +     char *srcp = cp;
  1657. +     char *left;        /* destination string of left hand side */
  1658. +     char *leftend;        /* end of left hand side */
  1659. +     char *alt;        /* start of alterate section */
  1660. +     char *altend;        /* end of alternate section */
  1661. +     char *ap;        /* working pointer */
  1662. +     char *right;        /* right hand side */
  1663. +     char *rp;        /* used to copy right-hand side */
  1664. +     int  maxlen;        /* max string length */
  1665. + 
  1666. +     leftend = left = alloc((maxlen = alt_count(cp)), ATEMP);
  1667. +     
  1668. +     if (alt_scan(&srcp, &leftend, '{', 0) == 0) {
  1669. +         expand(cp, wp, f&NOALT);
  1670. +         afree(left, ATEMP);
  1671. +         return;
  1672. +     }
  1673. + 
  1674. +     /*
  1675. +      *    we have a alternation section
  1676. +      */
  1677. +     alt = altend = alloc(maxlen, ATEMP);
  1678. + 
  1679. +     srcp += 2;
  1680. +     if (alt_scan(&srcp, &altend, '}', 1) == 0) {
  1681. +         afree(left, ATEMP);
  1682. +         afree(alt, ATEMP);
  1683. +         errorf("Missing }.\n");
  1684. +     }
  1685. +     *altend++ = CHAR;
  1686. +     *altend++ = ',';
  1687. +     *altend = EOS;
  1688. +     /*
  1689. +      *    finally we may have a right-hand side
  1690. +      */
  1691. +     right = srcp + 2;
  1692. + 
  1693. +     /*
  1694. +      *    glue the bits together making a new string
  1695. +      */
  1696. +     for (srcp = alt; *srcp != EOS;) {
  1697. + 
  1698. +         ap = leftend;
  1699. + 
  1700. +         if (alt_scan(&srcp, &ap, ',', -1) == 0) {
  1701. +             afree(left, ATEMP);
  1702. +             afree(alt, ATEMP);
  1703. +             errorf("Missing comma.\n");
  1704. +         }
  1705. +         
  1706. +         srcp += 2;
  1707. + 
  1708. +         rp = right;
  1709. +         (void) alt_scan(&rp, &ap, EOS, 0);
  1710. + 
  1711. +         alt_expand(left, wp, f);
  1712. +     }
  1713. +     afree(left, ATEMP);
  1714. +     afree(alt, ATEMP);
  1715. + }
  1716. + 
  1717. + /*
  1718. +  * see how much space we need to hold this tree
  1719. +  */
  1720. + static int
  1721. + alt_count(cp)
  1722. +     register char *cp;
  1723. + {
  1724. +     register int sum = 0;
  1725. +     register char *sp;
  1726. + 
  1727. +     while (*cp != EOS) {
  1728. +         switch(*cp) {
  1729. +           case CHAR:
  1730. +           case QCHAR:
  1731. +             sum += 2;
  1732. +             cp += 2;
  1733. +             break;
  1734. +           case OQUOTE:
  1735. +           case CQUOTE:
  1736. +           case CSUBST:
  1737. +             sum++;
  1738. +             cp++;
  1739. +             break;
  1740. +           case COMSUB:
  1741. +           case OSUBST:
  1742. +             sp = cp;
  1743. +             cp = strchr(sp, 0) + 1;
  1744. +             sum += cp - sp;
  1745. +             break;
  1746. +         }
  1747. +     }
  1748. +     return ++sum;
  1749. + }
  1750. + 
  1751. + #ifdef __STDC__
  1752. + static int
  1753. + alt_scan(
  1754. +     char **cpp,        /* address of source pointer */
  1755. +     char **dpp,        /* address of destination pointer */
  1756. +     char endc,        /* last character we are looking for */
  1757. +     int bal)
  1758. + #else
  1759. + static int
  1760. + alt_scan(cpp, dpp, endc, bal)
  1761. +     char **cpp;        /* address of source pointer */
  1762. +     char **dpp;        /* address of destination pointer */
  1763. +     char endc;        /* last character we are looking for */
  1764. +     int bal;
  1765. + #endif
  1766. + {
  1767. +     register char *cp, *dp;
  1768. +     int quote = 0;
  1769. +     int balance = 0;
  1770. +     int usebalance = 0;
  1771. + 
  1772. +     if (bal)
  1773. +     {    usebalance = 1;
  1774. +         balance = (bal < 1) ? 0 : 1;
  1775. +     }
  1776. + 
  1777. +     cp = *cpp;
  1778. +     dp = *dpp;
  1779. + 
  1780. +     while (*cp != EOS) {
  1781. +         switch (*cp) {
  1782. +           case CHAR:
  1783. +             if (quote == 1) {
  1784. +                 if (cp[1] == ']')
  1785. +                     quote = 0;
  1786. +             }
  1787. +             else
  1788. +             if (quote == 0) {
  1789. +                 if (cp[1] == '[')
  1790. +                     quote = 1;
  1791. +                 else {
  1792. +                     if (usebalance) {
  1793. +                         if (cp[1] == '{')
  1794. +                             balance++;
  1795. +                         if (cp[1] == '}')
  1796. +                             balance--;
  1797. +                         }
  1798. +                     if (cp[1] == endc && balance == 0) {
  1799. +                         *dp = EOS;
  1800. +                         *dpp = dp;
  1801. +                         *cpp = cp;
  1802. +                         return 1;
  1803. +                         }
  1804. +                 }
  1805. +             }
  1806. +           case QCHAR:
  1807. +             *dp++ = *cp++;
  1808. +           copy:
  1809. +             *dp++ = *cp++;
  1810. +             break;
  1811. +             
  1812. +           case OQUOTE:
  1813. +             quote = 1;
  1814. +             goto copy;
  1815. + 
  1816. +           case CQUOTE:
  1817. +             quote = 0;
  1818. +             goto copy;
  1819. + 
  1820. +           case COMSUB:
  1821. +           case OSUBST:
  1822. +             while (*dp++ = *cp++);
  1823. +             break;
  1824. +         }
  1825. +     }
  1826. +     *dp = EOS;
  1827. +     *cpp = cp;
  1828. +     *dpp = dp;
  1829. +     return 0;
  1830. + }
  1831. + #endif    /* ALTERNATIONS */
  1832.   
  1833.   /*
  1834.    * glob
  1835. *** sh/exec.c.old    Tue May 12 13:42:00 1992
  1836. --- sh/exec.c    Mon Aug 10 22:02:38 1992
  1837. ***************
  1838. *** 3,9 ****
  1839.    */
  1840.   
  1841.   #ifndef lint
  1842. ! static char *RCSid = "$Id: exec.c,v 1.3 1992/04/25 08:29:52 sjg Exp $";
  1843.   #endif
  1844.   
  1845.   #include "stdh.h"
  1846. --- 3,9 ----
  1847.    */
  1848.   
  1849.   #ifndef lint
  1850. ! static char *RCSid = "$Id: exec.c,v 1.4 1992/08/10 12:02:38 sjg Exp $";
  1851.   #endif
  1852.   
  1853.   #include "stdh.h"
  1854. ***************
  1855. *** 14,19 ****
  1856. --- 14,20 ----
  1857.   #include <fcntl.h>
  1858.   #include <sys/stat.h>
  1859.   #include "sh.h"
  1860. + #include "edit.h"
  1861.   
  1862.   static int      comexec     ARGS((struct op *t, char **vp, char **ap, int flags));
  1863.   #ifdef    SHARPBANG
  1864. ***************
  1865. *** 22,27 ****
  1866. --- 23,30 ----
  1867.   static void     iosetup     ARGS((struct ioword *iop));
  1868.   static int      herein      ARGS((char *hname, int sub));
  1869.   static void     echo        ARGS((char **vp, char **ap));
  1870. + static    char     *do_selectargs ARGS((char **ap, char *));
  1871. + static    int    selread        ARGS((void));
  1872.   
  1873.   
  1874.   /*
  1875. ***************
  1876. *** 167,172 ****
  1877. --- 170,192 ----
  1878.         Break1:
  1879.           break;
  1880.   
  1881. +       case TSELECT:
  1882. +         e.type = E_LOOP;
  1883. +         ap = (t->vars != NULL) ?
  1884. +             eval(t->vars, DOBLANK|DOGLOB|DOTILDE) : e.loc->argv + 1;
  1885. +         while ((i = setjmp(e.jbuf)))
  1886. +             if (i == LBREAK)
  1887. +                 goto Break1;
  1888. +         signal(SIGINT, trapsig); /* needs change to trapsig */
  1889. +         cp = NULL;
  1890. +         for (;;) {
  1891. +             if ((cp = do_selectargs(ap, cp)) == (char *)1)
  1892. +                 break;
  1893. +             setstr(global(t->str), cp);
  1894. +             rv = execute(t->left, 0);
  1895. +         }
  1896. +         break;
  1897. +         
  1898.         case TWHILE:
  1899.         case TUNTIL:
  1900.           e.type = E_LOOP;
  1901. ***************
  1902. *** 174,180 ****
  1903.               if (i == LBREAK)
  1904.                   goto Break2;
  1905.           while ((execute(t->left, 0) == 0) == (t->type == TWHILE))
  1906. !             rv = execute(t->right, 0);
  1907.         Break2:
  1908.           break;
  1909.   
  1910. --- 194,200 ----
  1911.               if (i == LBREAK)
  1912.                   goto Break2;
  1913.           while ((execute(t->left, 0) == 0) == (t->type == TWHILE))
  1914. !             rv = execute(t->right, XXWHL);
  1915.         Break2:
  1916.           break;
  1917.   
  1918. ***************
  1919. *** 655,661 ****
  1920.       e.savefd[iop->unit] = savefd(iop->unit);
  1921.   
  1922.       if ((iop->flag&IOTYPE) != IOHERE)
  1923. !         cp = evalstr(cp, DOTILDE);
  1924.   
  1925.       switch (iop->flag&IOTYPE) {
  1926.         case IOREAD:
  1927. --- 675,681 ----
  1928.       e.savefd[iop->unit] = savefd(iop->unit);
  1929.   
  1930.       if ((iop->flag&IOTYPE) != IOHERE)
  1931. !         cp = evalonestr(cp, DOTILDE|DOGLOB);
  1932.   
  1933.       switch (iop->flag&IOTYPE) {
  1934.         case IOREAD:
  1935. ***************
  1936. *** 772,774 ****
  1937. --- 792,948 ----
  1938.       shellf("\n");
  1939.   }
  1940.   
  1941. + /*
  1942. +  *    ksh special - the select command processing section
  1943. +  *    print the args in column form - assuming that we can
  1944. +  */
  1945. + #define    COLARGS        20
  1946. + 
  1947. + static char *
  1948. + do_selectargs(ap, secondtime)
  1949. +     register char **ap;
  1950. +     char    *secondtime;
  1951. + {
  1952. +     char *rv;
  1953. + 
  1954. +     register int i, c;
  1955. +     static char *replybase = NULL;
  1956. +     static int replymax;
  1957. +     static int repct;
  1958. +     static int argct;
  1959. +     
  1960. +     /*
  1961. +      * deal with REPLY variable
  1962. +      */
  1963. +     if (replybase == NULL) {
  1964. +         replybase = alloc(64, APERM);
  1965. +         replymax = 64;
  1966. +     }
  1967. + 
  1968. +     if (!secondtime)
  1969. +         argct = pr_menu(ap, 0);
  1970. +     
  1971. +     /*
  1972. +      * and now ask for an answer
  1973. +      */
  1974. + retry:
  1975. +     shellf("%s", strval(global("PS3")));
  1976. +     fflush(shlout);
  1977. +     repct = 0;
  1978. +     i = 0;
  1979. +     rv = NULL;
  1980. +     while ((c = selread()) != EOF) {
  1981. +         if (c == -2) {
  1982. +             shellf("Read error\n");
  1983. +             rv = (char*)1;
  1984. +             break;
  1985. +         }
  1986. +         if (repct+1 >= replymax)
  1987. +         {    replymax += 64;
  1988. +             replybase = aresize(replybase, replymax, APERM);
  1989. +         }
  1990. +         if (i >= 0 && c >= '0' && c <= '9') {
  1991. +             replybase[repct++] = c;
  1992. +             if (i >= 0)
  1993. +                 i = i*10 + (c - '0');
  1994. +         }
  1995. +         else
  1996. +         if (c == '\n') {
  1997. +             if (repct == 0) {
  1998. +                 pr_menu(ap, 1);
  1999. +                 goto retry;
  2000. +             }
  2001. +                 
  2002. +             if (i >= 1 && i <= argct)
  2003. +                 rv = ap[i-1];
  2004. +             else    rv = "";
  2005. +             break;
  2006. +         } else
  2007. +             i = -1,    replybase[repct++] = c;
  2008. +     }
  2009. +     if (rv == NULL) {
  2010. +         shellf("\n");
  2011. +         rv = (char *)1;
  2012. +     }
  2013. +     replybase[repct] = '\0';
  2014. +     setstr(global("REPLY"), replybase);
  2015. +     return rv;
  2016. + }
  2017. + 
  2018. + /*
  2019. +  *    print a select style menu
  2020. +  */
  2021. + int
  2022. + pr_menu(ap, usestored)
  2023. +     register char **ap;
  2024. +     int usestored;
  2025. + {
  2026. +     register char **pp;
  2027. +     register i, j;
  2028. +     register int ix;
  2029. +     static int argct;
  2030. +     static int nwidth;
  2031. +     static int dwidth;
  2032. +     static int ncols;
  2033. +     static int nrows;
  2034. + 
  2035. +     if (usestored == 0) {
  2036. +         /*
  2037. +          * get dimensions of the list
  2038. +          */
  2039. +         for (argct = 0, nwidth = 0, pp = ap; *pp; argct++, pp++) {
  2040. +             i = strlen(*pp);
  2041. +             nwidth = (i > nwidth) ? i : nwidth;
  2042. +         }
  2043. +         /*
  2044. +          * we will print an index of the form
  2045. +          *    %d)
  2046. +          * in front of each entry
  2047. +          * get the max width of this
  2048. +          */
  2049. +         for (i = argct, dwidth = 1; i >= 10; i /= 10)
  2050. +             dwidth++;
  2051. + 
  2052. +         if (argct < COLARGS)
  2053. +             ncols = 1, nrows = argct;
  2054. +         else {
  2055. +             ncols = x_cols/(nwidth+dwidth+3);
  2056. +             nrows = argct/ncols;
  2057. +             if (argct%ncols) nrows++;
  2058. +             if (ncols > nrows)
  2059. +             i = nrows, nrows = ncols, ncols = 1;
  2060. +         }
  2061. + 
  2062. +     }
  2063. +     /*
  2064. +      * display the menu
  2065. +      */
  2066. +     for (i = 0; i < nrows; i++) {
  2067. +         for (j = 0; j < ncols; j++) {
  2068. +             ix = j*nrows + i;
  2069. +             if (ix < argct)
  2070. +                 shellf("%*d) %-*.*s ", dwidth, ix+1, nwidth, nwidth, ap[ix]);
  2071. +             }
  2072. +         shellf("\n");
  2073. +     }
  2074. +     return argct;
  2075. + }
  2076. + 
  2077. + static int
  2078. + selread()
  2079. + {    char c;
  2080. +     register int    rv;
  2081. +     
  2082. +     switch (read(0, &c, 1)) {
  2083. +        case 1:
  2084. +         rv = c&0xff;
  2085. +         break;
  2086. +        case 0:
  2087. +         rv = EOF;
  2088. +         break;
  2089. +        case -1:
  2090. +         rv = -2;
  2091. +         break;
  2092. +     }
  2093. +     return rv;
  2094. + }
  2095. *** sh/getopts.c.old    Tue May 12 13:42:00 1992
  2096. --- sh/getopts.c    Mon Aug 10 22:02:41 1992
  2097. ***************
  2098. *** 7,13 ****
  2099.    */
  2100.   
  2101.   #ifndef lint
  2102. ! static char *RCSid = "$Id: getopts.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  2103.   #endif
  2104.   
  2105.   #include "stdh.h"
  2106. --- 7,13 ----
  2107.    */
  2108.   
  2109.   #ifndef lint
  2110. ! static char *RCSid = "$Id: getopts.c,v 1.3 1992/08/10 12:02:41 sjg Exp $";
  2111.   #endif
  2112.   
  2113.   #include "stdh.h"
  2114. ***************
  2115. *** 14,19 ****
  2116. --- 14,24 ----
  2117.   #include <errno.h>
  2118.   #include <setjmp.h>
  2119.   #include "sh.h"
  2120. + 
  2121. + #ifdef _BSDI
  2122. + /* internal getopt conflicts with system getopt prototype */
  2123. + # define getopt    local_getopt
  2124. + #endif
  2125.   
  2126.   /*
  2127.    * The following is derived from getopt() source placed into the public
  2128.  
  2129. exit 0 # Just in case...
  2130.