home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume29 / pdksh / patch03b < prev    next >
Encoding:
Text File  |  1992-04-25  |  32.9 KB  |  1,378 lines
  1. Newsgroups: comp.sources.misc
  2. From: sjg@zen.void.oz.au (Simon J. Gerraty)
  3. Subject:  v29i084:  pdksh - Public Domain Korn Shell, v4, Patch03b/5
  4. Message-ID: <1992Apr26.041512.22140@sparky.imd.sterling.com>
  5. X-Md4-Signature: 7df7c1bf603caded7da0694639c2a7e6
  6. Date: Sun, 26 Apr 1992 04:15:12 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: sjg@zen.void.oz.au (Simon J. Gerraty)
  10. Posting-number: Volume 29, Issue 84
  11. Archive-name: pdksh/patch03b
  12. Environment: UNIX
  13. Patch-To: pdksh: Volume 25, Issue 47-55
  14.  
  15. *** sh/emacs.c.old    Sat Apr 25 17:44:25 1992
  16. --- sh/emacs.c    Sat Apr 25 18:35:39 1992
  17. ***************
  18. *** 10,17 ****
  19.   #ifdef EMACS
  20.   
  21.   #ifndef lint
  22. ! static char *RCSid = "$Id: emacs.c,v 3.2 89/03/27 15:49:17 egisin Exp $";
  23. ! static char *sccs_id = "@(#)emacs.c    1.7 91/11/25 13:32:56 (sjg)";
  24.   #endif
  25.   
  26.   #include "stdh.h"
  27. --- 10,16 ----
  28.   #ifdef EMACS
  29.   
  30.   #ifndef lint
  31. ! static char *RCSid = "$Id: emacs.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  32.   #endif
  33.   
  34.   #include "stdh.h"
  35. ***************
  36. *** 24,32 ****
  37.   #include <errno.h>
  38.   #include <setjmp.h>
  39.   #include "sh.h"
  40. - #include "lex.h"
  41. - #include "tree.h"        /* DOTILDE */
  42. - #include "table.h"
  43.   #include "expand.h"
  44.   #include "edit.h"
  45.   
  46. --- 23,28 ----
  47. ***************
  48. *** 77,83 ****
  49.   static    char   **x_nextcmdp;    /* for newline-and-next */
  50.   static    char    *xmp;        /* mark pointer */
  51.   static    int    (*x_last_command)();
  52. ! static    struct    x_ftab Const *(*x_tab)[X_TABSZ] = NULL; /* key definition */
  53.   static    char    *(*x_atab)[X_TABSZ] = NULL; /* macro definitions */
  54.   #define    KILLSIZE    20
  55.   static    char    *killstack[KILLSIZE];
  56. --- 73,79 ----
  57.   static    char   **x_nextcmdp;    /* for newline-and-next */
  58.   static    char    *xmp;        /* mark pointer */
  59.   static    int    (*x_last_command)();
  60. ! static    struct    x_ftab const *(*x_tab)[X_TABSZ] = NULL; /* key definition */
  61.   static    char    *(*x_atab)[X_TABSZ] = NULL; /* macro definitions */
  62.   #define    KILLSIZE    20
  63.   static    char    *killstack[KILLSIZE];
  64. ***************
  65. *** 86,118 ****
  66.   static    char    *macroptr;
  67.   static    int    x_maxlen;    /* to determine column width */
  68.   
  69. ! static    void    x_goto(), x_bs(), x_delete(), x_ins(), x_mapin();
  70. ! static    int    x_fword(), x_bword(), x_size(), x_size_str();
  71. ! static    void    x_zotc(), x_zots(), x_push(), x_load_hist();
  72. ! static    void    compl_command(), compl_dec(), compl_file();
  73. ! static    int    x_insert(), x_ins_string(), x_del_back();
  74. ! static    int    x_del_char(), x_del_bword(), x_mv_bword(), x_mv_fword();
  75. ! static    int    x_del_fword(), x_mv_back(), x_mv_forw(), x_search_char();
  76. ! static    int    x_newline(), x_end_of_text(), x_abort(), x_error();
  77. ! static    int    x_beg_hist(), x_end_hist(), x_prev_com(), x_next_com();
  78. ! static    int    x_search_hist(), x_del_line(), x_mv_end(), x_mv_begin();
  79. ! static    int    x_draw_line(), x_transpose(), x_meta1(), x_meta2();
  80. ! static    int    x_kill(), x_yank(), x_meta_yank(), x_literal();
  81. ! static    int    x_stuffreset(), x_stuff(), x_complete(), x_enumerate();
  82. ! static    int    x_set_mark(), x_kill_region(), x_xchg_point_mark();
  83. ! static    int    x_nl_next_com(), x_eot_del();
  84. ! static    int    x_copy_arg();
  85. ! static    int    x_noop();
  86.   #ifdef SILLY
  87. ! static    int    x_game_of_life();
  88.   #endif
  89. ! static    int    x_comp_file(), x_comp_comm();
  90. ! static    int    x_list_file(), x_list_comm();
  91. ! static    int    strmatch();
  92. ! static int    x_prev_histword(), x_set_arg(), x_fold_case();
  93.   
  94. ! 
  95. ! static    struct x_ftab Const x_ftab[] = {
  96.        {x_insert,    "auto-insert",        0,     0,    0 },
  97.       {x_error,    "error",        0,     0,    0 },
  98.        {x_ins_string,    "macro-string",        0,     0,    XF_NOBIND|XF_ALLOC},
  99. --- 82,164 ----
  100.   static    char    *macroptr;
  101.   static    int    x_maxlen;    /* to determine column width */
  102.   
  103. ! static int      x_insert    ARGS((int c));
  104. ! static int      x_ins_string ARGS((int c));
  105. ! static void     x_ins       ARGS((char *cp));
  106. ! static int      x_del_back  ARGS((int c));
  107. ! static int      x_del_char  ARGS((int c));
  108. ! static void     x_delete    ARGS((int nc));
  109. ! static int      x_del_bword ARGS((int c));
  110. ! static int      x_mv_bword  ARGS((int c));
  111. ! static int      x_mv_fword  ARGS((int c));
  112. ! static int      x_del_fword ARGS((int c));
  113. ! static int      x_bword     ARGS((void));
  114. ! static int      x_fword     ARGS((void));
  115. ! static void     x_goto      ARGS((char *cp));
  116. ! static void     x_bs        ARGS((int c));
  117. ! static int      x_size_str  ARGS((char *cp));
  118. ! static int      x_size      ARGS((int c));
  119. ! static void     x_zots      ARGS((char *str));
  120. ! static void     x_zotc      ARGS((int c));
  121. ! static int      x_mv_back   ARGS((int c));
  122. ! static int      x_mv_forw   ARGS((int c));
  123. ! static int      x_search_char ARGS((int c));
  124. ! static int      x_newline   ARGS((int c));
  125. ! static int      x_end_of_text ARGS((int c));
  126. ! static int      x_beg_hist  ARGS((int c));
  127. ! static int      x_end_hist  ARGS((int c));
  128. ! static int      x_prev_com  ARGS((int c));
  129. ! static int      x_next_com  ARGS((int c));
  130. ! static void     x_load_hist ARGS((char **hp));
  131. ! static int      x_nl_next_com ARGS((int c));
  132. ! static int      x_eot_del   ARGS((int c));
  133. ! static int      x_search_hist ARGS((int c));
  134. ! static int      x_search    ARGS((char *pat, int offset));
  135. ! static int      x_match     ARGS((char *str, char *pat));
  136. ! static int      x_del_line  ARGS((int c));
  137. ! static int      x_mv_end    ARGS((int c));
  138. ! static int      x_mv_begin  ARGS((int c));
  139. ! static int      x_draw_line ARGS((int c));
  140. ! static int      x_transpose ARGS((int c));
  141. ! static int      x_literal   ARGS((int c));
  142. ! static int      x_meta1     ARGS((int c));
  143. ! static int      x_meta2     ARGS((int c));
  144. ! static int      x_kill      ARGS((int c));
  145. ! static void     x_push      ARGS((int nchars));
  146. ! static int      x_yank      ARGS((int c));
  147. ! static int      x_meta_yank ARGS((int c));
  148. ! static int      x_abort     ARGS((int c));
  149. ! static int      x_error     ARGS((int c));
  150. ! static int      x_stuffreset ARGS((int c));
  151. ! static int      x_stuff     ARGS((int c));
  152. ! static void     x_mapin     ARGS((char *cp));
  153. ! static char *   x_mapout    ARGS((int c));
  154. ! static void     x_print     ARGS((int prefix, int key));
  155. ! static int      x_set_mark  ARGS((int c));
  156. ! static int      x_kill_region ARGS((int c));
  157. ! static int      x_xchg_point_mark ARGS((int c));
  158. ! static int      x_copy_arg  ARGS((int c));
  159. ! static int      x_noop      ARGS((int c));
  160.   #ifdef SILLY
  161. ! static int      x_game_of_life ARGS((int c));
  162.   #endif
  163. ! static void     add_stash   ARGS((char *dirnam, char *name));
  164. ! static void     list_stash  ARGS((void));
  165. ! static int      x_comp_comm ARGS((int c));
  166. ! static int      x_list_comm ARGS((int c));
  167. ! static int      x_complete  ARGS((int c));
  168. ! static int      x_enumerate ARGS((int c));
  169. ! static int      x_comp_file ARGS((int c));
  170. ! static int      x_list_file ARGS((int c));
  171. ! static void     compl_dec   ARGS((int type));
  172. ! static void     compl_file  ARGS((int type));
  173. ! static void     compl_command ARGS((int type));
  174. ! static int      strmatch    ARGS((char *s1, char *s2));
  175. ! static int      x_set_arg   ARGS((int c));
  176. ! static int      x_prev_histword ARGS((void));
  177. ! static int      x_fold_case ARGS((int c));
  178.   
  179. ! static    struct x_ftab const x_ftab[] = {
  180.        {x_insert,    "auto-insert",        0,     0,    0 },
  181.       {x_error,    "error",        0,     0,    0 },
  182.        {x_ins_string,    "macro-string",        0,     0,    XF_NOBIND|XF_ALLOC},
  183. ***************
  184. *** 125,130 ****
  185. --- 171,177 ----
  186.       {x_noop,    "no-op",        0,    0,    0 },
  187.   /* Do not move the above! */
  188.       {x_mv_fword,    "forward-word",        1,    'f',    0 },
  189. +     {x_del_char,    "delete-char-forward",    0,    0,    0 },
  190.       {x_del_fword,    "delete-word-forward",     1,    'd',    0 },
  191.       {x_mv_back,    "backward-char",    0, CTRL('B'),    0 },
  192.       {x_mv_forw,    "forward-char",        0, CTRL('F'),    0 },
  193. ***************
  194. *** 307,313 ****
  195.   x_ins(cp)
  196.       char    *cp;
  197.   {
  198. !     int    count, i;
  199.       register int    adj = x_adj_done;
  200.   
  201.       count = strlen(cp);
  202. --- 354,360 ----
  203.   x_ins(cp)
  204.       char    *cp;
  205.   {
  206. !     int    count;
  207.       register int    adj = x_adj_done;
  208.   
  209.       count = strlen(cp);
  210. ***************
  211. *** 608,615 ****
  212.       *xep = '\0';
  213.       if ((c = x_getc()) < 0 ||
  214.           /* we search forward, I don't know what Korn does */
  215. !         (cp = (xcp == xep) ? NULL : strchr(xcp+1, c)) == NULL &&
  216. !         (cp = strchr(xbuf, c)) == NULL) {
  217.           x_putc(BEL);
  218.           return KSTD;
  219.       }
  220. --- 655,662 ----
  221.       *xep = '\0';
  222.       if ((c = x_getc()) < 0 ||
  223.           /* we search forward, I don't know what Korn does */
  224. !         ((cp = (xcp == xep) ? NULL : strchr(xcp+1, c)) == NULL &&
  225. !         (cp = strchr(xbuf, c)) == NULL)) {
  226.           x_putc(BEL);
  227.           return KSTD;
  228.       }
  229. ***************
  230. *** 930,936 ****
  231.       memmove(cp, xcp, nchars);
  232.       cp[nchars] = 0;
  233.       if (killstack[killsp])
  234. !         afree((Void *)killstack[killsp], AEDIT);
  235.       killstack[killsp] = cp;
  236.       killsp = (killsp + 1) % KILLSIZE;
  237.   }
  238. --- 977,983 ----
  239.       memmove(cp, xcp, nchars);
  240.       cp[nchars] = 0;
  241.       if (killstack[killsp])
  242. !         afree((void *)killstack[killsp], AEDIT);
  243.       killstack[killsp] = cp;
  244.       killsp = (killsp + 1) % KILLSIZE;
  245.   }
  246. ***************
  247. *** 1078,1084 ****
  248.       char *a1, *a2;
  249.       int macro;        /* bind -m */
  250.   {
  251. !     struct x_ftab Const *fp;
  252.       int prefix, key;
  253.       char *sp = NULL;
  254.   
  255. --- 1125,1131 ----
  256.       char *a1, *a2;
  257.       int macro;        /* bind -m */
  258.   {
  259. !     struct x_ftab const *fp;
  260.       int prefix, key;
  261.       char *sp = NULL;
  262.   
  263. ***************
  264. *** 1134,1140 ****
  265.       }
  266.   
  267.       if ((x_tab[prefix][key]->xf_flags & XF_ALLOC) && x_atab[prefix][key])
  268. !         afree((Void *)x_atab[prefix][key], AEDIT);
  269.       x_tab[prefix][key] = fp;
  270.       x_atab[prefix][key] = sp;
  271.   }
  272. --- 1181,1187 ----
  273.       }
  274.   
  275.       if ((x_tab[prefix][key]->xf_flags & XF_ALLOC) && x_atab[prefix][key])
  276. !         afree((void *)x_atab[prefix][key], AEDIT);
  277.       x_tab[prefix][key] = fp;
  278.       x_atab[prefix][key] = sp;
  279.   }
  280. ***************
  281. *** 1143,1149 ****
  282.   x_init_emacs()
  283.   {
  284.       register int i, j;
  285. !     struct x_ftab Const *fp;
  286.   
  287.       ainit(AEDIT);
  288.   
  289. --- 1190,1196 ----
  290.   x_init_emacs()
  291.   {
  292.       register int i, j;
  293. !     struct x_ftab const *fp;
  294.   
  295.       ainit(AEDIT);
  296.   
  297. ***************
  298. *** 1319,1325 ****
  299.                   type = '*';
  300.           if (type)
  301.               ++len;
  302. !         afree((Void *)buf, ATEMP);
  303.       }
  304.   
  305.       if (len > x_maxlen)
  306. --- 1366,1372 ----
  307.                   type = '*';
  308.           if (type)
  309.               ++len;
  310. !         afree((void *)buf, ATEMP);
  311.       }
  312.   
  313.       if (len > x_maxlen)
  314. ***************
  315. *** 1363,1373 ****
  316.               x_puts(*record);
  317.               loc += strlen(*record);
  318.               tabstop += x_maxlen;    /* next tab stop */
  319. !             afree((Void *)*record, ATEMP);
  320.           }
  321.       }
  322.   
  323. !     afree((Void*)array, ATEMP);
  324.       x_redraw(-1);
  325.   }
  326.   
  327. --- 1410,1420 ----
  328.               x_puts(*record);
  329.               loc += strlen(*record);
  330.               tabstop += x_maxlen;    /* next tab stop */
  331. !             afree((void *)*record, ATEMP);
  332.           }
  333.       }
  334.   
  335. !     afree((void*)array, ATEMP);
  336.       x_redraw(-1);
  337.   }
  338.   
  339. ***************
  340. *** 1457,1463 ****
  341.   
  342.       *cp = 0;
  343.       strcpy(buf, cp = substitute(buf, DOTILDE));
  344. !     afree((Void*)cp, ATEMP);
  345.       lastp = strrchr(buf, '/');
  346.       if (lastp)
  347.           *lastp = 0;
  348. --- 1504,1510 ----
  349.   
  350.       *cp = 0;
  351.       strcpy(buf, cp = substitute(buf, DOTILDE));
  352. !     afree((void*)cp, ATEMP);
  353.       lastp = strrchr(buf, '/');
  354.       if (lastp)
  355.           *lastp = 0;
  356. ***************
  357. *** 1478,1484 ****
  358.       while ((dp = readdir(dirp)) != NULL)  {
  359.           cp = dp->d_name;
  360.           if (cp[0] == '.' &&
  361. !             (cp[1] == '\0' || cp[1] == '.' && cp[2] == '\0'))
  362.               continue; /* always ignore . and .. */
  363.           if (strncmp(lastp, cp, len) == 0)
  364.               if (type)  {
  365. --- 1525,1531 ----
  366.       while ((dp = readdir(dirp)) != NULL)  {
  367.           cp = dp->d_name;
  368.           if (cp[0] == '.' &&
  369. !             (cp[1] == '\0' || (cp[1] == '.' && cp[2] == '\0')))
  370.               continue; /* always ignore . and .. */
  371.           if (strncmp(lastp, cp, len) == 0)
  372.               if (type)  {
  373. *** sh/eval.c.old    Sat Apr 25 17:44:25 1992
  374. --- sh/eval.c    Sat Apr 25 18:35:45 1992
  375. ***************
  376. *** 3,10 ****
  377.    */
  378.   
  379.   #ifndef lint
  380. ! static char *RCSid = "$Id: eval.c,v 3.4 89/03/27 15:49:55 egisin Exp $";
  381. ! static char *sccs_id = "@(#)eval.c    1.2 91/11/22 22:53:39 (sjg)";
  382.   #endif
  383.   
  384.   #include "stdh.h"
  385. --- 3,9 ----
  386.    */
  387.   
  388.   #ifndef lint
  389. ! static char *RCSid = "$Id: eval.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  390.   #endif
  391.   
  392.   #include "stdh.h"
  393. ***************
  394. *** 14,22 ****
  395.   #include <dirent.h>
  396.   #include <pwd.h>
  397.   #include "sh.h"
  398. - #include "lex.h"
  399. - #include "tree.h"
  400. - #include "table.h"
  401.   #include "expand.h"
  402.   
  403.   /*
  404. --- 13,18 ----
  405. ***************
  406. *** 43,55 ****
  407.   #define    XARG    3        /* expanding $*, $@ */
  408.   #define    XCOM    4        /* expanding $() */
  409.   
  410. ! static    void    expand ARGS((char *, XPtrV *, int));
  411. ! static    int    comsub ARGS((Expand *, char *comm));
  412. ! static    int    varsub ARGS((Expand *, char *name, int stype));
  413. ! static    void    glob ARGS((char *cp, XPtrV *wp));
  414. ! static    void    globit ARGS((char *ds, char *dp, char *sp, XPtrV *wp, int check));
  415. ! static    char   *tilde ARGS((char *wp));
  416. ! static    char   *trimsub ARGS((char *str, char *pat, int how));
  417.   
  418.   int    ifs0 = ' ';        /* todo: first char of $IFS */
  419.   
  420. --- 39,53 ----
  421.   #define    XARG    3        /* expanding $*, $@ */
  422.   #define    XCOM    4        /* expanding $() */
  423.   
  424. ! static void     expand      ARGS((char *cp, XPtrV *wp, int f));
  425. ! static int      varsub      ARGS((Expand *xp, char *sp, int stype));
  426. ! static int      comsub      ARGS((Expand *xp, char *cp));
  427. ! static char *   trimsub     ARGS((char *str, char *pat, int how));
  428. ! static void     glob        ARGS((char *cp, XPtrV *wp));
  429. ! static void     globit      ARGS((char *ds, char *dp, char *sp, XPtrV *wp, int check));
  430. ! static char *   debunk      ARGS((char *cp));
  431. ! static char *   tilde       ARGS((char *acp));
  432. ! static char *   homedir     ARGS((char *name));
  433.   
  434.   int    ifs0 = ' ';        /* todo: first char of $IFS */
  435.   
  436. ***************
  437. *** 56,62 ****
  438.   /* compile and expand word */
  439.   char *
  440.   substitute(cp, f)
  441. !     char Const *cp;
  442.       int f;
  443.   {
  444.       struct source *s, *sold;
  445. --- 54,60 ----
  446.   /* compile and expand word */
  447.   char *
  448.   substitute(cp, f)
  449. !     char const *cp;
  450.       int f;
  451.   {
  452.       struct source *s, *sold;
  453. ***************
  454. *** 139,144 ****
  455. --- 137,143 ----
  456.       SubType subtype [10];    /* substitution type stack */
  457.       register SubType *st = subtype + 10;
  458.       int newlines;        /* For trailing newlines in COMSUB */
  459. +     int trimming = 0;    /* flag if expanding ${var#pat} or ${var%pat} */
  460.   
  461.       if (cp == NULL)
  462.           errorf("eval:expand(NULL)\n");
  463. ***************
  464. *** 188,194 ****
  465.                       if (flag[FNOUNSET] &&
  466.                           strval(global(cp)) == null)
  467.                           errorf("%s: unset variable\n", cp);
  468. !                     f |= DOPAT;
  469.                       type = XBASE;
  470.                       *--qst = quote;
  471.                       quote = 0;
  472. --- 187,193 ----
  473.                       if (flag[FNOUNSET] &&
  474.                           strval(global(cp)) == null)
  475.                           errorf("%s: unset variable\n", cp);
  476. !                     trimming++;
  477.                       type = XBASE;
  478.                       *--qst = quote;
  479.                       quote = 0;
  480. ***************
  481. *** 217,222 ****
  482. --- 216,222 ----
  483.                       x.str = trimsub(strval(global(st->name)),
  484.                           dp, st->type);
  485.                       type = XSUB;
  486. +                     trimming--;
  487.                       continue;
  488.                     case '=':
  489.   #if 0
  490. ***************
  491. *** 287,293 ****
  492.           }
  493.   
  494.           /* check for end of word or IFS separation */
  495. !         if (c == 0 || !quote && (f&DOBLANK) && ctype(c, C_IFS)) {
  496.               if (word) {
  497.                   *dp++ = 0;
  498.                   cp = Xclose(ds, dp);
  499. --- 287,293 ----
  500.           }
  501.   
  502.           /* check for end of word or IFS separation */
  503. !         if (c == 0 || (!quote && (f&DOBLANK) && ctype(c, C_IFS))) {
  504.               if (word) {
  505.                   *dp++ = 0;
  506.                   cp = Xclose(ds, dp);
  507. ***************
  508. *** 311,331 ****
  509.                     case '*':
  510.                     case '?':
  511.                     case '[':
  512. !                     if (f&(DOPAT|DOGLOB)) {
  513.                           fdo |= (f&DOGLOB);
  514.                           *dp++ = MAGIC;
  515.                       }
  516.                       break;
  517.                     case NOT:
  518. !                     if ((f&(DOPAT|DOGLOB)) &&
  519.                           dp[-1] == '[' && dp[-2] == MAGIC) {
  520.                           *dp++ = MAGIC;
  521.                       }
  522.                       break;
  523.                     case '~':
  524. !                     if ((f&DOTILDE) && dp == Xstring(ds, dp) ||
  525. !                         !(f&DOBLANK) && 
  526. !                         (dp[-1] == '=' || dp[-1] == ':')) {
  527.                           fdo |= DOTILDE;
  528.                           *dp++ = MAGIC;
  529.                       }
  530. --- 311,332 ----
  531.                     case '*':
  532.                     case '?':
  533.                     case '[':
  534. !                     if (f&(DOPAT|DOGLOB) || trimming) {
  535.                           fdo |= (f&DOGLOB);
  536.                           *dp++ = MAGIC;
  537.                       }
  538.                       break;
  539.                     case NOT:
  540. !                     if ((f&(DOPAT|DOGLOB) || trimming) &&
  541.                           dp[-1] == '[' && dp[-2] == MAGIC) {
  542.                           *dp++ = MAGIC;
  543.                       }
  544.                       break;
  545.                     case '~':
  546. !                     if (((f&DOTILDE) &&
  547. !                          dp == Xstring(ds, dp)) ||
  548. !                         (!(f&DOBLANK) && 
  549. !                         (dp[-1] == '=' || dp[-1] == ':'))) {
  550.                           fdo |= DOTILDE;
  551.                           *dp++ = MAGIC;
  552.                       }
  553. ***************
  554. *** 568,576 ****
  555.           while ((d = readdir(dirp)) != NULL) {
  556.               tsp = d->d_name;
  557.               if (tsp[0] == '.' &&
  558. !                 (tsp[1] == 0 || tsp[1] == '.' && tsp[2] == 0))
  559.                   continue; /* always ignore . and .. */
  560. !             if (*tsp == '.' && *sp != '.' || !gmatch(tsp, sp))
  561.                   continue;
  562.   
  563.               tdp = dp;
  564. --- 569,577 ----
  565.           while ((d = readdir(dirp)) != NULL) {
  566.               tsp = d->d_name;
  567.               if (tsp[0] == '.' &&
  568. !                 (tsp[1] == 0 || (tsp[1] == '.' && tsp[2] == 0)))
  569.                   continue; /* always ignore . and .. */
  570. !             if ((*tsp == '.' && *sp != '.') || !gmatch(tsp, sp))
  571.                   continue;
  572.   
  573.               tdp = dp;
  574. ***************
  575. *** 622,628 ****
  576.       while (1) {
  577.           if ((c = *cp++) == 0) {
  578.               *wp = 0;
  579. !             afree((Void*)acp, ATEMP);
  580.               return strsave(path, ATEMP);
  581.           } else if (c == MAGIC && *cp == '~')
  582.               break;
  583. --- 623,629 ----
  584.       while (1) {
  585.           if ((c = *cp++) == 0) {
  586.               *wp = 0;
  587. !             afree((void*)acp, ATEMP);
  588.               return strsave(path, ATEMP);
  589.           } else if (c == MAGIC && *cp == '~')
  590.               break;
  591. *** sh/exec.c.old    Sat Apr 25 17:44:26 1992
  592. --- sh/exec.c    Sat Apr 25 18:30:45 1992
  593. ***************
  594. *** 3,10 ****
  595.    */
  596.   
  597.   #ifndef lint
  598. ! static char *RCSid = "$Id: exec.c,v 3.4 89/03/27 15:50:10 egisin Exp $";
  599. ! static char *sccs_id = "@(#)exec.c    1.6 91/11/25 13:33:03 (sjg)";
  600.   #endif
  601.   
  602.   #include "stdh.h"
  603. --- 3,9 ----
  604.    */
  605.   
  606.   #ifndef lint
  607. ! static char *RCSid = "$Id: exec.c,v 1.3 1992/04/25 08:29:52 sjg Exp $";
  608.   #endif
  609.   
  610.   #include "stdh.h"
  611. ***************
  612. *** 15,32 ****
  613.   #include <fcntl.h>
  614.   #include <sys/stat.h>
  615.   #include "sh.h"
  616. - #include "lex.h"
  617. - #include "tree.h"
  618. - #include "table.h"
  619.   
  620. ! static    int    comexec ARGS((struct op *t, char **vp, char **ap, int flags));
  621. ! static    void    iosetup ARGS((struct ioword *iop));
  622. ! static    void    echo ARGS((char **, char **));
  623. ! static    int    herein ARGS((char *name, int sub));
  624.   #ifdef    SHARPBANG
  625. ! static    void    scriptexec ARGS((struct op *t, char **ap));
  626.   #endif
  627.   
  628.   /*
  629.    * handle systems that don't have F_SETFD
  630.    */
  631. --- 14,29 ----
  632.   #include <fcntl.h>
  633.   #include <sys/stat.h>
  634.   #include "sh.h"
  635.   
  636. ! static int      comexec     ARGS((struct op *t, char **vp, char **ap, int flags));
  637.   #ifdef    SHARPBANG
  638. ! static void     scriptexec  ARGS((struct op *tp, char **ap));
  639.   #endif
  640. + static void     iosetup     ARGS((struct ioword *iop));
  641. + static int      herein      ARGS((char *hname, int sub));
  642. + static void     echo        ARGS((char **vp, char **ap));
  643.   
  644. + 
  645.   /*
  646.    * handle systems that don't have F_SETFD
  647.    */
  648. ***************
  649. *** 67,76 ****
  650.   int
  651.   execute(t, flags)
  652.       register struct op *t;
  653. !     Volatile int flags;    /* if XEXEC don't fork */
  654.   {
  655.       int i;
  656. !     int Volatile rv = 0;
  657.       int pv[2];
  658.       register char **ap;
  659.       char *s, *cp;
  660. --- 64,73 ----
  661.   int
  662.   execute(t, flags)
  663.       register struct op *t;
  664. !     volatile int flags;    /* if XEXEC don't fork */
  665.   {
  666.       int i;
  667. !     int volatile rv = 0;
  668.       int pv[2];
  669.       register char **ap;
  670.       char *s, *cp;
  671. ***************
  672. *** 373,381 ****
  673.   
  674.           if ((flags&XEXEC)) {
  675.               j_exit();
  676. !             if (flag[FMONITOR] || !(flags&XBGND)) {
  677. !                 signal(SIGINT, SIG_DFL);
  678. !                 signal(SIGQUIT, SIG_DFL);
  679.               }
  680.           }
  681.   
  682. --- 370,384 ----
  683.   
  684.           if ((flags&XEXEC)) {
  685.               j_exit();
  686. !             if (flag[FMONITOR] || !(flags&XBGND))
  687. !             {
  688. ! #ifdef USE_SIGACT
  689. !               sigaction(SIGINT, &Sigact_dfl, NULL);
  690. !               sigaction(SIGQUIT, &Sigact_dfl, NULL);
  691. ! #else
  692. !               signal(SIGINT, SIG_DFL);
  693. !               signal(SIGQUIT, SIG_DFL);
  694. ! #endif
  695.               }
  696.           }
  697.   
  698. ***************
  699. *** 622,629 ****
  700.           for (i = 0; (*tp++ = name[i++]) != '\0';)
  701.               ;
  702.           i = eaccess(line, mode);
  703. !         if (i == 0 && (mode != 1 || stat(line,&buf) == 0 &&
  704. !             (buf.st_mode & S_IFMT) == S_IFREG))
  705.               return line;
  706.           /* what should we do about EACCES? */
  707.           if (*sp++ == '\0')
  708. --- 625,632 ----
  709.           for (i = 0; (*tp++ = name[i++]) != '\0';)
  710.               ;
  711.           i = eaccess(line, mode);
  712. !         if (i == 0 && (mode != 1 || (stat(line,&buf) == 0 &&
  713. !             (buf.st_mode & S_IFMT) == S_IFREG)))
  714.               return line;
  715.           /* what should we do about EACCES? */
  716.           if (*sp++ == '\0')
  717. ***************
  718. *** 710,716 ****
  719.       int sub;
  720.   {
  721.       int fd;
  722. !     FILE * Volatile f = NULL;
  723.   
  724.       f = fopen(hname, "r");
  725.       if (f == NULL)
  726. --- 713,719 ----
  727.       int sub;
  728.   {
  729.       int fd;
  730. !     FILE * volatile f = NULL;
  731.   
  732.       f = fopen(hname, "r");
  733.       if (f == NULL)
  734. *** sh/expand.h.old    Sat Apr 25 17:41:33 1992
  735. --- sh/expand.h    Sun Apr 19 19:21:25 1992
  736. ***************
  737. *** 45,54 ****
  738.           }
  739.   
  740.   /* free string */
  741. ! #define    Xfree(xs, xp)    afree((Void*) (xs).beg, ATEMP)
  742.   
  743.   /* close, return string */
  744. ! #define    Xclose(xs, xp)    (char*) aresize((Void*)(xs).beg, \
  745.                       (size_t)(xp - (xs).beg), ATEMP)
  746.   /* begin of string */
  747.   #define    Xstring(xs, xp)    ((xs).beg)
  748. --- 45,54 ----
  749.           }
  750.   
  751.   /* free string */
  752. ! #define    Xfree(xs, xp)    afree((void*) (xs).beg, ATEMP)
  753.   
  754.   /* close, return string */
  755. ! #define    Xclose(xs, xp)    (char*) aresize((void*)(xs).beg, \
  756.                       (size_t)(xp - (xs).beg), ATEMP)
  757.   /* begin of string */
  758.   #define    Xstring(xs, xp)    ((xs).beg)
  759. ***************
  760. *** 61,73 ****
  761.    */
  762.   
  763.   typedef struct XPtrV {
  764. !     Void  **cur;        /* next avail pointer */
  765. !     Void  **beg, **end;    /* begin, end of vector */
  766.   } XPtrV;
  767.   
  768.   #define    XPinit(x, n) { \
  769. !             register Void **vp; \
  770. !             vp = (Void**) alloc(sizeofN(Void*, n), ATEMP); \
  771.               (x).cur = (x).beg = vp; \
  772.               (x).end = vp + n; \
  773.               }
  774. --- 61,73 ----
  775.    */
  776.   
  777.   typedef struct XPtrV {
  778. !     void  **cur;        /* next avail pointer */
  779. !     void  **beg, **end;    /* begin, end of vector */
  780.   } XPtrV;
  781.   
  782.   #define    XPinit(x, n) { \
  783. !             register void **vp; \
  784. !             vp = (void**) alloc(sizeofN(void*, n), ATEMP); \
  785.               (x).cur = (x).beg = vp; \
  786.               (x).end = vp + n; \
  787.               }
  788. ***************
  789. *** 75,82 ****
  790.   #define    XPput(x, p) { \
  791.               if ((x).cur >= (x).end) { \
  792.                   int n = XPsize(x); \
  793. !                 (x).beg = (Void**) aresize((Void*) (x).beg, \
  794. !                            sizeofN(Void*, n*2), ATEMP); \
  795.                   (x).cur = (x).beg + n; \
  796.                   (x).end = (x).cur + n; \
  797.               } \
  798. --- 75,82 ----
  799.   #define    XPput(x, p) { \
  800.               if ((x).cur >= (x).end) { \
  801.                   int n = XPsize(x); \
  802. !                 (x).beg = (void**) aresize((void*) (x).beg, \
  803. !                            sizeofN(void*, n*2), ATEMP); \
  804.                   (x).cur = (x).beg + n; \
  805.                   (x).end = (x).cur + n; \
  806.               } \
  807. ***************
  808. *** 86,93 ****
  809.   #define    XPptrv(x)    ((x).beg)
  810.   #define    XPsize(x)    ((x).cur - (x).beg)
  811.   
  812. ! #define    XPclose(x)    (Void**) aresize((Void*)(x).beg, \
  813. !                      sizeofN(Void*, XPsize(x)), ATEMP)
  814.   
  815. ! #define    XPfree(x)    afree((Void*) (x).beg, ATEMP)
  816.   
  817. --- 86,93 ----
  818.   #define    XPptrv(x)    ((x).beg)
  819.   #define    XPsize(x)    ((x).cur - (x).beg)
  820.   
  821. ! #define    XPclose(x)    (void**) aresize((void*)(x).beg, \
  822. !                      sizeofN(void*, XPsize(x)), ATEMP)
  823.   
  824. ! #define    XPfree(x)    afree((void*) (x).beg, ATEMP)
  825.   
  826. *** sh/expr.c.old    Sat Apr 25 17:44:27 1992
  827. --- sh/expr.c    Sat Apr 25 18:35:54 1992
  828. ***************
  829. *** 3,10 ****
  830.    */
  831.   
  832.   #ifndef lint
  833. ! static char *RCSid = "$Id: expr.c,v 3.2 89/03/27 15:50:20 egisin Exp $";
  834. ! static char *sccs_id = "@(#)expr.c    1.2 91/11/22 22:53:42 (sjg)";
  835.   #endif
  836.   
  837.   #include "stdh.h"
  838. --- 3,9 ----
  839.    */
  840.   
  841.   #ifndef lint
  842. ! static char *RCSid = "$Id: expr.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  843.   #endif
  844.   
  845.   #include "stdh.h"
  846. ***************
  847. *** 11,17 ****
  848.   #include <errno.h>
  849.   #include <setjmp.h>
  850.   #include "sh.h"
  851. - #include "table.h"
  852.   
  853.   #define    ef    else if        /* fashion statement */
  854.   
  855. --- 10,15 ----
  856. ***************
  857. *** 22,35 ****
  858.   #define    LLE    0x05
  859.   #define    LGE    0x06
  860.   
  861. ! static void token();        /* read next token */
  862. ! static Const char *expression;    /* expression being evaluated */
  863. ! static Const char *tokp;    /* lexical position */
  864.   static int tok;            /* token from token() */
  865.   static struct tbl *val;        /* value from token() */
  866.   
  867. ! static struct tbl *tempvar(), *intvar();
  868. ! static struct tbl *asn(), *e6(), *e5(), *e3(), *e2(), *e0();
  869.   
  870.   /*
  871.    * parse and evalute expression
  872. --- 20,39 ----
  873.   #define    LLE    0x05
  874.   #define    LGE    0x06
  875.   
  876. ! static const char *expression;    /* expression being evaluated */
  877. ! static const char *tokp;    /* lexical position */
  878.   static int tok;            /* token from token() */
  879.   static struct tbl *val;        /* value from token() */
  880.   
  881. ! static struct tbl *asn      ARGS((void));
  882. ! static struct tbl *e6       ARGS((void));
  883. ! static struct tbl *e5       ARGS((void));
  884. ! static struct tbl *e3       ARGS((void));
  885. ! static struct tbl *e2       ARGS((void));
  886. ! static struct tbl *e0       ARGS((void));
  887. ! static void     token       ARGS((void));
  888. ! static struct tbl *tempvar  ARGS((void));
  889. ! static struct tbl *intvar   ARGS((struct tbl *vp));
  890.   
  891.   /*
  892.    * parse and evalute expression
  893. ***************
  894. *** 43,49 ****
  895.   
  896.   long
  897.   evaluate(expr)
  898. !     Const char *expr;
  899.   {
  900.       struct tbl *v;
  901.   
  902. --- 47,53 ----
  903.   
  904.   long
  905.   evaluate(expr)
  906. !     const char *expr;
  907.   {
  908.       struct tbl *v;
  909.   
  910. *** sh/getopts.c.old    Sat Apr 25 17:44:27 1992
  911. --- sh/getopts.c    Sat Apr 25 18:35:57 1992
  912. ***************
  913. *** 7,14 ****
  914.    */
  915.   
  916.   #ifndef lint
  917. ! static char *RCSid = "$Id: getopts.c,v 3.3 89/03/27 15:50:27 egisin Exp $";
  918. ! static char *sccs_id = "@(#)getopts.c    1.2 91/11/22 22:53:43 (sjg)";
  919.   #endif
  920.   
  921.   #include "stdh.h"
  922. --- 7,13 ----
  923.    */
  924.   
  925.   #ifndef lint
  926. ! static char *RCSid = "$Id: getopts.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  927.   #endif
  928.   
  929.   #include "stdh.h"
  930. ***************
  931. *** 15,21 ****
  932.   #include <errno.h>
  933.   #include <setjmp.h>
  934.   #include "sh.h"
  935. - #include "table.h"
  936.   
  937.   /*
  938.    * The following is derived from getopt() source placed into the public
  939. --- 14,19 ----
  940. *** sh/history.c.old    Sat Apr 25 17:44:28 1992
  941. --- sh/history.c    Sat Apr 25 18:36:23 1992
  942. ***************
  943. *** 5,12 ****
  944.    */
  945.   
  946.   #ifndef lint
  947. ! static char *RCSid = "$Id: history.c,v 3.3 89/01/27 00:08:27 egisin Exp $";
  948. ! static char *sccs_id = "@(#)history.c    1.2 91/11/22 22:53:45 (sjg)";
  949.   #endif
  950.   
  951.   #include "stdh.h"
  952. --- 5,11 ----
  953.    */
  954.   
  955.   #ifndef lint
  956. ! static char *RCSid = "$Id: history.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  957.   #endif
  958.   
  959.   #include "stdh.h"
  960. ***************
  961. *** 13,24 ****
  962.   #include <errno.h>
  963.   #include <setjmp.h>
  964.   #include "sh.h"
  965. - #include "lex.h"
  966.   
  967.   char   *histrpl();
  968.   char  **current;
  969.   int    curpos;
  970.   
  971.   c_fc(wp)
  972.       register char **wp;
  973.   {
  974. --- 12,29 ----
  975.   #include <errno.h>
  976.   #include <setjmp.h>
  977.   #include "sh.h"
  978.   
  979.   char   *histrpl();
  980.   char  **current;
  981.   int    curpos;
  982.   
  983. + static FILE *hist_fh = NULL;
  984. + static FILE *hist_open ARGS((char *mode));
  985. + #ifndef HISTFILE
  986. + # define HISTFILE ".pdksh_hist"
  987. + #endif
  988. + 
  989. +   
  990.   c_fc(wp)
  991.       register char **wp;
  992.   {
  993. ***************
  994. *** 169,175 ****
  995.   
  996.       if (histptr > history && last_line != source->line) { 
  997.           source->line--;
  998. !         afree((Void*)*histptr, APERM);
  999.           histptr--;
  1000.           last_line = source->line;
  1001.       }
  1002. --- 174,180 ----
  1003.   
  1004.       if (histptr > history && last_line != source->line) { 
  1005.           source->line--;
  1006. !         afree((void*)*histptr, APERM);
  1007.           histptr--;
  1008.           last_line = source->line;
  1009.       }
  1010. ***************
  1011. *** 186,192 ****
  1012.       char *cp;
  1013.   
  1014.       if (++hp >= history + HISTORY) { /* remove oldest command */
  1015. !         afree((Void*)*history, APERM);
  1016.           for (hp = history; hp < history + HISTORY - 1; hp++)
  1017.               hp[0] = hp[1];
  1018.       }
  1019. --- 191,197 ----
  1020.       char *cp;
  1021.   
  1022.       if (++hp >= history + HISTORY) { /* remove oldest command */
  1023. !         afree((void*)*history, APERM);
  1024.           for (hp = history; hp < history + HISTORY - 1; hp++)
  1025.               hp[0] = hp[1];
  1026.       }
  1027. ***************
  1028. *** 254,349 ****
  1029.       return line;
  1030.   }
  1031.   
  1032. ! #if 0
  1033. ! 
  1034. ! /* History file management routines (by DPK@BRL) */
  1035. ! 
  1036.   void
  1037. ! hist_init()
  1038.   {
  1039. !     register struct namnod *n;
  1040. !     int fd;
  1041.   
  1042. !     if (hist_fd >= 0 || (flags&oneflg))
  1043. !         return;
  1044. !     if ((n = findnam(histname)) == (struct namnod *)0
  1045. !      || n->namval == (char *)0)
  1046. !         return;
  1047. !     if ((fd = open(n->namval, O_RDWR)) >= 0) {
  1048. !         hist_load(fd);
  1049. !         (void)fcntl(fd, F_SETFL, O_APPEND);
  1050. !     }
  1051. !     hist_fd = fd;
  1052.   }
  1053.   
  1054.   void
  1055.   hist_finish()
  1056.   {
  1057. !     if (hist_fd >= 0)
  1058. !         (void)close(hist_fd);
  1059. !     hist_fd = -1;
  1060.   }
  1061.   
  1062. - void
  1063. - hist_record(buf, len)
  1064. - char    *buf;
  1065. - int    len;
  1066. - {
  1067. -     if (hist_fd >= 0)
  1068. -         (void)write(hist_fd, buf, (unsigned)len);
  1069. - }
  1070.   
  1071. ! void
  1072. ! hist_load(fd)
  1073. ! int    fd;
  1074.   {
  1075. !     extern long    lseek();
  1076. !     struct stat sb;
  1077. !     char *x;
  1078. !     register char *cmdp, *end;
  1079. !     register int    len;
  1080. !     register int    i;
  1081. ! 
  1082. !     if (fstat(fd, &sb) < 0 || sb.st_size <= 0)
  1083. !         return;
  1084. !     if (x = alloc((unsigned)(sb.st_size+1))) {
  1085. !         (void)lseek(fd, 0L, 0);
  1086. !         if ((len = read(fd, x, (unsigned)sb.st_size)) <= 0) {
  1087. !             free((struct blk *)x);
  1088. !             return;
  1089. !         }
  1090. !         x[len] = 0;
  1091. !         end = x;
  1092. !         for (;;) {
  1093. !             while(*end == NL)
  1094. !                 end++;        /* Skip NL */
  1095. !             if (*end == 0)
  1096. !                 break;
  1097. !             cmdp = end;
  1098. !             while(*end && *end != NL)
  1099. !                 end++;    /* Goto NL */
  1100. !             if (*end == 0)
  1101. !                 break;
  1102. !             if ((len = (end - cmdp)) < 2)
  1103. !                 continue;
  1104. !             if (len >= BUFSIZ)
  1105. !                 len = BUFSIZ - 1;        /* Protection */
  1106. !             i = curhist % NHISTORY;
  1107. !             if(histbuf[i])
  1108. !                 free((struct blk *)histbuf[i]);
  1109. !             histbuf[i] = alloc((unsigned)(len+1));
  1110. !             (void)strncpy(histbuf[i], cmdp, len);
  1111. !             histbuf[i][len] = 0;
  1112. !             curhist++;
  1113. !             histpc=curhist;
  1114. !         }
  1115. !         free((struct blk *)x);
  1116. !     }
  1117. !     return;
  1118.   }
  1119.   
  1120. - #endif
  1121.   
  1122.   /*
  1123.    * Return the current position.
  1124.    */
  1125. --- 259,358 ----
  1126.       return line;
  1127.   }
  1128.   
  1129. ! /*
  1130. !  * 92-04-25 <sjg@zen>
  1131. !  * A simple history file implementation.
  1132. !  * At present we only save the history when we exit.
  1133. !  * This can cause problems when there are multiple shells are 
  1134. !  * running under the same user-id.  The last shell to exit gets 
  1135. !  * to save its history.
  1136. !  */
  1137.   void
  1138. ! hist_init(s)
  1139. !   Source *s;
  1140.   {
  1141. !   static int once = 0;
  1142. !   FILE *fh;
  1143. !   
  1144. !   if (once++)
  1145. !     return;
  1146.   
  1147. !   if (fh = hist_open("r"))
  1148. !   {
  1149. !     while (fgets(line, sizeof(line), fh) != NULL)
  1150. !     {
  1151. !       histsave(line); 
  1152. !       s->line++;
  1153. !     }
  1154. !     line[0] = '\0';
  1155. !     fclose(fh);
  1156. ! #if 0    /* this might be a good idea? */
  1157. !     hist_fh = hist_open("a");
  1158. ! #endif
  1159. !   }
  1160. !   
  1161.   }
  1162.   
  1163. + 
  1164. + /*
  1165. +  * save our history.
  1166. +  * We check that we do not have more than we are allowed.
  1167. +  * If the history file is read-only we do nothing.
  1168. +  * Handy for having all shells start with a useful history set.
  1169. +  */
  1170. + 
  1171.   void
  1172.   hist_finish()
  1173.   {
  1174. !   static int once = 0;
  1175. !   FILE *fh;
  1176. !   register int i, mx;
  1177. !   register char **hp, *mode = "w";
  1178. !   
  1179. !   if (once++)
  1180. !     return;
  1181. !   if ((mx = atoi(strval(global("HISTSIZE")))) > HISTORY || mx <= 0)
  1182. !     mx = HISTORY;
  1183. !   /* check how many we have */
  1184. !   i = histptr - history;
  1185. !   if (i >= mx)
  1186. !   {
  1187. !     hp = &histptr[-mx];
  1188. !   }
  1189. !   else
  1190. !   {
  1191. !     hp = history;
  1192. !   }
  1193. !   if (fh = hist_open(mode))
  1194. !   {
  1195. !     for (i = 0; i < mx && hp[i]; i++)
  1196. !       fprintf(fh, "%s\n", hp[i]);
  1197. !     fclose(fh);
  1198. !   }
  1199.   }
  1200.   
  1201.   
  1202. ! /*
  1203. !  * simply grab the nominated history file.
  1204. !  */
  1205. ! static FILE *
  1206. ! hist_open(mode)
  1207. !   char *mode;
  1208.   {
  1209. !   register char *rcp;
  1210. !   FILE *fh;
  1211. !   char name[128];
  1212. !   
  1213. !   if ((rcp = strval(global("HISTFILE"))) == NULL || *rcp == '\0')
  1214. !   {
  1215. !     (void) sprintf(name, "%s/%s", strval(global("HOME")), HISTFILE);
  1216. !     rcp = name;
  1217. !   }
  1218. !   return fopen(rcp, mode);
  1219.   }
  1220.   
  1221.   
  1222. + 
  1223.   /*
  1224.    * Return the current position.
  1225.    */
  1226. ***************
  1227. *** 386,392 ****
  1228.       int    fwd;
  1229.       char     *str;
  1230.   {
  1231. -     char     **hp = NULL;
  1232.       int     pos = start;
  1233.       char     *line, *last;
  1234.   
  1235. --- 395,400 ----
  1236. *** sh/io.c.old    Sat Apr 25 17:44:28 1992
  1237. --- sh/io.c    Sat Apr 25 18:36:32 1992
  1238. ***************
  1239. *** 3,10 ****
  1240.    */
  1241.   
  1242.   #ifndef lint
  1243. ! static char *RCSid = "$Id: io.c,v 3.4 89/03/27 15:50:52 egisin Exp $";
  1244. ! static char *sccs_id = "@(#)io.c    1.4 91/11/25 13:33:08 (sjg)";
  1245.   #endif
  1246.   
  1247.   #include "stdh.h"
  1248. --- 3,9 ----
  1249.    */
  1250.   
  1251.   #ifndef lint
  1252. ! static char *RCSid = "$Id: io.c,v 1.2 1992/04/25 08:33:28 sjg Exp $";
  1253.   #endif
  1254.   
  1255.   #include "stdh.h"
  1256. ***************
  1257. *** 13,19 ****
  1258.   #include <fcntl.h>
  1259.   #include <signal.h>
  1260.   #include <setjmp.h>
  1261. ! #if __STDC__
  1262.   #include <stdarg.h>
  1263.   #else
  1264.   #include <varargs.h>
  1265. --- 12,18 ----
  1266.   #include <fcntl.h>
  1267.   #include <signal.h>
  1268.   #include <setjmp.h>
  1269. ! #ifdef __STDC__
  1270.   #include <stdarg.h>
  1271.   #else
  1272.   #include <varargs.h>
  1273. ***************
  1274. *** 44,51 ****
  1275.   
  1276.   /* shellf(...); error() */
  1277.   int
  1278. ! #if __STDC__
  1279. ! errorf(Const char *fmt, ...) {
  1280.   #else
  1281.   errorf(va_alist) va_dcl
  1282.   {
  1283. --- 43,50 ----
  1284.   
  1285.   /* shellf(...); error() */
  1286.   int
  1287. ! #ifdef __STDC__
  1288. ! errorf(const char *fmt, ...) {
  1289.   #else
  1290.   errorf(va_alist) va_dcl
  1291.   {
  1292. ***************
  1293. *** 53,59 ****
  1294.   #endif
  1295.       va_list va;
  1296.   
  1297. ! #if __STDC__
  1298.       va_start(va, fmt);
  1299.   #else
  1300.       va_start(va);
  1301. --- 52,58 ----
  1302.   #endif
  1303.       va_list va;
  1304.   
  1305. ! #ifdef __STDC__
  1306.       va_start(va, fmt);
  1307.   #else
  1308.       va_start(va);
  1309. ***************
  1310. *** 67,74 ****
  1311.   
  1312.   /* printf to shlout (stderr) */
  1313.   int
  1314. ! #if __STDC__
  1315. ! shellf(Const char *fmt, ...) {
  1316.   #else
  1317.   shellf(va_alist) va_dcl
  1318.   {
  1319. --- 66,73 ----
  1320.   
  1321.   /* printf to shlout (stderr) */
  1322.   int
  1323. ! #ifdef __STDC__
  1324. ! shellf(const char *fmt, ...) {
  1325.   #else
  1326.   shellf(va_alist) va_dcl
  1327.   {
  1328. ***************
  1329. *** 76,82 ****
  1330.   #endif
  1331.       va_list va;
  1332.   
  1333. ! #if __STDC__
  1334.       va_start(va, fmt);
  1335.   #else
  1336.       va_start(va);
  1337. --- 75,81 ----
  1338.   #endif
  1339.       va_list va;
  1340.   
  1341. ! #ifdef __STDC__
  1342.       va_start(va, fmt);
  1343.   #else
  1344.       va_start(va);
  1345. ***************
  1346. *** 100,106 ****
  1347. --- 99,109 ----
  1348.       if (shf[fd] != NULL)
  1349.           return;
  1350.       if (fd <= 2)
  1351. + #ifdef _MINIX
  1352. +         /* ? */;
  1353. + #else
  1354.           _iob[fd]._flag = 0; /* re-use stdin, stdout, stderr */
  1355. + #endif
  1356.       shf[fd] = fdopen(fd, "r+");
  1357.       if (shf[fd] == NULL)
  1358.           return;
  1359. ***************
  1360. *** 137,143 ****
  1361.               else
  1362.                   errorf("too many files open in shell\n");
  1363.   #ifdef F_SETFD
  1364. !         (void) fcntl(nfd, F_SETFD, FD_CLEXEC);
  1365.   #else
  1366.           (void) fd_clexec(ttyfd);
  1367.   #endif
  1368. --- 140,146 ----
  1369.               else
  1370.                   errorf("too many files open in shell\n");
  1371.   #ifdef F_SETFD
  1372. !         (void) fcntl(nfd, F_SETFD, 1);
  1373.   #else
  1374.           (void) fd_clexec(ttyfd);
  1375.   #endif
  1376.  
  1377. exit 0 # Just in case...
  1378.