home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume29 / pdksh / patch03e < prev    next >
Encoding:
Text File  |  1992-04-25  |  19.9 KB  |  864 lines
  1. Newsgroups: comp.sources.misc
  2. From: sjg@zen.void.oz.au (Simon J. Gerraty)
  3. Subject:  v29i087:  pdksh - Public Domain Korn Shell, v4, Patch03e/5
  4. Message-ID: <1992Apr26.041637.22464@sparky.imd.sterling.com>
  5. X-Md4-Signature: cea4d9a6305a182e181ba89082307ef9
  6. Date: Sun, 26 Apr 1992 04:16:37 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 87
  11. Archive-name: pdksh/patch03e
  12. Environment: UNIX
  13. Patch-To: pdksh: Volume 25, Issue 47-55
  14.  
  15. *** sh/trap.c.old    Sat Apr 25 17:44:36 1992
  16. --- sh/trap.c    Sat Apr 25 18:32:36 1992
  17. ***************
  18. *** 3,10 ****
  19.    */
  20.   
  21.   #ifndef lint
  22. ! static char *RCSid = "$Id: trap.c,v 3.2 89/03/27 15:52:06 egisin Exp $";
  23. ! static char *sccs_id = "@(#)trap.c    1.2 91/11/22 22:54:00 (sjg)";
  24.   #endif
  25.   
  26.   #include "stdh.h"
  27. --- 3,9 ----
  28.    */
  29.   
  30.   #ifndef lint
  31. ! static char *RCSid = "$Id: trap.c,v 1.2 1992/04/24 12:01:38 sjg Exp $";
  32.   #endif
  33.   
  34.   #include "stdh.h"
  35. ***************
  36. *** 28,44 ****
  37. --- 27,62 ----
  38.       {SIGEMT, "EMT", "EMT trap"},
  39.       {SIGFPE, "FPE", "Floating exception"},
  40.       {SIGKILL, "KILL", "Killed"},
  41. + #ifdef _MINIX
  42. +     {SIGUSR1, "USR1", "User defined signal 1"},
  43. +     {SIGSEGV, "SEGV", "Memory fault"},
  44. +     {SIGUSR2, "USR2", "User defined signal 2"},
  45. + #else
  46.       {SIGBUS, "BUS", "Bus error"},
  47.       {SIGSEGV, "SEGV", "Memory fault"},
  48.       {SIGSYS, "SYS", "Bad system call"},
  49. + #endif
  50.       {SIGPIPE, "PIPE", "Broken pipe"},
  51.       {SIGALRM, "ALRM", "Alarm clock"},
  52.       {SIGTERM, "TERM", "Terminated"},
  53. + #ifdef _MINIX
  54. +     {SIGSTKFLT, "STKFLT", "Stack fault"},
  55. + #endif
  56.   #ifdef _SYSV
  57.       {SIGUSR1, "USR1", "User defined signal 1"},
  58.       {SIGUSR2, "USR2", "User defined signal 2"},
  59.       {SIGCLD, "CLD", "Death of a child"},
  60.       {SIGPWR, "PWR", "Power-fail restart"},
  61. + #ifdef JOBS            /* todo: need to be more portable */
  62. +     {SIGTSTP, "TSTP", "Stop"},
  63. +     {SIGTTIN, "TTIN", "Stop (tty input)"},
  64. + #ifdef SIGPOLL
  65. +     {SIGPOLL, "POLL", "Pollable event occured"},
  66. + #endif
  67. +     {SIGSTOP, "STOP", "Stop (signal)"},
  68. +     {SIGTTOU, "TTOU", "Stop (tty output)"},
  69. +     {SIGCONT, "CONT", "Continue"},
  70. + #endif
  71.   #else
  72.   #ifdef JOBS            /* todo: need to be more portable */
  73.       {SIGURG, "URG", "Urgent condition"}, /* BSDism */
  74. ***************
  75. *** 86,92 ****
  76.       if (i == SIGINT && e.type == E_PARSE)
  77.           /* dangerous but necessary to deal with BSD silly signals */
  78.           longjmp(e.jbuf, 1);
  79. !     (void) signal(i, trapsig); /* todo: use sigact */
  80.   }
  81.   
  82.   /*
  83. --- 104,114 ----
  84.       if (i == SIGINT && e.type == E_PARSE)
  85.           /* dangerous but necessary to deal with BSD silly signals */
  86.           longjmp(e.jbuf, 1);
  87. ! #ifdef USE_SIGACT
  88. !     sigaction(i, &Sigact_trap, NULL);
  89. ! #else
  90. !     (void) signal(i, trapsig);
  91. ! #endif
  92.   }
  93.   
  94.   /*
  95. ***************
  96. *** 126,138 ****
  97.       register Trap *p;
  98.   
  99.       if ((p = sigtraps)->trap != NULL) {    /* Maybe put in exchild() */
  100. !         afree((Void *)p->trap,APERM);    /* Necessary? */
  101.           p->trap = NULL;
  102.       }
  103.       for (i = SIGNALS, p = sigtraps; --i >= 0; p++) {
  104.           p->set = 0;
  105.           if (p->ourtrap && signal(p->signal, SIG_IGN) != SIG_IGN)
  106.               (void) signal(p->signal, SIG_DFL);
  107.       }
  108.   }
  109.   
  110. --- 148,169 ----
  111.       register Trap *p;
  112.   
  113.       if ((p = sigtraps)->trap != NULL) {    /* Maybe put in exchild() */
  114. !         afree((void *)p->trap,APERM);    /* Necessary? */
  115.           p->trap = NULL;
  116.       }
  117.       for (i = SIGNALS, p = sigtraps; --i >= 0; p++) {
  118.           p->set = 0;
  119. + #ifdef USE_SIGACT
  120. +         if (p->ourtrap)
  121. +         {
  122. +           sigaction(p->signal, &Sigact_ign, &Sigact);
  123. +           if (Sigact.sa_handler != SIG_IGN)
  124. +             sigaction(p->signal, &Sigact_dfl, NULL);
  125. +         }
  126. + #else
  127.           if (p->ourtrap && signal(p->signal, SIG_IGN) != SIG_IGN)
  128.               (void) signal(p->signal, SIG_DFL);
  129. + #endif
  130.       }
  131.   }
  132.   
  133. ***************
  134. *** 139,146 ****
  135.   ignoresig(i)
  136.       int i;
  137.   {
  138. !     if (signal(i, SIG_IGN) != SIG_IGN)
  139. !         sigtraps[i].sig_dfl = 1;
  140.   }
  141.   
  142.   restoresigs()
  143. --- 170,186 ----
  144.   ignoresig(i)
  145.       int i;
  146.   {
  147. ! #ifdef USE_SIGACT
  148. !   sigaction(i, &Sigact_ign, &Sigact);
  149. !   sigemptyset(&Sigact.sa_mask);
  150. !   Sigact.sa_flags = 0;
  151. ! 
  152. !   if (Sigact.sa_handler != SIG_IGN)
  153. !     sigtraps[i].sig_dfl = 1;
  154. ! #else
  155. !   if (signal(i, SIG_IGN) != SIG_IGN)
  156. !     sigtraps[i].sig_dfl = 1;
  157. ! #endif
  158.   }
  159.   
  160.   restoresigs()
  161. ***************
  162. *** 151,157 ****
  163. --- 191,201 ----
  164.       for (p = sigtraps, i = SIGNALS; --i >= 0; p++)
  165.           if (p->sig_dfl) {
  166.               p->sig_dfl = 0;
  167. + #ifdef USE_SIGACT
  168. +             sigaction(p->signal, &Sigact_dfl, NULL);
  169. + #else
  170.               (void) signal(p->signal, SIG_DFL);
  171. + #endif
  172.           }
  173.   }
  174.   
  175. *** sh/tree.c.old    Sat Apr 25 17:44:36 1992
  176. --- sh/tree.c    Sat Apr 25 18:37:49 1992
  177. ***************
  178. *** 3,24 ****
  179.    */
  180.   
  181.   #ifndef lint
  182. ! static char *RCSid = "$Id: tree.c,v 3.2 89/03/27 15:52:13 egisin Exp $";
  183. ! static char *sccs_id = "@(#)tree.c    1.2 91/11/22 22:54:02 (sjg)";
  184.   #endif
  185.   
  186.   #include "stdh.h"
  187.   #include <errno.h>
  188.   #include <setjmp.h>
  189. ! #include <varargs.h>            /* TODO: use stdarg */
  190.   #include "sh.h"
  191. - #include "tree.h"
  192.   
  193.   #define    FSTRING    (FILE*)NULL
  194.   
  195. ! static    int    tputc ARGS((int c, FILE *f));
  196. ! static    void    tputC ARGS((int c, FILE *f));
  197. ! static    void    tputS ARGS((char *wp, FILE *f));
  198.   
  199.   /*
  200.    * print a command tree
  201. --- 3,29 ----
  202.    */
  203.   
  204.   #ifndef lint
  205. ! static char *RCSid = "$Id: tree.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  206.   #endif
  207.   
  208.   #include "stdh.h"
  209.   #include <errno.h>
  210.   #include <setjmp.h>
  211. ! 
  212. ! #ifdef __STDC__
  213. ! # include <stdarg.h>
  214. ! #else
  215. ! # include <varargs.h>
  216. ! #endif
  217.   #include "sh.h"
  218.   
  219.   #define    FSTRING    (FILE*)NULL
  220.   
  221. ! static int      tputc       ARGS((int c, FILE *f));
  222. ! static void     tputC       ARGS((int c, FILE *f));
  223. ! static void     tputS       ARGS((char *wp, FILE *f));
  224. ! static struct ioword **iocopy ARGS((struct ioword **iow, Area *ap));
  225. ! static void     iofree      ARGS((struct ioword **iow, Area *ap));
  226.   
  227.   /*
  228.    * print a command tree
  229. ***************
  230. *** 205,211 ****
  231.   {
  232.       if ((c&0x60) == 0) {        /* C0|C1 */
  233.           tputc((c&0x80) ? '$' : '^', f);
  234. !         tputc((c&0x7F|0x40), f);
  235.       } else if ((c&0x7F) == 0x7F) {    /* DEL */
  236.           tputc((c&0x80) ? '$' : '^', f);
  237.           tputc('?', f);
  238. --- 210,216 ----
  239.   {
  240.       if ((c&0x60) == 0) {        /* C0|C1 */
  241.           tputc((c&0x80) ? '$' : '^', f);
  242. !         tputc(((c&0x7F)|0x40), f);
  243.       } else if ((c&0x7F) == 0x7F) {    /* DEL */
  244.           tputc((c&0x80) ? '$' : '^', f);
  245.           tputc('?', f);
  246. ***************
  247. *** 261,300 ****
  248.           }
  249.   }
  250.   
  251. ! /* TODO: use varargs properly */
  252. ! 
  253.   /* VARARGS */ int
  254. ! fptreef(f, va_alist) va_dcl
  255. !     register FILE *f;
  256.   {
  257. !     va_list va;
  258. !     char *fmt;
  259.   
  260. !     va_start(va);
  261. !     fmt = va_arg(va, char *);
  262. !     vfptreef(f, fmt, va);
  263. !     va_end(va);
  264. !     return 0;
  265.   }
  266.   
  267.   /* VARARGS */ int
  268. ! snptreef(s, n, va_alist) va_dcl
  269. !     char *s;
  270. !     int n;
  271.   {
  272. !     va_list va;
  273. !     char *fmt;
  274.   
  275. !     snpf_s = s;
  276. !     snpf_n = n;
  277. !     va_start(va);
  278. !     fmt = va_arg(va, char *);
  279. !     vfptreef(FSTRING, fmt, va);
  280. !     tputc('\0', FSTRING);
  281. !     va_end(va);
  282. !     return 0;
  283.   }
  284.   
  285.   vfptreef(f, fmt, va)
  286.       register FILE *f;
  287.       register char *fmt;
  288. --- 266,333 ----
  289.           }
  290.   }
  291.   
  292. ! /*
  293. !  * this is the _only_ way to reliably handle
  294. !  * variable args with an ANSI compiler
  295. !  */
  296. ! #ifdef __STDC__
  297.   /* VARARGS */ int
  298. ! fptreef(FILE *f, char *fmt, ...)
  299.   {
  300. ! #else
  301. ! fptreef(va_alist) 
  302. !   va_dcl
  303. ! {
  304. !   FILE *f;
  305. !   char *fmt;
  306. ! #endif
  307. !   va_list    va;
  308.   
  309. ! #ifdef __STDC__
  310. !   va_start(va, fmt);
  311. ! #else
  312. !   va_start(va);
  313. !   f = va_arg(va, FILE *);
  314. !   fmt = va_arg(va, char *);
  315. ! #endif
  316. !   
  317. !   vfptreef(f, fmt, va);
  318. !   va_end(va);
  319. !   return 0;
  320.   }
  321.   
  322.   /* VARARGS */ int
  323. ! #ifdef __STDC__
  324. ! snptreef(char *s, int n, char *fmt, ...)
  325.   {
  326. ! #else
  327. ! snptreef(va_alist)
  328. !   va_dcl
  329. ! {
  330. !   char *s;
  331. !   int n;
  332. !   char *fmt;
  333. ! #endif
  334. !   va_list va;
  335.   
  336. ! #ifdef __STDC__
  337. !   va_start(va, fmt);
  338. ! #else
  339. !   va_start(va);
  340. !   s = va_arg(va, char *);
  341. !   n = va_arg(va, int);
  342. !   fmt = va_arg(va, char *);
  343. ! #endif
  344. ! 
  345. !   snpf_s = s;
  346. !   snpf_n = n;
  347. !   vfptreef(FSTRING, fmt, va);
  348. !   tputc('\0', FSTRING);
  349. !   va_end(va);
  350. !   return 0;
  351.   }
  352.   
  353. + 
  354.   vfptreef(f, fmt, va)
  355.       register FILE *f;
  356.       register char *fmt;
  357. ***************
  358. *** 493,510 ****
  359.           return;
  360.   
  361.       if (t->str != NULL)
  362. !         afree((Void*)t->str, ap);
  363.   
  364.       if (t->vars != NULL) {
  365.           for (w = t->vars; *w != NULL; w++)
  366. !             afree((Void*)*w, ap);
  367. !         afree((Void*)t->vars, ap);
  368.       }
  369.   
  370.       if (t->args != NULL) {
  371.           for (w = t->args; *w != NULL; w++)
  372. !             afree((Void*)*w, ap);
  373. !         afree((Void*)t->args, ap);
  374.       }
  375.   
  376.       if (t->ioact != NULL)
  377. --- 526,543 ----
  378.           return;
  379.   
  380.       if (t->str != NULL)
  381. !         afree((void*)t->str, ap);
  382.   
  383.       if (t->vars != NULL) {
  384.           for (w = t->vars; *w != NULL; w++)
  385. !             afree((void*)*w, ap);
  386. !         afree((void*)t->vars, ap);
  387.       }
  388.   
  389.       if (t->args != NULL) {
  390.           for (w = t->args; *w != NULL; w++)
  391. !             afree((void*)*w, ap);
  392. !         afree((void*)t->args, ap);
  393.       }
  394.   
  395.       if (t->ioact != NULL)
  396. ***************
  397. *** 513,519 ****
  398.       tfree(t->left, ap);
  399.       tfree(t->right, ap);
  400.   
  401. !     afree((Void*)t, ap);
  402.   }
  403.   
  404.   static    void
  405. --- 546,552 ----
  406.       tfree(t->left, ap);
  407.       tfree(t->right, ap);
  408.   
  409. !     afree((void*)t, ap);
  410.   }
  411.   
  412.   static    void
  413. ***************
  414. *** 526,533 ****
  415.   
  416.       for (iop = iow; (p = *iop++) != NULL; ) {
  417.           if (p->name != NULL)
  418. !             afree((Void*)p->name, ap);
  419. !         afree((Void*)p, ap);
  420.       }
  421.   }
  422.   
  423. --- 559,566 ----
  424.   
  425.       for (iop = iow; (p = *iop++) != NULL; ) {
  426.           if (p->name != NULL)
  427. !             afree((void*)p->name, ap);
  428. !         afree((void*)p, ap);
  429.       }
  430.   }
  431.   
  432. *** sh/tree.h.old    Sat Apr 25 17:41:40 1992
  433. --- sh/tree.h    Sat Apr 25 18:37:51 1992
  434. ***************
  435. *** 2,8 ****
  436.    * command trees for compile/execute
  437.    */
  438.   
  439. ! /* $Id: tree.h,v 3.3 89/03/27 15:46:57 egisin Exp $ */
  440.   
  441.   #define    NOBLOCK    ((struct op *)NULL)
  442.   #define    NOWORD    ((char *)NULL)
  443. --- 2,8 ----
  444.    * command trees for compile/execute
  445.    */
  446.   
  447. ! /* $Id: tree.h,v 1.2 1992/04/25 08:33:28 sjg Exp $ */
  448.   
  449.   #define    NOBLOCK    ((struct op *)NULL)
  450.   #define    NOWORD    ((char *)NULL)
  451. ***************
  452. *** 95,100 ****
  453. --- 95,101 ----
  454.   #define    DOPAT    BIT(3)        /* quote *?[ */
  455.   #define    DOTILDE    BIT(5)        /* expand ~ */
  456.   
  457. + #if 0
  458.   /* job.c: job control primatives */
  459.   int    execute ARGS((struct op *, int flags));    /* execute tree */
  460.   int    exchild ARGS((struct op *, int flags));    /* execute tree as child */
  461. ***************
  462. *** 104,110 ****
  463.   /* eval.c: word expansion */
  464.   char  **eval ARGS((char **wv, int flag));     /* expand words */
  465.   char   *evalstr ARGS((char *wp, int flags));    /* expand word */
  466. ! char   *substitute ARGS((Const char *s, int flags)); /* compile and expand string */
  467.   
  468.   /* tree.c: command trees */
  469.   void    ptree ARGS((struct op *t, FILE *f));    /* print tree */
  470. --- 105,111 ----
  471.   /* eval.c: word expansion */
  472.   char  **eval ARGS((char **wv, int flag));     /* expand words */
  473.   char   *evalstr ARGS((char *wp, int flags));    /* expand word */
  474. ! char   *substitute ARGS((const char *s, int flags)); /* compile and expand string */
  475.   
  476.   /* tree.c: command trees */
  477.   void    ptree ARGS((struct op *t, FILE *f));    /* print tree */
  478. ***************
  479. *** 112,115 ****
  480.   char   *wdcopy ARGS((char *wp, Area *));    /* copy word */
  481.   struct op *tcopy ARGS((struct op *t, Area *));    /* copy tree */
  482.   void    tfree ARGS((struct op *t, Area *));    /* free tree */
  483. ! 
  484. --- 113,116 ----
  485.   char   *wdcopy ARGS((char *wp, Area *));    /* copy word */
  486.   struct op *tcopy ARGS((struct op *t, Area *));    /* copy tree */
  487.   void    tfree ARGS((struct op *t, Area *));    /* free tree */
  488. ! #endif
  489. *** sh/tty.h.old    Sat Apr 25 17:41:48 1992
  490. --- sh/tty.h    Sun Apr 19 19:21:46 1992
  491. ***************
  492. *** 21,28 ****
  493. --- 21,37 ----
  494.   #endif
  495.   #else    /* !_BSD_SYSV */
  496.   #if _BSD
  497. + #ifdef _MINIX
  498. + #include <sgtty.h>
  499. + #define TIOCSETN    TIOCSETP
  500. + #else
  501.   #include <sys/ioctl.h>
  502. + #endif
  503.   #else
  504. + #ifdef    mips
  505. + #include <termios.h>
  506. + #else
  507.   #include <termio.h>
  508. + #endif
  509.   #endif
  510.   #endif    /* _BSD_SYSV */
  511. *** sh/do_ulimit.c.old    Sat Apr 25 17:44:37 1992
  512. --- sh/do_ulimit.c    Sat Apr 25 18:35:05 1992
  513. ***************
  514. *** 13,20 ****
  515.   */
  516.   
  517.   #ifndef lint
  518. ! static char *RCSid = "$Id: ulimit.c,v 3.2 89/03/27 15:52:19 egisin Exp $";
  519. ! static char *sccs_id = "@(#)ulimit.c    1.2 91/11/22 22:54:04 (sjg)";
  520.   #endif
  521.   
  522.   #include "stdh.h"
  523. --- 13,19 ----
  524.   */
  525.   
  526.   #ifndef lint
  527. ! static char *RCSid = "$Id: do_ulimit.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  528.   #endif
  529.   
  530.   #include "stdh.h"
  531. *** sh/var.c.old    Sat Apr 25 17:44:38 1992
  532. --- sh/var.c    Sat Apr 25 18:37:59 1992
  533. ***************
  534. *** 1,6 ****
  535.   #ifndef lint
  536. ! static char *RCSid = "$Id: var.c,v 3.2 89/03/27 15:52:21 egisin Exp $";
  537. ! static char *sccs_id = "@(#)var.c    1.4 91/11/22 22:53:13 (sjg)";
  538.   #endif
  539.   
  540.   #include "stdh.h"
  541. --- 1,5 ----
  542.   #ifndef lint
  543. ! static char *RCSid = "$Id: var.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  544.   #endif
  545.   
  546.   #include "stdh.h"
  547. ***************
  548. *** 8,14 ****
  549.   #include <setjmp.h>
  550.   #include <time.h>
  551.   #include "sh.h"
  552. - #include "table.h"
  553.   #include "expand.h"
  554.   
  555.   /*
  556. --- 7,12 ----
  557. ***************
  558. *** 22,30 ****
  559.    */
  560.   char    null []    = "";
  561.   static    struct tbl vtemp;
  562. ! static    void getspec(), setspec();
  563. ! static    void export ARGS((struct tbl *, char *val));
  564. ! static    int special ARGS ((char *name));
  565.   
  566.   /*
  567.    * create a new block for function calls and simple commands
  568. --- 20,29 ----
  569.    */
  570.   char    null []    = "";
  571.   static    struct tbl vtemp;
  572. ! static void     export      ARGS((struct tbl *vp, char *val));
  573. ! static int      special     ARGS((char *name));
  574. ! static void     getspec     ARGS((struct tbl *vp));
  575. ! static void     setspec     ARGS((struct tbl *vp));
  576.   
  577.   /*
  578.    * create a new block for function calls and simple commands
  579. ***************
  580. *** 219,225 ****
  581.   {
  582.       if (!(vq->flag&INTEGER)) { /* string dest */
  583.           if ((vq->flag&ALLOC))
  584. !             afree((Void*)vq->val.s, lastarea);
  585.           vq->flag &= ~ (ISSET|ALLOC);
  586.           vq->type = 0;
  587.           if ((vq->flag&EXPORT))
  588. --- 218,224 ----
  589.   {
  590.       if (!(vq->flag&INTEGER)) { /* string dest */
  591.           if ((vq->flag&ALLOC))
  592. !             afree((void*)vq->val.s, lastarea);
  593.           vq->flag &= ~ (ISSET|ALLOC);
  594.           vq->type = 0;
  595.           if ((vq->flag&EXPORT))
  596. ***************
  597. *** 348,354 ****
  598.       for (cp = val; (*xp++ = *cp++) != '\0'; )
  599.           ;
  600.       if (op != NULL)
  601. !         afree((Void*)op, lastarea);
  602.   }
  603.   
  604.   /*
  605. --- 347,353 ----
  606.       for (cp = val; (*xp++ = *cp++) != '\0'; )
  607.           ;
  608.       if (op != NULL)
  609. !         afree((void*)op, lastarea);
  610.   }
  611.   
  612.   /*
  613. ***************
  614. *** 385,391 ****
  615.           *val++ = '=';
  616.   
  617.       if (!(vp->flag&ISSET))
  618. !         vp->flag = vp->flag & ~clr | set;
  619.       else
  620.           if (!(vp->flag&INTEGER) && (set&INTEGER)) {
  621.           /* string to integer */
  622. --- 384,390 ----
  623.           *val++ = '=';
  624.   
  625.       if (!(vp->flag&ISSET))
  626. !         vp->flag = (vp->flag & ~clr) | set;
  627.       else
  628.           if (!(vp->flag&INTEGER) && (set&INTEGER)) {
  629.           /* string to integer */
  630. ***************
  631. *** 393,399 ****
  632.           vtemp.type = 0;
  633.           vtemp.val.s = vp->val.s + vp->type;
  634.           if ((vp->flag&ALLOC))
  635. !             afree((Void*)vp->val.s, lastarea); /* dangerous, used later */
  636.           vp->flag &= ~ ALLOC;
  637.           vp->flag |= INTEGER;
  638.           vp->type = 0;
  639. --- 392,398 ----
  640.           vtemp.type = 0;
  641.           vtemp.val.s = vp->val.s + vp->type;
  642.           if ((vp->flag&ALLOC))
  643. !             afree((void*)vp->val.s, lastarea); /* dangerous, used later */
  644.           vp->flag &= ~ ALLOC;
  645.           vp->flag |= INTEGER;
  646.           vp->type = 0;
  647. ***************
  648. *** 409,415 ****
  649.           setstr(vp, vtemp.val.s);
  650.           }
  651.   
  652. !     vp->flag = vp->flag & ~clr | set;
  653.   
  654.       if (val != NULL) {
  655.           if ((vp->flag&RDONLY))
  656. --- 408,414 ----
  657.           setstr(vp, vtemp.val.s);
  658.           }
  659.   
  660. !     vp->flag = (vp->flag & ~clr) | set;
  661.   
  662.       if (val != NULL) {
  663.           if ((vp->flag&RDONLY))
  664. ***************
  665. *** 432,438 ****
  666.       register struct tbl *vp;
  667.   {
  668.       if ((vp->flag&ALLOC))
  669. !         afree((Void*)vp->val.s, lastarea);
  670.       vp->flag &= SPECIAL;    /* Should ``unspecial'' some vars */
  671.   }
  672.   
  673. --- 431,437 ----
  674.       register struct tbl *vp;
  675.   {
  676.       if ((vp->flag&ALLOC))
  677. !         afree((void*)vp->val.s, lastarea);
  678.       vp->flag &= SPECIAL;    /* Should ``unspecial'' some vars */
  679.   }
  680.   
  681. *** sh/version.c.old    Sat Apr 25 17:44:38 1992
  682. --- sh/version.c    Sat Apr 25 18:38:04 1992
  683. ***************
  684. *** 3,21 ****
  685.    */
  686.   
  687.   #ifndef lint
  688. ! static char *RCSid = "$Id: version.c,v 3.3 89/03/27 15:52:29 egisin Exp $";
  689. ! static char *sccs_id = "@(#)version.c    4.2 91/11/22 22:53:29 (sjg)";
  690.   #endif
  691.   
  692.   #include "stdh.h"
  693.   #include <setjmp.h>
  694.   #include "sh.h"
  695.   
  696.   char ksh_version [] =
  697. !     "KSH_VERSION=@(#)PD KSH v4.2 91/11/22 22:53:29";
  698.   
  699.   /***
  700. ! $Log:    version.c,v $
  701.   Version  4.0  91/11/09  sjg
  702.   distribution
  703.   Revision 3.3  89/03/27  15:52:29  egisin
  704. --- 3,27 ----
  705.    */
  706.   
  707.   #ifndef lint
  708. ! static char *RCSid = "$Id: version.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  709.   #endif
  710.   
  711.   #include "stdh.h"
  712.   #include <setjmp.h>
  713.   #include "sh.h"
  714. + #include "patchlevel.h"
  715.   
  716.   char ksh_version [] =
  717. !     "KSH_VERSION=@(#)PD KSH v4.3 92/04/25";
  718.   
  719.   /***
  720. ! $Log: version.c,v $
  721. !  * Revision 1.2  1992/04/25  08:33:28  sjg
  722. !  * Added RCS key.
  723. !  *
  724. !  * Revision 1.1  1992/04/18  05:51:48  sjg
  725. !  * Initial revision
  726. !  *
  727.   Version  4.0  91/11/09  sjg
  728.   distribution
  729.   Revision 3.3  89/03/27  15:52:29  egisin
  730. *** sh/vi.c.old    Sat Apr 25 17:44:39 1992
  731. --- sh/vi.c    Sat Apr 25 18:38:09 1992
  732. ***************
  733. *** 9,16 ****
  734.   #ifdef VI
  735.   
  736.   #ifndef lint
  737. ! static char *RCSid = "$Id: vi.c,v 3.1 89/01/28 15:29:20 egisin Exp $";
  738. ! static char *sccs_id = "@(#)vi.c    1.4 91/11/22 22:53:02 (sjg)";
  739.   #endif
  740.   
  741.   #include "stdh.h"
  742. --- 9,15 ----
  743.   #ifdef VI
  744.   
  745.   #ifndef lint
  746. ! static char *RCSid = "$Id: vi.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  747.   #endif
  748.   
  749.   #include "stdh.h"
  750. ***************
  751. *** 21,29 ****
  752.   #include <errno.h>
  753.   #include <setjmp.h>
  754.   #include "sh.h"
  755. - #include "lex.h"
  756. - #include "tree.h"        /* DOTILDE */
  757. - #include "table.h"
  758.   #include "expand.h"
  759.   #include "edit.h"
  760.   
  761. --- 20,25 ----
  762. ***************
  763. *** 32,65 ****
  764.   #define    bcopy(src, dst, len)    memmove(dst, src, len)
  765.   extern    int    histN();
  766.   
  767. ! static int    nextstate();
  768. ! static int    vi_insert();
  769. ! static int    vi_cmd();
  770. ! static int    domove();
  771. ! static int    redo_insert();
  772. ! static        yank_range();
  773. ! static int    bracktype();
  774. ! static        edit_prompt();
  775. ! static        edit_reset();
  776. ! static int    putbuf();
  777. ! static        stripblanks();
  778. ! static        del_range();
  779. ! static int    findch();
  780. ! static int    forwword();
  781. ! static int    backword();
  782. ! static int    endword();
  783. ! static int    Forwword();
  784. ! static int    Backword();
  785. ! static int    Endword();
  786. ! static int    grabhist();
  787. ! static int    grabsearch();
  788. ! static        redraw_line();
  789. ! static        refresh();
  790. ! static int    outofwin();
  791. ! static        rewindow();
  792. ! static int    newcol();
  793. ! static        display();
  794. ! static        ed_mov_opt();
  795.   
  796.   #define C_    0x1
  797.   #define M_    0x2
  798. --- 28,60 ----
  799.   #define    bcopy(src, dst, len)    memmove(dst, src, len)
  800.   extern    int    histN();
  801.   
  802. ! static int      nextstate   ARGS((int ch));
  803. ! static int      vi_insert   ARGS((int ch));
  804. ! static int      vi_cmd      ARGS((int argcnt, char *cmd));
  805. ! static int      domove      ARGS((int argcnt, char *cmd, int sub));
  806. ! static int      redo_insert ARGS((int count));
  807. ! static          yank_range  ARGS((int a, int b));
  808. ! static int      bracktype   ARGS((int ch));
  809. ! static          edit_reset  ARGS((char *buf, int len));
  810. ! static int      putbuf      ARGS((char *buf, int len, int repl));
  811. ! static          stripblanks ARGS((void));
  812. ! static          del_range   ARGS((int a, int b));
  813. ! static int      findch      ARGS((int ch, int cnt, int forw, int incl));
  814. ! static int      forwword    ARGS((int argcnt));
  815. ! static int      backword    ARGS((int argcnt));
  816. ! static int      endword     ARGS((int argcnt));
  817. ! static int      Forwword    ARGS((int argcnt));
  818. ! static int      Backword    ARGS((int argcnt));
  819. ! static int      Endword     ARGS((int argcnt));
  820. ! static int      grabhist    ARGS((int save, int n));
  821. ! static int      grabsearch  ARGS((int save, int start, int fwd, char *pat));
  822. ! static          redraw_line ARGS((void));
  823. ! static          refresh     ARGS((int leftside));
  824. ! static int      outofwin    ARGS((void));
  825. ! static          rewindow    ARGS((void));
  826. ! static int      newcol      ARGS((int ch, int col));
  827. ! static          display     ARGS((char *wb1, char *wb2, int leftside));
  828. ! static          ed_mov_opt  ARGS((int col, char *wb));
  829.   
  830.   #define C_    0x1
  831.   #define M_    0x2
  832. ***************
  833. *** 196,202 ****
  834.       static char    locpat[SRCHLEN];
  835.       static int    cmdlen;
  836.       static int    argc1, argc2;
  837. -     int        i;
  838.   
  839.       if (state != VSEARCH && (ch == '\r' || ch == '\n')) {
  840.           x_putc('\r');
  841. --- 191,196 ----
  842. ***************
  843. *** 539,545 ****
  844.   {
  845.       int        ncursor;
  846.       int        cur, c1, c2, c3 = 0;
  847. -     char        pos[10];
  848.       struct edstate    *t;
  849.   
  850.   
  851. --- 533,538 ----
  852. ***************
  853. *** 1388,1394 ****
  854.       int    n;
  855.   {
  856.       char    *hptr;
  857. -     char    pos[10];
  858.   
  859.       if (n < 0 || n > hlast)
  860.           return -1;
  861. --- 1381,1386 ----
  862.  
  863. exit 0 # Just in case...
  864.