home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume11 / tcsh.4.3 / part01 / DIFFS.1
Encoding:
Text File  |  1987-09-27  |  57.9 KB  |  2,621 lines
  1. *** sh.c    Sat Mar 29 07:17:01 1986
  2. --- /usr/src/local/tcsh/sh.c    Thu Sep 17 23:22:08 1987
  3. ***************
  4. *** 7,12
  5.   #ifndef lint
  6.   static char *sccsid = "@(#)sh.c    5.3 (Berkeley) 3/29/86";
  7.   #endif
  8.   
  9.   #include "sh.h"
  10.   #include <sys/ioctl.h>
  11.  
  12. --- 7,13 -----
  13.   #ifndef lint
  14.   static char *sccsid = "@(#)sh.c    5.3 (Berkeley) 3/29/86";
  15.   #endif
  16. + static char *Version = "tcsh 5.4 (Ohio State) 7/18/87 Patch level 0";
  17.   
  18.   #include "sh.h"
  19.   /* #include <sys/ioctl.h> */
  20. ***************
  21. *** 9,15
  22.   #endif
  23.   
  24.   #include "sh.h"
  25. ! #include <sys/ioctl.h>
  26.   /*
  27.    * C Shell
  28.    *
  29.  
  30. --- 10,27 -----
  31.   static char *Version = "tcsh 5.4 (Ohio State) 7/18/87 Patch level 0";
  32.   
  33.   #include "sh.h"
  34. ! /* #include <sys/ioctl.h> */
  35. ! 
  36. ! #ifdef SVID
  37. ! struct termio termiob;
  38. ! 
  39. ! # ifdef OREO
  40. ! struct ltchars ltcbuf;
  41. ! #include <compat.h>
  42. ! # endif OREO
  43. ! 
  44. ! #endif SVID
  45. ! 
  46.   /*
  47.    * C Shell
  48.    *
  49. ***************
  50. *** 18,23
  51.    *
  52.    * Jim Kulp, IIASA, Laxenburg, Austria
  53.    * April 1980
  54.    */
  55.   
  56.   char    *pathlist[] =    { ".", "/usr/ucb", "/bin", "/usr/bin", 0 };
  57.  
  58. --- 30,55 -----
  59.    *
  60.    * Jim Kulp, IIASA, Laxenburg, Austria
  61.    * April 1980
  62. +  *
  63. +  * Filename recognition added:
  64. +  * Ken Greer, Ind. Consultant, Palo Alto CA
  65. +  * October 1983.
  66. +  *
  67. +  * Karl Kleinpaste, Computer Consoles, Inc.
  68. +  * Added precmd, periodic/tperiod, prompt changes,
  69. +  * directory stack hack, and login watch.
  70. +  * Sometime March 1983 - Feb 1984.
  71. +  *
  72. +  * Added scheduled commands, including the "sched" command,
  73. +  * plus the call to sched_run near the precmd et al
  74. +  * routines.
  75. +  * Upgraded scheduled events for running events while
  76. +  * sitting idle at command input.
  77. +  *
  78. +  * Paul Placeway, Ohio State
  79. +  * added stuff for running with twenex/inputl  9 Oct 1984.
  80. +  *
  81. +  * ported to Apple Unix (TM) (OREO)  26 -- 29 Jun 1987
  82.    */
  83.   
  84.   char    *pathlist[] =    { ".", "/usr/ucb", "/bin", "/usr/bin", 0 };
  85. ***************
  86. *** 23,30
  87.   char    *pathlist[] =    { ".", "/usr/ucb", "/bin", "/usr/bin", 0 };
  88.   char    *dumphist[] =    { "history", "-h", 0, 0 };
  89.   char    *loadhist[] =    { "source", "-h", "~/.history", 0 };
  90. ! char    HIST = '!';
  91. ! char    HISTSUB = '^';
  92.   bool    nofile;
  93.   bool    reenter;
  94.   bool    nverbose;
  95.  
  96. --- 55,62 -----
  97.   char    *pathlist[] =    { ".", "/usr/ucb", "/bin", "/usr/bin", 0 };
  98.   char    *dumphist[] =    { "history", "-h", 0, 0 };
  99.   char    *loadhist[] =    { "source", "-h", "~/.history", 0 };
  100. ! /* char    HIST = '!'; */
  101. ! /* char    HISTSUB = '^'; */
  102.   bool    nofile;
  103.   bool    reenter;
  104.   bool    nverbose;
  105. ***************
  106. *** 34,39
  107.   bool    batch;
  108.   bool    prompt = 1;
  109.   bool    enterhist = 0;
  110.   
  111.   extern    gid_t getegid(), getgid();
  112.   extern    uid_t geteuid(), getuid();
  113.  
  114. --- 66,79 -----
  115.   bool    batch;
  116.   bool    prompt = 1;
  117.   bool    enterhist = 0;
  118. + bool    tellwhat = 0;
  119. + int    phup();
  120. + time_t    t_period;
  121. + time_t    watch_period = 0;
  122. + struct who *wholist;
  123. + bool    precmd_active = 0;
  124. + bool    periodic_active = 0;
  125. + char    buff[128];        /* for gethostname(2), and printprompt() */
  126.   
  127.   extern    gid_t getegid(), getgid();
  128.   extern    uid_t geteuid(), getuid();
  129. ***************
  130. *** 38,43
  131.   extern    gid_t getegid(), getgid();
  132.   extern    uid_t geteuid(), getuid();
  133.   
  134.   main(c, av)
  135.       int c;
  136.       char **av;
  137.  
  138. --- 78,111 -----
  139.   extern    gid_t getegid(), getgid();
  140.   extern    uid_t geteuid(), getuid();
  141.   
  142. + #define DEFAULT_AUTOLOGOUT    "60"    /* 1 Hour Alarm default */
  143. + 
  144. + auto_logout ()
  145. + {
  146. +     printf ("auto-logout\n");
  147. +     close (SHIN);
  148. +     set ("logout", "automatic");
  149. +     child++;
  150. +     goodbye ();
  151. + }
  152. + 
  153. + alrmcatch ()
  154. + {
  155. +     extern    struct    sched_event *sched_ptr;
  156. +     time_t    cl;
  157. + 
  158. +     if (!sched_ptr)
  159. +         auto_logout();    /* no other possibility - logout */
  160. +     time(&cl);
  161. +     if (sched_ptr->t_when <= cl + 1)
  162. +         sched_run();
  163. +     else
  164. +         auto_logout();
  165. +     setalarm();
  166. + }
  167. + 
  168. + char    *ttyname();
  169. + 
  170.   main(c, av)
  171.       int c;
  172.       char **av;
  173. ***************
  174. *** 47,52
  175.       struct sigvec osv;
  176.   
  177.       settimes();            /* Immed. estab. timing base */
  178.       v = av;
  179.       if (eq(v[0], "a.out"))        /* A.out's are quittable */
  180.           quitit = 1;
  181.  
  182. --- 115,128 -----
  183.       struct sigvec osv;
  184.   
  185.       settimes();            /* Immed. estab. timing base */
  186. + #ifdef OREO
  187. +     set42sig();
  188. +     setcompat (COMPAT_BSDPROT | COMPAT_BSDNBIO | COMPAT_BSDSIGNALS |
  189. +           COMPAT_SYSCALLS);
  190. + #endif
  191. +     HIST = '!';
  192. +     HISTSUB = '^';
  193. + 
  194.       v = av;
  195.       if (eq(v[0], "a.out"))        /* A.out's are quittable */
  196.           quitit = 1;
  197. ***************
  198. *** 56,61
  199.           (void) time(&chktim);
  200.   
  201.       /*
  202.        * Move the descriptors to safe places.
  203.        * The variable didfds is 0 while we have only FSH* to work with.
  204.        * When didfds is true, we have 0,1,2 and prefer to use these.
  205.  
  206. --- 132,144 -----
  207.           (void) time(&chktim);
  208.   
  209.       /*
  210. +      * Initialize for periodic command intervals.
  211. +      * Also, initialize the dummy tty list for login-watch.
  212. +      */
  213. +     time(&t_period);
  214. +     initwatch();
  215. + 
  216. +     /*
  217.        * Move the descriptors to safe places.
  218.        * The variable didfds is 0 while we have only FSH* to work with.
  219.        * When didfds is true, we have 0,1,2 and prefer to use these.
  220. ***************
  221. *** 69,74
  222.        * CHILD is munged when forking/waiting
  223.        */
  224.   
  225.       set("status", "0");
  226.       dinit(cp = getenv("HOME"));    /* dinit thinks that HOME == cwd in a
  227.                        * login shell */
  228.  
  229. --- 152,181 -----
  230.        * CHILD is munged when forking/waiting
  231.        */
  232.   
  233. +     /* 7-10-87 Paul Placeway
  234. +      * autologout should be set ONLY on login shells and on shells
  235. +      * running as root.  Out of these, autologout should NOT be set
  236. +      * for any psudo-terminals (this catches most window systems)
  237. +      * and not for any terminal running X windows.
  238. +      *
  239. +      * At Ohio State, we have had problems with a user having his
  240. +      * X session drop out from under him (on a Sun) because the shell
  241. +      * in his master xterm timed out and exited.
  242. +      *
  243. +      * Really, this should be done with a program external to the
  244. +      * shell, that watches for no activity (and NO running programs,
  245. +      * such as dump) on a terminal for a long peroid of time, and
  246. +      * then SIGHUPS the shell on that terminal.
  247. +      */
  248. +     if (loginsh || getuid() == 0) { /* only for login shells or root */
  249. +         cp = ttyname(SHIN);
  250. +         if ((strncmp (cp, "ttyp", 4) != 0) &&
  251. +         (strncmp (cp, "ttyp", 4) != 0))
  252. +         if (getenv("DISPLAY") == NOSTR) /* NOT on X window shells */
  253. +             set("autologout", DEFAULT_AUTOLOGOUT);
  254. +     }
  255. + 
  256. +     signal(SIGALRM, alrmcatch);
  257.       set("status", "0");
  258.       set("tcsh", "1");        /* so I can tell the difference */
  259.       dinit(cp = getenv("HOME"));    /* dinit thinks that HOME == cwd in a
  260. ***************
  261. *** 70,75
  262.        */
  263.   
  264.       set("status", "0");
  265.       dinit(cp = getenv("HOME"));    /* dinit thinks that HOME == cwd in a
  266.                        * login shell */
  267.       if (cp == NOSTR)
  268.  
  269. --- 177,183 -----
  270.   
  271.       signal(SIGALRM, alrmcatch);
  272.       set("status", "0");
  273. +     set("tcsh", "1");        /* so I can tell the difference */
  274.       dinit(cp = getenv("HOME"));    /* dinit thinks that HOME == cwd in a
  275.                        * login shell */
  276.       if (cp == NOSTR)
  277. ***************
  278. *** 84,89
  279.           set("user", savestr(cp));
  280.       if ((cp = getenv("TERM")) != NOSTR)
  281.           set("term", savestr(cp));
  282.       /*
  283.        * Re-initialize path if set in environment
  284.        */
  285.  
  286. --- 192,199 -----
  287.           set("user", savestr(cp));
  288.       if ((cp = getenv("TERM")) != NOSTR)
  289.           set("term", savestr(cp));
  290. + 
  291. +     set ("version", Version); /* publish the shell version */
  292.       /*
  293.        * set usefull environment things for the user
  294.        */
  295. ***************
  296. *** 85,90
  297.       if ((cp = getenv("TERM")) != NOSTR)
  298.           set("term", savestr(cp));
  299.       /*
  300.        * Re-initialize path if set in environment
  301.        */
  302.       if ((cp = getenv("PATH")) == NOSTR)
  303.  
  304. --- 195,235 -----
  305.   
  306.       set ("version", Version); /* publish the shell version */
  307.       /*
  308. +      * set usefull environment things for the user
  309. +      */
  310. +     itoa (getuid(), buff);
  311. +     set ("uid", buff);
  312. +     if ((cp = getenv("HOST")) == NOSTR) { /* if not allready set */
  313. +         gethostname (buff, sizeof(buff));
  314. +         buff[sizeof(buff) -1] = '\0'; /* just in case */
  315. +         setenv ("HOST", buff);
  316. +     }
  317. +     if ((cp = getenv("HOSTTYPE")) == NOSTR) { /* if not allready set */
  318. + #ifdef vax
  319. +         setenv ("HOSTTYPE", "vax");
  320. + #endif
  321. + #ifdef sun
  322. + # ifdef mc68010
  323. +         setenv ("HOSTTYPE", "sun2");
  324. + # else
  325. + #  ifdef mc68020
  326. +         setenv ("HOSTTYPE", "sun3");
  327. + #  else
  328. +         setenv ("HOSTTYPE", "sun");
  329. + #  endif
  330. + # endif
  331. + #endif
  332. + #ifdef pyr            /* pyramid */
  333. +         setenv ("HOSTTYPE", "pyramid");
  334. + #endif
  335. + #ifdef OREO
  336. +         setenv ("HOSTTYPE", "mac2");
  337. + #endif OREO
  338. + #ifdef ns32000                  /* ugh!  This should change */
  339. +             setenv ("HOSTTYPE", "multimax");
  340. + #endif
  341. +     }
  342. +     /*
  343.        * Re-initialize path if set in environment
  344.        */
  345.       if ((cp = getenv("PATH")) == NOSTR)
  346. ***************
  347. *** 205,210
  348.           }
  349.           file = v[0];
  350.           SHIN = dmove(nofile, FSHIN);    /* Replace FSHIN */
  351.           (void) ioctl(SHIN, FIOCLEX, (char *)0);
  352.           prompt = 0;
  353.           c--, v++;
  354.  
  355. --- 350,356 -----
  356.           }
  357.           file = v[0];
  358.           SHIN = dmove(nofile, FSHIN);    /* Replace FSHIN */
  359. + #ifdef BSD4_3
  360.           (void) ioctl(SHIN, FIOCLEX, (char *)0);
  361.   #endif
  362.           prompt = 0;
  363. ***************
  364. *** 206,211
  365.           file = v[0];
  366.           SHIN = dmove(nofile, FSHIN);    /* Replace FSHIN */
  367.           (void) ioctl(SHIN, FIOCLEX, (char *)0);
  368.           prompt = 0;
  369.           c--, v++;
  370.       }
  371.  
  372. --- 352,358 -----
  373.           SHIN = dmove(nofile, FSHIN);    /* Replace FSHIN */
  374.   #ifdef BSD4_3
  375.           (void) ioctl(SHIN, FIOCLEX, (char *)0);
  376. + #endif
  377.           prompt = 0;
  378.           c--, v++;
  379.       }
  380. ***************
  381. *** 239,246
  382.       /*
  383.        * Set up the prompt.
  384.        */
  385. !     if (prompt)
  386. !         set("prompt", uid == 0 ? "# " : "% ");
  387.   
  388.       /*
  389.        * If we are an interactive shell, then start fiddling
  390.  
  391. --- 386,395 -----
  392.       /*
  393.        * Set up the prompt.
  394.        */
  395. !     if (prompt) {
  396. !         set("prompt", uid == 0 ? "# " : "> ");
  397. !         set("prompt2", "\277 "); /* that's a meta-questionmark */
  398. !     }
  399.   
  400.       /*
  401.        * If we are an interactive shell, then start fiddling
  402. ***************
  403. *** 275,280
  404.               else
  405.                   f = -1;
  406.   retry:
  407.               if (ioctl(f, TIOCGPGRP, (char *)&tpgrp) == 0 &&
  408.                   tpgrp != -1) {
  409.                   int ldisc;
  410.  
  411. --- 424,430 -----
  412.               else
  413.                   f = -1;
  414.   retry:
  415. + #ifdef BSDJOBS            /* if we have tty job control */
  416.               if (ioctl(f, TIOCGPGRP, (char *)&tpgrp) == 0 &&
  417.                   tpgrp != -1) {
  418.                   int ldisc;
  419. ***************
  420. *** 286,291
  421.                   }
  422.                   if (ioctl(f, TIOCGETD, (char *)&oldisc) != 0) 
  423.                       goto notty;
  424.                   if (oldisc != NTTYDISC) {
  425.   #ifdef DEBUG
  426.                       printf("Switching to new tty driver...\n");
  427.  
  428. --- 436,468 -----
  429.                   }
  430.                   if (ioctl(f, TIOCGETD, (char *)&oldisc) != 0) 
  431.                       goto notty;
  432. + # ifdef OREO
  433. +             if (ioctl(f, TCGETA, &termiob) != 0)
  434. +                     goto notty;
  435. +                 if ((getcompat(COMPAT_BSDTTY) & COMPAT_BSDTTY)
  436. +                     != COMPAT_BSDTTY) {
  437. + #  ifdef DEBUG
  438. +                     printf("Switching to new tty driver...\n");
  439. + #  endif DEBUG
  440. +                     setcompat(COMPAT_BSDTTY);
  441. +                     if (ioctl (f, TIOCGLTC, <cbuf) < 0) {
  442. +                     printf ("Couldn't get local chars.\n");
  443. +                     } else {
  444. + #  ifdef DEBUG
  445. +                     printf ("Setting ^Z, etc....\n");
  446. + #  endif DEBUG
  447. +                     ltcbuf.t_suspc = '\032'; /* ^Z */
  448. +                     ltcbuf.t_dsuspc = '\031'; /* ^Y */
  449. +                     ltcbuf.t_rprntc = '\022'; /* ^R */
  450. +                     ltcbuf.t_flushc = '\017'; /* ^O */
  451. +                     ltcbuf.t_werasc = '\027'; /* ^W */
  452. +                     ltcbuf.t_lnextc = '\026'; /* ^V */
  453. +                     ioctl (f, TIOCSLTC, <cbuf);
  454. +                     }
  455. +                     termiob.c_cc[VSWTCH] = '\0';
  456. +                     ioctl(f, TCSETAF, &termiob);
  457. +                 }
  458. + # else OREO
  459.                   if (oldisc != NTTYDISC) {
  460.   #  ifdef DEBUG
  461.                       printf("Switching to new tty driver...\n");
  462. ***************
  463. *** 287,293
  464.                   if (ioctl(f, TIOCGETD, (char *)&oldisc) != 0) 
  465.                       goto notty;
  466.                   if (oldisc != NTTYDISC) {
  467. ! #ifdef DEBUG
  468.                       printf("Switching to new tty driver...\n");
  469.   #endif DEBUG
  470.                       ldisc = NTTYDISC;
  471.  
  472. --- 464,470 -----
  473.                   }
  474.   # else OREO
  475.                   if (oldisc != NTTYDISC) {
  476. ! #  ifdef DEBUG
  477.                       printf("Switching to new tty driver...\n");
  478.   #  endif DEBUG
  479.                       ldisc = NTTYDISC;
  480. ***************
  481. *** 289,295
  482.                   if (oldisc != NTTYDISC) {
  483.   #ifdef DEBUG
  484.                       printf("Switching to new tty driver...\n");
  485. ! #endif DEBUG
  486.                       ldisc = NTTYDISC;
  487.                       (void) ioctl(f, TIOCSETD,
  488.                           (char *)&ldisc);
  489.  
  490. --- 466,472 -----
  491.                   if (oldisc != NTTYDISC) {
  492.   #  ifdef DEBUG
  493.                       printf("Switching to new tty driver...\n");
  494. ! #  endif DEBUG
  495.                       ldisc = NTTYDISC;
  496.                       (void) ioctl(f, TIOCSETD,
  497.                           (char *)&ldisc);
  498. ***************
  499. *** 295,300
  500.                           (char *)&ldisc);
  501.                   } else
  502.                       oldisc = -1;
  503.                   opgrp = shpgrp;
  504.                   shpgrp = getpid();
  505.                   tpgrp = shpgrp;
  506.  
  507. --- 472,478 -----
  508.                           (char *)&ldisc);
  509.                   } else
  510.                       oldisc = -1;
  511. + # endif OREO
  512.                   opgrp = shpgrp;
  513.                   shpgrp = getpid();
  514.                   tpgrp = shpgrp;
  515. ***************
  516. *** 307,312
  517.     printf("Warning: no access to tty; thus no job control in this shell...\n");
  518.                   tpgrp = -1;
  519.               }
  520.           }
  521.       }
  522.       if (setintr == 0 && parintr == SIG_DFL)
  523.  
  524. --- 485,494 -----
  525.     printf("Warning: no access to tty; thus no job control in this shell...\n");
  526.                   tpgrp = -1;
  527.               }
  528. + #else BSDJOBS            /* don't have job control, so frotz it */
  529. +             tpgrp = -1;
  530. +             printf ("Warning: jobs not implemented yet.\n");
  531. + #endif BSDJOBS
  532.           }
  533.       }
  534.       if (setintr == 0 && parintr == SIG_DFL)
  535. ***************
  536. *** 321,326
  537.       haderr = 0;        /* In case second time through */
  538.       if (!fast && reenter == 0) {
  539.           reenter++;
  540.           /* Will have value("home") here because set fast if don't */
  541.           srccat(value("home"), "/.cshrc");
  542.           if (!fast && !arginp && !onelflg && !havhash)
  543.  
  544. --- 503,512 -----
  545.       haderr = 0;        /* In case second time through */
  546.       if (!fast && reenter == 0) {
  547.           reenter++;
  548. +                 if (!fast && !arginp && !onelflg) { /* PWP setup stuff */
  549. +             ed_Init();    /* init the new line editor */
  550. +             /* PWP: setup the editor BEFORE doing .cshrc, else bugs! */
  551. +         }    
  552.           /* Will have value("home") here because set fast if don't */
  553.           srccat(value("home"), "/.cshrc");    /* upward compat. */
  554.           if (!fast && !arginp && !onelflg && !havhash)
  555. ***************
  556. *** 322,328
  557.       if (!fast && reenter == 0) {
  558.           reenter++;
  559.           /* Will have value("home") here because set fast if don't */
  560. !         srccat(value("home"), "/.cshrc");
  561.           if (!fast && !arginp && !onelflg && !havhash)
  562.               dohash();
  563.           if (loginsh) {
  564.  
  565. --- 508,514 -----
  566.               /* PWP: setup the editor BEFORE doing .cshrc, else bugs! */
  567.           }    
  568.           /* Will have value("home") here because set fast if don't */
  569. !         srccat(value("home"), "/.cshrc");    /* upward compat. */
  570.           if (!fast && !arginp && !onelflg && !havhash)
  571.               dohash();
  572.           if (loginsh) {
  573. ***************
  574. *** 350,360
  575.       /*
  576.        * Mop-up.
  577.        */
  578. !     if (loginsh) {
  579. !         printf("logout\n");
  580. !         (void) close(SHIN);
  581. !         child++;
  582. !         goodbye();
  583.       }
  584.       rechist();
  585.       exitstat();
  586.  
  587. --- 536,550 -----
  588.       /*
  589.        * Mop-up.
  590.        */
  591. !     if (intty) {
  592. !         if (loginsh) {
  593. !             printf("logout\n");
  594. !             (void) close(SHIN);
  595. !             child++;
  596. !             goodbye();
  597. !         } else {
  598. !             printf ("exit\n");
  599. !         }
  600.       }
  601.       rechist();
  602.       exitstat();
  603. ***************
  604. *** 362,368
  605.   
  606.   untty()
  607.   {
  608. ! 
  609.       if (tpgrp > 0) {
  610.           (void) setpgrp(0, opgrp);
  611.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&opgrp);
  612.  
  613. --- 552,558 -----
  614.   
  615.   untty()
  616.   {
  617. ! #ifdef BSDJOBS
  618.       if (tpgrp > 0) {
  619.           (void) setpgrp(0, opgrp);
  620.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&opgrp);
  621. ***************
  622. *** 366,371
  623.       if (tpgrp > 0) {
  624.           (void) setpgrp(0, opgrp);
  625.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&opgrp);
  626.           if (oldisc != -1 && oldisc != NTTYDISC) {
  627.   #ifdef DEBUG
  628.               printf("\nReverting to old tty driver...\n");
  629.  
  630. --- 556,562 -----
  631.       if (tpgrp > 0) {
  632.           (void) setpgrp(0, opgrp);
  633.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&opgrp);
  634. + # ifndef OREO
  635.           if (oldisc != -1 && oldisc != NTTYDISC) {
  636.   #  ifdef DEBUG
  637.               printf("\nReverting to old tty driver...\n");
  638. ***************
  639. *** 367,373
  640.           (void) setpgrp(0, opgrp);
  641.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&opgrp);
  642.           if (oldisc != -1 && oldisc != NTTYDISC) {
  643. ! #ifdef DEBUG
  644.               printf("\nReverting to old tty driver...\n");
  645.   #endif DEBUG
  646.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  647.  
  648. --- 558,564 -----
  649.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&opgrp);
  650.   # ifndef OREO
  651.           if (oldisc != -1 && oldisc != NTTYDISC) {
  652. ! #  ifdef DEBUG
  653.               printf("\nReverting to old tty driver...\n");
  654.   #  endif DEBUG
  655.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  656. ***************
  657. *** 369,375
  658.           if (oldisc != -1 && oldisc != NTTYDISC) {
  659.   #ifdef DEBUG
  660.               printf("\nReverting to old tty driver...\n");
  661. ! #endif DEBUG
  662.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  663.           }
  664.       }
  665.  
  666. --- 560,566 -----
  667.           if (oldisc != -1 && oldisc != NTTYDISC) {
  668.   #  ifdef DEBUG
  669.               printf("\nReverting to old tty driver...\n");
  670. ! #  endif DEBUG
  671.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  672.           }
  673.   # endif OREO
  674. ***************
  675. *** 372,377
  676.   #endif DEBUG
  677.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  678.           }
  679.       }
  680.   }
  681.   
  682.  
  683. --- 563,569 -----
  684.   #  endif DEBUG
  685.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  686.           }
  687. + # endif OREO
  688.       }
  689.   #endif BSDJOBS
  690.   }
  691. ***************
  692. *** 373,378
  693.               (void) ioctl(FSHTTY, TIOCSETD, (char *)&oldisc);
  694.           }
  695.       }
  696.   }
  697.   
  698.   importpath(cp)
  699.  
  700. --- 565,571 -----
  701.           }
  702.   # endif OREO
  703.       }
  704. + #endif BSDJOBS
  705.   }
  706.   
  707.   importpath(cp)
  708. ***************
  709. *** 421,426
  710.       register char *ep = strspl(cp, dp);
  711.       register int unit = dmove(open(ep, 0), -1);
  712.   
  713.       (void) ioctl(unit, FIOCLEX, (char *)0);
  714.       xfree(ep);
  715.   #ifdef INGRES
  716.  
  717. --- 614,620 -----
  718.       register char *ep = strspl(cp, dp);
  719.       register int unit = dmove(open(ep, 0), -1);
  720.   
  721. + #ifdef BSD4_3
  722.       (void) ioctl(unit, FIOCLEX, (char *)0);
  723.   #endif
  724.       xfree(ep);
  725. ***************
  726. *** 422,427
  727.       register int unit = dmove(open(ep, 0), -1);
  728.   
  729.       (void) ioctl(unit, FIOCLEX, (char *)0);
  730.       xfree(ep);
  731.   #ifdef INGRES
  732.       srcunit(unit, 0, 0);
  733.  
  734. --- 616,622 -----
  735.   
  736.   #ifdef BSD4_3
  737.       (void) ioctl(unit, FIOCLEX, (char *)0);
  738. + #endif
  739.       xfree(ep);
  740.   #ifdef INGRES
  741.       srcunit(unit, 0, 0);
  742. ***************
  743. *** 464,471
  744.       if (onlyown) {
  745.           struct stat stb;
  746.   
  747. !         if (fstat(unit, &stb) < 0 ||
  748. !             (stb.st_uid != uid && stb.st_gid != getgid())) {
  749.               (void) close(unit);
  750.               return;
  751.           }
  752.  
  753. --- 659,667 -----
  754.       if (onlyown) {
  755.           struct stat stb;
  756.   
  757. !         if (fstat(unit, &stb) < 0
  758. !         /*    || (stb.st_uid != uid && stb.st_gid != getgid()) */
  759. !             ) {
  760.               (void) close(unit);
  761.               return;
  762.           }
  763. ***************
  764. *** 573,578
  765.   
  766.   goodbye()
  767.   {
  768.       if (loginsh) {
  769.           (void) signal(SIGQUIT, SIG_IGN);
  770.           (void) signal(SIGINT, SIG_IGN);
  771.  
  772. --- 769,775 -----
  773.   
  774.   goodbye()
  775.   {
  776. +     rechist();
  777.       if (loginsh) {
  778.           (void) signal(SIGQUIT, SIG_IGN);
  779.           (void) signal(SIGINT, SIG_IGN);
  780. ***************
  781. *** 578,583
  782.           (void) signal(SIGINT, SIG_IGN);
  783.           (void) signal(SIGTERM, SIG_IGN);
  784.           setintr = 0;        /* No interrupts after "logout" */
  785.           if (adrof("home"))
  786.               srccat(value("home"), "/.logout");
  787.       }
  788.  
  789. --- 775,782 -----
  790.           (void) signal(SIGINT, SIG_IGN);
  791.           (void) signal(SIGTERM, SIG_IGN);
  792.           setintr = 0;        /* No interrupts after "logout" */
  793. +         if (!(adrof("logout")))
  794. +             set ("logout", "normal");
  795.           if (adrof("home"))
  796.               srccat(value("home"), "/.logout");
  797.       }
  798. ***************
  799. *** 581,587
  800.           if (adrof("home"))
  801.               srccat(value("home"), "/.logout");
  802.       }
  803. -     rechist();
  804.       exitstat();
  805.   }
  806.   
  807.  
  808. --- 780,785 -----
  809.           if (adrof("home"))
  810.               srccat(value("home"), "/.logout");
  811.       }
  812.       exitstat();
  813.   }
  814.   
  815. ***************
  816. *** 654,661
  817.           if (v = gargv)
  818.               gargv = 0, blkfree(v);
  819.           reset();
  820. !     } else if (intty && wantnl)
  821. !         printf("\n");        /* Some like this, others don't */
  822.       error(NOSTR);
  823.   }
  824.   
  825.  
  826. --- 852,862 -----
  827.           if (v = gargv)
  828.               gargv = 0, blkfree(v);
  829.           reset();
  830. !     } else if (intty && wantnl) {
  831. !         /* printf("\n");    /* Some like this, others don't */
  832. !         putraw ('\r');
  833. !         putraw ('\n');
  834. !     }
  835.       error(NOSTR);
  836.   }
  837.   
  838. ***************
  839. *** 730,735
  840.           if (intty && prompt && evalvec == 0) {
  841.               mailchk();
  842.               /*
  843.                * If we are at the end of the input buffer
  844.                * then we are going to read fresh stuff.
  845.                * Otherwise, we are rereading input and don't
  846.  
  847. --- 931,946 -----
  848.           if (intty && prompt && evalvec == 0) {
  849.               mailchk();
  850.               /*
  851. +              * Watch for logins/logouts.
  852. +              * Next is scheduled commands stored previously using "sched."
  853. +              * Then execute periodic commands.
  854. +              * Following that, the prompt precmd is run.
  855. +              */
  856. +             watch_login();
  857. +             sched_run();
  858. +             period_cmd();
  859. +             precmd();
  860. +             /*
  861.                * If we are at the end of the input buffer
  862.                * then we are going to read fresh stuff.
  863.                * Otherwise, we are rereading input and don't
  864. ***************
  865. *** 737,742
  866.                */
  867.               if (fseekp == feobp)
  868.                   printprompt();
  869.           }
  870.           err = 0;
  871.   
  872.  
  873. --- 948,954 -----
  874.                */
  875.               if (fseekp == feobp)
  876.                   printprompt();
  877. +             setalarm();
  878.           }
  879.           err = 0;
  880.   
  881. ***************
  882. *** 744,750
  883.            * Echo not only on VERBOSE, but also with history expansion.
  884.            * If there is a lexical error then we forego history echo.
  885.            */
  886. !         if (lex(¶ml) && !err && intty ||
  887.               adrof("verbose")) {
  888.               haderr = 1;
  889.               prlex(¶ml);
  890.  
  891. --- 956,962 -----
  892.            * Echo not only on VERBOSE, but also with history expansion.
  893.            * If there is a lexical error then we forego history echo.
  894.            */
  895. !         if (lex(¶ml) && !err && intty && !tellwhat ||
  896.               adrof("verbose")) {
  897.               haderr = 1;
  898.               prlex(¶ml);
  899. ***************
  900. *** 750,755
  901.               prlex(¶ml);
  902.               haderr = 0;
  903.           }
  904.   
  905.           /*
  906.            * The parser may lose space if interrupted.
  907.  
  908. --- 962,968 -----
  909.               prlex(¶ml);
  910.               haderr = 0;
  911.           }
  912. +         alarm (0);                /* Autologout OFF */
  913.   
  914.           /*
  915.            * The parser may lose space if interrupted.
  916. ***************
  917. *** 763,769
  918.            * is from the terminal at the top level and not
  919.            * in a loop.
  920.            */
  921. !         if (enterhist || catch && intty && !whyles)
  922.               savehist(¶ml);
  923.   
  924.           /*
  925.  
  926. --- 976,982 -----
  927.            * is from the terminal at the top level and not
  928.            * in a loop.
  929.            */
  930. !         if (enterhist || catch && intty && !whyles && !tellwhat)
  931.               savehist(¶ml);
  932.   
  933.           /*
  934. ***************
  935. *** 783,788
  936.           alias(¶ml);
  937.   
  938.           /*
  939.            * Parse the words of the input into a parse tree.
  940.            */
  941.           t = syntax(paraml.next, ¶ml, 0);
  942.  
  943. --- 996,1009 -----
  944.           alias(¶ml);
  945.   
  946.           /*
  947. +          * If had a tell_what from twenex() then do
  948. +          */
  949. +         if (tellwhat) {
  950. +             tellmewhat(¶ml);
  951. +             reset();
  952. +         }
  953. + 
  954. +         /*
  955.            * Parse the words of the input into a parse tree.
  956.            */
  957.           t = syntax(paraml.next, ¶ml, 0);
  958. ***************
  959. *** 821,826
  960.       xfree(f);
  961.       if (u < 0 && !hflg)
  962.           Perror(f);
  963.       (void) ioctl(u, FIOCLEX, (char *)0);
  964.       srcunit(u, 0, hflg);
  965.   }
  966.  
  967. --- 1042,1048 -----
  968.       xfree(f);
  969.       if (u < 0 && !hflg)
  970.           Perror(f);
  971. + #ifdef BSD4_3
  972.       (void) ioctl(u, FIOCLEX, (char *)0);
  973.   #endif
  974.       srcunit(u, 0, hflg);
  975. ***************
  976. *** 822,827
  977.       if (u < 0 && !hflg)
  978.           Perror(f);
  979.       (void) ioctl(u, FIOCLEX, (char *)0);
  980.       srcunit(u, 0, hflg);
  981.   }
  982.   
  983.  
  984. --- 1044,1050 -----
  985.           Perror(f);
  986.   #ifdef BSD4_3
  987.       (void) ioctl(u, FIOCLEX, (char *)0);
  988. + #endif
  989.       srcunit(u, 0, hflg);
  990.   }
  991.   
  992. ***************
  993. *** 870,876
  994.       chktim = t;
  995.   }
  996.   
  997. ! #include <pwd.h>
  998.   /*
  999.    * Extract a home directory from the password file
  1000.    * The argument points to a buffer where the name of the
  1001.  
  1002. --- 1093,1099 -----
  1003.       chktim = t;
  1004.   }
  1005.   
  1006. ! /* #include <pwd.h> */
  1007.   /*
  1008.    * Extract a home directory from the password file
  1009.    * The argument points to a buffer where the name of the
  1010. ***************
  1011. *** 896,901
  1012.   {
  1013.   
  1014.       didfds = 0;            /* 0, 1, 2 aren't set up */
  1015.       (void) ioctl(SHIN = dcopy(0, FSHIN), FIOCLEX, (char *)0);
  1016.       (void) ioctl(SHOUT = dcopy(1, FSHOUT), FIOCLEX, (char *)0);
  1017.       (void) ioctl(SHDIAG = dcopy(2, FSHDIAG), FIOCLEX, (char *)0);
  1018.  
  1019. --- 1119,1125 -----
  1020.   {
  1021.   
  1022.       didfds = 0;            /* 0, 1, 2 aren't set up */
  1023. + #ifdef BSD4_3
  1024.       (void) ioctl(SHIN = dcopy(0, FSHIN), FIOCLEX, (char *)0);
  1025.       (void) ioctl(SHOUT = dcopy(1, FSHOUT), FIOCLEX, (char *)0);
  1026.       (void) ioctl(SHDIAG = dcopy(2, FSHDIAG), FIOCLEX, (char *)0);
  1027. ***************
  1028. *** 900,905
  1029.       (void) ioctl(SHOUT = dcopy(1, FSHOUT), FIOCLEX, (char *)0);
  1030.       (void) ioctl(SHDIAG = dcopy(2, FSHDIAG), FIOCLEX, (char *)0);
  1031.       (void) ioctl(OLDSTD = dcopy(SHIN, FOLDSTD), FIOCLEX, (char *)0);
  1032.       closem();
  1033.   }
  1034.   
  1035.  
  1036. --- 1124,1135 -----
  1037.       (void) ioctl(SHOUT = dcopy(1, FSHOUT), FIOCLEX, (char *)0);
  1038.       (void) ioctl(SHDIAG = dcopy(2, FSHDIAG), FIOCLEX, (char *)0);
  1039.       (void) ioctl(OLDSTD = dcopy(SHIN, FOLDSTD), FIOCLEX, (char *)0);
  1040. + #else
  1041. +     SHIN = dcopy(0, FSHIN);
  1042. +     SHOUT = dcopy(1, FSHOUT);
  1043. +     SHDIAG = dcopy(2, FSHDIAG);
  1044. +     OLDSTD = dcopy(SHIN, FOLDSTD);
  1045. + #endif
  1046.       closem();
  1047.   }
  1048.   
  1049. ***************
  1050. *** 903,908
  1051.       closem();
  1052.   }
  1053.   
  1054.   #ifdef PROF
  1055.   done(i)
  1056.   #else
  1057.  
  1058. --- 1133,1541 -----
  1059.       closem();
  1060.   }
  1061.   
  1062. +   
  1063. + /*
  1064. +  * Karl Kleinpaste, 21oct1983.
  1065. +  * Added precmd(), which checks for the alias
  1066. +  * precmd in aliases.  If it's there, the alias
  1067. +  * is executed as a command.  This is done
  1068. +  * after mailchk() and just before print-
  1069. +  * ing the prompt.  Useful for things like printing
  1070. +  * one's current directory just before each command.
  1071. +  */
  1072. + precmd()
  1073. + {
  1074. +     int    omask;
  1075. + 
  1076. +     omask = sighold (SIGINT);
  1077. +     if (precmd_active) {    /* an error must have been caught */
  1078. +         aliasrun (2, "unalias", "precmd");
  1079. +         printf ("Faulty alias 'precmd' removed.\n");
  1080. +         goto leave;
  1081. +     }
  1082. +     precmd_active++;
  1083. +     if (!whyles && adrof1 ("precmd", &aliases))
  1084. +         aliasrun (1, "precmd", (char *) 0);
  1085. + leave:
  1086. +     precmd_active = 0;
  1087. +     sigsetmask(omask);
  1088. + }
  1089. + 
  1090. + /*
  1091. +  * Karl Kleinpaste, 18 Jan 1984.
  1092. +  * Added period_cmd(), which executes the alias "periodic" every
  1093. +  * $tperiod minutes.  Useful for occasional checking of msgs and such.
  1094. +  */
  1095. + period_cmd()
  1096. + {
  1097. +     register char *vp;
  1098. +     time_t t, interval;
  1099. +     int    omask;
  1100. + 
  1101. +     omask = sighold (SIGINT);
  1102. +     if (periodic_active) {    /* an error must have been caught */
  1103. +         aliasrun (2, "unalias", "periodic");
  1104. +         printf ("Faulty alias 'periodic' removed.\n");
  1105. +         goto leave;
  1106. +     }
  1107. +     periodic_active++;
  1108. +     if (!whyles && adrof1 ("periodic", &aliases)) {
  1109. +         vp = value ("tperiod");
  1110. +         if (vp == (char *) 0)
  1111. +             return;
  1112. +         interval = getn (vp);
  1113. +         time (&t);
  1114. +         if (t - t_period >= interval * 60) {
  1115. +             t_period = t;
  1116. +             aliasrun (1, "periodic", (char *) 0);
  1117. +         }
  1118. +     }
  1119. + leave:
  1120. +     periodic_active = 0;
  1121. +     sigsetmask(omask);
  1122. + }
  1123. + 
  1124. + /*
  1125. +  * Karl Kleinpaste, 21oct1983.
  1126. +  * Set up a one-word alias command, for use for special things.
  1127. +  * This code is based on the mainline of process().
  1128. +  */
  1129. + aliasrun (cnt, s1, s2)
  1130. +     int cnt;
  1131. +     char *s1, *s2;
  1132. + {
  1133. +     struct    wordent    w, *new1, *new2;    /* for holding alias name */
  1134. +     struct    command    *t = (struct command *) 0;
  1135. + 
  1136. +     err = NOSTR;            /* don't repeatedly print err msg. */
  1137. +     w.word = "";
  1138. +     new1 = (struct wordent *) calloc (1, sizeof w);
  1139. +     new1->word = savestr (s1);
  1140. +     if (cnt == 1) {
  1141. +         /* build a lex list with one word. */
  1142. +         w.next = w.prev = new1;
  1143. +         new1->next = new1->prev = &w;
  1144. +     } else {
  1145. +         /* build a lex list with two words. */
  1146. +         new2 = (struct wordent *) calloc (1, sizeof w);
  1147. +         new2->word = savestr (s2);
  1148. +         w.next = new2->prev = new1;
  1149. +         new1->next = w.prev = new2;
  1150. +         new1->prev = new2->next = &w;
  1151. +     }
  1152. + 
  1153. +     /* expand aliases like process() does. */
  1154. +     alias (&w);
  1155. +     /* build a syntax tree for the command. */
  1156. +     t = syntax (w.next, &w, 0);
  1157. +     if (err)
  1158. +         error (err);
  1159. +     /* execute the parse tree. */
  1160. +     execute (t, -1);
  1161. +     /* done. free the lex list and parse tree. */
  1162. +     freelex (&w), freesyn (t);
  1163. + }
  1164. + 
  1165. + /*
  1166. +  * Karl Kleinpaste, 26 Jan 1984.
  1167. +  * Initialize the dummy tty list for login watch.
  1168. +  * This dummy list eliminates boundary conditions
  1169. +  * when doing pointer-chase searches.
  1170. +  */
  1171. + initwatch()
  1172. + {
  1173. +     wholist = (struct who *) calloc (1, sizeof *wholist);
  1174. +     wholist->w_next = (struct who *) calloc (1, sizeof *wholist);
  1175. +     wholist->w_next->w_prev = wholist;
  1176. +     strcpy (wholist->w_tty, "\01\01\01\01\01");
  1177. +     strcpy (wholist->w_next->w_tty, "~~~~~");
  1178. + #ifdef WHODEBUG
  1179. +     debugwholist ((struct who *) 0, (struct who *) 0);
  1180. + #endif WHODEBUG
  1181. + }
  1182. + 
  1183. + /*
  1184. +  * Karl Kleinpaste, 26 Jan 1984.
  1185. +  * Watch /etc/utmp for login/logout changes.
  1186. +  */
  1187. + watch_login()
  1188. + {
  1189. +     int utmpfd, comparison, alldone, cnt;
  1190. +     struct utmp utmp;
  1191. +     struct who *wp, *wpnew;
  1192. +     struct varent *v;
  1193. +     char **vp, *cp;
  1194. +     time_t t, interval;
  1195. +     int    omask;
  1196. + 
  1197. +     /* stop SIGINT, lest our login list get trashed. */
  1198. +     omask = sighold (SIGINT);
  1199. + 
  1200. +     v = adrof ("watch");
  1201. +     if (v == (struct varent *) 0) {
  1202. +         sigsetmask(omask);
  1203. +         return;            /* no names to watch */
  1204. +     }
  1205. +     vp = v->vec;
  1206. +     cnt = blklen (vp);
  1207. +     if (cnt % 2) {            /* odd # args: 1st == # minutes. */
  1208. +         interval = (number (*vp)) ? getn (*vp++) : MAILINTVL;
  1209. +         cnt--;
  1210. +     }
  1211. +     time (&t);
  1212. +     if (t - watch_period < interval * 60) {
  1213. +         sigsetmask(omask);
  1214. +         return;            /* not long enough yet... */
  1215. +     }
  1216. +     watch_period = t;
  1217. + 
  1218. +     if ((utmpfd = open ("/etc/utmp", 0)) < 0) {
  1219. +         printf ("/etc/utmp cannot be opened.  Please \"unset watch\".\n");
  1220. +         sigsetmask(omask);
  1221. +         return;
  1222. +     }
  1223. + 
  1224. +     /*
  1225. +      * Read in the utmp file, sort the entries, and update existing
  1226. +      * entries or add new entries to the status list.
  1227. +      */
  1228. +     while (read (utmpfd, &utmp, sizeof utmp) == sizeof utmp) {
  1229. +         if (utmp.ut_name[0] == '\0' && utmp.ut_line[0] == '\0')
  1230. +             continue;    /* completely void entry */
  1231. +         wp = wholist;
  1232. +         while ((comparison = strncmp (wp->w_tty, utmp.ut_line, 8)) < 0)
  1233. +             wp = wp->w_next;    /* find that tty! */
  1234. + 
  1235. +         if (comparison == 0) {        /* found the tty... */
  1236. +             if (utmp.ut_name[0] == '\0')
  1237. +                 wp->w_status = OFFLINE;
  1238. +             else            /* someone is logged in */
  1239. +                 if (strncmp (utmp.ut_name, wp->w_name, 8) == 0)
  1240. +                     wp->w_status = 0;    /* same guy */
  1241. +                 else {
  1242. +                     strncpy (wp->w_new, utmp.ut_name, 8);
  1243. +                     if (wp->w_name[0] == '\0')
  1244. +                         wp->w_status = ONLINE;
  1245. +                     else
  1246. +                         wp->w_status = CHANGED;
  1247. +                 }
  1248. +         } else {            /* new tty in utmp */
  1249. +             wpnew = (struct who *) calloc (1, sizeof *wpnew);
  1250. +             strncpy (wpnew->w_tty, utmp.ut_line, 8);
  1251. +             if (utmp.ut_name[0] == '\0')
  1252. +                 wpnew->w_status = OFFLINE;
  1253. +             else {
  1254. +                 strncpy (wpnew->w_new, utmp.ut_name, 8);
  1255. +                 wpnew->w_status = ONLINE;
  1256. +             }
  1257. + #ifdef WHODEBUG
  1258. +             debugwholist(wpnew, wp);
  1259. + #endif WHODEBUG
  1260. + 
  1261. +             wpnew->w_next = wp;    /* link in a new 'who' */
  1262. +             wpnew->w_prev = wp->w_prev;
  1263. +             wpnew->w_prev->w_next = wpnew;
  1264. +             wp->w_prev = wpnew;    /* linked in now */
  1265. +         }
  1266. +     }
  1267. +     close (utmpfd);
  1268. + 
  1269. +     /*
  1270. +      * The state of all logins is now known, so we can search
  1271. +      * the user's list of watchables to print the interesting ones.
  1272. +      */
  1273. +     for (alldone = 0; !alldone && *vp != (char *) 0 && **vp != '\0' &&
  1274. +             *(vp+1) != (char *) 0 && **(vp+1) != '\0';
  1275. +             vp += 2) {        /* args used in pairs... */
  1276. + 
  1277. +         if (eq (*vp, "any") && eq (*(vp+1), "any"))
  1278. +             alldone++;
  1279. + 
  1280. +         for (wp = wholist; wp != (struct who *) 0; wp = wp->w_next) {
  1281. +             if (wp->w_status & ANNOUNCE        ||
  1282. +                 (!eq (*vp, "any") && !eq (*vp, wp->w_name) &&
  1283. +                 !eq (*vp, wp->w_new))        ||
  1284. +                 (!eq (*(vp+1), wp->w_tty) && !eq (*(vp+1), "any")))
  1285. +                 continue;    /* entry doesn't qualify */
  1286. +                 /* already printed or not right one to print */
  1287. + 
  1288. +             if ((wp->w_status & OFFLINE) &&
  1289. +                 (wp->w_name[0] != '\0')) {
  1290. +                 printf ("%s has logged off %s.\n",
  1291. +                     wp->w_name, wp->w_tty);
  1292. +                 wp->w_name[0] = '\0';
  1293. +                 wp->w_status |= ANNOUNCE;
  1294. +                 continue;
  1295. +             }
  1296. +             if (wp->w_status & ONLINE) {
  1297. +                 printf ("%s has logged on %s.\n",
  1298. +                     wp->w_new, wp->w_tty);
  1299. +                 strcpy (wp->w_name, wp->w_new);
  1300. +                 wp->w_status |= ANNOUNCE;
  1301. +                 continue;
  1302. +             }
  1303. +             if (wp->w_status & CHANGED) {
  1304. +                 printf ("%s has replaced %s on %s.\n",
  1305. +                     wp->w_new, wp->w_name, wp->w_tty);
  1306. +                 strcpy (wp->w_name, wp->w_new);
  1307. +                 wp->w_status |= ANNOUNCE;
  1308. +                 continue;
  1309. +             }
  1310. +         }
  1311. +     }
  1312. +     sigsetmask(omask);
  1313. + }
  1314. + 
  1315. + #ifdef WHODEBUG
  1316. + debugwholist (new, wp)
  1317. + register struct who *new, *wp;
  1318. + {
  1319. +     register struct who *a;
  1320. + 
  1321. +     a = wholist;
  1322. +     while (a != (struct who *) 0) {
  1323. +         printf ("%s/%s -> ", a->w_name, a->w_tty);
  1324. +         a = a->w_next;
  1325. +     }
  1326. +     printf ("NULL\n");
  1327. +     a = wholist;
  1328. +     printf ("backward: ");
  1329. +     while (a->w_next != (struct who *) 0)
  1330. +         a = a->w_next;
  1331. +     while (a != (struct who *) 0) {
  1332. +         printf ("%s/%s -> ", a->w_name, a->w_tty);
  1333. +         a = a->w_prev;
  1334. +     }
  1335. +     printf ("NULL\n");
  1336. +     if (new)
  1337. +         printf ("new: %s/%s\n", new->w_name, new->w_tty);
  1338. +     if (wp)
  1339. +         printf ("wp: %s/%s\n", wp->w_name, wp->w_tty);
  1340. + }
  1341. + #endif WHODEBUG
  1342. + 
  1343. + /*
  1344. +  * kfk 21oct1983 -- add @ (time) and / ($cwd) in prompt.
  1345. +  * PWP 4/27/87 -- rearange for tcsh.
  1346. +  */
  1347. + 
  1348. + printprompt ()
  1349. + {
  1350. +     register char *cp, *p, *z;
  1351. +     register char underlining = 0;
  1352. + 
  1353. +     PromptBuf[0] = '\0';
  1354. +     p = PromptBuf;
  1355. +     if (whyles)
  1356. +     cp = value("prompt2");
  1357. +     else
  1358. +     cp = value("prompt");
  1359. + 
  1360. +     for (; *cp; cp++) {
  1361. +     if (*cp == '%') {
  1362. +         cp++;
  1363. +         if (*cp == HIST || *cp == 'h') {
  1364. +         itoa(eventno + 1, buff);
  1365. +         for (z = buff; *z; z++)
  1366. +             *p++ = underlining | *z;
  1367. +         } else if (*cp == '@' || *cp == 't') {
  1368. +         struct tm *t;
  1369. +         long clock;
  1370. +         char ampm = 'a';
  1371. + 
  1372. +         time (&clock);
  1373. +         t = localtime(&clock);
  1374. +         if (t->tm_hour >= 12) {
  1375. +             if (t->tm_hour > 12)
  1376. +             t->tm_hour -= 12;
  1377. +             ampm = 'p';
  1378. +         } else if (t->tm_hour == 0)
  1379. +             t->tm_hour = 12;
  1380. +         
  1381. +         itoa(t->tm_hour, buff);
  1382. +         *p++ = underlining | buff[0];
  1383. +         if (buff[1]) *p++ = underlining | buff[1];
  1384. +         *p++ = underlining | ':';
  1385. +         itoa(t->tm_min, buff);
  1386. +         if (buff[1]) {
  1387. +             *p++ = underlining | buff[0];
  1388. +             *p++ = underlining | buff[1];
  1389. +         } else {
  1390. +             *p++ = underlining | '0';
  1391. +             *p++ = underlining | buff[0];
  1392. +         }
  1393. +         *p++ = underlining | ampm;
  1394. +         *p++ = underlining | 'm';
  1395. +         } else if (*cp == 'M') {
  1396. +         for (z = getenv("HOST"); *z; z++)
  1397. +             *p++ = underlining | *z;
  1398. +         } else if (*cp == 'm') {
  1399. +         for (z = getenv("HOST"); *z && *z != '.'; z++)
  1400. +             *p++ = underlining | *z;
  1401. +         } else if (*cp == '/' || *cp == 'd') {
  1402. +         for (z = value("cwd"); *z; z++)
  1403. +             *p++ = underlining | *z;
  1404. +         } else if (*cp == '.' || *cp == 'c') {
  1405. +         strcpy (buff, value("cwd"));
  1406. +         if (!buff[1]) {    /* if CWD == / */
  1407. +             *p++ = underlining | buff[0];
  1408. +         } else {
  1409. +             if (strcmp(buff, value("home")) == 0) {
  1410. +             *p++ = underlining | '~';
  1411. +             } else {
  1412. +             for (z = buff; *z; z++) ; /* find the end */
  1413. +             while ((z > buff) && (*z != '/')) z--; /* back up */
  1414. +             if (*z == '/') z++;
  1415. +             while (*z)
  1416. +                 *p++ = underlining | *z++;
  1417. +             }
  1418. +         }
  1419. + 
  1420. +         } else if (*cp == 'S' || *cp == 'U') { /* start standout */
  1421. +         underlining = 0200;
  1422. +         } else if (*cp == 's' || *cp == 'u') { /* end standout */
  1423. +         underlining = 0;
  1424. +         } else if (*cp == '%') {
  1425. +         *p++ = underlining | '%';
  1426. +         } else {
  1427. +         *p++ = underlining | '%';
  1428. +         *p++ = underlining | *cp;
  1429. +         }
  1430. +     } else {
  1431. +         *p++ = underlining | *cp;        /* normal character */
  1432. +     }
  1433. +     }
  1434. +     *p = '\0';
  1435. +     /*
  1436. +     cp = PromptBuf;
  1437. +     while (*cp)
  1438. +         putchar(*cp++ | QUOTE);
  1439. +     */
  1440. +     flush();
  1441. + }
  1442. + 
  1443. + setalarm()
  1444. + {
  1445. +     struct varent *vp;
  1446. +     char *cp;
  1447. +     int alrm_time = 0;
  1448. +     long cl, sched_dif;
  1449. +     extern    struct    sched_event *sched_ptr;
  1450. + 
  1451. +     if (vp = adrof("autologout"))
  1452. +     {
  1453. +         if (cp = vp->vec[0])
  1454. +             alrm_time = (atoi (cp) * 60);
  1455. +     }
  1456. +     if (sched_ptr) {
  1457. +         time(&cl);
  1458. +         sched_dif = sched_ptr->t_when - cl;
  1459. +         if ((alrm_time == 0) || (sched_dif < alrm_time))
  1460. +             alrm_time = ((int) sched_dif) + 1;
  1461. +     }
  1462. +     alarm (alrm_time);    /* Autologout ON */
  1463. + }
  1464. + 
  1465.   #ifdef PROF
  1466.   done(i)
  1467.   #else
  1468. ***************
  1469. *** 915,938
  1470.       _exit(i);
  1471.   }
  1472.   
  1473. - printprompt()
  1474. - {
  1475. -     register char *cp;
  1476. - 
  1477. -     if (!whyles) {
  1478. -         for (cp = value("prompt"); *cp; cp++)
  1479. -             if (*cp == HIST)
  1480. -                 printf("%d", eventno + 1);
  1481. -             else {
  1482. -                 if (*cp == '\\' && cp[1] == HIST)
  1483. -                     cp++;
  1484. -                 putchar(*cp | QUOTE);
  1485. -             }
  1486. -     } else
  1487. -         /* 
  1488. -          * Prompt for forward reading loop
  1489. -          * body content.
  1490. -          */
  1491. -         printf("? ");
  1492. -     flush();
  1493. - }
  1494.  
  1495. --- 1548,1550 -----
  1496.       _exit(i);
  1497.   }
  1498.   
  1499. *** sh.char.c    Sat Mar 29 07:37:20 1986
  1500. --- /usr/src/local/tcsh/sh.char.c    Mon Aug 17 23:30:38 1987
  1501. ***************
  1502. *** 60,66
  1503.       _META,        0,        _META,        _GLOB,
  1504.   
  1505.   /*    @        A        B        C    */
  1506. !     0,        _LET,        _LET,        _LET,
  1507.   
  1508.   /*    D        E        F        G    */
  1509.       _LET,        _LET,        _LET,        _LET,
  1510.  
  1511. --- 60,66 -----
  1512.       _META,        0,        _META,        _GLOB,
  1513.   
  1514.   /*    @        A        B        C    */
  1515. !     0,        _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_HEX|_UP,
  1516.   
  1517.   /*    D        E        F        G    */
  1518.       _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_UP,
  1519. ***************
  1520. *** 63,69
  1521.       0,        _LET,        _LET,        _LET,
  1522.   
  1523.   /*    D        E        F        G    */
  1524. !     _LET,        _LET,        _LET,        _LET,
  1525.   
  1526.   /*    H        I        J        K    */
  1527.       _LET,        _LET,        _LET,        _LET,
  1528.  
  1529. --- 63,69 -----
  1530.       0,        _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_HEX|_UP,
  1531.   
  1532.   /*    D        E        F        G    */
  1533. !     _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_UP,
  1534.   
  1535.   /*    H        I        J        K    */
  1536.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1537. ***************
  1538. *** 66,72
  1539.       _LET,        _LET,        _LET,        _LET,
  1540.   
  1541.   /*    H        I        J        K    */
  1542. !     _LET,        _LET,        _LET,        _LET,
  1543.   
  1544.   /*    L        M        N        O    */
  1545.       _LET,        _LET,        _LET,        _LET,
  1546.  
  1547. --- 66,72 -----
  1548.       _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_HEX|_UP,    _LET|_UP,
  1549.   
  1550.   /*    H        I        J        K    */
  1551. !     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1552.   
  1553.   /*    L        M        N        O    */
  1554.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1555. ***************
  1556. *** 69,75
  1557.       _LET,        _LET,        _LET,        _LET,
  1558.   
  1559.   /*    L        M        N        O    */
  1560. !     _LET,        _LET,        _LET,        _LET,
  1561.   
  1562.   /*    P        Q        R        S    */
  1563.       _LET,        _LET,        _LET,        _LET,
  1564.  
  1565. --- 69,75 -----
  1566.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1567.   
  1568.   /*    L        M        N        O    */
  1569. !     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1570.   
  1571.   /*    P        Q        R        S    */
  1572.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1573. ***************
  1574. *** 72,78
  1575.       _LET,        _LET,        _LET,        _LET,
  1576.   
  1577.   /*    P        Q        R        S    */
  1578. !     _LET,        _LET,        _LET,        _LET,
  1579.   
  1580.   /*    T        U        V        W    */
  1581.       _LET,        _LET,        _LET,        _LET,
  1582.  
  1583. --- 72,78 -----
  1584.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1585.   
  1586.   /*    P        Q        R        S    */
  1587. !     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1588.   
  1589.   /*    T        U        V        W    */
  1590.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1591. ***************
  1592. *** 75,81
  1593.       _LET,        _LET,        _LET,        _LET,
  1594.   
  1595.   /*    T        U        V        W    */
  1596. !     _LET,        _LET,        _LET,        _LET,
  1597.   
  1598.   /*    X        Y        Z        [    */
  1599.       _LET,        _LET,        _LET,        _GLOB,
  1600.  
  1601. --- 75,81 -----
  1602.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1603.   
  1604.   /*    T        U        V        W    */
  1605. !     _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1606.   
  1607.   /*    X        Y        Z        [    */
  1608.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _GLOB,
  1609. ***************
  1610. *** 78,84
  1611.       _LET,        _LET,        _LET,        _LET,
  1612.   
  1613.   /*    X        Y        Z        [    */
  1614. !     _LET,        _LET,        _LET,        _GLOB,
  1615.   
  1616.   /*    \        ]        ^        _    */
  1617.       _ESC,        0,        0,        _LET,
  1618.  
  1619. --- 78,84 -----
  1620.       _LET|_UP,    _LET|_UP,    _LET|_UP,    _LET|_UP,
  1621.   
  1622.   /*    X        Y        Z        [    */
  1623. !     _LET|_UP,    _LET|_UP,    _LET|_UP,    _GLOB,
  1624.   
  1625.   /*    \        ]        ^        _    */
  1626.       _ESC,        0,        0,        _LET,
  1627. ***************
  1628. *** 84,90
  1629.       _ESC,        0,        0,        _LET,
  1630.   
  1631.   /*    `        a        b        c    */
  1632. !     _Q1|_GLOB,    _LET,        _LET,        _LET,
  1633.   
  1634.   /*    d        e        f        g    */
  1635.       _LET,        _LET,        _LET,        _LET,
  1636.  
  1637. --- 84,90 -----
  1638.       _ESC,        0,        0,        _LET,
  1639.   
  1640.   /*    `        a        b        c    */
  1641. !     _Q1|_GLOB,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,
  1642.   
  1643.   /*    d        e        f        g    */
  1644.       _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_LOW,
  1645. ***************
  1646. *** 87,93
  1647.       _Q1|_GLOB,    _LET,        _LET,        _LET,
  1648.   
  1649.   /*    d        e        f        g    */
  1650. !     _LET,        _LET,        _LET,        _LET,
  1651.   
  1652.   /*    h        i        j        k    */
  1653.       _LET,        _LET,        _LET,        _LET,
  1654.  
  1655. --- 87,93 -----
  1656.       _Q1|_GLOB,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,
  1657.   
  1658.   /*    d        e        f        g    */
  1659. !     _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_LOW,
  1660.   
  1661.   /*    h        i        j        k    */
  1662.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1663. ***************
  1664. *** 90,96
  1665.       _LET,        _LET,        _LET,        _LET,
  1666.   
  1667.   /*    h        i        j        k    */
  1668. !     _LET,        _LET,        _LET,        _LET,
  1669.   
  1670.   /*    l        m        n        o    */
  1671.       _LET,        _LET,        _LET,        _LET,
  1672.  
  1673. --- 90,96 -----
  1674.       _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_HEX|_LOW,    _LET|_LOW,
  1675.   
  1676.   /*    h        i        j        k    */
  1677. !     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1678.   
  1679.   /*    l        m        n        o    */
  1680.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1681. ***************
  1682. *** 93,99
  1683.       _LET,        _LET,        _LET,        _LET,
  1684.   
  1685.   /*    l        m        n        o    */
  1686. !     _LET,        _LET,        _LET,        _LET,
  1687.   
  1688.   /*    p        q        r        s    */
  1689.       _LET,        _LET,        _LET,        _LET,
  1690.  
  1691. --- 93,99 -----
  1692.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1693.   
  1694.   /*    l        m        n        o    */
  1695. !     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1696.   
  1697.   /*    p        q        r        s    */
  1698.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1699. ***************
  1700. *** 96,102
  1701.       _LET,        _LET,        _LET,        _LET,
  1702.   
  1703.   /*    p        q        r        s    */
  1704. !     _LET,        _LET,        _LET,        _LET,
  1705.   
  1706.   /*    t        u        v        w    */
  1707.       _LET,        _LET,        _LET,        _LET,
  1708.  
  1709. --- 96,102 -----
  1710.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1711.   
  1712.   /*    p        q        r        s    */
  1713. !     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1714.   
  1715.   /*    t        u        v        w    */
  1716.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1717. ***************
  1718. *** 99,105
  1719.       _LET,        _LET,        _LET,        _LET,
  1720.   
  1721.   /*    t        u        v        w    */
  1722. !     _LET,        _LET,        _LET,        _LET,
  1723.   
  1724.   /*    x        y        z        {    */
  1725.       _LET,        _LET,        _LET,        _GLOB,
  1726.  
  1727. --- 99,105 -----
  1728.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1729.   
  1730.   /*    t        u        v        w    */
  1731. !     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1732.   
  1733.   /*    x        y        z        {    */
  1734.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _GLOB,
  1735. ***************
  1736. *** 102,108
  1737.       _LET,        _LET,        _LET,        _LET,
  1738.   
  1739.   /*    x        y        z        {    */
  1740. !     _LET,        _LET,        _LET,        _GLOB,
  1741.   
  1742.   /*    |        }        ~        del    */
  1743.       _META,        0,        0,        0,
  1744.  
  1745. --- 102,108 -----
  1746.       _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _LET|_LOW,
  1747.   
  1748.   /*    x        y        z        {    */
  1749. !     _LET|_LOW,    _LET|_LOW,    _LET|_LOW,    _GLOB,
  1750.   
  1751.   /*    |        }        ~        del    */
  1752.       _META,        0,        0,        0,
  1753. *** sh.char.h    Sat Mar 29 07:37:14 1986
  1754. --- /usr/src/local/tcsh/sh.char.h    Mon Aug 17 23:28:06 1987
  1755. ***************
  1756. *** 24,29
  1757.   #define _DOL    0x80        /* $ */
  1758.   #define _DIG   0x100        /* 0-9 */
  1759.   #define _LET   0x200        /* a-z, A-Z, _ */
  1760.   
  1761.   #define cmap(c, bits)    (_cmap[(unsigned char)(c)] & (bits))
  1762.   
  1763.  
  1764. --- 24,32 -----
  1765.   #define _DOL    0x80        /* $ */
  1766.   #define _DIG   0x100        /* 0-9 */
  1767.   #define _LET   0x200        /* a-z, A-Z, _ */
  1768. + #define    _HEX   0x400        /* Hex digits */
  1769. + #define    _LOW   0x800        /* Lower case */
  1770. + #define    _UP   0x1000        /* Upper case */
  1771.   
  1772.   #define cmap(c, bits)    (_cmap[(unsigned char)(c)] & (bits))
  1773.   
  1774. ***************
  1775. *** 32,36
  1776.   #define isspnl(c)    cmap(c, _SP|_NL)
  1777.   #define ismeta(c)    cmap(c, _META)
  1778.   #define digit(c)    cmap(c, _DIG)
  1779.   #define letter(c)    cmap(c, _LET)
  1780.   #define alnum(c)    (digit(c) || letter(c))
  1781.  
  1782. --- 35,41 -----
  1783.   #define isspnl(c)    cmap(c, _SP|_NL)
  1784.   #define ismeta(c)    cmap(c, _META)
  1785.   #define digit(c)    cmap(c, _DIG)
  1786. + #define isdigit(c)    cmap(c, _DIG)
  1787.   #define letter(c)    cmap(c, _LET)
  1788.   #define isalpha(c)    cmap(c, _LET)
  1789.   #define islower(c)    cmap(c, _LOW)
  1790. ***************
  1791. *** 33,36
  1792.   #define ismeta(c)    cmap(c, _META)
  1793.   #define digit(c)    cmap(c, _DIG)
  1794.   #define letter(c)    cmap(c, _LET)
  1795.   #define alnum(c)    (digit(c) || letter(c))
  1796.  
  1797. --- 37,46 -----
  1798.   #define digit(c)    cmap(c, _DIG)
  1799.   #define isdigit(c)    cmap(c, _DIG)
  1800.   #define letter(c)    cmap(c, _LET)
  1801. + #define isalpha(c)    cmap(c, _LET)
  1802. + #define islower(c)    cmap(c, _LOW)
  1803. + #define isupper(c)    cmap(c, _UP)
  1804. + #define isxdigit(c)    cmap(c, _HEX)
  1805.   #define alnum(c)    (digit(c) || letter(c))
  1806.   #define toupper(c)    ((c)-'a'+'A')
  1807.   #define tolower(c)    ((c)-'A'+'a')
  1808. ***************
  1809. *** 34,36
  1810.   #define digit(c)    cmap(c, _DIG)
  1811.   #define letter(c)    cmap(c, _LET)
  1812.   #define alnum(c)    (digit(c) || letter(c))
  1813.  
  1814. --- 42,46 -----
  1815.   #define isupper(c)    cmap(c, _UP)
  1816.   #define isxdigit(c)    cmap(c, _HEX)
  1817.   #define alnum(c)    (digit(c) || letter(c))
  1818. + #define toupper(c)    ((c)-'a'+'A')
  1819. + #define tolower(c)    ((c)-'A'+'a')
  1820. *** sh.dir.c    Tue Jun 11 18:59:53 1985
  1821. --- /usr/src/local/tcsh/sh.dir.c    Mon Aug 17 19:58:48 1987
  1822. ***************
  1823. *** 230,235
  1824.       } else if (dp = dfind(*v)) {
  1825.           if (chdir(dp->di_name) < 0)
  1826.               Perror(dp->di_name);
  1827.       } else {
  1828.           register char *cp;
  1829.   
  1830.  
  1831. --- 230,240 -----
  1832.       } else if (dp = dfind(*v)) {
  1833.           if (chdir(dp->di_name) < 0)
  1834.               Perror(dp->di_name);
  1835. +         /*
  1836. +          * kfk - 10 Feb 1984 - added new "extraction style" pushd +n
  1837. +          */
  1838. +         if (adrof ("dextract"))
  1839. +             dextract (dp);
  1840.       } else {
  1841.           register char *cp;
  1842.   
  1843. ***************
  1844. *** 471,473
  1845.       if (printd)
  1846.           dodirs(fakev);
  1847.   }
  1848.  
  1849. --- 476,530 -----
  1850.       if (printd)
  1851.           dodirs(fakev);
  1852.   }
  1853. + 
  1854. + /*
  1855. +  * getstakd - added by kfk 17 Jan 1984
  1856. +  * Support routine for the stack hack.  Finds nth directory in
  1857. +  * the directory stack, or finds last directory in stack.
  1858. +  */
  1859. + getstakd (s, cnt, callerr)
  1860. +     char *s;
  1861. +     int cnt, callerr;
  1862. + {
  1863. +     struct directory *dp;
  1864. + 
  1865. +     dp = dcwd;
  1866. +     if (cnt < 0) {        /* < 0 ==> last dir requested. */
  1867. +         dp = dp->di_next;
  1868. +         if (dp == &dhead)
  1869. +             dp = dp->di_next;
  1870. +     } else {
  1871. +         while (cnt-- > 0) {
  1872. +             dp = dp->di_prev;
  1873. +             if (dp == &dhead)
  1874. +                 dp = dp->di_prev;
  1875. +             if (dp == dcwd) {
  1876. +                 if (callerr)
  1877. +                     error ("Not that many dir stack entries");
  1878. +                 else
  1879. +                     return;
  1880. +             }
  1881. +         }
  1882. +     }
  1883. +     strcpy (s, dp->di_name);
  1884. + }
  1885. + 
  1886. + /*
  1887. +  * Karl Kleinpaste - 10 Feb 1984
  1888. +  * Added dextract(), which is used in pushd +n.
  1889. +  * Instead of just rotating the entire stack around, dextract()
  1890. +  * lets the user have the nth dir extracted from its current
  1891. +  * position, and pushes it onto the top.
  1892. +  */
  1893. + dextract(dp)
  1894. + struct directory *dp;
  1895. + {
  1896. +     if (dp == dcwd)
  1897. +         return;
  1898. +     dp->di_next->di_prev = dp->di_prev;
  1899. +     dp->di_prev->di_next = dp->di_next;
  1900. +     dp->di_next = dcwd->di_next;
  1901. +     dp->di_prev = dcwd;
  1902. +     dp->di_next->di_prev = dp;
  1903. +     dcwd->di_next = dp;
  1904. +  }
  1905. *** sh.err.c    Tue May 13 01:03:05 1986
  1906. --- /usr/src/local/tcsh/sh.err.c    Mon Aug 17 19:58:49 1987
  1907. ***************
  1908. *** 9,15
  1909.   #endif
  1910.   
  1911.   #include "sh.h"
  1912. ! #include <sys/ioctl.h>
  1913.   
  1914.   /*
  1915.    * C Shell
  1916.  
  1917. --- 9,15 -----
  1918.   #endif
  1919.   
  1920.   #include "sh.h"
  1921. ! /* #include <sys/ioctl.h> */
  1922.   
  1923.   /*
  1924.    * C Shell
  1925. ***************
  1926. *** 78,83
  1927.       btoeof();
  1928.   
  1929.       setq("status", onev, &shvhed);
  1930.       if (tpgrp > 0)
  1931.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&tpgrp);
  1932.       reset();        /* Unwind */
  1933.  
  1934. --- 78,84 -----
  1935.       btoeof();
  1936.   
  1937.       setq("status", onev, &shvhed);
  1938. + #ifdef BSDJOBS
  1939.       if (tpgrp > 0)
  1940.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&tpgrp);
  1941.   #endif
  1942. ***************
  1943. *** 80,85
  1944.       setq("status", onev, &shvhed);
  1945.       if (tpgrp > 0)
  1946.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&tpgrp);
  1947.       reset();        /* Unwind */
  1948.   }
  1949.   
  1950.  
  1951. --- 81,87 -----
  1952.   #ifdef BSDJOBS
  1953.       if (tpgrp > 0)
  1954.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&tpgrp);
  1955. + #endif
  1956.       reset();        /* Unwind */
  1957.   }
  1958.   
  1959. *** sh.exec.c    Thu Jun  6 13:15:32 1985
  1960. --- /usr/src/local/tcsh/sh.exec.c    Thu Sep 24 15:06:55 1987
  1961. ***************
  1962. *** 9,15
  1963.   #endif
  1964.   
  1965.   #include "sh.h"
  1966. ! #include <sys/dir.h>
  1967.   
  1968.   /*
  1969.    * C shell
  1970.  
  1971. --- 9,15 -----
  1972.   #endif
  1973.   
  1974.   #include "sh.h"
  1975. ! /* #include <sys/dir.h> */
  1976.   
  1977.   /*
  1978.    * C shell
  1979. ***************
  1980. *** 287,292
  1981.       char **pv;
  1982.       int hashval;
  1983.   
  1984.       havhash = 1;
  1985.       for (cnt = 0; cnt < sizeof xhash; cnt++)
  1986.           xhash[cnt] = 0;
  1987.  
  1988. --- 287,293 -----
  1989.       char **pv;
  1990.       int hashval;
  1991.   
  1992. +     tw_clear_comm_list();
  1993.       havhash = 1;
  1994.       for (cnt = 0; cnt < sizeof xhash; cnt++)
  1995.           xhash[cnt] = 0;
  1996. ***************
  1997. *** 298,303
  1998.           dirp = opendir(*pv);
  1999.           if (dirp == NULL)
  2000.               continue;
  2001.           if (fstat(dirp->dd_fd, &stb) < 0 || !isdir(stb)) {
  2002.               closedir(dirp);
  2003.               continue;
  2004.  
  2005. --- 299,305 -----
  2006.           dirp = opendir(*pv);
  2007.           if (dirp == NULL)
  2008.               continue;
  2009. + #ifdef COMMENT    /* this isn't needed.  opendir won't open non-dirs */
  2010.           if (fstat(dirp->dd_fd, &stb) < 0 || !isdir(stb)) {
  2011.               closedir(dirp);
  2012.               continue;
  2013. ***************
  2014. *** 302,307
  2015.               closedir(dirp);
  2016.               continue;
  2017.           }
  2018.           while ((dp = readdir(dirp)) != NULL) {
  2019.               if (dp->d_ino == 0)
  2020.                   continue;
  2021.  
  2022. --- 304,310 -----
  2023.               closedir(dirp);
  2024.               continue;
  2025.           }
  2026. + #endif
  2027.           while ((dp = readdir(dirp)) != NULL) {
  2028.               if (dp->d_ino == 0)
  2029.                   continue;
  2030. ***************
  2031. *** 331,336
  2032.               hits, misses, 100 * hits / (hits + misses));
  2033.   }
  2034.   #endif
  2035.   
  2036.   /*
  2037.    * Hash a command name.
  2038.  
  2039. --- 334,435 -----
  2040.               hits, misses, 100 * hits / (hits + misses));
  2041.   }
  2042.   #endif
  2043. + 
  2044. + int
  2045. + iscommand(name)
  2046. +     char *name;
  2047. + {
  2048. +     char *sav;
  2049. +     register char *dp, **pv;
  2050. +     register struct varent *v;
  2051. +     bool slash = any('/', name);
  2052. +     int hashval, i;
  2053. + 
  2054. +     v = adrof("path");
  2055. +     if (v == 0 || v->vec[0] == 0 || slash)
  2056. +         pv = justabs;
  2057. +     else
  2058. +         pv = v->vec;
  2059. +     sav = strspl("/", name);        /* / command name for postpending */
  2060. +     if (havhash)
  2061. +         hashval = hashname(name);
  2062. +     i = 0;
  2063. +     do {
  2064. +         if (!slash && pv[0][0] == '/' && havhash && (hashval & (1 << (i % 8))) == 0)
  2065. +             goto cont;
  2066. +         if (pv[0][0] == 0 || eq(pv[0], ".")) {    /* don't make ./xxx */
  2067. +             if (access(name, 1) == 0) {
  2068. +                 xfree(sav);
  2069. +                 return i+1;
  2070. +             }
  2071. +         } else {
  2072. +             dp = strspl(*pv, sav);
  2073. +             if (access(dp, 1) == 0) {
  2074. +                 xfree(sav);
  2075. +                 xfree(dp);
  2076. +                 return i+1;
  2077. +             }
  2078. +             xfree(dp);
  2079. +         }
  2080. + cont:
  2081. +         pv++;
  2082. +         i++;
  2083. +     } while (*pv);
  2084. +     xfree(sav);
  2085. +     return 0;
  2086. + }
  2087. + 
  2088. + tellmewhat(lex)
  2089. +     struct wordent *lex;
  2090. + {
  2091. +     register char *cp;
  2092. +     register int i;
  2093. +     register struct biltins *bptr;
  2094. +     register struct wordent *sp = lex->next;
  2095. + 
  2096. + 
  2097. +     for (bptr = bfunc; bptr < &bfunc[nbfunc]; bptr++) {
  2098. + #ifdef    OUTDEF
  2099. +     for (bptr = bfunc; cp = bptr->bname; bptr++) {
  2100. + #endif
  2101. +     if (strcmp(sp->word, bptr->bname) == 0) {
  2102. +         prlex(lex);
  2103. +         printf("%s: is built in.\n", sp->word);
  2104. +         flush();
  2105. +         return;
  2106. +     }
  2107. +     }
  2108. + 
  2109. +     while (*(sp->word) & 0200) (sp->word)++;
  2110. +     if (i = iscommand(strip(sp->word))) {
  2111. +     char *s1;
  2112. +     register char **pv;
  2113. +     register struct varent *v;
  2114. +     bool slash = any('/', sp->word);
  2115. + 
  2116. +     v = adrof("path");
  2117. +     if (v == 0 || v->vec[0] == 0 || slash)
  2118. +         pv = justabs;
  2119. +     else
  2120. +         pv = v->vec;
  2121. + 
  2122. +     while (--i) pv++;
  2123. +     if (pv[0][0] == 0 || eq(pv[0], ".")) {
  2124. +         prlex(lex);
  2125. +         return;
  2126. +     }
  2127. +     s1 = strspl(*pv, "/");
  2128. +     sp->word = strspl(s1, sp->word);
  2129. +     xfree(s1);
  2130. +     prlex(lex);
  2131. +     xfree(sp->word);
  2132. +     sp->word = (char *)0;
  2133. +     } else {
  2134. +     prlex(lex);
  2135. +     printf("%s: Command not found.\n", sp->word);
  2136. +     flush();
  2137. +     }
  2138. + }
  2139.   
  2140.   /*
  2141.    * Hash a command name.
  2142. *** sh.file.c    Sun May 18 23:01:20 1986
  2143. --- /usr/src/local/tcsh/sh.file.c    Mon Aug 17 19:21:52 1987
  2144. ***************
  2145. *** 174,179
  2146.       return (' ');
  2147.   }
  2148.   
  2149.   static struct winsize win;
  2150.   
  2151.   /*
  2152.  
  2153. --- 174,188 -----
  2154.       return (' ');
  2155.   }
  2156.   
  2157. + #ifndef    BSD4_3
  2158. + struct    winsize {
  2159. +     unsigned short    ws_row;
  2160. +     unsigned short    ws_col;
  2161. +     unsigned short    ws_xpixel;
  2162. +     unsigned short    ws_ypixel;
  2163. + };
  2164. + #endif
  2165. + 
  2166.   static struct winsize win;
  2167.   
  2168.   /*
  2169. ***************
  2170. *** 185,190
  2171.   {
  2172.       register int i, rows, r, c, maxwidth = 0, columns;
  2173.   
  2174.       if (ioctl(SHOUT, TIOCGWINSZ, (char *)&win) < 0 || win.ws_col == 0)
  2175.           win.ws_col = 80;
  2176.       for (i = 0; i < count; i++)
  2177.  
  2178. --- 194,200 -----
  2179.   {
  2180.       register int i, rows, r, c, maxwidth = 0, columns;
  2181.   
  2182. + #ifdef    BSD4_3
  2183.       if (ioctl(SHOUT, TIOCGWINSZ, (char *)&win) < 0 || win.ws_col == 0)
  2184.   #endif
  2185.           win.ws_col = 80;
  2186. ***************
  2187. *** 186,191
  2188.       register int i, rows, r, c, maxwidth = 0, columns;
  2189.   
  2190.       if (ioctl(SHOUT, TIOCGWINSZ, (char *)&win) < 0 || win.ws_col == 0)
  2191.           win.ws_col = 80;
  2192.       for (i = 0; i < count; i++)
  2193.           maxwidth = maxwidth > (r = strlen(items[i])) ? maxwidth : r;
  2194.  
  2195. --- 196,202 -----
  2196.   
  2197.   #ifdef    BSD4_3
  2198.       if (ioctl(SHOUT, TIOCGWINSZ, (char *)&win) < 0 || win.ws_col == 0)
  2199. + #endif
  2200.           win.ws_col = 80;
  2201.       for (i = 0; i < count; i++)
  2202.           maxwidth = maxwidth > (r = strlen(items[i])) ? maxwidth : r;
  2203. *** sh.func.c    Tue May 13 01:03:48 1986
  2204. --- /usr/src/local/tcsh/sh.func.c    Thu Sep 24 15:08:48 1987
  2205. ***************
  2206. *** 9,15
  2207.   #endif
  2208.   
  2209.   #include "sh.h"
  2210. ! #include <sys/ioctl.h>
  2211.   
  2212.   /*
  2213.    * C shell
  2214.  
  2215. --- 9,15 -----
  2216.   #endif
  2217.   
  2218.   #include "sh.h"
  2219. ! /* #include <sys/ioctl.h> */
  2220.   
  2221.   /*
  2222.    * C shell
  2223. ***************
  2224. *** 175,181
  2225.       islogin();
  2226.       rechist();
  2227.       (void) signal(SIGTERM, parterm);
  2228. !     execl("/bin/login", "login", v[1], 0);
  2229.       untty();
  2230.       exit(1);
  2231.   }
  2232.  
  2233. --- 175,181 -----
  2234.       islogin();
  2235.       rechist();
  2236.       (void) signal(SIGTERM, parterm);
  2237. !     execl("/bin/login", "login", v[1], (char *) 0);
  2238.       untty();
  2239.       exit(1);
  2240.   }
  2241. ***************
  2242. *** 180,185
  2243.       exit(1);
  2244.   }
  2245.   
  2246.   #ifdef NEWGRP
  2247.   donewgrp(v)
  2248.       char **v;
  2249.  
  2250. --- 180,204 -----
  2251.       exit(1);
  2252.   }
  2253.   
  2254. + dolog()
  2255. + {
  2256. +     extern struct who *wholist;
  2257. +     extern time_t watch_period;
  2258. +     struct who *wp;
  2259. +     struct varent *v;
  2260. + 
  2261. +     if ((v = adrof ("watch")) == (struct varent *) 0)
  2262. +         error ("No $watch variable set");
  2263. +     blkpr (v->vec);
  2264. +     printf ("\n");
  2265. +     watch_period = 0;
  2266. +     wp = wholist;
  2267. +     while (wp != (struct who *) 0) {
  2268. +         wp->w_name[0] = '\0';
  2269. +         wp = wp->w_next;
  2270. +     }
  2271. + }
  2272. + 
  2273.   #ifdef NEWGRP
  2274.   donewgrp(v)
  2275.       char **v;
  2276. ***************
  2277. *** 188,195
  2278.       if (chkstop == 0 && setintr)
  2279.           panystop(0);
  2280.       (void) signal(SIGTERM, parterm);
  2281. !     execl("/bin/newgrp", "newgrp", v[1], 0);
  2282. !     execl("/usr/bin/newgrp", "newgrp", v[1], 0);
  2283.       untty();
  2284.       exit(1);
  2285.   }
  2286.  
  2287. --- 207,214 -----
  2288.       if (chkstop == 0 && setintr)
  2289.           panystop(0);
  2290.       (void) signal(SIGTERM, parterm);
  2291. !     execl("/bin/newgrp", "newgrp", v[1], (char *) 0);
  2292. !     execl("/usr/bin/newgrp", "newgrp", v[1], (char *) 0);
  2293.       untty();
  2294.       exit(1);
  2295.   }
  2296. ***************
  2297. *** 532,538
  2298.           bseek((off_t)0);
  2299.       do {
  2300.           if (intty && fseekp == feobp)
  2301. !             printf("? "), flush();
  2302.           aword[0] = 0;
  2303.           (void) getword(aword);
  2304.           switch (srchx(aword)) {
  2305.  
  2306. --- 551,557 -----
  2307.           bseek((off_t)0);
  2308.       do {
  2309.           if (intty && fseekp == feobp)
  2310. !             printprompt(); /* printf("? "), flush(); */
  2311.           aword[0] = 0;
  2312.           (void) getword(aword);
  2313.           switch (srchx(aword)) {
  2314. ***************
  2315. *** 866,872
  2316.       (void) umask(i);
  2317.   }
  2318.   
  2319. ! 
  2320.   struct limits {
  2321.       int    limconst;
  2322.       char    *limname;
  2323.  
  2324. --- 885,891 -----
  2325.       (void) umask(i);
  2326.   }
  2327.   
  2328. ! #ifndef OREO
  2329.   struct limits {
  2330.       int    limconst;
  2331.       char    *limname;
  2332. ***************
  2333. *** 1074,1079
  2334.       }
  2335.       return (0);
  2336.   }
  2337.   
  2338.   dosuspend()
  2339.   {
  2340.  
  2341. --- 1093,1099 -----
  2342.       }
  2343.       return (0);
  2344.   }
  2345. + #endif OREO
  2346.   
  2347.   #ifdef SVID
  2348.   extern struct termio termiob;
  2349. ***************
  2350. *** 1075,1080
  2351.       return (0);
  2352.   }
  2353.   
  2354.   dosuspend()
  2355.   {
  2356.       int ldisc, ctpgrp;
  2357.  
  2358. --- 1095,1104 -----
  2359.   }
  2360.   #endif OREO
  2361.   
  2362. + #ifdef SVID
  2363. + extern struct termio termiob;
  2364. + #endif SVID
  2365. + 
  2366.   dosuspend()
  2367.   {
  2368.       int ldisc, ctpgrp;
  2369. ***************
  2370. *** 1087,1092
  2371.       (void) kill(0, SIGTSTP);
  2372.       /* the shell stops here */
  2373.       (void) signal(SIGTSTP, old);
  2374.       if (tpgrp != -1) {
  2375.   retry:
  2376.           (void) ioctl(FSHTTY, TIOCGPGRP, (char *)&ctpgrp);
  2377.  
  2378. --- 1111,1117 -----
  2379.       (void) kill(0, SIGTSTP);
  2380.       /* the shell stops here */
  2381.       (void) signal(SIGTSTP, old);
  2382. + #ifdef BSDJOBS
  2383.       if (tpgrp != -1) {
  2384.   retry:
  2385.           (void) ioctl(FSHTTY, TIOCGPGRP, (char *)&ctpgrp);
  2386. ***************
  2387. *** 1099,1104
  2388.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&shpgrp);
  2389.           (void) setpgrp(0, shpgrp);
  2390.       }
  2391.       (void) ioctl(FSHTTY, TIOCGETD, (char *)&oldisc);
  2392.       if (oldisc != NTTYDISC) {
  2393.           printf("Switching to new tty driver...\n");
  2394.  
  2395. --- 1124,1141 -----
  2396.           (void) ioctl(FSHTTY, TIOCSPGRP, (char *)&shpgrp);
  2397.           (void) setpgrp(0, shpgrp);
  2398.       }
  2399. + #endif BSDJOBS
  2400. + 
  2401. + #ifdef SVID
  2402. +     (void) ioctl(FSHTTY, TCGETA, &termiob);
  2403. +     if (termiob.c_cc[VSWTCH] != CSWTCH) {
  2404. + #ifdef DEBUG
  2405. +         printf ("Setting ^Z...\n");
  2406. + #endif DEBUG
  2407. +         termiob.c_cc[VSWTCH] = CSWTCH;
  2408. +         (void) ioctl(FSHTTY, TCSETA, &termiob);
  2409. +     }
  2410. + #else SVID
  2411.       (void) ioctl(FSHTTY, TIOCGETD, (char *)&oldisc);
  2412.       if (oldisc != NTTYDISC) {
  2413.           printf("Switching to new tty driver...\n");
  2414. ***************
  2415. *** 1105,1110
  2416.           ldisc = NTTYDISC;
  2417.           (void) ioctl(FSHTTY, TIOCSETD, (char *)&ldisc);
  2418.       }
  2419.   }
  2420.   
  2421.   doeval(v)
  2422.  
  2423. --- 1142,1148 -----
  2424.           ldisc = NTTYDISC;
  2425.           (void) ioctl(FSHTTY, TIOCSETD, (char *)&ldisc);
  2426.       }
  2427. + #endif SVID
  2428.   }
  2429.   
  2430.   doeval(v)
  2431. ***************
  2432. *** 1146,1148
  2433.       if (reenter >= 2)
  2434.           error(NOSTR);
  2435.   }
  2436.  
  2437. --- 1184,1366 -----
  2438.       if (reenter >= 2)
  2439.           error(NOSTR);
  2440.   }
  2441. + 
  2442. + /*
  2443. +  * kfk - added scheduled event functions
  2444. +  */
  2445. + struct sched_event *sched_ptr;
  2446. + 
  2447. + dosched(v)
  2448. +     register char **v;
  2449. + {
  2450. +     register struct sched_event *tp, *tp1, *tp2;
  2451. +     long cur_time;
  2452. +     int count, hours, minutes, dif_hour, dif_min;
  2453. +     char *cp;
  2454. +     bool relative;        /* time specified as +hh:mm */
  2455. +     struct tm *ltp;
  2456. +     char *timeline;
  2457. +     char *ctime();
  2458. + 
  2459. +     v++;
  2460. +     cp = *v++;
  2461. +     if (cp == (char *) 0) {
  2462. +         /* print list of scheduled events */
  2463. +         for (count = 1, tp = sched_ptr; tp; count++, tp = tp->t_next) {
  2464. +             timeline = ctime(&tp->t_when);
  2465. +             timeline[16] = '\0';
  2466. +             printf ("%6d\t%s\t", count, timeline);
  2467. +             blkpr (tp->t_lex);
  2468. +             printf ("\n");
  2469. +         }
  2470. +         return;
  2471. +     }
  2472. + 
  2473. +     if (*cp == '-') {
  2474. +         /* remove item from list */
  2475. +         if (!sched_ptr)
  2476. +             error ("No scheduled events");
  2477. +         if (*v)
  2478. +             error ("Too many args for 'sched -<item#>'");
  2479. +         count = atoi (++cp);
  2480. +         if (count <= 0)
  2481. +             error ("Usage to delete: sched -<item#>");
  2482. +         tp = sched_ptr;
  2483. +         tp1 = 0;
  2484. +         while (--count) {
  2485. +             if (tp->t_next == 0)
  2486. +                 break;
  2487. +             else {
  2488. +                 tp1 = tp;
  2489. +                 tp = tp->t_next;
  2490. +             }
  2491. +         }
  2492. +         if (count)
  2493. +             error ("Not that many scheduled events");
  2494. +         if (tp1 == 0)
  2495. +             sched_ptr = tp->t_next;
  2496. +         else
  2497. +             tp1->t_next = tp->t_next;
  2498. +         blkfree (tp->t_lex);
  2499. +         xfree ((char *) tp);
  2500. +         return;
  2501. +     }
  2502. + 
  2503. +     /* else, add an item to the list */
  2504. +     if (!*v)
  2505. +         error ("No command to run");
  2506. +     relative = 0;
  2507. +     if (!digit(*cp)) {        /* not abs. time */
  2508. +         if (*cp != '+')
  2509. +             error ("Usage: sched [+]hh:mm <command>");
  2510. +         cp++, relative++;
  2511. +     }
  2512. +     minutes = 0;
  2513. +     hours = atoi(cp);
  2514. +     while (*cp && *cp != ':' && *cp != 'a' && *cp != 'p')
  2515. +         cp++;
  2516. +     if (*cp && *cp == ':')
  2517. +         minutes = atoi(++cp);
  2518. +     if ((hours < 0) || (minutes < 0) ||
  2519. +         (hours > 23) || (minutes > 59))
  2520. +         error ("Invalid time for event");
  2521. +     while (*cp && *cp != 'p' && *cp != 'a')
  2522. +         cp++;
  2523. +     if (*cp && relative)
  2524. +         error ("Relative time inconsistent with am/pm");
  2525. +     if (*cp == 'p')
  2526. +         hours += 12;
  2527. +     time(&cur_time);
  2528. +     ltp = localtime(&cur_time);
  2529. +     if (relative) {
  2530. +         dif_hour = hours;
  2531. +         dif_min = minutes;
  2532. +     } else {
  2533. +         if ((dif_hour = hours - ltp->tm_hour) < 0)
  2534. +             dif_hour += 24;
  2535. +         if ((dif_min = minutes - ltp->tm_min) < 0) {
  2536. +             dif_min += 60;
  2537. +             if ((--dif_hour) < 0)
  2538. +                 dif_hour = 23;
  2539. +         }
  2540. +     }
  2541. +     tp = (struct sched_event *) calloc (1, sizeof *tp);
  2542. +     tp->t_when = cur_time - ltp->tm_sec + dif_hour*3600L + dif_min*60L;
  2543. +             /* use of tm_sec: get to beginning of minute. */
  2544. +     if (!sched_ptr || tp->t_when < sched_ptr->t_when) {
  2545. +         tp->t_next = sched_ptr;
  2546. +         sched_ptr = tp;
  2547. +     } else {
  2548. +         tp1 = sched_ptr->t_next;
  2549. +         tp2 = sched_ptr;
  2550. +         while (tp1 && tp->t_when >= tp1->t_when) {
  2551. +             tp2 = tp1;
  2552. +             tp1 = tp1->t_next;
  2553. +         }
  2554. +         tp->t_next = tp1;
  2555. +         tp2->t_next = tp;
  2556. +     }
  2557. +     tp->t_lex = saveblk(v);
  2558. + }
  2559. + 
  2560. + /*
  2561. +  * Execute scheduled events
  2562. +  */
  2563. + sched_run()
  2564. + {
  2565. +     long    cur_time;
  2566. +     register struct sched_event *tp, *tp1;
  2567. +     struct wordent cmd, *nextword, *lastword;
  2568. +     struct command *t = (struct command *) 0;
  2569. +     char **v, *cp;
  2570. +     extern int GettingInput;
  2571. +     int    omask;
  2572. + 
  2573. +     omask = sighold (SIGINT);
  2574. +        
  2575. +         if (GettingInput)
  2576. +         Cookedmode();
  2577. + 
  2578. +     time(&cur_time);
  2579. +     tp = sched_ptr;
  2580. +     while (tp && tp->t_when < cur_time) {
  2581. +         err = NOSTR;
  2582. +         cmd.word = "";
  2583. +         lastword = &cmd;
  2584. +         v = tp->t_lex;
  2585. +         for (cp = *v; cp; cp = *++v) {
  2586. +             nextword = (struct wordent *) calloc (1, sizeof cmd);
  2587. +             nextword->word = savestr (cp);
  2588. +             lastword->next = nextword;
  2589. +             nextword->prev = lastword;
  2590. +             lastword = nextword;
  2591. +         }
  2592. +         lastword->next = &cmd;
  2593. +         cmd.prev = lastword;
  2594. +         tp1 = tp;
  2595. +         sched_ptr = tp = tp1->t_next;    /* looping termination cond: */
  2596. +         blkfree (tp1->t_lex);        /* straighten out in case of */
  2597. +         xfree ((char *) tp1);        /* command blow-up. */
  2598. + 
  2599. +         /* expand aliases like process() does. */
  2600. +         alias (&cmd);
  2601. +         /* build a syntax tree for the command. */
  2602. +         t = syntax (cmd.next, &cmd, 0);
  2603. +         if (err)
  2604. +             error (err);
  2605. +         /* execute the parse tree. */
  2606. +         execute (t, -1);
  2607. +         /* done. free the lex list and parse tree. */
  2608. +         freelex (&cmd), freesyn (t);
  2609. +     }
  2610. +         if (GettingInput) {    /* PWP */
  2611. +         Rawmode();
  2612. +         ClearLines();    /* do a real refresh since something may */
  2613. +         ClearDisp();    /* have printed to the screen */
  2614. +         Refresh();
  2615. +     }
  2616. + 
  2617. +     sigsetmask(omask);
  2618. + }
  2619. + /* kfk - end change */
  2620. + 
  2621.