home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume1 / bourne / part8 < prev    next >
Encoding:
Internet Message Format  |  1986-11-30  |  55.8 KB
  1. Date: Fri, 7 Jun 85 14:17:48 edt
  2. From: Arnold Robbins <gatech!arnold>
  3. Subject: Bourne shell history + tilde + job control + more (Part 8 of 9)
  4. Newsgroups: mod.sources
  5.  
  6. This is part 8 of 9.  It contains the code diffs for the System V Release 2
  7. Bourne shell that comes with BRL Unix (/usr/5bin/sh).
  8.  
  9. Arnold Robbins
  10. arnold@gatech.{UUCP, CSNET}
  11. --------------- You know what to do here -----------------------
  12. :::::::: :fix :::::::
  13. No differences encountered
  14. :::::::: Makefile :::::::
  15. *** ../orig.u/Makefile    Wed May 15 17:11:54 1985
  16. --- Makefile    Fri Jun  7 11:46:36 1985
  17. ***************
  18. *** 3,9
  19.   TESTDIR    = .
  20.   INS    = cp
  21.   INSDIR    = /usr/5bin
  22. ! DEFS    = -DNICE -DNICEVAL=4 -DBRL -DJOBS    # for BSD, add -DBSD    # -DACCT
  23.   CFLAGS    = $(DEFS) -O
  24.   ACCTINC    =                    # -I/usr/src/cmd/acct
  25.   LDFLAGS    = -s -n
  26.  
  27. --- 3,9 -----
  28.   TESTDIR    = .
  29.   INS    = cp
  30.   INSDIR    = /usr/5bin
  31. ! DEFS    = -DNICE -DNICEVAL=4 -DBRL -DJOBS -DBSD # for BSD, add -DBSD    # -DACCT
  32.   CFLAGS    = $(DEFS) -O
  33.   ACCTINC    =                    # -I/usr/src/cmd/acct
  34.   LDFLAGS    = -s -n
  35. ***************
  36. *** 12,18
  37.   OFILES    = setbrk.o blok.o stak.o cmd.o fault.o main.o word.o string.o\
  38.         name.o args.o xec.o service.o error.o io.o print.o macro.o expand.o\
  39.         ctype.o msg.o test.o defs.o hash.o hashserv.o pwd.o func.o\
  40. !       echo.o jobs.o    # for BSD, remove echo.o and add signal.o and ulimit.o
  41.   
  42.   CFILES    = setbrk.c blok.c stak.c cmd.c fault.c main.c word.c string.c\
  43.         name.c args.c xec.c service.c error.c io.c print.c macro.c expand.c\
  44.  
  45. --- 12,19 -----
  46.   OFILES    = setbrk.o blok.o stak.o cmd.o fault.o main.o word.o string.o\
  47.         name.o args.o xec.o service.o error.o io.o print.o macro.o expand.o\
  48.         ctype.o msg.o test.o defs.o hash.o hashserv.o pwd.o func.o\
  49. !       history.o homedir.o \
  50. !       echo.o jobs.o    signal.o ulimit.o # for BSD, add signal.o and ulimit.o
  51.   
  52.   CFILES    = setbrk.c blok.c stak.c cmd.c fault.c main.c word.c string.c\
  53.         name.c args.c xec.c service.c error.c io.c print.c macro.c expand.c\
  54. ***************
  55. *** 17,23
  56.   CFILES    = setbrk.c blok.c stak.c cmd.c fault.c main.c word.c string.c\
  57.         name.c args.c xec.c service.c error.c io.c print.c macro.c expand.c\
  58.         ctype.c msg.c test.c defs.c hash.c hashserv.c pwd.c func.c\
  59. !       echo.c jobs.c    # for BSD, remove echo.c and add signal.c and ulimit.c
  60.   
  61.   all:        sh
  62.   
  63.  
  64. --- 18,25 -----
  65.   CFILES    = setbrk.c blok.c stak.c cmd.c fault.c main.c word.c string.c\
  66.         name.c args.c xec.c service.c error.c io.c print.c macro.c expand.c\
  67.         ctype.c msg.c test.c defs.c hash.c hashserv.c pwd.c func.c\
  68. !       history.c homedir.c \
  69. !       echo.c jobs.c signal.c ulimit.c # for BSD, add signal.c and ulimit.c
  70.   
  71.   all:        sh
  72.   
  73. ***************
  74. *** 37,46
  75.   main.o:        timeout.h
  76.   
  77.   ctype.o:
  78. !     if gould; \
  79. !     then    $(CC) $(CFLAGS) -R -c ctype.c; \
  80. !     else    sh ./:fix ctype; \
  81. !     fi
  82.   
  83.   msg.o:
  84.       if gould; \
  85.  
  86. --- 39,49 -----
  87.   main.o:        timeout.h
  88.   
  89.   ctype.o:
  90. !     $(CC) $(CFLAGS) -S ctype.c
  91. !     sed '/^[     ]*\.data/s/text/data/' < ctype.s > x.s
  92. !     $(CC) -c x.s
  93. !     mv x.o ctype.o
  94. !     rm x.s ctype.s
  95.   
  96.   msg.o:
  97.       $(CC) $(CFLAGS) -S msg.c
  98. ***************
  99. *** 43,52
  100.       fi
  101.   
  102.   msg.o:
  103. !     if gould; \
  104. !     then    $(CC) $(CFLAGS) -R -c msg.c; \
  105. !     else    sh ./:fix msg; \
  106. !     fi
  107.   
  108.   service.o:
  109.       $(CC) $(CFLAGS) $(ACCTINC) -c service.c
  110.  
  111. --- 46,56 -----
  112.       rm x.s ctype.s
  113.   
  114.   msg.o:
  115. !     $(CC) $(CFLAGS) -S msg.c
  116. !     sed '/^[     ]*\.data/s/text/data/' < msg.s > x.s
  117. !     $(CC) -c x.s
  118. !     mv x.o msg.o
  119. !     rm x.s msg.s
  120.   
  121.   service.o:
  122.       $(CC) $(CFLAGS) $(ACCTINC) -c service.c
  123. :::::::: Makefile.gould :::::::
  124. No differences encountered
  125. :::::::: SH_NOTES :::::::
  126. No differences encountered
  127. :::::::: args.c :::::::
  128. *** ../orig.u/args.c    Wed May 15 17:11:55 1985
  129. --- args.c    Wed Jun  5 14:48:23 1985
  130. ***************
  131. *** 15,21
  132.   
  133.   #if BRL
  134.   #if JOBS
  135. ! char    flagadr[17];
  136.   #else
  137.   char    flagadr[16];
  138.   #endif
  139.  
  140. --- 15,21 -----
  141.   
  142.   #if BRL
  143.   #if JOBS
  144. ! char    flagadr[19];
  145.   #else
  146.   char    flagadr[18];
  147.   #endif
  148. ***************
  149. *** 17,23
  150.   #if JOBS
  151.   char    flagadr[17];
  152.   #else
  153. ! char    flagadr[16];
  154.   #endif
  155.   #else    /* !BRL */
  156.   #if JOBS
  157.  
  158. --- 17,23 -----
  159.   #if JOBS
  160.   char    flagadr[19];
  161.   #else
  162. ! char    flagadr[18];
  163.   #endif
  164.   #else    /* !BRL */
  165.   #if JOBS
  166. ***************
  167. *** 21,27
  168.   #endif
  169.   #else    /* !BRL */
  170.   #if JOBS
  171. ! char    flagadr[15];
  172.   #else
  173.   char    flagadr[14];
  174.   #endif
  175.  
  176. --- 21,27 -----
  177.   #endif
  178.   #else    /* !BRL */
  179.   #if JOBS
  180. ! char    flagadr[17];
  181.   #else
  182.   char    flagadr[16];
  183.   #endif
  184. ***************
  185. *** 23,29
  186.   #if JOBS
  187.   char    flagadr[15];
  188.   #else
  189. ! char    flagadr[14];
  190.   #endif
  191.   #endif
  192.   
  193.  
  194. --- 23,29 -----
  195.   #if JOBS
  196.   char    flagadr[17];
  197.   #else
  198. ! char    flagadr[16];
  199.   #endif
  200.   #endif
  201.   
  202. ***************
  203. *** 49,54
  204.   #if JOBS
  205.       'J',
  206.   #endif
  207.        0
  208.   };
  209.   
  210.  
  211. --- 49,56 -----
  212.   #if JOBS
  213.       'J',
  214.   #endif
  215. +     'q',        /* ADR -- -q to not read ~/.shrc */
  216. +     'H',        /* ADR -- -H turn off history mechanism */
  217.        0
  218.   };
  219.   
  220. ***************
  221. *** 74,79
  222.   #if JOBS
  223.       jobflg,
  224.   #endif
  225.         0
  226.   };
  227.   
  228.  
  229. --- 76,83 -----
  230.   #if JOBS
  231.       jobflg,
  232.   #endif
  233. +     quickflg,
  234. +     nohistflg,
  235.         0
  236.   };
  237.   
  238. ***************
  239. *** 109,115
  240.   
  241.           /*
  242.            * Step along 'flagchar[]' looking for matches.
  243. !          * 'sicr' are not legal with 'set' command.
  244.            */
  245.   
  246.           while (*++cp)
  247.  
  248. --- 113,119 -----
  249.   
  250.           /*
  251.            * Step along 'flagchar[]' looking for matches.
  252. !          * 'sicrq' are not legal with 'set' command.
  253.            */
  254.   
  255.           while (*++cp)
  256. ***************
  257. *** 119,125
  258.                   flagc++;
  259.               if (*cp == *flagc)
  260.               {
  261. !                 if (eq(argv[0], setstr) && any(*cp, sicrstr))    /* DAG -- made strings sharable */
  262.                       failed(argv[1], badopt);
  263.                   else
  264.                   {
  265.  
  266. --- 123,129 -----
  267.                   flagc++;
  268.               if (*cp == *flagc)
  269.               {
  270. !                 if (eq(argv[0], setstr) && any(*cp, sicrqstr))    /* DAG -- made strings sharable */
  271.                       failed(argv[1], badopt);
  272.                   else
  273.                   {
  274. ***************
  275. *** 147,152
  276.       }
  277.       else if (argc > 1 && *argp[1] == '+')    /* unset flags x, k, t, n, v, e, u */
  278.                           /* or any added BRL/JOBS flags */
  279.       {
  280.           cp = argp[1];
  281.           while (*++cp)
  282.  
  283. --- 151,157 -----
  284.       }
  285.       else if (argc > 1 && *argp[1] == '+')    /* unset flags x, k, t, n, v, e, u */
  286.                           /* or any added BRL/JOBS flags */
  287. +                         /* or history flag */
  288.       {
  289.           cp = argp[1];
  290.           while (*++cp)
  291. ***************
  292. *** 157,163
  293.               /*
  294.                * step through flags
  295.                */
  296. !             if (!any(*cp, sicrstr) && *cp == *flagc)    /* DAG -- made string sharable */
  297.               {
  298.                   /*
  299.                    * only turn off if already on
  300.  
  301. --- 162,168 -----
  302.               /*
  303.                * step through flags
  304.                */
  305. !             if (!any(*cp, sicrqstr) && *cp == *flagc)    /* DAG -- made string sharable */
  306.               {
  307.                   /*
  308.                    * only turn off if already on
  309. :::::::: blok.c :::::::
  310. No differences encountered
  311. :::::::: brkincr.h :::::::
  312. No differences encountered
  313. :::::::: cmd.c :::::::
  314. No differences encountered
  315. :::::::: ctype.c :::::::
  316. No differences encountered
  317. :::::::: ctype.h :::::::
  318. *** ../orig.u/ctype.h    Wed May 15 17:11:55 1985
  319. --- ctype.h    Thu Apr 25 11:44:38 1985
  320. ***************
  321. *** 80,86
  322.   extern char    _ctype2[];
  323.   
  324.   #define    digit(c)    (((c)"E)==0 && _ctype2[c]&(T_DIG))
  325. ! #define dolchar(c)    (((c)"E)==0 && _ctype2[c]&(T_AST|T_BRC|T_DIG|T_IDC|T_SHN))
  326.   #define defchar(c)    (((c)"E)==0 && _ctype2[c]&(T_DEF))
  327.   #define setchar(c)    (((c)"E)==0 && _ctype2[c]&(T_SET))
  328.   #define digchar(c)    (((c)"E)==0 && _ctype2[c]&(T_AST|T_DIG))
  329.  
  330. --- 80,86 -----
  331.   extern char    _ctype2[];
  332.   
  333.   #define    digit(c)    (((c)"E)==0 && _ctype2[c]&(T_DIG))
  334. ! #define dolchar(c)    (((c)"E)==0 && _ctype2[c]&(T_AST|T_BRC|T_DIG|T_IDC|T_SHN|_PLS))
  335.   #define defchar(c)    (((c)"E)==0 && _ctype2[c]&(T_DEF))
  336.   #define setchar(c)    (((c)"E)==0 && _ctype2[c]&(T_SET))
  337.   #define digchar(c)    (((c)"E)==0 && _ctype2[c]&(T_AST|T_DIG))
  338. :::::::: defs.c :::::::
  339. *** ../orig.u/defs.c    Wed May 15 17:11:56 1985
  340. --- defs.c    Thu May  9 10:57:13 1985
  341. ***************
  342. *** 17,22
  343.   struct ionod    *iopend;    /* documents waiting to be read at NL */
  344.   struct fdsave    fdmap[NOFILE];
  345.   
  346.   /* substitution */
  347.   int                dolc;
  348.   char            **dolv;
  349.  
  350. --- 17,34 -----
  351.   struct ionod    *iopend;    /* documents waiting to be read at NL */
  352.   struct fdsave    fdmap[NOFILE];
  353.   
  354. + /* history stuff */
  355. + int    event_count = 1;
  356. + int    expanded = 0;    /* did a history expansion occur? */
  357. + 
  358. + /* keep track of the parent pid */
  359. + int    ppid;
  360. + 
  361. + #if pyr
  362. + /* keep track of the current universe */
  363. + int    cur_univ;
  364. + #endif
  365. + 
  366.   /* substitution */
  367.   int                dolc;
  368.   char            **dolv;
  369. ***************
  370. *** 36,41
  371.   /* special names */
  372.   char            *pcsadr;
  373.   char            *pidadr;
  374.   char            *cmdadr;
  375.   
  376.   /* transput */ 
  377.  
  378. --- 48,54 -----
  379.   /* special names */
  380.   char            *pcsadr;
  381.   char            *pidadr;
  382. + char            *ppidadr;
  383.   char            *cmdadr;
  384.   
  385.   /* transput */ 
  386. :::::::: defs.h :::::::
  387. *** ../orig.u/defs.h    Wed May 15 17:11:56 1985
  388. --- defs.h    Wed Jun  5 15:19:40 1985
  389. ***************
  390. *** 3,9
  391.    *    UNIX shell
  392.    */
  393.   
  394. ! #if BSD || gould
  395.   #define    void    int    /* avoid compiler bug */
  396.   #endif
  397.   
  398.  
  399. --- 3,9 -----
  400.    *    UNIX shell
  401.    */
  402.   
  403. ! #if BSD || gould || pyr
  404.   #define    void    int    /* avoid compiler bug */
  405.   #endif
  406.   
  407. ***************
  408. *** 87,92
  409.   #define        SYSJOBS        29
  410.   #define        SYSFG        30
  411.   #define        SYSBG        31
  412.   #endif
  413.   
  414.   /* used for input and output of shell */
  415.  
  416. --- 87,93 -----
  417.   #define        SYSJOBS        29
  418.   #define        SYSFG        30
  419.   #define        SYSBG        31
  420. + #define        SYSSUSPEND    32
  421.   #endif
  422.   
  423.   #if pyr
  424. ***************
  425. *** 89,94
  426.   #define        SYSBG        31
  427.   #endif
  428.   
  429.   /* used for input and output of shell */
  430.   #define     INIO         19
  431.   
  432.  
  433. --- 90,105 -----
  434.   #define        SYSSUSPEND    32
  435.   #endif
  436.   
  437. + #if pyr
  438. + #define        SYSATT        33
  439. + #define        SYSUCB        34
  440. + #define        SYSUNIVERSE    35
  441. + #define        U_ATT        1    /* ATT is Universe number 1 */
  442. + #define        U_UCB        2    /* UCB is Universe number 2 */
  443. + #endif
  444. + 
  445. + #define        SYSHISTORY    36
  446. + 
  447.   /* used for input and output of shell */
  448.   #define     INIO         19
  449.   
  450. ***************
  451. *** 111,117
  452.   #include    "mode.h"
  453.   #include    "name.h"
  454.   #include    <signal.h>
  455. ! #if BSD
  456.   #define    SIGUSR1    16
  457.   #define    SIGUSR2    17
  458.   #endif
  459.  
  460. --- 122,128 -----
  461.   #include    "mode.h"
  462.   #include    "name.h"
  463.   #include    <signal.h>
  464. ! #if BSD && ! defined(pyr)    /* avoid dual universe problems */
  465.   #define    SIGUSR1    16
  466.   #define    SIGUSR2    17
  467.   #endif
  468. ***************
  469. *** 115,121
  470.   #define    SIGUSR1    16
  471.   #define    SIGUSR2    17
  472.   #endif
  473. ! #if defined(JOBS) && !defined(BSD)
  474.   #define    SIGSTOP    17
  475.   #define    SIGTSTP    18
  476.   #define    SIGCONT    19
  477.  
  478. --- 126,132 -----
  479.   #define    SIGUSR1    16
  480.   #define    SIGUSR2    17
  481.   #endif
  482. ! #if defined(JOBS) && !defined(BSD) && !defined(pyr)
  483.   #define    SIGSTOP    17
  484.   #define    SIGTSTP    18
  485.   #define    SIGCONT    19
  486. ***************
  487. *** 123,128
  488.   #define    SIGTTOU    22
  489.   #endif
  490.   
  491.   
  492.   /*    error catching */
  493.   extern int         errno;
  494.  
  495. --- 134,140 -----
  496.   #define    SIGTTOU    22
  497.   #endif
  498.   
  499. + #define HISTSIZE    4096
  500.   
  501.   /*    error catching */
  502.   extern int         errno;
  503. ***************
  504. *** 148,153
  505.   extern char                *mactrim();
  506.   extern char                *macro();
  507.   extern char                *execs();
  508.   /* extern char                *copyto();    /* DAG -- (bug fix) static */
  509.   extern int                exname();
  510.   extern char                *staknam();
  511.  
  512. --- 160,168 -----
  513.   extern char                *mactrim();
  514.   extern char                *macro();
  515.   extern char                *execs();
  516. + extern char                *homedir();
  517. + extern char                *username();
  518. + extern char                *retcwd();
  519.   /* extern char                *copyto();    /* DAG -- (bug fix) static */
  520.   extern int                exname();
  521.   extern char                *staknam();
  522. ***************
  523. *** 168,173
  524.   extern BOOL                j_finish();
  525.   extern char                *j_macro();
  526.   #endif
  527.   
  528.   #define     attrib(n,f)        (n->namflg |= f)
  529.   #define     round(a,b)        (((int)(((char *)(a)+b)-1))&~((b)-1))
  530.  
  531. --- 183,189 -----
  532.   extern BOOL                j_finish();
  533.   extern char                *j_macro();
  534.   #endif
  535. + extern int                history();
  536.   
  537.   #define     attrib(n,f)        (n->namflg |= f)
  538.   #define     round(a,b)        (((int)(((char *)(a)+b)-1))&~((b)-1))
  539. ***************
  540. *** 184,189
  541.   extern struct ionod        *iopend;    /* documents waiting to be read at NL */
  542.   extern struct fdsave    fdmap[];
  543.   
  544.   
  545.   /* substitution */
  546.   extern int                dolc;
  547.  
  548. --- 200,208 -----
  549.   extern struct ionod        *iopend;    /* documents waiting to be read at NL */
  550.   extern struct fdsave    fdmap[];
  551.   
  552. + /* history stuff */
  553. + extern int    event_count;
  554. + extern int    expanded;    /* did a history expansion occur? */
  555.   
  556.   /* keep track of the parent pid */
  557.   extern int    ppid;
  558. ***************
  559. *** 185,190
  560.   extern struct fdsave    fdmap[];
  561.   
  562.   
  563.   /* substitution */
  564.   extern int                dolc;
  565.   extern char                **dolv;
  566.  
  567. --- 204,219 -----
  568.   extern int    event_count;
  569.   extern int    expanded;    /* did a history expansion occur? */
  570.   
  571. + /* keep track of the parent pid */
  572. + extern int    ppid;
  573. + 
  574. + #if pyr
  575. + /* keep track of the current universe */
  576. + extern int    cur_univ;
  577. + extern char    *univ_name[];        /* from <universe.h> */
  578. + extern char    *univ_longname[];
  579. + #endif
  580. + 
  581.   /* substitution */
  582.   extern int                dolc;
  583.   extern char                **dolv;
  584. ***************
  585. *** 205,211
  586.   extern char                endoffile[];
  587.   extern char                synmsg[];
  588.   extern char                setstr[];     /* DAG -- made sharable */
  589. ! extern char                sicrstr[];    /* DAG */
  590.   extern char                bang[];        /* DAG */
  591.   extern char                pdstr[];    /* DAG */
  592.   extern char                dotdot[];    /* DAG */
  593.  
  594. --- 234,240 -----
  595.   extern char                endoffile[];
  596.   extern char                synmsg[];
  597.   extern char                setstr[];     /* DAG -- made sharable */
  598. ! extern char                sicrqstr[];    /* ADR */
  599.   extern char                bang[];        /* DAG */
  600.   extern char                pdstr[];    /* DAG */
  601.   extern char                dotdot[];    /* DAG */
  602. ***************
  603. *** 228,233
  604.   extern char                dashd[];    /* DAG */
  605.   extern char                dashf[];    /* DAG */
  606.   extern char                dashg[];    /* DAG */
  607.   extern char                dashk[];    /* DAG */
  608.   extern char                dashn[];    /* DAG */
  609.   extern char                dasho[];    /* DAG */
  610.  
  611. --- 257,263 -----
  612.   extern char                dashd[];    /* DAG */
  613.   extern char                dashf[];    /* DAG */
  614.   extern char                dashg[];    /* DAG */
  615. + extern char                dashi[];    /* ADR */
  616.   extern char                dashk[];    /* DAG */
  617.   #if pyr
  618.   extern char                dashl[];    /* ADR */
  619. ***************
  620. *** 229,234
  621.   extern char                dashf[];    /* DAG */
  622.   extern char                dashg[];    /* DAG */
  623.   extern char                dashk[];    /* DAG */
  624.   extern char                dashn[];    /* DAG */
  625.   extern char                dasho[];    /* DAG */
  626.   extern char                dashp[];    /* DAG */
  627.  
  628. --- 259,267 -----
  629.   extern char                dashg[];    /* DAG */
  630.   extern char                dashi[];    /* ADR */
  631.   extern char                dashk[];    /* DAG */
  632. + #if pyr
  633. + extern char                dashl[];    /* ADR */
  634. + #endif
  635.   extern char                dashn[];    /* DAG */
  636.   extern char                dasho[];    /* DAG */
  637.   extern char                dashp[];    /* DAG */
  638. ***************
  639. *** 274,279
  640.   extern char                ishashed[];    /* DAG */
  641.   extern char                rpnlstr[];    /* DAG */
  642.   extern char                isstr[];    /* DAG */
  643.   #if JOBS
  644.   extern char                rsqbrk[];
  645.   extern char                spspstr[];
  646.  
  647. --- 307,313 -----
  648.   extern char                ishashed[];    /* DAG */
  649.   extern char                rpnlstr[];    /* DAG */
  650.   extern char                isstr[];    /* DAG */
  651. + extern char                rdwstr[];    /* ADR */
  652.   #if JOBS
  653.   extern char                rsqbrk[];
  654.   extern char                spspstr[];
  655. ***************
  656. *** 300,305
  657.   extern char                selsstr[];
  658.   extern char                sfistr[];
  659.   extern char                iesacstr[];
  660.   #endif
  661.   #if SYMLINK
  662.   extern char                nolstat[];
  663.  
  664. --- 334,340 -----
  665.   extern char                selsstr[];
  666.   extern char                sfistr[];
  667.   extern char                iesacstr[];
  668. + extern char                nosusp[];
  669.   #endif
  670.   #if SYMLINK
  671.   extern char                nolstat[];
  672. ***************
  673. *** 339,344
  674.   extern char                supprompt[];
  675.   extern char                profile[];
  676.   extern char                sysprofile[];
  677.   
  678.   /* built in names */
  679.   extern struct namnod    fngnod;
  680.  
  681. --- 374,381 -----
  682.   extern char                supprompt[];
  683.   extern char                profile[];
  684.   extern char                sysprofile[];
  685. + extern char                shrc[];
  686. + extern char                savehist[];
  687.   
  688.   /* built in names */
  689.   extern struct namnod    fngnod;
  690. ***************
  691. *** 355,360
  692.   #if BRL
  693.   extern struct namnod    timenod;
  694.   #endif
  695.   
  696.   /* special names */
  697.   extern char                flagadr[];
  698.  
  699. --- 392,401 -----
  700.   #if BRL
  701.   extern struct namnod    timenod;
  702.   #endif
  703. + #if pyr
  704. + extern struct namnod    univnod;
  705. + #endif
  706. + extern struct namnod    histfnod;
  707.   
  708.   /* special names */
  709.   extern char                flagadr[];
  710. ***************
  711. *** 360,365
  712.   extern char                flagadr[];
  713.   extern char                *pcsadr;
  714.   extern char                *pidadr;
  715.   extern char                *cmdadr;
  716.   
  717.   extern char                defpath[];
  718.  
  719. --- 401,407 -----
  720.   extern char                flagadr[];
  721.   extern char                *pcsadr;
  722.   extern char                *pidadr;
  723. + extern char                *ppidadr;
  724.   extern char                *cmdadr;
  725.   
  726.   extern char                defpath[];
  727. ***************
  728. *** 378,383
  729.   #if BRL
  730.   extern char                timename[];    /* TIMEOUT */
  731.   #endif
  732.   
  733.   /* transput */
  734.   extern char                tmpout[];
  735.  
  736. --- 420,429 -----
  737.   #if BRL
  738.   extern char                timename[];    /* TIMEOUT */
  739.   #endif
  740. + #if pyr
  741. + extern char                univname[];    /* UNIVERSE */
  742. + #endif
  743. + extern char                histfilename[];    /* HISTFILE */
  744.   
  745.   /* transput */
  746.   extern char                tmpout[];
  747. ***************
  748. *** 436,441
  749.   #define        noeotflg    02000000
  750.   #define        dotflg        04000000
  751.   #endif
  752.   
  753.   extern long                flags;
  754.   extern int                rwait;    /* flags read waiting */
  755.  
  756. --- 482,489 -----
  757.   #define        noeotflg    02000000
  758.   #define        dotflg        04000000
  759.   #endif
  760. + #define        quickflg    010000000
  761. + #define        nohistflg    020000000
  762.   
  763.   extern long                flags;
  764.   extern int                rwait;    /* flags read waiting */
  765. ***************
  766. *** 444,450
  767.   #include    <setjmp.h>
  768.   extern jmp_buf            subshell;
  769.   extern jmp_buf            errshell;
  770. ! #if defined(BSD) && !defined(BSD41C)
  771.   #define    setjmp( env )        _setjmp( env )
  772.   #define    longjmp( env, val )    _longjmp( env, val )
  773.   #endif
  774.  
  775. --- 492,498 -----
  776.   #include    <setjmp.h>
  777.   extern jmp_buf            subshell;
  778.   extern jmp_buf            errshell;
  779. ! #if defined(BSD) && !defined(BSD41C) && !defined(pyr)
  780.   #define    setjmp( env )        _setjmp( env )
  781.   #define    longjmp( env, val )    _longjmp( env, val )
  782.   #endif
  783. :::::::: echo.c :::::::
  784. No differences encountered
  785. :::::::: error.c :::::::
  786. *** ../orig.u/error.c    Wed May 15 17:11:56 1985
  787. --- error.c    Wed May 15 16:02:49 1985
  788. ***************
  789. *** 96,101
  790.           exit(99);
  791.       }
  792.   #endif
  793.       exit(exitval);
  794.   }
  795.   
  796.  
  797. --- 96,103 -----
  798.           exit(99);
  799.       }
  800.   #endif
  801. + 
  802. +     histsave (histfnod.namval);
  803.       exit(exitval);
  804.   }
  805.   
  806. :::::::: expand.c :::::::
  807. No differences encountered
  808. :::::::: fault.c :::::::
  809. No differences encountered
  810. :::::::: func.c :::::::
  811. *** ../orig.u/func.c    Wed May 15 17:11:56 1985
  812. --- func.c    Wed Jun  5 16:01:27 1985
  813. ***************
  814. *** 371,376
  815.                       prs_buff(fromastr);    /* DAG */
  816.   
  817.               }
  818.               else if ((iof & IOPUT) == 0)
  819.                   prc_buff('<');
  820.               else if (iof & IOAPP)
  821.  
  822. --- 371,378 -----
  823.                       prs_buff(fromastr);    /* DAG */
  824.   
  825.               }
  826. +             else if (iof & IORDW)
  827. +                 prs_buff(rdwstr);    /* ADR */
  828.               else if ((iof & IOPUT) == 0)
  829.                   prc_buff('<');
  830.               else if (iof & IOAPP)
  831. :::::::: hash.c :::::::
  832. No differences encountered
  833. :::::::: hash.h :::::::
  834. No differences encountered
  835. :::::::: hashserv.c :::::::
  836. No differences encountered
  837. :::::::: io.c :::::::
  838. No differences encountered
  839. :::::::: jobs.c :::::::
  840. *** ../orig.u/jobs.c    Wed May 15 17:11:57 1985
  841. --- jobs.c    Wed Jun  5 11:55:37 1985
  842. ***************
  843. *** 3,8
  844.    *
  845.    *  created by Ron Natalie, BRL
  846.    *  slight changes by Doug Gwyn
  847.    */
  848.   
  849.   #include "defs.h"
  850.  
  851. --- 3,9 -----
  852.    *
  853.    *  created by Ron Natalie, BRL
  854.    *  slight changes by Doug Gwyn
  855. +  *  some more slight changes by Arnold Robbins (mainly for the BSD /bin/sh)
  856.    */
  857.   
  858.   #include "defs.h"
  859. ***************
  860. *** 8,14
  861.   #include "defs.h"
  862.   #include "sym.h"
  863.   
  864. ! #if BSD    /* native /bin/sh */
  865.   #include <sys/ioctl.h>
  866.   #else    /* /usr/5bin/sh */
  867.   #include    <sys/_ioctl.h>
  868.  
  869. --- 9,27 -----
  870.   #include "defs.h"
  871.   #include "sym.h"
  872.   
  873. ! #ifndef TAB    /* very original, early /bin/sh */
  874. ! #include <signal.h>
  875. ! #define comptr(x)    ((COMPTR) x)
  876. ! #define lstptr(x)    ((LSTPTR) x)
  877. ! #define forkptr(x)    ((FORKPTR) x)
  878. ! #define parptr(x)    ((PARPTR) x)
  879. ! #define forptr(x)    ((FORPTR) x)
  880. ! #define whptr(x)    ((WHPTR) x)
  881. ! #define ifptr(x)    ((IFPTR) x)
  882. ! #define swptr(x)    ((SWPTR) x)
  883. ! #endif
  884. ! 
  885. ! #if BSD || (JOBS && ! BRL)    /* native /bin/sh */
  886.   #include <sys/ioctl.h>
  887.   #else    /* /usr/5bin/sh */
  888.   #include    <sys/_ioctl.h>
  889. ***************
  890. *** 457,463
  891.                   if(j_stuff(numbuf))
  892.                       return 1;
  893.               }
  894. !             switch(iof & (IODOC|IOPUT|IOMOV|IOAPP))  {
  895.               case IOGET:
  896.                   if(j_stuff(rdinstr))    /* DAG */
  897.                       return 1;
  898.  
  899. --- 470,476 -----
  900.                   if(j_stuff(numbuf))
  901.                       return 1;
  902.               }
  903. !             switch(iof & (IODOC|IOPUT|IOMOV|IOAPP|IORDW))  {
  904.               case IOGET:
  905.                   if(j_stuff(rdinstr))    /* DAG */
  906.                       return 1;
  907. ***************
  908. *** 482,487
  909.                   if(j_stuff(fromastr))    /* DAG */
  910.                       return 1;
  911.                   break;
  912.               }
  913.               if(j_stuff(t->ioname))
  914.                   return 1;
  915.  
  916. --- 495,504 -----
  917.                   if(j_stuff(fromastr))    /* DAG */
  918.                       return 1;
  919.                   break;
  920. +             case IORDW:
  921. +                 if(j_stuff(rdwstr))    /* ADR */
  922. +                     return 1;
  923. +                 break;
  924.               }
  925.               if(j_stuff(t->ioname))
  926.                   return 1;
  927. ***************
  928. *** 503,508
  929.   
  930.       type = t->tretyp & COMMSK;
  931.       switch(type)  {
  932.       case    TFND:    /* added by DAG for System V Release 2 shell */
  933.           return j_stuff(fndptr(t)->fndnam)
  934.               || j_stuff(sfnstr)    /* DAG */
  935.  
  936. --- 520,526 -----
  937.   
  938.       type = t->tretyp & COMMSK;
  939.       switch(type)  {
  940. + #ifdef TFND    /* ADR --- don't put this stuff in the plain BSD /bin/sh */
  941.       case    TFND:    /* added by DAG for System V Release 2 shell */
  942.           return j_stuff(fndptr(t)->fndnam)
  943.               || j_stuff(sfnstr)    /* DAG */
  944. ***************
  945. *** 508,513
  946.               || j_stuff(sfnstr)    /* DAG */
  947.               || j_do(fndptr(t)->fndval)
  948.               || j_stuff(efnstr);    /* DAG */
  949.   
  950.       case    TCOM:
  951.           if(comptr(t)->comset)  {
  952.  
  953. --- 526,532 -----
  954.               || j_stuff(sfnstr)    /* DAG */
  955.               || j_do(fndptr(t)->fndval)
  956.               || j_stuff(efnstr);    /* DAG */
  957. + #endif
  958.   
  959.       case    TCOM:
  960.           if(comptr(t)->comset)  {
  961. :::::::: mac.h :::::::
  962. *** ../orig.u/mac.h    Wed May 15 17:11:57 1985
  963. --- mac.h    Thu Apr 25 11:44:51 1985
  964. ***************
  965. *** 19,24
  966.   #define RQ    '\''
  967.   #define MINUS    '-'
  968.   #define COLON    ':'
  969.   #define TAB    '\t'
  970.   
  971.   
  972.  
  973. --- 19,25 -----
  974.   #define RQ    '\''
  975.   #define MINUS    '-'
  976.   #define COLON    ':'
  977. + #define SQUIGGLE    '~'    /* TILDE defined in BSD tty handler */
  978.   #define TAB    '\t'
  979.   
  980.   
  981. :::::::: macro.c :::::::
  982. *** ../orig.u/macro.c    Wed May 15 17:11:57 1985
  983. --- macro.c    Thu Apr 25 11:44:51 1985
  984. ***************
  985. *** 133,138
  986.               }
  987.               else if (c == '$')
  988.                   v = pidadr;
  989.               else if (c == '!')
  990.                   v = pcsadr;
  991.               else if (c == '#')
  992.  
  993. --- 133,147 -----
  994.               }
  995.               else if (c == '$')
  996.                   v = pidadr;
  997. +             else if (c == '+')
  998. +             {
  999. +                 if (ppid != getppid())    /* parent died */
  1000. +                 {
  1001. +                     ppid = getppid();
  1002. +                     assnum (&ppidadr, ppid);
  1003. +                 }
  1004. +                 v = ppidadr;
  1005. +             }
  1006.               else if (c == '!')
  1007.                   v = pcsadr;
  1008.               else if (c == '#')
  1009. :::::::: main.c :::::::
  1010. *** ../orig.u/main.c    Wed May 15 17:11:57 1985
  1011. --- main.c    Tue May 21 17:17:32 1985
  1012. ***************
  1013. *** 69,77
  1014.           if (argv0[0] != '-' || argv0[1] != 'S')
  1015.               loginsh = 0;
  1016.       }
  1017. ! #endif
  1018. ! #endif
  1019. ! #if !defined(BRL) || !defined(pdp11)
  1020.       loginsh = argv0[0] == '-';
  1021.   #endif
  1022.   
  1023.  
  1024. --- 69,75 -----
  1025.           if (argv0[0] != '-' || argv0[1] != 'S')
  1026.               loginsh = 0;
  1027.       }
  1028. ! #else
  1029.       loginsh = argv0[0] == '-';
  1030.   #endif
  1031.   #endif
  1032. ***************
  1033. *** 74,79
  1034.   #if !defined(BRL) || !defined(pdp11)
  1035.       loginsh = argv0[0] == '-';
  1036.   #endif
  1037.   
  1038.       stdsigs();
  1039.   
  1040.  
  1041. --- 72,78 -----
  1042.   #else
  1043.       loginsh = argv0[0] == '-';
  1044.   #endif
  1045. + #endif
  1046.   
  1047.       stdsigs();
  1048.   
  1049. ***************
  1050. *** 179,184
  1051.       replace(&cmdadr, dolv[0]);    /* cmdadr is $0 */
  1052.   
  1053.       /*
  1054.        * set pidname '$$'
  1055.        */
  1056.       assnum(&pidadr, getpid());
  1057.  
  1058. --- 178,189 -----
  1059.       replace(&cmdadr, dolv[0]);    /* cmdadr is $0 */
  1060.   
  1061.       /*
  1062. +      * set ppidname '$+'
  1063. +      */
  1064. +     ppid = getppid();
  1065. +     assnum (& ppidadr, ppid);
  1066. + 
  1067. +     /*
  1068.        * set pidname '$$'
  1069.        */
  1070.       assnum(&pidadr, getpid());
  1071. ***************
  1072. *** 202,207
  1073.       dfault(&mchknod, MAILCHECK);
  1074.       mailchk = stoi(mchknod.namval);
  1075.   
  1076.       if ((beenhere) == FALSE)    /* ? profile */    /* DAG -- only increment once */
  1077.       {
  1078.           ++beenhere;        /* DAG */
  1079.  
  1080. --- 207,239 -----
  1081.       dfault(&mchknod, MAILCHECK);
  1082.       mailchk = stoi(mchknod.namval);
  1083.   
  1084. + #if pyr
  1085. +     /*
  1086. +      * find out current universe, initialize $UNIVERSE
  1087. +      */
  1088. +     cur_univ = setuniverse (U_UCB); /* retrieve old and set to UCB */
  1089. +     if (cur_univ == -1)
  1090. +     {
  1091. +         /* unknown current, default to UCB */
  1092. +         cur_univ = U_UCB;
  1093. +         setuniverse (cur_univ);
  1094. +     }
  1095. +     else if (cur_univ != U_UCB)
  1096. +         setuniverse (cur_univ); /* restore to what it was */
  1097. +     
  1098. +     /*
  1099. +      * force value, ignore whatever was in environment
  1100. +      */
  1101. +     assign (& univnod, univ_name[cur_univ - 1]);
  1102. +     attrib ((& univnod), N_RDONLY);   /* user can not set $UNIVERSE */
  1103. + #endif
  1104. + 
  1105. +     /*
  1106. +      * assign default value of $HOME/.history to $HISTFILE
  1107. +      */
  1108. +     (void) catpath ("~", savehist);
  1109. +     dfault (& histfnod, curstak());
  1110. + 
  1111.       if ((beenhere) == FALSE)    /* ? profile */    /* DAG -- only increment once */
  1112.       {
  1113.           ++beenhere;        /* DAG */
  1114. ***************
  1115. *** 211,216
  1116.               struct stat    statb;    /* needed for test */
  1117.   #endif
  1118.   
  1119.   #ifndef RES
  1120.   
  1121.               if ((input = pathopen(nullstr, sysprofile)) >= 0)
  1122.  
  1123. --- 243,253 -----
  1124.               struct stat    statb;    /* needed for test */
  1125.   #endif
  1126.   
  1127. +             if (geteuid() != getuid())
  1128. +                 setuid (getuid());
  1129. +             if (getegid() != getgid())
  1130. +                 setgid (getgid());
  1131. + 
  1132.   #ifndef RES
  1133.   
  1134.               if ((input = pathopen(nullstr, sysprofile)) >= 0)
  1135. ***************
  1136. *** 232,237
  1137.           }
  1138.           if (rsflag == 0 || rflag == 0)
  1139.               flags |= rshflg;
  1140.           /*
  1141.            * open input file if specified
  1142.            */
  1143.  
  1144. --- 269,288 -----
  1145.           }
  1146.           if (rsflag == 0 || rflag == 0)
  1147.               flags |= rshflg;
  1148. + 
  1149. +         /* if all OK, process $HOME/.shrc */
  1150. +         if (geteuid() == getuid() && getegid() == getgid()
  1151. +             && (flags & (rshflg|quickflg)) == 0
  1152. +             && (input = pathopen ("~", shrc)) >= 0)
  1153. +         {
  1154. +             int promptflags = (flags & (ttyflg|intflg|prompt));
  1155. + 
  1156. +             /* turn off anything that will cause prompting */
  1157. +             flags &= ~promptflags;
  1158. +             exfile (rflag);
  1159. +             flags |= promptflags;
  1160. +         }
  1161. + 
  1162.           /*
  1163.            * open input file if specified
  1164.            */
  1165. ***************
  1166. *** 300,305
  1167.               setmail(mailpnod.namval);
  1168.           else
  1169.               setmail(mailnod.namval);
  1170.       }
  1171.       else
  1172.       {
  1173.  
  1174. --- 351,359 -----
  1175.               setmail(mailpnod.namval);
  1176.           else
  1177.               setmail(mailnod.namval);
  1178. + 
  1179. +         /* restore previous history */
  1180. +         histrest (histfnod.namval);
  1181.       }
  1182.       else
  1183.       {
  1184. ***************
  1185. *** 349,355
  1186.                   }
  1187.               }
  1188.   
  1189. !             prs(ps1nod.namval);
  1190.   
  1191.   #if BRL
  1192.               if (userid == 0 && !eq(ps1nod.namval, supprompt))
  1193.  
  1194. --- 403,410 -----
  1195.                   }
  1196.               }
  1197.   
  1198. !             /* do special handling for $PS1 */
  1199. !             pr_prompt(ps1nod.namval);
  1200.   
  1201.   #if BRL
  1202.               if (userid == 0 && !eq(ps1nod.namval, supprompt))
  1203. :::::::: mode.h :::::::
  1204. No differences encountered
  1205. :::::::: msg.c :::::::
  1206. *** ../orig.u/msg.c    Wed May 15 17:11:58 1985
  1207. --- msg.c    Wed Jun  5 15:19:55 1985
  1208. ***************
  1209. *** 42,49
  1210.   char    wtfailed[]    = "is read only";
  1211.   char    notid[]        = "is not an identifier";
  1212.   char     badulimit[]    = "bad ulimit";    /* DAG -- lower case */
  1213. ! char    badreturn[] = "cannot return when not in function";
  1214. ! char    badexport[] = "cannot export functions";
  1215.   char    badunset[]     = "cannot unset";
  1216.   char    nohome[]    = "no home directory";
  1217.   char     badperm[]    = "execute permission denied";
  1218.  
  1219. --- 42,49 -----
  1220.   char    wtfailed[]    = "is read only";
  1221.   char    notid[]        = "is not an identifier";
  1222.   char     badulimit[]    = "bad ulimit";    /* DAG -- lower case */
  1223. ! char    badreturn[]    = "cannot return when not in function";
  1224. ! char    badexport[]    = "cannot export functions";
  1225.   char    badunset[]     = "cannot unset";
  1226.   char    nohome[]    = "no home directory";
  1227.   char     badperm[]    = "execute permission denied";
  1228. ***************
  1229. *** 98,103
  1230.   #if BRL
  1231.   char    timename[]    = "TIMEOUT";
  1232.   #endif
  1233.   
  1234.   /*
  1235.    * string constants
  1236.  
  1237. --- 98,107 -----
  1238.   #if BRL
  1239.   char    timename[]    = "TIMEOUT";
  1240.   #endif
  1241. + #if pyr
  1242. + char    univname[]    = "UNIVERSE";
  1243. + #endif
  1244. + char    histfilename[]    = "HISTFILE";
  1245.   
  1246.   /*
  1247.    * string constants
  1248. ***************
  1249. *** 116,122
  1250.   char    stdprompt[]    = "$ ";
  1251.   char    supprompt[]    = "# ";
  1252.   char    profile[]    = ".profile";
  1253. ! #if !defined(BRL) || defined(pdp11)
  1254.   char    sysprofile[]    = "/etc/profile";
  1255.   #else
  1256.   char    sysprofile[]    = "/usr/5lib/profile";
  1257.  
  1258. --- 120,128 -----
  1259.   char    stdprompt[]    = "$ ";
  1260.   char    supprompt[]    = "# ";
  1261.   char    profile[]    = ".profile";
  1262. ! char    shrc[]        = ".shrc";
  1263. ! char    savehist[]    = ".history";
  1264. ! #if defined(GATECH) || !defined(BRL) || defined(pdp11)
  1265.   char    sysprofile[]    = "/etc/profile";
  1266.   #else
  1267.   char    sysprofile[]    = "/usr/5lib/profile";
  1268. ***************
  1269. *** 122,128
  1270.   char    sysprofile[]    = "/usr/5lib/profile";
  1271.   #endif
  1272.   char    setstr[]    = "set";            /* DAG -- made sharable */
  1273. ! char    sicrstr[]    = "sicr";            /* DAG */
  1274.   char    bang[]        = "!";                /* DAG */
  1275.   char    pdstr[]        = ".";                /* DAG */
  1276.   char    dotdot[]    = "..";                /* DAG */
  1277.  
  1278. --- 128,134 -----
  1279.   char    sysprofile[]    = "/usr/5lib/profile";
  1280.   #endif
  1281.   char    setstr[]    = "set";            /* DAG -- made sharable */
  1282. ! char    sicrqstr[]    = "sicrq";            /* ADR */
  1283.   char    bang[]        = "!";                /* DAG */
  1284.   char    pdstr[]        = ".";                /* DAG */
  1285.   char    dotdot[]    = "..";                /* DAG */
  1286. ***************
  1287. *** 145,150
  1288.   char    dashd[]        = "-d";                /* DAG */
  1289.   char    dashf[]        = "-f";                /* DAG */
  1290.   char    dashg[]        = "-g";                /* DAG */
  1291.   char    dashk[]        = "-k";                /* DAG */
  1292.   char    dashn[]        = "-n";                /* DAG */
  1293.   char    dasho[]        = "-o";                /* DAG */
  1294.  
  1295. --- 151,157 -----
  1296.   char    dashd[]        = "-d";                /* DAG */
  1297.   char    dashf[]        = "-f";                /* DAG */
  1298.   char    dashg[]        = "-g";                /* DAG */
  1299. + char    dashi[]        = "-i";                /* ADR */
  1300.   char    dashk[]        = "-k";                /* DAG */
  1301.   #if pyr
  1302.   char    dashl[]        = "-l";                /* ADR */
  1303. ***************
  1304. *** 146,151
  1305.   char    dashf[]        = "-f";                /* DAG */
  1306.   char    dashg[]        = "-g";                /* DAG */
  1307.   char    dashk[]        = "-k";                /* DAG */
  1308.   char    dashn[]        = "-n";                /* DAG */
  1309.   char    dasho[]        = "-o";                /* DAG */
  1310.   char    dashp[]        = "-p";                /* DAG */
  1311.  
  1312. --- 153,161 -----
  1313.   char    dashg[]        = "-g";                /* DAG */
  1314.   char    dashi[]        = "-i";                /* ADR */
  1315.   char    dashk[]        = "-k";                /* DAG */
  1316. + #if pyr
  1317. + char    dashl[]        = "-l";                /* ADR */
  1318. + #endif
  1319.   char    dashn[]        = "-n";                /* DAG */
  1320.   char    dasho[]        = "-o";                /* DAG */
  1321.   char    dashp[]        = "-p";                /* DAG */
  1322. ***************
  1323. *** 191,196
  1324.   char    ishashed[]    = " is hashed (";        /* DAG */
  1325.   char    rpnlstr[]    = ")\n";            /* DAG */
  1326.   char    isstr[]        = " is ";            /* DAG */
  1327.   #if JOBS
  1328.   char    rsqbrk[]    = "] ";
  1329.   char    spspstr[]    = " \ ";
  1330.  
  1331. --- 201,207 -----
  1332.   char    ishashed[]    = " is hashed (";        /* DAG */
  1333.   char    rpnlstr[]    = ")\n";            /* DAG */
  1334.   char    isstr[]        = " is ";            /* DAG */
  1335. + char    rdwstr[]    = "<> ";
  1336.   #if JOBS
  1337.   char    rsqbrk[]    = "] ";
  1338.   char    spspstr[]    = " \ ";
  1339. ***************
  1340. *** 217,222
  1341.   char    selsstr[]    = "; else ";
  1342.   char    sfistr[]    = "; fi";
  1343.   char    iesacstr[]    = " in ... esac";
  1344.   #endif
  1345.   #if BRL
  1346.   char    drshell[]    = "-rsh";
  1347.  
  1348. --- 228,234 -----
  1349.   char    selsstr[]    = "; else ";
  1350.   char    sfistr[]    = "; fi";
  1351.   char    iesacstr[]    = " in ... esac";
  1352. + char    nosusp[]    = "cannot suspend a login shell\n";    /* yet... */
  1353.   #endif
  1354.   #if BRL
  1355.   char    drshell[]    = "-rsh";
  1356. ***************
  1357. *** 329,334
  1358.       { lbstr,    SYSTST },    /* DAG -- use shared string */
  1359.   #endif
  1360.   
  1361.   #if JOBS
  1362.       { "bg",        SYSBG },
  1363.   #endif
  1364.  
  1365. --- 341,350 -----
  1366.       { lbstr,    SYSTST },    /* DAG -- use shared string */
  1367.   #endif
  1368.   
  1369. + #if pyr
  1370. +     { "att",    SYSATT },
  1371. + #endif
  1372. + 
  1373.   #if JOBS
  1374.       { "bg",        SYSBG },
  1375.   #endif
  1376. ***************
  1377. *** 347,352
  1378.   #endif
  1379.   
  1380.       { "hash",    SYSHASH    },
  1381.   
  1382.   #if JOBS
  1383.       { "jobs",    SYSJOBS },
  1384.  
  1385. --- 363,369 -----
  1386.   #endif
  1387.   
  1388.       { "hash",    SYSHASH    },
  1389. +     { "history",    SYSHISTORY },
  1390.   
  1391.   #if JOBS
  1392.       { "jobs",    SYSJOBS },
  1393. ***************
  1394. *** 376,381
  1395.       { "return",    SYSRETURN },
  1396.       { setstr,    SYSSET    },    /* DAG -- use shared string */
  1397.       { "shift",    SYSSHFT    },
  1398.       { "test",    SYSTST },
  1399.       { "times",    SYSTIMES },
  1400.       { "trap",    SYSTRAP    },
  1401.  
  1402. --- 393,401 -----
  1403.       { "return",    SYSRETURN },
  1404.       { setstr,    SYSSET    },    /* DAG -- use shared string */
  1405.       { "shift",    SYSSHFT    },
  1406. + #if JOBS
  1407. +     { "suspend",    SYSSUSPEND },    /* ADR */
  1408. + #endif
  1409.       { "test",    SYSTST },
  1410.       { "times",    SYSTIMES },
  1411.       { "trap",    SYSTRAP    },
  1412. ***************
  1413. *** 381,386
  1414.       { "trap",    SYSTRAP    },
  1415.       { "type",    SYSTYPE },
  1416.   
  1417.   
  1418.   #ifndef RES        
  1419.       { "ulimit",    SYSULIMIT },
  1420.  
  1421. --- 401,409 -----
  1422.       { "trap",    SYSTRAP    },
  1423.       { "type",    SYSTYPE },
  1424.   
  1425. + #if pyr
  1426. +     { "ucb",    SYSUCB },
  1427. + #endif
  1428.   
  1429.   #ifndef RES        
  1430.       { "ulimit",    SYSULIMIT },
  1431. ***************
  1432. *** 387,392
  1433.       { "umask",    SYSUMASK },
  1434.   #endif
  1435.   
  1436.       { "unset",     SYSUNS },
  1437.       { "wait",    SYSWAIT    }
  1438.   };
  1439.  
  1440. --- 410,419 -----
  1441.       { "umask",    SYSUMASK },
  1442.   #endif
  1443.   
  1444. + #if pyr
  1445. +     { "universe",    SYSUNIVERSE },
  1446. + #endif
  1447. + 
  1448.       { "unset",     SYSUNS },
  1449.       { "wait",    SYSWAIT    }
  1450.   };
  1451. ***************
  1452. *** 392,394
  1453.   };
  1454.   
  1455.   int    no_commands = sizeof commands / sizeof(struct sysnod);    /* DAG -- improved */
  1456.  
  1457. --- 419,427 -----
  1458.   };
  1459.   
  1460.   int    no_commands = sizeof commands / sizeof(struct sysnod);    /* DAG -- improved */
  1461. + 
  1462. + #if pyr
  1463. + #include <sys/types.h>    /* to get sys/inode.h to work (sigh) */
  1464. + #include <sys/inode.h>    /* NUMUNIV is defined to be NCLNK */
  1465. + #include <universe.h>    /* gets char *univ_name[] && char *univ_longname[] */
  1466. + #endif
  1467. :::::::: name.c :::::::
  1468. *** ../orig.u/name.c    Wed May 15 17:11:58 1985
  1469. --- name.c    Wed May  8 10:02:45 1985
  1470. ***************
  1471. *** 15,20
  1472.   #if BRL
  1473.   struct namnod timenod =    /* for TIMEOUT */
  1474.   {
  1475.       (struct namnod *)NIL,
  1476.       (struct namnod *)NIL,
  1477.       timename
  1478.  
  1479. --- 15,24 -----
  1480.   #if BRL
  1481.   struct namnod timenod =    /* for TIMEOUT */
  1482.   {
  1483. +     &acctnod,
  1484. + #if pyr
  1485. +     &univnod,
  1486. + #else
  1487.       (struct namnod *)NIL,
  1488.   #endif
  1489.       timename
  1490. ***************
  1491. *** 16,22
  1492.   struct namnod timenod =    /* for TIMEOUT */
  1493.   {
  1494.       (struct namnod *)NIL,
  1495. !     (struct namnod *)NIL,
  1496.       timename
  1497.   };
  1498.   #endif
  1499.  
  1500. --- 20,26 -----
  1501.       &univnod,
  1502.   #else
  1503.       (struct namnod *)NIL,
  1504. ! #endif
  1505.       timename
  1506.   };
  1507.   #endif
  1508. ***************
  1509. *** 20,26
  1510.       timename
  1511.   };
  1512.   #endif
  1513. ! struct namnod ps2nod =
  1514.   {
  1515.       (struct namnod *)NIL,
  1516.       &acctnod,
  1517.  
  1518. --- 24,31 -----
  1519.       timename
  1520.   };
  1521.   #endif
  1522. ! #if pyr
  1523. ! struct namnod univnod = /* current universe */
  1524.   {
  1525.   #if BRL
  1526.       (struct namnod *)NIL,
  1527. ***************
  1528. *** 22,27
  1529.   #endif
  1530.   struct namnod ps2nod =
  1531.   {
  1532.       (struct namnod *)NIL,
  1533.       &acctnod,
  1534.       ps2name
  1535.  
  1536. --- 27,33 -----
  1537.   #if pyr
  1538.   struct namnod univnod = /* current universe */
  1539.   {
  1540. + #if BRL
  1541.       (struct namnod *)NIL,
  1542.   #else
  1543.       &acctnod,
  1544. ***************
  1545. *** 23,28
  1546.   struct namnod ps2nod =
  1547.   {
  1548.       (struct namnod *)NIL,
  1549.       &acctnod,
  1550.       ps2name
  1551.   };
  1552.  
  1553. --- 29,35 -----
  1554.   {
  1555.   #if BRL
  1556.       (struct namnod *)NIL,
  1557. + #else
  1558.       &acctnod,
  1559.   #endif
  1560.       (struct namnod *)NIL,
  1561. ***************
  1562. *** 24,29
  1563.   {
  1564.       (struct namnod *)NIL,
  1565.       &acctnod,
  1566.       ps2name
  1567.   };
  1568.   struct namnod cdpnod = 
  1569.  
  1570. --- 31,59 -----
  1571.       (struct namnod *)NIL,
  1572.   #else
  1573.       &acctnod,
  1574. + #endif
  1575. +     (struct namnod *)NIL,
  1576. +     univname,
  1577. + };
  1578. + #endif
  1579. + struct namnod histfnod =    /* history file */
  1580. + {
  1581. +     &cdpnod,
  1582. +     &homenod,
  1583. +     histfilename
  1584. + };
  1585. + struct namnod ps2nod =
  1586. + {
  1587. +     &ps1nod,
  1588. + #if BRL
  1589. +     &timenod,
  1590. + #else
  1591. + #if pyr
  1592. +     &univnod,
  1593. + #else
  1594. +     &acctnod,
  1595. + #endif
  1596. + #endif
  1597.       ps2name
  1598.   };
  1599.   struct namnod cdpnod = 
  1600. ***************
  1601. *** 34,40
  1602.   };
  1603.   struct namnod pathnod =
  1604.   {
  1605. -     &mailpnod,
  1606.       (struct namnod *)NIL,
  1607.       pathname
  1608.   };
  1609.  
  1610. --- 64,69 -----
  1611.   };
  1612.   struct namnod pathnod =
  1613.   {
  1614.       (struct namnod *)NIL,
  1615.       (struct namnod *)NIL,
  1616.       pathname
  1617. ***************
  1618. *** 36,41
  1619.   {
  1620.       &mailpnod,
  1621.       (struct namnod *)NIL,
  1622.       pathname
  1623.   };
  1624.   struct namnod ifsnod =
  1625.  
  1626. --- 65,71 -----
  1627.   struct namnod pathnod =
  1628.   {
  1629.       (struct namnod *)NIL,
  1630. +     (struct namnod *)NIL,
  1631.       pathname
  1632.   };
  1633.   struct namnod ifsnod =
  1634. ***************
  1635. *** 40,46
  1636.   };
  1637.   struct namnod ifsnod =
  1638.   {
  1639. !     &homenod,
  1640.       &mailnod,
  1641.       ifsname
  1642.   };
  1643.  
  1644. --- 70,76 -----
  1645.   };
  1646.   struct namnod ifsnod =
  1647.   {
  1648. !     &histfnod,
  1649.       &mailnod,
  1650.       ifsname
  1651.   };
  1652. ***************
  1653. *** 47,53
  1654.   struct namnod ps1nod =
  1655.   {
  1656.       &pathnod,
  1657. !     &ps2nod,
  1658.       ps1name
  1659.   };
  1660.   struct namnod homenod =
  1661.  
  1662. --- 77,83 -----
  1663.   struct namnod ps1nod =
  1664.   {
  1665.       &pathnod,
  1666. !     (struct namnod *)NIL,
  1667.       ps1name
  1668.   };
  1669.   struct namnod homenod =
  1670. ***************
  1671. *** 52,58
  1672.   };
  1673.   struct namnod homenod =
  1674.   {
  1675. -     &cdpnod,
  1676.       (struct namnod *)NIL,
  1677.       homename
  1678.   };
  1679.  
  1680. --- 82,87 -----
  1681.   };
  1682.   struct namnod homenod =
  1683.   {
  1684.       (struct namnod *)NIL,
  1685.       (struct namnod *)NIL,
  1686.       homename
  1687. ***************
  1688. *** 54,59
  1689.   {
  1690.       &cdpnod,
  1691.       (struct namnod *)NIL,
  1692.       homename
  1693.   };
  1694.   struct namnod mailnod =
  1695.  
  1696. --- 83,89 -----
  1697.   struct namnod homenod =
  1698.   {
  1699.       (struct namnod *)NIL,
  1700. +     (struct namnod *)NIL,
  1701.       homename
  1702.   };
  1703.   struct namnod mailnod =
  1704. ***************
  1705. *** 59,65
  1706.   struct namnod mailnod =
  1707.   {
  1708.       (struct namnod *)NIL,
  1709. !     (struct namnod *)NIL,
  1710.       mailname
  1711.   };
  1712.   struct namnod mchknod =
  1713.  
  1714. --- 89,95 -----
  1715.   struct namnod mailnod =
  1716.   {
  1717.       (struct namnod *)NIL,
  1718. !     &mchknod,
  1719.       mailname
  1720.   };
  1721.   struct namnod mchknod =
  1722. ***************
  1723. *** 64,71
  1724.   };
  1725.   struct namnod mchknod =
  1726.   {
  1727. !     &ifsnod,
  1728. !     &ps1nod,
  1729.       mchkname
  1730.   };
  1731.   struct namnod acctnod =
  1732.  
  1733. --- 94,101 -----
  1734.   };
  1735.   struct namnod mchknod =
  1736.   {
  1737. !     (struct namnod *)NIL,
  1738. !     (struct namnod *)NIL,
  1739.       mchkname
  1740.   };
  1741.   struct namnod acctnod =
  1742. ***************
  1743. *** 71,79
  1744.   struct namnod acctnod =
  1745.   {
  1746.       (struct namnod *)NIL,
  1747. - #if BRL
  1748. -     &timenod,    /* lopsided tree, but who cares */
  1749. - #else
  1750.       (struct namnod *)NIL,
  1751.   #endif
  1752.       acctname
  1753.  
  1754. --- 101,106 -----
  1755.   struct namnod acctnod =
  1756.   {
  1757.       (struct namnod *)NIL,
  1758.       (struct namnod *)NIL,
  1759.       acctname
  1760.   };
  1761. ***************
  1762. *** 75,81
  1763.       &timenod,    /* lopsided tree, but who cares */
  1764.   #else
  1765.       (struct namnod *)NIL,
  1766. - #endif
  1767.       acctname
  1768.   };
  1769.   struct namnod mailpnod =
  1770.  
  1771. --- 102,107 -----
  1772.   {
  1773.       (struct namnod *)NIL,
  1774.       (struct namnod *)NIL,
  1775.       acctname
  1776.   };
  1777.   struct namnod mailpnod =
  1778. ***************
  1779. *** 80,87
  1780.   };
  1781.   struct namnod mailpnod =
  1782.   {
  1783. !     (struct namnod *)NIL,
  1784. !     (struct namnod *)NIL,
  1785.       mailpname
  1786.   };
  1787.   
  1788.  
  1789. --- 106,113 -----
  1790.   };
  1791.   struct namnod mailpnod =
  1792.   {
  1793. !     &ifsnod,
  1794. !     &ps2nod,
  1795.       mailpname
  1796.   };
  1797.   
  1798. ***************
  1799. *** 86,92
  1800.   };
  1801.   
  1802.   
  1803. ! struct namnod *namep = &mchknod;
  1804.   
  1805.   /* ========    variable and string handling    ======== */
  1806.   
  1807.  
  1808. --- 112,118 -----
  1809.   };
  1810.   
  1811.   
  1812. ! struct namnod *namep = &mailpnod;
  1813.   
  1814.   /* ========    variable and string handling    ======== */
  1815.   
  1816. :::::::: name.h :::::::
  1817. No differences encountered
  1818. :::::::: print.c :::::::
  1819. *** ../orig.u/print.c    Wed May 15 17:11:58 1985
  1820. --- print.c    Wed May 29 16:24:45 1985
  1821. ***************
  1822. *** 265,267
  1823.   
  1824.       prs_buff(numbuf);
  1825.   }
  1826.  
  1827. --- 265,384 -----
  1828.   
  1829.       prs_buff(numbuf);
  1830.   }
  1831. + 
  1832. + void
  1833. + pr_prompt (str)
  1834. + register char *str;
  1835. + {
  1836. +     for (; *str; str++)
  1837. +     {
  1838. +         if (*str != '%')
  1839. +             prc_buff (*str);
  1840. +         else if (*(str+1) == 'd')
  1841. +         {
  1842. +             /* current directory */
  1843. +             str++;
  1844. +             prs_buff (retcwd());
  1845. +         }
  1846. +         else if (*(str+1) == 'e')
  1847. +         {
  1848. +             /* event count */
  1849. +             str++;
  1850. +             if ((flags & nohistflg) == 0)
  1851. +                 prn_buff (event_count);
  1852. +         }
  1853. +         else if (*(str+1) == 'h')
  1854. +         {
  1855. +             /* hostname */
  1856. +             static char *cp = 0;
  1857. +             static int didhost = FALSE;
  1858. +             static int didgt = FALSE;
  1859. + #ifdef BSD
  1860. +             static char buf[257];
  1861. + 
  1862. +             if (! didhost)
  1863. +             {
  1864. +                 gethostname (buf, sizeof buf);
  1865. +                 didhost = TRUE;
  1866. +                 cp = buf;
  1867. +             }
  1868. + #else
  1869. + #include <sys/utsname.h>    /* has an extern declaration in it */
  1870. +             static struct utsname name;
  1871. + 
  1872. +             if (! didhost)
  1873. +             {
  1874. +                 uname (& name);
  1875. +                 /* avoid emulation bug */
  1876. +                 name.sysname[sizeof(name.sysname)-1] = '\0';
  1877. +                 didhost = TRUE;
  1878. +                 cp = name.sysname;
  1879. +             }
  1880. + #endif
  1881. + 
  1882. + #ifdef GATECH
  1883. +             /*
  1884. +              * this is to get rid of the dumb gt- convention.
  1885. +              * a gt w/out the - is also removed.
  1886. +              */
  1887. +             if (! didgt)
  1888. +             {
  1889. +                 didgt = TRUE;
  1890. +                 if (cp[0] == 'g' && cp[1] == 't' && cp[2])
  1891. +                 {
  1892. +                     cp += 2;
  1893. +                     if (cp[0] == '-' && cp[1])
  1894. +                         cp++;
  1895. +                 }
  1896. +             }
  1897. + #endif
  1898. +             prs_buff (cp);
  1899. +             str++;
  1900. +         }
  1901. +         else if (*(str+1) == 'l')
  1902. +         {
  1903. +             /* login name */
  1904. +             static char *cp = 0;
  1905. +             static int didname = FALSE;
  1906. + 
  1907. +             str++;
  1908. +             if (! didname)
  1909. +             {
  1910. +                 cp = username ();
  1911. +                 didname = TRUE;
  1912. +             }
  1913. + 
  1914. +             if (cp)
  1915. +                 prs_buff (cp);
  1916. +         }
  1917. +         else if (*(str+1) == 't')
  1918. +         {
  1919. +             /* current time, HH:MM */
  1920. +             long l;
  1921. +             char *cp, *ctime ();
  1922. + 
  1923. +             str++;
  1924. +             time (& l);
  1925. +             cp = ctime (& l);
  1926. +             cp[16] = '\0';
  1927. +             cp += 11;
  1928. +             prs_buff (cp);
  1929. +         }
  1930. + #if pyr
  1931. +         else if (*(str+1) == 'u')
  1932. +         {
  1933. +             /* current univeserse */
  1934. +             str++;
  1935. +             prs_buff (univ_name[cur_univ-1]);
  1936. +         }
  1937. + #endif
  1938. +         else if (*(str+1) == '\0')    /* % was last char in string */
  1939. +         {
  1940. +             prc_buff (*str);
  1941. +             continue;
  1942. +         }
  1943. +         else
  1944. +             prc_buff (*(++str));
  1945. +     }
  1946. +     flushb();
  1947. + }
  1948. :::::::: pwd.c :::::::
  1949. *** ../orig.u/pwd.c    Wed May 15 17:11:58 1985
  1950. --- pwd.c    Thu Apr 25 11:44:56 1985
  1951. ***************
  1952. *** 455,457
  1953.       return retval;
  1954.       }
  1955.   #endif
  1956.  
  1957. --- 455,466 -----
  1958.       return retval;
  1959.       }
  1960.   #endif
  1961. + 
  1962. + char *
  1963. + retcwd()
  1964. + {
  1965. +     if (didpwd == FALSE)
  1966. +         pwd ();
  1967. +     
  1968. +     return (cwdname);
  1969. + }
  1970. :::::::: service.c :::::::
  1971. *** ../orig.u/service.c    Wed May 15 17:11:58 1985
  1972. --- service.c    Wed May 29 15:55:29 1985
  1973. ***************
  1974. *** 79,84
  1975.                   else
  1976.                       fd = dup(fd);
  1977.               }
  1978.               else if ((iof & IOPUT) == 0)
  1979.                   fd = chkopen(ion);
  1980.               else if (flags & rshflg)
  1981.  
  1982. --- 79,89 -----
  1983.                   else
  1984.                       fd = dup(fd);
  1985.               }
  1986. +             else if (iof & IORDW)
  1987. +             {
  1988. +                 if ((fd = open(ion, 2)) < 0)
  1989. +                     failed(ion, badopen);
  1990. +             }
  1991.               else if ((iof & IOPUT) == 0)
  1992.                   fd = chkopen(ion);
  1993.               else if (flags & rshflg)
  1994. ***************
  1995. *** 157,162
  1996.        */
  1997.       register char    *scanp = path;
  1998.       register char    *argp = locstak();
  1999.   
  2000.       while (*scanp && *scanp != COLON)
  2001.           *argp++ = *scanp++;
  2002.  
  2003. --- 162,169 -----
  2004.        */
  2005.       register char    *scanp = path;
  2006.       register char    *argp = locstak();
  2007. +     char    *save = argp;
  2008. +     char    *cp;
  2009.   
  2010.       while (*scanp && *scanp != COLON)
  2011.           *argp++ = *scanp++;
  2012. ***************
  2013. *** 160,165
  2014.   
  2015.       while (*scanp && *scanp != COLON)
  2016.           *argp++ = *scanp++;
  2017.       if (scanp != path)
  2018.           *argp++ = '/';
  2019.       if (*scanp == COLON)
  2020.  
  2021. --- 167,179 -----
  2022.   
  2023.       while (*scanp && *scanp != COLON)
  2024.           *argp++ = *scanp++;
  2025. +     *argp = '\0';
  2026. +     /* try a tilde expansion */
  2027. +     if (*save == SQUIGGLE && (cp = homedir (save + 1)) != nullstr)
  2028. +     {
  2029. +         movstr (cp, save);
  2030. +         argp = save + length (save) - 1;
  2031. +     }
  2032.       if (scanp != path)
  2033.           *argp++ = '/';
  2034.       if (*scanp == COLON)
  2035. :::::::: setbrk.c :::::::
  2036. No differences encountered
  2037. :::::::: signal.vax :::::::
  2038. No differences encountered
  2039. :::::::: stak.c :::::::
  2040. No differences encountered
  2041. :::::::: stak.h :::::::
  2042. No differences encountered
  2043. :::::::: string.c :::::::
  2044. No differences encountered
  2045. :::::::: sym.h :::::::
  2046. No differences encountered
  2047. :::::::: test.c :::::::
  2048. *** ../orig.u/test.c    Wed May 15 17:11:59 1985
  2049. --- test.c    Thu Apr 25 11:45:03 1985
  2050. ***************
  2051. *** 126,132
  2052.           if (eq(a, dashk))                /* DAG */
  2053.               return(ftype(nxtarg(0), S_ISVTX));
  2054.           if (eq(a, dashp))                /* DAG */
  2055. ! #if BSD
  2056.   #define S_IFIFO    S_IFSOCK    /* fifo - map to socket on 4.2BSD */
  2057.   #endif
  2058.               return(filtyp(nxtarg(0),S_IFIFO));
  2059.  
  2060. --- 126,132 -----
  2061.           if (eq(a, dashk))                /* DAG */
  2062.               return(ftype(nxtarg(0), S_ISVTX));
  2063.           if (eq(a, dashp))                /* DAG */
  2064. ! #if BSD && !defined(pyr)
  2065.   #define S_IFIFO    S_IFSOCK    /* fifo - map to socket on 4.2BSD */
  2066.   #endif
  2067.               return(filtyp(nxtarg(0),S_IFIFO));
  2068. :::::::: timeout.h :::::::
  2069. No differences encountered
  2070. :::::::: ulimit.c :::::::
  2071. No differences encountered
  2072. :::::::: word.c :::::::
  2073. *** ../orig.u/word.c    Wed May 15 17:11:59 1985
  2074. --- word.c    Thu Jun  6 14:32:13 1985
  2075. ***************
  2076. *** 19,24
  2077.       struct argnod    *arg = (struct argnod *)locstak();
  2078.       register char    *argp = arg->argval;
  2079.       int        alpha = 1;
  2080.   
  2081.       wdnum = 0;
  2082.       wdset = 0;
  2083.  
  2084. --- 19,25 -----
  2085.       struct argnod    *arg = (struct argnod *)locstak();
  2086.       register char    *argp = arg->argval;
  2087.       int        alpha = 1;
  2088. +     char        *save;
  2089.   
  2090.       wdnum = 0;
  2091.       wdset = 0;
  2092. ***************
  2093. *** 41,46
  2094.               break;    /* out of comment - white space loop */
  2095.           }
  2096.       }
  2097.       if (!eofmeta(c))
  2098.       {
  2099.           do
  2100.  
  2101. --- 42,48 -----
  2102.               break;    /* out of comment - white space loop */
  2103.           }
  2104.       }
  2105. +     save = argp;    /* save start of word */
  2106.       if (!eofmeta(c))
  2107.       {
  2108.           do
  2109. ***************
  2110. *** 72,77
  2111.                               chkpr();
  2112.                       }
  2113.                   }
  2114.               }
  2115.           } while ((c = nextc(0), !eofmeta(c)));
  2116.           argp = endstak(argp);
  2117.  
  2118. --- 74,98 -----
  2119.                               chkpr();
  2120.                       }
  2121.                   }
  2122. +                 /*
  2123. +                  * check for ~login name
  2124. +                  */
  2125. +                 else if (c == SQUIGGLE &&
  2126. +                         validtilde (save, argp))
  2127. +                 {
  2128. +                     char *name, *home;
  2129. + 
  2130. +                     name = argp;
  2131. +                     while ((c = nextc(0)) != '/' &&
  2132. +                             !eofmeta(c))
  2133. +                         *name++ = c;
  2134. +                     peekc = c;
  2135. +                     *name = '\0';
  2136. +                     home = homedir(argp);
  2137. +                     if (*home)
  2138. +                         movstr (home, --argp);
  2139. +                     argp += length (argp) - 1;
  2140. +                 }
  2141.               }
  2142.           } while ((c = nextc(0), !eofmeta(c)));
  2143.           argp = endstak(argp);
  2144. ***************
  2145. *** 120,125
  2146.               wdval = EOFSYM;
  2147.           if (iopend && eolchar(c))
  2148.           {
  2149.               copy(iopend);
  2150.               iopend = 0;
  2151.           }
  2152.  
  2153. --- 141,149 -----
  2154.               wdval = EOFSYM;
  2155.           if (iopend && eolchar(c))
  2156.           {
  2157. +             int histon = (flags&nohistflg) == 0;
  2158. + 
  2159. +             flags |= nohistflg;    /* no history in here docs */
  2160.               copy(iopend);
  2161.               if (histon)        /* turn history back on */
  2162.                   flags &= ~nohistflg;
  2163. ***************
  2164. *** 121,126
  2165.           if (iopend && eolchar(c))
  2166.           {
  2167.               copy(iopend);
  2168.               iopend = 0;
  2169.           }
  2170.       }
  2171.  
  2172. --- 145,152 -----
  2173.   
  2174.               flags |= nohistflg;    /* no history in here docs */
  2175.               copy(iopend);
  2176. +             if (histon)        /* turn history back on */
  2177. +                 flags &= ~nohistflg;
  2178.               iopend = 0;
  2179.           }
  2180.       }
  2181. ***************
  2182. *** 245,251
  2183.       }
  2184.       else
  2185.       {
  2186. !         f->fend = (f->fnxt = f->fbuf) + len;
  2187.   #if BRL || JOBS
  2188.           eofcount = 0;
  2189.   #endif
  2190.  
  2191. --- 271,278 -----
  2192.       }
  2193.       else
  2194.       {
  2195. !         /* f->fend = (f->fnxt = f->fbuf) + len; */
  2196. !         f->fend = f->fnxt + len;
  2197.   #if BRL || JOBS
  2198.           eofcount = 0;
  2199.   #endif
  2200. ***************
  2201. *** 255,261
  2202.   }
  2203.   
  2204.   static
  2205. ! readb()
  2206.   {
  2207.       register struct fileblk *f = standin;
  2208.       register int    len;
  2209.  
  2210. --- 282,288 -----
  2211.   }
  2212.   
  2213.   static
  2214. ! readblock()    /* ADR -- changed the name */
  2215.   {
  2216.       register struct fileblk *f = standin;
  2217.       register int    len;
  2218. ***************
  2219. *** 275,278
  2220.           }
  2221.       } while ((len = read(f->fdes, f->fbuf, f->fsiz)) < 0 && trapnote);
  2222.       return(len);
  2223.   }
  2224.  
  2225. --- 302,502 -----
  2226.           }
  2227.       } while ((len = read(f->fdes, f->fbuf, f->fsiz)) < 0 && trapnote);
  2228.       return(len);
  2229. + }
  2230. + 
  2231. + /* readb --- read a block from the outside world, and history process it */
  2232. + 
  2233. + /*
  2234. +  * In BSD systems, using the literal next capability of the tty driver, it
  2235. +  * is actually possible to put a newline in the middle of the input line,
  2236. +  * and then hit return, so that the shell sees two lines of input.
  2237. +  *
  2238. +  * As a design decision, if there is a \n in the middle of what we've read
  2239. +  * from a terminal, treat the commands as two separately typed commands. I.e.
  2240. +  *
  2241. +  *    echo hi ^J echo there
  2242. +  *
  2243. +  * is the same as
  2244. +  *
  2245. +  *    echo hi
  2246. +  *    echo there
  2247. +  *
  2248. +  * The major reason for doing it this way is that the history mechanism knows
  2249. +  * that a \n is the end of a line.
  2250. +  *
  2251. +  * Finally, on USG systems, we just leave this code alone, since it won't
  2252. +  * get executed anyway.
  2253. +  */
  2254. + 
  2255. + /*
  2256. +  * In word.c, the readc() function keeps a pointer to what standin pointed to
  2257. +  * when readc first gets called.  Therefore, where standin points to can not 
  2258. +  * not change across calls to readb().  To get around this, we change the
  2259. +  * contents of the structure pointed to by standin, saving and restoring
  2260. +  * it as necessary.
  2261. +  */
  2262. + 
  2263. + #define LARGEBUF    (HISTSIZE / 2)    /* size of expanded history */
  2264. + 
  2265. + static
  2266. + readb()
  2267. + {
  2268. +     int ilen, i, j;
  2269. +     char ibuf[BUFSIZ];    /* input into scratch area, pass to history */
  2270. +     static char expansion[LARGEBUF];
  2271. +     static int moreinbuf = FALSE;
  2272. +     static int saved_ilen = 0;
  2273. +     static int start_here = 0;
  2274. +     static struct fileblk *f = 0;
  2275. +     auto int gotoutofbuf = 0;
  2276. + 
  2277. +     if (expanded)    /* just did a history substitution */
  2278. +         expanded = 0;
  2279. + 
  2280. +     if ((flags & nohistflg) || (flags & prompt) == 0 || ! isatty (input)
  2281. +             || standin->fstak != 0)
  2282. +     {
  2283. +         ilen = readblock ();
  2284. +         if (ilen > 0)
  2285. +             standin->fnxt = standin->fbuf;
  2286. +         return (ilen);
  2287. +         /* not doing history expansion at all */
  2288. +     }
  2289. + 
  2290. +     if (f == 0)
  2291. +         f = standin;
  2292. + 
  2293. +     ilen = 0;
  2294. + 
  2295. +     /*
  2296. +      * First, if there was more stuff in the last buffer, go and get it.
  2297. +      * If not get some more from the outside world.
  2298. +      *
  2299. +      * Then, make sure we've read up to a newline.
  2300. +      * This is basically in case someone has done something bizarre
  2301. +      * like 'stty raw', and input is coming in one character at a time.
  2302. +      *
  2303. +      * We use a heuristic.  If amount read is just 1, keep reading till
  2304. +      * we get a newline.  Else, read in a complete line from the terminal.
  2305. +      * Once we're in raw mode, can't reset it until a newline is typed.
  2306. +      *
  2307. +      * If not reading one character at a time, then do the stuff for
  2308. +      * embedded newlines.
  2309. +      */
  2310. + 
  2311. +     if (moreinbuf)
  2312. +     {
  2313. +         for (i = 0, j = start_here; f->fbuf[j] != NL && j < saved_ilen; i++, j++)
  2314. +             ibuf[i] = f->fbuf[j];
  2315. + 
  2316. + #ifdef notdef
  2317. +         if (f->fbuf[j] != NL)
  2318. +         {
  2319. +             prs ("internal i/o error C in readb\n");
  2320. +             return (0);
  2321. +         }
  2322. + #endif
  2323. + 
  2324. +         if (f->fbuf[j] == NL)
  2325. +             ibuf[i++] = NL;
  2326. +         ibuf[i] = '\0';
  2327. +         ilen = i;
  2328. +         /* embedded newline */
  2329. +         moreinbuf = (++j < saved_ilen - 1);
  2330. +         if (moreinbuf)
  2331. +             start_here = j;    /* where to start next time */
  2332. +         gotoutofbuf = 1;
  2333. +     }
  2334. +     else    /* wasn't an embedded \n last time */
  2335. +     {
  2336. +         ilen = readblock ();
  2337. +     
  2338. +         if (ilen <= 0)    /* EOF or error */
  2339. +             return (ilen);
  2340. + 
  2341. +         if (ilen == 1)    /* either in raw mode, or an empty line */
  2342. +         {
  2343. +             i = 0;
  2344. +             ibuf[i++] = f->fbuf[0];
  2345. +             if (f->fbuf[0] == NL)
  2346. +             {
  2347. +                 ibuf[i] = '\0';
  2348. +                 goto dohist;
  2349. +             }
  2350. + 
  2351. +             while ((ilen = readblock()) > 0)
  2352. +             {
  2353. +                 if (ilen != 1)
  2354. +                 {
  2355. +                     prs ("internal i/o error A in readb\n");
  2356. +                     return (0);
  2357. +                 }
  2358. +                 ibuf[i++] = f->fbuf[0];
  2359. +                 if (f->fbuf[0] == NL)
  2360. +                 {
  2361. +                     ibuf[i] = '\0';
  2362. +                     break;    /* while */
  2363. +                 }
  2364. +             }
  2365. +             ilen = i;
  2366. +             gotoutofbuf = TRUE;
  2367. +             /* force code below to use collected string */
  2368. +         }
  2369. +         else
  2370. +         {
  2371. +             /* reading bunches of characters at once */
  2372. +             for (i = 0; f->fbuf[i] != NL && i < ilen; i++)
  2373. +                 ibuf[i] = f->fbuf[i];
  2374. + 
  2375. + #ifdef notdef
  2376. +             if (f->fbuf[i] != NL)
  2377. +             {
  2378. +                 prs ("internal i/o error B in readb\n");
  2379. +                 return (0);
  2380. +             }
  2381. + #endif
  2382. + 
  2383. +             ibuf[i++] = NL;
  2384. +             ibuf[i] = '\0';
  2385. +             /* ilen was set by readblock() */
  2386. +             /* embedded newline */
  2387. +             moreinbuf = (i < ilen - 1);
  2388. +             if (moreinbuf)
  2389. +             {
  2390. +                 saved_ilen = ilen;
  2391. +                 start_here = i;
  2392. +                 /* where to start next time */
  2393. +                 gotoutofbuf = 1;
  2394. +             }
  2395. +         }
  2396. +     }
  2397. + 
  2398. + dohist:
  2399. +     /* quick heuristic */
  2400. +     if (! gotoutofbuf && ilen == 1 && f->fbuf[0] == NL)
  2401. +     {
  2402. +         f->fnxt = f->fbuf;
  2403. +         return (ilen);
  2404. +     }
  2405. + 
  2406. +     if (histsub (ibuf, expansion, sizeof expansion))
  2407. +     {
  2408. +         int olen = length (expansion) - 1;
  2409. +         if (! expanded && ! gotoutofbuf)
  2410. +         {
  2411. +             standin->fnxt = standin->fbuf;
  2412. +             return (ilen);
  2413. +         }
  2414. +         /* else
  2415. +             expanded == TRUE or from buffer */
  2416. +         standin->fnxt = expansion;
  2417. +         return (olen);
  2418. +     }
  2419. +     else
  2420. +     {
  2421. +         /* hist expansion failed, return an empty line */
  2422. +         standin->fnxt = standin->fbuf;
  2423. +         standin->fbuf[0] = NL;
  2424. +         return (1);
  2425. +     }
  2426.   }
  2427. :::::::: xec.c :::::::
  2428. *** ../orig.u/xec.c    Wed May 15 17:12:00 1985
  2429. --- xec.c    Tue Jun  4 17:57:01 1985
  2430. ***************
  2431. *** 27,32
  2432.        */
  2433.       register struct trenod    *t;
  2434.       char        *sav = savstak();
  2435.   
  2436.       sigchk();
  2437.       if (!errorflg)
  2438.  
  2439. --- 27,42 -----
  2440.        */
  2441.       register struct trenod    *t;
  2442.       char        *sav = savstak();
  2443. + #if pyr
  2444. +     auto int change_univ = FALSE;
  2445. +     auto int new_univ = 0;
  2446. +     /*
  2447. +      * univesrses run from 1 to NUMUNIV: We start out at 0
  2448. +      * and increment new_univ in the switch for internal
  2449. +      * commands, below.  new_univ must *not* be assigned to, directly
  2450. +      * or via side effects, any place else.
  2451. +      */
  2452. + #endif
  2453.   
  2454.       sigchk();
  2455.       if (!errorflg)
  2456. ***************
  2457. *** 109,114
  2458.                       if (flags & execpr)
  2459.                           execprint(com);
  2460.   
  2461.                       if (comtype == NOTFOUND)
  2462.                       {
  2463.                           pos = hashdata(cmdhash);
  2464.  
  2465. --- 119,130 -----
  2466.                       if (flags & execpr)
  2467.                           execprint(com);
  2468.   
  2469. +                     /*
  2470. +                      * fix a bug which caused the shell
  2471. +                      * to do not do a second command if
  2472. +                      * the first was not found. (bug fix
  2473. +                      * from USENET)
  2474. +                      */
  2475.                       if (comtype == NOTFOUND)
  2476.                       {
  2477.                           char *errstr;
  2478. ***************
  2479. *** 111,116
  2480.   
  2481.                       if (comtype == NOTFOUND)
  2482.                       {
  2483.                           pos = hashdata(cmdhash);
  2484.                           if (pos == 1)
  2485.                               failed(*com, notfound);
  2486.  
  2487. --- 127,134 -----
  2488.                        */
  2489.                       if (comtype == NOTFOUND)
  2490.                       {
  2491. +                         char *errstr;
  2492. + 
  2493.                           pos = hashdata(cmdhash);
  2494.                           if (pos == 1)
  2495.                               errstr = notfound;
  2496. ***************
  2497. *** 113,119
  2498.                       {
  2499.                           pos = hashdata(cmdhash);
  2500.                           if (pos == 1)
  2501. !                             failed(*com, notfound);
  2502.                           else if (pos == 2)
  2503.                               failed(*com, badexec);
  2504.                           else
  2505.  
  2506. --- 131,137 -----
  2507.   
  2508.                           pos = hashdata(cmdhash);
  2509.                           if (pos == 1)
  2510. !                             errstr = notfound;
  2511.                           else if (pos == 2)
  2512.                               errstr = badexec;
  2513.                           else
  2514. ***************
  2515. *** 115,121
  2516.                           if (pos == 1)
  2517.                               failed(*com, notfound);
  2518.                           else if (pos == 2)
  2519. !                             failed(*com, badexec);
  2520.                           else
  2521.                               failed(*com, badperm);
  2522.                           break;
  2523.  
  2524. --- 133,139 -----
  2525.                           if (pos == 1)
  2526.                               errstr = notfound;
  2527.                           else if (pos == 2)
  2528. !                             errstr = badexec;
  2529.                           else
  2530.                               errstr = badperm;
  2531.                           prp();
  2532. ***************
  2533. *** 117,123
  2534.                           else if (pos == 2)
  2535.                               failed(*com, badexec);
  2536.                           else
  2537. !                             failed(*com, badperm);
  2538.                           break;
  2539.                       }
  2540.   
  2541.  
  2542. --- 135,147 -----
  2543.                           else if (pos == 2)
  2544.                               errstr = badexec;
  2545.                           else
  2546. !                             errstr = badperm;
  2547. !                         prp();
  2548. !                         prs_cntl(*com);
  2549. !                         prs (colon);
  2550. !                         prs (errstr);
  2551. !                         newline();
  2552. !                         exitval = 1;
  2553.                           break;
  2554.                       }
  2555.   
  2556. ***************
  2557. *** 193,198
  2558.                               if (j_finish(FALSE))
  2559.                                   break;
  2560.   #endif
  2561.                               flags |= forked;    /* force exit */    
  2562.   #if BRL && pdp11
  2563.                               if (loginsh)
  2564.  
  2565. --- 217,224 -----
  2566.                               if (j_finish(FALSE))
  2567.                                   break;
  2568.   #endif
  2569. +                             histsave (histfnod.namval);
  2570. +                             /* save before setting flag */
  2571.                               flags |= forked;    /* force exit */    
  2572.   #if BRL && pdp11
  2573.                               if (loginsh)
  2574. ***************
  2575. *** 289,294
  2576.   #ifdef RES    /* Research includes login as part of the shell */    
  2577.   
  2578.                           case SYSLOGIN:
  2579.                               flags |= forked;    /* DAG -- bug fix (force bad exec to terminate shell) */
  2580.                               oldsigs();
  2581.                               execa(com, -1);
  2582.  
  2583. --- 315,321 -----
  2584.   #ifdef RES    /* Research includes login as part of the shell */    
  2585.   
  2586.                           case SYSLOGIN:
  2587. +                             histsave (histfnod.namval);
  2588.                               flags |= forked;    /* DAG -- bug fix (force bad exec to terminate shell) */
  2589.                               oldsigs();
  2590.                               execa(com, -1);
  2591. ***************
  2592. *** 298,303
  2593.   #ifndef    BRL
  2594.                           case SYSLOGIN:    
  2595.   #endif
  2596.                               flags |= forked;    /* DAG -- bug fix (force bad exec to terminate shell) */
  2597.                               oldsigs();    
  2598.                               execa(com, -1);
  2599.  
  2600. --- 325,331 -----
  2601.   #ifndef    BRL
  2602.                           case SYSLOGIN:    
  2603.   #endif
  2604. +                             histsave (histfnod.namval);
  2605.                               flags |= forked;    /* DAG -- bug fix (force bad exec to terminate shell) */
  2606.                               oldsigs();    
  2607.                               execa(com, -1);
  2608. ***************
  2609. *** 309,314
  2610.                                   failed(com[0], restricted);    
  2611.                               else    
  2612.                               {    
  2613.                                   flags |= forked;    /* force bad exec to terminate shell */    
  2614.                                   oldsigs();    
  2615.                                   execa(com, -1);
  2616.  
  2617. --- 337,343 -----
  2618.                                   failed(com[0], restricted);    
  2619.                               else    
  2620.                               {    
  2621. +                                 histsave (histfnod.namval);
  2622.                                   flags |= forked;    /* force bad exec to terminate shell */    
  2623.                                   oldsigs();    
  2624.                                   execa(com, -1);
  2625. ***************
  2626. *** 518,524
  2627.                                   if (command == 1 || command == 4)    
  2628.                                   {    
  2629.                                       prl(i);    
  2630. !                                     prc_buff('\n');    
  2631.                                   }    
  2632.                                   break;    
  2633.                               }                
  2634.  
  2635. --- 547,553 -----
  2636.                                   if (command == 1 || command == 4)    
  2637.                                   {    
  2638.                                       prl(i);    
  2639. !                                     prc_buff(NL);    
  2640.                                   }    
  2641.                                   break;    
  2642.                               }                
  2643. ***************
  2644. *** 669,674
  2645.   
  2646.                               j_resume(a1, TRUE);
  2647.                               break;
  2648.   #endif
  2649.   
  2650.                           default:    
  2651.  
  2652. --- 698,714 -----
  2653.   
  2654.                               j_resume(a1, TRUE);
  2655.                               break;
  2656. + 
  2657. +                         case SYSSUSPEND:
  2658. +                             exitval = 1;
  2659. +                             if (getppid() == 1)
  2660. +                                 prs (nosusp);
  2661. +                             else
  2662. +                             {
  2663. +                                 exitval = 0;
  2664. +                                 kill (getpid(), SIGSTOP);
  2665. +                             }
  2666. +                             break;
  2667.   #endif
  2668.   
  2669.   #if pyr
  2670. ***************
  2671. *** 671,676
  2672.                               break;
  2673.   #endif
  2674.   
  2675.                           default:    
  2676.                               prs_buff("unknown builtin\n");
  2677.                           }    
  2678.  
  2679. --- 711,754 -----
  2680.                               break;
  2681.   #endif
  2682.   
  2683. + #if pyr
  2684. +                         /*
  2685. +                          * UCB is Universe 2
  2686. +                          * ATT is Universe 1
  2687. +                          * new_univ == 0
  2688. +                          */
  2689. +                         case SYSUCB:
  2690. +                             new_univ++;
  2691. +                             /* fall thru */
  2692. +                         case SYSATT:
  2693. +                             new_univ++;
  2694. +                             if (argn > 1)
  2695. +                             {
  2696. +                                 change_univ = TRUE;
  2697. +                                 com++;
  2698. +                                 goto doit;
  2699. +                             }
  2700. +                             else
  2701. +                             {
  2702. +                                 setuniverse (cur_univ = new_univ);
  2703. +                                 univnod.namflg &= ~N_RDONLY;
  2704. +                                 assign (& univnod, univ_name[cur_univ - 1]);
  2705. +                                 attrib ((& univnod), N_RDONLY);
  2706. +                                 break;
  2707. +                             }
  2708. +                         
  2709. +                         case SYSUNIVERSE:
  2710. +                             if (eq(com[1], dashl))
  2711. +                                 prs_buff (univ_longname[cur_univ - 1]);
  2712. +                             else
  2713. +                                 prs_buff (univ_name[cur_univ - 1]);
  2714. +                             prc_buff (NL);
  2715. +                             break;
  2716. + #endif
  2717. + 
  2718. +                         case SYSHISTORY:
  2719. +                             exitval = history (argn, com);
  2720. +                             break;
  2721.                           default:    
  2722.                               prs_buff("unknown builtin\n");
  2723.                           }    
  2724. ***************
  2725. *** 709,714
  2726.               }
  2727.   
  2728.           case TFORK:
  2729.               exitval = 0;
  2730.               if (execflg && (treeflgs & (FAMP | FPOU)) == 0)
  2731.                   parent = 0;
  2732.  
  2733. --- 787,795 -----
  2734.               }
  2735.   
  2736.           case TFORK:
  2737. + #if pyr
  2738. +         doit:
  2739. + #endif
  2740.               exitval = 0;
  2741.               if (execflg && (treeflgs & (FAMP | FPOU)) == 0)
  2742.                   parent = 0;
  2743. ***************
  2744. *** 788,793
  2745.               }
  2746.               else    /* this is the forked branch (child) of execute */
  2747.               {
  2748.   #if BRL
  2749.                   loginsh = 0;
  2750.   #endif
  2751.  
  2752. --- 869,884 -----
  2753.               }
  2754.               else    /* this is the forked branch (child) of execute */
  2755.               {
  2756. + #if pyr
  2757. +                 if (change_univ)
  2758. +                 {
  2759. +                     setuniverse (new_univ);
  2760. +                     univnod.namflg &= ~N_RDONLY;
  2761. +                     assign (& univnod, univ_name[cur_univ - 1]);
  2762. +                     attrib ((& univnod), N_RDONLY);
  2763. +                 }
  2764. + #endif
  2765. + 
  2766.   #if BRL
  2767.                   loginsh = 0;
  2768.   #endif
  2769.  
  2770.