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