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