home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume14 / ms_sh-1.6 / patch02 / Patch1.6.3 < prev   
Encoding:
Text File  |  1990-08-29  |  35.5 KB  |  1,437 lines
  1. Index: Notes1.6
  2. *** ../sh16.2/Notes1.6    Tue Jun 26 19:46:22 1990
  3. --- Notes1.6    Fri Aug 17 21:29:59 1990
  4. ***************
  5. *** 1,4 ****
  6. ! Version 1.6.2 Release Notes:
  7.   
  8.   Note: Release 1.6.1 did occur to comp.ibm.pc.binaries.  However, the
  9.   transmission was corrupt and by the time I was notified (the moderator having
  10. --- 1,4 ----
  11. ! Version 1.6.3 Release Notes:
  12.   
  13.   Note: Release 1.6.1 did occur to comp.ibm.pc.binaries.  However, the
  14.   transmission was corrupt and by the time I was notified (the moderator having
  15. ***************
  16. *** 35,40 ****
  17. --- 35,46 ----
  18.     18.    The directory routines have been modified to correctly handle
  19.       all valid Unix format directory names (ie a Unix directory name
  20.       can end in /.  However, DOS does not think this is a directory).
  21. +   19.    A bug in director.c which caused the shell to crash or hang has
  22. +     been fixed.
  23. +   20.    The DOS 4 command processor does not like the use of switchar.
  24. +     The code has been fixed to cope with DOS 4.
  25. +   21.    A bug in the processing of functions has been fixed which caused
  26. +     the shell to crash or hang has been fixed.
  27.   
  28.   The following enhancements have been made:
  29.   
  30. ***************
  31. *** 69,74 ****
  32. --- 75,83 ----
  33.       data and stack space after the first write.
  34.      19.    The ms_dio function have been enhanced to support raw and block
  35.       devices (well not really - just the stat and fstat functions).
  36. +    20.  The POSIX variable substitution command ${#name} to give the
  37. +     string length has been implemented.
  38. +    21.  The POSIX I/O option <> has been implemented.
  39.   
  40.   The following enhancements/bugs remain outstanding:
  41.   
  42. Index: ReadMe
  43. Prereq: 1.7
  44. *** ../sh16.2/ReadMe    Fri Apr  6 17:58:18 1990
  45. --- ReadMe    Fri Aug 17 21:31:12 1990
  46. ***************
  47. *** 13,21 ****
  48.    2.  The sources (or parts thereof) or objects generated from the
  49.        sources (or parts of sources) cannot be sold under any circumstances.
  50.   
  51. !     $Header: readme 1.7 90/04/03 18:07:01 MS_user Exp $
  52.   
  53.       $Log:    readme $
  54.       Revision 1.7  90/04/03  18:07:01  MS_user
  55.       Some changes for 1.6 (Int 24 and Config file)
  56.       
  57. --- 13,24 ----
  58.    2.  The sources (or parts thereof) or objects generated from the
  59.        sources (or parts of sources) cannot be sold under any circumstances.
  60.   
  61. !     $Header: C:/SRC/SHELL/RCS/readme 1.8 90/08/15 01:18:53 MS_user Exp $
  62.   
  63.       $Log:    readme $
  64. +     Revision 1.8  90/08/15  01:18:53  MS_user
  65. +     Add 1.6.3 comment
  66. +     
  67.       Revision 1.7  90/04/03  18:07:01  MS_user
  68.       Some changes for 1.6 (Int 24 and Config file)
  69.       
  70. ***************
  71. *** 107,112 ****
  72. --- 110,117 ----
  73.       Unix V.4.
  74.   
  75.   11) A configuration file is supported to allow edit key specification.
  76. + 
  77. + 12) The support of POSIX P1003.2 commands has been started.
  78.   
  79.   The shell was built using MS-DOS C and MASM v5.1 in large model mode.
  80.   
  81. Index: lib/director.c
  82. *** ../sh16.2/lib/director.c    Fri Jun 22 09:18:24 1990
  83. --- lib/director.c    Fri Aug 17 21:31:57 1990
  84. ***************
  85. *** 20,28 ****
  86.   #include <dos.h>
  87.   
  88.   #define    ATTRIBUTES        (_A_SUBDIR | _A_HIDDEN | _A_SYSTEM | \
  89. !                  _A_NORMAL | _A_RDONLY | _A_ARCH | _A_VOLID)
  90.   
  91. ! static void    free_dircontents (struct _dircontents *);
  92.   
  93.   DIR    *opendir(name)
  94.   char    *name;
  95. --- 20,29 ----
  96.   #include <dos.h>
  97.   
  98.   #define    ATTRIBUTES        (_A_SUBDIR | _A_HIDDEN | _A_SYSTEM | \
  99. !                  _A_NORMAL | _A_RDONLY | _A_ARCH)
  100.   
  101. ! typedef struct _dircontents    DIRCONT;
  102. ! static void            free_dircontents (DIRCONT *);
  103.   
  104.   DIR    *opendir(name)
  105.   char    *name;
  106. ***************
  107. *** 30,36 ****
  108.       struct stat        statb;
  109.       DIR            *dirp;
  110.       char        *last;
  111. !     struct _dircontents    *dp;
  112.       char        *nbuf;
  113.       struct find_t    dtabuf;
  114.       int            len = strlen (name);
  115. --- 31,37 ----
  116.       struct stat        statb;
  117.       DIR            *dirp;
  118.       char        *last;
  119. !     DIRCONT        *dp;
  120.       char        *nbuf;
  121.       struct find_t    dtabuf;
  122.       int            len = strlen (name);
  123. ***************
  124. *** 41,47 ****
  125.       return (DIR *)NULL;
  126.       }
  127.   
  128. !     if ((nbuf = malloc (len + 4)) == (char *)NULL)
  129.       return (DIR *) NULL;
  130.   
  131.       strcpy (nbuf, name);
  132. --- 42,48 ----
  133.       return (DIR *)NULL;
  134.       }
  135.   
  136. !     if ((nbuf = malloc (len + 5)) == (char *)NULL)
  137.       return (DIR *) NULL;
  138.   
  139.       strcpy (nbuf, name);
  140. ***************
  141. *** 90,97 ****
  142.       strcat (last, "*.*");
  143.   
  144.       dirp->dd_loc      = 0;
  145. !     dirp->dd_cp       = (struct _dircontents *) NULL;
  146. !     dirp->dd_contents = (struct _dircontents *) NULL;
  147.   
  148.       if (_dos_findfirst (nbuf, ATTRIBUTES, &dtabuf) != 0)
  149.       {
  150. --- 91,98 ----
  151.       strcat (last, "*.*");
  152.   
  153.       dirp->dd_loc      = 0;
  154. !     dirp->dd_cp       = (DIRCONT *) NULL;
  155. !     dirp->dd_contents = (DIRCONT *) NULL;
  156.   
  157.       if (_dos_findfirst (nbuf, ATTRIBUTES, &dtabuf) != 0)
  158.       {
  159. ***************
  160. *** 101,124 ****
  161.   
  162.       do 
  163.       {
  164. !     if (((dp = (struct _dircontents *) malloc (sizeof (struct _dircontents))) == (struct _dircontents *) NULL) ||
  165.           ((dp->_d_entry = strdup (dtabuf.name)) == (char *) NULL))
  166.       {
  167.           if (dp != (char *)NULL)
  168. !         free ((char *) dp);
  169.   
  170.           free (nbuf);
  171.           free_dircontents (dirp->dd_contents);
  172.           return (DIR *) NULL;
  173.       }
  174.   
  175. !     if (dirp->dd_contents)
  176.           dirp->dd_cp = dirp->dd_cp->_d_next = dp;
  177.   
  178.       else
  179.           dirp->dd_contents = dirp->dd_cp = dp;
  180.   
  181. !     dp->_d_next = (struct _dircontents *) NULL;
  182.   
  183.       } while (_dos_findnext (&dtabuf) == 0);
  184.   
  185. --- 102,125 ----
  186.   
  187.       do 
  188.       {
  189. !     if (((dp = (DIRCONT *) malloc (sizeof (DIRCONT))) == (DIRCONT *)NULL) ||
  190.           ((dp->_d_entry = strdup (dtabuf.name)) == (char *) NULL))
  191.       {
  192.           if (dp != (char *)NULL)
  193. !         free ((char *)dp);
  194.   
  195.           free (nbuf);
  196.           free_dircontents (dirp->dd_contents);
  197.           return (DIR *) NULL;
  198.       }
  199.   
  200. !     if (dirp->dd_contents != (DIRCONT *) NULL)
  201.           dirp->dd_cp = dirp->dd_cp->_d_next = dp;
  202.   
  203.       else
  204.           dirp->dd_contents = dirp->dd_cp = dp;
  205.   
  206. !     dp->_d_next = (DIRCONT *) NULL;
  207.   
  208.       } while (_dos_findnext (&dtabuf) == 0);
  209.   
  210. ***************
  211. *** 132,138 ****
  212.   DIR    *dirp;
  213.   {
  214.       free_dircontents (dirp->dd_contents);
  215. !     free ((char *) dirp);
  216.       return 0;
  217.   }
  218.   
  219. --- 133,139 ----
  220.   DIR    *dirp;
  221.   {
  222.       free_dircontents (dirp->dd_contents);
  223. !     free ((char *)dirp);
  224.       return 0;
  225.   }
  226.   
  227. ***************
  228. *** 141,147 ****
  229.   {
  230.       static struct dirent    dp;
  231.       
  232. !     if (dirp->dd_cp == (struct _dircontents *) NULL)
  233.       return (struct dirent *) NULL;
  234.   
  235.       dp.d_reclen = strlen (strcpy (dp.d_name, dirp->dd_cp->_d_entry));
  236. --- 142,148 ----
  237.   {
  238.       static struct dirent    dp;
  239.       
  240. !     if (dirp->dd_cp == (DIRCONT *) NULL)
  241.       return (struct dirent *) NULL;
  242.   
  243.       dp.d_reclen = strlen (strcpy (dp.d_name, dirp->dd_cp->_d_entry));
  244. ***************
  245. *** 163,175 ****
  246.   DIR    *dirp;
  247.   off_t    off;
  248.   {
  249. !     long        i = off;
  250. !     struct _dircontents    *dp;
  251.   
  252.       if (off < 0L)
  253.       return;
  254.   
  255. !     for (dp = dirp->dd_contents ; --i >= 0 && dp ; dp = dp->_d_next)
  256.       ;
  257.   
  258.       dirp->dd_loc = off - (i + 1);
  259. --- 164,177 ----
  260.   DIR    *dirp;
  261.   off_t    off;
  262.   {
  263. !     long    i = off;
  264. !     DIRCONT    *dp;
  265.   
  266.       if (off < 0L)
  267.       return;
  268.   
  269. !     for (dp = dirp->dd_contents; (--i >= 0) && (dp != (DIRCONT *)NULL);
  270. !      dp = dp->_d_next)
  271.       ;
  272.   
  273.       dirp->dd_loc = off - (i + 1);
  274. ***************
  275. *** 182,198 ****
  276.       return dirp->dd_loc;
  277.   }
  278.   
  279. ! static void        free_dircontents(dp)
  280. ! struct _dircontents    *dp;
  281.   {
  282. !     struct _dircontents    *odp;
  283.   
  284. !     while (dp) 
  285.       {
  286. !     if (dp->_d_entry)
  287. !         free(dp->_d_entry);
  288.   
  289. !     dp = (odp = dp)->_d_next;
  290. !     free((char *) odp);
  291.       }
  292.   }
  293. --- 184,200 ----
  294.       return dirp->dd_loc;
  295.   }
  296.   
  297. ! static void    free_dircontents (dp)
  298. ! DIRCONT        *dp;
  299.   {
  300. !     DIRCONT    *odp;
  301.   
  302. !     while ((odp = dp) != (DIRCONT *)NULL) 
  303.       {
  304. !     if (dp->_d_entry != (char *)NULL)
  305. !         free (dp->_d_entry);
  306.   
  307. !     dp = dp->_d_next;
  308. !     free ((char *)odp);
  309.       }
  310.   }
  311. Index: sh.1
  312. Prereq: 1.10
  313. *** ../sh16.2/sh.1    Tue May  1 20:02:16 1990
  314. --- sh.1    Fri Aug 17 21:31:41 1990
  315. ***************
  316. *** 14,22 ****
  317.   .\" 2.  The sources (or parts thereof) or objects generated from the sources
  318.   .\"     (or parts of sources) cannot be sold under any circumstances.
  319.   .\"
  320. ! .\"    $Header: sh.1 1.10 90/05/01 19:58:38 MS_user Exp $
  321.   .\"
  322.   .\"    $Log:    sh.1 $
  323.   .\"    Revision 1.10  90/05/01  19:58:38  MS_user
  324.   .\"    Fix typing error
  325.   .\"    
  326. --- 14,25 ----
  327.   .\" 2.  The sources (or parts thereof) or objects generated from the sources
  328.   .\"     (or parts of sources) cannot be sold under any circumstances.
  329.   .\"
  330. ! .\"    $Header: C:/SRC/SHELL/RCS/sh.1 1.11 90/08/14 23:17:25 Ian_Stewartson Exp $
  331.   .\"
  332.   .\"    $Log:    sh.1 $
  333. + .\"    Revision 1.11  90/08/14  23:17:25  Ian_Stewartson
  334. + .\"    Add IO read/write open
  335. + .\"    
  336.   .\"    Revision 1.10  90/05/01  19:58:38  MS_user
  337.   .\"    Fix typing error
  338.   .\"    
  339. ***************
  340. *** 487,492 ****
  341. --- 490,499 ----
  342.   \fB<\h@-.1m@&\h@-.1m@\-\fR
  343.   The standard input is closed.  Similarly for the standard output using
  344.   \fB>\h@-.1m@&\h@-.1m@\-\fR.
  345. + .TP
  346. + \fBn<\h@-.3m@>word\fR
  347. + causes the file \fIword\fR to be opened on file descriptor \fIn\fR for both
  348. + reading and writing.  The file must already exist.
  349.   .PD
  350.   .PP
  351.   If any of the above is preceded by a digit, the file descriptor which will be
  352. Index: shell/sh3.c
  353. Prereq: 1.22
  354. *** ../sh16.2/shell/sh3.c    Thu Jun 21 21:48:04 1990
  355. --- shell/sh3.c    Fri Aug 17 21:34:34 1990
  356. ***************
  357. *** 13,21 ****
  358.    * 2.  The sources (or parts thereof) or objects generated from the sources
  359.    *     (or parts of sources) cannot be sold under any circumstances.
  360.    *
  361. !  *    $Header: sh3.c 1.22 90/06/21 11:10:47 MS_user Exp $
  362.    *
  363.    *    $Log:    sh3.c $
  364.    * Revision 1.22  90/06/21  11:10:47  MS_user
  365.    * Ensure Areanum is set correctly for memory areas
  366.    * 
  367. --- 13,28 ----
  368.    * 2.  The sources (or parts thereof) or objects generated from the sources
  369.    *     (or parts of sources) cannot be sold under any circumstances.
  370.    *
  371. !  *    $Header: C:/SRC/SHELL/RCS/sh3.c 1.24 90/08/16 10:28:47 Ian_Stewartson Exp $
  372.    *
  373.    *    $Log:    sh3.c $
  374. +  * Revision 1.24  90/08/16  10:28:47  Ian_Stewartson
  375. +  * Find setting of switch character for DOS4 for batch files
  376. +  * 
  377. +  * Revision 1.23  90/08/14  23:34:09  MS_user
  378. +  * Fix memory bugs - Copy function tree before execution
  379. +  * Save Extended line file name correctly
  380. +  * 
  381.    * Revision 1.22  90/06/21  11:10:47  MS_user
  382.    * Ensure Areanum is set correctly for memory areas
  383.    * 
  384. ***************
  385. *** 213,219 ****
  386.           Break_List  = (Break_C *)NULL;
  387.           bc.nextlev  = SShell_List;
  388.           SShell_List = &bc;
  389. !         rv = forkexec (t, pin, pout, act, wp);
  390.           }
  391.   
  392.   /* Restore the original environment */
  393. --- 220,226 ----
  394.           Break_List  = (Break_C *)NULL;
  395.           bc.nextlev  = SShell_List;
  396.           SShell_List = &bc;
  397. !         rv = execute (t->left, pin, pout, act);
  398.           }
  399.   
  400.   /* Restore the original environment */
  401. ***************
  402. *** 472,477 ****
  403. --- 479,492 ----
  404.   
  405.       if (t->type == TCOM)
  406.       {
  407. + 
  408. + /* Malloc failed somewhere - given up */
  409. + 
  410. +     if (wp == (char **)NULL)
  411. +         return setstatus (-1);
  412. + 
  413. + /* Skip over any assignments */
  414. + 
  415.       while ((cp = *wp++) != (char *)NULL)
  416.           ;
  417.   
  418. ***************
  419. *** 592,597 ****
  420. --- 607,613 ----
  421.       Break_C            *s_SList = SShell_List;
  422.       int            LS_depth = Execute_stack_depth;
  423.       Break_C            bc;
  424. +     C_Op            *New;
  425.   
  426.   /* Set up $0..$n for the function */
  427.   
  428. ***************
  429. *** 604,610 ****
  430.           Break_List  = (Break_C *)NULL;
  431.           bc.nextlev  = Return_List;
  432.           Return_List = &bc;
  433. !         rv = execute (fop->tree->left, NOPIPE, NOPIPE, FEXEC);
  434.       }
  435.   
  436.   /* A return has been executed - Unlike, while and for, we just need to
  437. --- 620,627 ----
  438.           Break_List  = (Break_C *)NULL;
  439.           bc.nextlev  = Return_List;
  440.           Return_List = &bc;
  441. !         New = Copy_Function (fop->tree->left);
  442. !         rv = execute (New, NOPIPE, NOPIPE, FEXEC);
  443.       }
  444.   
  445.   /* A return has been executed - Unlike, while and for, we just need to
  446. ***************
  447. *** 719,728 ****
  448.           cp = "here file";
  449.           break;
  450.   
  451. !     case IOWRITE | IOCAT:            /* >>            */
  452.           if (check_rsh (cp))
  453.           return TRUE;
  454.   
  455.           if ((u = S_open (FALSE, cp, O_WRONLY | O_TEXT)) >= 0)
  456.           {
  457.           lseek (u, 0L, SEEK_END);
  458. --- 736,752 ----
  459.           cp = "here file";
  460.           break;
  461.   
  462. !     case IOWRITE | IOREAD:            /* <>            */
  463.           if (check_rsh (cp))
  464.           return TRUE;
  465.   
  466. +         u = S_open (FALSE, cp, O_RDWR);
  467. +         break;
  468. + 
  469. +     case IOWRITE | IOCAT:            /* >>            */
  470. +         if (check_rsh (cp))
  471. +         return TRUE;
  472. + 
  473.           if ((u = S_open (FALSE, cp, O_WRONLY | O_TEXT)) >= 0)
  474.           {
  475.           lseek (u, 0L, SEEK_END);
  476. ***************
  477. *** 946,952 ****
  478.               r.x.ax = 0x3700;
  479.               intdos (&r, &r);
  480.   
  481. !             if (r.h.al == 0)
  482.                   *new_argv[1] = (char)(r.h.dl);
  483.               }
  484.   
  485. --- 970,976 ----
  486.               r.x.ax = 0x3700;
  487.               intdos (&r, &r);
  488.   
  489. !             if ((r.h.al == 0) && (_osmajor < 4))
  490.                   *new_argv[1] = (char)(r.h.dl);
  491.               }
  492.   
  493. ***************
  494. *** 1654,1660 ****
  495.           ((fd = S_open (FALSE, Extend_file = g_tempname (), O_CMASK,
  496.                  0600)) >= 0))
  497.       {
  498. !         Extend_file = strsave (Extend_file, 0);
  499.   
  500.   /* Copy to end of list */
  501.   
  502. --- 1678,1686 ----
  503.           ((fd = S_open (FALSE, Extend_file = g_tempname (), O_CMASK,
  504.                  0600)) >= 0))
  505.       {
  506. !         if ((Extend_file = strsave (Extend_file, 0)) == null)
  507. !         Extend_file = (char *)NULL;
  508. ! 
  509.   
  510.   /* Copy to end of list */
  511.   
  512. Index: shell/sh4.c
  513. Prereq: 1.7
  514. *** ../sh16.2/shell/sh4.c    Thu Jun 21 21:48:52 1990
  515. --- shell/sh4.c    Fri Aug 17 21:34:51 1990
  516. ***************
  517. *** 13,21 ****
  518.    * 2.  The sources (or parts thereof) or objects generated from the sources
  519.    *     (or parts of sources) cannot be sold under any circumstances.
  520.    *
  521. !  *    $Header: sh4.c 1.7 90/06/21 11:11:51 MS_user Exp $
  522.    *
  523.    *    $Log:    sh4.c $
  524.    * Revision 1.7  90/06/21  11:11:51  MS_user
  525.    * Ensure Areanum is set correctly for memory areas
  526.    * 
  527. --- 13,29 ----
  528.    * 2.  The sources (or parts thereof) or objects generated from the sources
  529.    *     (or parts of sources) cannot be sold under any circumstances.
  530.    *
  531. !  *    $Header: C:/SRC/SHELL/RCS/sh4.c 1.9 90/08/16 10:29:27 Ian_Stewartson Exp $
  532.    *
  533.    *    $Log:    sh4.c $
  534. +  * Revision 1.9  90/08/16  10:29:27  Ian_Stewartson
  535. +  * Add support from String length option in ${}.
  536. +  * Restore the memcpys
  537. +  * 
  538. +  * Revision 1.8  90/08/14  23:34:35  MS_user
  539. +  * Fix memory bugs - ensure string copy is terminated
  540. +  * Change some memcpys to local copy functions - don't know why.
  541. +  * 
  542.    * Revision 1.7  90/06/21  11:11:51  MS_user
  543.    * Ensure Areanum is set correctly for memory areas
  544.    * 
  545. ***************
  546. *** 64,69 ****
  547. --- 72,78 ----
  548.   static Word_B        *New_Elist;
  549.   static char        *spcl  = "[?*";
  550.   static char        *spcl1 = "\"'";
  551. + static char        *bad_subs = "sh: bad substitution\n";
  552.   
  553.   static void        globname (char *, char *);
  554.   static bool        expand (char *, Word_B **, int);
  555. ***************
  556. *** 135,141 ****
  557.   {
  558.       register Word_B    *wb = (Word_B *)NULL;
  559.       register Var_List    *vp;
  560. !     char        *cp, *sp;
  561.       int            len = 0;
  562.   
  563.       for (vp = vlist; vp != (Var_List *)NULL; vp = vp->next)
  564. --- 144,150 ----
  565.   {
  566.       register Word_B    *wb = (Word_B *)NULL;
  567.       register Var_List    *vp;
  568. !     char        *cp;
  569.       int            len = 0;
  570.   
  571.       for (vp = vlist; vp != (Var_List *)NULL; vp = vp->next)
  572. ***************
  573. *** 410,415 ****
  574. --- 419,425 ----
  575.       register char    *s, c, *cp;
  576.       Var_List        *vp;
  577.       bool        colon_f = FALSE;
  578. +     bool        hash_f = FALSE;
  579.       char        *dol_special = "$ ";
  580.   
  581.       c = (char)readc ();
  582. ***************
  583. *** 429,435 ****
  584.           while (((c = (char)readc ()) != 0) && isalnum (c))
  585.           {
  586.           if (e.linep < e.eline)
  587. !             *e.linep++ = c;
  588.           }
  589.   
  590.           unget(c);
  591. --- 439,445 ----
  592.           while (((c = (char)readc ()) != 0) && isalnum (c))
  593.           {
  594.           if (e.linep < e.eline)
  595. !             *e.linep++ = c;
  596.           }
  597.   
  598.           unget(c);
  599. ***************
  600. *** 465,475 ****
  601.           return c;
  602.       }
  603.   
  604. ! /* Check for zero length string */
  605.   
  606.       if (s == e.linep)
  607.       {
  608. !         print_error ("sh: bad substitution\n");
  609.           gflg++;
  610.           return c;
  611.       }
  612. --- 475,494 ----
  613.           return c;
  614.       }
  615.   
  616. ! /* Check for Hash at start */
  617.   
  618. +     if ((*s == '#') && ((s - e.linep) > 1))
  619. +     {
  620. +         hash_f = TRUE;
  621. +         memcpy (s, s + 1, e.linep - s - 1);
  622. +         --e.linep;
  623. +     }
  624. + 
  625. + /* Check for zero length string */
  626. + 
  627.       if (s == e.linep)
  628.       {
  629. !         print_error (bad_subs);
  630.           gflg++;
  631.           return c;
  632.       }
  633. ***************
  634. *** 513,528 ****
  635.       }
  636.       }
  637.   
  638. ! /* Check for * and @ processing */
  639.   
  640.       if (s[1] == 0 && (*s == '*' || *s == '@'))
  641.       {
  642.       if (dolc > 1)
  643.       {
  644.           e.linep = s;
  645. !         PUSHIO (awordlist, dolv + 1, dol_char);
  646. !         e.iop->dflag = (char)(!quoted ? DSA_NULL
  647. !                       : ((*s == '*') ? DSA_STAR : DSA_AMP));
  648.           return 0;
  649.       }
  650.   
  651. --- 532,575 ----
  652.       }
  653.       }
  654.   
  655. ! /* Cannot have both # & : */
  656.   
  657. +     if (hash_f && colon_f)
  658. +     {
  659. +     print_error (bad_subs);
  660. +     gflg++;
  661. +     return c;
  662. +     }
  663. + 
  664. + /* Check for * and @ processing */
  665. + 
  666.       if (s[1] == 0 && (*s == '*' || *s == '@'))
  667.       {
  668.       if (dolc > 1)
  669.       {
  670.           e.linep = s;
  671. ! 
  672. ! /* If hash flag set, convert to string length */
  673. ! 
  674. !         if (hash_f)
  675. !         {
  676. !         int    slen, n;
  677. ! 
  678. !         for (n = 1, slen = 0; dolv[n] != (char *)NULL;
  679. !              slen += (strlen (dolv[n++]) + 1));
  680. ! 
  681. !         dolp = strsave (putn (slen - 1), areanum);
  682. !         PUSHIO (aword, dolp, quoted ? qstrchar : strchar);
  683. !         }
  684. ! 
  685. !         else
  686. !         {
  687. !         PUSHIO (awordlist, dolv + 1, dol_char);
  688. !         e.iop->dflag = (char)(!quoted ? DSA_NULL
  689. !                           : ((*s == '*') ? DSA_STAR
  690. !                                  : DSA_AMP));
  691. !         }
  692. ! 
  693.           return 0;
  694.       }
  695.   
  696. ***************
  697. *** 592,597 ****
  698. --- 639,649 ----
  699.       gflg++;
  700.       }
  701.   
  702. + /* If hash flag set, convert to string length */
  703. + 
  704. +     if (hash_f)
  705. +     dolp = strsave (putn (strlen (dolp)), areanum);
  706. + 
  707.       e.linep = s;
  708.       PUSHIO (aword, dolp, quoted ? qstrchar : strchar);
  709.       return 0;
  710. ***************
  711. *** 821,834 ****
  712.       for (i = 0; i < C_EList->w_nword; i++)
  713.       unquote (C_EList->w_words[i]);
  714.   
  715. -     qsort (C_EList->w_words, C_EList->w_nword, sizeof (char *), sort_compare);
  716. - 
  717.   /* Did we find any files matching the specification.  Yes - add them to
  718.    * the block
  719.    */
  720.   
  721.       if (C_EList->w_nword)
  722.       {
  723.       for (i = 0; i < C_EList->w_nword; i++)
  724.           wb = addword (C_EList->w_words[i], wb);
  725.   
  726. --- 873,887 ----
  727.       for (i = 0; i < C_EList->w_nword; i++)
  728.       unquote (C_EList->w_words[i]);
  729.   
  730.   /* Did we find any files matching the specification.  Yes - add them to
  731.    * the block
  732.    */
  733.   
  734.       if (C_EList->w_nword)
  735.       {
  736. +     qsort (C_EList->w_words, C_EList->w_nword, sizeof (char *),
  737. +            sort_compare);
  738. + 
  739.       for (i = 0; i < C_EList->w_nword; i++)
  740.           wb = addword (C_EList->w_words[i], wb);
  741.   
  742. ***************
  743. *** 852,858 ****
  744.   {
  745.       register char    *np, *cp;
  746.       char        *name, *gp, *dp;
  747. -     DIR            *dn;
  748.       struct dirent    *d_ce;
  749.       char        dname[NAME_MAX + 1];
  750.       struct stat        dbuf;
  751. --- 905,910 ----
  752. ***************
  753. *** 889,895 ****
  754.   
  755.   /* Open the directory */
  756.   
  757. !     if ((dn = opendir (dp)) == (DIR *)NULL)
  758.       {
  759.       DELETE (dp);
  760.       DELETE (gp);
  761. --- 941,947 ----
  762.   
  763.   /* Open the directory */
  764.   
  765. !     if ((e.cdir = opendir (dp)) == (DIR *)NULL)
  766.       {
  767.       DELETE (dp);
  768.       DELETE (gp);
  769. ***************
  770. *** 898,908 ****
  771.   
  772.   /* Scan for matches */
  773.   
  774. !     while ((d_ce = readdir (dn)) != (struct dirent *)NULL)
  775.       {
  776. !     if ((*(strcpy (dname, d_ce->d_name)) == '.') && (*gp != '.'))
  777.           continue;
  778.   
  779.       for (cp = dname; *cp; cp++)
  780.       {
  781.           if (any (*cp, spcl))
  782. --- 950,961 ----
  783.   
  784.   /* Scan for matches */
  785.   
  786. !     while ((d_ce = readdir (e.cdir)) != (struct dirent *)NULL)
  787.       {
  788. !     if ((*(strncpy (dname, d_ce->d_name, NAME_MAX)) == '.') && (*gp != '.'))
  789.           continue;
  790.   
  791. +     dname[NAME_MAX] = 0;
  792.       for (cp = dname; *cp; cp++)
  793.       {
  794.           if (any (*cp, spcl))
  795. ***************
  796. *** 935,941 ****
  797.       }
  798.       }
  799.   
  800. !     closedir (dn);
  801.       DELETE (dp);
  802.       DELETE (gp);
  803.   }
  804. --- 988,995 ----
  805.       }
  806.       }
  807.   
  808. !     closedir (e.cdir);
  809. !     e.cdir = (DIR *)NULL;
  810.       DELETE (dp);
  811.       DELETE (gp);
  812.   }
  813. ***************
  814. *** 1034,1055 ****
  815.   register Word_B    *wb;
  816.   {
  817.       register char    **wd;
  818. !     register nb;
  819.   
  820.   /* If the word block is empty or does not exist, return no list */
  821.   
  822.       if (wb == (Word_B **)NULL)
  823.       return (char *)NULL;
  824.   
  825. !     if (wb->w_nword == 0)
  826.       {
  827.       DELETE (wb);
  828.       return (char *)NULL;
  829.       }
  830. - 
  831. - /* Get some space for the array and set it up */
  832. - 
  833. -     wd = (char **)space (nb = sizeof (char *) * wb->w_nword);
  834.   
  835.       memcpy ((char *)wd, (char *)wb->w_words, nb);
  836.       DELETE (wb);    /* perhaps should done by caller */
  837. --- 1088,1108 ----
  838.   register Word_B    *wb;
  839.   {
  840.       register char    **wd;
  841. !     register int    nb;
  842.   
  843.   /* If the word block is empty or does not exist, return no list */
  844.   
  845.       if (wb == (Word_B **)NULL)
  846.       return (char *)NULL;
  847.   
  848. ! /* Get some space for the array and set it up */
  849. ! 
  850. !     if (((nb = sizeof (char *) * wb->w_nword) == 0) ||
  851. !     ((wd = (char **)space (nb)) == (char **)NULL))
  852.       {
  853.       DELETE (wb);
  854.       return (char *)NULL;
  855.       }
  856.   
  857.       memcpy ((char *)wd, (char *)wb->w_words, nb);
  858.       DELETE (wb);    /* perhaps should done by caller */
  859. Index: shell/sh5.c
  860. Prereq: 1.9
  861. *** ../sh16.2/shell/sh5.c    Thu Jun 21 21:49:29 1990
  862. --- shell/sh5.c    Fri Aug 17 21:35:07 1990
  863. ***************
  864. *** 13,21 ****
  865.    * 2.  The sources (or parts thereof) or objects generated from the sources
  866.    *     (or parts of sources) cannot be sold under any circumstances.
  867.    *
  868. !  *    $Header: sh5.c 1.9 90/05/11 18:45:40 MS_user Exp $
  869.    *
  870.    *    $Log:    sh5.c $
  871.    * Revision 1.9  90/05/11  18:45:40  MS_user
  872.    * Fix problem when at end of buffer on re-load from file
  873.    * 
  874. --- 13,24 ----
  875.    * 2.  The sources (or parts thereof) or objects generated from the sources
  876.    *     (or parts of sources) cannot be sold under any circumstances.
  877.    *
  878. !  *    $Header: C:/SRC/SHELL/RCS/sh5.c 1.10 90/08/14 23:30:47 Ian_Stewartson Exp $
  879.    *
  880.    *    $Log:    sh5.c $
  881. +  * Revision 1.10  90/08/14  23:30:47  Ian_Stewartson
  882. +  * Changes to env structure.
  883. +  * 
  884.    * Revision 1.9  90/05/11  18:45:40  MS_user
  885.    * Fix problem when at end of buffer on re-load from file
  886.    * 
  887. ***************
  888. *** 58,63 ****
  889. --- 61,67 ----
  890.   #include <fcntl.h>
  891.   #include <io.h>
  892.   #include <limits.h>
  893. + #include <dirent.h>
  894.   #include <unistd.h>
  895.   #include "sh.h"
  896.   
  897. Index: shell/sh6.c
  898. Prereq: 1.13
  899. *** ../sh16.2/shell/sh6.c    Thu Jun 21 21:49:38 1990
  900. --- shell/sh6.c    Fri Aug 17 21:35:10 1990
  901. ***************
  902. *** 13,21 ****
  903.    * 2.  The sources (or parts thereof) or objects generated from the sources
  904.    *     (or parts of sources) cannot be sold under any circumstances.
  905.    *
  906. !  *    $Header: sh6.c 1.13 90/05/15 21:10:19 MS_user Exp $
  907.    *
  908.    *    $Log:    sh6.c $
  909.    * Revision 1.13  90/05/15  21:10:19  MS_user
  910.    * Release 1.6.2
  911.    * 
  912. --- 13,24 ----
  913.    * 2.  The sources (or parts thereof) or objects generated from the sources
  914.    *     (or parts of sources) cannot be sold under any circumstances.
  915.    *
  916. !  *    $Header: C:/SRC/SHELL/RCS/sh6.c 1.14 90/08/14 23:34:49 MS_user Exp $
  917.    *
  918.    *    $Log:    sh6.c $
  919. +  * Revision 1.14  90/08/14  23:34:49  MS_user
  920. +  * Changed for release 1.6.3
  921. +  * 
  922.    * Revision 1.13  90/05/15  21:10:19  MS_user
  923.    * Release 1.6.2
  924.    * 
  925. ***************
  926. *** 65,75 ****
  927.   #include <setjmp.h>
  928.   #include <stdlib.h>
  929.   #include <limits.h>
  930.   #include <unistd.h>
  931.   #include <string.h>
  932.   #include "sh.h"
  933.   
  934. ! static char    *Copy_Right1 = "MS-DOS SH Version 1.6.2 - %s (DOS %d.%d)\n";
  935.   static char    *Copy_Right2 = "Copyright (c) Data Logic Ltd and Charles Forsyth 1990\n";
  936.   char        **dolv;        /* Parameter array            */
  937.   int        dolc;        /* Number of entries in parameter array    */
  938. --- 68,79 ----
  939.   #include <setjmp.h>
  940.   #include <stdlib.h>
  941.   #include <limits.h>
  942. + #include <dirent.h>
  943.   #include <unistd.h>
  944.   #include <string.h>
  945.   #include "sh.h"
  946.   
  947. ! static char    *Copy_Right1 = "MS-DOS SH Version 1.6.3 - %s (DOS %d.%d)\n";
  948.   static char    *Copy_Right2 = "Copyright (c) Data Logic Ltd and Charles Forsyth 1990\n";
  949.   char        **dolv;        /* Parameter array            */
  950.   int        dolc;        /* Number of entries in parameter array    */
  951. ***************
  952. *** 151,156 ****
  953. --- 155,161 ----
  954.       (int *)NULL,
  955.       FALSE,            /* End of file processing        */
  956.       FDBASE,            /* Base file handler            */
  957. +     (DIR *)NULL,        /* Currently open directory        */
  958.       (Environ *)NULL        /* Previous Env pointer            */
  959.   };
  960.   
  961. Index: shell/sh7.c
  962. Prereq: 1.17
  963. *** ../sh16.2/shell/sh7.c    Thu Jun 21 21:50:36 1990
  964. --- shell/sh7.c    Fri Aug 17 21:35:57 1990
  965. ***************
  966. *** 15,23 ****
  967.    * 2.  The sources (or parts thereof) or objects generated from the sources
  968.    *     (or parts of sources) cannot be sold under any circumstances.
  969.    *
  970. !  *    $Header: sh7.c 1.17 90/05/31 09:50:05 MS_user Exp $
  971.    *
  972.    *    $Log:    sh7.c $
  973.    * Revision 1.17  90/05/31  09:50:05  MS_user
  974.    * Implement partial write when swapping to disk
  975.    * 
  976. --- 15,27 ----
  977.    * 2.  The sources (or parts thereof) or objects generated from the sources
  978.    *     (or parts of sources) cannot be sold under any circumstances.
  979.    *
  980. !  *    $Header: C:/SRC/SHELL/RCS/sh7.c 1.18 90/08/14 23:34:55 MS_user Exp $
  981.    *
  982.    *    $Log:    sh7.c $
  983. +  * Revision 1.18  90/08/14  23:34:55  MS_user
  984. +  * Fix directory display on change directory
  985. +  * Fix spelling mistake.
  986. +  * 
  987.    * Revision 1.17  90/05/31  09:50:05  MS_user
  988.    * Implement partial write when swapping to disk
  989.    * 
  990. ***************
  991. *** 88,93 ****
  992. --- 92,98 ----
  993.   #include <stdlib.h>
  994.   #include <fcntl.h>
  995.   #include <limits.h>
  996. + #include <dirent.h>
  997.   #include <stdarg.h>
  998.   #include "sh.h"
  999.   
  1000. ***************
  1001. *** 1026,1032 ****
  1002.   
  1003.           Getcwd ();
  1004.   
  1005. !         if (first || (strchr (p, '/') != (char *)NULL))
  1006.           dopwd (t);
  1007.   
  1008.           return 0;
  1009. --- 1031,1037 ----
  1010.   
  1011.           Getcwd ();
  1012.   
  1013. !         if (first)
  1014.           dopwd (t);
  1015.   
  1016.           return 0;
  1017. ***************
  1018. *** 1756,1762 ****
  1019.   #endif
  1020.   
  1021.   /*
  1022. !  * Type fucntion: For each name, indicate how it would be interpreted
  1023.    */
  1024.   
  1025.   static char    *type_ext[] = {
  1026. --- 1761,1767 ----
  1027.   #endif
  1028.   
  1029.   /*
  1030. !  * Type function: For each name, indicate how it would be interpreted
  1031.    */
  1032.   
  1033.   static char    *type_ext[] = {
  1034. ***************
  1035. *** 1789,1794 ****
  1036. --- 1794,1805 ----
  1037.   
  1038.       while ((cp = t->words[n++]) != (char *)NULL)
  1039.       {
  1040. +     if (inbuilt (cp))
  1041. +     {
  1042. +         v1_puts (cp);
  1043. +         v1a_puts (" is a shell internal command");
  1044. +         continue;
  1045. +     }
  1046.   
  1047.   /* Check for a function */
  1048.   
  1049. ***************
  1050. *** 1844,1849 ****
  1051. --- 1855,1861 ----
  1052.                    (stricmp (xp, ".bat") != 0))
  1053.               continue;
  1054.   
  1055. +             Convert_Backslashes (strlwr (l_path));
  1056.               print_error ("%s is %s\n", cp, l_path);
  1057.               found = TRUE;
  1058.           }
  1059. Index: shell/sh8.c
  1060. Prereq: 1.11
  1061. *** ../sh16.2/shell/sh8.c    Thu Jun 21 21:51:03 1990
  1062. --- shell/sh8.c    Fri Aug 17 21:35:41 1990
  1063. ***************
  1064. *** 12,20 ****
  1065.    * 2.  The sources (or parts thereof) or objects generated from the sources
  1066.    *     (or parts of sources) cannot be sold under any circumstances.
  1067.    *
  1068. !  *    $Header: sh8.c 1.11 90/06/21 11:12:13 MS_user Exp $
  1069.    *
  1070.    *    $Log:    sh8.c $
  1071.    * Revision 1.11  90/06/21  11:12:13  MS_user
  1072.    * Ensure Areanum is set correctly for memory areas
  1073.    * 
  1074. --- 12,23 ----
  1075.    * 2.  The sources (or parts thereof) or objects generated from the sources
  1076.    *     (or parts of sources) cannot be sold under any circumstances.
  1077.    *
  1078. !  *    $Header: C:/SRC/SHELL/RCS/sh8.c 1.12 90/08/14 23:31:08 Ian_Stewartson Exp $
  1079.    *
  1080.    *    $Log:    sh8.c $
  1081. +  * Revision 1.12  90/08/14  23:31:08  Ian_Stewartson
  1082. +  * Changes to env structure.
  1083. +  * 
  1084.    * Revision 1.11  90/06/21  11:12:13  MS_user
  1085.    * Ensure Areanum is set correctly for memory areas
  1086.    * 
  1087. ***************
  1088. *** 64,69 ****
  1089. --- 67,73 ----
  1090.   #include <string.h>
  1091.   #include <unistd.h>
  1092.   #include <limits.h>
  1093. + #include <dirent.h>
  1094.   #include <ctype.h>
  1095.   #include "sh.h"
  1096.   
  1097. Index: shell/sh9.c
  1098. Prereq: 1.12
  1099. *** ../sh16.2/shell/sh9.c    Thu Jun 21 21:51:46 1990
  1100. --- shell/sh9.c    Fri Aug 17 21:36:02 1990
  1101. ***************
  1102. *** 12,18 ****
  1103.    * 2.  The sources (or parts thereof) or objects generated from the sources
  1104.    *     (or parts of sources) cannot be sold under any circumstances.
  1105.    *
  1106. !  *    $Header: sh9.c 1.12 90/05/31 10:39:26 MS_user Exp $
  1107.    *
  1108.    *    $Log:    sh9.c $
  1109.    * Revision 1.12  90/05/31  10:39:26  MS_user
  1110. --- 12,18 ----
  1111.    * 2.  The sources (or parts thereof) or objects generated from the sources
  1112.    *     (or parts of sources) cannot be sold under any circumstances.
  1113.    *
  1114. !  *    $Header: C:/SRC/SHELL/RCS/sh9.c 1.12 90/05/31 10:39:26 MS_user Exp $
  1115.    *
  1116.    *    $Log:    sh9.c $
  1117.    * Revision 1.12  90/05/31  10:39:26  MS_user
  1118. Index: shell/makefile
  1119. Prereq: 1.3
  1120. *** ../sh16.2/shell/makefile    Thu Jun 21 21:43:10 1990
  1121. --- shell/makefile    Fri Aug 17 21:33:08 1990
  1122. ***************
  1123. *** 8,16 ****
  1124.   # source form.
  1125.   #
  1126.   #
  1127. ! #    $Header: makefile 1.3 90/01/18 15:41:48 MS_user Locked $
  1128.   #
  1129.   #    $Log:    makefile $
  1130.   # Revision 1.3  90/01/18  15:41:48  MS_user
  1131.   # ANother change for new make
  1132.   # 
  1133. --- 8,25 ----
  1134.   # source form.
  1135.   #
  1136.   #
  1137. ! #    $Header: C:/SRC/SHELL/RCS/makefile 1.6 90/08/16 12:21:40 Ian_Stewartson Exp $
  1138.   #
  1139.   #    $Log:    makefile $
  1140. + # Revision 1.6  90/08/16  12:21:40  Ian_Stewartson
  1141. + # Remove command on sh6.obj line
  1142. + # 
  1143. + # Revision 1.5  90/08/15  01:42:32  MS_user
  1144. + # Remove local directory functions
  1145. + # 
  1146. + # Revision 1.4  90/08/15  01:16:36  MS_user
  1147. + # Add stack command
  1148. + # 
  1149.   # Revision 1.3  90/01/18  15:41:48  MS_user
  1150.   # ANother change for new make
  1151.   # 
  1152. ***************
  1153. *** 22,28 ****
  1154.   # 
  1155.   #
  1156.   
  1157. ! ASFLAGS= /Ml /Zi /Zd
  1158.   
  1159.   OBJS=sh0.obj sh1.obj sh2.obj sh3.obj sh4.obj sh5.obj sh6.obj    \
  1160.        sh7.obj sh8.obj sh9.obj sh10.obj
  1161. --- 31,37 ----
  1162.   # 
  1163.   #
  1164.   
  1165. ! ASFLAGS= /Ml 
  1166.   
  1167.   OBJS=sh0.obj sh1.obj sh2.obj sh3.obj sh4.obj sh5.obj sh6.obj    \
  1168.        sh7.obj sh8.obj sh9.obj sh10.obj
  1169. ***************
  1170. *** 34,38 ****
  1171.   sh6.obj: $(SRCS)
  1172.   
  1173.   sh.exe:    $(OBJS)
  1174. !     link sh0+sh1+sh2+sh3+sh4+sh5+sh6+sh7+sh8+sh9+sh10/co/noi, sh.exe\;
  1175. !     link sh0+sh1+sh2+sh3+sh4+sh5+sh6+sh7+sh8+sh9+sh10/noi, nd_sh.exe\;
  1176. --- 43,47 ----
  1177.   sh6.obj: $(SRCS)
  1178.   
  1179.   sh.exe:    $(OBJS)
  1180. !     link sh0+sh1+sh2+sh3+sh4+sh5+sh6+sh7+sh8+sh9+sh10/co/noi/stack:0x2000, sh.exe\;
  1181. !     link sh0+sh1+sh2+sh3+sh4+sh5+sh6+sh7+sh8+sh9+sh10/noi/stack:0x2000, nd_sh.exe\;
  1182. Index: shell/sh.h
  1183. Prereq: 1.20
  1184. *** ../sh16.2/shell/sh.h    Thu Jun 21 21:43:37 1990
  1185. --- shell/sh.h    Fri Aug 17 21:33:20 1990
  1186. ***************
  1187. *** 13,21 ****
  1188.    * 2.  The sources (or parts thereof) or objects generated from the sources
  1189.    *     (or parts of sources) cannot be sold under any circumstances.
  1190.    *
  1191. !  *    $Header: sh.h 1.20 90/05/31 09:47:41 MS_user Exp $
  1192.    *
  1193.    *    $Log:    sh.h $
  1194.    * Revision 1.20  90/05/31  09:47:41  MS_user
  1195.    * Implement partial write when swapping to disk
  1196.    * 
  1197. --- 13,26 ----
  1198.    * 2.  The sources (or parts thereof) or objects generated from the sources
  1199.    *     (or parts of sources) cannot be sold under any circumstances.
  1200.    *
  1201. !  *    $Header: C:/SRC/SHELL/RCS/sh.h 1.21 90/08/14 23:54:44 MS_user Exp $
  1202.    *
  1203.    *    $Log:    sh.h $
  1204. +  * Revision 1.21  90/08/14  23:54:44  MS_user
  1205. +  * Add addition value to env structure
  1206. +  * Add some new publics
  1207. +  * Update patchlevel
  1208. +  * 
  1209.    * Revision 1.20  90/05/31  09:47:41  MS_user
  1210.    * Implement partial write when swapping to disk
  1211.    * 
  1212. ***************
  1213. *** 80,86 ****
  1214.    * 
  1215.    */
  1216.   
  1217. ! #define PATCHLEVEL    6
  1218.   #define    LINE_MAX    1000    /* Command line length            */
  1219.   #define HISTORY_MAX    100    /* History array length            */
  1220.                   /* Space for full file name        */
  1221. --- 85,91 ----
  1222.    * 
  1223.    */
  1224.   
  1225. ! #define PATCHLEVEL    7
  1226.   #define    LINE_MAX    1000    /* Command line length            */
  1227.   #define HISTORY_MAX    100    /* History array length            */
  1228.                   /* Space for full file name        */
  1229. ***************
  1230. *** 327,332 ****
  1231. --- 332,338 ----
  1232.       int        *errpt;
  1233.       bool    eof_p;            /* EOF processing enabled    */
  1234.       int        iofd;
  1235. +     DIR        *cdir;            /* Currently open directory    */
  1236.       struct env    *oenv;            /* Previous environment        */
  1237.   } Environ;
  1238.   
  1239. ***************
  1240. *** 622,627 ****
  1241. --- 628,635 ----
  1242.   extern void    Print_Version (int);
  1243.   extern bool    anys (char *, char *);
  1244.   extern void    Clear_Swap_File (void);
  1245. + extern C_Op    *Copy_Function (C_Op *);
  1246. + extern void    Convert_Backslashes (char *);
  1247.   
  1248.   /*
  1249.    * Interrupt handling
  1250. Index: shell/sh0.asm
  1251. Prereq: 1.10
  1252. *** ../sh16.2/shell/sh0.asm    Thu Jun 21 21:45:35 1990
  1253. --- shell/sh0.asm    Fri Aug 17 21:33:41 1990
  1254. ***************
  1255. *** 16,22 ****
  1256.   ; 2.  The sources (or parts thereof) or objects generated from the sources
  1257.   ;     (or parts of sources) cannot be sold under any circumstances.
  1258.   ;
  1259. ! ;    $Header: sh0.asm 1.10 90/05/31 17:46:31 MS_user Exp $
  1260.   ;
  1261.   ;    $Log:    sh0.asm $
  1262.   ;    Revision 1.10  90/05/31  17:46:31  MS_user
  1263. --- 16,22 ----
  1264.   ; 2.  The sources (or parts thereof) or objects generated from the sources
  1265.   ;     (or parts of sources) cannot be sold under any circumstances.
  1266.   ;
  1267. ! ;    $Header: C:/SRC/SHELL/RCS/sh0.asm 1.10 90/05/31 17:46:31 MS_user Exp $
  1268.   ;
  1269.   ;    $Log:    sh0.asm $
  1270.   ;    Revision 1.10  90/05/31  17:46:31  MS_user
  1271. Index: shell/sh1.c
  1272. Prereq: 1.16
  1273. *** ../sh16.2/shell/sh1.c    Thu Jun 21 21:46:25 1990
  1274. --- shell/sh1.c    Fri Aug 17 21:32:33 1990
  1275. ***************
  1276. *** 13,21 ****
  1277.    * 2.  The sources (or parts thereof) or objects generated from the sources
  1278.    *     (or parts of sources) cannot be sold under any circumstances.
  1279.    *
  1280. !  *    $Header: sh1.c 1.16 90/05/31 09:48:06 MS_user Exp $
  1281.    *
  1282.    *    $Log:    sh1.c $
  1283.    * Revision 1.16  90/05/31  09:48:06  MS_user
  1284.    * Implement partial write when swapping to disk
  1285.    * Add some signal lockouts to prevent corruption
  1286. --- 13,25 ----
  1287.    * 2.  The sources (or parts thereof) or objects generated from the sources
  1288.    *     (or parts of sources) cannot be sold under any circumstances.
  1289.    *
  1290. !  *    $Header: C:/SRC/SHELL/RCS/sh1.c 1.17 90/08/14 23:32:53 MS_user Exp $
  1291.    *
  1292.    *    $Log:    sh1.c $
  1293. +  * Revision 1.17  90/08/14  23:32:53  MS_user
  1294. +  * Fix memory bugs - Add malloc checking functions for debug
  1295. +  * Make Convert_Backslashes public
  1296. +  * 
  1297.    * Revision 1.16  90/05/31  09:48:06  MS_user
  1298.    * Implement partial write when swapping to disk
  1299.    * Add some signal lockouts to prevent corruption
  1300. ***************
  1301. *** 83,88 ****
  1302. --- 87,93 ----
  1303.   #include <ctype.h>
  1304.   #include <fcntl.h>
  1305.   #include <limits.h>
  1306. + #include <dirent.h>
  1307.   #include <dos.h>
  1308.   #include <time.h>
  1309.   #include "sh.h"
  1310. ***************
  1311. *** 92,98 ****
  1312. --- 97,119 ----
  1313.    * without having to know about it.
  1314.    */
  1315.   
  1316. + #undef CHECK_MALLOC
  1317. + 
  1318. + #ifdef CHECK_MALLOC
  1319. + #define    MAGIC1        0xd8a5
  1320. + #define    MAGIC2        0xa5d8
  1321. + static void        sh_free (void *);
  1322. + static void        sh_chkmem (char *, char *, size_t, bool);
  1323. + #define SH_FREE        sh_free
  1324. + #else
  1325. + #define SH_FREE        free
  1326. + #endif
  1327. + 
  1328.   typedef struct region {
  1329. + #ifdef CHECK_MALLOC
  1330. +     unsigned int    magic1;
  1331. +     unsigned int    len;
  1332. + #endif
  1333.       struct region    *next;
  1334.       int            area;
  1335.   } s_region;
  1336. ***************
  1337. *** 125,131 ****
  1338.   static void    Check_Mail (void);
  1339.   static void    Pre_Process_Argv (char **);
  1340.   static void    Load_G_VL (void);
  1341. - static void    Convert_Backslashes (char *);
  1342.   static void    Load_profiles (void);
  1343.   static void    U2D_Path (void);
  1344.   
  1345. --- 146,151 ----
  1346. ***************
  1347. *** 530,540 ****
  1348.   char    *fmt;
  1349.   {
  1350.       va_list    ap;
  1351. -     char    x[100];
  1352.   
  1353.       va_start (ap, fmt);
  1354. !     vsprintf (x, fmt, ap);
  1355. !     S_puts (x);
  1356.       exstat = -1;
  1357.   
  1358.   /* If leave on error - exit */
  1359. --- 550,558 ----
  1360.   char    *fmt;
  1361.   {
  1362.       va_list    ap;
  1363.   
  1364.       va_start (ap, fmt);
  1365. !     vfprintf (stderr, fmt, ap);
  1366.       exstat = -1;
  1367.   
  1368.   /* If leave on error - exit */
  1369. ***************
  1370. *** 553,565 ****
  1371.   char    *fmt;
  1372.   {
  1373.       va_list    ap;
  1374. -     char    x[100];
  1375.   
  1376.   /* Error message processing */
  1377.   
  1378.       va_start (ap, fmt);
  1379. !     vsprintf (x, fmt, ap);
  1380. !     S_puts (x);
  1381.       exstat = -1;
  1382.   
  1383.       if (FL_TEST ('e'))
  1384. --- 571,581 ----
  1385.   char    *fmt;
  1386.   {
  1387.       va_list    ap;
  1388.   
  1389.   /* Error message processing */
  1390.   
  1391.       va_start (ap, fmt);
  1392. !     vfprintf (stderr, fmt, ap);
  1393.       exstat = -1;
  1394.   
  1395.       if (FL_TEST ('e'))
  1396. ***************
  1397. *** 636,641 ****
  1398. --- 652,665 ----
  1399.   
  1400.       if ((ep = e.oenv) != (Environ *)NULL)
  1401.       {
  1402. + 
  1403. + /* Close any open directories */
  1404. + 
  1405. +     if (e.cdir != (DIR *)NULL)
  1406. +         closedir (e.cdir);
  1407. + 
  1408. + /* Get the files used in this environment to close */
  1409. + 
  1410.       fd = e.iofd;
  1411.       e = *ep;
  1412.   
  1413. ***************
  1414. *** 1269,1290 ****
  1415.    * Get a string in a malloced area
  1416.    */
  1417.   
  1418. ! char        *getcell(nbytes)
  1419.   unsigned int    nbytes;
  1420.   {
  1421.       s_region        *np;
  1422.       void        (*save_signal)(int);
  1423.   
  1424.       if (nbytes == 0)
  1425.       abort ();    /* silly and defeats the algorithm */
  1426.   
  1427.   /* Grab some space */
  1428.   
  1429. !     if ((np = (s_region *)calloc (nbytes + sizeof (s_region), 1)) == (s_region *)NULL)
  1430. !         return (char *)NULL;
  1431.   
  1432. ! /* Disable signals */
  1433.   
  1434.       save_signal = signal (SIGINT, SIG_IGN);
  1435.   
  1436.   /* Link into chain */
  1437.