home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume16 / ms_sh-1.6 / patch01 / Patch1.6.4 < prev   
Text File  |  1991-01-19  |  39KB  |  1,394 lines
  1. Index: Notes1.6
  2. *** ../sh16.3/Notes1.6    Fri Aug 17 21:29:59 1990
  3. --- Notes1.6    Tue Nov  6 20:47:31 1990
  4. ***************
  5. *** 1,4 ****
  6. ! Version 1.6.3 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.4 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. *** 41,47 ****
  17.       The code has been fixed to cope with DOS 4.
  18.     21.    A bug in the processing of functions has been fixed which caused
  19.       the shell to crash or hang has been fixed.
  20. ! 
  21.   The following enhancements have been made:
  22.   
  23.      1.   /dev/tty and /dev/null are mapped to /dev/con and /dev/nul internally
  24. --- 41,48 ----
  25.       The code has been fixed to cope with DOS 4.
  26.     21.    A bug in the processing of functions has been fixed which caused
  27.       the shell to crash or hang has been fixed.
  28. !   22.    A bug in the function code that caused case functions to hang
  29. !     has been fixed.
  30.   The following enhancements have been made:
  31.   
  32.      1.   /dev/tty and /dev/null are mapped to /dev/con and /dev/nul internally
  33. ***************
  34. *** 78,83 ****
  35. --- 79,87 ----
  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. +    22.  The POSIX I/O options ${#*%} and ~ have been implemented.
  40. +    23.  The builtin command command has been implemented.
  41. +    24.  The source for stdargv.c has been modified to work under OS/2
  42.   
  43.   The following enhancements/bugs remain outstanding:
  44.   
  45. ***************
  46. *** 93,98 ****
  47. --- 97,108 ----
  48.       processing of escape characters.  The shell uses the 8-bit to
  49.       mark escaped characters (Release 1.7).
  50.       
  51. +     3.  Interrupting a disk swap at the wrong time may cause the shell to
  52. +     hang.  I've tried disabling Control-Break during disk read/writes
  53. +     but this only causes the shell to hang on re-load every time in
  54. +     some environments.  In the next release, I'm going to put in some
  55. +     checks and issue re-read/writes when necessary.
  56. +     
  57.   Thanks are due to
  58.   
  59.       Greg Yachuk 
  60. ***************
  61. *** 101,106 ****
  62. --- 111,117 ----
  63.       John B Thiel 
  64.       Harry McGavran 
  65.       Bill Davidsen
  66. +     Richard J Reiner
  67.   
  68.   for their comments, fixes, tolerance etc in testing release 1.6
  69.   
  70. Index: lib/stdargv.c
  71. *** ../sh16.3/lib/stdargv.c    Fri Mar  2 11:34:58 1990
  72. --- lib/stdargv.c    Tue Nov  6 20:52:05 1990
  73. ***************
  74. *** 18,25 ****
  75.    *            This function replaces the standard MS-DOS command
  76.    *            line processing function (_setargv in stdargv.obj).
  77.    *
  78. !  *  CALLING SEQUENCE:    The following calling sequences are used:
  79.    *
  80.    *            void    _setargv ();
  81.    *
  82.    *  ERROR MESSAGES:    Out of memory
  83. --- 18,27 ----
  84.    *            This function replaces the standard MS-DOS command
  85.    *            line processing function (_setargv in stdargv.obj).
  86.    *
  87. !  *            Support for OS2 added.  Compile with -DOS2
  88.    *
  89. +  *  CALLING SEQUENCE:    The following calling sequences are used:
  90. +  *
  91.    *            void    _setargv ();
  92.    *
  93.    *  ERROR MESSAGES:    Out of memory
  94. ***************
  95. *** 32,45 ****
  96.   #include <stdio.h>            /* Standard I/O delarations         */
  97.   #include <stdlib.h>            /* Standard library functions       */
  98.   #include <errno.h>            /* Error number declarations        */
  99.   #include <dos.h>            /* DOS functions declarations       */
  100.   #include <bios.h>            /* BIOS functions declarations      */
  101.   #include <ctype.h>            /* Character type declarations      */
  102.   #include <string.h>            /* String library functions         */
  103.   #include <limits.h>            /* String library functions         */
  104.   #include <fcntl.h>            /* File Control Declarations        */
  105. - #include <io.h>                /* Input/Output Declarations        */
  106.   #include <dirent.h>            /* Direction I/O functions        */
  107.   
  108.   /*
  109.    *  DATA DEFINITIONS:
  110. --- 34,51 ----
  111.   #include <stdio.h>            /* Standard I/O delarations         */
  112.   #include <stdlib.h>            /* Standard library functions       */
  113.   #include <errno.h>            /* Error number declarations        */
  114. + #ifdef OS2
  115. + #include <os2.h>            /* OS2 functions declarations       */
  116. + #else
  117.   #include <dos.h>            /* DOS functions declarations       */
  118.   #include <bios.h>            /* BIOS functions declarations      */
  119. + #endif
  120.   #include <ctype.h>            /* Character type declarations      */
  121.   #include <string.h>            /* String library functions         */
  122.   #include <limits.h>            /* String library functions         */
  123.   #include <fcntl.h>            /* File Control Declarations        */
  124.   #include <dirent.h>            /* Direction I/O functions        */
  125. + #include <unistd.h>
  126.   
  127.   /*
  128.    *  DATA DEFINITIONS:
  129. ***************
  130. *** 65,76 ****
  131. --- 71,90 ----
  132.   static void    ex_fatal (int, char *, char *);    /* Fatal error processing*/
  133.   static char    *ex_environment (char *);    /* Process environment    */
  134.   static char    *_ex_multi_drive (char *);    /* Check for multidrive    */
  135. + static int    N_floppy_disks (void);
  136.   static char    *ex_nomem = "%s: %s\n";
  137.   
  138.   extern char far    *_pgmptr;         /* Program name            */
  139.   extern char    **__argv;         /* Current argument address    */
  140.   extern int    __argc;         /* Current argument count    */
  141.   
  142. + #ifdef OS2
  143. + static void     _dos_setdrive (unsigned int, unsigned int *);
  144. + static void     _dos_getdrive (unsigned int *);
  145. + extern ushort    _aenvseg;        /* Environment seg        */
  146. + extern ushort    _acmdln;        /* Command line offset        */
  147. + #endif
  148. + 
  149.   /*
  150.    *  MODULE ABSTRACT: _setargv
  151.    *
  152. ***************
  153. *** 79,92 ****
  154.   
  155.   void    _setargv ()
  156.   {
  157.                       /* Set up pointer to command line */
  158.       char far        *argvp = (char far *)((((long)_psp) << 16) + 0x081L);
  159.       unsigned int    envs = *(int far *)((((long)_psp) << 16) + 0x02cL);
  160.       char far        *s;         /* Temporary string pointer        */
  161. ! #ifndef M_I86LM
  162.       char        buf[MAX_LINE];    /* Temporary space        */
  163.       char        *cp;
  164. ! #endif
  165.   
  166.   /* Command line can be null or 0x0d terminated - convert to null */
  167.   
  168. --- 93,131 ----
  169.   
  170.   void    _setargv ()
  171.   {
  172. + #ifdef OS2
  173. +     char far        *argvp = (char far *)((((long)_aenvseg) << 16));
  174. +     ushort        off = _acmdln;
  175. + 
  176. +     while (--off)
  177. +     {
  178. +     if (argvp[off - 1] == 0)
  179. +          break;
  180. +     }
  181. + 
  182. + /* Add program name */
  183. + 
  184. +     _pgmptr =  &argvp[off];
  185. + 
  186. +     if (argvp[_acmdln] == 0)
  187. +     ex_add_arg (ex_tounix (_pgmptr));    /* Add the program name    */
  188. + 
  189. +     else
  190. +     {
  191. +     argvp += _acmdln;
  192. +     ex_add_arg (ex_tounix (argvp));        /* Add the program name    */
  193. +     argvp += strlen (argvp) + 1;
  194. +     exp_line (argvp);
  195. +     }
  196. + #else
  197.                       /* Set up pointer to command line */
  198.       char far        *argvp = (char far *)((((long)_psp) << 16) + 0x081L);
  199.       unsigned int    envs = *(int far *)((((long)_psp) << 16) + 0x02cL);
  200.       char far        *s;         /* Temporary string pointer        */
  201. ! #  ifndef M_I86LM
  202.       char        buf[MAX_LINE];    /* Temporary space        */
  203.       char        *cp;
  204. ! #  endif
  205.   
  206.   /* Command line can be null or 0x0d terminated - convert to null */
  207.   
  208. ***************
  209. *** 123,129 ****
  210.   
  211.       _pgmptr = s;
  212.   
  213. ! #ifndef M_I86LM
  214.       cp = buf;
  215.       while (*(cp++) = *(s++));
  216.   
  217. --- 162,168 ----
  218.   
  219.       _pgmptr = s;
  220.   
  221. ! #  ifndef M_I86LM
  222.       cp = buf;
  223.       while (*(cp++) = *(s++));
  224.   
  225. ***************
  226. *** 134,142 ****
  227.       while (*(cp++) = *(s++));
  228.   
  229.       exp_line (buf);
  230. ! #else
  231.       ex_add_arg (ex_tounix (s));        /* Add the program name        */
  232.       exp_line (argvp);
  233.   #endif
  234.   
  235.       ex_add_arg ((char *)NULL);
  236. --- 173,182 ----
  237.       while (*(cp++) = *(s++));
  238.   
  239.       exp_line (buf);
  240. ! #  else
  241.       ex_add_arg (ex_tounix (s));        /* Add the program name        */
  242.       exp_line (argvp);
  243. + #  endif
  244.   #endif
  245.   
  246.       ex_add_arg ((char *)NULL);
  247. ***************
  248. *** 262,268 ****
  249.   
  250.   /* Check to see if the second diskette drive is really there */
  251.   
  252. !         if (((_bios_equiplist () & 0x00c0) == 0x0000) && (s_drive == 2))
  253.           continue;
  254.   
  255.   /* If the drive exists and is in our list - process it */
  256. --- 302,308 ----
  257.   
  258.   /* Check to see if the second diskette drive is really there */
  259.   
  260. !         if ((N_floppy_disks () < 2) && (s_drive == 2))
  261.           continue;
  262.   
  263.   /* If the drive exists and is in our list - process it */
  264. ***************
  265. *** 619,623 ****
  266. --- 659,703 ----
  267.       }
  268.   
  269.       return (*prefix && (*(prefix + 1) == ':')) ? prefix + 1 : (char *)NULL;
  270. + }
  271. + 
  272. + /* Some OS/2 functions to emulate the DOS functions */
  273. + 
  274. + #ifdef OS2
  275. + static void     _dos_getdrive (cdp)
  276. + unsigned int    *cdp;
  277. + {
  278. +     USHORT    cdr;
  279. +     ULONG    ndr;
  280. + 
  281. +     DosQCurDisk((PUSHORT)&cdr, (PULONG) &ndr);
  282. +     *cdp = (unsigned int)cdr;
  283. + }
  284. + 
  285. + static void     _dos_setdrive (cdr, ndp)
  286. + unsigned int    cdr;
  287. + unsigned int    *ndp;
  288. + {
  289. +     USHORT    dummy;
  290. +     ULONG    ndr;
  291. + 
  292. +     DosQCurDisk((PUSHORT)&dummy, (PULONG) &ndr);
  293. +     *ndp = (unsigned int)ndr;
  294. + 
  295. +     DosSelectDisk ((USHORT)cdr);
  296. + }
  297. + #endif
  298. + 
  299. + /* Return the number of floppy disks */
  300. + 
  301. + static    int    N_floppy_disks ()
  302. + {
  303. + #ifdef OS2
  304. +     BYTE    nflop = 1;
  305. +     DosDevConfig (&nflop, 2, 0);
  306. +     return nflop;
  307. + #else
  308. +     return ((_bios_equiplist () & 0x00c0) >> 6) + 1;
  309. + #endif
  310.   }
  311.   #endif
  312. Index: sh.1
  313. Prereq: 1.11
  314. *** ../sh16.3/sh.1    Fri Aug 17 21:31:41 1990
  315. --- sh.1    Tue Nov  6 20:11:17 1990
  316. ***************
  317. *** 14,22 ****
  318.   .\" 2.  The sources (or parts thereof) or objects generated from the sources
  319.   .\"     (or parts of sources) cannot be sold under any circumstances.
  320.   .\"
  321. ! .\"    $Header: C:/SRC/SHELL/RCS/sh.1 1.11 90/08/14 23:17:25 Ian_Stewartson Exp $
  322.   .\"
  323.   .\"    $Log:    sh.1 $
  324.   .\"    Revision 1.11  90/08/14  23:17:25  Ian_Stewartson
  325.   .\"    Add IO read/write open
  326.   .\"    
  327. --- 14,26 ----
  328.   .\" 2.  The sources (or parts thereof) or objects generated from the sources
  329.   .\"     (or parts of sources) cannot be sold under any circumstances.
  330.   .\"
  331. ! .\"    $Header: D:/SRC/SHELL/RCS/sh.1 1.12 90/11/06 20:08:46 Ian_Stewartson Exp $
  332.   .\"
  333.   .\"    $Log:    sh.1 $
  334. + .\"    Revision 1.12  90/11/06  20:08:46  Ian_Stewartson
  335. + .\"    Add POSIX options {#%*} and ~
  336. + .\"    Add builtin command
  337. + .\"    
  338.   .\"    Revision 1.11  90/08/14  23:17:25  Ian_Stewartson
  339.   .\"    Add IO read/write open
  340.   .\"    
  341. ***************
  342. *** 163,172 ****
  343.   .SS Comments
  344.   A word beginning with \fB#\fR causes that word and all the following
  345.   characters up to a new-line to be ignored.
  346.   .SS Command Substitution
  347. ! The standard output from a command enclosed in a pair of grave accents
  348. ! (\fB\(ga\(ga\fR) may be used as part or all of a word; trailing new-lines
  349. ! are removed.
  350.   .SS Parameter Substitution
  351.   The character \fB$\fR is used to introduce substitutable \fIparameters\fR.
  352.   There are two types of parameters, positional and keyword.  If \fIparameter\fR
  353. --- 167,179 ----
  354.   .SS Comments
  355.   A word beginning with \fB#\fR causes that word and all the following
  356.   characters up to a new-line to be ignored.
  357. + .SS Tilde Substitution
  358. + Each word is checked to see if it begins with an unquoted\fB~\fR.  If it is,
  359. + the \fB~\fR is replaced by the value of the \fBHOME\fR parameter.    
  360.   .SS Command Substitution
  361. ! The standard output from a command enclosed in parenthesis preceded by a
  362. ! dollar sign (\fB$()\fR), or in a pair of grave accents (\fB\(ga\(ga\fR) may
  363. ! be used as part or all of a word; trailing new-lines are removed.
  364.   .SS Parameter Substitution
  365.   The character \fB$\fR is used to introduce substitutable \fIparameters\fR.
  366.   There are two types of parameters, positional and keyword.  If \fIparameter\fR
  367. ***************
  368. *** 184,196 ****
  369.   .PD 0
  370.   .TP
  371.   \fB${\fIparameter\fB}\fR
  372. ! The value, if any, of the parameter is substituted.  The braces are required
  373. ! only when \fIparameter\fR is followed by a letter, digit, or underscore that
  374. ! is not to be interpreted as part of its name.  If \fIparameter\fR is
  375. ! \fB*\fR or \fB@\fR, all the positional parameters, starting with \fB$1\fR,
  376. ! are substituted (separated by spaces).  Parameter \fB$0\fR is set from argument
  377. ! zero when the shell is invoked.
  378.   .TP
  379.   \fB${\fIparameter\fB:-\fIword\fB}\fR
  380.   If \fIparameter\fR is set and is non-null, substitute its value; otherwise
  381.   substitute \fIword\fR.
  382. --- 191,208 ----
  383.   .PD 0
  384.   .TP
  385.   \fB${\fIparameter\fB}\fR
  386. ! The value, if any, of the \fIparameter\fR is substituted.  The braces are
  387. ! required only when \fIparameter\fR is followed by a letter, digit, or
  388. ! underscore that is not to be interpreted as part of its name.  If
  389. ! \fIparameter\fR is \fB*\fR or \fB@\fR, all the positional parameters, starting
  390. ! with \fB$1\fR, are substituted (separated by spaces).  Parameter \fB$0\fR is
  391. ! set from argument zero when the shell is invoked.
  392.   .TP
  393. + \fB${#\fIparameter\fB}\fR
  394. + If \fIparameter\fR is \fB*\fR or \fB@\fR, the number of positional parameters
  395. + is substituted.  Otherwise, the length of the value of the \fIparameter\fR is
  396. + substituted.
  397. + .TP
  398.   \fB${\fIparameter\fB:-\fIword\fB}\fR
  399.   If \fIparameter\fR is set and is non-null, substitute its value; otherwise
  400.   substitute \fIword\fR.
  401. ***************
  402. *** 208,213 ****
  403. --- 220,242 ----
  404.   \fB${\fIparameter\fB:+\fIword\fB}\fR
  405.   If \fIparameter\fR is set and is non-null, substitute \fIword\fR; otherwise
  406.   substitute nothing.
  407. + .TP
  408. + \fB${\fIparameter\fB#\fIpattern\fB}\fR
  409. + \fB${\fIparameter\fB##\fIpattern\fB}\fR
  410. + If the Shell \fIpattern\fR matches the beginning of the value of
  411. + \fIparameter\fR, then the value of this substitution is the value of the
  412. + \fIparameter\fR with the matched portion deleted; otherwise the value of
  413. + this \fIparameter\fR is substituted.  In the first form the smallest matching
  414. + \fIpattern\fR is deleted and in the latter form the largest matching
  415. + \fIpattern\fR is deleted.
  416. + .TP
  417. + \fB${\fIparameter\fB%\fIpattern\fB}\fR
  418. + \fB${\fIparameter\fB%%\fIpattern\fB}\fR
  419. + If the Shell \fIpattern\fR matches the end of the value of \fIparameter\fR,
  420. + then the value of this substitution is the value of the \fIparameter\fR with
  421. + the matched portion deleted; otherwise the value of this \fIparameter\fR is
  422. + substituted.  In the first form the smallest matching \fIpattern\fR is deleted
  423. + and in the latter form the largest matching \fIpattern\fR is deleted.
  424.   .PD
  425.   .PP
  426.   In the above, \fIword\fR is not evaluated unless it is to be used as the
  427. ***************
  428. *** 830,835 ****
  429. --- 859,886 ----
  430.   Exit from the enclosing \fBfor\fR or \fBwhile\fR loop, if any.  If \fIn\fR is
  431.   specified, break \fIn\fR levels.
  432.   .TP
  433. + \fBbuiltin\fR \*(OK \fIargs\fR ... \*(CK
  434. + Force the selection of the \fBbuiltin\fR version of a command.  The builtin
  435. + shell command selected by the first \fIargs\fR value is executed with the
  436. + parameters defined by the remaining \fIargs\fRs.  If no arguments are given,
  437. + a list of all \fIbuiltin\fR commands is printed.
  438. + .sp
  439. + If the first argument is one of the following, the processing of the
  440. + builtin command in the following arguments are changed as indicated:
  441. + .RS
  442. + .TP
  443. + \fB-a\fR
  444. + Set the following builtin commands to use builtin version in preference to
  445. + any function or external versions.
  446. + .TP
  447. + \fB-d\fR
  448. + Set the following builtin commands to use the function or external version
  449. + in preference to the builtin version.
  450. + .TP
  451. + \fB-s\fR
  452. + Display the current status of the following builtin commands.
  453. + .RE
  454. + .TP
  455.   \fBcontinue\fR \*(OK \fIn\fR \*(CK
  456.   Resume the next iteration of the enclosing \fBfor\fR or \fBwhile\fR loop.  If
  457.   \fIn\fR is specified, resume at the \fIn\fR-th enclosing loop.
  458. ***************
  459. *** 986,992 ****
  460.   \fBmsdos\fR \*(OK \fIname\fR ... \*(CK
  461.   The given \fIname\fRs are marked \fImsdos\fR format and if the \fB-m\fR flag
  462.   is set, the values of the these \fIname\fRs are exported to child processes
  463. ! with any slashes in the value replaced by backslashes.
  464.   .TP
  465.   \fBpwd\fR
  466.   Print the current working directory.  
  467. --- 1037,1044 ----
  468.   \fBmsdos\fR \*(OK \fIname\fR ... \*(CK
  469.   The given \fIname\fRs are marked \fImsdos\fR format and if the \fB-m\fR flag
  470.   is set, the values of the these \fIname\fRs are exported to child processes
  471. ! with any slashes in the value replaced by backslashes.  If no arguments are
  472. ! given, a list of all \fImsdos\fR names is printed.
  473.   .TP
  474.   \fBpwd\fR
  475.   Print the current working directory.  
  476. Index: shell/sh.h
  477. Prereq: 1.21
  478. *** ../sh16.3/shell/sh.h    Fri Aug 17 21:33:20 1990
  479. --- shell/sh.h    Tue Nov  6 19:18:37 1990
  480. ***************
  481. *** 13,21 ****
  482.    * 2.  The sources (or parts thereof) or objects generated from the sources
  483.    *     (or parts of sources) cannot be sold under any circumstances.
  484.    *
  485. !  *    $Header: C:/SRC/SHELL/RCS/sh.h 1.21 90/08/14 23:54:44 MS_user Exp $
  486.    *
  487.    *    $Log:    sh.h $
  488.    * Revision 1.21  90/08/14  23:54:44  MS_user
  489.    * Add addition value to env structure
  490.    * Add some new publics
  491. --- 13,27 ----
  492.    * 2.  The sources (or parts thereof) or objects generated from the sources
  493.    *     (or parts of sources) cannot be sold under any circumstances.
  494.    *
  495. !  *    $Header: D:/SRC/SHELL/RCS/sh.h 1.23 90/09/19 15:29:54 Ian_Stewartson Exp $
  496.    *
  497.    *    $Log:    sh.h $
  498. +  * Revision 1.23  90/09/19  15:29:54  Ian_Stewartson
  499. +  * Allow builtin commands to selected/de-selected
  500. +  * 
  501. +  * Revision 1.22  90/08/24  21:53:13  Ian_Stewartson
  502. +  * Add support for POSIX macro command {x#y} and {x%y}
  503. +  * 
  504.    * Revision 1.21  90/08/14  23:54:44  MS_user
  505.    * Add addition value to env structure
  506.    * Add some new publics
  507. ***************
  508. *** 85,91 ****
  509.    * 
  510.    */
  511.   
  512. ! #define PATCHLEVEL    7
  513.   #define    LINE_MAX    1000    /* Command line length            */
  514.   #define HISTORY_MAX    100    /* History array length            */
  515.                   /* Space for full file name        */
  516. --- 91,97 ----
  517.    * 
  518.    */
  519.   
  520. ! #define PATCHLEVEL    8
  521.   #define    LINE_MAX    1000    /* Command line length            */
  522.   #define HISTORY_MAX    100    /* History array length            */
  523.                   /* Space for full file name        */
  524. ***************
  525. *** 168,179 ****
  526.   struct    builtin {
  527.       char    *command;
  528.       int        (*fn)(C_Op *);
  529.   };
  530.   
  531.   /*
  532. !  * actions determining the environment of a process
  533.    */
  534.   
  535.   #define    FEXEC        0x0001    /* execute without forking        */
  536.   
  537.   /* MSDOS Memory Control Block chain structure */
  538. --- 174,193 ----
  539.   struct    builtin {
  540.       char    *command;
  541.       int        (*fn)(C_Op *);
  542. +     int        mode;
  543.   };
  544.   
  545.   /*
  546. !  * Valid values of mode
  547.    */
  548.   
  549. + #define BLT_ALWAYS    0x0001    /* Always use builtin version        */
  550. + #define BLT_CURRENT    0x0002    /* Currently use builtin version    */
  551. + 
  552. + /*
  553. +  * actions determining the environment of a process
  554. +  */
  555. + 
  556.   #define    FEXEC        0x0001    /* execute without forking        */
  557.   
  558.   /* MSDOS Memory Control Block chain structure */
  559. ***************
  560. *** 376,384 ****
  561.                       /* depth            */
  562.   
  563.   /*
  564. !  * Variable list
  565.    */
  566.   
  567.   typedef struct var {
  568.       char        *value;        /* Value            */
  569.       char        *name;        /* Name                */
  570. --- 390,407 ----
  571.                       /* depth            */
  572.   
  573.   /*
  574. !  * Mode values for new gmatch 
  575.    */
  576.   
  577. + #define GM_ALL        0        /* Match full string        */
  578. + #define GM_SHORTEST    1        /* Shortest prefix/suffix    */
  579. + #define GM_LONGEST    2        /* Longest prefix/suffix    */
  580. + 
  581. + /*
  582. + /*
  583. +  * Variable list
  584. +  */
  585. + 
  586.   typedef struct var {
  587.       char        *value;        /* Value            */
  588.       char        *name;        /* Name                */
  589. ***************
  590. *** 531,537 ****
  591.   extern void    s_vstatus (Var_List *, int);
  592.   extern bool    isassign (char *);
  593.   extern bool    assign (char *, int);
  594. ! extern bool    gmatch (char *, char *, bool);
  595.   extern char    *getcell (unsigned int);
  596.   extern void    freecell (char *);
  597.   extern void    freearea (int);
  598. --- 554,561 ----
  599.   extern void    s_vstatus (Var_List *, int);
  600.   extern bool    isassign (char *);
  601.   extern bool    assign (char *, int);
  602. ! extern bool    gmatch (char *, char *, bool, char **, int);
  603. ! extern bool    gmatch_suffix (char *, char *, bool, char **, int);
  604.   extern char    *getcell (unsigned int);
  605.   extern void    freecell (char *);
  606.   extern void    freearea (int);
  607. ***************
  608. *** 574,580 ****
  609.   extern void    put_prompt (char *);
  610.   extern bool    eqname (char *, char *);
  611.   extern bool    any (char, char *);
  612. ! extern int    (*inbuilt (char *))();
  613.   extern char    *path_append (char *, char *, char *);
  614.   extern void    unset (char *, bool);
  615.   extern int    S_open (bool, char *, int, ...);
  616. --- 598,604 ----
  617.   extern void    put_prompt (char *);
  618.   extern bool    eqname (char *, char *);
  619.   extern bool    any (char, char *);
  620. ! extern int    (*inbuilt (char *, bool *))();
  621.   extern char    *path_append (char *, char *, char *);
  622.   extern void    unset (char *, bool);
  623.   extern int    S_open (bool, char *, int, ...);
  624. Index: shell/sh0.asm
  625. Prereq: 1.10
  626. *** ../sh16.3/shell/sh0.asm    Fri Aug 17 21:33:41 1990
  627. --- shell/sh0.asm    Tue Nov  6 19:19:30 1990
  628. ***************
  629. *** 16,22 ****
  630.   ; 2.  The sources (or parts thereof) or objects generated from the sources
  631.   ;     (or parts of sources) cannot be sold under any circumstances.
  632.   ;
  633. ! ;    $Header: C:/SRC/SHELL/RCS/sh0.asm 1.10 90/05/31 17:46:31 MS_user Exp $
  634.   ;
  635.   ;    $Log:    sh0.asm $
  636.   ;    Revision 1.10  90/05/31  17:46:31  MS_user
  637. --- 16,22 ----
  638.   ; 2.  The sources (or parts thereof) or objects generated from the sources
  639.   ;     (or parts of sources) cannot be sold under any circumstances.
  640.   ;
  641. ! ;    $Header: D:/SRC/SHELL/RCS/sh0.asm 1.10 90/05/31 17:46:31 MS_user Exp $
  642.   ;
  643.   ;    $Log:    sh0.asm $
  644.   ;    Revision 1.10  90/05/31  17:46:31  MS_user
  645. Index: shell/sh1.c
  646. Prereq: 1.17
  647. *** ../sh16.3/shell/sh1.c    Fri Aug 17 21:32:33 1990
  648. --- shell/sh1.c    Tue Nov  6 19:20:30 1990
  649. ***************
  650. *** 13,77 ****
  651.    * 2.  The sources (or parts thereof) or objects generated from the sources
  652.    *     (or parts of sources) cannot be sold under any circumstances.
  653.    *
  654. !  *    $Header: C:/SRC/SHELL/RCS/sh1.c 1.17 90/08/14 23:32:53 MS_user Exp $
  655.    *
  656.    *    $Log:    sh1.c $
  657.    * Revision 1.17  90/08/14  23:32:53  MS_user
  658.    * Fix memory bugs - Add malloc checking functions for debug
  659.    * Make Convert_Backslashes public
  660. !  * 
  661.    * Revision 1.16  90/05/31  09:48:06  MS_user
  662.    * Implement partial write when swapping to disk
  663.    * Add some signal lockouts to prevent corruption
  664. !  * 
  665.    * Revision 1.15  90/05/15  21:08:59  MS_user
  666.    * Restore original directory on exit
  667. !  * 
  668.    * Revision 1.14  90/04/25  22:33:28  MS_user
  669.    * Fix rsh check for PATH
  670. !  * 
  671.    * Revision 1.13  90/04/25  09:18:12  MS_user
  672.    * Change version message processing
  673. !  * 
  674.    * Revision 1.12  90/04/04  11:32:12  MS_user
  675.    * Change MAILPATH to use a semi-colon and not a colon for DOS
  676. !  * 
  677.    * Revision 1.11  90/04/03  17:58:35  MS_user
  678.    * Stop shell exit from lowest level CLI
  679. !  * 
  680.    * Revision 1.10  90/03/27  20:24:49  MS_user
  681.    * Fix problem with Interrupts not restoring std??? and clearing extended file
  682. !  * 
  683.    * Revision 1.9  90/03/26  20:56:13  MS_user
  684.    * Change I/O restore so that "exec >filename" works
  685. !  * 
  686.    * Revision 1.8  90/03/26  04:30:14  MS_user
  687.    * Remove original Interrupt 24 save address
  688. !  * 
  689.    * Revision 1.7  90/03/12  20:16:22  MS_user
  690.    * Save program name for Initialisation file processing
  691. !  * 
  692.    * Revision 1.6  90/03/09  16:05:33  MS_user
  693.    * Add build file name function and change the profile check to use it
  694. !  * 
  695.    * Revision 1.5  90/03/06  16:49:14  MS_user
  696.    * Add disable history option
  697. !  * 
  698.    * Revision 1.4  90/03/06  15:09:27  MS_user
  699.    * Add Unix PATH variable conversion
  700. !  * 
  701.    * Revision 1.3  90/03/05  13:47:45  MS_user
  702.    * Get /etc/profile and profile order rigth
  703.    * Use $HOME/profile and not profile
  704.    * Check cursor position before outputing prompt
  705.    * Move some of processing in main to sub-routines
  706. !  * 
  707.    * Revision 1.2  90/02/14  04:46:20  MS_user
  708.    * Add Interrupt 24 processing
  709. !  * 
  710.    * Revision 1.1  90/01/25  13:40:39  MS_user
  711.    * Initial revision
  712. !  * 
  713.    */
  714.   
  715.   #include <sys/types.h>
  716. --- 13,83 ----
  717.    * 2.  The sources (or parts thereof) or objects generated from the sources
  718.    *     (or parts of sources) cannot be sold under any circumstances.
  719.    *
  720. !  *    $Header: D:/SRC/SHELL/RCS/sh1.c 1.19 90/11/06 19:13:39 Ian_Stewartson Exp $
  721.    *
  722.    *    $Log:    sh1.c $
  723. +  * Revision 1.19  90/11/06  19:13:39  Ian_Stewartson
  724. +  * Add deletion of swap file on interrupt
  725. +  * 
  726. +  * Revision 1.18  90/08/24  21:54:05  Ian_Stewartson
  727. +  * Add support for POSIX macro command {x#y} and {x%y}
  728. +  * 
  729.    * Revision 1.17  90/08/14  23:32:53  MS_user
  730.    * Fix memory bugs - Add malloc checking functions for debug
  731.    * Make Convert_Backslashes public
  732. !  *
  733.    * Revision 1.16  90/05/31  09:48:06  MS_user
  734.    * Implement partial write when swapping to disk
  735.    * Add some signal lockouts to prevent corruption
  736. !  *
  737.    * Revision 1.15  90/05/15  21:08:59  MS_user
  738.    * Restore original directory on exit
  739. !  *
  740.    * Revision 1.14  90/04/25  22:33:28  MS_user
  741.    * Fix rsh check for PATH
  742. !  *
  743.    * Revision 1.13  90/04/25  09:18:12  MS_user
  744.    * Change version message processing
  745. !  *
  746.    * Revision 1.12  90/04/04  11:32:12  MS_user
  747.    * Change MAILPATH to use a semi-colon and not a colon for DOS
  748. !  *
  749.    * Revision 1.11  90/04/03  17:58:35  MS_user
  750.    * Stop shell exit from lowest level CLI
  751. !  *
  752.    * Revision 1.10  90/03/27  20:24:49  MS_user
  753.    * Fix problem with Interrupts not restoring std??? and clearing extended file
  754. !  *
  755.    * Revision 1.9  90/03/26  20:56:13  MS_user
  756.    * Change I/O restore so that "exec >filename" works
  757. !  *
  758.    * Revision 1.8  90/03/26  04:30:14  MS_user
  759.    * Remove original Interrupt 24 save address
  760. !  *
  761.    * Revision 1.7  90/03/12  20:16:22  MS_user
  762.    * Save program name for Initialisation file processing
  763. !  *
  764.    * Revision 1.6  90/03/09  16:05:33  MS_user
  765.    * Add build file name function and change the profile check to use it
  766. !  *
  767.    * Revision 1.5  90/03/06  16:49:14  MS_user
  768.    * Add disable history option
  769. !  *
  770.    * Revision 1.4  90/03/06  15:09:27  MS_user
  771.    * Add Unix PATH variable conversion
  772. !  *
  773.    * Revision 1.3  90/03/05  13:47:45  MS_user
  774.    * Get /etc/profile and profile order rigth
  775.    * Use $HOME/profile and not profile
  776.    * Check cursor position before outputing prompt
  777.    * Move some of processing in main to sub-routines
  778. !  *
  779.    * Revision 1.2  90/02/14  04:46:20  MS_user
  780.    * Add Interrupt 24 processing
  781. !  *
  782.    * Revision 1.1  90/01/25  13:40:39  MS_user
  783.    * Initial revision
  784. !  *
  785.    */
  786.   
  787.   #include <sys/types.h>
  788. ***************
  789. *** 528,534 ****
  790.   
  791.       Clear_Swap_File ();
  792.   
  793. ! /* If this is a command only - restore the directory because DOS doesn't 
  794.    * and the user might expect it
  795.    */
  796.   
  797. --- 534,540 ----
  798.   
  799.       Clear_Swap_File ();
  800.   
  801. ! /* If this is a command only - restore the directory because DOS doesn't
  802.    * and the user might expect it
  803.    */
  804.   
  805. ***************
  806. *** 713,720 ****
  807.       signal (SIGINT, onintr);
  808.       SW_intr = 1;
  809.   
  810. ! /* Are we talking to the user?  Yes - check in parser */
  811.   
  812.       if (talking)
  813.       {
  814.       if (inparse)
  815. --- 719,731 ----
  816.       signal (SIGINT, onintr);
  817.       SW_intr = 1;
  818.   
  819. ! /* Zap the swap file, just in case it got corrupted */
  820.   
  821. +     S_close (SW_fp, TRUE);
  822. +     Clear_Swap_File ();
  823. + 
  824. + /* Are we talking to the user?  Yes - check in parser */
  825. + 
  826.       if (talking)
  827.       {
  828.       if (inparse)
  829. ***************
  830. *** 775,782 ****
  831. --- 786,800 ----
  832.   register int    i;
  833.   {
  834.       if (i == SIGINT)        /* Need this because swapper sets it    */
  835. +     {
  836.       SW_intr = 0;
  837.   
  838. + /* Zap the swap file, just in case it got corrupted */
  839. + 
  840. +     S_close (SW_fp, TRUE);
  841. +     Clear_Swap_File ();
  842. +     }
  843. + 
  844.       trapset = i;
  845.       signal (i, sig);
  846.   }
  847. ***************
  848. *** 1185,1298 ****
  849.   }
  850.   
  851.   /*
  852. !  * Match a pattern as in sh(1).
  853.    */
  854.   
  855. ! bool        gmatch (s, p, IgnoreCase)
  856. ! register char    *s, *p;
  857.   bool        IgnoreCase;
  858.   {
  859. !     register int    sc, pc;
  860.   
  861. !     if ((s == (char *)NULL) || (p == (char *)NULL))
  862.       return FALSE;
  863.   
  864. !     while ((pc = *(p++) & CMASK) != '\0')
  865.       {
  866. !     sc = *(s++) & QMASK;
  867.   
  868. !     switch (pc)
  869.       {
  870.           case '[':            /* Class expression        */
  871. !         if ((p = cclass (p, sc, IgnoreCase)) == (char *)NULL)
  872.               return FALSE;
  873.   
  874.           break;
  875.   
  876.           case '?':            /* Match any character        */
  877. !         if (sc == 0)
  878.               return FALSE;
  879.   
  880.           break;
  881.   
  882.           case '*':            /* Match as many as possible    */
  883. !         s--;
  884.           do
  885.           {
  886. !             if (!*p || gmatch (s, p, IgnoreCase))
  887. !             return TRUE;
  888.   
  889. !         } while (*(s++));
  890.   
  891. !         return FALSE;
  892.   
  893.           default:
  894.           if (IgnoreCase)
  895.           {
  896. !             sc = tolower (sc);
  897. !             pc = tolower ((pc & ~QUOTE));
  898.           }
  899.   
  900. !         if (sc != (pc & ~QUOTE))
  901.               return FALSE;
  902.       }
  903.       }
  904.   
  905. !     return (*s == 0) ? TRUE : FALSE;
  906. ! }
  907.   
  908.   /*
  909.    * Process a class expression - []
  910.    */
  911.   
  912. ! static char    *cclass (p, sub, IgnoreCase)
  913. ! register char    *p;
  914. ! register int    sub;
  915.   bool        IgnoreCase;
  916.   {
  917. !     register int    c, d, not, found;
  918.   
  919.   /* Exclusive or inclusive class */
  920.   
  921. !     if ((not = *p == NOT) != 0)
  922. !     p++;
  923.   
  924.       found = not;
  925.   
  926.       do
  927.       {
  928. !     if (!*p)
  929.           return (char *)NULL;
  930.   
  931.   /* Get the next character in class, converting to lower case if necessary */
  932.   
  933. !     c = IgnoreCase ? tolower ((*p & CMASK)) : (*p & CMASK);
  934.   
  935.   /* If this is a range, get the end of range character */
  936.   
  937. !     if ((*(p + 1) == '-') && (*(p + 2) != ']'))
  938.       {
  939. !         d = IgnoreCase ? tolower ((*(p + 2) & CMASK)) : (*(p + 2) & CMASK);
  940. !         p++;
  941.       }
  942.   
  943.       else
  944. !         d = c;
  945.   
  946.   /* Is the current character in the class? */
  947.   
  948. !     if ((c <= sub) && (sub <= d))
  949.           found = !not;
  950.   
  951. !     } while (*(++p) != ']');
  952.   
  953. !     return found ? p + 1 : (char *)NULL;
  954.   }
  955.   
  956.   /*
  957. !  * Get a string in a malloced area
  958.    */
  959.   
  960.   char        *getcell (nbytes)
  961.   unsigned int    nbytes;
  962.   {
  963. --- 1203,1381 ----
  964.   }
  965.   
  966.   /*
  967. !  * Match a pattern as in sh(1).  Enhancement to handle prefix processing
  968. !  *
  969. !  * IgnoreCase - ignore case on comparisions.
  970. !  * end - end of match in 'string'.
  971. !  * mode - mode for match processing - see GM_ flags in sh.h
  972.    */
  973.   
  974. ! bool        gmatch (string, pattern, IgnoreCase, end, mode)
  975. ! register char    *string, *pattern;
  976.   bool        IgnoreCase;
  977. + char        **end;
  978. + int        mode;
  979.   {
  980. !     register int    string_c, pattern_c;
  981. !     char        *save_end;
  982.   
  983. !     if ((string == (char *)NULL) || (pattern == (char *)NULL))
  984.       return FALSE;
  985.   
  986. !     while ((pattern_c = *(pattern++) & CMASK) != '\0')
  987.       {
  988. !     string_c = *(string++) & QMASK;
  989.   
  990. !     switch (pattern_c)
  991.       {
  992.           case '[':            /* Class expression        */
  993. !         if ((pattern = cclass (pattern, string_c, IgnoreCase)) == (char *)NULL)
  994.               return FALSE;
  995.   
  996.           break;
  997.   
  998.           case '?':            /* Match any character        */
  999. !         if (string_c == 0)
  1000.               return FALSE;
  1001.   
  1002.           break;
  1003.   
  1004.           case '*':            /* Match as many as possible    */
  1005. !         --string;
  1006. !         save_end = (char *)NULL;
  1007. ! 
  1008.           do
  1009.           {
  1010. !             if (!*pattern ||
  1011. !             gmatch (string, pattern, IgnoreCase, end, mode))
  1012. !             {
  1013. !             if (mode == GM_LONGEST)
  1014. !                 save_end = *end;
  1015.   
  1016. !             else
  1017. !                 return TRUE;
  1018. !             }
  1019.   
  1020. !         } while (*(string++));
  1021.   
  1022. +         if (end != (char **)NULL)
  1023. +             *end = save_end;
  1024. + 
  1025. +         return (save_end == (char *)NULL) ? FALSE : TRUE;
  1026. + 
  1027.           default:
  1028.           if (IgnoreCase)
  1029.           {
  1030. !             string_c = tolower (string_c);
  1031. !             pattern_c = tolower ((pattern_c & ~QUOTE));
  1032.           }
  1033.   
  1034. !         if (string_c != (pattern_c & ~QUOTE))
  1035.               return FALSE;
  1036.       }
  1037.       }
  1038.   
  1039. !     if (end != (char **)NULL)
  1040. !     {
  1041. !     *end = string;
  1042. !     return TRUE;
  1043. !     }
  1044.   
  1045. +     return (*string == 0) ? TRUE : FALSE;
  1046. + }
  1047. + 
  1048.   /*
  1049.    * Process a class expression - []
  1050.    */
  1051.   
  1052. ! static char    *cclass (pattern, string_c, IgnoreCase)
  1053. ! register char    *pattern;
  1054. ! register int    string_c;
  1055.   bool        IgnoreCase;
  1056.   {
  1057. !     register int    llimit_c, ulimit_c, not, found;
  1058.   
  1059.   /* Exclusive or inclusive class */
  1060.   
  1061. !     if ((not = *pattern == NOT) != 0)
  1062. !     pattern++;
  1063.   
  1064.       found = not;
  1065.   
  1066.       do
  1067.       {
  1068. !     if (!*pattern)
  1069.           return (char *)NULL;
  1070.   
  1071.   /* Get the next character in class, converting to lower case if necessary */
  1072.   
  1073. !     llimit_c = IgnoreCase ? tolower ((*pattern & CMASK))
  1074. !                   : (*pattern & CMASK);
  1075.   
  1076.   /* If this is a range, get the end of range character */
  1077.   
  1078. !     if ((*(pattern + 1) == '-') && (*(pattern + 2) != ']'))
  1079.       {
  1080. !         ulimit_c = IgnoreCase ? tolower ((*(pattern + 2) & CMASK))
  1081. !                   : (*(pattern + 2) & CMASK);
  1082. !         pattern++;
  1083.       }
  1084.   
  1085.       else
  1086. !         ulimit_c = llimit_c;
  1087.   
  1088.   /* Is the current character in the class? */
  1089.   
  1090. !     if ((llimit_c <= string_c) && (string_c <= ulimit_c))
  1091.           found = !not;
  1092.   
  1093. !     } while (*(++pattern) != ']');
  1094.   
  1095. !     return found ? pattern + 1 : (char *)NULL;
  1096.   }
  1097.   
  1098.   /*
  1099. !  * Suffix processing - find the longest/shortest suffix.
  1100.    */
  1101.   
  1102. + bool        gmatch_suffix (string, pattern, IgnoreCase, start, mode)
  1103. + register char    *string, *pattern;
  1104. + bool        IgnoreCase;
  1105. + char        **start;
  1106. + int        mode;
  1107. + {
  1108. +     char    *save_start = (char *)NULL;
  1109. + 
  1110. + /* Scan the string, looking for a match to the end */
  1111. + 
  1112. +     while (*string)
  1113. +     {
  1114. +     if (gmatch (string, pattern, IgnoreCase, (char **)NULL, GM_ALL))
  1115. +     {
  1116. + 
  1117. + /* If longest, stop here */
  1118. + 
  1119. +         if (mode == GM_LONGEST)
  1120. +         {
  1121. +         *start = string;
  1122. +         return TRUE;
  1123. +         }
  1124. + 
  1125. + /* Save the start of the shortest string so far and continue */
  1126. + 
  1127. +         save_start = string;
  1128. +     }
  1129. + 
  1130. +     ++string;
  1131. +     }
  1132. + 
  1133. +     return ((*start = save_start) == (char *)NULL) ? FALSE : TRUE;
  1134. + }
  1135. + 
  1136. + /*
  1137. +  * Get a string in a malloced area
  1138. +  */
  1139. + 
  1140.   char        *getcell (nbytes)
  1141.   unsigned int    nbytes;
  1142.   {
  1143. ***************
  1144. *** 1323,1329 ****
  1145.       print_warn ("Malloc access to bad segment\n");
  1146.       return (char *)NULL;
  1147.       }
  1148. !     
  1149.       np->magic1             = MAGIC1;
  1150.       np->len               = nbytes;
  1151.       rp                          = (char *)(np + 1);
  1152. --- 1406,1412 ----
  1153.       print_warn ("Malloc access to bad segment\n");
  1154.       return (char *)NULL;
  1155.       }
  1156. ! 
  1157.       np->magic1             = MAGIC1;
  1158.       np->len               = nbytes;
  1159.       rp                          = (char *)(np + 1);
  1160. ***************
  1161. *** 1362,1370 ****
  1162.   /* Disable signals */
  1163.   
  1164.       save_signal = signal (SIGINT, SIG_IGN);
  1165. -     
  1166. - /* Find the string in the chain */
  1167.   
  1168.       if (s != (char *)NULL)
  1169.       {
  1170.       while (cp != (s_region *)NULL)
  1171. --- 1445,1453 ----
  1172.   /* Disable signals */
  1173.   
  1174.       save_signal = signal (SIGINT, SIG_IGN);
  1175.   
  1176. + /* Find the string in the chain */
  1177. + 
  1178.       if (s != (char *)NULL)
  1179.       {
  1180.       while (cp != (s_region *)NULL)
  1181. ***************
  1182. *** 2012,2018 ****
  1183.       str1++;
  1184.       str2++;
  1185.       }
  1186. !     
  1187.       return rtn;
  1188.   }
  1189.   
  1190. --- 2095,2101 ----
  1191.       str1++;
  1192.       str2++;
  1193.       }
  1194. ! 
  1195.       return rtn;
  1196.   }
  1197.   
  1198. ***************
  1199. *** 2064,2074 ****
  1200.   
  1201.       while (--len >= 0)
  1202.       {
  1203. !     if ((*(str1++) = *(str2++)) == 0)    
  1204.       {
  1205.           while (--len >= 0)
  1206.           *(str1++) = 0;
  1207. !         
  1208.           break;
  1209.       }
  1210.       }
  1211. --- 2147,2157 ----
  1212.   
  1213.       while (--len >= 0)
  1214.       {
  1215. !     if ((*(str1++) = *(str2++)) == 0)
  1216.       {
  1217.           while (--len >= 0)
  1218.           *(str1++) = 0;
  1219. ! 
  1220.           break;
  1221.       }
  1222.       }
  1223. Index: shell/sh3.c
  1224. Prereq: 1.24
  1225. *** ../sh16.3/shell/sh3.c    Fri Aug 17 21:34:34 1990
  1226. --- shell/sh3.c    Tue Nov  6 19:21:26 1990
  1227. ***************
  1228. *** 13,21 ****
  1229.    * 2.  The sources (or parts thereof) or objects generated from the sources
  1230.    *     (or parts of sources) cannot be sold under any circumstances.
  1231.    *
  1232. !  *    $Header: C:/SRC/SHELL/RCS/sh3.c 1.24 90/08/16 10:28:47 Ian_Stewartson Exp $
  1233.    *
  1234.    *    $Log:    sh3.c $
  1235.    * Revision 1.24  90/08/16  10:28:47  Ian_Stewartson
  1236.    * Find setting of switch character for DOS4 for batch files
  1237.    * 
  1238. --- 13,32 ----
  1239.    * 2.  The sources (or parts thereof) or objects generated from the sources
  1240.    *     (or parts of sources) cannot be sold under any circumstances.
  1241.    *
  1242. !  *    $Header: C:/SRC/SHELL/RCS/sh3.c 1.27 90/09/19 15:30:31 Ian_Stewartson Exp $
  1243.    *
  1244.    *    $Log:    sh3.c $
  1245. +  * Revision 1.27  90/09/19  15:30:31  Ian_Stewartson
  1246. +  * Allow builtin commands to selected/de-selected
  1247. +  * 
  1248. +  * Revision 1.26  90/09/11  20:06:11  Ian_Stewartson
  1249. +  * Add support for buitlin command, including the alway builtin functions
  1250. +  * Change search order to match POSIX
  1251. +  * 
  1252. +  * Revision 1.25  90/08/24  21:55:00  Ian_Stewartson
  1253. +  * Change processing order (function, external, internal) to conform to
  1254. +  * POSIX.  Update to gmatch for macro command changes
  1255. +  * 
  1256.    * Revision 1.24  90/08/16  10:28:47  Ian_Stewartson
  1257.    * Find setting of switch character for DOS4 for batch files
  1258.    * 
  1259. ***************
  1260. *** 144,149 ****
  1261. --- 155,161 ----
  1262.   static char    *AE2big = "arg/env list too big";
  1263.   static char    *EMS_emsg = "Warning: EMS Error (%x)\n";
  1264.   static char    *XMS_emsg = "Warning: XMS Error (%x)\n";
  1265. + static char    *EF_msg = "%s: %s\n";
  1266.               /* Extended Command line processing file name    */
  1267.   static char        *Extend_file = (char *)NULL;
  1268.   static char        *Swap_File = (char *)NULL;    /* Swap file    */
  1269. ***************
  1270. *** 475,481 ****
  1271. --- 487,495 ----
  1272.       void    (*sig_int)();
  1273.       char    **owp = wp;
  1274.       bool    spawn = FALSE;
  1275. +     bool    builtin = FALSE;
  1276.       Fun_Ops    *fop;
  1277. +     int        i;
  1278.   
  1279.       if (t->type == TCOM)
  1280.       {
  1281. ***************
  1282. *** 510,522 ****
  1283.   /* Check for built in commands */
  1284.   
  1285.       else if (cp != (char *)NULL)
  1286. !         shcom = inbuilt (cp);
  1287.       }
  1288.   
  1289.   /* Unix fork simulation? */
  1290.   
  1291.       t->words = wp;
  1292. !     if (shcom == NULL && (act & FEXEC) == 0)
  1293.       {
  1294.       spawn = TRUE;
  1295.   
  1296. --- 524,536 ----
  1297.   /* Check for built in commands */
  1298.   
  1299.       else if (cp != (char *)NULL)
  1300. !         shcom = inbuilt (cp, &builtin);
  1301.       }
  1302.   
  1303.   /* Unix fork simulation? */
  1304.   
  1305.       t->words = wp;
  1306. !     if ((act & FEXEC) == 0)
  1307.       {
  1308.       spawn = TRUE;
  1309.   
  1310. ***************
  1311. *** 534,540 ****
  1312.   
  1313.       while (((cp = *owp++) != (char *)NULL) && assign (cp, COPYV))
  1314.       {
  1315. !     if (shcom == NULL)
  1316.           s_vstatus (lookup (cp, TRUE), EXPORT);
  1317.       }
  1318.   
  1319. --- 548,554 ----
  1320.   
  1321.       while (((cp = *owp++) != (char *)NULL) && assign (cp, COPYV))
  1322.       {
  1323. !     if (shcom == (int (*)())NULL) 
  1324.           s_vstatus (lookup (cp, TRUE), EXPORT);
  1325.       }
  1326.   
  1327. ***************
  1328. *** 565,572 ****
  1329.       }
  1330.       }
  1331.   
  1332. -     if (shcom)
  1333. -     return restore_std (setstatus ((*shcom)(t)), TRUE);
  1334.   
  1335.   /* All fids above 10 are autoclosed in the exec file because we have used
  1336.    * the O_NOINHERIT flag.  Note I patched open.obj to pass this flag to the
  1337. --- 579,584 ----
  1338. ***************
  1339. *** 598,604 ****
  1340.    * in some processing for return.
  1341.    */
  1342.   
  1343. !     if ((fop = Fun_Search (wp[0])) != (Fun_Ops *)NULL)
  1344.       {
  1345.       char            **s_dolv = dolv;
  1346.       int            s_dolc   = dolc;
  1347. --- 610,616 ----
  1348.    * in some processing for return.
  1349.    */
  1350.   
  1351. !     if (!builtin && (fop = Fun_Search (wp[0])) != (Fun_Ops *)NULL)
  1352.       {
  1353.       char            **s_dolv = dolv;
  1354.       int            s_dolc   = dolc;
  1355. ***************
  1356. *** 651,659 ****
  1357.   
  1358.   /* Ok - execute the program */
  1359.   
  1360. !     return restore_std (rexecve (wp[0], wp, makenv (), spawn), TRUE);
  1361. ! }
  1362.   
  1363.   /*
  1364.    * Restore Local Environment
  1365.    */
  1366. --- 663,685 ----
  1367.   
  1368.   /* Ok - execute the program */
  1369.   
  1370. !     if (!builtin)
  1371. !     rv = rexecve (wp[0], wp, makenv (), spawn);
  1372.   
  1373. + /* If we didn't find it, check for internal command */
  1374. + 
  1375. +     if (builtin || ((rv == -1) && (errno == ENOENT)))
  1376. +     {
  1377. +     if (shcom != (int (*)())NULL) 
  1378. +         rv =  setstatus ((*shcom)(t));
  1379. + 
  1380. +     else
  1381. +         print_warn (EF_msg, wp[0], "not found");
  1382. +     }
  1383. + 
  1384. +     return restore_std (rv, TRUE);
  1385. + }
  1386. + 
  1387.   /*
  1388.    * Restore Local Environment
  1389.    */
  1390. ***************
  1391. *** 835,841 ****
  1392.   
  1393.       for (wp = t1->words; *wp != (char *)NULL;)
  1394.