home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / sources / misc / 4167 < prev    next >
Encoding:
Text File  |  1992-12-12  |  28.6 KB  |  1,152 lines
  1. Newsgroups: comp.sources.misc
  2. Path: sparky!kent
  3. From: sjg@zen.void.oz.au (Simon J. Gerraty)
  4. Subject:  v34i027:  pdksh - Public Domain Korn Shell, v4, Patch08
  5. Message-ID: <1992Dec13.033015.6978@sparky.imd.sterling.com>
  6. Followup-To: comp.sources.d
  7. X-Md4-Signature: d7d38bc976062eec9124f1095b7e38f3
  8. Sender: kent@sparky.imd.sterling.com (Kent Landfield)
  9. Organization: Sterling Software
  10. Date: Sun, 13 Dec 1992 03:30:15 GMT
  11. Approved: kent@sparky.imd.sterling.com
  12. Lines: 1138
  13.  
  14. Submitted-by: sjg@zen.void.oz.au (Simon J. Gerraty)
  15. Posting-number: Volume 34, Issue 27
  16. Archive-name: pdksh/patch08
  17. Environment: UNIX
  18. Patch-To: pdksh: Volume 25, Issue 47-55
  19.  
  20. This is patch08.
  21.  
  22. It contains a couple of very useful bug fixes.
  23. Including that of pipes such as:
  24.  
  25. $ zcat foo.tar.Z | tar tvf - | more
  26.  
  27. not terminating immediately when you press 'q'.
  28.  
  29. Apply this patch by changing directory to the root
  30. of the source tree and using the command:
  31.  
  32.     patch -p0 < this_file
  33.  
  34. The following is a complete list of patches to date.
  35.  
  36. # PD ksh Version 4
  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. Prereq: 02-Aug-92
  45. Prereq: 12-Aug-92
  46. *** PATCHDATES.old    Thu Aug 13 00:14:06 1992
  47. --- PATCHDATES    Sun Dec  6 00:14:24 1992
  48. ***************
  49. *** 8,10 ****
  50. --- 8,11 ----
  51.   12-May-92
  52.   02-Aug-92
  53.   12-Aug-92
  54. + 05-Dec-92
  55. *** README.old    Tue May 12 19:30:10 1992
  56. --- README    Sun Dec  6 00:14:30 1992
  57. ***************
  58. *** 1,5 ****
  59.           Public Domain Korn Shell
  60. !               Version 4.5
  61.   
  62.   PD KSH:
  63.   
  64. --- 1,5 ----
  65.           Public Domain Korn Shell
  66. !               Version 4.8
  67.   
  68.   PD KSH:
  69.   
  70. ***************
  71. *** 7,18 ****
  72.   intended to be the ultimate shell but rather a usable ksh work
  73.   alike.  For those of us who have to work on multiple systems it
  74.   is nice to have the same user interface on all.  I resisted
  75. ! moving to the ksh on a Bull system at work for nearly a year due
  76. ! to the lack of a ksh on my Sun systems.  When I first picked up
  77. ! the 3.2 PD KSH a couple of years ago, it took only a few minutes
  78. ! to convert a C-shell fan to a ksh fan :-)  Pdksh is not 100%
  79. ! compatible with the ksh.  Having said that, I use it daily
  80. ! beside a real ksh88 and find them virtually indistinguishable.
  81.   
  82.   I only run this shell on sun's and only for interactive use.  I
  83.   use it on sun4c, sun3 and sun386 systems.  The shell itself has
  84. --- 7,20 ----
  85.   intended to be the ultimate shell but rather a usable ksh work
  86.   alike.  For those of us who have to work on multiple systems it
  87.   is nice to have the same user interface on all.  I resisted
  88. ! moving to the ksh on a System V machine where I worked, for
  89. ! nearly a year due to the lack of a ksh on my Sun systems.  When
  90. ! I first picked up the 3.2 PD KSH a couple of years ago, it took
  91. ! only a few minutes to convert a C-shell fan to a ksh fan :-)
  92. ! Pdksh is not 100% compatible with the ksh.  Having said that, I
  93. ! use it daily beside a real ksh88 and find them virtually
  94. ! indistinguishable.  With one exception - arrays!  If some one
  95. ! feels like adding arrays, I for one would appreciate it :-)
  96.   
  97.   I only run this shell on sun's and only for interactive use.  I
  98.   use it on sun4c, sun3 and sun386 systems.  The shell itself has
  99. ***************
  100. *** 21,40 ****
  101.   MACHINES for details of systems that the shell has been built
  102.   on.
  103.   
  104. ! I have released this version of the shell (with the kind
  105. ! permission of the previous maintainers and major contributors) to
  106. ! ensure that it is available from usenet archive sites.  Of
  107. ! course it remains in the Public Domain.  Equally obviously
  108. ! neither myself nor any other contributors make any claims of
  109. ! suitability etc.  Ie. NO WARRANTY!!!  If you make any changes
  110. ! and distribute them, please leave your own finger prints in the
  111. ! source.  Its bad enough being flamed for my own bugs let alone
  112. ! anyone elses :-)
  113.   
  114. - WHATS NEW:
  115. - 
  116. - This update includes Job Control for System V (POSIX), many bug
  117. - fixes and a simple history file mechanism.  See sh/ChangeLog.
  118.   
  119.   HISTORY:
  120.   
  121. --- 23,37 ----
  122.   MACHINES for details of systems that the shell has been built
  123.   on.
  124.   
  125. ! I released version 4.0 of the shell (with the kind permission of
  126. ! the previous maintainers and major contributors) to ensure that
  127. ! it is available from usenet archive sites.  Of course it remains
  128. ! in the Public Domain.  Equally obviously neither myself nor any
  129. ! other contributors make any claims of suitability etc.  Ie. NO
  130. ! WARRANTY!!!  If you make any changes and distribute them, please
  131. ! leave your own finger prints in the source.  Its bad enough
  132. ! being flamed for my own bugs let alone anyone elses :-)
  133.   
  134.   
  135.   HISTORY:
  136.   
  137. *** bug-report.old    Thu Aug 13 00:14:09 1992
  138. --- bug-report    Sun Dec  6 00:14:34 1992
  139. ***************
  140. *** 2,8 ****
  141.   Subject: [area]: [synopsis]   [replace with actual area and short description]
  142.   
  143.   VERSION:
  144. !     PD KSH: 4.7 12-Aug-92
  145.       [Official patches will edit this line to indicate the patch level]
  146.   
  147.   MACHINE and OPERATING SYSTEM:
  148. --- 2,8 ----
  149.   Subject: [area]: [synopsis]   [replace with actual area and short description]
  150.   
  151.   VERSION:
  152. !     PD KSH: 4.8 05-Dec-92
  153.       [Official patches will edit this line to indicate the patch level]
  154.   
  155.   MACHINE and OPERATING SYSTEM:
  156. *** etc/ksh.kshrc.old    Mon Aug 10 22:00:08 1992
  157. --- etc/ksh.kshrc    Sun Dec  6 00:14:48 1992
  158. ***************
  159. *** 17,23 ****
  160.   #
  161.   
  162.   # RCSid:
  163. ! #    $Id: ksh.kshrc,v 1.3 1992/08/10 12:00:08 sjg Exp $
  164.   #
  165.   #    @(#)Copyright (c) 1991 Simon J. Gerraty
  166.   #
  167. --- 17,23 ----
  168.   #
  169.   
  170.   # RCSid:
  171. ! #    $Id: ksh.kshrc,v 1.4 1992/12/05 13:14:48 sjg Exp $
  172.   #
  173.   #    @(#)Copyright (c) 1991 Simon J. Gerraty
  174.   #
  175. ***************
  176. *** 97,102 ****
  177. --- 97,105 ----
  178.       alias cls=clear
  179.       alias logout=exit
  180.       alias bye=exit
  181. +     alias p='ps -l'
  182. +     alias j=jobs
  183. +     alias o='fg %-'
  184.   
  185.   
  186.   # add your favourite aliases here
  187. *** ksh.1.old    Mon Aug 10 21:59:15 1992
  188. --- ksh.1    Sun Dec  6 00:14:37 1992
  189. ***************
  190. *** 1,4 ****
  191. ! .\" $Id: ksh.1,v 1.2 1992/08/10 11:59:15 sjg Exp $
  192.   .nr OJ 1 \" Job Control
  193.   .nr OE 1 \" Command Editing
  194.   .nr OB 1 \" BSD enhanced ulimit options
  195. --- 1,4 ----
  196. ! .\" $Id: ksh.1,v 1.3 1992/12/05 13:14:37 sjg Exp $
  197.   .nr OJ 1 \" Job Control
  198.   .nr OE 1 \" Command Editing
  199.   .nr OB 1 \" BSD enhanced ulimit options
  200. ***************
  201. *** 88,94 ****
  202.   .SS Alternation
  203.   Csh provides a filename expansion method known as alternation.
  204.   This has been added into this version of ksh.
  205. ! When performing filename subsitution, you can get the shell to create
  206.   a set of strings for you. For example, `exampl{a,b,c,d,e}' will expand
  207.   to ``exampla examplb examplc exampld example''.
  208.   A comma separated set of strings in curly braces 
  209. --- 88,94 ----
  210.   .SS Alternation
  211.   Csh provides a filename expansion method known as alternation.
  212.   This has been added into this version of ksh.
  213. ! When performing filename substitution, you can get the shell to create
  214.   a set of strings for you. For example, `exampl{a,b,c,d,e}' will expand
  215.   to ``exampla examplb examplc exampld example''.
  216.   A comma separated set of strings in curly braces 
  217. ***************
  218. *** 112,118 ****
  219.   .IP FCEDIT
  220.   The editor used by the \fIfc\fP command.
  221.   During startup the shell checks the value of \fBFCEDIT\fP, 
  222. ! \fBEDITOR\fP and finally \fBVISUAL\fP to try and determin what
  223.   command line edit mode to use.  Note that this is not strictly
  224.   ksh compatible behaviour.
  225.   .IP COLUMNS
  226. --- 112,118 ----
  227.   .IP FCEDIT
  228.   The editor used by the \fIfc\fP command.
  229.   During startup the shell checks the value of \fBFCEDIT\fP, 
  230. ! \fBEDITOR\fP and finally \fBVISUAL\fP to try and determine what
  231.   command line edit mode to use.  Note that this is not strictly
  232.   ksh compatible behaviour.
  233.   .IP COLUMNS
  234. ***************
  235. *** 178,184 ****
  236.   A single \fB#\fP results in the shortest match,
  237.   two \fB#\fP's results in the longest match.
  238.   .IP "${var%pattern} ${var%%pattern}"
  239. ! Like \fB#\fP substition, but deleting from the end of the value.
  240.   .SS Expressions
  241.   Expressions can be used with the \fBlet\fP command,
  242.   as numeric arguments to the \fBtest\fP command,
  243. --- 178,184 ----
  244.   A single \fB#\fP results in the shortest match,
  245.   two \fB#\fP's results in the longest match.
  246.   .IP "${var%pattern} ${var%%pattern}"
  247. ! Like \fB#\fP substitution, but deleting from the end of the value.
  248.   .SS Expressions
  249.   Expressions can be used with the \fBlet\fP command,
  250.   as numeric arguments to the \fBtest\fP command,
  251. ***************
  252. *** 250,256 ****
  253.   .IP "fc [\fB\-e\fP \fIeditor\fP] [\fB\-lnr\fP] [\fIfirst\fP [\fIlast\fP]]"
  254.   \fIFirst\fP and \fIlast\fP select commands.
  255.   Commands can be selected by history number,
  256. ! or a string specifing the most recent command starting with that string.
  257.   The \fB\-l\fP option lists the command on stdout,
  258.   and \fB\-n\fP inhibits the default command numbers.
  259.   The \fB\-r\fP option reverses the order of the list.
  260. --- 250,256 ----
  261.   .IP "fc [\fB\-e\fP \fIeditor\fP] [\fB\-lnr\fP] [\fIfirst\fP [\fIlast\fP]]"
  262.   \fIFirst\fP and \fIlast\fP select commands.
  263.   Commands can be selected by history number,
  264. ! or a string specifying the most recent command starting with that string.
  265.   The \fB\-l\fP option lists the command on stdout,
  266.   and \fB\-n\fP inhibits the default command numbers.
  267.   The \fB\-r\fP option reverses the order of the list.
  268. ***************
  269. *** 340,346 ****
  270.   .ta 5n 10n
  271.   \t\-i\tThe variable's value is stored as an integer.
  272.   .br
  273. ! \t\-x\tThe variable is exported to the enviroment.
  274.   .br
  275.   \t\-r\tThe variable is read-only cannot be reassigned a value.
  276.   .br
  277. --- 340,346 ----
  278.   .ta 5n 10n
  279.   \t\-i\tThe variable's value is stored as an integer.
  280.   .br
  281. ! \t\-x\tThe variable is exported to the environment.
  282.   .br
  283.   \t\-r\tThe variable is read-only cannot be reassigned a value.
  284.   .br
  285. ***************
  286. *** 466,472 ****
  287.   job reporting.  The jobs and kill commands
  288.   functions as above, and you will
  289.   be informed when background jobs complete.  Fg and bg are not 
  290. ! availiable.
  291.   .PD
  292.   .br
  293.   .SS "Interactive Input Line Editing"
  294. --- 466,472 ----
  295.   job reporting.  The jobs and kill commands
  296.   functions as above, and you will
  297.   be informed when background jobs complete.  Fg and bg are not 
  298. ! available.
  299.   .PD
  300.   .br
  301.   .SS "Interactive Input Line Editing"
  302. ***************
  303. *** 540,546 ****
  304.   (note that the ASCII
  305.   .SM ESC
  306.   character is written as \s-1^[\s0\|),
  307. ! then the editing function performed is decribed.
  308.   Note that
  309.   .I "editing command"
  310.   names are used only with the
  311. --- 540,546 ----
  312.   (note that the ASCII
  313.   .SM ESC
  314.   character is written as \s-1^[\s0\|),
  315. ! then the editing function performed is described.
  316.   Note that
  317.   .I "editing command"
  318.   names are used only with the
  319. ***************
  320. *** 873,879 ****
  321.   .br
  322.   \fB[\fP \fIexpression\fP \fB]\fP
  323.   .SH DESCRIPTION
  324. ! \fBTest\f evalutates the \fIexpression\fP and returns zero status if true,
  325.   and non-zero status otherwise.
  326.   It is normally used as the controlling command of the \fBif\fP and \fBwhile\fP statements.
  327.   .LP
  328. --- 873,879 ----
  329.   .br
  330.   \fB[\fP \fIexpression\fP \fB]\fP
  331.   .SH DESCRIPTION
  332. ! \fBTest\f evaluates the \fIexpression\fP and returns zero status if true,
  333.   and non-zero status otherwise.
  334.   It is normally used as the controlling command of the \fBif\fP and \fBwhile\fP statements.
  335.   .LP
  336. *** sh/ChangeLog.old    Thu Aug 13 00:15:18 1992
  337. --- sh/ChangeLog    Sun Dec  6 00:15:01 1992
  338. ***************
  339. *** 1,3 ****
  340. --- 1,40 ----
  341. + Sat Dec  5 23:54:40 1992  Simon J. Gerraty  (sjg@zen)
  342. + 
  343. +     * finally fixed the fd leakage that caused pipes to not terminate
  344. +     immediately.
  345. + 
  346. + Sat Nov 28 23:01:38 1992  Simon J. Gerraty  (sjg@zen)
  347. + 
  348. +     * Makefile: added install target
  349. + 
  350. + Wed Nov 25 09:10:11 1992  Simon J. Gerraty  (sjg@zen)
  351. + 
  352. +     * c_cd(c_ksh.c): fixed bug causing cd ., cd .. to look at $CDPATH.
  353. + 
  354. + Thu Nov 19 23:32:42 1992  Simon J. Gerraty  (sjg@zen)
  355. + 
  356. +     * For now bind emacs mode complete-list to ESC=
  357. + 
  358. + Tue Sep 15 15:24:38 1992  Simon J. Gerraty  (sjg@zen)
  359. + 
  360. +     * main.c: call init_editmode() between processing .profile and
  361. +     .kshrc so that edit mode can be explicitly set in .kshrc
  362. +     regardless of FCEDIT, EDITOR and VISUAL values.
  363. + 
  364. + Tue Sep 15 15:08:06 1992  Philippe Michel (michel@thomson-lcr.fr) 
  365. + 
  366. +     * main.c: fixed bug in command line argument processing.
  367. + 
  368. + Fri Aug 21 15:24:37 1992  Bruce Momjian  (root%candle.uucp@bts.com)
  369. + 
  370. +     * exec.c: replace all calls of execute(tree, 0) with 
  371. +     execute(tree, flags & XXWHL) to ensure it is passed to children. 
  372. + 
  373. + Thu Aug 20 23:18:45 1992  Simon J. Gerraty  (sjg@zen)
  374. + 
  375. +     * fixed bug in complex_history: histsize not initialized before
  376. +     call to alloc().
  377. + 
  378.   Thu Aug 13 00:00:42 1992  Simon J. Gerraty  (sjg@zen)
  379.   
  380.       * setstr(), varsub(): be robust when given dud args.
  381. *** sh/Makefile.old    Thu Aug 13 00:00:07 1992
  382. --- sh/Makefile    Sun Dec  6 00:15:06 1992
  383. ***************
  384. *** 1,5 ****
  385.   # PD Bourne/Korn Shell
  386. ! # $Id: Makefile,v 1.3 1992/08/10 12:02:18 sjg Exp $
  387.   
  388.   SHELL = /bin/sh
  389.   MAKE  = make
  390. --- 1,5 ----
  391.   # PD Bourne/Korn Shell
  392. ! # $Id: Makefile,v 1.4 1992/12/05 13:15:06 sjg Exp $
  393.   
  394.   SHELL = /bin/sh
  395.   MAKE  = make
  396. ***************
  397. *** 6,11 ****
  398. --- 6,17 ----
  399.   
  400.   LN    = ln -s
  401.   
  402. + CHMOD=chmod
  403. + 
  404. + prefix=/usr/local
  405. + 
  406. + target=$(prefix)/bin/ksh
  407. + 
  408.   # You _can_ build this shell without the ../std tree if your
  409.   # system provides a sufficiently POSIX environment, or if your
  410.   # BSD system is a Sun or close.  If not try ../std.
  411. ***************
  412. *** 107,116 ****
  413.       makedepend $(CFLAGS) $(SRCS1) $(SRCS2)
  414.   
  415.   install:
  416. !     @echo "Try:"
  417. !     @echo "cp ksh /bin"
  418. !     @echo "strip /bin/ksh"
  419. !     @echo "chmod 555 /bin/ksh"
  420.   
  421.   .c.s:
  422.       $(CC) $(CFLAGS) -S -o $@ $<
  423. --- 113,121 ----
  424.       makedepend $(CFLAGS) $(SRCS1) $(SRCS2)
  425.   
  426.   install:
  427. !     -if test -f $(target); then mv $(target) $(target).old; fi
  428. !     cp ksh $(target)
  429. !     $(CHMOD) 755 $(target)
  430.   
  431.   .c.s:
  432.       $(CC) $(CFLAGS) -S -o $@ $<
  433. *** sh/c_ksh.c.old    Sat Apr 25 18:33:28 1992
  434. --- sh/c_ksh.c    Sun Dec  6 00:15:11 1992
  435. ***************
  436. *** 3,9 ****
  437.    */
  438.   
  439.   #ifndef lint
  440. ! static char *RCSid = "$Id: c_ksh.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  441.   #endif
  442.   
  443.   #include "stdh.h"
  444. --- 3,9 ----
  445.    */
  446.   
  447.   #ifndef lint
  448. ! static char *RCSid = "$Id: c_ksh.c,v 1.3 1992/12/05 13:15:11 sjg Exp $";
  449.   #endif
  450.   
  451.   #include "stdh.h"
  452. ***************
  453. *** 78,85 ****
  454.           dir = strval(v_oldpwd = global("OLDPWD"));
  455.           prt = 1;
  456.       }
  457. !     if (dir[0] == '/' || (dir[0] == '.' && (dir[1] == '/' ||
  458. !         (dir[1] == '.' && dir[2] == '/')))) {
  459.           /*
  460.            * dir is an explicitly named path, so no CDPATH search
  461.            */
  462. --- 78,87 ----
  463.           dir = strval(v_oldpwd = global("OLDPWD"));
  464.           prt = 1;
  465.       }
  466. !     if (dir[0] == '/' ||
  467. !         (dir[0] == '.' &&
  468. !          (dir[1] == '.' || dir[1] == '/' || dir[1] == '\0'))) {
  469. ! 
  470.           /*
  471.            * dir is an explicitly named path, so no CDPATH search
  472.            */
  473. *** sh/config.h.old    Thu Aug 13 00:15:22 1992
  474. --- sh/config.h    Sun Dec  6 00:15:15 1992
  475. ***************
  476. *** 1,7 ****
  477.   /*
  478.    * Configuration file for the PD ksh
  479.    *
  480. !  * RCSid: $Id: config.h,v 1.5 1992/08/12 14:15:22 sjg Exp $
  481.    */
  482.   
  483.   #ifndef    _CONFIG_H
  484. --- 1,7 ----
  485.   /*
  486.    * Configuration file for the PD ksh
  487.    *
  488. !  * RCSid: $Id: config.h,v 1.6 1992/12/05 13:15:15 sjg Exp $
  489.    */
  490.   
  491.   #ifndef    _CONFIG_H
  492. ***************
  493. *** 49,61 ****
  494.   /* #define    SILLY            /* Game of life in EMACS mode */
  495.   /* #define    SWTCH            /* Handle SWTCH for shl(1) */
  496.   
  497. ! /*
  498. !  * better to leave this one out, and let users that
  499. !  * like it add
  500. !  *   bind '^[^['=complete-list
  501. !  * to their .kshrc
  502. !  */
  503. ! /*#define COMPLETE_LIST            /* default to Emacs style completion */
  504.   /*
  505.    * ALTERNATIONS is csh not ksh, but it is such a nice feature...
  506.    */
  507. --- 49,55 ----
  508.   /* #define    SILLY            /* Game of life in EMACS mode */
  509.   /* #define    SWTCH            /* Handle SWTCH for shl(1) */
  510.   
  511. ! 
  512.   /*
  513.    * ALTERNATIONS is csh not ksh, but it is such a nice feature...
  514.    */
  515. *** sh/emacs.c.old    Mon Aug 10 22:02:31 1992
  516. --- sh/emacs.c    Sun Dec  6 00:15:20 1992
  517. ***************
  518. *** 10,16 ****
  519.   #ifdef EMACS
  520.   
  521.   #ifndef lint
  522. ! static char *RCSid = "$Id: emacs.c,v 1.3 1992/08/10 12:02:31 sjg Exp $";
  523.   #endif
  524.   
  525.   #include "stdh.h"
  526. --- 10,16 ----
  527.   #ifdef EMACS
  528.   
  529.   #ifndef lint
  530. ! static char *RCSid = "$Id: emacs.c,v 1.4 1992/12/05 13:15:20 sjg Exp $";
  531.   #endif
  532.   
  533.   #include "stdh.h"
  534. ***************
  535. *** 203,215 ****
  536.       {x_stuff,     "stuff",        0,     0,    0 },
  537.       {x_transpose,    "transpose-chars",    0, CTRL('T'),    0 },
  538.   #endif
  539. - #ifdef COMPLETE_LIST
  540. -     {x_complete,    "complete",        1,     0,    0 },
  541. -      {x_comp_list,    "complete-list",    1, CTRL('['),    0 },
  542. - #else
  543.       {x_complete,    "complete",        1, CTRL('['),    0 },
  544. !      {x_comp_list,    "complete-list",    1,      0,    0 },
  545. ! #endif
  546.       {x_enumerate,    "list",            1,    '?',    0 },
  547.       {x_comp_file,    "complete-file",    1, CTRL('X'),    0 },
  548.       {x_comp_comm,    "complete-command",    2, CTRL('['),    0 },
  549. --- 203,210 ----
  550.       {x_stuff,     "stuff",        0,     0,    0 },
  551.       {x_transpose,    "transpose-chars",    0, CTRL('T'),    0 },
  552.   #endif
  553.       {x_complete,    "complete",        1, CTRL('['),    0 },
  554. !         {x_comp_list,    "complete-list",    1,    '=',    0 },
  555.       {x_enumerate,    "list",            1,    '?',    0 },
  556.       {x_comp_file,    "complete-file",    1, CTRL('X'),    0 },
  557.       {x_comp_comm,    "complete-command",    2, CTRL('['),    0 },
  558. *** sh/eval.c.old    Thu Aug 13 00:15:28 1992
  559. --- sh/eval.c    Sun Dec  6 00:15:25 1992
  560. ***************
  561. *** 3,9 ****
  562.    */
  563.   
  564.   #ifndef lint
  565. ! static char *RCSid = "$Id: eval.c,v 1.4 1992/08/12 14:15:28 sjg Exp $";
  566.   #endif
  567.   
  568.   #include "stdh.h"
  569. --- 3,9 ----
  570.    */
  571.   
  572.   #ifndef lint
  573. ! static char *RCSid = "$Id: eval.c,v 1.5 1992/12/05 13:15:25 sjg Exp $";
  574.   #endif
  575.   
  576.   #include "stdh.h"
  577. ***************
  578. *** 469,479 ****
  579.           ofd1 = savefd(1);
  580.           dup2(pv[1], 1);
  581.           close(pv[1]);
  582. ! #if 0
  583. !         exchild(t, XXCOM|XPIPEO);
  584. ! #else
  585.           execute(t, XFORK|XXCOM|XPIPEO);
  586. - #endif
  587.           dup2(ofd1, 1);
  588.           close(ofd1);
  589.           xp->split = 1;    /* waitlast() */
  590. --- 469,477 ----
  591.           ofd1 = savefd(1);
  592.           dup2(pv[1], 1);
  593.           close(pv[1]);
  594. !         (void) fd_clexec(pv[0]);
  595. !         (void) fd_clexec(ofd1);
  596.           execute(t, XFORK|XXCOM|XPIPEO);
  597.           dup2(ofd1, 1);
  598.           close(ofd1);
  599.           xp->split = 1;    /* waitlast() */
  600. *** sh/exec.c.old    Mon Aug 10 22:02:38 1992
  601. --- sh/exec.c    Sun Dec  6 00:15:29 1992
  602. ***************
  603. *** 3,9 ****
  604.    */
  605.   
  606.   #ifndef lint
  607. ! static char *RCSid = "$Id: exec.c,v 1.4 1992/08/10 12:02:38 sjg Exp $";
  608.   #endif
  609.   
  610.   #include "stdh.h"
  611. --- 3,9 ----
  612.    */
  613.   
  614.   #ifndef lint
  615. ! static char *RCSid = "$Id: exec.c,v 1.5 1992/12/05 13:15:29 sjg Exp $";
  616.   #endif
  617.   
  618.   #include "stdh.h"
  619. ***************
  620. *** 46,56 ****
  621. --- 46,66 ----
  622.   {
  623.     (void) memset(clexec_tab, 0, sizeof(clexec_tab)-1);
  624.   }
  625. + #endif
  626.   
  627. + /*
  628. +  * we now use this function always.
  629. +  */
  630.   int
  631.   fd_clexec(fd)
  632.     int fd;
  633.   {
  634. + #ifndef F_SETFD
  635. +   static int once = 0;
  636. + 
  637. +   if (once++ == 0)
  638. +     init_clexec();
  639. + 
  640.     if (fd < sizeof(clexec_tab))
  641.     {
  642.       clexec_tab[fd] = 1;
  643. ***************
  644. *** 57,64 ****
  645.       return 0;
  646.     }
  647.     return -1;
  648. ! }
  649.   #endif
  650.   
  651.   
  652.   /*
  653. --- 67,76 ----
  654.       return 0;
  655.     }
  656.     return -1;
  657. ! #else
  658. !   return fcntl(fd, F_SETFD, 1);
  659.   #endif
  660. + }
  661.   
  662.   
  663.   /*
  664. ***************
  665. *** 123,128 ****
  666. --- 135,142 ----
  667.           while (t->type == TPIPE) {
  668.               openpipe(pv);
  669.               (void) dup2(pv[1], 1);    /* stdout of curr */
  670. +             (void) fd_clexec(pv[0]);
  671. +             (void) fd_clexec(pv[1]);
  672.               exchild(t->left, flags);
  673.               (void) dup2(pv[0], 0);    /* stdin of next */
  674.               closepipe(pv);
  675. ***************
  676. *** 131,136 ****
  677. --- 145,152 ----
  678.           }
  679.           flags &= ~ XPIPEO;
  680.           (void) dup2(e.savefd[1], 1); /* stdout of last */
  681. +         (void) fd_clexec(e.savefd[0]);
  682. +         (void) fd_clexec(e.savefd[1]);
  683.           exchild(t, flags);
  684.           (void) dup2(e.savefd[0], 0); /* close pipe in */
  685.           if (!(flags&XBGND))
  686. ***************
  687. *** 139,148 ****
  688.   
  689.         case TLIST:
  690.           while (t->type == TLIST) {
  691. !             execute(t->left, 0);
  692.               t = t->right;
  693.           }
  694. !         rv = execute(t, 0);
  695.           break;
  696.   
  697.         case TASYNC:
  698. --- 155,164 ----
  699.   
  700.         case TLIST:
  701.           while (t->type == TLIST) {
  702. !             execute(t->left, flags & XXWHL);
  703.               t = t->right;
  704.           }
  705. !         rv = execute(t, flags & XXWHL);
  706.           break;
  707.   
  708.         case TASYNC:
  709. ***************
  710. *** 151,159 ****
  711.   
  712.         case TOR:
  713.         case TAND:
  714. !         rv = execute(t->left, 0);
  715.           if (t->right != NULL && (rv == 0) == (t->type == TAND))
  716. !             rv = execute(t->right, 0);
  717.           break;
  718.   
  719.         case TFOR:
  720. --- 167,175 ----
  721.   
  722.         case TOR:
  723.         case TAND:
  724. !         rv = execute(t->left, flags & XXWHL);
  725.           if (t->right != NULL && (rv == 0) == (t->type == TAND))
  726. !             rv = execute(t->right, flags & XXWHL);
  727.           break;
  728.   
  729.         case TFOR:
  730. ***************
  731. *** 165,171 ****
  732.                   goto Break1;
  733.           while (*ap != NULL) {
  734.               setstr(global(t->str), *ap++);
  735. !             rv = execute(t->left, 0);
  736.           }
  737.         Break1:
  738.           break;
  739. --- 181,187 ----
  740.                   goto Break1;
  741.           while (*ap != NULL) {
  742.               setstr(global(t->str), *ap++);
  743. !             rv = execute(t->left, flags & XXWHL);
  744.           }
  745.         Break1:
  746.           break;
  747. ***************
  748. *** 183,189 ****
  749.               if ((cp = do_selectargs(ap, cp)) == (char *)1)
  750.                   break;
  751.               setstr(global(t->str), cp);
  752. !             rv = execute(t->left, 0);
  753.           }
  754.           break;
  755.           
  756. --- 199,205 ----
  757.               if ((cp = do_selectargs(ap, cp)) == (char *)1)
  758.                   break;
  759.               setstr(global(t->str), cp);
  760. !             rv = execute(t->left, flags & XXWHL);
  761.           }
  762.           break;
  763.           
  764. ***************
  765. *** 193,199 ****
  766.           while ((i = setjmp(e.jbuf)))
  767.               if (i == LBREAK)
  768.                   goto Break2;
  769. !         while ((execute(t->left, 0) == 0) == (t->type == TWHILE))
  770.               rv = execute(t->right, XXWHL);
  771.         Break2:
  772.           break;
  773. --- 209,215 ----
  774.           while ((i = setjmp(e.jbuf)))
  775.               if (i == LBREAK)
  776.                   goto Break2;
  777. !         while ((execute(t->left, flags & XXWHL) == 0) == (t->type == TWHILE))
  778.               rv = execute(t->right, XXWHL);
  779.         Break2:
  780.           break;
  781. ***************
  782. *** 202,210 ****
  783.         case TELIF:
  784.           if (t->right == NULL)
  785.               break;    /* should be error */
  786. !         rv = execute(t->left, 0) == 0 ?
  787. !             execute(t->right->left, 0) :
  788. !             execute(t->right->right, 0);
  789.           break;
  790.   
  791.         case TCASE:
  792. --- 218,226 ----
  793.         case TELIF:
  794.           if (t->right == NULL)
  795.               break;    /* should be error */
  796. !         rv = execute(t->left, flags & XXWHL) == 0 ?
  797. !             execute(t->right->left, flags & XXWHL) :
  798. !             execute(t->right->right, flags & XXWHL);
  799.           break;
  800.   
  801.         case TCASE:
  802. ***************
  803. *** 215,225 ****
  804.                   goto Found;
  805.           break;
  806.         Found:
  807. !         rv = execute(t->left, 0);
  808.           break;
  809.   
  810.         case TBRACE:
  811. !         rv = execute(t->left, 0);
  812.           break;
  813.   
  814.         case TFUNCT:
  815. --- 231,241 ----
  816.                   goto Found;
  817.           break;
  818.         Found:
  819. !         rv = execute(t->left, flags & XXWHL);
  820.           break;
  821.   
  822.         case TBRACE:
  823. !         rv = execute(t->left, flags & XXWHL);
  824.           break;
  825.   
  826.         case TFUNCT:
  827. ***************
  828. *** 351,357 ****
  829.           if (setjmp(e.jbuf))
  830.               rv = exstat; /* return # */
  831.           else
  832. !             rv = execute(tp->val.t, 0);
  833.           break;
  834.   
  835.       case CEXEC:        /* executable command */
  836. --- 367,373 ----
  837.           if (setjmp(e.jbuf))
  838.               rv = exstat; /* return # */
  839.           else
  840. !             rv = execute(tp->val.t, flags & XXWHL);
  841.           break;
  842.   
  843.       case CEXEC:        /* executable command */
  844. *** sh/history.c.old    Thu Aug 13 00:15:33 1992
  845. --- sh/history.c    Sun Dec  6 00:15:34 1992
  846. ***************
  847. *** 5,11 ****
  848.    */
  849.   
  850.   #ifndef lint
  851. ! static char *RCSid = "$Id: history.c,v 1.4 1992/08/12 14:15:33 sjg Exp $";
  852.   #endif
  853.   /*
  854.    *    This file contains
  855. --- 5,11 ----
  856.    */
  857.   
  858.   #ifndef lint
  859. ! static char *RCSid = "$Id: history.c,v 1.5 1992/12/05 13:15:34 sjg Exp $";
  860.   #endif
  861.   /*
  862.    *    This file contains
  863. ***************
  864. *** 643,650 ****
  865.   
  866.       histfd = fcntl(histfd, F_DUPFD, FDBASE);
  867.       
  868. !     (void) fcntl(histfd, F_SETFD, 1); /* close on exec */
  869. !     
  870.       (void) flock(histfd, LOCK_EX);
  871.   
  872.       hsize = lseek(histfd, 0L, L_XTND);
  873. --- 643,650 ----
  874.   
  875.       histfd = fcntl(histfd, F_DUPFD, FDBASE);
  876.       
  877. !     (void) fd_clexec(histfd);
  878. ! 
  879.       (void) flock(histfd, LOCK_EX);
  880.   
  881.       hsize = lseek(histfd, 0L, L_XTND);
  882. *** sh/io.c.old    Mon Aug 10 22:02:49 1992
  883. --- sh/io.c    Sun Dec  6 00:15:39 1992
  884. ***************
  885. *** 3,9 ****
  886.    */
  887.   
  888.   #ifndef lint
  889. ! static char *RCSid = "$Id: io.c,v 1.3 1992/08/10 12:02:49 sjg Exp $";
  890.   #endif
  891.   
  892.   #include "stdh.h"
  893. --- 3,9 ----
  894.    */
  895.   
  896.   #ifndef lint
  897. ! static char *RCSid = "$Id: io.c,v 1.4 1992/12/05 13:15:39 sjg Exp $";
  898.   #endif
  899.   
  900.   #include "stdh.h"
  901. ***************
  902. *** 147,157 ****
  903.                   return -1;
  904.               else
  905.                   errorf("too many files open in shell\n");
  906. - #ifdef F_SETFD
  907. -         (void) fcntl(nfd, F_SETFD, 1);
  908. - #else
  909.           (void) fd_clexec(ttyfd);
  910. - #endif
  911.           close(fd);
  912.       } else
  913.           nfd = fd;
  914. --- 147,153 ----
  915. *** sh/jobs.c.old    Mon Aug 10 22:02:52 1992
  916. --- sh/jobs.c    Sun Dec  6 00:15:43 1992
  917. ***************
  918. *** 2,8 ****
  919.    * Process and job control
  920.    */
  921.   #ifndef lint
  922. ! static char *RCSid = "$Id: jobs.c,v 1.5 1992/08/10 12:02:52 sjg Exp $";
  923.   #endif
  924.   
  925.   /*
  926. --- 2,8 ----
  927.    * Process and job control
  928.    */
  929.   #ifndef lint
  930. ! static char *RCSid = "$Id: jobs.c,v 1.6 1992/12/05 13:15:43 sjg Exp $";
  931.   #endif
  932.   
  933.   /*
  934. ***************
  935. *** 320,327 ****
  936.       for (i = (flags&XXWHL) ? 1 : 0; i < NUFILE; i++)
  937.           flushshf(i);
  938.   
  939. -     /* create child process */
  940. -     forksleep = 0;
  941.   #ifdef JOBS
  942.       /* don't allow SIGCHLD until we are ready */
  943.   
  944. --- 320,325 ----
  945. ***************
  946. *** 331,336 ****
  947. --- 329,336 ----
  948.       sigsetmask(sm_sigchld);
  949.   # endif
  950.   #endif
  951. +     /* create child process */
  952. +     forksleep = 0;
  953.       while ((i = fork()) < 0 && errno == EAGAIN && forksleep < 32) {
  954.           if (forksleep) {
  955.               sleep(forksleep);
  956. *** sh/main.c.old    Thu Aug 13 00:15:39 1992
  957. --- sh/main.c    Sun Dec  6 00:15:49 1992
  958. ***************
  959. *** 3,9 ****
  960.    */
  961.   
  962.   #ifndef lint
  963. ! static char *RCSid = "$Id: main.c,v 1.6 1992/08/12 14:15:39 sjg Exp $";
  964.   #endif
  965.   
  966.   #define    EXTERN                /* define EXTERNs in sh.h */
  967. --- 3,9 ----
  968.    */
  969.   
  970.   #ifndef lint
  971. ! static char *RCSid = "$Id: main.c,v 1.7 1992/12/05 13:15:49 sjg Exp $";
  972.   #endif
  973.   
  974.   #define    EXTERN                /* define EXTERNs in sh.h */
  975. ***************
  976. *** 119,127 ****
  977.   #endif
  978.       ainit(&aperm);        /* initialize permanent Area */
  979.   
  980. - #ifndef F_SETFD
  981. -   init_clexec();
  982. - #endif
  983.       /* set up base enviroment */
  984.       e.type = E_NONE;
  985.       ainit(&e.area);
  986. --- 119,124 ----
  987. ***************
  988. *** 238,248 ****
  989.       }
  990.       if (s->type == STTY) {
  991.           ttyfd = fcntl(0, F_DUPFD, FDBASE);
  992. - #ifdef F_SETFD
  993. -         (void) fcntl(ttyfd, F_SETFD, 1);
  994. - #else
  995.           (void) fd_clexec(ttyfd);
  996. - #endif
  997.   #ifdef EMACS
  998.             x_init_emacs();
  999.   #endif
  1000. --- 235,241 ----
  1001. ***************
  1002. *** 254,269 ****
  1003.       if (!qflag)
  1004.           ignoresig(SIGQUIT);
  1005.   
  1006. !     l->argv = &argv[argi];
  1007.       l->argc = argc - argi;
  1008.       l->argv[0] = name;
  1009.       resetopts();
  1010.   
  1011. !     if (name[0] == '-') {
  1012.           flag[FTALKING] = 1;
  1013.           (void) include("/etc/profile");
  1014.           (void) include(".profile");
  1015.       }
  1016.   
  1017.       /* include $ENV */
  1018.       arg = substitute(strval(global("ENV")), DOTILDE);
  1019. --- 247,271 ----
  1020.       if (!qflag)
  1021.           ignoresig(SIGQUIT);
  1022.   
  1023. !     l->argv = &argv[argi - 1];
  1024.       l->argc = argc - argi;
  1025.       l->argv[0] = name;
  1026.       resetopts();
  1027.   
  1028. !     if (name[0] == '-' ||
  1029. !         ((arg = strrchr(name, '/')) && *++arg == '-')) {
  1030.           flag[FTALKING] = 1;
  1031.           (void) include("/etc/profile");
  1032.           (void) include(".profile");
  1033.       }
  1034. +     /*
  1035. +      * do this after reading *profile but before
  1036. +      * reading $ENV if any.
  1037. +      */
  1038. + #if defined(EMACS) || defined(VI)
  1039. +     if (flag[FTALKING])
  1040. +       init_editmode();
  1041. + #endif
  1042.   
  1043.       /* include $ENV */
  1044.       arg = substitute(strval(global("ENV")), DOTILDE);
  1045. ***************
  1046. *** 278,286 ****
  1047.         signal(SIGTERM, trapsig);
  1048.   #endif
  1049.         ignoresig(SIGINT);
  1050. - #if defined(EMACS) || defined(VI)
  1051. -       init_editmode();
  1052. - #endif
  1053.       } else
  1054.         flag[FHASHALL] = 1;
  1055.   
  1056. --- 280,285 ----
  1057. *** sh/patchlevel.h.old    Thu Aug 13 00:15:45 1992
  1058. --- sh/patchlevel.h    Sun Dec  6 00:15:52 1992
  1059. ***************
  1060. *** 1,6 ****
  1061.   /*
  1062.    * PD KSH
  1063. !  * $Id: patchlevel.h,v 4.7 1992/08/12 14:15:45 sjg Exp $
  1064.    */
  1065.   #define VERSION        4
  1066. ! #define PATCHLEVEL    7
  1067. --- 1,6 ----
  1068.   /*
  1069.    * PD KSH
  1070. !  * $Id: patchlevel.h,v 4.8 1992/12/05 13:15:52 sjg Exp $
  1071.    */
  1072.   #define VERSION        4
  1073. ! #define PATCHLEVEL    8
  1074. *** sh/version.c.old    Thu Aug 13 00:15:53 1992
  1075. --- sh/version.c    Sun Dec  6 00:15:55 1992
  1076. ***************
  1077. *** 3,9 ****
  1078.    */
  1079.   
  1080.   #ifndef lint
  1081. ! static char *RCSid = "$Id: version.c,v 1.6 1992/08/12 14:15:53 sjg Exp $";
  1082.   #endif
  1083.   
  1084.   #include "stdh.h"
  1085. --- 3,9 ----
  1086.    */
  1087.   
  1088.   #ifndef lint
  1089. ! static char *RCSid = "$Id: version.c,v 1.7 1992/12/05 13:15:55 sjg Exp $";
  1090.   #endif
  1091.   
  1092.   #include "stdh.h"
  1093. ***************
  1094. *** 12,59 ****
  1095.   #include "patchlevel.h"
  1096.   
  1097.   char ksh_version [] =
  1098. !     "KSH_VERSION=@(#)PD KSH v4.7 92/08/12";
  1099.   
  1100. - /***
  1101. - $Log: version.c,v $
  1102. -  * Revision 1.6  1992/08/12  14:15:53  sjg
  1103. -  * Patch07: fix some build problems,
  1104. -  * and avoid core dump from arg processing bug.
  1105. -  *
  1106. -  * Revision 1.5  1992/08/10  12:03:29  sjg
  1107. -  * Update for patch06.
  1108. -  * Contributions from Peter Collinson, Neil Smithline and sjg
  1109. -  *
  1110. -  * Revision 1.4  1992/05/12  09:30:37  sjg
  1111. -  * see ChangeLog
  1112. -  *
  1113. -  * Revision 1.3  1992/05/03  08:29:20  sjg
  1114. -  * Update for Patch05
  1115. -  *
  1116. -  * Revision 1.2  1992/04/25  08:33:28  sjg
  1117. -  * Added RCS key.
  1118. -  *
  1119. -  * Revision 1.1  1992/04/18  05:51:48  sjg
  1120. -  * Initial revision
  1121. -  *
  1122. - Version  4.0  91/11/09  sjg
  1123. - distribution
  1124. - Revision 3.3  89/03/27  15:52:29  egisin
  1125. - distribution
  1126. - 
  1127. - Revision 3.2  88/12/14  20:10:41  egisin
  1128. - many fixes
  1129. - 
  1130. - Revision 3.1  88/11/03  09:18:36  egisin
  1131. - alpha distribution
  1132. - 
  1133. - Revision 1.3  88/10/20  17:34:03  egisin
  1134. - added @(#) to ksh_version
  1135. - 
  1136. - Revision 1.2  88/09/27  19:01:58  egisin
  1137. - fix version.c
  1138. - 
  1139. - Revision 1.1  88/09/27  18:59:06  egisin
  1140. - Initial revision
  1141. - ***/
  1142.   
  1143. --- 12,17 ----
  1144.   #include "patchlevel.h"
  1145.   
  1146.   char ksh_version [] =
  1147. !     "KSH_VERSION=@(#)PD KSH v4.8 92/12/05";
  1148.   
  1149.   
  1150.  
  1151. exit 0 # Just in case...
  1152.