home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume29 / pdksh / patch03a < prev    next >
Encoding:
Text File  |  1992-04-25  |  29.9 KB  |  1,352 lines
  1. Newsgroups: comp.sources.misc
  2. From: sjg@zen.void.oz.au (Simon J. Gerraty)
  3. Subject:  v29i083:  pdksh - Public Domain Korn Shell, v4, Patch03a/5
  4. Message-ID: <1992Apr26.041420.21937@sparky.imd.sterling.com>
  5. X-Md4-Signature: 217984c7db21459f0fe18fcfae6ca2ed
  6. Date: Sun, 26 Apr 1992 04:14:20 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: sjg@zen.void.oz.au (Simon J. Gerraty)
  10. Posting-number: Volume 29, Issue 83
  11. Archive-name: pdksh/patch03a
  12. Environment: UNIX
  13. Patch-To: pdksh: Volume 25, Issue 47-55
  14.  
  15. Before applying this patch you must:
  16.  
  17.     mv sh/ulimit.c sh/do_ulimit.c
  18.  
  19. Apply the patch:
  20.  
  21.     patch -p0 < patch03a
  22.     patch -p0 < patch03b
  23.     patch -p0 < patch03c
  24.     patch -p0 < patch03d
  25.     patch -p0 < patch03e
  26.  
  27. Prereq: 09-Nov-91
  28. Prereq: 10-Nov-91
  29. Prereq: 25-Nov-91
  30. Prereq: 25-Apr-92
  31. *** PATCHDATES.old    Sat Apr 25 17:44:07 1992
  32. --- PATCHDATES    Sun Apr 26 10:21:49 1992
  33. ***************
  34. *** 3,5 ****
  35. --- 3,6 ----
  36.   10-Nov-91
  37.   25-Nov-91
  38.   25-Apr-92
  39. + 26-Apr-92
  40. *** sh/ChangeLog.old    Sat Apr 25 17:44:13 1992
  41. --- sh/ChangeLog    Sat Apr 25 00:24:10 1992
  42. ***************
  43. *** 1,3 ****
  44. --- 1,90 ----
  45. + Sat Apr 25 00:20:51 1992  Simon J. Gerraty  (sjg@zen)
  46. + 
  47. +     * Implemented a simple history file.
  48. +     The default file is "$HOME/.pdksh_hist" but can be changed by
  49. +     setting HISTFILE in any of /etc/profile,.profile or .kshrc.
  50. +     The format is trivial - one line per history item.  
  51. +     You can creat a set history file, by making it read-only.
  52. +     History is only saved during wrap-up and only if the file is
  53. +     writeable.  NOTE: if writeable the file is OVERWRITTEN.
  54. + 
  55. + Fri Apr 24 22:22:04 1992  Simon J Gerraty  (sjg@zen)
  56. + 
  57. +     * sigact.c: New file.
  58. +     An implementation of sigaction() and freinds, which simply
  59. +     interfaces to BSD's setsigmask() et al, BSD4.1's setsig() or plain
  60. +     old signal(2).  It attempts to use the most useful available.
  61. +     If it thinks the system really has sigaction() it compiles to
  62. +     noting, and its header sigact.h does nothing.
  63. +     At present all use of sigaction is bounded by USE_SIGACT, if/when
  64. +     this approach appears to work, the alternatives will be withdrawn.
  65. + 
  66. + Fri Apr 24 10:42:40 1992  Simon J Gerraty  (sjg@taureau)
  67. + 
  68. +     * Added support for sigaction and friends!, turns out sigset() 
  69. +     et al just don't handle job control.  Define USE_SIGACT if you
  70. +     have sigaction().  Job control now works on this System V machine
  71. +     (Bull DPX/2).
  72. + 
  73. +     * getsc_(lex.c), x_getc(edit.c):  Added goto's! to allow the
  74. +     read() calls to be retried (on systems that don't do it
  75. +     automatically) if the read() was interrupted by a SIGCHLD
  76. +     (sigchld_caught > 0).  This was the cause of the problem with an
  77. +     async child terminating the shell on System V.
  78. + 
  79. + Wed Apr 22 14:57:01 1992  Simon J Gerraty  (sjg@taureau)
  80. + 
  81. +     * exchild(jobs.c): block SIGCHLD when fork()ing, until safe to
  82. +     receive.
  83. + 
  84. +     * Added support? for sigset() and friends.  Allow JOBS to work on
  85. +     System V machines.  This does NOT work right yet.
  86. +     With JOBS defined, an async process terminates the shell when it
  87. +     (the child) exits, and ^Z does nothing!  
  88. + 
  89. + Tue Apr 21 15:18:08 1992  Simon J. Gerraty  (sjg@sun0)
  90. + 
  91. +     * removed const qualifyer from setctypes() 1st arg, as gcc-2.1
  92. +     generates incorrect code for this function.  This is a temperary
  93. +     hack until gcc is fixed.
  94. + 
  95. +     * do not install std/stdc/stdarg.h in std/h, any compiler that
  96. +     will use stdarg.h should have one.
  97. + 
  98. + Sun Apr 19 20:16:32 1992  Simon J. Gerraty  (sjg@zen)
  99. + 
  100. +     * added support of stdargs to tree.c and _fixed_ the use of
  101. +     varargs. 
  102. + 
  103. + Sat Apr 18 16:35:48 1992  Simon J. Gerraty  (sjg@zen)
  104. + 
  105. +     * x_read(edit.c): added logic to check $EDITOR etc.
  106. + 
  107. + 
  108. + Fri, 10 Jan 92 13:13:52      Bullseye Software  (sumax!polari!bullseye)
  109. + 
  110. +     * alloc.c:afreeall() references memory it has already deallocated.
  111. + 
  112. + Wed, 1 Jan 92 20:03:55    Bert Gijsbers (a430mcb1@diamond.sara.nl)
  113. + 
  114. +     * expand(eval.c):  PS1='${PWD##/*/}[!]% ' prints also characters
  115. +     with ascii = 128 
  116. + 
  117. +     * main(main.c): Testing whether the first letter of argv[0] is a
  118. +     '-' does not work when ksh reads .kshrc.
  119. + 
  120. + Sun, 29 Dec 91 20:05:02  Bert Gijsbers (a430mcb1@diamond.sara.nl)
  121. + 
  122. +     * Support for Minix.
  123. + 
  124. + Wed, 11 Dec 91 12:41:31    Kees J. Bot (kjb@cs.vu.nl)
  125. + 
  126. +     * fixes for sun3 with 4.1.1
  127. + 
  128. + Wed, 4 Dec 91 15:53:43  Reg Quinton (reggers@julian.uwo.ca)
  129. + 
  130. +     * fixes for SGI
  131. + 
  132.   Mon Nov 25 12:36:42 1991  Simon J. Gerraty  (sjg at zen)
  133.   
  134.       * stdh.h:  make sure FD_CLEXEC is defined if we support F_SETFD.
  135. *** sh/Makefile.old    Sat Apr 25 17:44:13 1992
  136. --- sh/Makefile    Sat Apr 25 18:33:13 1992
  137. ***************
  138. *** 1,10 ****
  139.   # PD Bourne/Korn Shell
  140. ! # @(#)Makefile 1.3 91/11/25 13:33:10
  141.   
  142.   SHELL = /bin/sh
  143.   MAKE  = make
  144.   
  145. ! LN    = ln
  146.   
  147.   # You _can_ build this shell without the ../std tree if your
  148.   # system provides a sufficiently POSIX environment, or if your
  149. --- 1,10 ----
  150.   # PD Bourne/Korn Shell
  151. ! # $Id: Makefile,v 1.2 1992/04/25 08:33:03 sjg Exp $
  152.   
  153.   SHELL = /bin/sh
  154.   MAKE  = make
  155.   
  156. ! LN    = ln -s
  157.   
  158.   # You _can_ build this shell without the ../std tree if your
  159.   # system provides a sufficiently POSIX environment, or if your
  160. ***************
  161. *** 13,19 ****
  162.   # gcc is good value on most mc68k's and sun386's if nothing else.
  163.   # if you don't have gcc cc should do
  164.   # CC=gcc -pipe
  165. ! CC=cc
  166.   
  167.   # The following are the defintions used (or thereabouts) 
  168.   # to build ksh without ../std
  169. --- 13,19 ----
  170.   # gcc is good value on most mc68k's and sun386's if nothing else.
  171.   # if you don't have gcc cc should do
  172.   # CC=gcc -pipe
  173. ! CC=gcc -pipe 
  174.   
  175.   # The following are the defintions used (or thereabouts) 
  176.   # to build ksh without ../std
  177. ***************
  178. *** 20,32 ****
  179.   #
  180.   # sun386 SunOS 4.0.2, sun3 SunOS 4.0.3
  181.   # CONFIG=-D_BSD
  182. ! # XOPTS=-DNOSTDHRDS
  183.   # copy these from ../std/stdc or ensure they are in libstdc.a
  184.   # XOBJS = memmove.o strstr.o 
  185.   #
  186.   # sun3  SunOS 4.1.1
  187.   # CONFIG=-D_BSD
  188. ! # XOPTS=-DNOSTDHRDS
  189.   # copy these from ../std/stdc or ensure they are in libstdc.a
  190.   # XOBJS = memmove.o
  191.   #
  192. --- 20,32 ----
  193.   #
  194.   # sun386 SunOS 4.0.2, sun3 SunOS 4.0.3
  195.   # CONFIG=-D_BSD
  196. ! # XOPTS=-DNOSTDHDRS
  197.   # copy these from ../std/stdc or ensure they are in libstdc.a
  198.   # XOBJS = memmove.o strstr.o 
  199.   #
  200.   # sun3  SunOS 4.1.1
  201.   # CONFIG=-D_BSD
  202. ! # XOPTS=-DNOSTDHDRS
  203.   # copy these from ../std/stdc or ensure they are in libstdc.a
  204.   # XOBJS = memmove.o
  205.   #
  206. ***************
  207. *** 33,63 ****
  208.   # sun4c (sparc) SunOS 4.1.1
  209.   # CC=cc -pipe    # don't use gcc
  210.   # CONFIG=-D_BSD
  211. ! # XOPTS=-DNOSTDHRDS
  212.   # copy these from ../std/stdc or ensure they are in libstdc.a
  213.   # XOBJS = memmove.o
  214.   #
  215.   # Bull DPX/2 B.O.S. 2.00.45
  216. ! # CONFIG=-D_SYSV
  217.   # XOPTS=
  218.   # XOBJS=
  219.   #
  220.   
  221.   #CONFIG= -D_SYSV
  222.   #CONFIG= -D_BSD -DHAVE_SYS_STDTYPES
  223.   CONFIG= -D_BSD
  224.   
  225.   STD=../std
  226.   INCL=$(STD)/h
  227. ! XINCL=-I$(STD)/h
  228.   LDOPTS=-L$(STD)
  229.   XOBJS=
  230.   
  231.   # use -O if you trust it :-)
  232. ! #DBG=-g
  233.   CFLAGS = $(DBG) $(CONFIG) $(XINCL) $(XOPTS)
  234.   
  235. ! LDFLAGS = $(LDOPTS)
  236.   
  237.   COMPATLIBS = -lstdc -lposix
  238.   #XLIBS = -lc_s
  239. --- 33,70 ----
  240.   # sun4c (sparc) SunOS 4.1.1
  241.   # CC=cc -pipe    # don't use gcc
  242.   # CONFIG=-D_BSD
  243. ! # XOPTS=-DNOSTDHDRS
  244.   # copy these from ../std/stdc or ensure they are in libstdc.a
  245.   # XOBJS = memmove.o
  246.   #
  247.   # Bull DPX/2 B.O.S. 2.00.45
  248. ! # CC=gcc -ansi
  249. ! # CONFIG=-D_POSIX_SOURCE
  250.   # XOPTS=
  251.   # XOBJS=
  252.   #
  253. + # Minix-386 1.5.10 with estdio
  254. + # CONFIG= -D_BSD -D_MINIX -D_POSIX_SOURCE
  255. + # XOPTS=
  256. + # XOBJS=
  257. + #
  258.   
  259.   #CONFIG= -D_SYSV
  260.   #CONFIG= -D_BSD -DHAVE_SYS_STDTYPES
  261.   CONFIG= -D_BSD
  262.   
  263. + 
  264.   STD=../std
  265.   INCL=$(STD)/h
  266. ! XINCL=-I$(INCL)
  267.   LDOPTS=-L$(STD)
  268.   XOBJS=
  269.   
  270.   # use -O if you trust it :-)
  271. ! DBG=-g -O
  272.   CFLAGS = $(DBG) $(CONFIG) $(XINCL) $(XOPTS)
  273.   
  274. ! LDFLAGS = $(DBG) $(LDOPTS)
  275.   
  276.   COMPATLIBS = -lstdc -lposix
  277.   #XLIBS = -lc_s
  278. ***************
  279. *** 68,75 ****
  280.   SRCS1 =    version.c main.c misc.c trap.c alloc.c io.c \
  281.       syn.c lex.c edit.c emacs.c vi.c history.c tree.c 
  282.   SRCS2 =    exec.c jobs.c \
  283. !     c_sh.c c_ksh.c c_test.c getopts.c ulimit.c \
  284. !     var.c table.c eval.c expr.c mail.c trace.c
  285.   SRCS =    Makefile $(HDRS) $(SRCS1) $(SRCS2) 
  286.   
  287.   OBJS =    version.o main.o misc.o \
  288. --- 75,82 ----
  289.   SRCS1 =    version.c main.c misc.c trap.c alloc.c io.c \
  290.       syn.c lex.c edit.c emacs.c vi.c history.c tree.c 
  291.   SRCS2 =    exec.c jobs.c \
  292. !     c_sh.c c_ksh.c c_test.c getopts.c do_ulimit.c \
  293. !     var.c table.c eval.c expr.c mail.c sigact.c trace.c
  294.   SRCS =    Makefile $(HDRS) $(SRCS1) $(SRCS2) 
  295.   
  296.   OBJS =    version.o main.o misc.o \
  297. ***************
  298. *** 76,83 ****
  299.       syn.o lex.o edit.o emacs.o vi.o tree.o \
  300.       exec.o jobs.o trap.o \
  301.       c_sh.o c_ksh.o c_test.o \
  302. !     ulimit.o getopts.o expr.o history.o \
  303. !     var.o table.o alloc.o io.o eval.o mail.o trace.o $(XOBJS)
  304.   
  305.   ksh: $(OBJS) 
  306.       $(CC) $(LDFLAGS) -o $@ $(OBJS) $(LDLIBS)
  307. --- 83,90 ----
  308.       syn.o lex.o edit.o emacs.o vi.o tree.o \
  309.       exec.o jobs.o trap.o \
  310.       c_sh.o c_ksh.o c_test.o \
  311. !     do_ulimit.o getopts.o expr.o history.o \
  312. !     var.o table.o alloc.o io.o eval.o mail.o sigact.o trace.o $(XOBJS)
  313.   
  314.   ksh: $(OBJS) 
  315.       $(CC) $(LDFLAGS) -o $@ $(OBJS) $(LDLIBS)
  316. ***************
  317. *** 89,95 ****
  318.       rm -f ksh
  319.   
  320.   link:
  321. !     ($(SHELL) ../std/mklinks $(INCL) stdh.h)
  322.       
  323.   
  324.   depend:
  325. --- 96,102 ----
  326.       rm -f ksh
  327.   
  328.   link:
  329. !     ($(SHELL) ../std/mklinks ../std/h stdh.h)
  330.       
  331.   
  332.   depend:
  333. ***************
  334. *** 101,106 ****
  335. --- 108,119 ----
  336.       @echo "strip /bin/ksh"
  337.       @echo "chmod 555 /bin/ksh"
  338.   
  339. + .c.s:
  340. +     $(CC) $(CFLAGS) -S -o $@ $<
  341. + 
  342. + asms: $(OBJS:.o=.s)
  343. + 
  344. + 
  345.   # DO NOT DELETE THIS LINE -- make depend depends on it.
  346.   # If this runs make out of memory, delete /usr/include lines.
  347.   alloc.o: alloc.c
  348. ***************
  349. *** 233,238 ****
  350. --- 246,252 ----
  351.   syn.o: table.h
  352.   syn.o: trace.h
  353.   syn.o: tree.h
  354. + sigact.o: sigact.h sigact.c
  355.   table.o: config.h
  356.   table.o: sh.h
  357.   table.o: stdh.h
  358. ***************
  359. *** 252,262 ****
  360.   tree.o: trace.h
  361.   tree.o: tree.c
  362.   tree.o: tree.h
  363. ! ulimit.o: config.h
  364. ! ulimit.o: sh.h
  365. ! ulimit.o: stdh.h
  366. ! ulimit.o: trace.h
  367. ! ulimit.o: ulimit.c
  368.   var.o: config.h
  369.   var.o: expand.h
  370.   var.o: sh.h
  371. --- 266,276 ----
  372.   tree.o: trace.h
  373.   tree.o: tree.c
  374.   tree.o: tree.h
  375. ! do_ulimit.o: config.h
  376. ! do_ulimit.o: sh.h
  377. ! do_ulimit.o: stdh.h
  378. ! do_ulimit.o: trace.h
  379. ! do_ulimit.o: do_ulimit.c
  380.   var.o: config.h
  381.   var.o: expand.h
  382.   var.o: sh.h
  383. *** sh/alloc.c.old    Sat Apr 25 17:44:14 1992
  384. --- sh/alloc.c    Sat Apr 25 18:33:46 1992
  385. ***************
  386. *** 3,10 ****
  387.    */
  388.   
  389.   #ifndef lint
  390. ! static char *RCSid = "$Id";
  391. ! static char *sccs_id = "@(#)alloc.c    1.2 91/11/22 22:53:32 (sjg)";
  392.   #endif
  393.   
  394.   #include "stdh.h"
  395. --- 3,9 ----
  396.    */
  397.   
  398.   #ifndef lint
  399. ! static char *RCSid = "$Id: alloc.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  400.   #endif
  401.   
  402.   #include "stdh.h"
  403. ***************
  404. *** 25,39 ****
  405.   
  406.   union Cell {
  407.       size_t    size;
  408. !     Cell   *next;
  409.       struct {int _;} junk;    /* alignment */
  410.   };
  411.   
  412.   struct Block {
  413. !     Block  *next;        /* list of Blocks in Area */
  414. !     Cell   *free;        /* object free list */
  415. !     Cell   *last;        /* &b.cell[size] */
  416. !     Cell    cell [1];    /* [size] Cells for allocation */
  417.   };
  418.   
  419.   Block aempty = {&aempty, aempty.cell, aempty.cell};
  420. --- 24,38 ----
  421.   
  422.   union Cell {
  423.       size_t    size;
  424. !     union Cell   *next;
  425.       struct {int _;} junk;    /* alignment */
  426.   };
  427.   
  428.   struct Block {
  429. !     struct Block  *next;        /* list of Blocks in Area */
  430. !     union Cell   *free;        /* object free list */
  431. !     union Cell   *last;        /* &b.cell[size] */
  432. !     union Cell    cell [1];    /* [size] Cells for allocation */
  433.   };
  434.   
  435.   Block aempty = {&aempty, aempty.cell, aempty.cell};
  436. ***************
  437. *** 53,71 ****
  438.       register Area *ap;
  439.   {
  440.       register Block *bp;
  441.   
  442. !     if (ap->free == NULL || ap->free == &aempty)
  443. !         return;
  444. !     for (bp = ap->free; ; bp = bp->next) {
  445. !         free((Void*)bp);
  446. !         if (bp->next == ap->free)
  447. !             break;
  448.       }
  449. -     ap->free = &aempty;
  450.   }
  451.   
  452.   /* allocate object from Area */
  453. ! Void *
  454.   alloc(size, ap)
  455.       size_t size;
  456.       register Area *ap;
  457. --- 52,72 ----
  458.       register Area *ap;
  459.   {
  460.       register Block *bp;
  461. +     register Block *tmp;
  462.   
  463. !     bp = ap->free;
  464. !     if (bp != NULL && bp != &aempty) {
  465. !         do {
  466. !             tmp = bp->next;
  467. !             free((void*)bp);
  468. !             bp = tmp;
  469. !         } while (bp != ap->free);
  470. !         ap->free = &aempty;
  471.       }
  472.   }
  473.   
  474.   /* allocate object from Area */
  475. ! void *
  476.   alloc(size, ap)
  477.       size_t size;
  478.       register Area *ap;
  479. ***************
  480. *** 126,138 ****
  481.           bp->free = fp;
  482.       else
  483.           fpp->next = fp;
  484. !     return (Void*) dp;
  485.   }
  486.   
  487.   /* change size of object -- like realloc */
  488. ! Void *
  489.   aresize(ptr, size, ap)
  490. !     register Void *ptr;
  491.       size_t size;
  492.       Area *ap;
  493.   {
  494. --- 127,139 ----
  495.           bp->free = fp;
  496.       else
  497.           fpp->next = fp;
  498. !     return (void*) dp;
  499.   }
  500.   
  501.   /* change size of object -- like realloc */
  502. ! void *
  503.   aresize(ptr, size, ap)
  504. !     register void *ptr;
  505.       size_t size;
  506.       Area *ap;
  507.   {
  508. ***************
  509. *** 148,154 ****
  510.       if (dp == NULL || (dp-1)->size < cells) { /* enlarge object */
  511.           register Cell *np;
  512.           register int i;
  513. !         Void *optr = ptr;
  514.   
  515.           ptr = alloc(size, ap);
  516.           np = (Cell*) ptr;
  517. --- 149,155 ----
  518.       if (dp == NULL || (dp-1)->size < cells) { /* enlarge object */
  519.           register Cell *np;
  520.           register int i;
  521. !         void *optr = ptr;
  522.   
  523.           ptr = alloc(size, ap);
  524.           np = (Cell*) ptr;
  525. ***************
  526. *** 166,180 ****
  527.               (dp-1)->size = cells;
  528.               dp += cells + 1;
  529.               (dp-1)->size = split;
  530. !             afree((Void*)dp, ap);
  531.           }
  532.       }
  533. !     return (Void*) ptr;
  534.   }
  535.   
  536.   void
  537.   afree(ptr, ap)
  538. !     Void *ptr;
  539.       register Area *ap;
  540.   {
  541.       register Block *bp;
  542. --- 167,181 ----
  543.               (dp-1)->size = cells;
  544.               dp += cells + 1;
  545.               (dp-1)->size = split;
  546. !             afree((void*)dp, ap);
  547.           }
  548.       }
  549. !     return (void*) ptr;
  550.   }
  551.   
  552.   void
  553.   afree(ptr, ap)
  554. !     void *ptr;
  555.       register Area *ap;
  556.   {
  557.       register Block *bp;
  558. *** sh/alloc.h.old    Sat Apr 25 17:41:31 1992
  559. --- sh/alloc.h    Sun Apr 19 19:21:15 1992
  560. ***************
  561. *** 6,18 ****
  562.       struct Block *free;    /* free list */
  563.   } Area;
  564.   
  565. - Area   *ainit ARGS((Area *ap));
  566. - void    afreeall ARGS((Area *ap));
  567. - void    ashrink ARGS((Area *ap));
  568. - void    aerror ARGS((Area *ap, const char *msg));
  569. - void    awarn ARGS((Area *ap, const char *msg));
  570. - 
  571. - Void   *alloc ARGS((size_t size, Area *ap));
  572. - Void   *aresize ARGS((Void *ptr, size_t size, Area *ap));
  573. - void    afree ARGS((Void *ptr, Area *ap));
  574. - 
  575. --- 6,8 ----
  576. *** sh/c_ksh.c.old    Sat Apr 25 17:44:14 1992
  577. --- sh/c_ksh.c    Sat Apr 25 18:34:12 1992
  578. ***************
  579. *** 3,10 ****
  580.    */
  581.   
  582.   #ifndef lint
  583. ! static char *RCSid = "$Id: c_ksh.c,v 3.4 89/03/27 15:47:16 egisin Exp $";
  584. ! static char *sccs_id = "@(#)c_ksh.c    1.2 91/11/22 22:53:34 (sjg)";
  585.   #endif
  586.   
  587.   #include "stdh.h"
  588. --- 3,9 ----
  589.    */
  590.   
  591.   #ifndef lint
  592. ! static char *RCSid = "$Id: c_ksh.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  593.   #endif
  594.   
  595.   #include "stdh.h"
  596. ***************
  597. *** 11,23 ****
  598.   #include <errno.h>
  599.   #include <setjmp.h>
  600.   #include "sh.h"
  601. - #include "table.h"
  602.   
  603.   int
  604.   c_hash(wp)
  605.       register char **wp;
  606.   {
  607. -     register int i;
  608.       register struct tbl *tp, **p;
  609.   
  610.       wp++;
  611. --- 10,21 ----
  612.   #include <errno.h>
  613.   #include <setjmp.h>
  614.   #include "sh.h"
  615.   
  616. + 
  617.   int
  618.   c_hash(wp)
  619.       register char **wp;
  620.   {
  621.       register struct tbl *tp, **p;
  622.   
  623.       wp++;
  624. ***************
  625. *** 49,55 ****
  626.       register int done = 0;
  627.       register int prt = 0;
  628.       register struct tbl *v_pwd = NULL, *v_oldpwd = NULL;
  629. -     extern Void cleanpath();
  630.   
  631.       if ((dir = wp[1]) == NULL && (dir = strval(global("HOME"))) == NULL)
  632.           errorf("no home directory");
  633. --- 47,52 ----
  634. ***************
  635. *** 361,371 ****
  636.                   printf("%s\n", vp->name);
  637.                   } else
  638.                   if (thing == '+' ||
  639. !                 fclr && (vp->flag&fclr) == fclr) {
  640.                   printf("%s\n", vp->name);
  641.                   } else
  642.                   if (thing == '-' ||
  643. !                 fset && (vp->flag&fset) == fset) {
  644.                   if (fset&FUNCT)
  645.                       printf("function %s\n", vp->name);
  646.                   else
  647. --- 358,368 ----
  648.                   printf("%s\n", vp->name);
  649.                   } else
  650.                   if (thing == '+' ||
  651. !                 (fclr && (vp->flag&fclr) == fclr)) {
  652.                   printf("%s\n", vp->name);
  653.                   } else
  654.                   if (thing == '-' ||
  655. !                 (fset && (vp->flag&fset) == fset)) {
  656.                   if (fset&FUNCT)
  657.                       printf("function %s\n", vp->name);
  658.                   else
  659. ***************
  660. *** 393,399 ****
  661.   {
  662.       register struct table *t = &lexicals;
  663.       register struct tbl *ap, **p;
  664. -     register int i;
  665.       int rv = 0;
  666.   
  667.       if (*++wp != NULL && strcmp(*wp, "-d") == 0) {
  668. --- 390,395 ----
  669. ***************
  670. *** 422,428 ****
  671.               if (ap->type == CKEYWD)
  672.                   errorf("cannot alias keyword\n");
  673.               if ((ap->flag&ALLOC)) {
  674. !                 afree((Void*)ap->val.s, APERM);
  675.                   ap->flag &= ~(ALLOC|ISSET);
  676.               }
  677.               ap->type = CALIAS;
  678. --- 418,424 ----
  679.               if (ap->type == CKEYWD)
  680.                   errorf("cannot alias keyword\n");
  681.               if ((ap->flag&ALLOC)) {
  682. !                 afree((void*)ap->val.s, APERM);
  683.                   ap->flag &= ~(ALLOC|ISSET);
  684.               }
  685.               ap->type = CALIAS;
  686. ***************
  687. *** 450,456 ****
  688.           if (ap == NULL || ap->type != CALIAS)
  689.               continue;
  690.           if ((ap->flag&ALLOC))
  691. !             afree((Void*)ap->val.s, APERM);
  692.           ap->flag &= ~(DEFINED|ISSET|ALLOC);
  693.       }
  694.       return 0;
  695. --- 446,452 ----
  696.           if (ap == NULL || ap->type != CALIAS)
  697.               continue;
  698.           if ((ap->flag&ALLOC))
  699. !             afree((void*)ap->val.s, APERM);
  700.           ap->flag &= ~(DEFINED|ISSET|ALLOC);
  701.       }
  702.       return 0;
  703. ***************
  704. *** 545,550 ****
  705. --- 541,547 ----
  706.       return rv;
  707.   }
  708.   
  709. + #ifdef EMACS
  710.   int
  711.   c_bind(wp)
  712.       register char **wp;
  713. ***************
  714. *** 568,578 ****
  715.   
  716.       return 0;
  717.   }
  718.   
  719.   extern    c_fc();
  720.   extern    c_getopts();
  721.   
  722. ! Const struct builtin kshbuiltins [] = {
  723.       {"cd", c_cd},
  724.       {"print", c_print},
  725.       {"getopts", c_getopts},
  726. --- 565,576 ----
  727.   
  728.       return 0;
  729.   }
  730. + #endif
  731.   
  732.   extern    c_fc();
  733.   extern    c_getopts();
  734.   
  735. ! const struct builtin kshbuiltins [] = {
  736.       {"cd", c_cd},
  737.       {"print", c_print},
  738.       {"getopts", c_getopts},
  739. *** sh/c_sh.c.old    Sat Apr 25 17:44:15 1992
  740. --- sh/c_sh.c    Sat Apr 25 18:30:41 1992
  741. ***************
  742. *** 3,10 ****
  743.    */
  744.   
  745.   #ifndef lint
  746. ! static char *RCSid = "Id: /u/egisin/sh/src/RCS/c_sh.c,v 3.1 88/11/03 09:14:31 egisin Exp $";
  747. ! static char *sccs_id = "@(#)c_sh.c    1.4 91/11/22 22:53:24 (sjg)";
  748.   #endif
  749.   
  750.   #include "stdh.h"
  751. --- 3,9 ----
  752.    */
  753.   
  754.   #ifndef lint
  755. ! static char *RCSid = "$Id: c_sh.c,v 1.3 1992/04/25 08:29:52 sjg Exp $";
  756.   #endif
  757.   
  758.   #include "stdh.h"
  759. ***************
  760. *** 14,24 ****
  761.   #include <unistd.h>        /* getcwd */
  762.   #include <sys/times.h>
  763.   #include "sh.h"
  764. - #include "lex.h"
  765. - #include "tree.h"
  766. - #include "table.h"
  767.   
  768. ! static    char *clocktos();
  769.   #ifndef CLK_TCK
  770.   #define CLK_TCK 60            /* 60HZ */
  771.   #endif
  772. --- 13,21 ----
  773.   #include <unistd.h>        /* getcwd */
  774.   #include <sys/times.h>
  775.   #include "sh.h"
  776.   
  777. ! static char *   clocktos    ARGS((clock_t t));
  778. ! 
  779.   #ifndef CLK_TCK
  780.   #define CLK_TCK 60            /* 60HZ */
  781.   #endif
  782. ***************
  783. *** 145,151 ****
  784.                       *cp++ = c;
  785.                   continue;
  786.               }
  787. !             if (c == '\n' || wp[1] && ctype(c, C_IFS))
  788.                   break;
  789.               *cp++ = c;
  790.           }
  791. --- 142,148 ----
  792.                       *cp++ = c;
  793.                   continue;
  794.               }
  795. !             if (c == '\n' || (wp[1] && ctype(c, C_IFS)))
  796.                   break;
  797.               *cp++ = c;
  798.           }
  799. ***************
  800. *** 195,201 ****
  801.           if (p == NULL)
  802.               errorf("trap: bad signal %s\n", wp[-1]);
  803.           if (p->trap != NULL)
  804. !             afree((Void*)p->trap, APERM);
  805.           p->trap = NULL;
  806.           if (s != NULL) {
  807.               if (strlen(s) != 0) {
  808. --- 192,198 ----
  809.           if (p == NULL)
  810.               errorf("trap: bad signal %s\n", wp[-1]);
  811.           if (p->trap != NULL)
  812. !             afree((void*)p->trap, APERM);
  813.           p->trap = NULL;
  814.           if (s != NULL) {
  815.               if (strlen(s) != 0) {
  816. ***************
  817. *** 217,228 ****
  818.       register struct trap *p;
  819.       void (*f)();
  820.   {
  821. !     if (p->signal == 0)
  822. !         return;
  823. !     if (signal(p->signal, SIG_IGN) != SIG_IGN || p->ourtrap) {
  824. !         p->ourtrap = 1;
  825. !         signal(p->signal, f);
  826. !     }
  827.   }
  828.   
  829.   int
  830. --- 214,238 ----
  831.       register struct trap *p;
  832.       void (*f)();
  833.   {
  834. !   if (p->signal == 0)
  835. !     return;
  836. ! #ifdef USE_SIGACT
  837. !   sigaction(p->signal, &Sigact_ign, &Sigact);
  838. !   if (Sigact.sa_handler != SIG_IGN || p->ourtrap)
  839. !   {
  840. !     p->ourtrap = 1;
  841. !     Sigact.sa_handler = f;
  842. !     sigaction(p->signal, &Sigact, NULL);
  843. !     sigemptyset(&Sigact.sa_mask);
  844. !     Sigact.sa_flags = 0;
  845. !   }
  846. ! #else
  847. !   if (signal(p->signal, SIG_IGN) != SIG_IGN || p->ourtrap)
  848. !   {
  849. !     p->ourtrap = 1;
  850. !     signal(p->signal, f);
  851. !   }
  852. ! #endif
  853.   }
  854.   
  855.   int
  856. ***************
  857. *** 289,301 ****
  858.       register char **wp;
  859.   {
  860.       struct block *l = e.loc;
  861. -     register struct tbl *vp, **p;
  862.       register char **owp = wp;
  863.       register char *cp;
  864.       int old_fmonitor = flag[FMONITOR];
  865.   
  866.       if ((cp = *++wp) == NULL) {
  867. !         static char * Const args [] = {"set", "-", NULL};
  868.           extern int c_typeset ARGS((char **args));
  869.           return c_typeset(args);
  870.       }
  871. --- 299,310 ----
  872.       register char **wp;
  873.   {
  874.       struct block *l = e.loc;
  875.       register char **owp = wp;
  876.       register char *cp;
  877.       int old_fmonitor = flag[FMONITOR];
  878.   
  879.       if ((cp = *++wp) == NULL) {
  880. !         static char * const args [] = {"set", "-", NULL};
  881.           extern int c_typeset ARGS((char **args));
  882.           return c_typeset(args);
  883.       }
  884. ***************
  885. *** 468,474 ****
  886.   
  887.   extern    int c_test();        /* in test.c */
  888.   
  889. ! Const struct builtin shbuiltins [] = {
  890.       {"=:", c_label},
  891.       {"=.", c_dot},
  892.       {"[", c_test},
  893. --- 477,483 ----
  894.   
  895.   extern    int c_test();        /* in test.c */
  896.   
  897. ! const struct builtin shbuiltins [] = {
  898.       {"=:", c_label},
  899.       {"=.", c_dot},
  900.       {"[", c_test},
  901. *** sh/c_test.c.old    Sat Apr 25 17:44:15 1992
  902. --- sh/c_test.c    Sat Apr 25 18:34:23 1992
  903. ***************
  904. *** 6,13 ****
  905.    */
  906.   
  907.   #ifndef lint
  908. ! static char *RCSid = "$Id: c_test.c,v 3.3 89/03/27 15:47:25 egisin Exp $";
  909. ! static char *sccs_id = "@(#)c_test.c    1.2 91/11/22 22:53:37 (sjg)";
  910.   #endif
  911.   
  912.   #include "stdh.h"
  913. --- 6,12 ----
  914.    */
  915.   
  916.   #ifndef lint
  917. ! static char *RCSid = "$Id: c_test.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  918.   #endif
  919.   
  920.   #include "stdh.h"
  921. ***************
  922. *** 82,88 ****
  923.   struct t_op {
  924.       char *op_text;
  925.       short op_num, op_type;
  926. ! } Const ops [] = {
  927.       {"-r",    FILRD,    UNOP},
  928.       {"-w",    FILWR,    UNOP},
  929.       {"-x",    FILEX,    UNOP},
  930. --- 81,87 ----
  931.   struct t_op {
  932.       char *op_text;
  933.       short op_num, op_type;
  934. ! } const ops [] = {
  935.       {"-r",    FILRD,    UNOP},
  936.       {"-w",    FILWR,    UNOP},
  937.       {"-x",    FILEX,    UNOP},
  938. ***************
  939. *** 125,131 ****
  940.   };
  941.   
  942.   char **t_wp;
  943. ! struct t_op Const *t_wp_op;
  944.   
  945.   static void syntax();
  946.   
  947. --- 124,130 ----
  948.   };
  949.   
  950.   char **t_wp;
  951. ! struct t_op const *t_wp_op;
  952.   
  953.   static void syntax();
  954.   
  955. ***************
  956. *** 227,233 ****
  957.       opnd1 = *t_wp;
  958.       (void) t_lex(*++t_wp);
  959.       if (t_wp_op && t_wp_op->op_type == BINOP) {
  960. !         struct t_op Const *op = t_wp_op;
  961.   
  962.           if ((opnd2 = *++t_wp) == (char *)0)
  963.               syntax(op->op_text, "argument expected");
  964. --- 226,232 ----
  965.       opnd1 = *t_wp;
  966.       (void) t_lex(*++t_wp);
  967.       if (t_wp_op && t_wp_op->op_type == BINOP) {
  968. !         struct t_op const *op = t_wp_op;
  969.   
  970.           if ((opnd2 = *++t_wp) == (char *)0)
  971.               syntax(op->op_text, "argument expected");
  972. ***************
  973. *** 318,324 ****
  974.   t_lex(s)
  975.       register char *s;
  976.   {
  977. !     register struct t_op Const *op = ops;
  978.   
  979.       if (s == 0) {
  980.           t_wp_op = (struct t_op *)0;
  981. --- 317,323 ----
  982.   t_lex(s)
  983.       register char *s;
  984.   {
  985. !     register struct t_op const *op = ops;
  986.   
  987.       if (s == 0) {
  988.           t_wp_op = (struct t_op *)0;
  989. *** sh/config.h.old    Sat Apr 25 17:44:16 1992
  990. --- sh/config.h    Sat Apr 25 18:34:51 1992
  991. ***************
  992. *** 1,7 ****
  993.   /*
  994.    * Configuration file for the PD ksh
  995.    *
  996. !  * SCCSID: @(#)config.h 1.2 91/11/22 22:53:31
  997.    */
  998.   
  999.   #ifndef    _CONFIG_H
  1000. --- 1,7 ----
  1001.   /*
  1002.    * Configuration file for the PD ksh
  1003.    *
  1004. !  * RCSid: $Id: config.h,v 1.2 1992/04/25 08:33:28 sjg Exp $
  1005.    */
  1006.   
  1007.   #ifndef    _CONFIG_H
  1008. ***************
  1009. *** 18,23 ****
  1010. --- 18,31 ----
  1011.   #ifndef SIGINT
  1012.   #include <signal.h>
  1013.   #endif
  1014. + 
  1015. + /*
  1016. +  * leave USE_SIGACT defined.
  1017. +  * if you don't have sigaction(2) and the
  1018. +  * implementation in sigact.c doesn't work for your system,
  1019. +  * fix it.
  1020. +  */
  1021. + #define USE_SIGACT            /* POSIX signal handling */
  1022.   
  1023.   #if defined(JOBS) && !defined(SIGCONT)
  1024.   #undef JOBS
  1025. *** sh/edit.c.old    Sat Apr 25 17:44:16 1992
  1026. --- sh/edit.c    Sat Apr 25 18:35:26 1992
  1027. ***************
  1028. *** 7,14 ****
  1029.   #if defined(EMACS) || defined(VI)
  1030.   
  1031.   #ifndef lint
  1032. ! static char *RCSid = "$Id: edit.c,v 3.2 89/03/27 15:47:34 egisin Exp $";
  1033. ! static char *sccs_id = "@(#)edit.c    1.5 91/11/22 22:52:59 (sjg)";
  1034.   #endif
  1035.   
  1036.   #include "stdh.h"
  1037. --- 7,13 ----
  1038.   #if defined(EMACS) || defined(VI)
  1039.   
  1040.   #ifndef lint
  1041. ! static char *RCSid = "$Id: edit.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  1042.   #endif
  1043.   
  1044.   #include "stdh.h"
  1045. ***************
  1046. *** 17,24 ****
  1047.   #include <fcntl.h>
  1048.   #include <errno.h>
  1049.   #include <setjmp.h>
  1050.   #include "sh.h"
  1051. - #include "lex.h"
  1052.   #include "tty.h"
  1053.   #define EXTERN
  1054.   #include "edit.h"
  1055. --- 16,25 ----
  1056.   #include <fcntl.h>
  1057.   #include <errno.h>
  1058.   #include <setjmp.h>
  1059. + #ifndef NOSTDHDRS
  1060. + # include <string.h>
  1061. + #endif
  1062.   #include "sh.h"
  1063.   #include "tty.h"
  1064.   #define EXTERN
  1065.   #include "edit.h"
  1066. ***************
  1067. *** 28,38 ****
  1068.   extern unsigned    sleep();
  1069.   #endif
  1070.   
  1071. - #if 0
  1072. - int    x_do_init = 1;        /* set up tty modes */
  1073. - int    x_cols = 80;        /* todo: $COLUMNS */
  1074. - int    ed_erase = -1, ed_kill = -1, ed_werase = -1, ed_intr = -1, ed_quit = -1;
  1075. - #endif
  1076.   
  1077.   static int    x_noecho = 0;
  1078.   
  1079. --- 29,34 ----
  1080. ***************
  1081. *** 46,52 ****
  1082.       size_t len;
  1083.   {
  1084.     static int setup_done = 0;
  1085. -     char    c;
  1086.       int    i;
  1087.   
  1088.     if (setup_done != 42)
  1089. --- 42,47 ----
  1090. ***************
  1091. *** 91,100 ****
  1092.   int
  1093.   x_getc()
  1094.   {
  1095. !     char c;
  1096.   
  1097.       if (read(ttyfd, &c, 1) != 1)
  1098. !         return -1;
  1099.       return c & 0x7F;
  1100.   }
  1101.   
  1102. --- 86,109 ----
  1103.   int
  1104.   x_getc()
  1105.   {
  1106. !   char c;
  1107.   
  1108. +   /*
  1109. +    * This allows the arival of a SIGCHLD to not disturb us until 
  1110. +    * we are ready. 
  1111. +    * BSD and other systems that automatically rety a read after 
  1112. +    * an interrupt don't need this but it doesn't do any harm 
  1113. +    * either. 
  1114. +    */
  1115. +  retry:
  1116.       if (read(ttyfd, &c, 1) != 1)
  1117. !     {
  1118. !       if (sigchld_caught)        /* just a SIGCHLD ? */
  1119. !       {
  1120. !         goto retry;
  1121. !       }
  1122. !       return -1;
  1123. !     }
  1124.       return c & 0x7F;
  1125.   }
  1126.   
  1127. ***************
  1128. *** 123,128 ****
  1129. --- 132,138 ----
  1130.   x_adjust()
  1131.   {
  1132.     x_adj_done++;            /* flag the fact that we were called. */
  1133. + #ifdef EMACS
  1134.     /*
  1135.      * we had a promblem if the prompt length > x_cols / 2
  1136.      */
  1137. ***************
  1138. *** 130,135 ****
  1139. --- 140,146 ----
  1140.       xbp = xbuf;
  1141.     xlp_valid = FALSE;
  1142.     x_redraw(x_cols);
  1143. + #endif
  1144.     x_flush();
  1145.   }
  1146.   
  1147. ***************
  1148. *** 197,204 ****
  1149. --- 208,217 ----
  1150.   static struct ttychars lchars, lcharsorig;
  1151.   #else
  1152.   static struct tchars tchars, tcharsorig;
  1153. + #ifdef TIOCGLTC
  1154.   static struct ltchars ltchars, ltcharsorig;
  1155.   #endif
  1156. + #endif
  1157.   #else
  1158.   static    struct termio cb, cborig;
  1159.   #endif
  1160. ***************
  1161. *** 230,237 ****
  1162. --- 243,253 ----
  1163.       lchars.tc_rprntc = -1;
  1164.   #else
  1165.       (void)ioctl(ttyfd, TIOCGETC, &tcharsorig);
  1166. + #ifdef TIOCGLTC
  1167.       (void)ioctl(ttyfd, TIOCGLTC, <charsorig);
  1168. + #endif
  1169.       tchars = tcharsorig;
  1170. + #ifdef TIOCGLTC
  1171.       ltchars = ltcharsorig;
  1172.       ed_werase = ltchars.t_werasc;
  1173.       ltchars = ltcharsorig;
  1174. ***************
  1175. *** 238,247 ****
  1176. --- 254,266 ----
  1177.       ltchars.t_suspc = -1;
  1178.       ltchars.t_dsuspc = -1;
  1179.       ltchars.t_lnextc = -1;
  1180. + #endif
  1181.       tchars.t_intrc = -1;
  1182.       tchars.t_quitc = -1;
  1183. + #ifdef TIOCGLTC
  1184.       ltchars.t_rprntc = -1;
  1185.   #endif
  1186. + #endif
  1187.   #else /* !_BSD */
  1188.       (void)ioctl(ttyfd, TCGETA, &cborig);
  1189.       if ((cborig.c_lflag & ECHO) == 0)
  1190. ***************
  1191. *** 297,304 ****
  1192. --- 316,325 ----
  1193.           (void)ioctl(ttyfd, TIOCSATC, &lchars);
  1194.   #else
  1195.           (void)ioctl(ttyfd, TIOCSETC, &tchars);
  1196. + #ifdef TIOCGLTC
  1197.           (void)ioctl(ttyfd, TIOCSLTC, <chars);
  1198.   #endif
  1199. + #endif
  1200.       }
  1201.       else {
  1202.           (void)ioctl(ttyfd, TIOCSETN, &cborig);
  1203. ***************
  1204. *** 306,313 ****
  1205. --- 327,336 ----
  1206.           (void)ioctl(ttyfd, TIOCSATC, &lcharsorig);
  1207.   #else
  1208.           (void)ioctl(ttyfd, TIOCSETC, &tcharsorig);
  1209. + #ifdef TIOCGLTC
  1210.           (void)ioctl(ttyfd, TIOCSLTC, <charsorig);
  1211.   #endif
  1212. + #endif
  1213.       }
  1214.       return prev;
  1215.   }
  1216. ***************
  1217. *** 404,407 ****
  1218. --- 427,469 ----
  1219.     return count;
  1220.   }
  1221.   
  1222. + 
  1223. + /*
  1224. +  * this function check the environment
  1225. +  * for FCEDIT,EDITOR or VISUAL
  1226. +  * as a hint to what edit mode is desired.
  1227. +  */
  1228. + init_editmode()
  1229. + {
  1230. +   static char *ev[] = { "FCEDIT", "EDITOR", "VISUAL", NULL };
  1231. +   register int i;
  1232. +   register char *rcp, *rcp2;
  1233. + 
  1234. +   for (i = 0; ev[i]; i++)
  1235. +   {
  1236. +     if ((rcp = getenv(ev[i])) && *rcp)
  1237. +       break;
  1238. +   }
  1239. +   if (ev[i] && rcp)
  1240. +   {
  1241. +     if (rcp2 = strrchr(rcp, '/'))
  1242. +       rcp = ++rcp2;
  1243. + #ifdef EMACS
  1244. +     if (strstr(rcp, "emacs"))
  1245. +     {
  1246. +       flag[FVI] = 0;
  1247. +       flag[FEMACS] = 1;
  1248. +     }
  1249. +     else
  1250. + #endif
  1251. + #ifdef VI
  1252. +       if (strstr(rcp, "vi"))
  1253. +       {
  1254. +     flag[FVI] = 1;
  1255. +     flag[FEMACS] = 0;
  1256. +       }
  1257. + #endif
  1258. +   }
  1259. +   return 0;
  1260. + }
  1261.   #endif
  1262. *** sh/edit.h.old    Sat Apr 25 17:41:32 1992
  1263. --- sh/edit.h    Sat Apr 25 18:35:34 1992
  1264. ***************
  1265. *** 7,21 ****
  1266.    * SEE ALSO:
  1267.    *      
  1268.    *
  1269. !  * AMENDED:
  1270. !  *      91/09/17  23:28:04  (sjg)
  1271.    *
  1272. -  * RELEASED:
  1273. -  *      91/11/09  15:36:18  v1.3
  1274. -  *
  1275. -  * SCCSID:
  1276. -  *      @(#)edit.h  1.3  91/09/17  23:28:04  (sjg)
  1277. -  *
  1278.    */
  1279.   
  1280.   /* some useful #defines */
  1281. --- 7,15 ----
  1282.    * SEE ALSO:
  1283.    *      
  1284.    *
  1285. !  * RCSid:
  1286. !  *      $Id: edit.h,v 1.2 1992/04/25 08:33:28 sjg Exp $
  1287.    *
  1288.    */
  1289.   
  1290.   /* some useful #defines */
  1291. ***************
  1292. *** 53,63 ****
  1293.   EXTERN int    x_do_init;        /* set up tty modes */
  1294.   EXTERN int    ed_erase, ed_kill, ed_werase, ed_intr, ed_quit;
  1295.   
  1296. - #if defined(__STDC__) || defined(PROTO)
  1297. - # define _P_(p) p
  1298. - #else
  1299. - # define _P_(p) ()
  1300. - #endif        /* __STDC__ || PROTO */
  1301.   #ifdef DEBUG
  1302.   # define _D_(x) x
  1303.   #else
  1304. --- 47,52 ----
  1305. ***************
  1306. *** 65,85 ****
  1307.   #endif
  1308.   
  1309.   /****  edit.c  ****/
  1310. ! int             x_read      _P_((int fd, char *buf, size_t len));
  1311. ! int             x_getc      _P_((void));
  1312. ! void            x_flush     _P_((void));
  1313. ! void            x_adjust    _P_((void));
  1314. ! void            x_putc      _P_((int c));
  1315. ! int             x_debug_info _P_((void));
  1316. ! void            x_puts      _P_((char *s));
  1317. ! void            x_init      _P_((void));
  1318. ! bool_t          x_mode      _P_((bool_t onoff));
  1319. ! bool_t          x_mode      _P_((bool_t onoff));
  1320. ! int             promptlen   _P_((char *cp));
  1321.   
  1322.   /****  emacs.c  ****/
  1323. ! void            x_redraw    _P_((int limit));
  1324. ! char*        x_lastcp    _P_((void));
  1325.   EXTERN int xlp_valid _I_(0);
  1326.     
  1327.   /* This lot goes at the END */
  1328. --- 54,74 ----
  1329.   #endif
  1330.   
  1331.   /****  edit.c  ****/
  1332. ! int             x_read      ARGS((int fd, char *buf, size_t len));
  1333. ! int             x_getc      ARGS((void));
  1334. ! void            x_flush     ARGS((void));
  1335. ! void            x_adjust    ARGS((void));
  1336. ! void            x_putc      ARGS((int c));
  1337. ! int             x_debug_info ARGS((void));
  1338. ! void            x_puts      ARGS((char *s));
  1339. ! void            x_init      ARGS((void));
  1340. ! bool_t          x_mode      ARGS((bool_t onoff));
  1341. ! bool_t          x_mode      ARGS((bool_t onoff));
  1342. ! int             promptlen   ARGS((char *cp));
  1343.   
  1344.   /****  emacs.c  ****/
  1345. ! void            x_redraw    ARGS((int limit));
  1346. ! char*        x_lastcp    ARGS((void));
  1347.   EXTERN int xlp_valid _I_(0);
  1348.     
  1349.   /* This lot goes at the END */
  1350.  
  1351. exit 0 # Just in case...
  1352.