home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume1 / bourne / part2 < prev    next >
Encoding:
Internet Message Format  |  1986-11-30  |  54.6 KB
  1. Date: Fri, 7 Jun 85 13:58:43 edt
  2. From: Arnold Robbins <gatech!arnold>
  3. Subject: Bourne shell history + tilde + job control + more (Part 2 of 9)
  4. Newsgroups: mod.sources
  5.  
  6. This is part 2 of 9.  It contains the first set of code diffs for the BSD
  7. Bourne shell.
  8.  
  9. Arnold Robbins
  10. arnold@gatech.{UUCP, CSNET}
  11. ------------------- tear here --------------------
  12. :::::::: Makefile :::::::
  13. *** ../orig.u/Makefile    Wed May 15 17:13:43 1985
  14. --- Makefile    Tue Jun  4 17:30:08 1985
  15. ***************
  16. *** 1,6
  17.   #    Makefile    4.5    83/07/01
  18.   #
  19. ! CFLAGS = -O -w
  20.   
  21.   all:    sh
  22.   
  23.  
  24. --- 1,6 -----
  25.   #    Makefile    4.5    83/07/01
  26.   #
  27. ! CFLAGS = -O -w -DJOBS
  28.   
  29.   all:    sh
  30.   
  31. ***************
  32. *** 12,17
  33.       cmp sh /bin/sh
  34.       rm sh *.o
  35.   
  36.   sh:    setbrk.o
  37.   sh:    builtin.o blok.o stak.o
  38.   sh:    cmd.o fault.o main.o
  39.  
  40. --- 12,21 -----
  41.       cmp sh /bin/sh
  42.       rm sh *.o
  43.   
  44. + expand.o:    expand.c
  45. +     @echo ignore the redefiniton of MAX
  46. +     $(CC) $(CFLAGS) -c expand.c
  47. + 
  48.   sh:    setbrk.o
  49.   sh:    builtin.o blok.o stak.o
  50.   sh:    cmd.o fault.o main.o
  51. ***************
  52. *** 19,24
  53.   sh:    xec.o service.o error.o io.o
  54.   sh:    print.o macro.o expand.o
  55.   sh:    ctype.o msg.o
  56.   blok.o:        brkincr.h
  57.   fault.o:    brkincr.h
  58.   main.o:        brkincr.h
  59.  
  60. --- 23,29 -----
  61.   sh:    xec.o service.o error.o io.o
  62.   sh:    print.o macro.o expand.o
  63.   sh:    ctype.o msg.o
  64. + sh:    history.o homedir.o jobs.o signal.o # remove signal.o on pyramid
  65.   blok.o:        brkincr.h
  66.   fault.o:    brkincr.h
  67.   main.o:        brkincr.h
  68. :::::::: args.c :::::::
  69. *** ../orig.u/args.c    Wed May 15 17:13:43 1985
  70. --- args.c    Tue Jun  4 13:20:43 1985
  71. ***************
  72. *** 16,22
  73.   PROC STRING *copyargs();
  74.   LOCAL DOLPTR    dolh;
  75.   
  76. ! CHAR    flagadr[10];
  77.   
  78.   CHAR    flagchar[] = {
  79.       'x',    'n',    'v',    't',    's',    'i',    'e',    'r',    'k',    'u',    0
  80.  
  81. --- 16,26 -----
  82.   PROC STRING *copyargs();
  83.   LOCAL DOLPTR    dolh;
  84.   
  85. ! #if JOBS
  86. ! CHAR    flagadr[15];
  87. ! #else
  88. ! CHAR    flagadr[13];
  89. ! #endif
  90.   
  91.   CHAR    flagchar[] = {
  92.       'x',    'n',    'v',    't',    's',    'i',    'e',    'r',    'k',    'u',
  93. ***************
  94. *** 19,25
  95.   CHAR    flagadr[10];
  96.   
  97.   CHAR    flagchar[] = {
  98. !     'x',    'n',    'v',    't',    's',    'i',    'e',    'r',    'k',    'u',    0
  99.   };
  100.   INT    flagval[]  = {
  101.       execpr,    noexec,    readpr,    oneflg,    stdflg,    intflg,    errflg,    rshflg,    keyflg,    setflg,    0
  102.  
  103. --- 23,37 -----
  104.   #endif
  105.   
  106.   CHAR    flagchar[] = {
  107. !     'x',    'n',    'v',    't',    's',    'i',    'e',    'r',    'k',    'u',
  108. ! #if JOBS
  109. !     'I',
  110. !     'J',
  111. ! #endif
  112. !     'E',
  113. !     'H',
  114. !     'q',
  115. !     0
  116.   };
  117.   INT    flagval[]  = {
  118.       execpr,    noexec,    readpr,    oneflg,    stdflg,    intflg,    errflg,    rshflg,    keyflg,    setflg,
  119. ***************
  120. *** 22,28
  121.       'x',    'n',    'v',    't',    's',    'i',    'e',    'r',    'k',    'u',    0
  122.   };
  123.   INT    flagval[]  = {
  124. !     execpr,    noexec,    readpr,    oneflg,    stdflg,    intflg,    errflg,    rshflg,    keyflg,    setflg,    0
  125.   };
  126.   
  127.   /* ========    option handling    ======== */
  128.  
  129. --- 34,48 -----
  130.       0
  131.   };
  132.   INT    flagval[]  = {
  133. !     execpr,    noexec,    readpr,    oneflg,    stdflg,    intflg,    errflg,    rshflg,    keyflg,    setflg,
  134. ! #if JOBS
  135. !     infoflg,
  136. !     jobflg,
  137. ! #endif
  138. !     noeotflg,
  139. !     nohistflg,
  140. !     quickflg,
  141. !     0
  142.   };
  143.   
  144.   /* ========    option handling    ======== */
  145. ***************
  146. *** 38,45
  147.       STRING        flagp;
  148.   
  149.       IF argc>1 ANDF *argp[1]=='-'
  150. !     THEN    cp=argp[1];
  151. !         flags &= ~(execpr|readpr);
  152.           WHILE *++cp
  153.           DO    flagc=flagchar;
  154.   
  155.  
  156. --- 58,77 -----
  157.       STRING        flagp;
  158.   
  159.       IF argc>1 ANDF *argp[1]=='-'
  160. !     THEN
  161. !         IF argp[1][1] == '-'
  162. !         THEN    /* if first argument is "--" then options are not
  163. !                to be changed.  fix for problems getting $1
  164. !                starting with a "-"
  165. !             */
  166. !             argp[1] = argp[0]; argc--;
  167. !             return (argc);
  168. !         FI
  169. !         cp=argp[1];
  170. !         IF cp[1] == '\0' THEN flags &= ~(execpr|readpr) FI
  171. !         /* step along 'flagchar[]' looking for matches.
  172. !            'sicrq' are not legal with 'set' command.
  173. !         */
  174.           WHILE *++cp
  175.           DO    flagc=flagchar;
  176.   
  177. ***************
  178. *** 45,51
  179.   
  180.               WHILE *flagc ANDF *flagc != *cp DO flagc++ OD
  181.               IF *cp == *flagc
  182. !             THEN    flags |= flagval[flagc-flagchar];
  183.               ELIF *cp=='c' ANDF argc>2 ANDF comdiv==0
  184.               THEN    comdiv=argp[2];
  185.                   argp[1]=argp[0]; argp++; argc--;
  186.  
  187. --- 77,91 -----
  188.   
  189.               WHILE *flagc ANDF *flagc != *cp DO flagc++ OD
  190.               IF *cp == *flagc
  191. !             THEN    IF eq(argv[0], "set") ANDF any(*cp, "sicrq")
  192. !                 THEN    failed(argv[1], badopt);
  193. !                 ELSE
  194. ! #if JOBS
  195. !                     IF *cp == 'J' THEN j_init() FI
  196. ! #endif
  197. !                     flags |= flagval[flagc-flagchar];
  198. !                     IF flags & errflg THEN eflag = errflg FI
  199. !                 FI
  200.               ELIF *cp=='c' ANDF argc>2 ANDF comdiv==0
  201.               THEN    comdiv=argp[2];
  202.                   argp[1]=argp[0]; argp++; argc--;
  203. ***************
  204. *** 53,58
  205.               FI
  206.           OD
  207.           argp[1]=argp[0]; argc--;
  208.       FI
  209.   
  210.       /* set up $- */
  211.  
  212. --- 93,123 -----
  213.               FI
  214.           OD
  215.           argp[1]=argp[0]; argc--;
  216. +     ELIF argc > 1 ANDF *argp[1] == '+'    /* unset flags x, k , t, n, v, e, u */
  217. +     THEN    cp = argp[1];            /* or any other flags */
  218. +         WHILE *++cp
  219. +         DO
  220. +             flagc = flagchar;
  221. +             WHILE *flagc ANDF *flagc != *cp DO flagc++ OD
  222. +                 /* step through flags */
  223. +             IF !any(*cp, "sicrq") ANDF *cp == *flagc
  224. +             THEN
  225. +                 IF (flags&flagval[flagc-flagchar])
  226. +                 /* only turn off if already on */
  227. +                 THEN
  228. + #if JOBS
  229. +                     IF *cp != 'J' ORF !j_finish(FALSE)
  230. +                     THEN
  231. + #endif
  232. +                     flags &= ~(flagval[flagc-flagchar]);
  233. + #if JOBS
  234. +                     FI
  235. + #endif
  236. +                     IF *cp == 'e' THEN eflag = 0 FI
  237. +                 FI
  238. +             FI
  239. +         OD
  240. +         argp[1]=argp[0]; argc--;
  241.       FI
  242.   
  243.       /* set up $- */
  244. ***************
  245. *** 126,131
  246.   
  247.       /* clean up io files */
  248.       WHILE pop() DONE
  249.   }
  250.   
  251.   DOLPTR    useargs()
  252.  
  253. --- 191,198 -----
  254.   
  255.       /* clean up io files */
  256.       WHILE pop() DONE
  257. +     /* clean up temp files */
  258. +     WHILE poptemp() DONE
  259.   }
  260.   
  261.   DOLPTR    useargs()
  262. :::::::: blok.c :::::::
  263. No differences encountered
  264. :::::::: brkincr.h :::::::
  265. No differences encountered
  266. :::::::: builtin.c :::::::
  267. No differences encountered
  268. :::::::: cmd.c :::::::
  269. *** ../orig.u/cmd.c    Wed May 15 17:13:44 1985
  270. --- cmd.c    Thu May 30 13:53:25 1985
  271. ***************
  272. *** 93,98
  273.           case ';':
  274.           IF e=cmd(sym,flg|MTFLG)
  275.           THEN    i=makelist(TLST, i, e);
  276.           FI
  277.           break;
  278.   
  279.  
  280. --- 93,100 -----
  281.           case ';':
  282.           IF e=cmd(sym,flg|MTFLG)
  283.           THEN    i=makelist(TLST, i, e);
  284. +         ELIF    i == 0
  285. +         THEN    synbad();
  286.           FI
  287.           break;
  288.   
  289. ***************
  290. *** 326,332
  291.   
  292.       SWITCH wdval IN
  293.   
  294. !         case DOCSYM:
  295.           iof |= IODOC; break;
  296.   
  297.           case APPSYM:
  298.  
  299. --- 328,334 -----
  300.   
  301.       SWITCH wdval IN
  302.   
  303. !         case DOCSYM:    /* << */
  304.           iof |= IODOC; break;
  305.   
  306.           case APPSYM:    /* >> */
  307. ***************
  308. *** 329,335
  309.           case DOCSYM:
  310.           iof |= IODOC; break;
  311.   
  312. !         case APPSYM:
  313.           case '>':
  314.           IF wdnum==0 THEN iof |= 1 FI
  315.           iof |= IOPUT;
  316.  
  317. --- 331,337 -----
  318.           case DOCSYM:    /* << */
  319.           iof |= IODOC; break;
  320.   
  321. !         case APPSYM:    /* >> */
  322.           case '>':
  323.           IF wdnum==0 THEN iof |= 1 FI
  324.           iof |= IOPUT;
  325. ***************
  326. *** 341,346
  327.           IF (c=nextc(0))=='&'
  328.           THEN    iof |= IOMOV;
  329.           ELIF c=='>'
  330.           THEN    iof |= IORDW;
  331.           ELSE    peekc=c|MARK;
  332.           FI
  333.  
  334. --- 343,350 -----
  335.           IF (c=nextc(0))=='&'
  336.           THEN    iof |= IOMOV;
  337.           ELIF c=='>'
  338. +         /*    <> is open for read and write */
  339. +         /*    previously unadvertised feature */
  340.           THEN    iof |= IORDW;
  341.           ELSE    peekc=c|MARK;
  342.           FI
  343. :::::::: ctype.c :::::::
  344. *** ../orig.u/ctype.c    Wed May 15 17:13:44 1985
  345. --- ctype.c    Thu May 30 13:59:18 1985
  346. ***************
  347. *** 13,19
  348.   
  349.   #include    "defs.h"
  350.   
  351. ! char    _ctype1[] {
  352.   /*    000    001    002    003    004    005    006    007    */
  353.       _EOF,    0,    0,    0,    0,    0,    0,    0,
  354.   
  355.  
  356. --- 13,19 -----
  357.   
  358.   #include    "defs.h"
  359.   
  360. ! char    _ctype1[] = {
  361.   /*    000    001    002    003    004    005    006    007    */
  362.       _EOF,    0,    0,    0,    0,    0,    0,    0,
  363.   
  364. ***************
  365. *** 25,30
  366.       0,    0,    0,    0,    0,    0,    0,    0,
  367.   
  368.   /*    sp    !    "    #    $    %    &    '    */
  369.       _SPC,    0,    _DQU,    0,    _DOL1,    0,    _AMP,    0,
  370.   
  371.   /*    (    )    *    +    ,    -    .    /    */
  372.  
  373. --- 25,33 -----
  374.       0,    0,    0,    0,    0,    0,    0,    0,
  375.   
  376.   /*    sp    !    "    #    $    %    &    '    */
  377. + #if JOBS
  378. +     _SPC,    0,    _DQU,    0,    _DOL1,    _PCT,    _AMP,    0,
  379. + #else
  380.       _SPC,    0,    _DQU,    0,    _DOL1,    0,    _AMP,    0,
  381.   #endif
  382.   
  383. ***************
  384. *** 26,31
  385.   
  386.   /*    sp    !    "    #    $    %    &    '    */
  387.       _SPC,    0,    _DQU,    0,    _DOL1,    0,    _AMP,    0,
  388.   
  389.   /*    (    )    *    +    ,    -    .    /    */
  390.       _BRA,    _KET,    0,    0,    0,    0,    0,    0,
  391.  
  392. --- 29,35 -----
  393.       _SPC,    0,    _DQU,    0,    _DOL1,    _PCT,    _AMP,    0,
  394.   #else
  395.       _SPC,    0,    _DQU,    0,    _DOL1,    0,    _AMP,    0,
  396. + #endif
  397.   
  398.   /*    (    )    *    +    ,    -    .    /    */
  399.       _BRA,    _KET,    0,    0,    0,    0,    0,    0,
  400. ***************
  401. *** 62,68
  402.   };
  403.   
  404.   
  405. ! char    _ctype2[] {
  406.   /*    000    001    002    003    004    005    006    007    */
  407.       0,    0,    0,    0,    0,    0,    0,    0,
  408.   
  409.  
  410. --- 66,72 -----
  411.   };
  412.   
  413.   
  414. ! char    _ctype2[] = {
  415.   /*    000    001    002    003    004    005    006    007    */
  416.       0,    0,    0,    0,    0,    0,    0,    0,
  417.   
  418. ***************
  419. *** 95,101
  420.       _UPC,    _UPC,    _UPC,    _UPC,    _UPC,    _UPC,    _UPC,    _UPC,
  421.   
  422.   /*    X    Y    Z    [    \    ]    ^    _    */
  423. !     _UPC,    _UPC,    _UPC,    _SQB,    0,    0,    0,    _UPC,
  424.   
  425.   /*    `    a    b    c    d    e    f    g    */
  426.       0,    _LPC,    _LPC,    _LPC,    _LPC,    _LPC,    _LPC,    _LPC,
  427.  
  428. --- 99,105 -----
  429.       _UPC,    _UPC,    _UPC,    _UPC,    _UPC,    _UPC,    _UPC,    _UPC,
  430.   
  431.   /*    X    Y    Z    [    \    ]    ^    _    */
  432. !     _UPC,    _UPC,    _UPC,    0,    0,    0,    0,    _UPC,
  433.   
  434.   /*    `    a    b    c    d    e    f    g    */
  435.       0,    _LPC,    _LPC,    _LPC,    _LPC,    _LPC,    _LPC,    _LPC,
  436. :::::::: ctype.h :::::::
  437. *** ../orig.u/ctype.h    Wed May 15 17:13:44 1985
  438. --- ctype.h    Thu May 30 14:01:21 1985
  439. ***************
  440. *** 51,56
  441.   #define _BSL    (T_ESC)
  442.   #define _DQU    (T_QOT)
  443.   #define _DOL1    (T_SUB|T_ESC)
  444.   
  445.   #define _CBR    T_BRC
  446.   #define _CKT    T_DEF
  447.  
  448. --- 51,59 -----
  449.   #define _BSL    (T_ESC)
  450.   #define _DQU    (T_QOT)
  451.   #define _DOL1    (T_SUB|T_ESC)
  452. + #if JOBS
  453. + #define _PCT    (T_SUB|T_ESC)
  454. + #endif
  455.   
  456.   #define _CBR    T_BRC
  457.   #define _CKT    T_DEF
  458. ***************
  459. *** 68,74
  460.   #define _IDCH    (T_IDC|T_DIG)
  461.   #define _META    (T_SPC|T_DIP|T_MET|T_EOR)
  462.   
  463. ! char    _ctype1[];
  464.   
  465.   /* nb these args are not call by value !!!! */
  466.   #define    space(c)    (((c)"E)==0 ANDF _ctype1[c]&(T_SPC))
  467.  
  468. --- 71,77 -----
  469.   #define _IDCH    (T_IDC|T_DIG)
  470.   #define _META    (T_SPC|T_DIP|T_MET|T_EOR)
  471.   
  472. ! extern char    _ctype1[];
  473.   
  474.   /* nb these args are not call by value !!!! */
  475.   #define    space(c)    (((c)"E)==0 ANDF _ctype1[c]&(T_SPC))
  476. ***************
  477. *** 79,85
  478.   #define subchar(c)    (((c)"E)==0 ANDF _ctype1[c]&(T_SUB|T_QOT))
  479.   #define escchar(c)    (((c)"E)==0 ANDF _ctype1[c]&(T_ESC))
  480.   
  481. ! char    _ctype2[];
  482.   
  483.   #define    digit(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_DIG))
  484.   #define fngchar(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_FNG))
  485.  
  486. --- 82,88 -----
  487.   #define subchar(c)    (((c)"E)==0 ANDF _ctype1[c]&(T_SUB|T_QOT))
  488.   #define escchar(c)    (((c)"E)==0 ANDF _ctype1[c]&(T_ESC))
  489.   
  490. ! extern char    _ctype2[];
  491.   
  492.   #define    digit(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_DIG))
  493.   #define dolchar(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_AST|T_BRC|T_DIG|T_IDC|T_SHN|_PLS))
  494. ***************
  495. *** 82,89
  496.   char    _ctype2[];
  497.   
  498.   #define    digit(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_DIG))
  499. ! #define fngchar(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_FNG))
  500. ! #define dolchar(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_AST|T_BRC|T_DIG|T_IDC|T_SHN))
  501.   #define defchar(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_DEF))
  502.   #define setchar(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_SET))
  503.   #define digchar(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_AST|T_DIG))
  504.  
  505. --- 85,91 -----
  506.   extern char    _ctype2[];
  507.   
  508.   #define    digit(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_DIG))
  509. ! #define dolchar(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_AST|T_BRC|T_DIG|T_IDC|T_SHN|_PLS))
  510.   #define defchar(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_DEF))
  511.   #define setchar(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_SET))
  512.   #define digchar(c)    (((c)"E)==0 ANDF _ctype2[c]&(T_AST|T_DIG))
  513. :::::::: defs.h :::::::
  514. *** ../orig.u/defs.h    Wed May 15 17:13:44 1985
  515. --- defs.h    Wed Jun  5 12:11:27 1985
  516. ***************
  517. *** 8,15
  518.   /* error exits from various parts of shell */
  519.   #define ERROR    1
  520.   #define SYNBAD    2
  521. ! #define SIGFAIL 3
  522. ! #define SIGFLG    0200
  523.   
  524.   /* command tree */
  525.   #define FPRS    020
  526.  
  527. --- 8,15 -----
  528.   /* error exits from various parts of shell */
  529.   #define ERROR    1
  530.   #define SYNBAD    2
  531. ! #define SIGFAIL 2000
  532. ! #define SIGFLG    1000
  533.   
  534.   /* command tree */
  535.   #define FPRS    020
  536. ***************
  537. *** 54,59
  538.   #define SYSREAD 17
  539.   #define SYSTST    18
  540.   #define    SYSUMASK    19
  541.   
  542.   /* used for input and output of shell */
  543.   #define INIO 10
  544.  
  545. --- 54,73 -----
  546.   #define SYSREAD 17
  547.   #define SYSTST    18
  548.   #define    SYSUMASK    19
  549. + #if JOBS
  550. + #define SYSJOBS    20
  551. + #define SYSFG    21
  552. + #define SYSBG    22
  553. + #define SYSSUSPEND    23
  554. + #endif
  555. + #if pyr
  556. + #define SYSATT    24
  557. + #define SYSUCB    25
  558. + #define SYSUNIVERSE    26
  559. + #define U_ATT    1    /* ATT is Universe Number 1 */
  560. + #define U_UCB    2    /* UCB is Universe Number 2 */
  561. + #endif
  562. + #define SYSHISTORY    27
  563.   
  564.   /* used for input and output of shell */
  565.   #define INIO 18
  566. ***************
  567. *** 56,63
  568.   #define    SYSUMASK    19
  569.   
  570.   /* used for input and output of shell */
  571. ! #define INIO 10
  572. ! #define OTIO 11
  573.   
  574.   /*io nodes*/
  575.   #define USERIO    10
  576.  
  577. --- 70,77 -----
  578.   #define SYSHISTORY    27
  579.   
  580.   /* used for input and output of shell */
  581. ! #define INIO 18
  582. ! #define OTIO 19
  583.   
  584.   /*io nodes*/
  585.   #define USERIO    10
  586. ***************
  587. *** 78,83
  588.   #include    "name.h"
  589.   
  590.   
  591.   /* result type declarations */
  592.   #define alloc malloc
  593.   ADDRESS        alloc();
  594.  
  595. --- 92,100 -----
  596.   #include    "name.h"
  597.   
  598.   
  599. + /* error catching */
  600. + extern    INT    errno;
  601. + 
  602.   /* result type declarations */
  603.   #define alloc malloc
  604.   ADDRESS        alloc();
  605. ***************
  606. *** 108,113
  607.   VOID        prc();
  608.   VOID        getenv();
  609.   STRING        *setenv();
  610.   
  611.   #define attrib(n,f)    (n->namflg |= f)
  612.   #define round(a,b)    (((int)((ADR(a)+b)-1))&~((b)-1))
  613.  
  614. --- 125,147 -----
  615.   VOID        prc();
  616.   VOID        getenv();
  617.   STRING        *setenv();
  618. + extern STRING    simple();
  619. + extern STRING    homedir();
  620. + extern STRING    username();
  621. + extern INT    history();
  622. + #if JOBS
  623. + extern BOOL    unpost();
  624. + extern VOID    j_init();
  625. + extern BOOL    j_finish();
  626. + extern VOID    j_child_clear();
  627. + extern VOID    j_child_die();
  628. + extern VOID    j_child_stop();
  629. + extern VOID    j_print();
  630. + extern VOID    j_resume();
  631. + extern VOID    j_child_post();
  632. + extern VOID    j_reset_pg();
  633. + extern STRING    j_macro();
  634. + #endif
  635.   
  636.   #define attrib(n,f)    (n->namflg |= f)
  637.   #define round(a,b)    (((int)((ADR(a)+b)-1))&~((b)-1))
  638. ***************
  639. *** 122,127
  640.   IOPTR        iotemp;        /* files to be deleted sometime */
  641.   IOPTR        iopend;        /* documents waiting to be read at NL */
  642.   
  643.   /* substitution */
  644.   INT        dolc;
  645.   STRING        *dolv;
  646.  
  647. --- 156,175 -----
  648.   IOPTR        iotemp;        /* files to be deleted sometime */
  649.   IOPTR        iopend;        /* documents waiting to be read at NL */
  650.   
  651. + /* history stuff */
  652. + INT        event_count;
  653. + INT        expanded;
  654. + 
  655. + /* keep track of the parent process id */
  656. + INT        ppid;
  657. + 
  658. + #if pyr
  659. + /* keep track of the current universe */
  660. + INT            cur_univ;
  661. + extern STRING        univ_name[];    /* from <universe.h> */
  662. + extern STRING        univ_longname[];
  663. + #endif
  664. + 
  665.   /* substitution */
  666.   INT        dolc;
  667.   STRING        *dolv;
  668. ***************
  669. *** 147,152
  670.   MSG        unexpected;
  671.   MSG        endoffile;
  672.   MSG        synmsg;
  673.   
  674.   /* name tree and words */
  675.   SYSTAB        reserved;
  676.  
  677. --- 195,252 -----
  678.   MSG        unexpected;
  679.   MSG        endoffile;
  680.   MSG        synmsg;
  681. + extern MSG        dashi;    /* ADR */
  682. + #if pyr
  683. + extern MSG        dashl;    /* ADR */
  684. + #endif
  685. + extern MSG        dashr;    /* ADR */
  686. + extern MSG        dashs;    /* ADR */
  687. + #if JOBS
  688. + extern MSG    appdstr;
  689. + extern MSG    bgdstr;
  690. + extern MSG    cjpostr;
  691. + extern MSG    fgdstr;
  692. + extern MSG    fromastr;    /* DAG */
  693. + extern MSG    inlnstr;
  694. + extern MSG    jcoffstr;
  695. + extern MSG    jinvstr;
  696. + extern MSG    jpanstr;
  697. + extern MSG    lotspstr;
  698. + extern MSG    ncjstr;
  699. + extern MSG    nstpstr;
  700. + extern MSG    pipestr;    /* DAG */
  701. + extern MSG    psgpstr;
  702. + extern MSG    ptinstr;
  703. + extern MSG    ptoustr;
  704. + extern MSG    rdinstr;
  705. + extern MSG    rsqbrk;
  706. + extern MSG    spcstr;
  707. + extern MSG    spspstr;
  708. + extern MSG    stpdstr;
  709. + extern MSG    tasjstr;
  710. + extern MSG    toastr;    /* DAG */
  711. + extern MSG    amperstr;    /* DAG */
  712. + extern MSG    andstr;    /* DAG */
  713. + extern MSG    casestr;    /* DAG */
  714. + extern MSG    forstr;    /* DAG */
  715. + extern MSG    iesacstr;
  716. + extern MSG    ifstr;    /* DAG */
  717. + extern MSG    insstr;
  718. + extern MSG    lpnstr;
  719. + extern MSG    orstr;    /* DAG */
  720. + extern MSG    forstr;    /* DAG */
  721. + extern MSG    rpnstr;
  722. + extern MSG    sdonstr;
  723. + extern MSG    sdostr;
  724. + extern MSG    selsstr;
  725. + extern MSG    semspstr;
  726. + extern MSG    sfistr;
  727. + extern MSG    sthnstr;
  728. + extern MSG    untilstr;    /* DAG */
  729. + extern MSG    whilestr;    /* DAG */
  730. + extern MSG    rdwstr;        /* ADR */
  731. + extern MSG    nosusp;        /* ADR */
  732. + #endif
  733.   
  734.   /* name tree and words */
  735.   SYSTAB        reserved;
  736. ***************
  737. *** 160,165
  738.   MSG        stdprompt;
  739.   MSG        supprompt;
  740.   MSG        profile;
  741.   
  742.   /* built in names */
  743.   NAMNOD        fngnod;
  744.  
  745. --- 260,267 -----
  746.   MSG        stdprompt;
  747.   MSG        supprompt;
  748.   MSG        profile;
  749. + extern MSG        shrc;
  750. + extern MSG        savehist;
  751.   
  752.   /* built in names */
  753.   NAMNOD        fngnod;
  754. ***************
  755. *** 169,174
  756.   NAMNOD        pathnod;
  757.   NAMNOD        ps1nod;
  758.   NAMNOD        ps2nod;
  759.   
  760.   /* special names */
  761.   MSG        flagadr;
  762.  
  763. --- 271,280 -----
  764.   NAMNOD        pathnod;
  765.   NAMNOD        ps1nod;
  766.   NAMNOD        ps2nod;
  767. + #if pyr
  768. + extern NAMNOD        univnod;
  769. + #endif
  770. + extern NAMNOD        histfnod;
  771.   
  772.   
  773.   /* special names */
  774. ***************
  775. *** 170,175
  776.   NAMNOD        ps1nod;
  777.   NAMNOD        ps2nod;
  778.   
  779.   /* special names */
  780.   MSG        flagadr;
  781.   STRING        cmdadr;
  782.  
  783. --- 276,282 -----
  784.   #endif
  785.   extern NAMNOD        histfnod;
  786.   
  787. + 
  788.   /* special names */
  789.   MSG        flagadr;
  790.   STRING        cmdadr;
  791. ***************
  792. *** 177,182
  793.   STRING        dolladr;
  794.   STRING        pcsadr;
  795.   STRING        pidadr;
  796.   
  797.   MSG        defpath;
  798.   
  799.  
  800. --- 284,290 -----
  801.   STRING        dolladr;
  802.   STRING        pcsadr;
  803.   STRING        pidadr;
  804. + STRING        ppidadr;
  805.   
  806.   MSG        defpath;
  807.   
  808. ***************
  809. *** 188,193
  810.   MSG        ifsname;
  811.   MSG        ps1name;
  812.   MSG        ps2name;
  813.   
  814.   /* transput */
  815.   CHAR        tmpout[];
  816.  
  817. --- 296,305 -----
  818.   MSG        ifsname;
  819.   MSG        ps1name;
  820.   MSG        ps2name;
  821. + #if pyr
  822. + extern MSG        univname;    /* UNIVERSE */
  823. + #endif
  824. + extern MSG        histfilename;
  825.   
  826.   /* transput */
  827.   CHAR        tmpout[];
  828. ***************
  829. *** 200,205
  830.   INT        peekc;
  831.   STRING        comdiv;
  832.   MSG        devnull;
  833.   
  834.   /* flags */
  835.   #define        noexec    01
  836.  
  837. --- 312,323 -----
  838.   INT        peekc;
  839.   STRING        comdiv;
  840.   MSG        devnull;
  841. + extern BOOL        catcheof;    /* set to catch EOF in reac() */
  842. + #if JOBS
  843. + extern    INT        j_original_pg;
  844. + extern    INT        j_default_pg;
  845. + extern     BOOL        j_top_level;
  846. + #endif
  847.   
  848.   /* flags */
  849.   #define        noexec    01
  850. ***************
  851. *** 203,208
  852.   
  853.   /* flags */
  854.   #define        noexec    01
  855.   #define        intflg    02
  856.   #define        prompt    04
  857.   #define        setflg    010
  858.  
  859. --- 321,327 -----
  860.   
  861.   /* flags */
  862.   #define        noexec    01
  863. + #define        sysflg    01
  864.   #define        intflg    02
  865.   #define        prompt    04
  866.   #define        setflg    010
  867. ***************
  868. *** 216,222
  869.   #define        execpr    04000
  870.   #define        readpr    010000
  871.   #define        keyflg    020000
  872. ! INT        flags;
  873.   
  874.   /* error exits from various parts of shell */
  875.   #include    <setjmp.h>
  876.  
  877. --- 335,349 -----
  878.   #define        execpr    04000
  879.   #define        readpr    010000
  880.   #define        keyflg    020000
  881. ! #if JOBS
  882. ! #define        infoflg        040000
  883. ! #define        jobflg        0100000
  884. ! #endif
  885. ! #define        noeotflg    0200000
  886. ! #define        dotflg        0400000
  887. ! #define        quickflg    01000000
  888. ! #define        nohistflg    02000000
  889. ! L_INT        flags;    /* assure more than 16 bits */
  890.   
  891.   /* error exits from various parts of shell */
  892.   #include    <setjmp.h>
  893. ***************
  894. *** 220,225
  895.   
  896.   /* error exits from various parts of shell */
  897.   #include    <setjmp.h>
  898.   jmp_buf        subshell;
  899.   jmp_buf        errshell;
  900.   jmp_buf        INTbuf;
  901.  
  902. --- 347,356 -----
  903.   
  904.   /* error exits from various parts of shell */
  905.   #include    <setjmp.h>
  906. + #if JOBS && !defined(pyr)
  907. + #define    setjmp(env)        _setjmp(env)
  908. + #define longjmp(env, val)    _longjmp(env, val)
  909. + #endif
  910.   jmp_buf        subshell;
  911.   jmp_buf        errshell;
  912.   
  913. ***************
  914. *** 222,228
  915.   #include    <setjmp.h>
  916.   jmp_buf        subshell;
  917.   jmp_buf        errshell;
  918. - jmp_buf        INTbuf;
  919.   
  920.   /* fault handling */
  921.   #include    "brkincr.h"
  922.  
  923. --- 353,358 -----
  924.   #endif
  925.   jmp_buf        subshell;
  926.   jmp_buf        errshell;
  927.   
  928.   /* fault handling */
  929.   #include    "brkincr.h"
  930. ***************
  931. *** 229,235
  932.   POS        brkincr;
  933.   
  934.   #define MINTRAP    0
  935. ! #define MAXTRAP    17
  936.   
  937.   #define INTR    2
  938.   #define QUIT    3
  939.  
  940. --- 359,369 -----
  941.   POS        brkincr;
  942.   
  943.   #define MINTRAP    0
  944. ! #if JOBS
  945. ! #define MAXTRAP    32
  946. ! #else
  947. ! #define MAXTRAP    20
  948. ! #endif
  949.   
  950.   #define HANGUP    1
  951.   #define INTR    2
  952. ***************
  953. *** 231,236
  954.   #define MINTRAP    0
  955.   #define MAXTRAP    17
  956.   
  957.   #define INTR    2
  958.   #define QUIT    3
  959.   #define MEMF    11
  960.  
  961. --- 365,371 -----
  962.   #define MAXTRAP    20
  963.   #endif
  964.   
  965. + #define HANGUP    1
  966.   #define INTR    2
  967.   #define QUIT    3
  968.   #define MEMF    11
  969. ***************
  970. *** 236,241
  971.   #define MEMF    11
  972.   #define ALARM    14
  973.   #define KILL    15
  974.   #define TRAPSET    2
  975.   #define SIGSET    4
  976.   #define SIGMOD    8
  977.  
  978. --- 371,382 -----
  979.   #define MEMF    11
  980.   #define ALARM    14
  981.   #define KILL    15
  982. + #if JOBS
  983. + #define STOP    17
  984. + #define TSTP    18
  985. + #define TTIN    21
  986. + #define    TTOU    22
  987. + #endif
  988.   #define TRAPSET    2
  989.   #define SIGSET    4
  990.   #define SIGMOD    8
  991. ***************
  992. *** 239,244
  993.   #define TRAPSET    2
  994.   #define SIGSET    4
  995.   #define SIGMOD    8
  996.   
  997.   VOID        fault();
  998.   BOOL        trapnote;
  999.  
  1000. --- 380,386 -----
  1001.   #define TRAPSET    2
  1002.   #define SIGSET    4
  1003.   #define SIGMOD    8
  1004. + #define SIGCAUGHT    16
  1005.   
  1006.   #define HISTSIZE    4096
  1007.   
  1008. ***************
  1009. *** 240,245
  1010.   #define SIGSET    4
  1011.   #define SIGMOD    8
  1012.   
  1013.   VOID        fault();
  1014.   BOOL        trapnote;
  1015.   STRING        trapcom[];
  1016.  
  1017. --- 382,389 -----
  1018.   #define SIGMOD    8
  1019.   #define SIGCAUGHT    16
  1020.   
  1021. + #define HISTSIZE    4096
  1022. + 
  1023.   VOID        fault();
  1024.   BOOL        trapnote;
  1025.   STRING        trapcom[];
  1026. ***************
  1027. *** 244,250
  1028.   BOOL        trapnote;
  1029.   STRING        trapcom[];
  1030.   BOOL        trapflg[];
  1031. - BOOL        trapjmp[];
  1032.   
  1033.   /* name tree and words */
  1034.   STRING        *environ;
  1035.  
  1036. --- 388,393 -----
  1037.   BOOL        trapnote;
  1038.   STRING        trapcom[];
  1039.   BOOL        trapflg[];
  1040.   
  1041.   /* name tree and words */
  1042.   STRING        *environ;
  1043. ***************
  1044. *** 289,291
  1045.   
  1046.   #include    "ctype.h"
  1047.   
  1048.  
  1049. --- 432,438 -----
  1050.   
  1051.   #include    "ctype.h"
  1052.   
  1053. + INT        wasintr;
  1054. + INT        eflag;
  1055. + INT        stripflg;
  1056. + INT        rwait;
  1057. :::::::: dup.h :::::::
  1058. No differences encountered
  1059. :::::::: error.c :::::::
  1060. *** ../orig.u/error.c    Wed May 15 17:13:44 1985
  1061. --- error.c    Thu May 30 15:55:20 1985
  1062. ***************
  1063. *** 28,34
  1064.        * no trap has been set.
  1065.        */
  1066.       IF trapnote&SIGSET
  1067. !     THEN    exitsh(SIGFAIL);
  1068.       FI
  1069.   }
  1070.   
  1071.  
  1072. --- 28,34 -----
  1073.        * no trap has been set.
  1074.        */
  1075.       IF trapnote&SIGSET
  1076. !     THEN    exitsh(exitval ? exitval : SIGFAIL);
  1077.       FI
  1078.   }
  1079.   
  1080. ***************
  1081. *** 59,64
  1082.        * Action is to return to command level or exit.
  1083.        */
  1084.       exitval=xno;
  1085.       IF (flags & (forked|errflg|ttyflg)) != ttyflg
  1086.       THEN    done();
  1087.       ELSE    clearup();
  1088.  
  1089. --- 59,65 -----
  1090.        * Action is to return to command level or exit.
  1091.        */
  1092.       exitval=xno;
  1093. +     flags |= eflag;
  1094.       IF (flags & (forked|errflg|ttyflg)) != ttyflg
  1095.       THEN    done();
  1096.       ELSE    clearup();
  1097. ***************
  1098. *** 62,67
  1099.       IF (flags & (forked|errflg|ttyflg)) != ttyflg
  1100.       THEN    done();
  1101.       ELSE    clearup();
  1102.           longjmp(errshell,1);
  1103.       FI
  1104.   }
  1105.  
  1106. --- 63,69 -----
  1107.       IF (flags & (forked|errflg|ttyflg)) != ttyflg
  1108.       THEN    done();
  1109.       ELSE    clearup();
  1110. +         execbrk = breakcnt = 0;
  1111.           longjmp(errshell,1);
  1112.       FI
  1113.   }
  1114. ***************
  1115. *** 74,79
  1116.           execexp(t,0);
  1117.       FI
  1118.       rmtemp(0);
  1119.       exit(exitval);
  1120.   }
  1121.   
  1122.  
  1123. --- 76,82 -----
  1124.           execexp(t,0);
  1125.       FI
  1126.       rmtemp(0);
  1127. +     histsave (histfnod.namval);
  1128.       exit(exitval);
  1129.   }
  1130.   
  1131. :::::::: expand.c :::::::
  1132. *** ../orig.u/expand.c    Wed May 15 17:13:44 1985
  1133. --- expand.c    Tue Jun  4 17:29:43 1985
  1134. ***************
  1135. *** 48,61
  1136.   
  1137.       /* check for meta chars */
  1138.       BEGIN
  1139. !        REG BOOL slash; slash=0;
  1140. !        WHILE !fngchar(*cs)
  1141. !        DO    IF *cs++==0
  1142. !         THEN    IF rflg ANDF slash THEN break; ELSE return(0) FI
  1143. !         ELIF *cs=='/'
  1144. !         THEN    slash++;
  1145. !         FI
  1146. !        OD
  1147.       END
  1148.   
  1149.       LOOP    IF cs==s
  1150.  
  1151. --- 48,79 -----
  1152.   
  1153.       /* check for meta chars */
  1154.       BEGIN
  1155. !        REG BOOL slash, open; open=slash=0;
  1156. !        REP
  1157. !         SWITCH *cs++ IN
  1158. !         case 0:        IF rflg ANDF slash THEN break;
  1159. !                 ELSE return 0;
  1160. !                 FI
  1161. !         
  1162. !         case '/':    slash++;
  1163. !                 open = 0;
  1164. !                 continue;
  1165. !         
  1166. !         case '[':    open++;
  1167. !                 continue;
  1168. ! 
  1169. !         case ']':    IF open THEN break FI
  1170. !                 continue;
  1171. !         
  1172. !         case '?':
  1173. !         case '*':
  1174. !                 cs--;
  1175. !                 break;
  1176. !         
  1177. !         default:    continue;
  1178. !         ENDSW
  1179. !         break;
  1180. !        PER TRUE DONE
  1181.       END
  1182.   
  1183.       LOOP    IF cs==s
  1184. ***************
  1185. *** 67,73
  1186.               break;
  1187.           FI
  1188.       POOL
  1189. !     IF stat(s,&statb)>=0
  1190.           ANDF (statb.st_mode&S_IFMT)==S_IFDIR
  1191.           ANDF (dirf=opendir(s)) != NULL
  1192.       THEN    dir++;
  1193.  
  1194. --- 85,92 -----
  1195.               break;
  1196.           FI
  1197.       POOL
  1198. !     chgquot(s, 0);
  1199. !     IF stat(*s ? s : ".",&statb)>=0    /* DAG */
  1200.           ANDF (statb.st_mode&S_IFMT)==S_IFDIR
  1201.           ANDF (dirf=opendir(*s ? s : ".")) != NULL    /* DAG -- fixed Berkeley bug */
  1202.       THEN    dir++;
  1203. ***************
  1204. *** 69,75
  1205.       POOL
  1206.       IF stat(s,&statb)>=0
  1207.           ANDF (statb.st_mode&S_IFMT)==S_IFDIR
  1208. !         ANDF (dirf=opendir(s)) != NULL
  1209.       THEN    dir++;
  1210.       FI
  1211.       count=0;
  1212.  
  1213. --- 88,94 -----
  1214.       chgquot(s, 0);
  1215.       IF stat(*s ? s : ".",&statb)>=0    /* DAG */
  1216.           ANDF (statb.st_mode&S_IFMT)==S_IFDIR
  1217. !         ANDF (dirf=opendir(*s ? s : ".")) != NULL    /* DAG -- fixed Berkeley bug */
  1218.       THEN    dir++;
  1219.       FI
  1220.       chgquot(s, 1);
  1221. ***************
  1222. *** 72,77
  1223.           ANDF (dirf=opendir(s)) != NULL
  1224.       THEN    dir++;
  1225.       FI
  1226.       count=0;
  1227.       IF *cs==0 THEN *cs++=0200 FI
  1228.       IF dir
  1229.  
  1230. --- 91,97 -----
  1231.           ANDF (dirf=opendir(*s ? s : ".")) != NULL    /* DAG -- fixed Berkeley bug */
  1232.       THEN    dir++;
  1233.       FI
  1234. +     chgquot(s, 1);
  1235.       count=0;
  1236.       IF *cs==0 THEN *cs++=0200 FI
  1237.       IF dir
  1238. ***************
  1239. *** 81,89
  1240.           REP    IF *rs=='/' THEN rescan=rs; *rs=0; gchain=0 FI
  1241.           PER    *rs++ DONE
  1242.   
  1243. !         IF setjmp(INTbuf) == 0 THEN trapjmp[INTR] = 1; FI
  1244. !         WHILE (trapnote&SIGSET) == 0 ANDF (dp = readdir(dirf)) != NULL
  1245. !         DO    IF (*dp->d_name=='.' ANDF *cs!='.')
  1246.               THEN    continue;
  1247.               FI
  1248.               IF gmatch(dp->d_name, cs)
  1249.  
  1250. --- 101,108 -----
  1251.           REP    IF *rs=='/' THEN rescan=rs; *rs=0; gchain=0 FI
  1252.           PER    *rs++ DONE
  1253.   
  1254. !         WHILE (dp = readdir(dirf)) ANDF (trapnote&SIGSET) == 0
  1255. !         DO    IF *dp->d_name=='.' ANDF *cs!='.'
  1256.               THEN    continue;
  1257.               FI
  1258.   /*
  1259. ***************
  1260. *** 86,91
  1261.           DO    IF (*dp->d_name=='.' ANDF *cs!='.')
  1262.               THEN    continue;
  1263.               FI
  1264.               IF gmatch(dp->d_name, cs)
  1265.               THEN    addg(s,dp->d_name,rescan); count++;
  1266.               FI
  1267.  
  1268. --- 105,115 -----
  1269.           DO    IF *dp->d_name=='.' ANDF *cs!='.'
  1270.               THEN    continue;
  1271.               FI
  1272. + /*
  1273. +  *    Here lies the fix for the "echo * /." problem when
  1274. +  *    there are files with metacharacters in their names.
  1275. +  */
  1276. +             chgquot(dp->d_name, 1);
  1277.               IF gmatch(dp->d_name, cs)
  1278.               THEN    addg(s,dp->d_name,rescan); count++;
  1279.               FI
  1280. ***************
  1281. *** 89,94
  1282.               IF gmatch(dp->d_name, cs)
  1283.               THEN    addg(s,dp->d_name,rescan); count++;
  1284.               FI
  1285.           OD
  1286.           closedir(dirf); trapjmp[INTR] = 0;
  1287.   
  1288.  
  1289. --- 113,119 -----
  1290.               IF gmatch(dp->d_name, cs)
  1291.               THEN    addg(s,dp->d_name,rescan); count++;
  1292.               FI
  1293. +             chgquot(dp->d_name, 0);
  1294.           OD
  1295.           closedir(dirf);
  1296.   
  1297. ***************
  1298. *** 90,96
  1299.               THEN    addg(s,dp->d_name,rescan); count++;
  1300.               FI
  1301.           OD
  1302. !         closedir(dirf); trapjmp[INTR] = 0;
  1303.   
  1304.           IF rescan
  1305.           THEN    REG ARGPTR    rchain;
  1306.  
  1307. --- 115,121 -----
  1308.               FI
  1309.               chgquot(dp->d_name, 0);
  1310.           OD
  1311. !         closedir(dirf);
  1312.   
  1313.           IF rescan
  1314.           THEN    REG ARGPTR    rchain;
  1315. ***************
  1316. *** 129,135
  1317.       SWITCH c = *p++ IN
  1318.   
  1319.           case '[':
  1320. !         {BOOL ok; INT lc;
  1321.           ok=0; lc=077777;
  1322.           WHILE c = *p++
  1323.           DO    IF c==']'
  1324.  
  1325. --- 154,160 -----
  1326.       SWITCH c = *p++ IN
  1327.   
  1328.           case '[':
  1329. !         {BOOL ok; INT lc; INT notflag=0;
  1330.           ok=0; lc=077777;
  1331.           IF *p == '!' THEN notflag=1; p++; FI
  1332.           WHILE c = *p++
  1333. ***************
  1334. *** 131,136
  1335.           case '[':
  1336.           {BOOL ok; INT lc;
  1337.           ok=0; lc=077777;
  1338.           WHILE c = *p++
  1339.           DO    IF c==']'
  1340.               THEN    return(ok?gmatch(s,p):0);
  1341.  
  1342. --- 156,162 -----
  1343.           case '[':
  1344.           {BOOL ok; INT lc; INT notflag=0;
  1345.           ok=0; lc=077777;
  1346. +         IF *p == '!' THEN notflag=1; p++; FI
  1347.           WHILE c = *p++
  1348.           DO    IF c==']'
  1349.               THEN    return(ok?gmatch(s,p):0);
  1350. ***************
  1351. *** 135,142
  1352.           DO    IF c==']'
  1353.               THEN    return(ok?gmatch(s,p):0);
  1354.               ELIF c==MINUS
  1355. !             THEN    IF lc<=scc ANDF scc<=(*p++) THEN ok++ FI
  1356. !             ELSE    IF scc==(lc=(c&STRIP)) THEN ok++ FI
  1357.               FI
  1358.           OD
  1359.           return(0);
  1360.  
  1361. --- 161,180 -----
  1362.           DO    IF c==']'
  1363.               THEN    return(ok?gmatch(s,p):0);
  1364.               ELIF c==MINUS
  1365. !             THEN    IF notflag
  1366. !                 THEN    IF lc>scc ORF scc>*(p++)
  1367. !                     THEN ok++;
  1368. !                     ELSE return(0)
  1369. !                     FI
  1370. !                 ELSE IF lc<=scc ANDF scc<=(*p++) THEN ok++ FI
  1371. !                 FI
  1372. !             ELSE    IF notflag
  1373. !                 THEN    IF scc!=(lc=(c&STRIP))
  1374. !                     THEN ok++;
  1375. !                     ELSE return(0)
  1376. !                     FI
  1377. !                 ELSE IF scc==(lc=(c&STRIP)) THEN ok++ FI
  1378. !                 FI
  1379.               FI
  1380.           OD
  1381.           return(0);
  1382. ***************
  1383. *** 192,194
  1384.       gchain=args;
  1385.   }
  1386.   
  1387.  
  1388. --- 230,258 -----
  1389.       gchain=args;
  1390.   }
  1391.   
  1392. + chgquot(str, flg)
  1393. + REG STRING    str;
  1394. + REG INT        flg;
  1395. + {
  1396. +     REG INT i;
  1397. + 
  1398. +     FOR i = 0 ; ; i++
  1399. +     DO
  1400. +         SWITCH str[i] IN
  1401. +         case '\0':
  1402. +             return;
  1403. +         case '*':
  1404. +         case '?':
  1405. +         case '[':
  1406. +         case '*'|0200:
  1407. +         case '?'|0200:
  1408. +         case '['|0200:
  1409. +             IF flg==0
  1410. +             THEN
  1411. +                 str[i] &= (~QUOTE);
  1412. +             ELSE
  1413. +                 str[i] |= QUOTE;
  1414. +             FI
  1415. +         ENDSW
  1416. +     OD
  1417. + }
  1418. :::::::: fault.c :::::::
  1419. *** ../orig.u/fault.c    Wed May 15 17:13:44 1985
  1420. --- fault.c    Tue Jun  4 13:44:16 1985
  1421. ***************
  1422. *** 15,22
  1423.   
  1424.   
  1425.   STRING        trapcom[MAXTRAP];
  1426. ! BOOL        trapflg[MAXTRAP];
  1427. ! BOOL        trapjmp[MAXTRAP];
  1428.   
  1429.   /* ========    fault handling routines       ======== */
  1430.   
  1431.  
  1432. --- 15,42 -----
  1433.   
  1434.   
  1435.   STRING        trapcom[MAXTRAP];
  1436. ! BOOL    trapflg[MAXTRAP] = {
  1437. !                 0,
  1438. !                 SIGCAUGHT,    /* hangup */
  1439. !                 SIGCAUGHT,    /* interrupt */
  1440. !                 SIGCAUGHT,    /* quit */
  1441. !                 0,        /* illegal instr */
  1442. !                 0,        /* trace trap */
  1443. !                 0,        /* IOT */
  1444. !                 0,        /* EMT */
  1445. !                 0,        /* float pt. exp */
  1446. !                 0,        /* kill */
  1447. !                 0,        /* bus error */
  1448. !                 0,        /* memory faults */
  1449. !                 0,        /* bad sys call */
  1450. !                 0,        /* bad pipe call */
  1451. !                 SIGCAUGHT,    /* alarm */
  1452. !                 SIGCAUGHT,    /* software termination */
  1453. !                 0,        /* unassigned */
  1454. !                 0,        /* unassigned */
  1455. !                 0,        /* death of a child */
  1456. !                 0,        /* power fail */
  1457. !                 };
  1458.   
  1459.   /* ========    fault handling routines       ======== */
  1460.   
  1461. ***************
  1462. *** 26,31
  1463.   {
  1464.       REG INT        flag;
  1465.   
  1466.       IF sig==MEMF
  1467.       THEN    IF setbrk(brkincr) == -1
  1468.           THEN    error(nospace);
  1469.  
  1470. --- 46,52 -----
  1471.   {
  1472.       REG INT        flag;
  1473.   
  1474. +     signal(sig, fault);
  1475.       IF sig==MEMF
  1476.       THEN    IF setbrk(brkincr) == -1
  1477.           THEN    error(nospace);
  1478. ***************
  1479. *** 32,38
  1480.           FI
  1481.       ELIF sig==ALARM
  1482.       THEN    IF flags&waiting
  1483. !         THEN    done();
  1484.           FI
  1485.       ELSE    flag = (trapcom[sig] ? TRAPSET : SIGSET);
  1486.           trapnote |= flag;
  1487.  
  1488. --- 53,59 -----
  1489.           FI
  1490.       ELIF sig==ALARM
  1491.       THEN    IF flags&waiting
  1492. !         THEN    newline(); done();
  1493.           FI
  1494.       ELSE    flag = (trapcom[sig] ? TRAPSET : SIGSET);
  1495.           trapnote |= flag;
  1496. ***************
  1497. *** 37,42
  1498.       ELSE    flag = (trapcom[sig] ? TRAPSET : SIGSET);
  1499.           trapnote |= flag;
  1500.           trapflg[sig] |= flag;
  1501.       FI
  1502.       IF trapjmp[sig] ANDF sig==INTR
  1503.       THEN
  1504.  
  1505. --- 58,64 -----
  1506.       ELSE    flag = (trapcom[sig] ? TRAPSET : SIGSET);
  1507.           trapnote |= flag;
  1508.           trapflg[sig] |= flag;
  1509. +         IF sig == INTR THEN wasintr++; FI
  1510.       FI
  1511.   }
  1512.   
  1513. ***************
  1514. *** 38,48
  1515.           trapnote |= flag;
  1516.           trapflg[sig] |= flag;
  1517.       FI
  1518. -     IF trapjmp[sig] ANDF sig==INTR
  1519. -     THEN
  1520. -         trapjmp[sig] = 0;
  1521. -         longjmp(INTbuf, 1);
  1522. -     FI
  1523.   }
  1524.   
  1525.   stdsigs()
  1526.  
  1527. --- 60,65 -----
  1528.           trapflg[sig] |= flag;
  1529.           IF sig == INTR THEN wasintr++; FI
  1530.       FI
  1531.   }
  1532.   
  1533.   stdsigs()
  1534. ***************
  1535. *** 47,52
  1536.   
  1537.   stdsigs()
  1538.   {
  1539.       ignsig(QUIT);
  1540.       getsig(INTR);
  1541.       getsig(MEMF);
  1542.  
  1543. --- 64,70 -----
  1544.   
  1545.   stdsigs()
  1546.   {
  1547. +     signal(MEMF, fault);
  1548.       ignsig(QUIT);
  1549.       getsig(INTR);
  1550.       getsig(ALARM);
  1551. ***************
  1552. *** 49,55
  1553.   {
  1554.       ignsig(QUIT);
  1555.       getsig(INTR);
  1556. -     getsig(MEMF);
  1557.       getsig(ALARM);
  1558.   }
  1559.   
  1560.  
  1561. --- 67,72 -----
  1562.       signal(MEMF, fault);
  1563.       ignsig(QUIT);
  1564.       getsig(INTR);
  1565.       getsig(ALARM);
  1566.   }
  1567.   
  1568. ***************
  1569. *** 57,63
  1570.   {
  1571.       REG INT        s, i;
  1572.   
  1573. !     IF (s=signal(i=n,1)&01)==0
  1574.       THEN    trapflg[i] |= SIGMOD;
  1575.       FI
  1576.       return(s);
  1577.  
  1578. --- 74,83 -----
  1579.   {
  1580.       REG INT        s, i;
  1581.   
  1582. !     IF (i=n)==MEMF
  1583. !     THEN    clrsig(i);
  1584. !         failed(badtrap, "cannot trap 11");
  1585. !     ELIF (s=signal(i,1)&01)==0
  1586.       THEN    trapflg[i] |= SIGMOD;
  1587.       FI
  1588.       return(s);
  1589. ***************
  1590. *** 93,99
  1591.   {
  1592.       free(trapcom[i]); trapcom[i]=0;
  1593.       IF trapflg[i]&SIGMOD
  1594. !     THEN    signal(i,fault);
  1595.           trapflg[i] &= ~SIGMOD;
  1596.       FI
  1597.   }
  1598.  
  1599. --- 113,122 -----
  1600.   {
  1601.       free(trapcom[i]); trapcom[i]=0;
  1602.       IF trapflg[i]&SIGMOD
  1603. !     THEN    IF trapflg[i]&SIGCAUGHT
  1604. !         THEN signal(i,fault);
  1605. !         ELSE signal(i,0);
  1606. !         FI
  1607.           trapflg[i] &= ~SIGMOD;
  1608.       FI
  1609.   }
  1610. :::::::: io.c :::::::
  1611. *** ../orig.u/io.c    Wed May 15 17:13:45 1985
  1612. --- io.c    Mon Jun  3 17:03:11 1985
  1613. ***************
  1614. *** 22,28
  1615.   {
  1616.       REG FILE    f=standin;
  1617.   
  1618. !     f->fdes=fd; f->fsiz=((flags&(oneflg|ttyflg))==0 ? BUFSIZ : 1);
  1619.       f->fnxt=f->fend=f->fbuf; f->feval=0; f->flin=1;
  1620.       f->feof=FALSE;
  1621.   }
  1622.  
  1623. --- 22,28 -----
  1624.   {
  1625.       REG FILE    f=standin;
  1626.   
  1627. !     f->fdes=fd; f->fsiz=((flags&oneflg)==0 ? BUFSIZ : 1);
  1628.       f->fnxt=f->fend=f->fbuf; f->feval=0; f->flin=1;
  1629.       f->feof=FALSE;
  1630.   }
  1631. ***************
  1632. *** 60,65
  1633.       FI
  1634.   }
  1635.   
  1636.   chkpipe(pv)
  1637.       INT        *pv;
  1638.   {
  1639.  
  1640. --- 60,86 -----
  1641.       FI
  1642.   }
  1643.   
  1644. + TEMPBPTR    tmpfptr;
  1645. + 
  1646. + pushtemp(fd, tb)
  1647. +     UFD    fd;
  1648. +     TEMPBPTR    tb;
  1649. + {
  1650. +     tb->fdes = fd;
  1651. +     tb->fstak = tmpfptr;
  1652. +     tmpfptr = tb;
  1653. + }
  1654. + 
  1655. + poptemp()
  1656. + {
  1657. +     IF tmpfptr
  1658. +     THEN    close(tmpfptr->fdes);
  1659. +         tmpfptr = tmpfptr->fstak;
  1660. +         return(TRUE);
  1661. +     ELSE    return (FALSE);
  1662. +     FI
  1663. + }
  1664. + 
  1665.   chkpipe(pv)
  1666.       INT        *pv;
  1667.   {
  1668. ***************
  1669. *** 100,106
  1670.       FI
  1671.   }
  1672.   
  1673. ! tmpfil()
  1674.   {
  1675.       itos(serial++); movstr(numbuf,tmpnam);
  1676.       return(create(tmpout));
  1677.  
  1678. --- 121,128 -----
  1679.       FI
  1680.   }
  1681.   
  1682. ! tmpfil(tb)
  1683. !     TEMPBPTR tb;
  1684.   {
  1685.       INT fd;
  1686.   
  1687. ***************
  1688. *** 102,107
  1689.   
  1690.   tmpfil()
  1691.   {
  1692.       itos(serial++); movstr(numbuf,tmpnam);
  1693.       return(create(tmpout));
  1694.   }
  1695.  
  1696. --- 124,131 -----
  1697.   tmpfil(tb)
  1698.       TEMPBPTR tb;
  1699.   {
  1700. +     INT fd;
  1701. + 
  1702.       itos(serial++); movstr(numbuf,tmpnam);
  1703.       fd = create(tmpout);
  1704.       pushtemp(fd, tb);
  1705. ***************
  1706. *** 103,109
  1707.   tmpfil()
  1708.   {
  1709.       itos(serial++); movstr(numbuf,tmpnam);
  1710. !     return(create(tmpout));
  1711.   }
  1712.   
  1713.   /* set by trim */
  1714.  
  1715. --- 127,135 -----
  1716.       INT fd;
  1717.   
  1718.       itos(serial++); movstr(numbuf,tmpnam);
  1719. !     fd = create(tmpout);
  1720. !     pushtemp(fd, tb);
  1721. !     return (fd);
  1722.   }
  1723.   
  1724.   /* set by trim */
  1725. ***************
  1726. *** 118,124
  1727.       REG IOPTR    iop;
  1728.   
  1729.       IF iop=ioparg
  1730. !     THEN    copy(iop->iolst);
  1731.           ends=mactrim(iop->ioname); IF nosubst THEN iop->iofile &= ~IODOC FI
  1732.           fd=tmpfil();
  1733.           iop->ioname=cpystak(tmpout);
  1734.  
  1735. --- 144,151 -----
  1736.       REG IOPTR    iop;
  1737.   
  1738.       IF iop=ioparg
  1739. !     THEN    TEMPBLK    tb;
  1740. !         copy(iop->iolst);
  1741.           ends=mactrim(iop->ioname); IF nosubst THEN iop->iofile &= ~IODOC FI
  1742.           fd=tmpfil(&tb);
  1743.           iop->ioname=cpystak(tmpout);
  1744. ***************
  1745. *** 120,126
  1746.       IF iop=ioparg
  1747.       THEN    copy(iop->iolst);
  1748.           ends=mactrim(iop->ioname); IF nosubst THEN iop->iofile &= ~IODOC FI
  1749. !         fd=tmpfil();
  1750.           iop->ioname=cpystak(tmpout);
  1751.           iop->iolst=iotemp; iotemp=iop;
  1752.           cline=locstak();
  1753.  
  1754. --- 147,153 -----
  1755.       THEN    TEMPBLK    tb;
  1756.           copy(iop->iolst);
  1757.           ends=mactrim(iop->ioname); IF nosubst THEN iop->iofile &= ~IODOC FI
  1758. !         fd=tmpfil(&tb);
  1759.           iop->ioname=cpystak(tmpout);
  1760.           iop->iolst=iotemp; iotemp=iop;
  1761.           cline=locstak();
  1762. ***************
  1763. *** 125,130
  1764.           iop->iolst=iotemp; iotemp=iop;
  1765.           cline=locstak();
  1766.   
  1767.           LOOP    clinep=cline; chkpr(NL);
  1768.               WHILE (c = (nosubst ? readc() :  nextc(*ends)),  !eolchar(c)) DO *clinep++ = c OD
  1769.               *clinep=0;
  1770.  
  1771. --- 152,160 -----
  1772.           iop->iolst=iotemp; iotemp=iop;
  1773.           cline=locstak();
  1774.   
  1775. +         IF stripflg
  1776. +         THEN    WHILE *ends=='\t' DO ends++ OD
  1777. +         FI
  1778.           LOOP    clinep=cline; chkpr(NL);
  1779.               IF stripflg
  1780.               THEN
  1781. ***************
  1782. *** 126,132
  1783.           cline=locstak();
  1784.   
  1785.           LOOP    clinep=cline; chkpr(NL);
  1786. !             WHILE (c = (nosubst ? readc() :  nextc(*ends)),  !eolchar(c)) DO *clinep++ = c OD
  1787.               *clinep=0;
  1788.               IF eof ORF eq(cline,ends) THEN break FI
  1789.               *clinep++=NL;
  1790.  
  1791. --- 156,172 -----
  1792.           THEN    WHILE *ends=='\t' DO ends++ OD
  1793.           FI
  1794.           LOOP    clinep=cline; chkpr(NL);
  1795. !             IF stripflg
  1796. !             THEN
  1797. !                 WHILE (c=(nosubst ? readc() : nextc(*ends)), !eolchar(c))
  1798. !                 && cline == clinep && c == '\t' DONE
  1799. !                 WHILE (!eolchar(c))
  1800. !                 DO
  1801. !                     *clinep++=c;
  1802. !                     c=(nosubst ? readc() : nextc(*ends));
  1803. !                 OD
  1804. !             ELSE WHILE (c = (nosubst ? readc() :  nextc(*ends)),  !eolchar(c)) DO *clinep++ = c OD
  1805. !             FI
  1806.               *clinep=0;
  1807.               IF eof ORF eq(cline,ends) THEN break FI
  1808.               *clinep++=NL;
  1809. ***************
  1810. *** 132,137
  1811.               *clinep++=NL;
  1812.               write(fd,cline,clinep-cline);
  1813.           POOL
  1814. !         close(fd);
  1815.       FI
  1816.   }
  1817.  
  1818. --- 172,179 -----
  1819.               *clinep++=NL;
  1820.               write(fd,cline,clinep-cline);
  1821.           POOL
  1822. !         IF stripflg THEN stripflg-- FI
  1823. !         poptemp();    /* pushed in tmpfil -- bug fix for problem
  1824. !                    deleting in-line scripts */
  1825.       FI
  1826.   }
  1827. :::::::: mac.h :::::::
  1828. *** ../orig.u/mac.h    Wed May 15 17:13:45 1985
  1829. --- mac.h    Thu May 30 16:54:52 1985
  1830. ***************
  1831. *** 59,63
  1832.   #define RQ    '\''
  1833.   #define MINUS    '-'
  1834.   #define COLON    ':'
  1835.   
  1836.   #define MAX(a,b)    ((a)>(b)?(a):(b))
  1837.  
  1838. --- 59,64 -----
  1839.   #define RQ    '\''
  1840.   #define MINUS    '-'
  1841.   #define COLON    ':'
  1842. + #define SQUIGGLE    '~'    /* BSD tty driver defines TILDE */
  1843.   
  1844.   #define MAX(a,b)    ((a)>(b)?(a):(b))
  1845. :::::::: macro.c :::::::
  1846. *** ../orig.u/macro.c    Wed May 15 17:13:45 1985
  1847. --- macro.c    Tue Jun  4 10:25:36 1985
  1848. ***************
  1849. *** 60,65
  1850.       IF !subchar(d)
  1851.       THEN    return(d);
  1852.       FI
  1853.       IF d==DOLLAR
  1854.       THEN    REG INT    c;
  1855.           IF (c=readc(), dolchar(c))
  1856.  
  1857. --- 60,79 -----
  1858.       IF !subchar(d)
  1859.       THEN    return(d);
  1860.       FI
  1861. + #if JOBS
  1862. +     IF d==PERCENT ANDF (flags&jobflg)
  1863. +     THEN    REG INT c;
  1864. +         IF (peekc = (c=readc())|MARK, digchar(c) ORF c==PERCENT)
  1865. +         THEN    REG STRING v;
  1866. + 
  1867. +             IF v=j_macro()    /* %number or %% handled */
  1868. +             THEN    WHILE c = *v++ DO pushstak(c|quote); OD
  1869. +             /* else expands to nothingness */
  1870. +             FI
  1871. +             goto retry;
  1872. +         FI
  1873. +     ELIF d==DOLLAR
  1874. + #else
  1875.       IF d==DOLLAR
  1876.   #endif
  1877.       THEN    REG INT    c;
  1878. ***************
  1879. *** 61,66
  1880.       THEN    return(d);
  1881.       FI
  1882.       IF d==DOLLAR
  1883.       THEN    REG INT    c;
  1884.           IF (c=readc(), dolchar(c))
  1885.           THEN    NAMPTR        n=NIL;
  1886.  
  1887. --- 75,81 -----
  1888.       ELIF d==DOLLAR
  1889.   #else
  1890.       IF d==DOLLAR
  1891. + #endif
  1892.       THEN    REG INT    c;
  1893.           IF (c=readc(), dolchar(c))
  1894.           THEN    NAMPTR        n=NIL;
  1895. ***************
  1896. *** 66,71
  1897.           THEN    NAMPTR        n=NIL;
  1898.               INT        dolg=0;
  1899.               BOOL        bra;
  1900.               REG STRING    argp, v;
  1901.               CHAR        idb[2];
  1902.               STRING        id=idb;
  1903.  
  1904. --- 81,87 -----
  1905.           THEN    NAMPTR        n=NIL;
  1906.               INT        dolg=0;
  1907.               BOOL        bra;
  1908. +             BOOL        nulflg;
  1909.               REG STRING    argp, v;
  1910.               CHAR        idb[2];
  1911.               STRING        id=idb;
  1912. ***************
  1913. *** 87,92
  1914.                   v=((c==0) ? cmdadr : (c<=dolc) ? dolv[c] : (dolg=0));
  1915.               ELIF c=='$'
  1916.               THEN    v=pidadr;
  1917.               ELIF c=='!'
  1918.               THEN    v=pcsadr;
  1919.               ELIF c=='#'
  1920.  
  1921. --- 103,114 -----
  1922.                   v=((c==0) ? cmdadr : (c<=dolc) ? dolv[c] : (dolg=0));
  1923.               ELIF c=='$'
  1924.               THEN    v=pidadr;
  1925. +             ELIF c=='+'
  1926. +             THEN    IF ppid != getppid()    /* parent died */
  1927. +                 THEN    ppid = getppid();
  1928. +                     assnum (&ppidadr, ppid);
  1929. +                 FI
  1930. +                 v = ppidadr;
  1931.               ELIF c=='!'
  1932.               THEN    v=pcsadr;
  1933.               ELIF c=='#'
  1934. ***************
  1935. *** 99,104
  1936.               ELSE    goto retry;
  1937.               FI
  1938.               c = readc();
  1939.               IF !defchar(c) ANDF bra
  1940.               THEN    error(badsub);
  1941.               FI
  1942.  
  1943. --- 121,130 -----
  1944.               ELSE    goto retry;
  1945.               FI
  1946.               c = readc();
  1947. +             IF c==':' ANDF bra    /* null and unset fix */
  1948. +             THEN    nulflg=1; c=readc();
  1949. +             ELSE    nulflg=0;
  1950. +             FI
  1951.               IF !defchar(c) ANDF bra
  1952.               THEN    error(badsub);
  1953.               FI
  1954. ***************
  1955. *** 106,112
  1956.               IF bra
  1957.               THEN    IF c!='}'
  1958.                   THEN    argp=relstak();
  1959. !                     IF (v==0)NEQ(setchar(c))
  1960.                       THEN    copyto('}');
  1961.                       ELSE    skipto('}');
  1962.                       FI
  1963.  
  1964. --- 132,138 -----
  1965.               IF bra
  1966.               THEN    IF c!='}'
  1967.                   THEN    argp=relstak();
  1968. !                     IF (v==0 ORF (nulflg ANDF *v==0))NEQ(setchar(c))
  1969.                       THEN    copyto('}');
  1970.                       ELSE    skipto('}');
  1971.                       FI
  1972. ***************
  1973. *** 114,120
  1974.                   FI
  1975.               ELSE    peekc = c|MARK; c = 0;
  1976.               FI
  1977. !             IF v
  1978.               THEN    IF c!='+'
  1979.                   THEN    LOOP WHILE c = *v++
  1980.                            DO pushstak(c|quote); OD
  1981.  
  1982. --- 140,146 -----
  1983.                   FI
  1984.               ELSE    peekc = c|MARK; c = 0;
  1985.               FI
  1986. !             IF v ANDF (!nulflg ORF *v)
  1987.               THEN    IF c!='+'
  1988.                   THEN    LOOP WHILE c = *v++
  1989.                            DO pushstak(c|quote); OD
  1990. ***************
  1991. *** 129,135
  1992.                   THEN    failed(id,*argp?argp:badparam);
  1993.                   ELIF c=='='
  1994.                   THEN    IF n
  1995. !                     THEN    assign(n,argp);
  1996.                       ELSE    error(badsub);
  1997.                       FI
  1998.                   FI
  1999.  
  2000. --- 155,162 -----
  2001.                   THEN    failed(id,*argp?argp:badparam);
  2002.                   ELIF c=='='
  2003.                   THEN    IF n
  2004. !                     THEN    trim(argp);
  2005. !                         assign(n,argp);
  2006.                       ELSE    error(badsub);
  2007.                       FI
  2008.                   FI
  2009. ***************
  2010. *** 185,190
  2011.          trim(argc=fixstak());
  2012.          push(&cb); estabf(argc);
  2013.       END
  2014.       BEGIN
  2015.          REG TREPTR    t = makefork(FPOU,cmd(EOFSYM,MTFLG|NLFLG));
  2016.          INT        pv[2];
  2017.  
  2018. --- 212,220 -----
  2019.          trim(argc=fixstak());
  2020.          push(&cb); estabf(argc);
  2021.       END
  2022. + #if JOBS
  2023. +     set_wfence();
  2024. + #endif
  2025.       BEGIN
  2026.          REG TREPTR    t = makefork(FPOU,cmd(EOFSYM,MTFLG|NLFLG));
  2027.          INT        pv[2];
  2028. ***************
  2029. *** 194,200
  2030.           */
  2031.          chkpipe(pv);
  2032.          initf(pv[INPIPE]);
  2033. !        execute(t, 0, 0, pv);
  2034.          close(pv[OTPIPE]);
  2035.       END
  2036.       tdystak(savptr); staktop=movstr(savptr,stakbot);
  2037.  
  2038. --- 224,230 -----
  2039.           */
  2040.          chkpipe(pv);
  2041.          initf(pv[INPIPE]);
  2042. !        execute(t, 0, flags & errflg, 0, pv);
  2043.          close(pv[OTPIPE]);
  2044.       END
  2045.       tdystak(savptr); staktop=movstr(savptr,stakbot);
  2046. ***************
  2047. *** 198,205
  2048.          close(pv[OTPIPE]);
  2049.       END
  2050.       tdystak(savptr); staktop=movstr(savptr,stakbot);
  2051. !     WHILE d=readc() DO locstak(); pushstak(d|quote) OD
  2052. !     await(0);
  2053.       WHILE stakbot!=staktop
  2054.       DO    IF (*--staktop&STRIP)!=NL
  2055.           THEN    ++staktop; break;
  2056.  
  2057. --- 228,235 -----
  2058.          close(pv[OTPIPE]);
  2059.       END
  2060.       tdystak(savptr); staktop=movstr(savptr,stakbot);
  2061. !     WHILE d=readc() DO pushstak(d|quote) OD
  2062. !     await(0, 0);
  2063.       WHILE stakbot!=staktop
  2064.       DO    IF (*--staktop&STRIP)!=NL
  2065.           THEN    ++staktop; break;
  2066. :::::::: main.c :::::::
  2067. *** ../orig.u/main.c    Wed May 15 17:13:45 1985
  2068. --- main.c    Tue Jun  4 14:32:21 1985
  2069. ***************
  2070. *** 24,29
  2071.   CHAR        tmpout[20] = "/tmp/sh-";
  2072.   FILEBLK        stdfile;
  2073.   FILE        standin = &stdfile;
  2074.   #ifdef stupid
  2075.   #include    <execargs.h>
  2076.   #endif
  2077.  
  2078. --- 24,30 -----
  2079.   CHAR        tmpout[20] = "/tmp/sh-";
  2080.   FILEBLK        stdfile;
  2081.   FILE        standin = &stdfile;
  2082. + BOOL        catcheof = FALSE;
  2083.   #ifdef stupid
  2084.   #include    <execargs.h>
  2085.   #endif
  2086. ***************
  2087. *** 33,39
  2088.   
  2089.   
  2090.   
  2091. ! main(c, v)
  2092.       INT        c;
  2093.       STRING        v[];
  2094.   {
  2095.  
  2096. --- 34,40 -----
  2097.   
  2098.   
  2099.   
  2100. ! main(c, v, e)
  2101.       INT        c;
  2102.       STRING        v[];
  2103.       STRING        e[];
  2104. ***************
  2105. *** 36,41
  2106.   main(c, v)
  2107.       INT        c;
  2108.       STRING        v[];
  2109.   {
  2110.       REG INT        rflag=ttyflg;
  2111.   
  2112.  
  2113. --- 37,43 -----
  2114.   main(c, v, e)
  2115.       INT        c;
  2116.       STRING        v[];
  2117. +     STRING        e[];
  2118.   {
  2119.       REG INT        rflag=ttyflg;
  2120.       STRING    sim;
  2121. ***************
  2122. *** 38,43
  2123.       STRING        v[];
  2124.   {
  2125.       REG INT        rflag=ttyflg;
  2126.   
  2127.       /* initialise storage allocation */
  2128.       stdsigs();
  2129.  
  2130. --- 40,46 -----
  2131.       STRING        e[];
  2132.   {
  2133.       REG INT        rflag=ttyflg;
  2134. +     STRING    sim;
  2135.   
  2136.       /* initialise storage allocation */
  2137.       stdsigs();
  2138. ***************
  2139. *** 58,63
  2140.       FI
  2141.       dolv=v+c-dolc; dolc--;
  2142.   
  2143.       /* return here for shell file execution */
  2144.       setjmp(subshell);
  2145.   
  2146.  
  2147. --- 61,84 -----
  2148.       FI
  2149.       dolv=v+c-dolc; dolc--;
  2150.   
  2151. + #if JOBS
  2152. +     j_default_pg = getpid();
  2153. +     j_original_pg = getpgrp();
  2154. +     /* enable job control if argv[0] has a 'j' in its simple name */
  2155. + 
  2156. +     IF (flags & jobflg) == 0 ANDF c > 0 ANDF any('j', simple(*v))
  2157. +         ANDF comdiv == 0 ANDF flags & stdflg
  2158. +     THEN
  2159. +         STRING    pointer;
  2160. + 
  2161. +         j_init();
  2162. +         flags |= jobflg;
  2163. +         pointer = flagadr;
  2164. +         WHILE *pointer DO pointer++; OD
  2165. +         *pointer++ = 'J'; *pointer = 0;
  2166. +     FI
  2167. + #endif
  2168. + 
  2169.       /* return here for shell file execution */
  2170.       /* but not for parenthesis subshells    */
  2171.       setjmp(subshell);
  2172. ***************
  2173. *** 59,64
  2174.       dolv=v+c-dolc; dolc--;
  2175.   
  2176.       /* return here for shell file execution */
  2177.       setjmp(subshell);
  2178.   
  2179.       /* number of positional parameters */
  2180.  
  2181. --- 80,86 -----
  2182.   #endif
  2183.   
  2184.       /* return here for shell file execution */
  2185. +     /* but not for parenthesis subshells    */
  2186.       setjmp(subshell);
  2187.   
  2188.       /* number of positional parameters */
  2189. ***************
  2190. *** 63,69
  2191.   
  2192.       /* number of positional parameters */
  2193.       assnum(&dolladr,dolc);
  2194. !     cmdadr=dolv[0];
  2195.   
  2196.       /* set pidname */
  2197.       assnum(&pidadr, getpid());
  2198.  
  2199. --- 85,91 -----
  2200.   
  2201.       /* number of positional parameters */
  2202.       assnum(&dolladr,dolc);
  2203. !     cmdadr=dolv[0];    /* cmdadr is $0 */
  2204.   
  2205.       /* set pidname */
  2206.       assnum(&pidadr, getpid());
  2207. ***************
  2208. *** 68,73
  2209.       /* set pidname */
  2210.       assnum(&pidadr, getpid());
  2211.   
  2212.       /* set up temp file names */
  2213.       settmp();
  2214.   
  2215.  
  2216. --- 90,99 -----
  2217.       /* set pidname */
  2218.       assnum(&pidadr, getpid());
  2219.   
  2220. +     /* set ppidname */
  2221. +     ppid = getppid();
  2222. +     assnum(&ppidadr, ppid);
  2223. + 
  2224.       /* set up temp file names */
  2225.       settmp();
  2226.   
  2227. ***************
  2228. *** 74,80
  2229.       /* default ifs */
  2230.       dfault(&ifsnod, sptbnl);
  2231.   
  2232. !     IF (beenhere++)==FALSE
  2233.       THEN    /* ? profile */
  2234.           IF *cmdadr=='-'
  2235.               ANDF (input=pathopen(nullstr, profile))>=0
  2236.  
  2237. --- 100,129 -----
  2238.       /* default ifs */
  2239.       dfault(&ifsnod, sptbnl);
  2240.   
  2241. ! #if pyr
  2242. !     /* find out current universe, initialize $UNIVERSE */
  2243. !     cur_univ = setuniverse (U_UCB);    /* retrieve old and set to UCB */
  2244. !     IF cur_univ == -1
  2245. !     THEN    /* unknown current default to UCB */
  2246. !         cur_univ = U_UCB;
  2247. !         setuniverse (U_UCB);
  2248. !     ELIF cur_univ != U_UCB
  2249. !     THEN    setuniverse (cur_univ);    /* restore to what it was */
  2250. !     FI
  2251. ! 
  2252. !     /* force value of UNIVERSE, ignore environment */
  2253. !     univnod.namflg &= ~N_RDONLY;    /* for subshells ... */
  2254. !     assign (&univnod, univ_name[cur_univ - 1]);
  2255. !     attrib ((&univnod), N_RDONLY);
  2256. ! #endif
  2257. ! 
  2258. !     /* assign default value to HISTFILE */
  2259. !     (VOID) catpath("~", savehist);
  2260. !     dfault (& histfnod, curstak());
  2261. ! 
  2262. !     event_count = 1;
  2263. ! 
  2264. !     IF beenhere==FALSE
  2265.       THEN    /* ? profile */
  2266.           beenhere++;    /* DAG -- only increment once */
  2267.           IF *(sim = simple(cmdadr))=='-'
  2268. ***************
  2269. *** 76,83
  2270.   
  2271.       IF (beenhere++)==FALSE
  2272.       THEN    /* ? profile */
  2273. !         IF *cmdadr=='-'
  2274. !             ANDF (input=pathopen(nullstr, profile))>=0
  2275.           THEN    exfile(rflag); flags &= ~ttyflg;
  2276.           FI
  2277.           IF rflag==0 THEN flags |= rshflg FI
  2278.  
  2279. --- 125,139 -----
  2280.   
  2281.       IF beenhere==FALSE
  2282.       THEN    /* ? profile */
  2283. !         beenhere++;    /* DAG -- only increment once */
  2284. !         IF *(sim = simple(cmdadr))=='-'
  2285. !         THEN    IF getuid() != geteuid() THEN setuid(getuid()) FI
  2286. !             IF getgid() != getegid() THEN setgid(getgid()) FI
  2287. !         FI
  2288. ! 
  2289. !         /* to read /etc/profile, add code here */
  2290. ! 
  2291. !         IF *sim=='-' ANDF (input=pathopen(nullstr, profile))>=0
  2292.           THEN    exfile(rflag); flags &= ~ttyflg;
  2293.           FI
  2294.           IF rflag==0 THEN flags |= rshflg FI
  2295. ***************
  2296. *** 82,87
  2297.           FI
  2298.           IF rflag==0 THEN flags |= rshflg FI
  2299.   
  2300.           /* open input file if specified */
  2301.           IF comdiv
  2302.           THEN    estabf(comdiv); input = -1;
  2303.  
  2304. --- 138,156 -----
  2305.           FI
  2306.           IF rflag==0 THEN flags |= rshflg FI
  2307.   
  2308. +         /* if all OK, process $HOME/.shrc */
  2309. +         IF geteuid() == getuid() ANDF getegid() == getgid()
  2310. +             ANDF (flags&(rshflg|quickflg)) == 0
  2311. +             ANDF (input = pathopen("~", shrc)) >= 0
  2312. +         THEN
  2313. +             INT promptflags = (flags & (ttyflg|intflg|prompt));
  2314. + 
  2315. +             /* turn off anything that will cause prompting */
  2316. +             flags &= ~promptflags;
  2317. +             exfile(rflag);
  2318. +             flags |= promptflags;
  2319. +         FI
  2320. + 
  2321.           /* open input file if specified */
  2322.           IF comdiv
  2323.           THEN    estabf(comdiv); input = -1;
  2324. ***************
  2325. *** 119,125
  2326.       userid=getuid();
  2327.   
  2328.       /* decide whether interactive */
  2329. !     IF (flags&intflg) ORF ((flags&oneflg)==0 ANDF gtty(output,&statb)==0 ANDF gtty(input,&statb)==0)
  2330.       THEN    dfault(&ps1nod, (userid?stdprompt:supprompt));
  2331.           dfault(&ps2nod, readmsg);
  2332.           flags |= ttyflg|prompt; ignsig(KILL);
  2333.  
  2334. --- 188,194 -----
  2335.       userid=getuid();
  2336.   
  2337.       /* decide whether interactive */
  2338. !     IF (flags&intflg) ORF ((flags&oneflg)==0 ANDF isatty(output) ANDF isatty(input))
  2339.       THEN    dfault(&ps1nod, (userid?stdprompt:supprompt));
  2340.           dfault(&ps2nod, readmsg);
  2341.           flags |= ttyflg|prompt; ignsig(KILL);
  2342. ***************
  2343. *** 123,136
  2344.       THEN    dfault(&ps1nod, (userid?stdprompt:supprompt));
  2345.           dfault(&ps2nod, readmsg);
  2346.           flags |= ttyflg|prompt; ignsig(KILL);
  2347. ! /*
  2348. !         {
  2349. !     #include <signal.h>
  2350. !         signal(SIGTTIN, SIG_IGN);
  2351. !         signal(SIGTTOU, SIG_IGN);
  2352. !         signal(SIGTSTP, SIG_IGN);
  2353. !         }
  2354. ! */
  2355.       ELSE    flags |= prof; flags &= ~prompt;
  2356.       FI
  2357.   
  2358.  
  2359. --- 192,199 -----
  2360.       THEN    dfault(&ps1nod, (userid?stdprompt:supprompt));
  2361.           dfault(&ps2nod, readmsg);
  2362.           flags |= ttyflg|prompt; ignsig(KILL);
  2363. !         /* restore previous history */
  2364. !         histrest (histfnod.namval);
  2365.       ELSE    flags |= prof; flags &= ~prompt;
  2366.       FI
  2367.   
  2368. ***************
  2369. *** 148,157
  2370.           exitset();
  2371.           IF (flags&prompt) ANDF standin->fstak==0 ANDF !eof
  2372.           THEN    IF mailnod.namval
  2373. !                 ANDF stat(mailnod.namval,&statb)>=0 ANDF statb.st_size
  2374. !                 ANDF (statb.st_mtime != mailtime)
  2375. !                 ANDF mailtime
  2376. !             THEN    prs(mailmsg)
  2377.               FI
  2378.               mailtime=statb.st_mtime;
  2379.               prs(ps1nod.namval);
  2380.  
  2381. --- 211,225 -----
  2382.           exitset();
  2383.           IF (flags&prompt) ANDF standin->fstak==0 ANDF !eof
  2384.           THEN    IF mailnod.namval
  2385. !                 ANDF *mailnod.namval
  2386. !             THEN IF stat(mailnod.namval,&statb)>=0 ANDF statb.st_size
  2387. !                     ANDF mailtime
  2388. !                     ANDF (statb.st_mtime != mailtime)
  2389. !                 THEN    prs(mailmsg)
  2390. !                 FI
  2391. !                 mailtime=statb.st_mtime;
  2392. !             ELIF mailtime==0
  2393. !             THEN mailtime=1
  2394.               FI
  2395.               pr_prompt(ps1nod.namval);
  2396.               IF userid==0 ANDF !eq(ps1nod.namval, supprompt)
  2397. ***************
  2398. *** 153,160
  2399.                   ANDF mailtime
  2400.               THEN    prs(mailmsg)
  2401.               FI
  2402. !             mailtime=statb.st_mtime;
  2403. !             prs(ps1nod.namval);
  2404.           FI
  2405.   
  2406.           trapnote=0; peekc=readc();
  2407.  
  2408. --- 221,230 -----
  2409.               ELIF mailtime==0
  2410.               THEN mailtime=1
  2411.               FI
  2412. !             pr_prompt(ps1nod.namval);
  2413. !             IF userid==0 ANDF !eq(ps1nod.namval, supprompt)
  2414. !             THEN    prs(supprompt);
  2415. !             FI
  2416.           FI
  2417.   
  2418.           catcheof = TRUE;
  2419. ***************
  2420. *** 157,162
  2421.               prs(ps1nod.namval);
  2422.           FI
  2423.   
  2424.           trapnote=0; peekc=readc();
  2425.           IF eof
  2426.           THEN    return;
  2427.  
  2428. --- 227,233 -----
  2429.               FI
  2430.           FI
  2431.   
  2432. +         catcheof = TRUE;
  2433.           trapnote=0; peekc=readc();
  2434.           catcheof = FALSE;
  2435.           IF eof
  2436. ***************
  2437. *** 158,163
  2438.           FI
  2439.   
  2440.           trapnote=0; peekc=readc();
  2441.           IF eof
  2442.           THEN    return;
  2443.           FI
  2444.  
  2445. --- 229,235 -----
  2446.   
  2447.           catcheof = TRUE;
  2448.           trapnote=0; peekc=readc();
  2449. +         catcheof = FALSE;
  2450.           IF eof
  2451.           THEN    return;
  2452.           FI
  2453. ***************
  2454. *** 161,167
  2455.           IF eof
  2456.           THEN    return;
  2457.           FI
  2458. !         execute(cmd(NL,MTFLG),0);
  2459.           eof |= (flags&oneflg);
  2460.       POOL
  2461.   }
  2462.  
  2463. --- 233,239 -----
  2464.           IF eof
  2465.           THEN    return;
  2466.           FI
  2467. !         execute(cmd(NL,MTFLG),0, eflag);
  2468.           eof |= (flags&oneflg);
  2469.       POOL
  2470.   }
  2471. :::::::: mode.h :::::::
  2472. *** ../orig.u/mode.h    Wed May 15 17:13:45 1985
  2473. --- mode.h    Thu May 30 17:59:10 1985
  2474. ***************
  2475. *** 26,31
  2476.   STRUCT stat    STATBUF;    /* defined in /usr/sys/stat.h */
  2477.   STRUCT blk    *BLKPTR;
  2478.   STRUCT fileblk    FILEBLK;
  2479.   STRUCT filehdr    FILEHDR;
  2480.   STRUCT fileblk    *FILE;
  2481.   STRUCT trenod    *TREPTR;
  2482.  
  2483. --- 26,33 -----
  2484.   STRUCT stat    STATBUF;    /* defined in /usr/sys/stat.h */
  2485.   STRUCT blk    *BLKPTR;
  2486.   STRUCT fileblk    FILEBLK;
  2487. + STRUCT tempblk    TEMPBLK;
  2488. + STRUCT tempblk    *TEMPBPTR;
  2489.   STRUCT filehdr    FILEHDR;
  2490.   STRUCT fileblk    *FILE;
  2491.   STRUCT trenod    *TREPTR;
  2492. ***************
  2493. *** 96,101
  2494.       STRING    *feval;
  2495.       FILE    fstak;
  2496.       CHAR    fbuf[BUFSIZ];
  2497.   };
  2498.   
  2499.   /* for files not used with file descriptors */
  2500.  
  2501. --- 98,108 -----
  2502.       STRING    *feval;
  2503.       FILE    fstak;
  2504.       CHAR    fbuf[BUFSIZ];
  2505. + };
  2506. + 
  2507. + struct tempblk {
  2508. +     UFD    fdes;
  2509. +     struct    tempblk *fstak;
  2510.   };
  2511.   
  2512.   /* for files not used with file descriptors */
  2513. :::::::: msg.c :::::::
  2514. *** ../orig.u/msg.c    Wed May 15 17:13:45 1985
  2515. --- msg.c    Tue Jun  4 18:01:36 1985
  2516. ***************
  2517. *** 15,20
  2518.   #include    "defs.h"
  2519.   #include    "sym.h"
  2520.   
  2521.   MSG        version = "\nVERSION sys137    DATE 1978 Nov 6 14:29:22\n";
  2522.   
  2523.   /* error messages */
  2524.  
  2525. --- 15,23 -----
  2526.   #include    "defs.h"
  2527.   #include    "sym.h"
  2528.   
  2529. + #if JOBS
  2530. + MSG    version = "@(#)Bourne shell, BRL + GT mods\t30-May-1985";
  2531. + #else
  2532.   MSG        version = "\nVERSION sys137    DATE 1978 Nov 6 14:29:22\n";
  2533.   #endif
  2534.   
  2535. ***************
  2536. *** 16,21
  2537.   #include    "sym.h"
  2538.   
  2539.   MSG        version = "\nVERSION sys137    DATE 1978 Nov 6 14:29:22\n";
  2540.   
  2541.   /* error messages */
  2542.   MSG    badopt        = "bad option(s)";
  2543.  
  2544. --- 19,25 -----
  2545.   MSG    version = "@(#)Bourne shell, BRL + GT mods\t30-May-1985";
  2546.   #else
  2547.   MSG        version = "\nVERSION sys137    DATE 1978 Nov 6 14:29:22\n";
  2548. + #endif
  2549.   
  2550.   /* error messages */
  2551.   MSG    badopt        = "bad option(s)";
  2552. ***************
  2553. *** 19,24
  2554.   
  2555.   /* error messages */
  2556.   MSG    badopt        = "bad option(s)";
  2557.   MSG    mailmsg        = "you have mail\n";
  2558.   MSG    nospace        = "no space";
  2559.   MSG    synmsg        = "syntax error";
  2560.  
  2561. --- 23,31 -----
  2562.   
  2563.   /* error messages */
  2564.   MSG    badopt        = "bad option(s)";
  2565. + #if JOBS
  2566. + MSG    mailmsg        = "You have new mail.\n";
  2567. + #else
  2568.   MSG    mailmsg        = "you have mail\n";
  2569.   #endif
  2570.   MSG    nospace        = "no space";
  2571. ***************
  2572. *** 20,25
  2573.   /* error messages */
  2574.   MSG    badopt        = "bad option(s)";
  2575.   MSG    mailmsg        = "you have mail\n";
  2576.   MSG    nospace        = "no space";
  2577.   MSG    synmsg        = "syntax error";
  2578.   
  2579.  
  2580. --- 27,33 -----
  2581.   MSG    mailmsg        = "You have new mail.\n";
  2582.   #else
  2583.   MSG    mailmsg        = "you have mail\n";
  2584. + #endif
  2585.   MSG    nospace        = "no space";
  2586.   MSG    synmsg        = "syntax error";
  2587.   
  2588. ***************
  2589. *** 52,57
  2590.   MSG    ifsname        = "IFS";
  2591.   MSG    ps1name        = "PS1";
  2592.   MSG    ps2name        = "PS2";
  2593.   
  2594.   /* string constants */
  2595.   MSG    nullstr        = "";
  2596.  
  2597. --- 60,69 -----
  2598.   MSG    ifsname        = "IFS";
  2599.   MSG    ps1name        = "PS1";
  2600.   MSG    ps2name        = "PS2";
  2601. + #if pyr
  2602. + MSG    univname    = "UNIVERSE";
  2603. + #endif
  2604. + MSG    histfilename    = "HISTFILE";
  2605.   
  2606.   /* string constants */
  2607.   MSG    nullstr        = "";
  2608. ***************
  2609. *** 68,73
  2610.   MSG    stdprompt    = "$ ";
  2611.   MSG    supprompt    = "# ";
  2612.   MSG    profile        = ".profile";
  2613.   
  2614.   
  2615.   /* tables */
  2616.  
  2617. --- 80,138 -----
  2618.   MSG    stdprompt    = "$ ";
  2619.   MSG    supprompt    = "# ";
  2620.   MSG    profile        = ".profile";
  2621. + MSG    shrc        = ".shrc";
  2622. + MSG    savehist    = ".history";
  2623. + MSG    dashi        = "-i";
  2624. + #if pyr
  2625. + MSG    dashl        = "-l";
  2626. + #endif
  2627. + MSG    dashr        = "-r";
  2628. + MSG    dashs        = "-s";
  2629. + #if JOBS
  2630. + MSG    amperstr    = " &";                /* DAG */
  2631. + MSG    andstr        = " && ";            /* DAG */
  2632. + MSG    appdstr        = ">> ";
  2633. + MSG    bgdstr        = "background \ \ \ \ \ \ ";
  2634. + MSG    casestr        = "case ";            /* DAG */
  2635. + MSG    cjpostr        = ": couldn't jpost\n";
  2636. + MSG    fgdstr        = "foreground \ \ \ \ \ \ ";
  2637. + MSG    forstr        = "for ";            /* DAG */
  2638. + MSG    fromastr    = "<&";                /* DAG */
  2639. + MSG    iesacstr    = " in ... esac";
  2640. + MSG    ifstr        = "if ";            /* DAG */
  2641. + MSG    inlnstr        = "<< ";
  2642. + MSG    insstr        = " in ";
  2643. + MSG    jcoffstr    = "job control not enabled\n";
  2644. + MSG    jinvstr        = "invalid job number\n";
  2645. + MSG    jpanstr        = "sh bug: j_print_ent--no number ";
  2646. + MSG    lotspstr    = " \ \ \ \ \ \ \ \ \ ";
  2647. + MSG    lpnstr        = "(";
  2648. + MSG    ncjstr        = "no current job\n";
  2649. + MSG    nstpstr        = ": not stopped\n";
  2650. + MSG    orstr        = " || ";            /* DAG */
  2651. + MSG    pipestr        = " | ";            /* DAG */
  2652. + MSG    psgpstr        = " (signal) ";
  2653. + MSG    ptinstr        = " (tty in) ";
  2654. + MSG    ptoustr        = " (tty out)";
  2655. + MSG    rdinstr        = "< ";
  2656. + MSG    rpnstr        = ")";
  2657. + MSG    rsqbrk        = "] ";
  2658. + MSG    sdonstr        = "; done";
  2659. + MSG    sdostr        = "; do ";
  2660. + MSG    selsstr        = "; else ";
  2661. + MSG    semspstr    = "; ";
  2662. + MSG    sfistr        = "; fi";
  2663. + MSG    spcstr        = " ";
  2664. + MSG    spspstr        = " \ ";
  2665. + MSG    sthnstr        = "; then ";
  2666. + MSG    stpdstr        = "stopped";
  2667. + MSG    tasjstr        = "There are stopped jobs.\n";
  2668. + MSG    toastr        = ">&";                /* DAG */
  2669. + MSG    untilstr    = "until ";            /* DAG */
  2670. + MSG    whilestr    = "while ";            /* DAG */
  2671. + MSG    rdwstr        = "<> ";            /* ADR */
  2672. + MSG    nosusp        = "cannot suspend a login shell\n";    /* yet... */
  2673. + #endif
  2674.   
  2675.   
  2676.   /* tables */
  2677. ***************
  2678. *** 71,77
  2679.   
  2680.   
  2681.   /* tables */
  2682. ! SYSTAB reserved {
  2683.           {"in",        INSYM},
  2684.           {"esac",    ESSYM},
  2685.           {"case",    CASYM},
  2686.  
  2687. --- 136,142 -----
  2688.   
  2689.   
  2690.   /* tables */
  2691. ! SYSTAB reserved  = {
  2692.           {"in",        INSYM},
  2693.           {"esac",    ESSYM},
  2694.           {"case",    CASYM},
  2695. ***************
  2696. *** 90,96
  2697.           {0,    0},
  2698.   };
  2699.   
  2700. ! STRING    sysmsg[] {
  2701.           0,
  2702.           "Hangup",
  2703.           0,    /* Interrupt */
  2704.  
  2705. --- 155,161 -----
  2706.           {0,    0},
  2707.   };
  2708.   
  2709. ! STRING    sysmsg[] = {
  2710.           0,
  2711.           "Hangup",
  2712.           0,    /* Interrupt */
  2713. ***************
  2714. *** 97,103
  2715.           "Quit",
  2716.           "Illegal instruction",
  2717.           "Trace/BPT trap",
  2718. !         "IOT trap",
  2719.           "EMT trap",
  2720.           "Floating exception",
  2721.           "Killed",
  2722.  
  2723. --- 162,168 -----
  2724.           "Quit",
  2725.           "Illegal instruction",
  2726.           "Trace/BPT trap",
  2727. !         "abort",
  2728.           "EMT trap",
  2729.           "Floating exception",
  2730.           "Killed",
  2731. ***************
  2732. *** 108,113
  2733.           "Alarm call",
  2734.           "Terminated",
  2735.           "Signal 16",
  2736.   };
  2737.   
  2738.   MSG        export = "export";
  2739.  
  2740. --- 173,200 -----
  2741.           "Alarm call",
  2742.           "Terminated",
  2743.           "Signal 16",
  2744. + #if JOBS
  2745. +         "Stop",
  2746. +         "Stop from keyboard",
  2747. +         "Continue",
  2748. +         "Child status change",
  2749. +         "Background read",
  2750. +         "Background write",
  2751. +         "I/O possible",
  2752. +         "CPU time limit",
  2753. +         "File size limit",
  2754. +         "Virtual time alarm",
  2755. +         "Profiling timer alarm",
  2756. +         "Signal 28",
  2757. +         "Signal 29",
  2758. +         "Signal 30",
  2759. +         "Signal 31",
  2760. +         "Signal 32",
  2761. + #else
  2762. +         "Signal 17",
  2763. +         "Signal 18",
  2764. +         "Signal 19",
  2765. + #endif
  2766.   };
  2767.   
  2768.   MSG        export = "export";
  2769. ***************
  2770. *** 112,118
  2771.   
  2772.   MSG        export = "export";
  2773.   MSG        readonly = "readonly";
  2774. ! SYSTAB    commands {
  2775.           {"cd",        SYSCD},
  2776.           {"read",    SYSREAD},
  2777.   /*
  2778.  
  2779. --- 199,205 -----
  2780.   
  2781.   MSG        export = "export";
  2782.   MSG        readonly = "readonly";
  2783. ! SYSTAB    commands = {
  2784.           {"cd",        SYSCD},
  2785.           {"read",    SYSREAD},
  2786.   /*
  2787. ***************
  2788. *** 135,139
  2789.           {"exec",    SYSEXEC},
  2790.           {"times",    SYSTIMES},
  2791.           {"umask",    SYSUMASK},
  2792.           {0,    0},
  2793.   };
  2794.  
  2795. --- 222,239 -----
  2796.           {"exec",    SYSEXEC},
  2797.           {"times",    SYSTIMES},
  2798.           {"umask",    SYSUMASK},
  2799. + #if JOBS
  2800. +         {"jobs",    SYSJOBS},
  2801. +         {"fg",        SYSFG},
  2802. +         {"bg",        SYSBG},
  2803. +         {"suspend",    SYSSUSPEND},
  2804. + #endif
  2805. + #if pyr
  2806. +         {"att",        SYSATT},
  2807. +         {"ucb",        SYSUCB},
  2808. +         {"universe",    SYSUNIVERSE},
  2809. + #endif
  2810. +         {"history",    SYSHISTORY},
  2811.           {0,    0},
  2812.   };
  2813.   
  2814. ***************
  2815. *** 137,139
  2816.           {"umask",    SYSUMASK},
  2817.           {0,    0},
  2818.   };
  2819.  
  2820. --- 236,244 -----
  2821.           {"history",    SYSHISTORY},
  2822.           {0,    0},
  2823.   };
  2824. + 
  2825. + #if pyr
  2826. + #include <sys/types.h>    /* to get sys/inode.h to work (sigh) */
  2827. + #include <sys/inode.h>    /* NUMUNIV is defined to be NCLNK */
  2828. + #include <universe.h>    /* gets char *univ_name[] && char *univ_longname[] */
  2829. + #endif
  2830.  
  2831.