home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume29 / pdksh / patch03c < prev    next >
Encoding:
Text File  |  1992-04-25  |  34.4 KB  |  1,591 lines
  1. Newsgroups: comp.sources.misc
  2. From: sjg@zen.void.oz.au (Simon J. Gerraty)
  3. Subject:  v29i085:  pdksh - Public Domain Korn Shell, v4, Patch03c/5
  4. Message-ID: <1992Apr26.041550.22314@sparky.imd.sterling.com>
  5. X-Md4-Signature: 33c575c38912b013f9574b876cc8ed58
  6. Date: Sun, 26 Apr 1992 04:15:50 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 85
  11. Archive-name: pdksh/patch03c
  12. Environment: UNIX
  13. Patch-To: pdksh: Volume 25, Issue 47-55
  14.  
  15. *** sh/jobs.c.old    Sat Apr 25 17:44:29 1992
  16. --- sh/jobs.c    Sat Apr 25 18:31:27 1992
  17. ***************
  18. *** 2,9 ****
  19.    * Process and job control
  20.    */
  21.   #ifndef lint
  22. ! static char *RCSid = "$Id: jobs.c,v 3.5 89/03/27 15:51:01 egisin Exp $";
  23. ! static char  sccs_id[] = "@(#)jobs.c     1.5  91/11/22  22:53:20  (sjg)";
  24.   #endif
  25.   
  26.   /*
  27. --- 2,8 ----
  28.    * Process and job control
  29.    */
  30.   #ifndef lint
  31. ! static char *RCSid = "$Id: jobs.c,v 1.3 1992/04/25 08:29:52 sjg Exp $";
  32.   #endif
  33.   
  34.   /*
  35. ***************
  36. *** 29,35 ****
  37.   #include <sys/times.h>
  38.   #include <sys/wait.h>
  39.   #include "sh.h"
  40. - #include "tree.h"
  41.   #ifdef JOBS
  42.   #ifdef _BSD
  43.   #include <sys/ioctl.h>
  44. --- 28,33 ----
  45. ***************
  46. *** 67,73 ****
  47.   #   define WEXITSTATUS(x)    ((x).w_retcode)
  48.   # endif
  49.   # ifndef HAVE_WAITPID
  50. ! #   define    waitpid(pid, sp, opts)    wait3(sp, opts, (Void*)NULL)
  51.   # endif
  52.   #else                    /* not _BSD */
  53.   # ifndef WIFCORED
  54. --- 65,71 ----
  55.   #   define WEXITSTATUS(x)    ((x).w_retcode)
  56.   # endif
  57.   # ifndef HAVE_WAITPID
  58. ! #   define    waitpid(pid, sp, opts)    wait3(sp, opts, (void*)NULL)
  59.   # endif
  60.   #else                    /* not _BSD */
  61.   # ifndef WIFCORED
  62. ***************
  63. *** 81,87 ****
  64.    *    int setpgid(pid_t pid, pid_t pgid); // Set process group id for job control
  65.    */
  66.   
  67. - static int sigchld_caught;    /* for recording child terminations */
  68.   
  69.   #ifdef JOBS
  70.   #ifdef _BSD            /* _BSD 4.* */
  71. --- 79,84 ----
  72. ***************
  73. *** 94,99 ****
  74. --- 91,97 ----
  75.   #endif
  76.   #endif
  77.   
  78. + 
  79.   #ifndef    SIGCHLD
  80.   #define    SIGCHLD    SIGCLD
  81.   #endif
  82. ***************
  83. *** 109,116 ****
  84.   struct Proc {
  85.       Proc   *next;        /* `procs' list link */
  86.       int    job;        /* job number: %n */
  87. !     short    Volatile state;    /* proc state */
  88. !     short    Volatile notify; /* proc state has changed */
  89.       Proc   *prev;        /* prev member of pipeline */
  90.       pid_t    proc;        /* process id */
  91.       pid_t    pgrp;        /* process group if flag[FMONITOR] */
  92. --- 107,114 ----
  93.   struct Proc {
  94.       Proc   *next;        /* `procs' list link */
  95.       int    job;        /* job number: %n */
  96. !     short    volatile state;    /* proc state */
  97. !     short    volatile notify; /* proc state has changed */
  98.       Proc   *prev;        /* prev member of pipeline */
  99.       pid_t    proc;        /* process id */
  100.       pid_t    pgrp;        /* process group if flag[FMONITOR] */
  101. ***************
  102. *** 131,137 ****
  103. --- 129,139 ----
  104.   
  105.   clock_t    j_utime, j_stime;    /* user and system time for last job a-waited */
  106.   #ifdef JOBS
  107. + # ifdef USE_SIGACT
  108. + sigset_t sm_default, sm_sigchld;    /* signal masks */
  109. + # else
  110.   static    int    sm_default, sm_sigchld;    /* signal masks */
  111. + # endif
  112.   static    int    our_pgrp;        /* shell's pgrp */
  113.   #endif
  114.   static    Proc   *j_lastj;        /* last proc created by exchild */
  115. ***************
  116. *** 139,169 ****
  117.   static    int    j_current = 0;        /* current job */
  118.   static    int    j_previous = 0;        /* previous job */
  119.   
  120. ! static    int    j_newjob ARGS((void));
  121. ! static    void    j_print ARGS((Proc *j));
  122. ! static    Proc   *j_search ARGS((int job));
  123. ! static    int    j_waitj ARGS((Proc *j, int intr));
  124. ! static    void    j_sigchld ARGS((int sig));
  125. !     
  126.   /* initialize job control */
  127.   void
  128.   j_init()
  129.   {
  130.   #ifdef JOBS
  131. ! #ifdef NTTYDISC
  132.       int ldisc = NTTYDISC;    /* BSD brain damage */
  133.   
  134.       if (ttyfd >= 0)
  135.           ioctl(ttyfd, TIOCSETD, &ldisc);
  136. ! #endif
  137.       our_pgrp = getpgid(0);
  138.       sigchld_caught = 0;
  139.       sm_default = 0;
  140.       sm_sigchld = sigmask(SIGCHLD);
  141.       _TRACE(5, ("j_init: sm_sigchld == 0x%x", sm_sigchld));
  142. ! #endif
  143. ! #if defined(_SYSV) && !defined(JOBS)
  144.       signal(SIGCHLD, SIG_DFL);    /* necessary ??? */
  145.   #endif
  146.   }
  147.   
  148. --- 141,183 ----
  149.   static    int    j_current = 0;        /* current job */
  150.   static    int    j_previous = 0;        /* previous job */
  151.   
  152. ! static int      j_waitj     ARGS((Proc *aj, int intr));
  153. ! static void     j_print     ARGS((Proc *j));
  154. ! static int      j_newjob    ARGS((void));
  155. ! static Proc *   j_search    ARGS((int job));
  156. ! static void    j_sigchld   ARGS((int sig));
  157. !   
  158.   /* initialize job control */
  159.   void
  160.   j_init()
  161.   {
  162.   #ifdef JOBS
  163. ! # if defined(NTTYDISC) && defined(TIOCSETD)
  164.       int ldisc = NTTYDISC;    /* BSD brain damage */
  165.   
  166.       if (ttyfd >= 0)
  167.           ioctl(ttyfd, TIOCSETD, &ldisc);
  168. ! # endif
  169.       our_pgrp = getpgid(0);
  170.       sigchld_caught = 0;
  171. + # ifdef USE_SIGACT
  172. +     sigemptyset(&sm_default);
  173. +     sigemptyset(&sm_sigchld);
  174. +     sigaddset(&sm_sigchld, SIGCHLD);
  175. + # else
  176.       sm_default = 0;
  177.       sm_sigchld = sigmask(SIGCHLD);
  178.       _TRACE(5, ("j_init: sm_sigchld == 0x%x", sm_sigchld));
  179. ! # endif
  180. ! #endif 
  181. ! #ifndef JOBS
  182. ! # ifdef USE_SIGACT
  183. !     sigaction(SIGCHLD, &Sigact_dfl, NULL);
  184. ! # else
  185. ! #   ifdef _SYSV
  186.       signal(SIGCHLD, SIG_DFL);    /* necessary ??? */
  187. + #   endif
  188. + # endif
  189.   #endif
  190.   }
  191.   
  192. ***************
  193. *** 200,207 ****
  194.   void
  195.   j_change()
  196.   {
  197.       static handler_t old_tstp, old_ttin, old_ttou;
  198. ! 
  199.       if (flag[FMONITOR]) {
  200.           if (ttyfd < 0) {
  201.               flag[FMONITOR] = 0;
  202. --- 214,224 ----
  203.   void
  204.   j_change()
  205.   {
  206. + #ifdef USE_SIGACT
  207. +     static struct sigaction old_tstp, old_ttin, old_ttou;
  208. + #else
  209.       static handler_t old_tstp, old_ttin, old_ttou;
  210. ! #endif
  211.       if (flag[FMONITOR]) {
  212.           if (ttyfd < 0) {
  213.               flag[FMONITOR] = 0;
  214. ***************
  215. *** 208,213 ****
  216. --- 225,244 ----
  217.               shellf("job control requires tty\n");
  218.               return;
  219.           }
  220. + #ifdef USE_SIGACT
  221. +         Sigact.sa_handler = j_sigchld;
  222. +         sigemptyset(&Sigact.sa_mask);
  223. +         Sigact.sa_flags = SA_RESTART;
  224. +         sigaction(SIGCHLD, &Sigact, NULL);
  225. +         Sigact.sa_flags = 0;
  226. +         sigtraps[SIGCHLD].sig_dfl = 1; /* restore on fork */
  227. +         sigaction(SIGTSTP, &Sigact_ign, &old_tstp);
  228. +         sigtraps[SIGTSTP].sig_dfl = 1;
  229. +         sigaction(SIGTTIN, &Sigact_ign, &old_ttin);
  230. +         sigtraps[SIGTTIN].sig_dfl = 1;
  231. +         sigaction(SIGTTOU, &Sigact_ign, &old_ttou);
  232. +         sigtraps[SIGTTOU].sig_dfl = 1;
  233. + #else
  234.           (void) signal(SIGCHLD, j_sigchld);
  235.           sigtraps[SIGCHLD].sig_dfl = 1; /* restore on fork */
  236.           old_tstp = signal(SIGTSTP, SIG_IGN);
  237. ***************
  238. *** 216,224 ****
  239. --- 247,269 ----
  240.           sigtraps[SIGTTIN].sig_dfl = 1;
  241.           old_ttou = signal(SIGTTOU, SIG_IGN);
  242.           sigtraps[SIGTTOU].sig_dfl = 1;
  243. + #endif
  244. + #ifdef USE_SIGACT
  245. +         sigprocmask(SIG_SETMASK, &sm_default, NULL);
  246. + #else
  247.           sigsetmask(sm_default);
  248. + #endif
  249.           tcsetpgrp(ttyfd, our_pgrp);
  250.       } else {
  251. + #ifdef USE_SIGACT
  252. +         sigaction(SIGCHLD, &Sigact_dfl, NULL);
  253. +         sigaction(SIGTSTP, &old_tstp, NULL);
  254. +         sigtraps[SIGTSTP].sig_dfl = 0;
  255. +         sigaction(SIGTTIN, &old_ttin, NULL);
  256. +         sigtraps[SIGTTIN].sig_dfl = 0;
  257. +         sigaction(SIGTTOU, &old_ttou, NULL);
  258. +         sigtraps[SIGTTOU].sig_dfl = 0;
  259. + #else
  260.           (void) signal(SIGCHLD, SIG_DFL);
  261.           (void) signal(SIGTSTP, old_tstp);
  262.           sigtraps[SIGTSTP].sig_dfl = 0;
  263. ***************
  264. *** 226,231 ****
  265. --- 271,277 ----
  266.           sigtraps[SIGTTIN].sig_dfl = 0;
  267.           (void) signal(SIGTTOU, old_ttou);
  268.           sigtraps[SIGTTOU].sig_dfl = 0;
  269. + #endif
  270.       }
  271.   }
  272.   #endif
  273. ***************
  274. *** 269,274 ****
  275. --- 315,329 ----
  276.   
  277.       /* create child process */
  278.       forksleep = 0;
  279. + #ifdef JOBS
  280. +     /* don't allow SIGCHLD until we are ready */
  281. + 
  282. + #ifdef USE_SIGACT
  283. +     sigprocmask(SIG_SETMASK, &sm_sigchld, NULL);
  284. + # else
  285. +     sigsetmask(sm_sigchld);
  286. + # endif
  287. + #endif
  288.       while ((i = fork()) < 0 && errno == EAGAIN && forksleep < 32) {
  289.           if (forksleep) {
  290.               sleep(forksleep);
  291. ***************
  292. *** 284,295 ****
  293.   
  294.   #ifdef JOBS
  295.       /* job control set up */
  296. !     if (flag[FMONITOR] && !(flags&XXCOM)) {
  297. !         j->pgrp = !(flags&XPIPEI) ? j->proc : j_lastj->pgrp;
  298. !         /* do in both parent and child to avoid fork race condition */
  299. !         if (!(flags&XBGND))
  300. !             tcsetpgrp(ttyfd, j->pgrp); /* could be trouble */
  301. !         setpgid(j->proc, j->pgrp);
  302.       }
  303.   #endif
  304.       j_lastj = j;
  305. --- 339,351 ----
  306.   
  307.   #ifdef JOBS
  308.       /* job control set up */
  309. !     if (flag[FMONITOR] && !(flags&XXCOM))
  310. !     {
  311. !       j->pgrp = !(flags&XPIPEI) ? j->proc : j_lastj->pgrp;
  312. !       /* do in both parent and child to avoid fork race condition */
  313. !       if (!(flags&XBGND))
  314. !         tcsetpgrp(ttyfd, j->pgrp); /* could be trouble */
  315. !       setpgid(j->proc, j->pgrp);
  316.       }
  317.   #endif
  318.       j_lastj = j;
  319. ***************
  320. *** 298,308 ****
  321.           e.oenv = NULL;
  322.           if (flag[FTALKING])
  323.               restoresigs();
  324. !         if ((flags&XBGND) && !flag[FMONITOR]) {
  325. !             signal(SIGINT, SIG_IGN);
  326. !             signal(SIGQUIT, SIG_IGN);
  327. !             if (flag[FTALKING])
  328. !                 signal(SIGTERM, SIG_DFL);
  329.               if (!(flags&XPIPEI)) {
  330.                   i = open("/dev/null", 0);
  331.                   (void) dup2(i, 0);
  332. --- 354,372 ----
  333.           e.oenv = NULL;
  334.           if (flag[FTALKING])
  335.               restoresigs();
  336. !         if ((flags&XBGND) && !flag[FMONITOR])
  337. !         {
  338. ! #ifdef USE_SIGACT
  339. !           sigaction(SIGINT, &Sigact_dfl, NULL);
  340. !           sigaction(SIGQUIT, &Sigact_dfl, NULL);
  341. !           if (flag[FTALKING])
  342. !             sigaction(SIGTERM, &Sigact_dfl, NULL);
  343. ! #else
  344. !           signal(SIGINT, SIG_IGN);
  345. !           signal(SIGQUIT, SIG_IGN);
  346. !           if (flag[FTALKING])
  347. !             signal(SIGTERM, SIG_DFL);
  348. ! #endif
  349.               if (!(flags&XPIPEI)) {
  350.                   i = open("/dev/null", 0);
  351.                   (void) dup2(i, 0);
  352. ***************
  353. *** 312,317 ****
  354. --- 376,389 ----
  355.           for (j = procs; j != NULL; j = j->next)
  356.               j->state = JFREE;
  357.           ttyfd = -1;
  358. + #ifdef JOBS
  359. +         /* is this needed in the child? */
  360. + # ifdef USE_SIGACT
  361. +         sigprocmask(SIG_SETMASK, &sm_default, NULL);
  362. + # else
  363. +         sigsetmask(sm_default);
  364. + # endif
  365. + #endif
  366.           flag[FMONITOR] = flag[FTALKING] = 0;
  367.           cleartraps();
  368.           execute(t, flags|XEXEC); /* no return */
  369. ***************
  370. *** 325,331 ****
  371.           j_current = j->job;
  372.           if (flag[FTALKING])
  373.               j_print(j);
  374. !     } else {        /* sync statement */
  375.           if (!(flags&XPIPE))
  376.               rv = j_waitj(j, 0);
  377.       }
  378. --- 397,412 ----
  379.           j_current = j->job;
  380.           if (flag[FTALKING])
  381.               j_print(j);
  382. !     }
  383. ! #ifdef JOBS
  384. ! # ifdef USE_SIGACT
  385. !     sigprocmask(SIG_SETMASK, &sm_default, NULL);
  386. ! # else
  387. !     sigsetmask(sm_default);
  388. ! # endif
  389. ! #endif
  390. !     if (!(flags&XBGND))
  391. !     {         /* sync statement */
  392.           if (!(flags&XPIPE))
  393.               rv = j_waitj(j, 0);
  394.       }
  395. ***************
  396. *** 353,360 ****
  397. --- 434,445 ----
  398.   #ifdef JOBS
  399.       if (flag[FMONITOR])
  400.       {
  401. + # ifdef USE_SIGACT
  402. +       sigprocmask(SIG_SETMASK, &sm_sigchld, NULL);
  403. + # else
  404.         _TRACE(5, ("j_waitj: sigsetmask(sm_sigchld==0x%x)", sm_sigchld));
  405.         sigsetmask(sm_sigchld);
  406. + # endif
  407.       }
  408.   #endif
  409.       /* wait for all members of pipeline */
  410. ***************
  411. *** 371,383 ****
  412.                  */
  413.                 if (!sigchld_caught)
  414.                 {
  415.                   _TRACE(4, ("j_waitj: sigpause(%d), sigchld_caught==%d", sm_default, sigchld_caught));
  416.                   sigpause(sm_default);
  417.                   _TRACE(4, ("j_waitj: sigpause() returned %d, sigchld_caught==%d", errno, sigchld_caught));
  418.                 }
  419.               }
  420.               else
  421. ! #endif
  422.                   j_sigchld(0);
  423.               /*
  424.                * Children to reap
  425. --- 456,472 ----
  426.                  */
  427.                 if (!sigchld_caught)
  428.                 {
  429. + # ifdef USE_SIGACT
  430. +                 sigsuspend(&sm_default);
  431. + # else
  432.                   _TRACE(4, ("j_waitj: sigpause(%d), sigchld_caught==%d", sm_default, sigchld_caught));
  433.                   sigpause(sm_default);
  434.                   _TRACE(4, ("j_waitj: sigpause() returned %d, sigchld_caught==%d", errno, sigchld_caught));
  435. + # endif /* USE_SIGACT */
  436.                 }
  437.               }
  438.               else
  439. ! #endif /* JOBS */
  440.                   j_sigchld(0);
  441.               /*
  442.                * Children to reap
  443. ***************
  444. *** 398,404 ****
  445.               if (!(j->flags&XPIPEO))
  446.                   rv = 0x80 + WTERMSIG(j->status);
  447.               if (WTERMSIG(j->status) == SIGINT ||
  448. !                 WTERMSIG(j->status) == SIGPIPE && (j->flags&XPIPEO))
  449.                   j->notify = 0;
  450.               if (WTERMSIG(j->status) == SIGINT ||
  451.                   WTERMSIG(j->status) == SIGQUIT)
  452. --- 487,494 ----
  453.               if (!(j->flags&XPIPEO))
  454.                   rv = 0x80 + WTERMSIG(j->status);
  455.               if (WTERMSIG(j->status) == SIGINT ||
  456. !                 (WTERMSIG(j->status) == SIGPIPE &&
  457. !                  (j->flags&XPIPEO)))
  458.                   j->notify = 0;
  459.               if (WTERMSIG(j->status) == SIGINT ||
  460.                   WTERMSIG(j->status) == SIGQUIT)
  461. ***************
  462. *** 441,450 ****
  463.   
  464.     Break:
  465.   #ifdef JOBS
  466. !     if (flag[FMONITOR]) {
  467. !         /* reset shell job control state */
  468. !         sigsetmask(sm_default);
  469. !         tcsetpgrp(ttyfd, our_pgrp);
  470.       }
  471.   #endif
  472.       if (ttysig)
  473. --- 531,545 ----
  474.   
  475.     Break:
  476.   #ifdef JOBS
  477. !     if (flag[FMONITOR])
  478. !     {
  479. !       /* reset shell job control state */
  480. ! # ifdef USE_SIGACT
  481. !       sigprocmask(SIG_SETMASK, &sm_default, NULL);
  482. ! # else
  483. !       sigsetmask(sm_default);
  484. ! # endif
  485. !       tcsetpgrp(ttyfd, our_pgrp);
  486.       }
  487.   #endif
  488.       if (ttysig)
  489. ***************
  490. *** 466,476 ****
  491.       int sig;
  492.   {
  493.       sigchld_caught++;    /* acknowledge it */
  494. - #if defined(_SYSV) && !defined(JOBS)
  495. -     /* non-zero sig means called as handler */
  496. -     /* 5.2 handlers must reinstate themselves */
  497. -     if (sig) signal(SIGCHLD, j_sigchld);
  498. - #endif
  499.   }
  500.   
  501.   /*
  502. --- 561,566 ----
  503. ***************
  504. *** 481,492 ****
  505.   j_reapchld()
  506.   {
  507.       struct tms t0, t1;
  508. ! #ifdef JOBS
  509.       int sm_old;
  510.   
  511.       sm_old = sigblock(0);    /* just get current mask */
  512. - #endif
  513.       _TRACE(5, ("j_reapchld: sm_old==0x%x, sigchld_caught==%d", sm_old, sigchld_caught));
  514.       (void) times(&t0);
  515.   
  516.       do {
  517. --- 571,588 ----
  518.   j_reapchld()
  519.   {
  520.       struct tms t0, t1;
  521. ! #if defined(JOBS)
  522. ! # ifdef USE_SIGACT
  523. !     sigset_t    sm_old;
  524. ! 
  525. !     sigprocmask(SIG_SETMASK, NULL, &sm_old);
  526. ! # else
  527.       int sm_old;
  528.   
  529.       sm_old = sigblock(0);    /* just get current mask */
  530.       _TRACE(5, ("j_reapchld: sm_old==0x%x, sigchld_caught==%d", sm_old, sigchld_caught));
  531. + # endif
  532. + #endif
  533.       (void) times(&t0);
  534.   
  535.       do {
  536. ***************
  537. *** 499,504 ****
  538. --- 595,607 ----
  539.           else
  540.   #endif
  541.               pid = wait(&status);
  542. +         if (pid < 0 && errno == ECHILD)
  543. +         {
  544. +           /* no children - what are we doing here? */
  545. +           _TRACE(5, ("j_reapchld: no children"));
  546. +           sigchld_caught = 0;
  547. +           break;
  548. +         }
  549.           if (pid <= 0)    /* return if would block (0) ... */
  550.               break;    /* ... or no children or interrupted (-1) */
  551.           (void) times(&t1);
  552. ***************
  553. *** 534,552 ****
  554. --- 637,674 ----
  555.           j->stime = t1.tms_cstime - t0.tms_cstime;
  556.           t0 = t1;
  557.   #ifdef JOBS
  558. + # ifdef USE_SIGACT
  559. +         sigprocmask(SIG_BLOCK, &sm_sigchld, NULL);
  560. + # else
  561.           sigblock(sm_sigchld);
  562. + # endif
  563.   #endif
  564.           if (--sigchld_caught < 0) /* reduce the count */
  565.             sigchld_caught = 0;
  566.   #ifdef JOBS
  567. + # ifdef USE_SIGACT
  568. +         sigprocmask(SIG_SETMASK, &sm_old, NULL);
  569. + # else
  570.           _TRACE(5, ("j_reapchld: j->proc==%d, j->com=='%s', j->state==0x%hx, j->status==0x%x, j->notify==%hd", j->proc, j->com, j->state, j->status, j->notify));
  571.           sigsetmask(sm_old); /* restore old mask */
  572. + # endif
  573.   #endif
  574. +         
  575.   #ifdef JOBS
  576.       } while (flag[FMONITOR]);
  577.   #else
  578.       } while (0);        /* only once if wait()ing */
  579.   #endif
  580. + /*
  581. +  * this should be safe
  582. +  */
  583. + #if defined(_SYSV) && !defined(JOBS) && !defined(USE_SIGACT)
  584. +     signal(SIGCHLD, j_sigchld);
  585. + #if 0
  586. +     /* why was this here??? */
  587. +     signal(SIGCLD, SIG_DFL);
  588. + #endif
  589. + #endif
  590.   }
  591.   
  592.   j_reap()
  593. ***************
  594. *** 553,559 ****
  595.   {
  596.     if (sigchld_caught)
  597.       j_reapchld();
  598. ! #if defined(_SYSV) && !defined(JOBS)
  599.       signal(SIGCHLD, j_sigchld);
  600.       signal(SIGCLD, SIG_DFL);
  601.   #endif
  602. --- 675,684 ----
  603.   {
  604.     if (sigchld_caught)
  605.       j_reapchld();
  606. ! /*
  607. !  * now done in j_reapchld()
  608. !  */
  609. ! #if 0 && defined(_SYSV) && !defined(JOBS) && !defined(USE_SIGACT)
  610.       signal(SIGCHLD, j_sigchld);
  611.       signal(SIGCLD, SIG_DFL);
  612.   #endif
  613. *** sh/lex.c.old    Sat Apr 25 17:44:30 1992
  614. --- sh/lex.c    Sat Apr 25 18:36:52 1992
  615. ***************
  616. *** 3,10 ****
  617.    */
  618.   
  619.   #ifndef lint
  620. ! static char *RCSid = "$Id: lex.c,v 3.6 89/03/27 15:51:20 egisin Exp $";
  621. ! static char *sccs_id = "@(#)lex.c    1.4 91/11/22 22:53:17 (sjg)";
  622.   #endif
  623.   
  624.   #include "stdh.h"
  625. --- 3,9 ----
  626.    */
  627.   
  628.   #ifndef lint
  629. ! static char *RCSid = "$Id: lex.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  630.   #endif
  631.   
  632.   #include "stdh.h"
  633. ***************
  634. *** 13,21 ****
  635.   #include <unistd.h>
  636.   #include <assert.h>
  637.   #include "sh.h"
  638. - #include "lex.h"
  639. - #include "tree.h"
  640. - #include "table.h"
  641.   #include "expand.h"
  642.   
  643.       int    ttyfd = -1;        /* tty fd for edit and jobs */
  644. --- 12,17 ----
  645. ***************
  646. *** 29,36 ****
  647.   
  648.   static    int    expanding_alias;
  649.   static    int    alias;
  650. - static    int    getsc_ ARGS((void));
  651.   
  652.   /* optimized getsc_() */
  653.   #define    getsc()    ((*source->str != 0) ? *source->str++ : getsc_())
  654.   #define    ungetsc() (source->str--)
  655. --- 25,34 ----
  656.   
  657.   static    int    expanding_alias;
  658.   static    int    alias;
  659.   
  660. + static void     readhere    ARGS((struct ioword *iop));
  661. + static int      getsc_      ARGS((void));
  662. + 
  663.   /* optimized getsc_() */
  664.   #define    getsc()    ((*source->str != 0) ? *source->str++ : getsc_())
  665.   #define    ungetsc() (source->str--)
  666. ***************
  667. *** 87,93 ****
  668.   
  669.       /* collect non-special or quoted characters to form word */
  670.       for (*statep = state = istate;
  671. !          !((c = getsc()) == 0 || state == SBASE && ctype(c, C_LEX1)); ) {
  672.           Xcheck(ws, wp);
  673.           switch (state) {
  674.             case SBASE:
  675. --- 85,91 ----
  676.   
  677.       /* collect non-special or quoted characters to form word */
  678.       for (*statep = state = istate;
  679. !          !((c = getsc()) == 0 || (state == SBASE && ctype(c, C_LEX1))); ) {
  680.           Xcheck(ws, wp);
  681.           switch (state) {
  682.             case SBASE:
  683. ***************
  684. *** 464,470 ****
  685.   
  686.   void
  687.   yyerror(msg)
  688. !     Const char *msg;
  689.   {
  690.       yynerrs++;
  691.       while (source->type == SALIAS) /* pop aliases */
  692. --- 462,468 ----
  693.   
  694.   void
  695.   yyerror(msg)
  696. !     const char *msg;
  697.   {
  698.       yynerrs++;
  699.       while (source->type == SALIAS) /* pop aliases */
  700. ***************
  701. *** 501,507 ****
  702.       register Source *s = source;
  703.       register int c;
  704.       extern void    mprint();
  705. ! 
  706.       while ((c = *s->str++) == 0) {
  707.           s->str = NULL;        /* return 0 for EOF by default */
  708.           switch (s->type) {
  709. --- 499,505 ----
  710.       register Source *s = source;
  711.       register int c;
  712.       extern void    mprint();
  713. !     
  714.       while ((c = *s->str++) == 0) {
  715.           s->str = NULL;        /* return 0 for EOF by default */
  716.           switch (s->type) {
  717. ***************
  718. *** 521,526 ****
  719. --- 519,533 ----
  720.               mprint();
  721.               pprompt(prompt);
  722.               flushshf(1);    flushshf(2);
  723. +             /*
  724. +              * This allows the arival of a SIGCHLD 
  725. +              * to not disturb us until we are ready. 
  726. +              * BSD and other systems that 
  727. +              * automatically rety a read after an 
  728. +              * interrupt don't need this but it 
  729. +              * doesn't do any harm either.
  730. +              */
  731. +               retry:
  732.   #ifdef EDIT
  733.   #ifdef EMACS
  734.               if (flag[FEMACS])
  735. ***************
  736. *** 534,539 ****
  737. --- 541,550 ----
  738.   #endif
  739.   #endif
  740.                   c = read(ttyfd, line, LINE);
  741. +             if (c < 0 && sigchld_caught)
  742. +             {
  743. +               goto retry;
  744. +             }
  745.               if (c < 0)    /* read error */
  746.                   c = 0;
  747.               line[c] = '\0';
  748. *** sh/lex.h.old    Sat Apr 25 17:41:36 1992
  749. --- sh/lex.h    Sat Apr 25 18:36:59 1992
  750. ***************
  751. *** 2,8 ****
  752.    * Source input, lexer and parser
  753.    */
  754.   
  755. ! /* Id: /u/egisin/sh/src/RCS/lex.h,v 3.3 89/01/28 15:29:42 egisin Exp $ */
  756.   
  757.   #define    IDENT    64
  758.   
  759. --- 2,8 ----
  760.    * Source input, lexer and parser
  761.    */
  762.   
  763. ! /* $Id: lex.h,v 1.2 1992/04/25 08:33:28 sjg Exp $ */
  764.   
  765.   #define    IDENT    64
  766.   
  767. ***************
  768. *** 99,105 ****
  769.   Extern    char    ident [IDENT+1];
  770.   
  771.   extern    int    yylex ARGS((int flags));
  772. ! extern    void    yyerror ARGS((Const char *msg));
  773.   
  774.   #define    HISTORY    100        /* size of saved history */
  775.   
  776. --- 99,105 ----
  777.   Extern    char    ident [IDENT+1];
  778.   
  779.   extern    int    yylex ARGS((int flags));
  780. ! extern    void    yyerror ARGS((const char *msg));
  781.   
  782.   #define    HISTORY    100        /* size of saved history */
  783.   
  784. *** sh/mail.c.old    Sat Apr 25 17:44:30 1992
  785. --- sh/mail.c    Sat Apr 25 18:37:02 1992
  786. ***************
  787. *** 3,9 ****
  788.    * John R. MacMillan
  789.    */
  790.   #ifndef lint
  791. ! static char *sccs_id = "@(#)mail.c    1.2 91/11/22 22:53:47 (sjg)";
  792.   #endif
  793.   
  794.   #include "stdh.h"
  795. --- 3,9 ----
  796.    * John R. MacMillan
  797.    */
  798.   #ifndef lint
  799. ! static char *RCSid = "$Id: mail.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  800.   #endif
  801.   
  802.   #include "stdh.h"
  803. ***************
  804. *** 12,24 ****
  805.   #include <setjmp.h>
  806.   #include <sys/stat.h>
  807.   #include "sh.h"
  808. - #include "table.h"
  809.   
  810. - Void    mcheck();    /* check for new mail */
  811. - Void    mbset();    /* set $MAIL */
  812. - Void    mpset();    /* set $MAILPATH */
  813. - Void    mprint();    /* print a list of mail messages */
  814. - 
  815.   #define MBMESSAGE    "you have mail in $_"
  816.   
  817.   typedef struct mbox {
  818. --- 12,18 ----
  819. ***************
  820. *** 43,53 ****
  821.   static mbox_t  mbox = { NULL, NULL, NULL, 0 };
  822.   static long    mlastchkd = 0;    /* when mail was last checked */
  823.   static struct mailmsg *mmsgs = NULL;    /* Messages to be printed */
  824. ! static Void    munset();        /* free mlist and mval */
  825.   static mbox_t  *mballoc();        /* allocate a new mbox */
  826. ! static Void    maddmsg();
  827.   
  828. ! Void
  829.   mcheck()
  830.   {
  831.       register mbox_t    *mbp;
  832. --- 37,52 ----
  833.   static mbox_t  mbox = { NULL, NULL, NULL, 0 };
  834.   static long    mlastchkd = 0;    /* when mail was last checked */
  835.   static struct mailmsg *mmsgs = NULL;    /* Messages to be printed */
  836. ! #if 0
  837. ! static void    munset();        /* free mlist and mval */
  838.   static mbox_t  *mballoc();        /* allocate a new mbox */
  839. ! static void    maddmsg();
  840. ! #endif
  841. ! static void     munset      ARGS((mbox_t *mlist));
  842. ! static mbox_t * mballoc     ARGS((char *p, char *m));
  843. ! static void     maddmsg     ARGS((mbox_t *mbp));
  844.   
  845. ! void
  846.   mcheck()
  847.   {
  848.       register mbox_t    *mbp;
  849. ***************
  850. *** 93,99 ****
  851.       }
  852.   }
  853.   
  854. ! Void
  855.   mbset(p)
  856.       register char    *p;
  857.   {
  858. --- 92,98 ----
  859.       }
  860.   }
  861.   
  862. ! void
  863.   mbset(p)
  864.       register char    *p;
  865.   {
  866. ***************
  867. *** 100,106 ****
  868.       struct stat    stbuf;
  869.   
  870.       if (mbox.mb_msg)
  871. !         afree((Void *)mbox.mb_msg, APERM);
  872.       mbox.mb_path = p;
  873.       mbox.mb_msg = NULL;
  874.       if (stat(p,&stbuf) == 0 && (stbuf.st_mode & S_IFMT) == S_IFREG)
  875. --- 99,105 ----
  876.       struct stat    stbuf;
  877.   
  878.       if (mbox.mb_msg)
  879. !         afree((void *)mbox.mb_msg, APERM);
  880.       mbox.mb_path = p;
  881.       mbox.mb_msg = NULL;
  882.       if (stat(p,&stbuf) == 0 && (stbuf.st_mode & S_IFMT) == S_IFREG)
  883. ***************
  884. *** 109,115 ****
  885.           mbox.mb_size = 0;
  886.   }
  887.   
  888. ! Void
  889.   mpset(mptoparse)
  890.       register char    *mptoparse;
  891.   {
  892. --- 108,114 ----
  893.           mbox.mb_size = 0;
  894.   }
  895.   
  896. ! void
  897.   mpset(mptoparse)
  898.       register char    *mptoparse;
  899.   {
  900. ***************
  901. *** 133,139 ****
  902.       }
  903.   }
  904.   
  905. ! static Void
  906.   munset(mlist)
  907.   register mbox_t    *mlist;
  908.   {
  909. --- 132,138 ----
  910.       }
  911.   }
  912.   
  913. ! static void
  914.   munset(mlist)
  915.   register mbox_t    *mlist;
  916.   {
  917. ***************
  918. *** 143,150 ****
  919.           mbp = mlist;
  920.           mlist = mbp->mb_next;
  921.           if (!mlist)
  922. !             afree((Void *)mbp->mb_path, APERM);
  923. !         afree((Void *)mbp, APERM);
  924.       }
  925.   }
  926.   
  927. --- 142,149 ----
  928.           mbp = mlist;
  929.           mlist = mbp->mb_next;
  930.           if (!mlist)
  931. !             afree((void *)mbp->mb_path, APERM);
  932. !         afree((void *)mbp, APERM);
  933.       }
  934.   }
  935.   
  936. ***************
  937. *** 169,175 ****
  938.       return(mbp);
  939.   }
  940.   
  941. ! Void
  942.   mprint()
  943.   {
  944.       struct mailmsg *mm;
  945. --- 168,174 ----
  946.       return(mbp);
  947.   }
  948.   
  949. ! void
  950.   mprint()
  951.   {
  952.       struct mailmsg *mm;
  953. ***************
  954. *** 177,189 ****
  955.       while ((mm = mmsgs) != NULL) {
  956.           shellf( "%s\n", mm->msg );
  957.           fflush(shlout);
  958. !         afree((Void *)mm->msg, APERM);
  959.           mmsgs = mm->next;
  960. !         afree((Void *)mm, APERM);
  961.       }
  962.   }
  963.   
  964. ! static Void
  965.   maddmsg( mbp )
  966.   mbox_t    *mbp;
  967.   {
  968. --- 176,188 ----
  969.       while ((mm = mmsgs) != NULL) {
  970.           shellf( "%s\n", mm->msg );
  971.           fflush(shlout);
  972. !         afree((void *)mm->msg, APERM);
  973.           mmsgs = mm->next;
  974. !         afree((void *)mm, APERM);
  975.       }
  976.   }
  977.   
  978. ! static void
  979.   maddmsg( mbp )
  980.   mbox_t    *mbp;
  981.   {
  982. *** sh/main.c.old    Sat Apr 25 17:44:31 1992
  983. --- sh/main.c    Sat Apr 25 18:31:56 1992
  984. ***************
  985. *** 3,10 ****
  986.    */
  987.   
  988.   #ifndef lint
  989. ! static char *RCSid = "$Id: main.c,v 3.3 89/03/27 15:51:39 egisin Exp $";
  990. ! static char *sccs_id = "@(#)main.c    1.6 91/11/25 13:33:06 (sjg)";
  991.   #endif
  992.   
  993.   #define    Extern                /* define Externs in sh.h */
  994. --- 3,9 ----
  995.    */
  996.   
  997.   #ifndef lint
  998. ! static char *RCSid = "$Id: main.c,v 1.3 1992/04/25 08:29:52 sjg Exp $";
  999.   #endif
  1000.   
  1001.   #define    Extern                /* define Externs in sh.h */
  1002. ***************
  1003. *** 17,27 ****
  1004.   #include <setjmp.h>
  1005.   #include <time.h>
  1006.   #include "sh.h"
  1007. - #include "lex.h"
  1008. - #include "tree.h"
  1009. - #include "table.h"
  1010.   
  1011. ! #ifndef HAVE_REMOVE
  1012.   #define remove(x)    unlink(x)
  1013.   #endif
  1014.   
  1015. --- 16,23 ----
  1016.   #include <setjmp.h>
  1017.   #include <time.h>
  1018.   #include "sh.h"
  1019.   
  1020. ! #if !defined(HAVE_REMOVE) && !defined(remove)
  1021.   #define remove(x)    unlink(x)
  1022.   #endif
  1023.   
  1024. ***************
  1025. *** 39,45 ****
  1026.   
  1027.   static    char    initifs [] = "IFS= \t\n"; /* must be R/W */
  1028.   
  1029. ! static    Const    char   initsubs [] = 
  1030.   #ifdef sun                /* sun's don't have a real /bin */
  1031.     "${SHELL:=/bin/sh} ${PATH:=/usr/bin:/usr/ucb:.} ${HOME:=/} ${PS1:=$ } ${PS2:=> } ${MAILCHECK:=600}";
  1032.   #else
  1033. --- 35,41 ----
  1034.   
  1035.   static    char    initifs [] = "IFS= \t\n"; /* must be R/W */
  1036.   
  1037. ! static    const    char   initsubs [] = 
  1038.   #ifdef sun                /* sun's don't have a real /bin */
  1039.     "${SHELL:=/bin/sh} ${PATH:=/usr/bin:/usr/ucb:.} ${HOME:=/} ${PS1:=$ } ${PS2:=> } ${MAILCHECK:=600}";
  1040.   #else
  1041. ***************
  1042. *** 46,52 ****
  1043.     "${SHELL:=/bin/sh} ${PATH:=/bin:/usr/bin:.} ${HOME:=/} ${PS1:=$ } ${PS2:=> } ${MAILCHECK:=600}";
  1044.   #endif
  1045.   
  1046. ! static    Const    char *initcoms [] = {
  1047.       "cd", ".", NULL,        /* set up $PWD */
  1048.       "typeset", "-x", "SHELL", "PATH", "HOME", NULL,
  1049.       "typeset", "-r", "PWD", "OLDPWD", NULL,
  1050. --- 42,48 ----
  1051.     "${SHELL:=/bin/sh} ${PATH:=/bin:/usr/bin:.} ${HOME:=/} ${PS1:=$ } ${PS2:=> } ${MAILCHECK:=600}";
  1052.   #endif
  1053.   
  1054. ! static    const    char *initcoms [] = {
  1055.       "cd", ".", NULL,        /* set up $PWD */
  1056.       "typeset", "-x", "SHELL", "PATH", "HOME", NULL,
  1057.       "typeset", "-r", "PWD", "OLDPWD", NULL,
  1058. ***************
  1059. *** 78,85 ****
  1060. --- 74,83 ----
  1061.       Trace_level = 0;
  1062.       break;
  1063.     }
  1064. + #if defined(_SYSV) && !defined(USE_SIGACT)
  1065.     if (sig > 0)
  1066.       (void) signal(sig, set_TraceLev);
  1067. + #endif
  1068.     return;
  1069.   }
  1070.   #endif
  1071. ***************
  1072. *** 92,97 ****
  1073. --- 90,96 ----
  1074.       register int i;
  1075.       register char *arg;
  1076.       int cflag = 0, qflag = 0, fflag = 0;
  1077. +     int argi;
  1078.       char *name;
  1079.       register Source *s;
  1080.       register struct block *l = &globals;
  1081. ***************
  1082. *** 99,104 ****
  1083. --- 98,116 ----
  1084.       extern char ksh_version [];
  1085.       extern time_t time();
  1086.   
  1087. + #ifdef USE_SIGACT
  1088. +     sigemptyset(&Sigact.sa_mask);
  1089. +     sigemptyset(&Sigact_dfl.sa_mask);
  1090. +     sigemptyset(&Sigact_ign.sa_mask);
  1091. +     sigemptyset(&Sigact_trap.sa_mask);
  1092. +     Sigact.sa_flags = 0;
  1093. +     Sigact_dfl.sa_flags = 0;
  1094. +     Sigact_ign.sa_flags = 0;
  1095. +     Sigact_trap.sa_flags = 0;
  1096. +     Sigact_dfl.sa_handler = SIG_DFL;
  1097. +     Sigact_ign.sa_handler = SIG_IGN;
  1098. +     Sigact_trap.sa_handler = trapsig;
  1099. + #endif
  1100.       ainit(&aperm);        /* initialize permanent Area */
  1101.   
  1102.   #ifndef F_SETFD
  1103. ***************
  1104. *** 133,140 ****
  1105. --- 145,158 ----
  1106.       typeset(ksh_version, 0, 0); /* RDONLY */
  1107.   
  1108.   #ifdef USE_TRACE
  1109. + #ifdef USE_SIGACT
  1110. +     Sigact.sa_handler = set_TraceLev;
  1111. +     sigaction(SIGUSR1, &Sigact, NULL);
  1112. +     sigaction(SIGUSR2, &Sigact, NULL);
  1113. + #else
  1114.       (void) signal(SIGUSR1, set_TraceLev);
  1115.       (void) signal(SIGUSR2, set_TraceLev);
  1116. + #endif
  1117.       _TRACE(0, ("Traces enabled.")); /* allow _TRACE to setup */
  1118.   #endif
  1119.   
  1120. ***************
  1121. *** 167,184 ****
  1122.       s = pushs(SFILE);
  1123.       s->u.file = stdin;
  1124.       cflag = 0;
  1125. !     name = *argv++;
  1126.   
  1127.       /* what a bloody mess */
  1128. !     if (--argc >= 1) {
  1129. !         if (argv[0][0] == '-' && argv[0][1] != '\0') {
  1130. !             for (arg = argv[0]+1; *arg; arg++)
  1131.                   switch (*arg) {
  1132.                     case 'c':
  1133.                       cflag = 1;
  1134. !                     if (--argc > 0) {
  1135.                           s->type = SSTRING;
  1136. !                         s->str = *++argv;
  1137.                       }
  1138.                       break;
  1139.       
  1140. --- 185,202 ----
  1141.       s = pushs(SFILE);
  1142.       s->u.file = stdin;
  1143.       cflag = 0;
  1144. !     name = *argv;
  1145.   
  1146.       /* what a bloody mess */
  1147. !     if ((argi = 1) < argc) {
  1148. !         if (argv[argi][0] == '-' && argv[argi][1] != '\0') {
  1149. !             for (arg = argv[argi++]+1; *arg; arg++) {
  1150.                   switch (*arg) {
  1151.                     case 'c':
  1152.                       cflag = 1;
  1153. !                     if (argi < argc) {
  1154.                           s->type = SSTRING;
  1155. !                         s->str = argv[argi++];
  1156.                       }
  1157.                       break;
  1158.       
  1159. ***************
  1160. *** 190,205 ****
  1161.                       if (*arg>='a' && *arg<='z')
  1162.                           flag[FLAG(*arg)]++;
  1163.                   }
  1164. !         } else {
  1165. !             argv--;
  1166. !             argc++;
  1167.           }
  1168. !         if (s->type == SFILE && --argc > 0 && !flag[FSTDIN]) {
  1169. !             if ((s->u.file = fopen(*++argv, "r")) == NULL)
  1170. !                 errorf("%s: cannot open\n", *argv);
  1171.               fflag = 1;
  1172. -             s->file = name = *argv;
  1173. -             argc--;
  1174.               fileno(s->u.file) = savefd(fileno(s->u.file));
  1175.               setvbuf(s->u.file, (char *)NULL, _IOFBF, BUFSIZ);
  1176.           }
  1177. --- 208,220 ----
  1178.                       if (*arg>='a' && *arg<='z')
  1179.                           flag[FLAG(*arg)]++;
  1180.                   }
  1181. !             }
  1182.           }
  1183. !         if (s->type == SFILE && argi < argc && !flag[FSTDIN]) {
  1184. !             s->file = name = argv[argi++];
  1185. !             if ((s->u.file = fopen(name, "r")) == NULL)
  1186. !                 errorf("%s: cannot open\n", name);
  1187.               fflag = 1;
  1188.               fileno(s->u.file) = savefd(fileno(s->u.file));
  1189.               setvbuf(s->u.file, (char *)NULL, _IOFBF, BUFSIZ);
  1190.           }
  1191. ***************
  1192. *** 216,225 ****
  1193.       if (s->type == STTY) {
  1194.           ttyfd = fcntl(0, F_DUPFD, FDBASE);
  1195.   #ifdef F_SETFD
  1196. !         (void) fcntl(ttyfd, F_SETFD, FD_CLEXEC);
  1197.   #else
  1198.           (void) fd_clexec(ttyfd);
  1199.   #endif
  1200.   #ifdef EMACS
  1201.           x_init_emacs();
  1202.   #endif
  1203. --- 231,243 ----
  1204.       if (s->type == STTY) {
  1205.           ttyfd = fcntl(0, F_DUPFD, FDBASE);
  1206.   #ifdef F_SETFD
  1207. !         (void) fcntl(ttyfd, F_SETFD, 1);
  1208.   #else
  1209.           (void) fd_clexec(ttyfd);
  1210.   #endif
  1211. + #if defined(EMACS) || defined(VI)
  1212. +         init_editmode();
  1213. + #endif
  1214.   #ifdef EMACS
  1215.           x_init_emacs();
  1216.   #endif
  1217. ***************
  1218. *** 231,238 ****
  1219.       if (!qflag)
  1220.           ignoresig(SIGQUIT);
  1221.   
  1222. !     l->argv = argv;
  1223. !     l->argc = argc;
  1224.       l->argv[0] = name;
  1225.       resetopts();
  1226.   
  1227. --- 249,256 ----
  1228.       if (!qflag)
  1229.           ignoresig(SIGQUIT);
  1230.   
  1231. !     l->argv = &argv[argi];
  1232. !     l->argc = argc - argi;
  1233.       l->argv[0] = name;
  1234.       resetopts();
  1235.   
  1236. ***************
  1237. *** 247,257 ****
  1238.       if (*arg != '\0')
  1239.           (void) include(arg);
  1240.   
  1241. !     if (flag[FTALKING]) {
  1242. !         signal(SIGTERM, trapsig);
  1243. !         ignoresig(SIGINT);
  1244.       } else
  1245. !         flag[FHASHALL] = 1;
  1246.   
  1247.   #ifdef JOBS            /* todo: could go before includes? */
  1248.       if (s->type == STTY) {
  1249. --- 265,280 ----
  1250.       if (*arg != '\0')
  1251.           (void) include(arg);
  1252.   
  1253. !     if (flag[FTALKING])
  1254. !     {
  1255. ! #ifdef USE_SIGACT
  1256. !       sigaction(SIGTERM, &Sigact_trap, NULL);
  1257. ! #else
  1258. !       signal(SIGTERM, trapsig);
  1259. ! #endif
  1260. !       ignoresig(SIGINT);
  1261.       } else
  1262. !       flag[FHASHALL] = 1;
  1263.   
  1264.   #ifdef JOBS            /* todo: could go before includes? */
  1265.       if (s->type == STTY) {
  1266. ***************
  1267. *** 259,267 ****
  1268.           j_change();
  1269.       }
  1270.   #endif
  1271. ! 
  1272.       argc = shell(s);
  1273.       leave(argc);
  1274.   }
  1275.   
  1276.   int
  1277. --- 282,294 ----
  1278.           j_change();
  1279.       }
  1280.   #endif
  1281. !     if (flag[FTALKING])
  1282. !     {
  1283. !       hist_init(s);
  1284. !     }
  1285.       argc = shell(s);
  1286.       leave(argc);
  1287. +     return 0;
  1288.   }
  1289.   
  1290.   int
  1291. ***************
  1292. *** 308,316 ****
  1293.       Source *s;        /* input source */
  1294.   {
  1295.       struct op *t;
  1296. !     Volatile int attempts = 13;
  1297. !     Volatile int wastty;
  1298. !     Volatile int reading = 0;
  1299.       extern void mcheck();
  1300.   
  1301.       newenv(E_PARSE);
  1302. --- 335,343 ----
  1303.       Source *s;        /* input source */
  1304.   {
  1305.       struct op *t;
  1306. !     volatile int attempts = 13;
  1307. !     volatile int wastty;
  1308. !     volatile int reading = 0;
  1309.       extern void mcheck();
  1310.   
  1311.       newenv(E_PARSE);
  1312. ***************
  1313. *** 329,335 ****
  1314.           if (trap)
  1315.               runtraps();
  1316.           if (flag[FTALKING])
  1317. !             signal(SIGINT, trapsig);
  1318.   
  1319.           if (s->next == NULL)
  1320.               s->echo = flag[FVERBOSE];
  1321. --- 356,368 ----
  1322.           if (trap)
  1323.               runtraps();
  1324.           if (flag[FTALKING])
  1325. !         {
  1326. ! #ifdef USE_SIGACT
  1327. !           sigaction(SIGINT, &Sigact_trap, NULL);
  1328. ! #else
  1329. !           signal(SIGINT, trapsig);
  1330. ! #endif
  1331. !         }
  1332.   
  1333.           if (s->next == NULL)
  1334.               s->echo = flag[FVERBOSE];
  1335. ***************
  1336. *** 360,366 ****
  1337.   
  1338.           reclaim();
  1339.       }
  1340. !   Error:
  1341.       quitenv();
  1342.       return exstat;
  1343.   }
  1344. --- 393,399 ----
  1345.   
  1346.           reclaim();
  1347.       }
  1348. !     /* Error: */
  1349.       quitenv();
  1350.       return exstat;
  1351.   }
  1352. ***************
  1353. *** 372,377 ****
  1354. --- 405,414 ----
  1355.       if (e.type == E_TCOM && e.oenv != NULL)    /* exec'd command */
  1356.           unwind();
  1357.       runtrap(&sigtraps[0]);
  1358. +     if (flag[FTALKING])
  1359. +     {
  1360. +       hist_finish();
  1361. +     }
  1362.       j_exit();
  1363.       exit(rv);
  1364.       /* NOTREACHED */
  1365. ***************
  1366. *** 431,436 ****
  1367. --- 468,474 ----
  1368.               restfd(fd, e.savefd[fd]);
  1369.       reclaim();
  1370.       e = *ep;
  1371. +     afree(ep, ATEMP);
  1372.   }
  1373.   
  1374.   /* remove temp files and free ATEMP Area */
  1375. ***************
  1376. *** 448,454 ****
  1377.   void
  1378.   aerror(ap, msg)
  1379.       Area *ap;
  1380. !     Const char *msg;
  1381.   {
  1382.       errorf("alloc internal error: %s\n", msg);
  1383.   }
  1384. --- 486,492 ----
  1385.   void
  1386.   aerror(ap, msg)
  1387.       Area *ap;
  1388. !     const char *msg;
  1389.   {
  1390.       errorf("alloc internal error: %s\n", msg);
  1391.   }
  1392. *** sh/misc.c.old    Sat Apr 25 17:44:31 1992
  1393. --- sh/misc.c    Sat Apr 25 18:37:07 1992
  1394. ***************
  1395. *** 3,10 ****
  1396.    */
  1397.   
  1398.   #ifndef lint
  1399. ! static char *RCSid = "$Id: misc.c,v 3.2 89/03/27 15:51:44 egisin Exp $";
  1400. ! static char *sccs_id = "@(#)misc.c    1.2 91/11/22 22:53:50 (sjg)";
  1401.   #endif
  1402.   
  1403.   #include "stdh.h"
  1404. --- 3,9 ----
  1405.    */
  1406.   
  1407.   #ifndef lint
  1408. ! static char *RCSid = "$Id: misc.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  1409.   #endif
  1410.   
  1411.   #include "stdh.h"
  1412. ***************
  1413. *** 21,32 ****
  1414.   
  1415.   char ctypes [UCHAR_MAX+1];    /* type bits for unsigned char */
  1416.   
  1417.   /*
  1418.    * Fast character classes
  1419.    */
  1420.   void
  1421.   setctypes(s, t)
  1422. !     register Const char *s;
  1423.       register int t;
  1424.   {
  1425.       register int i;
  1426. --- 20,33 ----
  1427.   
  1428.   char ctypes [UCHAR_MAX+1];    /* type bits for unsigned char */
  1429.   
  1430. + static char *   cclass      ARGS((char *p, int sub));
  1431. + 
  1432.   /*
  1433.    * Fast character classes
  1434.    */
  1435.   void
  1436.   setctypes(s, t)
  1437. !     register /* const */ char *s;
  1438.       register int t;
  1439.   {
  1440.       register int i;
  1441. ***************
  1442. *** 119,125 ****
  1443.    */
  1444.   int
  1445.   option(n)
  1446. !     Const char *n;
  1447.   {
  1448.       register struct option *op;
  1449.   
  1450. --- 120,126 ----
  1451.    */
  1452.   int
  1453.   option(n)
  1454. !     const char *n;
  1455.   {
  1456.       register struct option *op;
  1457.   
  1458. ***************
  1459. *** 277,283 ****
  1460.               p++;
  1461.           } else
  1462.               d = c;
  1463. !         if (c == sub || c <= sub && sub <= d)
  1464.               found = 1;
  1465.       } while (*++p != ']');
  1466.   
  1467. --- 278,284 ----
  1468.               p++;
  1469.           } else
  1470.               d = c;
  1471. !         if (c == sub || (c <= sub && sub <= d))
  1472.               found = 1;
  1473.       } while (*++p != ']');
  1474.   
  1475. ***************
  1476. *** 292,298 ****
  1477.   
  1478.   void
  1479.   qsortp(base, n, f)
  1480. !     Void **base;        /* base address */
  1481.       size_t n;        /* elements */
  1482.       int (*f)();        /* compare function */
  1483.   {
  1484. --- 293,299 ----
  1485.   
  1486.   void
  1487.   qsortp(base, n, f)
  1488. !     void **base;        /* base address */
  1489.       size_t n;        /* elements */
  1490.       int (*f)();        /* compare function */
  1491.   {
  1492. ***************
  1493. *** 300,317 ****
  1494.   }
  1495.   
  1496.   #define    swap2(a, b)    {\
  1497. !     register Void *t; t = *(a); *(a) = *(b); *(b) = t;\
  1498.   }
  1499.   #define    swap3(a, b, c)    {\
  1500. !     register Void *t; t = *(a); *(a) = *(c); *(c) = *(b); *(b) = t;\
  1501.   }
  1502.   
  1503.   qsort1(base, lim, f)
  1504. !     Void **base, **lim;
  1505.       int (*f)();
  1506.   {
  1507. !     register Void **i, **j;
  1508. !     register Void **lptr, **hptr;
  1509.       size_t n;
  1510.       int c;
  1511.   
  1512. --- 301,318 ----
  1513.   }
  1514.   
  1515.   #define    swap2(a, b)    {\
  1516. !     register void *t; t = *(a); *(a) = *(b); *(b) = t;\
  1517.   }
  1518.   #define    swap3(a, b, c)    {\
  1519. !     register void *t; t = *(a); *(a) = *(c); *(c) = *(b); *(b) = t;\
  1520.   }
  1521.   
  1522.   qsort1(base, lim, f)
  1523. !     void **base, **lim;
  1524.       int (*f)();
  1525.   {
  1526. !     register void **i, **j;
  1527. !     register void **lptr, **hptr;
  1528.       size_t n;
  1529.       int c;
  1530.   
  1531. ***************
  1532. *** 378,389 ****
  1533.   
  1534.   int
  1535.   xstrcmp(p1, p2)
  1536. !     Void *p1, *p2;
  1537.   {
  1538.       return (strcmp((char *)p1, (char *)p2));
  1539.   }
  1540.   
  1541. ! Void
  1542.   cleanpath(pwd, dir, clean)
  1543.       char *pwd, *dir, *clean;
  1544.   {
  1545. --- 379,390 ----
  1546.   
  1547.   int
  1548.   xstrcmp(p1, p2)
  1549. !     void *p1, *p2;
  1550.   {
  1551.       return (strcmp((char *)p1, (char *)p2));
  1552.   }
  1553.   
  1554. ! void
  1555.   cleanpath(pwd, dir, clean)
  1556.       char *pwd, *dir, *clean;
  1557.   {
  1558. ***************
  1559. *** 396,402 ****
  1560.           s = pwd;
  1561.           while (*d++ = *s++)
  1562.               ;
  1563. !         *(d - 1) = '/';
  1564.       }
  1565.   
  1566.       s = dir;
  1567. --- 397,406 ----
  1568.           s = pwd;
  1569.           while (*d++ = *s++)
  1570.               ;
  1571. !         if (d >= clean + 2 && *(d - 2) == '/')
  1572. !             d--;
  1573. !         else
  1574. !             *(d - 1) = '/';
  1575.       }
  1576.   
  1577.       s = dir;
  1578. *** /dev/null    Sat Apr 25 07:00:06 1992
  1579. --- sh/patchlevel.h    Sat Apr 25 18:24:54 1992
  1580. ***************
  1581. *** 0 ****
  1582. --- 1,6 ----
  1583. + /*
  1584. +  * PD KSH
  1585. +  * $Id: patchlevel.h,v 4.3 1992/04/25 08:24:42 sjg Exp $
  1586. +  */
  1587. + #define VERSION        4
  1588. + #define PATCHLEVEL    3
  1589.  
  1590. exit 0 # Just in case...
  1591.