home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / SH162_2X.ZIP / PATCHES.OS2 < prev    next >
Text File  |  1990-08-17  |  70KB  |  2,848 lines
  1. Only in sh-os2: newfiles.os2
  2. Only in sh-os2: patches.os2
  3. Only in sh-os2: changes.h
  4. Only in sh-os2: dir.h
  5. Only in sh-os2: dir_os2.c
  6. Only in sh-os2: jobs.c
  7. Only in sh-os2: sh.cs
  8. Only in sh-os2: sh.def
  9. diff -cbBw sh-dos/sh.h sh-os2/sh.h
  10. *** sh-dos/sh.h    Thu Jul 05 19:50:16 1990
  11. --- sh-os2/sh.h    Sat Aug 04 17:41:46 1990
  12. ***************
  13. *** 81,91 ****
  14.    */
  15.   
  16.   #define PATCHLEVEL    6
  17. ! #define    LINE_MAX    1000    /* Command line length            */
  18.   #define HISTORY_MAX    100    /* History array length            */
  19.                   /* Space for full file name        */
  20.   #define FFNAME_MAX    (PATH_MAX + NAME_MAX + 4)
  21. ! #define CMD_LINE_MAX    127    /* Max command line length        */
  22.   #define SSAVE_IO_SIZE    4    /* Save IO array malloc increment    */
  23.   
  24.   #define    NPUSH        8    /* limit to input nesting        */
  25. --- 81,91 ----
  26.    */
  27.   
  28.   #define PATCHLEVEL    6
  29. ! #define    LINE_MAX    1024    /* Command line length            */
  30.   #define HISTORY_MAX    100    /* History array length            */
  31.                   /* Space for full file name        */
  32.   #define FFNAME_MAX    (PATH_MAX + NAME_MAX + 4)
  33. ! #define CMD_LINE_MAX    2048    /* Max command line length        */
  34.   #define SSAVE_IO_SIZE    4    /* Save IO array malloc increment    */
  35.   
  36.   #define    NPUSH        8    /* limit to input nesting        */
  37. ***************
  38. *** 98,103 ****
  39. --- 98,105 ----
  40.   #define SP        ' '
  41.   #define    NOT        '^'
  42.   
  43. + #define BATCHEXT        ".cmd"
  44. + 
  45.   /* Here we introduce a new boolean value - MAYBE.  This is required for
  46.    * a special case of the grave function
  47.    */
  48. ***************
  49. *** 171,216 ****
  50.   
  51.   #define    FEXEC        0x0001    /* execute without forking        */
  52.   
  53. - /* MSDOS Memory Control Block chain structure */
  54. - 
  55. - #pragma pack (1)
  56. - struct MCB_list    {
  57. -     char        MCB_type;    /* M or Z            */
  58. -     unsigned int    MCB_pid;    /* Process ID            */
  59. -     unsigned int    MCB_len;    /* MCB length            */
  60. - };
  61. - #pragma pack ()
  62. - 
  63. - #define MCB_CON        'M'        /* More MCB's            */
  64. - #define MCB_END        'Z'        /* Last MCB's            */
  65. - 
  66. - /* Externs for Swapper assembler function */
  67. - 
  68. - extern char        cmd_line[];    /* Command line            */
  69. - extern char        path_line[];    /* Process path            */
  70.   extern unsigned int    SW_intr;    /* interrupt pending        */
  71. - extern unsigned int    SW_Blocks;    /* Number of blocks to read    */
  72. - extern unsigned int    SW_SBlocks;    /* Short Number of blocks to    */
  73. -                     /* read                */
  74. - extern int        SW_fp;        /* File or EMS Handler        */
  75. - extern int        SW_Pwrite;    /* Partial write to disk?    */
  76. - extern unsigned long    SW_EMstart;    /* Start addr of extend mem    */
  77. - extern unsigned int    SW_Mode;    /* Type of swapping to do    */
  78. -                     /* 1 - disk            */
  79. -                     /* 2 - Extended    memory        */
  80. -                     /* 3 - EMS Driver        */
  81. -                     /* 4 - XMS Driver        */
  82. - extern unsigned int    SW_EMSFrame;    /* EMS Frame segment        */
  83. - 
  84. - extern unsigned int    etext;        /* End of text segment        */
  85. - extern int        Swap_Mode;    /* Swapping mode        */
  86. - 
  87. - /* If you change these values, change sh7, swap_device as well */
  88. - 
  89. - #define SWAP_OFF    0x0000        /* No swapping            */
  90. - #define SWAP_DISK    0x0001        /* Disk only            */
  91. - #define SWAP_EXTEND    0x0002        /* Extended memory        */
  92. - #define SWAP_EXPAND    0x0004        /* Expanded memory        */
  93.   
  94.   /*
  95.    * flags to control evaluation of words
  96. --- 173,179 ----
  97. ***************
  98. *** 569,574 ****
  99. --- 532,538 ----
  100.   extern bool    eqname (char *, char *);
  101.   extern bool    any (char, char *);
  102.   extern int    (*inbuilt (char *))();
  103. + extern char     *cmd_internal(char *s);
  104.   extern char    *path_append (char *, char *, char *);
  105.   extern void    unset (char *, bool);
  106.   extern int    S_open (bool, char *, int, ...);
  107. ***************
  108. *** 621,641 ****
  109.   extern void    Clear_Extended_File (void);
  110.   extern void    Print_Version (int);
  111.   extern bool    anys (char *, char *);
  112. - extern void    Clear_Swap_File (void);
  113. - 
  114. - /*
  115. -  * Interrupt handling
  116. -  */
  117. - 
  118. - extern void interrupt    SW_Int24 (void);    /* Int 24 New address    */
  119. - extern void (interrupt far *SW_I0_V) (void);    /* Int 0 address    */
  120. - extern void (interrupt far *SW_I23_V) (void);    /* Int 23 address    */
  121. - 
  122. - /*
  123. -  * XMS Driver functions
  124. -  */
  125. - 
  126. - extern void (far *SW_XMS_Driver) (void);    /* XMS Driver Interface    */
  127. - extern int        SW_XMS_Gversion (void);
  128. - extern int        SW_XMS_Allocate (unsigned int);
  129. - extern int        SW_XMS_Free (int);
  130. --- 585,587 ----
  131. diff -cbBw sh-dos/sh1.c sh-os2/sh1.c
  132. *** sh-dos/sh1.c    Thu Jul 05 19:50:22 1990
  133. --- sh-os2/sh1.c    Sat Aug 04 13:47:40 1990
  134. ***************
  135. *** 87,92 ****
  136. --- 87,97 ----
  137.   #include <time.h>
  138.   #include "sh.h"
  139.   
  140. + #define INCL_NOPM
  141. + #define INCL_DOSPROCESS
  142. + #define INCL_DOSERRORS
  143. + #include <os2.h>
  144. + 
  145.   /*
  146.    * Structure of Malloced space to allow release of space nolonger required
  147.    * without having to know about it.
  148. ***************
  149. *** 109,116 ****
  150.   static char    *Path       = "PATH";
  151.                   /* Entry directory            */
  152.   static char    *Start_directory = (char *)NULL;
  153. -                     /* Original Interrupt 24 address */
  154. - static void    (interrupt far *Orig_I24_V) (void);
  155.   #ifdef SIGQUIT
  156.   static void    (*qflag)(int) = SIG_IGN;
  157.   #endif
  158. --- 114,119 ----
  159. ***************
  160. *** 128,133 ****
  161. --- 131,139 ----
  162.   static void    Convert_Backslashes (char *);
  163.   static void    Load_profiles (void);
  164.   static void    U2D_Path (void);
  165. + static void     dowaits(int);
  166. + 
  167. + unsigned int SW_intr;
  168.   
  169.   /*
  170.    * The main program starts here
  171. ***************
  172. *** 307,312 ****
  173. --- 313,320 ----
  174.       }
  175.   
  176.       onecommand ();
  177. + 
  178. +         dowaits(0);  /* wait for ending async. processes */
  179.       }
  180.   }
  181.   
  182. ***************
  183. *** 460,465 ****
  184. --- 468,524 ----
  185.       }
  186.   }
  187.   
  188. + 
  189. + /*
  190. +  * look for any ending childs
  191. +  */
  192. + 
  193. + static void dowaits(int mode)
  194. + {
  195. +   RESULTCODES rc;
  196. +   PID pid;
  197. +   char buffer[32];
  198. +   USHORT res;
  199. +   USHORT wmode = DCWW_NOWAIT;
  200. + 
  201. +   for (;;)
  202. +   {
  203. +     res = DosCwait(DCWA_PROCESS, wmode, &rc, &pid, 0);
  204. + 
  205. +     if ( mode && (res == ERROR_CHILD_NOT_COMPLETE) )
  206. +     {
  207. +       S_puts("(Waiting for childs)\n");
  208. +       wmode = DCWW_WAIT;
  209. +       continue;
  210. +     }
  211. +     else
  212. +       if ( res )
  213. +         break;
  214. + 
  215. +     sprintf(buffer, "[%u] ", pid);
  216. +     S_puts(buffer);
  217. + 
  218. +     switch (rc.codeTerminate)
  219. +     {
  220. +     case TC_EXIT:
  221. +       sprintf(buffer, "Done (%u)\n", rc.codeResult);
  222. +       S_puts(buffer);
  223. +       break;
  224. +     case TC_HARDERROR:
  225. +       S_puts("Terminated\n");
  226. +       break;
  227. +     case TC_TRAP:
  228. +       sprintf(buffer, "Trap %d\n", rc.codeResult);
  229. +       S_puts(buffer);
  230. +       break;
  231. +     case TC_KILLPROCESS:
  232. +       S_puts("Killed\n");
  233. +       break;
  234. +     }
  235. +   }
  236. + }
  237. + 
  238. + 
  239.   /*
  240.    * Terminate current environment with an error
  241.    */
  242. ***************
  243. *** 480,490 ****
  244. --- 539,551 ----
  245.       if (execflg)
  246.       fail ();
  247.   
  248. + #if 0
  249.       if (Orig_I24_V == (void (far *)())NULL)
  250.       {
  251.       S_puts ("sh: ignoring attempt to leave lowest level shell\n");
  252.       fail ();
  253.       }
  254. + #endif
  255.   
  256.   /* Clean up */
  257.   
  258. ***************
  259. *** 495,500 ****
  260. --- 556,565 ----
  261.   
  262.       runtrap (0);
  263.   
  264. + /* wait for running bg processes */
  265. + 
  266. +     dowaits(1);
  267. + 
  268.   /* Dump history on exit */
  269.   
  270.   #ifndef NO_HISTORY
  271. ***************
  272. *** 504,513 ****
  273.   
  274.       closeall ();
  275.   
  276. - /* Clear swap file if necessary */
  277. - 
  278. -     Clear_Swap_File ();
  279. - 
  280.   /* If this is a command only - restore the directory because DOS doesn't
  281.    * and the user might expect it
  282.    */
  283. --- 569,574 ----
  284. ***************
  285. *** 1439,1453 ****
  286.   void    put_prompt (s)
  287.   char    *s;
  288.   {
  289. !     struct dosdate_t     d_date;
  290. !     struct dostime_t    d_time;
  291.       int            i;
  292.       char        buf[PATH_MAX + 4];
  293.   
  294.       last_prompt = s;        /* Save the Last prompt output        */
  295.   
  296. !     _dos_gettime (&d_time);    /* Get the date and time in case    */
  297. !     _dos_getdate (&d_date);
  298.   
  299.       while (*s)
  300.       {
  301. --- 1500,1514 ----
  302.   void    put_prompt (s)
  303.   char    *s;
  304.   {
  305. !     time_t ti;
  306. !     struct tm *tl;
  307.       int    i;
  308.       char buf[PATH_MAX + 4];
  309.   
  310.       last_prompt = s;        /* Save the Last prompt output        */
  311.   
  312. !     time(&ti);
  313. !     tl = localtime(&ti);
  314.   
  315.       while (*s)
  316.       {
  317. ***************
  318. *** 1475,1487 ****
  319.               break;
  320.   
  321.               case 't':            /* time        */
  322. !             sprintf (buf,"%.2d:%.2d", d_time.hour, d_time.minute);
  323.               break;
  324.   
  325.               case 'd':            /* date        */
  326.               sprintf (buf, "%.3s %.2d-%.2d-%.2d",
  327. !                  &"SunMonTueWedThuFriSat"[d_date.dayofweek * 3],
  328. !                  d_date.day, d_date.month, d_date.year % 100);
  329.               break;
  330.   
  331.               case 'p':            /* directory    */
  332. --- 1536,1548 ----
  333.               break;
  334.   
  335.               case 't':            /* time        */
  336. !             sprintf (buf,"%.2d:%.2d", tl -> tm_hour, tl -> tm_min);
  337.               break;
  338.   
  339.               case 'd':            /* date        */
  340.               sprintf (buf, "%.3s %.2d-%.2d-%.2d",
  341. !                  &"SunMonTueWedThuFriSat"[tl -> tm_wday * 3],
  342. !                  tl -> tm_mday, tl -> tm_mon, tl -> tm_year % 100);
  343.               break;
  344.   
  345.               case 'p':            /* directory    */
  346. ***************
  347. *** 1494,1500 ****
  348.               break;
  349.   
  350.               case 'v':            /* version        */
  351. !             sprintf (buf, "MS-DOS %.2d:%.2d", _osmajor, _osminor);
  352.               break;
  353.           }
  354.   
  355. --- 1555,1561 ----
  356.               break;
  357.   
  358.               case 'v':            /* version        */
  359. !             sprintf (buf, "%.2d.%.2d", _osmajor, _osminor);
  360.               break;
  361.           }
  362.   
  363. ***************
  364. *** 1552,1558 ****
  365.   {
  366.       register char    *s, *s1;
  367.       char        **ap;
  368. !     Var_List        *lset;
  369.       bool        l_rflag = FALSE;
  370.   
  371.   /* Patch the ctype table as a cheat */
  372. --- 1613,1619 ----
  373.   {
  374.       register char    *s, *s1;
  375.       char        **ap;
  376. !     Var_List        *lset, *init;
  377.       bool        l_rflag = FALSE;
  378.   
  379.   /* Patch the ctype table as a cheat */
  380. ***************
  381. *** 1563,1571 ****
  382.    * address
  383.    */
  384.   
  385. -     Orig_I24_V = _dos_getvect (0x24);
  386. -     _dos_setvect (0x24, SW_Int24);
  387. - 
  388.   /* Load the environment into our structures */
  389.   
  390.       if ((ap = environ) != (char **)NULL)
  391. --- 1624,1629 ----
  392. ***************
  393. *** 1642,1647 ****
  394. --- 1700,1708 ----
  395.   /* Set up home directory */
  396.   
  397.       if ((lset = lookup (home, TRUE))->value == null)
  398. +       if ((init = lookup ("INIT", TRUE))->value != null)
  399. +     setval (lset, init->value);
  400. +       else
  401.       setval (lset, C_dir->value);
  402.   
  403.       s_vstatus (lset, EXPORT);
  404. ***************
  405. *** 1663,1669 ****
  406.       setval (ifs, " \t\n");
  407.   
  408.       if (ps1->value == null)
  409. !     setval (ps1, "$ ");
  410.   
  411.       if (ps2->value == null)
  412.       setval (ps2, "> ");
  413. --- 1724,1730 ----
  414.       setval (ifs, " \t\n");
  415.   
  416.       if (ps1->value == null)
  417. !     setval (ps1, "%e$ ");
  418.   
  419.       if (ps2->value == null)
  420.       setval (ps2, "> ");
  421. ***************
  422. *** 1765,1772 ****
  423.   static void    Pre_Process_Argv (argv)
  424.   char        **argv;
  425.   {
  426. !     char    *ocl = (char far *)((((long)_psp) << 16) + 0x081L);
  427.   
  428.   
  429.   /* Check for these options */
  430.   
  431. --- 1826,1836 ----
  432.   static void    Pre_Process_Argv (argv)
  433.   char        **argv;
  434.   {
  435. !     extern      char far *_pgmptr;
  436. !     char    *ocl = _pgmptr;
  437.   
  438. +     ocl = strchr(ocl, 0) + 1;
  439. +     ocl = strchr(ocl, 0) + 1;
  440.   
  441.   /* Check for these options */
  442.   
  443. ***************
  444. *** 1834,1839 ****
  445. --- 1898,1904 ----
  446.   {
  447.       char    *name;
  448.       int        f;
  449. +     char        prof[128], *env;
  450.   
  451.   /* Set up home profile */
  452.   
  453. ***************
  454. *** 1852,1857 ****
  455. --- 1917,1936 ----
  456.       {
  457.       PUSHIO (afile, remap (f), filechar);
  458.       }
  459. + 
  460. +     if ( (env = getenv("INIT")) != NULL )
  461. +       if ((f = O_for_execute (strcat(strcpy(prof, env), "/profile"),
  462. +                               (char **)NULL, (int *)NULL)) >= 0)
  463. +       {
  464. +           PUSHIO (afile, remap (f), filechar);
  465. +       }
  466. + 
  467. +     if ( (env = getenv("HOME")) != NULL )
  468. +       if ((f = O_for_execute (strcat(strcpy(prof, env), "/profile"),
  469. +                               (char **)NULL, (int *)NULL)) >= 0)
  470. +       {
  471. +           PUSHIO (afile, remap (f), filechar);
  472. +       }
  473.   }
  474.   
  475.   /*
  476. diff -cbBw sh-dos/sh2.c sh-os2/sh2.c
  477. *** sh-dos/sh2.c    Mon May 21 20:12:06 1990
  478. --- sh-os2/sh2.c    Thu Jul 05 19:55:04 1990
  479. ***************
  480. *** 36,41 ****
  481. --- 36,42 ----
  482.   
  483.   #include <sys/types.h>
  484.   #include <stddef.h>
  485. + #include <stdio.h>
  486.   #include <signal.h>
  487.   #include <errno.h>
  488.   #include <setjmp.h>
  489. diff -cbBw sh-dos/sh3.c sh-os2/sh3.c
  490. *** sh-dos/sh3.c    Thu Jul 05 19:50:26 1990
  491. --- sh-os2/sh3.c    Sat Aug 04 18:29:58 1990
  492. ***************
  493. *** 97,103 ****
  494.   #include <sys/stat.h>
  495.   #include <stdio.h>
  496.   #include <process.h>
  497. - #include <dos.h>
  498.   #include <signal.h>
  499.   #include <errno.h>
  500.   #include <setjmp.h>
  501. --- 97,102 ----
  502. ***************
  503. *** 107,117 ****
  504.   #include <stdlib.h>
  505.   #include <fcntl.h>
  506.   #include <limits.h>
  507. ! #include <dirent.h>
  508.   #include <ctype.h>
  509.   
  510.   #include "sh.h"
  511.   
  512.   /* static Function and string declarations */
  513.   
  514.   static int    forkexec (C_Op *, int, int, int, char **);
  515. --- 106,120 ----
  516.   #include <stdlib.h>
  517.   #include <fcntl.h>
  518.   #include <limits.h>
  519. ! #include <dir.h>
  520.   #include <ctype.h>
  521.   
  522.   #include "sh.h"
  523.   
  524. + #define INCL_NOPM
  525. + #define INCL_DOS
  526. + #include <os2.h>
  527. + 
  528.   /* static Function and string declarations */
  529.   
  530.   static int    forkexec (C_Op *, int, int, int, char **);
  531. ***************
  532. *** 122,133 ****
  533.   static int    rexecve (char *, char **, char **, bool);
  534.   static int    Execute_program (char *, char **, char **, bool);
  535.   static int    S_spawnve (char *, char **, char **);
  536. - static bool    Get_EMS_Driver (void);
  537. - static bool    Get_XMS_Driver (void);
  538. - static bool    EMS_error (char *, int);
  539. - static int    EMS_Close (void);
  540. - static bool    XMS_error (char *, int);
  541. - static int    XMS_Close (void);
  542.   static int    build_command_line (char *, char **, char **);
  543.   static int    setstatus (int);
  544.   static bool    Check_for_bat_file (char *);
  545. --- 125,130 ----
  546. ***************
  547. *** 134,145 ****
  548.   static size_t    white_space_len (char *, bool *);
  549.   static char    *Gen_Full_Path_Name (char *);
  550.   
  551.   static char    *AE2big = "arg/env list too big";
  552. - static char    *EMS_emsg = "Warning: EMS Error (%x)\n";
  553. - static char    *XMS_emsg = "Warning: XMS Error (%x)\n";
  554.               /* Extended Command line processing file name    */
  555.   static char        *Extend_file = (char *)NULL;
  556. - static char        *Swap_File = (char *)NULL;    /* Swap file    */
  557.   
  558.   /*
  559.    * execute tree recursively
  560. --- 131,141 ----
  561.   static size_t    white_space_len (char *, bool *);
  562.   static char    *Gen_Full_Path_Name (char *);
  563.   
  564. + static int      spawnmode = P_WAIT;
  565. + 
  566.   static char    *AE2big = "arg/env list too big";
  567.               /* Extended Command line processing file name    */
  568.   static char        *Extend_file = (char *)NULL;
  569.   
  570.   /*
  571.    * execute tree recursively
  572. ***************
  573. *** 163,168 ****
  574. --- 159,165 ----
  575.       int            Local_depth;        /* Save local values    */
  576.       int            Local_areanum;
  577.       int            rv = 0;
  578. +     int                 readp, writep;
  579.   
  580.   /* End of tree ? */
  581.   
  582. ***************
  583. *** 213,219 ****
  584.           Break_List  = (Break_C *)NULL;
  585.           bc.nextlev  = SShell_List;
  586.           SShell_List = &bc;
  587. !         rv = forkexec (t, pin, pout, act, wp);
  588.           }
  589.   
  590.   /* Restore the original environment */
  591. --- 210,217 ----
  592.           Break_List  = (Break_C *)NULL;
  593.           bc.nextlev  = SShell_List;
  594.           SShell_List = &bc;
  595. !         /* rv = forkexec (t, pin, pout, act, wp); wrong! */
  596. !         rv = execute (t->left, pin, pout, act);
  597.           }
  598.   
  599.   /* Restore the original environment */
  600. ***************
  601. *** 234,251 ****
  602.           break;
  603.   
  604.       case TPIPE:            /* Pipe processing        */
  605. -         if ((rv = openpipe ()) < 0)
  606. -         break;
  607.   
  608.   /* Create pipe, execute command, reset pipe, execute the other side, close
  609.    * the pipe and fini
  610.    */
  611. ! 
  612.           localpipe = remap (rv);
  613.           execute (t->left, pin, localpipe, 0);
  614.           lseek (localpipe, 0L, SEEK_SET);
  615.           rv = execute (t->right, localpipe, pout, 0);
  616.           closepipe (localpipe);
  617.           break;
  618.   
  619.       case TLIST:            /* Entries in a for statement    */
  620. --- 232,280 ----
  621.           break;
  622.   
  623.       case TPIPE:            /* Pipe processing        */
  624.   
  625.   /* Create pipe, execute command, reset pipe, execute the other side, close
  626.    * the pipe and fini
  627.    */
  628. !      /* old DOS version:
  629. !             if ((rv = openpipe ()) < 0)
  630. !         break;
  631.           localpipe = remap (rv);
  632.           execute (t->left, pin, localpipe, 0);
  633.           lseek (localpipe, 0L, SEEK_SET);
  634.           rv = execute (t->right, localpipe, pout, 0);
  635.           closepipe (localpipe);
  636. +          */
  637. + 
  638. +             if (DosMakePipe((PHFILE) &readp, (PHFILE) &writep, 0))
  639. +                 break;
  640. +         readp = remap (readp);
  641. +         writep = remap (writep);
  642. +             DosSetFHandState(readp, OPEN_FLAGS_NOINHERIT);
  643. +         DosSetFHandState(writep, OPEN_FLAGS_NOINHERIT);
  644. + 
  645. +             if ( spawnmode == P_WAIT )
  646. +             {
  647. +               spawnmode = P_NOWAITO;
  648. +           execute (t->left, pin, writep, 0);
  649. +               close(writep);
  650. +               spawnmode = P_NOWAIT;
  651. +           rv = execute (t->right, readp, pout, 0);
  652. +               close(readp);
  653. +               spawnmode = P_WAIT;
  654. +               cwait(&rv, rv, WAIT_GRANDCHILD);
  655. +             }
  656. +             else
  657. +             {
  658. +               rv = spawnmode;
  659. +               spawnmode = P_NOWAITO;
  660. +           execute (t->left, pin, writep, 0);
  661. +               close(writep);
  662. +               spawnmode = rv;
  663. +           rv = execute (t->right, readp, pout, 0);
  664. +               close(readp);
  665. +             }
  666. + 
  667.           break;
  668.   
  669.       case TLIST:            /* Entries in a for statement    */
  670. ***************
  671. *** 253,262 ****
  672.           rv = execute (t->right, pin, pout, 0);
  673.           break;
  674.   
  675. !     case TASYNC:            /* Async - not supported    */
  676. !         rv = -1;
  677.           S_puts ("sh: Async commands not supported\n");
  678.           setstatus (rv);
  679.           break;
  680.   
  681.       case TOR:            /* || and &&            */
  682. --- 282,299 ----
  683.           rv = execute (t->right, pin, pout, 0);
  684.           break;
  685.   
  686. !     case TASYNC:
  687. !      /* rv = -1;
  688.           S_puts ("sh: Async commands not supported\n");
  689.           setstatus (rv);
  690. +          */
  691. +             spawnmode = P_NOWAIT;
  692. +         rv = execute (t->left, pin, pout, 0);
  693. +             spawnmode = P_WAIT;
  694. +             S_puts("[");
  695. +             S_puts(putn(rv));
  696. +             S_puts("]\n");
  697. +             setval (lookup ("!", TRUE), putn (rv));
  698.           break;
  699.   
  700.       case TOR:            /* || and &&            */
  701. ***************
  702. *** 439,445 ****
  703.   {
  704.       unsigned int    dummy;
  705.   
  706. !     _dos_setdrive (tolower(*path) - 'a' + 1, &dummy);
  707.   
  708.       if (chdir (&path[2]) != 0)
  709.       {
  710. --- 476,482 ----
  711.   {
  712.       unsigned int    dummy;
  713.   
  714. !     DosSelectDisk(tolower(*path) - 'a' + 1);
  715.   
  716.       if (chdir (&path[2]) != 0)
  717.       {
  718. ***************
  719. *** 469,474 ****
  720. --- 506,512 ----
  721.       char    **owp = wp;
  722.       bool    spawn = FALSE;
  723.       Fun_Ops    *fop;
  724. +     char        *cmdcom = NULL;
  725.   
  726.       if (t->type == TCOM)
  727.       {
  728. ***************
  729. *** 494,501 ****
  730.   
  731.   /* Check for built in commands */
  732.   
  733. !     else if (cp != (char *)NULL)
  734. !         shcom = inbuilt (cp);
  735.       }
  736.   
  737.   /* Unix fork simulation? */
  738. --- 532,541 ----
  739.   
  740.   /* Check for built in commands */
  741.   
  742. !     else
  743. !           if (cp != (char *)NULL)
  744. !         if ( (shcom = inbuilt (cp)) == NULL )
  745. !               cmdcom = cmd_internal(cp);
  746.       }
  747.   
  748.   /* Unix fork simulation? */
  749. ***************
  750. *** 634,639 ****
  751. --- 674,682 ----
  752.   
  753.   /* Ok - execute the program */
  754.   
  755. +     if (cmdcom)
  756. +       return restore_std (rexecve (NULL, wp, makenv (), spawn), TRUE);
  757. +     else
  758.         return restore_std (rexecve (wp[0], wp, makenv (), spawn), TRUE);
  759.   }
  760.   
  761. ***************
  762. *** 860,867 ****
  763.       int            nargc = 0;        /* # script args    */
  764.       char        *p_name;        /* Program name        */
  765.       int            i;
  766. -     union REGS        r;
  767.   
  768.   /* If the environment is null - It is too big - error */
  769.   
  770.       if (envp == (char **)NULL)
  771. --- 903,917 ----
  772.       int            nargc = 0;        /* # script args    */
  773.       char        *p_name;        /* Program name        */
  774.       int            i;
  775.   
  776. + /* Count the number of arguments to the program in case of shell script or
  777. +  * bat file
  778. +  */
  779. + 
  780. +     while (v[argc++] != (char *)NULL);
  781. + 
  782. +     ++argc;                /* Including the null        */
  783. + 
  784.   /* If the environment is null - It is too big - error */
  785.   
  786.       if (envp == (char **)NULL)
  787. ***************
  788. *** 870,886 ****
  789.       else if ((p_name = getcell (FFNAME_MAX)) == (char *)NULL)
  790.       em = strerror (ENOMEM);
  791.   
  792. !     else
  793.       {
  794. ! 
  795. ! /* Count the number of arguments to the program in case of shell script or
  796. !  * bat file
  797. !  */
  798. ! 
  799. !     while (v[argc++] != (char *)NULL);
  800.   
  801. !     ++argc;                /* Including the null        */
  802.   
  803.   /* Start off on the search path for the executable file */
  804.   
  805.       sp = (any ('/', c) || (*(c + 1) == ':')) ? null : path->value;
  806. --- 920,945 ----
  807.       else if ((p_name = getcell (FFNAME_MAX)) == (char *)NULL)
  808.       em = strerror (ENOMEM);
  809.   
  810. !     else if ( c == NULL )
  811.       {
  812. ! /* cmd.exe interal command */
  813.   
  814. !       if ((new_argv = (char **) getcell (sizeof(char *) * (argc + 2)))
  815. !            == NULL)
  816. !       em = strerror (ENOMEM);
  817. !       else
  818. !       {
  819. !         memcpy (&new_argv[2], &v[0], sizeof(char *) * argc);
  820. !         new_argv[0] = lookup ("COMSPEC", FALSE)->value;
  821. !         new_argv[1] = "/c";
  822. !         res = rexecve (new_argv[0], new_argv, envp, d_flag);
  823. !         DELETE (new_argv);
  824. !     return res;
  825. !       }
  826. !     }
  827.   
  828. +     else
  829. +     {
  830.   /* Start off on the search path for the executable file */
  831.   
  832.       sp = (any ('/', c) || (*(c + 1) == ':')) ? null : path->value;
  833. ***************
  834. *** 940,953 ****
  835.               {
  836.               new_argv[0] = lookup ("COMSPEC", FALSE)->value;
  837.               new_argv[1] = "/c";
  838. - 
  839. - /* Get the switch character */
  840. - 
  841. -             r.x.ax = 0x3700;
  842. -             intdos (&r, &r);
  843. - 
  844. -             if (r.h.al == 0)
  845. -                 *new_argv[1] = (char)(r.h.dl);
  846.               }
  847.   
  848.   /* Stick in the pre-fix arguments */
  849. --- 999,1004 ----
  850. ***************
  851. *** 1044,1052 ****
  852.       ++cp;
  853.   
  854.       if ((cp = strrchr (cp, '.')) == (char *)NULL)
  855. !     strcat (local_path, ".bat");
  856.   
  857. !     else if (stricmp (cp, ".bat") != 0)
  858.       {
  859.       DELETE (local_path);
  860.       return FALSE;
  861. --- 1095,1103 ----
  862.       ++cp;
  863.   
  864.       if ((cp = strrchr (cp, '.')) == (char *)NULL)
  865. !     strcat (local_path, BATCHEXT);
  866.   
  867. !     else if (stricmp (cp, BATCHEXT) != 0)
  868.       {
  869.       DELETE (local_path);
  870.       return FALSE;
  871. ***************
  872. *** 1157,1167 ****
  873.   char        **parms;
  874.   char        **envp;
  875.   {
  876. !     unsigned int    c_cur = (unsigned int)(_psp - 1);
  877. !     unsigned int    size = 0;
  878. !     char        *ep, *ep1;
  879.       int            res, serrno;
  880. -     struct MCB_list    *mp = (struct MCB_list *)((unsigned long)c_cur << 16L);
  881.   
  882.   /* Check to see if the file exists */
  883.   
  884. --- 1208,1215 ----
  885.   char        **parms;
  886.   char        **envp;
  887.   {
  888. !     char        *ep, *ep1, path_line[255];
  889.       int            res, serrno;
  890.   
  891.   /* Check to see if the file exists */
  892.   
  893. ***************
  894. *** 1198,1578 ****
  895.       else if (access (path_line, F_OK) != 0)
  896.       return -1;
  897.   
  898. ! /* Process the command line.  If no swapping, we have executed the program */
  899. ! 
  900. !     res = build_command_line (path_line, parms, envp);
  901. ! 
  902. !     if ((Swap_Mode == SWAP_OFF) || res)
  903. !     return res;
  904. ! 
  905. ! /* Find the length of the swap area */
  906. ! 
  907. !     while ((mp = (struct MCB_list *)((unsigned long)c_cur << 16L))->MCB_type
  908. !         == MCB_CON)
  909. !     {
  910. !     if ((mp->MCB_pid != _psp) && (mp->MCB_pid != 0) &&
  911. !         (mp->MCB_type != MCB_END))
  912. !     {
  913. !         Clear_Extended_File ();
  914. !         print_error ("Fatal: Memory chain corrupt\n");
  915. !         return -1;
  916. !     }
  917. ! 
  918. !     c_cur += (mp->MCB_len + 1);
  919. !     size += mp->MCB_len + 1;
  920. !     }
  921. ! 
  922. ! /*
  923. !  * Convert swap size from paragraphs to 16K blocks.
  924. !  */
  925. ! 
  926. !     if (size == 0)
  927. !     size = mp->MCB_len + 1;
  928. ! 
  929. !     SW_Blocks = (size / 0x0400) + 1;
  930. !     SW_SBlocks = ((size - etext + _psp - 1) / 0x0400) + 1;
  931. ! 
  932. ! /* OK Now we've set up the FCB's, command line and opened the swap file.
  933. !  * Get some sys info for the swapper and execute my little assembler
  934. !  * function to swap us out
  935. !  */
  936. ! 
  937. ! /* Save the interrupt 0 and 23 addresses */
  938. ! 
  939. !     SW_I0_V  = _dos_getvect (0x00);
  940. !     SW_I23_V = _dos_getvect (0x23);
  941. ! 
  942. ! /* Ok - 3 methods of swapping */
  943. ! 
  944. ! /* If expanded memory - try that */
  945. ! 
  946. !     if ((Swap_Mode & SWAP_EXPAND) && Get_EMS_Driver ())
  947. !     {
  948. !     int    cr;
  949. ! 
  950. !     SW_Mode = 3;            /* Set Expanded memory swap    */
  951. ! 
  952. !     res = SA_spawn (envp);
  953. !     cr = EMS_Close ();        /* Close EMS            */
  954. ! 
  955. !     if ((res != -2) && cr)        /* Report Close error ?        */
  956. !     {
  957. !         res = -2;
  958. !         errno = cr;
  959. !     }
  960. ! 
  961. !     if (res == -2)
  962. !         EMS_error ("Expanded memory swap failed (%x)\n", errno);
  963. ! 
  964. !     else
  965. !     {
  966. !         Clear_Extended_File ();
  967. !         return res;
  968. !     }
  969. ! 
  970. ! /* Failed - disabled */
  971. ! 
  972. !     Swap_Mode &= (~SWAP_EXPAND);
  973. !     }
  974. ! 
  975. !     if ((Swap_Mode & SWAP_EXTEND) && Get_XMS_Driver ())
  976. !     {
  977. !     int    cr;
  978. ! 
  979. ! /* Set Extended memory or XMS driver */
  980. ! 
  981. !     SW_Mode = (SW_fp == -1) ? 2 : 4;
  982. ! 
  983. !     res = SA_spawn (envp);
  984. !     cr = XMS_Close ();        /* Close XMS            */
  985. ! 
  986. !     if ((res != -2) && cr)        /* Report Close error ?        */
  987. !     {
  988. !         res = -2;
  989. !         errno = cr;
  990. !     }
  991. ! 
  992. !     if (res == -2)
  993. !         XMS_error ("Extended memory swap failed (%x)\n", errno);
  994. ! 
  995. !     else
  996. !     {
  997. !         Clear_Extended_File ();
  998. !         return res;
  999. !     }
  1000. ! 
  1001. ! /* Failed - disabled */
  1002. ! 
  1003. !     Swap_Mode &= (~SWAP_EXTEND);
  1004. !     }
  1005. ! 
  1006. ! /* Try the disk if available */
  1007. ! 
  1008. !     if (Swap_Mode & SWAP_DISK)
  1009. !     {
  1010. !     SW_Pwrite = 0;
  1011. ! 
  1012. !     if (Swap_File == (char *)NULL)
  1013. !         SW_fp = S_open (FALSE, (ep = g_tempname ()), O_SMASK, 0600);
  1014. ! 
  1015. !     else
  1016. !     {
  1017. !         SW_fp = S_open (FALSE, Swap_File, O_SaMASK);
  1018. !         SW_Pwrite = 1;
  1019. !     }
  1020. ! 
  1021. !     if (SW_fp < 0)
  1022. !     {
  1023. !         Clear_Swap_File ();
  1024. !         Swap_Mode &= (~SWAP_DISK);
  1025. !         print_error ("No Swap files\n");
  1026. !         errno = ENOSPC;
  1027. !         return -1;
  1028. !     }
  1029. ! 
  1030. ! /* Save the swap file name ? */
  1031. ! 
  1032. !     if ((Swap_File == (char *)NULL) &&
  1033. !         ((Swap_File = strsave (ep, 0)) == null))
  1034. !         Swap_File = (char *)NULL;
  1035. ! 
  1036. !     SW_Mode = 1;            /* Set Disk file swap        */
  1037. ! 
  1038. ! /* Seek to correct location */
  1039. ! 
  1040. !     if (SW_Pwrite)
  1041. !     {
  1042. !             long    loc = (long)(etext - _psp + 1) * 16L;
  1043. ! 
  1044. !         if (lseek (SW_fp, loc, SEEK_SET) != loc)
  1045. !         {
  1046. !         serrno = errno;
  1047. !         S_close (SW_fp, TRUE);
  1048. !         Clear_Swap_File ();
  1049. !         Swap_Mode &= (~SWAP_DISK);
  1050. !         print_error ("No Swap files\n");
  1051. !         errno = serrno;
  1052. !         return -1;
  1053. !         }
  1054. !     }
  1055. ! 
  1056. ! /* Execute the program */
  1057. ! 
  1058. !     res = SA_spawn (envp);
  1059. ! 
  1060. ! /* Close the swap file and extended command line files */
  1061. ! 
  1062. !     Clear_Extended_File ();
  1063. !     serrno = errno;
  1064. !     S_close (SW_fp, TRUE);
  1065. !     errno = serrno;
  1066. ! 
  1067. ! /* Check for out of swap space */
  1068. ! 
  1069. !     if (res == -2)
  1070. !     {
  1071. !         Clear_Swap_File ();
  1072. !         Swap_Mode &= (~SWAP_DISK);
  1073. !         print_warn ("Swap file write failed\n");
  1074. !         errno = ENOSPC;
  1075. !         res = -1;
  1076. !     }
  1077. ! 
  1078. ! /* Return the result */
  1079. ! 
  1080. !     return res;
  1081. !     }
  1082. ! 
  1083. ! /* No swapping available - give up */
  1084. ! 
  1085. !     Clear_Extended_File ();
  1086. !     print_error ("All Swapping methods failed\n");
  1087. !     errno = ENOSPC;
  1088. !     return -1;
  1089. ! }
  1090. ! 
  1091. ! /* Get the XMS Driver information */
  1092. ! 
  1093. ! static bool    Get_XMS_Driver ()
  1094. ! {
  1095. !     union REGS        or;
  1096. !     struct SREGS    sr;
  1097. !     unsigned int    SW_EMsize;    /* Number of extend memory blks    */
  1098. ! 
  1099. ! /* Get max Extended memory pages, and convert to 16K blocks.  If Extended
  1100. !  * memory swapping disabled, set to zero
  1101. !  */
  1102. ! 
  1103. !     SW_fp = -1;                /* Set EMS/XMS handler not    */
  1104. !                     /* defined            */
  1105. ! 
  1106. ! /* Is a XMS memory driver installed */
  1107. ! 
  1108. !     or.x.ax = 0x4300;
  1109. !     int86 (0x2f, &or, &or);
  1110. ! 
  1111. !     if (or.h.al != 0x80)
  1112. !     {
  1113. !     or.x.ax = 0x8800;
  1114. !     int86 (0x15, &or, &or);
  1115. !     SW_EMsize = or.x.ax / 16;
  1116. ! 
  1117. !     if ((SW_EMsize <= SW_Blocks) ||
  1118. !          ((SW_EMstart - 0x100000L +
  1119. !           ((long)(SW_Blocks - SW_EMsize) * 16L * 1024L)) < 0L))
  1120. !         return XMS_error ("Not enough Extended memory for swap\n", 0);
  1121. ! 
  1122. !     else
  1123. !         return TRUE;
  1124. !     }
  1125. ! 
  1126. ! /* Get the driver interface */
  1127. ! 
  1128. !     or.x.ax = 0x4310;
  1129. !     int86x (0x2f, &or, &or, &sr);
  1130. !     SW_XMS_Driver = (void (*)())((unsigned long)(sr.es) << 16L | or.x.bx);
  1131. ! 
  1132. !     if ((SW_XMS_Gversion () & 0xff00) != 0x0200)
  1133. !     return XMS_error ("Warning: XMS Version != 2\n", 0);
  1134. ! 
  1135. !     else if ((SW_fp = SW_XMS_Allocate (SW_Blocks * 16)) == -1)
  1136. !     return XMS_error (XMS_emsg, errno);
  1137. ! 
  1138. !     return TRUE;
  1139. ! }
  1140. ! 
  1141. ! /* Get the EMS Driver information */
  1142. ! 
  1143. ! static bool    Get_EMS_Driver ()
  1144. ! {
  1145. !     union REGS        or;
  1146. !     struct SREGS    sr;
  1147. !     char        *sp;
  1148. ! 
  1149. ! /* Set EMS/XMS handler not defined */
  1150. ! 
  1151. !     SW_fp = -1;
  1152. ! 
  1153. !     or.x.ax = 0x3567;
  1154. !     intdosx (&or, &or, &sr);
  1155. ! 
  1156. !     sp = (char *)((unsigned long)(sr.es) << 16L | 10L);
  1157. ! 
  1158. ! /* If not there - disable */
  1159. ! 
  1160. !     if (memcmp ("EMMXXXX0", sp, 8) != 0)
  1161. !     return EMS_error ("Warning: EMS not available\n", 0);
  1162. ! 
  1163. !     or.h.ah = 0x40;            /* Check status            */
  1164. !     int86 (0x67, &or, &or);
  1165. ! 
  1166. !     if (or.h.ah != 0)
  1167. !     return EMS_error (EMS_emsg, or.h.ah);
  1168. ! 
  1169. ! /* Check version greater than 3.2 */
  1170. ! 
  1171. !     or.h.ah = 0x46;
  1172. !     int86 (0x67, &or, &or);
  1173. ! 
  1174. !     if ((or.h.ah != 0) || (or.h.al < 0x32))
  1175. !     return EMS_error ("Warning: EMS Version < 3.2\n", 0);
  1176. ! 
  1177. ! /*  get page frame address */
  1178. ! 
  1179. !     or.h.ah = 0x41;
  1180. !     int86 (0x67, &or, &or);
  1181. ! 
  1182. !     if (or.h.ah != 0)
  1183. !     return EMS_error (EMS_emsg, or.h.ah);
  1184. ! 
  1185. !     SW_EMSFrame = or.x.bx;        /* Save the page frame        */
  1186. ! 
  1187. ! /* Get the number of pages required */
  1188. ! 
  1189. !     or.h.ah = 0x43;
  1190. !     or.x.bx = SW_Blocks;
  1191. !     int86 (0x67, &or, &or);
  1192. ! 
  1193. !     if (or.h.ah != 0)
  1194. !     return EMS_error (EMS_emsg, or.h.ah);
  1195. ! 
  1196. ! /* Save the EMS Handler */
  1197. ! 
  1198. !     SW_fp = or.x.dx;
  1199. ! 
  1200. ! /* save EMS page map */
  1201. ! 
  1202. !     or.h.ah = 0x47;
  1203. !     or.x.dx = SW_fp;
  1204. !     int86 (0x67, &or, &or);
  1205. ! 
  1206. !     return (or.h.ah != 0) ? EMS_error (EMS_emsg, or.h.ah) : TRUE;
  1207. ! }
  1208. ! 
  1209. ! /* Print EMS error message */
  1210. ! 
  1211. ! static bool    EMS_error (s, v)
  1212. ! char        *s;
  1213. ! int        v;
  1214. ! {
  1215. !     print_warn (s, v);
  1216. !     Swap_Mode &= ~(SWAP_EXPAND);
  1217. !     EMS_Close ();
  1218. !     return FALSE;
  1219. ! }
  1220. ! 
  1221. ! /* Print XMS error message */
  1222. ! 
  1223. ! static bool    XMS_error (s, v)
  1224. ! char        *s;
  1225. ! int        v;
  1226. ! {
  1227. !     print_warn (s, v);
  1228. !     Swap_Mode &= ~(SWAP_EXTEND);
  1229. !     XMS_Close ();
  1230. !     return FALSE;
  1231. ! }
  1232. ! 
  1233. ! /* If the XMS handler is defined - close it */
  1234. ! 
  1235. ! static int    XMS_Close ()
  1236. ! {
  1237. !     int        res = 0;
  1238. ! 
  1239. ! /* Release XMS page */
  1240. ! 
  1241. !     if (SW_fp != -1)
  1242. !     res = SW_XMS_Free (SW_fp);
  1243. ! 
  1244. !     SW_fp = -1;
  1245. !     return res;
  1246. ! }
  1247. ! 
  1248. ! /* If the EMS handler is defined - close it */
  1249. ! 
  1250. ! static int    EMS_Close ()
  1251. ! {
  1252. !     union REGS        or;
  1253. !     int            res = 0;
  1254. ! 
  1255. !     if (SW_fp == -1)
  1256. !     return 0;
  1257. ! 
  1258. ! /* Restore EMS page */
  1259. ! 
  1260. !     or.h.ah = 0x48;
  1261. !     or.x.dx = SW_fp;
  1262. !     int86 (0x67, &or, &or);
  1263. ! 
  1264. !     if (or.h.ah != 0)
  1265. !     res = or.h.al;
  1266. ! 
  1267. !     or.h.ah = 0x45;
  1268. !     or.x.dx = SW_fp;
  1269. !     int86 (0x67, &or, &or);
  1270.   
  1271. !     SW_fp = -1;
  1272. !     return (res) ? res : or.h.ah;
  1273.   }
  1274.   
  1275.   /* Set up command line.  If the EXTENDED_LINE variable is set, we create
  1276. --- 1246,1254 ----
  1277.       else if (access (path_line, F_OK) != 0)
  1278.       return -1;
  1279.   
  1280. ! /* Process the command line. */
  1281.   
  1282. !     return build_command_line (path_line, parms, envp);
  1283.   }
  1284.   
  1285.   /* Set up command line.  If the EXTENDED_LINE variable is set, we create
  1286. ***************
  1287. *** 1595,1600 ****
  1288. --- 1271,1278 ----
  1289.       bool        found;
  1290.       char        *ep;
  1291.       char        *new_args[3];
  1292. +     char                cmd_line[CMD_LINE_MAX];
  1293. +     void         (*save_signal)(int);
  1294.   
  1295.   /* Translate process name to MSDOS format */
  1296.   
  1297. ***************
  1298. *** 1686,1692 ****
  1299.   
  1300.   /* Correctly terminate cmd_line in no swap mode */
  1301.   
  1302. -         if (Swap_Mode != SWAP_OFF)
  1303.           cmd_line[cmd_line[0] + 2] = '\r';
  1304.   
  1305.   /* If the name in the file is in upper case - use \ for separators */
  1306. --- 1364,1369 ----
  1307. ***************
  1308. *** 1696,1711 ****
  1309.   
  1310.   /* OK we are ready to execute */
  1311.   
  1312. -         if (Swap_Mode == SWAP_OFF)
  1313. -         {
  1314.           new_args[0] = *argv;
  1315.           new_args[1] = &cmd_line[1];
  1316.           new_args[2] = (char *)NULL;
  1317. -         return spawnve (P_WAIT, path, new_args, envp);
  1318. -         }
  1319.   
  1320. !         else
  1321. !         return 0;
  1322.       }
  1323.       }
  1324.   
  1325. --- 1373,1386 ----
  1326.   
  1327.   /* OK we are ready to execute */
  1328.   
  1329.           new_args[0] = *argv;
  1330.           new_args[1] = &cmd_line[1];
  1331.           new_args[2] = (char *)NULL;
  1332.   
  1333. !             save_signal = signal (SIGINT, SIG_DFL);
  1334. !         res = spawnve (spawnmode, path, new_args, envp);
  1335. !             signal (SIGINT, save_signal);
  1336. !             return res;
  1337.       }
  1338.       }
  1339.   
  1340. ***************
  1341. *** 1745,1753 ****
  1342.   
  1343.       cmd_line[0] = (char)res;
  1344.   
  1345. ! /* If swapping disabled - just execute it */
  1346.   
  1347. !     return (Swap_Mode == SWAP_OFF) ? spawnve (P_WAIT, path, argv, envp) : 0;
  1348.   }
  1349.   
  1350.   /* Check string for white space */
  1351. --- 1420,1431 ----
  1352.   
  1353.       cmd_line[0] = (char)res;
  1354.   
  1355. ! /* Just execute it */
  1356.   
  1357. !     save_signal = signal (SIGINT, SIG_DFL);
  1358. !     res = spawnve (spawnmode, path, argv, envp);
  1359. !     signal (SIGINT, save_signal);
  1360. !     return res;
  1361.   }
  1362.   
  1363.   /* Check string for white space */
  1364. ***************
  1365. *** 1784,1802 ****
  1366.       Extend_file = (char *)NULL;
  1367.   }
  1368.   
  1369. - /* Clear Disk swap file file */
  1370. - 
  1371. - void    Clear_Swap_File ()
  1372. - {
  1373. -     if (Swap_File != (char *)NULL)
  1374. -     {
  1375. -     unlink (Swap_File);
  1376. -     DELETE (Swap_File);
  1377. -     }
  1378. - 
  1379. -     Swap_File = (char *)NULL;
  1380. - }
  1381. - 
  1382.   /* Convert the executable path to the full path name */
  1383.   
  1384.   static char    *Gen_Full_Path_Name (path)
  1385. --- 1462,1467 ----
  1386. ***************
  1387. *** 1830,1838 ****
  1388.   
  1389.   /* Switch drives and get the path of the other drive */
  1390.   
  1391. !         _dos_setdrive (tolower (*path) - 'a' + 1, &dummy);
  1392.           getcwd (npath, PATH_MAX + 3);
  1393. !         _dos_setdrive (tolower (*cpath) - 'a' + 1, &dummy);
  1394.        }
  1395.       }
  1396.   
  1397. --- 1495,1503 ----
  1398.   
  1399.   /* Switch drives and get the path of the other drive */
  1400.   
  1401. !         DosSelectDisk(tolower (*path) - 'a' + 1);
  1402.           getcwd (npath, PATH_MAX + 3);
  1403. !         DosSelectDisk(tolower (*cpath) - 'a' + 1);
  1404.        }
  1405.       }
  1406.   
  1407. ***************
  1408. *** 1861,1867 ****
  1409.   /* Change to the directory containing the executable */
  1410.   
  1411.       if (*(path + 1) == ':')
  1412. !         _dos_setdrive (tolower (*path) - 'a' + 1, &dummy);
  1413.   
  1414.   /* Save the current directory on this drive */
  1415.   
  1416. --- 1526,1532 ----
  1417.   /* Change to the directory containing the executable */
  1418.   
  1419.       if (*(path + 1) == ':')
  1420. !         DosSelectDisk(tolower (*path) - 'a' + 1);
  1421.   
  1422.   /* Save the current directory on this drive */
  1423.   
  1424. ***************
  1425. *** 1882,1888 ****
  1426.   
  1427.   /* Restore our original directory */
  1428.   
  1429. !     _dos_setdrive (tolower (*cpath) - 'a' + 1, &dummy);
  1430.   
  1431.       if (chdir (cpath) < 0)
  1432.           return (char *)NULL;
  1433. --- 1547,1553 ----
  1434.   
  1435.   /* Restore our original directory */
  1436.   
  1437. !     DosSelectDisk(tolower (*cpath) - 'a' + 1);
  1438.   
  1439.       if (chdir (cpath) < 0)
  1440.           return (char *)NULL;
  1441. diff -cbBw sh-dos/sh4.c sh-os2/sh4.c
  1442. *** sh-dos/sh4.c    Thu Jul 05 19:50:28 1990
  1443. --- sh-os2/sh4.c    Sat Aug 04 16:22:18 1990
  1444. ***************
  1445. *** 45,59 ****
  1446.   #include <signal.h>
  1447.   #include <errno.h>
  1448.   #include <setjmp.h>
  1449. - #include <dirent.h>
  1450.   #include <string.h>
  1451.   #include <stdlib.h>
  1452.   #include <unistd.h>
  1453.   #include <ctype.h>
  1454. - #include <bios.h>
  1455. - #include <dos.h>
  1456.   #include "sh.h"
  1457.   
  1458.   /*
  1459.    * ${}, `command`, blank interpretation, quoting and file name expansion
  1460.    */
  1461. --- 45,62 ----
  1462.   #include <signal.h>
  1463.   #include <errno.h>
  1464.   #include <setjmp.h>
  1465.   #include <string.h>
  1466.   #include <stdlib.h>
  1467. + #include <stdio.h>
  1468.   #include <unistd.h>
  1469. + #include <dir.h>
  1470.   #include <ctype.h>
  1471.   #include "sh.h"
  1472.   
  1473. + #define INCL_NOPM
  1474. + #define INCL_DOS
  1475. + #include <os2.h>
  1476. + 
  1477.   /*
  1478.    * ${}, `command`, blank interpretation, quoting and file name expansion
  1479.    */
  1480. ***************
  1481. *** 853,859 ****
  1482.       register char    *np, *cp;
  1483.       char        *name, *gp, *dp;
  1484.       DIR            *dn;
  1485. !     struct dirent    *d_ce;
  1486.       char        dname[NAME_MAX + 1];
  1487.       struct stat        dbuf;
  1488.   
  1489. --- 856,862 ----
  1490.       register char    *np, *cp;
  1491.       char        *name, *gp, *dp;
  1492.       DIR            *dn;
  1493. !     struct direct    *d_ce;
  1494.       char        dname[NAME_MAX + 1];
  1495.       struct stat        dbuf;
  1496.   
  1497. ***************
  1498. *** 898,904 ****
  1499.   
  1500.   /* Scan for matches */
  1501.   
  1502. !     while ((d_ce = readdir (dn)) != (struct dirent *)NULL)
  1503.       {
  1504.       if ((*(strcpy (dname, d_ce->d_name)) == '.') && (*gp != '.'))
  1505.           continue;
  1506. --- 901,907 ----
  1507.   
  1508.   /* Scan for matches */
  1509.   
  1510. !     while ((d_ce = readdir (dn)) != (struct direct *)NULL)
  1511.       {
  1512.       if ((*(strcpy (dname, d_ce->d_name)) == '.') && (*gp != '.'))
  1513.           continue;
  1514. ***************
  1515. *** 1105,1153 ****
  1516.   char        *start;
  1517.   {
  1518.       unsigned int    c_drive;    /* Current drive        */
  1519. -     unsigned int    m_drive;    /* Max drive            */
  1520. -     unsigned int    s_drive;    /* Selected drive        */
  1521. -     unsigned int    x_drive, y_drive;    /* Dummies        */
  1522.       char        *multi;        /* Multi-drive flag        */
  1523.       static char        *t_drive = "x";
  1524.       char        *new_pattern;
  1525.   
  1526.   /* Search all drives ? */
  1527.   
  1528.       if ((multi = Check_Multi_Drive (pattern)) != (char *)NULL)
  1529.       {
  1530. !     _dos_getdrive (&c_drive);    /* Get number of drives        */
  1531. !     _dos_setdrive (c_drive, &m_drive);
  1532. !     new_pattern = space (strlen (multi) + 2);
  1533.   
  1534.       strcpy (new_pattern + 1, multi);
  1535. -     *multi = 0;
  1536.   
  1537. !     for (s_drive = 1; s_drive <= m_drive; ++s_drive)
  1538.       {
  1539. !         _dos_setdrive (s_drive, &x_drive);
  1540. !         _dos_getdrive (&y_drive);
  1541. !         _dos_setdrive (c_drive, &x_drive);
  1542. ! 
  1543. ! /* Check to see if the second diskette drive is really there */
  1544. ! 
  1545. !         if (((_bios_equiplist () & 0x00c0) == 0x0000) && (s_drive == 2))
  1546. !         continue;
  1547. ! 
  1548. ! /* If the drive exists and is in our list - process it */
  1549. ! 
  1550. !         *t_drive = (char)(s_drive + 'a' - 1);
  1551.   
  1552. !         if ((y_drive == s_drive) && gmatch (t_drive, pattern, TRUE))
  1553.           {
  1554.           *new_pattern = *t_drive;
  1555. !         globname (new_pattern, &new_pattern[2]);
  1556.           }
  1557.       }
  1558.   
  1559.   /* Restore and delete space */
  1560.   
  1561. -     *multi = ':';
  1562.       DELETE (new_pattern);
  1563.       }
  1564.   
  1565. --- 1108,1146 ----
  1566.   char        *start;
  1567.   {
  1568.       unsigned int    c_drive;    /* Current drive        */
  1569.       char        *multi;        /* Multi-drive flag        */
  1570.       static char        *t_drive = "x";
  1571.       char        *new_pattern;
  1572. +     ULONG               l_map;
  1573. +     int                 cnt;
  1574.   
  1575.   /* Search all drives ? */
  1576.   
  1577.       if ((multi = Check_Multi_Drive (pattern)) != (char *)NULL)
  1578.       {
  1579. !         DosQCurDisk((PUSHORT) &c_drive, &l_map);
  1580.   
  1581. +     new_pattern = space (strlen (multi) + 2);
  1582.       strcpy (new_pattern + 1, multi);
  1583.   
  1584. !         for ( cnt = 1; cnt <= 26; cnt++, l_map >>= 1 )
  1585. !           if ( l_map & 1L )
  1586.         {
  1587. !           *t_drive = (char)(cnt + 'a' - 1);
  1588. !               *multi = 0;
  1589.   
  1590. !           if (gmatch (t_drive, pattern, TRUE))
  1591.             {
  1592.             *new_pattern = *t_drive;
  1593. !                 *multi = ':';
  1594. !           globname (new_pattern, strchr(new_pattern,0));
  1595.             }
  1596. +               else
  1597. +                 *multi = ':';
  1598.         }
  1599.   
  1600.   /* Restore and delete space */
  1601.   
  1602.       DELETE (new_pattern);
  1603.       }
  1604.   
  1605. diff -cbBw sh-dos/sh6.c sh-os2/sh6.c
  1606. *** sh-dos/sh6.c    Thu Jul 05 19:50:30 1990
  1607. --- sh-os2/sh6.c    Sat Aug 04 13:45:18 1990
  1608. ***************
  1609. *** 69,76 ****
  1610.   #include <string.h>
  1611.   #include "sh.h"
  1612.   
  1613. ! static char    *Copy_Right1 = "MS-DOS SH Version 1.6.2 - %s (DOS %d.%d)\n";
  1614.   static char    *Copy_Right2 = "Copyright (c) Data Logic Ltd and Charles Forsyth 1990\n";
  1615.   char        **dolv;        /* Parameter array            */
  1616.   int        dolc;        /* Number of entries in parameter array    */
  1617.   int        exstat;        /* Exit status                */
  1618. --- 69,78 ----
  1619.   #include <string.h>
  1620.   #include "sh.h"
  1621.   
  1622. ! static char    *Copy_Right1 = "\nSH Version 1.6.2 - %s (OS/2 %d.%02d)\n";
  1623.   static char    *Copy_Right2 = "Copyright (c) Data Logic Ltd and Charles Forsyth 1990\n";
  1624. + static char    *Copy_Right3 = "Ported to OS/2 by Kai Uwe Rommel 1990\n\n";
  1625. + 
  1626.   char        **dolv;        /* Parameter array            */
  1627.   int        dolc;        /* Number of entries in parameter array    */
  1628.   int        exstat;        /* Exit status                */
  1629. ***************
  1630. *** 83,89 ****
  1631.   int        *failpt;    /* Current fail point jump address    */
  1632.   int        *errpt;        /* Current error point jump address    */
  1633.                   /* Swap mode                */
  1634. - int        Swap_Mode = SWAP_EXPAND | SWAP_DISK;
  1635.   Break_C        *Break_List;    /* Break list for FOR/WHILE        */
  1636.   Break_C        *Return_List;    /* Return list for RETURN        */
  1637.   Break_C        *SShell_List;    /* SubShell list for EXIT        */
  1638. --- 85,90 ----
  1639. ***************
  1640. *** 161,167 ****
  1641.   {
  1642.       char    buf[100];
  1643.   
  1644. !     sprintf (buf, Copy_Right1, __DATE__, _osmajor, _osminor);
  1645.       write (fp, buf, strlen (buf));
  1646.       write (fp, Copy_Right2, strlen (Copy_Right2));
  1647.   }
  1648. --- 162,169 ----
  1649.   {
  1650.       char    buf[100];
  1651.   
  1652. !     sprintf (buf, Copy_Right1, __DATE__, _osmajor / 10, _osminor);
  1653.       write (fp, buf, strlen (buf));
  1654.       write (fp, Copy_Right2, strlen (Copy_Right2));
  1655. +     write (fp, Copy_Right3, strlen (Copy_Right3));
  1656.   }
  1657. diff -cbBw sh-dos/sh7.c sh-os2/sh7.c
  1658. *** sh-dos/sh7.c    Thu Jul 05 19:50:32 1990
  1659. --- sh-os2/sh7.c        Fri Aug 17 19:09:32 1990
  1660. ***************
  1661. *** 78,84 ****
  1662.   #include <sys/stat.h>
  1663.   #include <stdio.h>
  1664.   #include <process.h>
  1665. - #include <dos.h>
  1666.   #include <signal.h>
  1667.   #include <errno.h>
  1668.   #include <setjmp.h>
  1669. --- 78,83 ----
  1670. ***************
  1671. *** 91,96 ****
  1672. --- 90,99 ----
  1673.   #include <stdarg.h>
  1674.   #include "sh.h"
  1675.   
  1676. + #define INCL_NOPM
  1677. + #define INCL_DOS
  1678. + #include <os2.h>
  1679. + 
  1680.   #define    SECS        60L
  1681.   #define    MINS        3600L
  1682.   #define IS_OCTAL(a)    (((a) >= '0') && ((a) <= '7'))
  1683. ***************
  1684. *** 101,107 ****
  1685.   #define FILE_READABLE    1
  1686.   #define FILE_WRITABLE    2
  1687.   #define FILE_REGULAR    3
  1688. ! #define FILE_DIRECTORY    4
  1689.   #define FILE_NONZERO    5
  1690.   #define FILE_TERMINAL    6
  1691.   #define STRING_ZERO    7
  1692. --- 104,110 ----
  1693.   #define FILE_READABLE    1
  1694.   #define FILE_WRITABLE    2
  1695.   #define FILE_REGULAR    3
  1696. ! #define _FILE_DIRECTORY    4
  1697.   #define FILE_NONZERO    5
  1698.   #define FILE_TERMINAL    6
  1699.   #define STRING_ZERO    7
  1700. ***************
  1701. *** 143,149 ****
  1702.       {"-w",    FILE_WRITABLE,        UNARY_OP},
  1703.       {"-x",    FILE_EXECUTABLE,    UNARY_OP},
  1704.       {"-f",    FILE_REGULAR,        UNARY_OP},
  1705. !     {"-d",    FILE_DIRECTORY,        UNARY_OP},
  1706.       {"-s",    FILE_NONZERO,        UNARY_OP},
  1707.       {"-t",    FILE_TERMINAL,        UNARY_OP},
  1708.       {"-z",    STRING_ZERO,        UNARY_OP},
  1709. --- 146,152 ----
  1710.       {"-w",    FILE_WRITABLE,        UNARY_OP},
  1711.       {"-x",    FILE_EXECUTABLE,    UNARY_OP},
  1712.       {"-f",    FILE_REGULAR,        UNARY_OP},
  1713. !     {"-d",    _FILE_DIRECTORY,    UNARY_OP},
  1714.       {"-s",    FILE_NONZERO,        UNARY_OP},
  1715.       {"-t",    FILE_TERMINAL,        UNARY_OP},
  1716.       {"-z",    STRING_ZERO,        UNARY_OP},
  1717. ***************
  1718. *** 197,203 ****
  1719.   static int        doecho (C_Op *);
  1720.   static int        dogetopt (C_Op *);
  1721.   static int        dopwd (C_Op *);
  1722. - static int        doswap (C_Op *);
  1723.   static int        dounset (C_Op *);
  1724.   static int        dotype (C_Op *);
  1725.   static int        dotest (C_Op *);
  1726. --- 200,205 ----
  1727. ***************
  1728. *** 217,222 ****
  1729. --- 219,226 ----
  1730.   static int        doreadonly (C_Op *);
  1731.   static int        doset (C_Op *);
  1732.   static int        dohistory (C_Op *);
  1733. + extern int              dojobs(C_Op *);
  1734. + 
  1735.   static void        setsig (int, int (*)());
  1736.   static int        rdexp (char **, int, char *);
  1737.   
  1738. ***************
  1739. *** 453,575 ****
  1740.   }
  1741.   
  1742.   /*
  1743. !  * Display the current version
  1744.    */
  1745.   
  1746. ! static int    dover (t)
  1747.   C_Op        *t;
  1748.   {
  1749. -     Print_Version (1);
  1750.       return 0;
  1751.   }
  1752.   
  1753. - static char    *swap_device[] = {"disk", "extend", "expand"};
  1754. - 
  1755.   /*
  1756. !  * Modify swapping information: swap options
  1757.    */
  1758.   
  1759. ! static int    doswap (t)
  1760. ! register C_Op    *t;
  1761. ! {
  1762. !     register int    n = 1;
  1763. !     char        *cp;
  1764. ! 
  1765. ! /* Display current values ? */
  1766. ! 
  1767. !     if (t->words[1] == (char *)NULL)
  1768. !     {
  1769. !     if (Swap_Mode == SWAP_OFF)
  1770. !         v1a_puts ("Swapping disabled");
  1771. ! 
  1772. !     else
  1773. !     {
  1774. !         register int    j;
  1775. ! 
  1776. !         v1_puts ("Swap devices: ");
  1777. ! 
  1778. !         for (j = 0, n = 1; j < 3; ++j, n <<= 1)
  1779. !         {
  1780. !         if (Swap_Mode & n)
  1781. !         {
  1782. !             v1printf ("%s ", swap_device[j]);
  1783. ! 
  1784. !             if (n == SWAP_EXTEND)
  1785. !             v1printf ("(0x%.6lx) ", SW_EMstart);
  1786. !         }
  1787. !         }
  1788. ! 
  1789. !         v1_putc (NL);
  1790. !     }
  1791. ! 
  1792. !     return 0;
  1793. !     }
  1794. ! 
  1795. ! /* Set up new values */
  1796. ! 
  1797. !     Swap_Mode = SWAP_OFF;
  1798. !     Clear_Swap_File ();
  1799. ! 
  1800. !     while ((cp = t->words[n++]) != (char *)NULL)
  1801.       {
  1802. !     if (strcmp (cp, "off") == 0)
  1803. !         Swap_Mode = SWAP_OFF;
  1804. ! 
  1805. !     else if (strcmp (cp, "on") == 0)
  1806. !         Swap_Mode = SWAP_DISK | SWAP_EXPAND | SWAP_EXTEND;
  1807. ! 
  1808. ! /* Scan for valid arguments */
  1809. ! 
  1810. !     else
  1811. !     {
  1812. !         register int    j, k;
  1813. ! 
  1814. !         for (j = 0, k = 1; j < 3; ++j, k <<= 1)
  1815. !         {
  1816. !         if (strcmp (cp, swap_device[j]) == 0)
  1817. !         {
  1818. !             Swap_Mode |= k;
  1819. ! 
  1820. ! /* If extended memory, they can specify the start address as a hex number */
  1821. ! 
  1822. !             if (k == SWAP_EXTEND)
  1823. !             {
  1824. !             char    *sp;
  1825. !             long    start;
  1826. ! 
  1827. ! /* Check for not changed */
  1828. ! 
  1829. !             if ((sp = t->words[n]) == (char *)NULL)
  1830. !                 break;
  1831. ! 
  1832. ! /* Convert hex number */
  1833. ! 
  1834. !             start = strtol (sp, &sp, 16);
  1835. ! 
  1836. ! /* If not completely a hex number, ignore */
  1837. ! 
  1838. !             if (*sp)
  1839. !                 break;
  1840. ! 
  1841. ! /* Set used and saved new value */
  1842. ! 
  1843. !             SW_EMstart = start;
  1844. !             ++n;
  1845. ! 
  1846. !             if ((SW_EMstart < 0x100000L) ||
  1847. !                 (SW_EMstart > 0xf00000L))
  1848. !                 SW_EMstart = 0x100000L;
  1849. ! 
  1850. !             v1printf ("Extend memory start set to 0x%.6lx\n",
  1851. !                   SW_EMstart);
  1852. !             }
  1853. ! 
  1854. !             break;
  1855. !         }
  1856. !         }
  1857. !     }
  1858. !     }
  1859. ! 
  1860.       return 0;
  1861.   }
  1862.   
  1863. --- 457,479 ----
  1864.   }
  1865.   
  1866.   /*
  1867. !  * Do nothing
  1868.    */
  1869.   
  1870. ! static int    donothing (t)
  1871.   C_Op        *t;
  1872.   {
  1873.       return 0;
  1874.   }
  1875.   
  1876.   /*
  1877. !  * Display the current version
  1878.    */
  1879.   
  1880. ! static int    dover (t)
  1881. ! C_Op        *t;
  1882.   {
  1883. !     Print_Version (1);
  1884.       return 0;
  1885.   }
  1886.   
  1887. ***************
  1888. *** 846,852 ****
  1889.       case FILE_REGULAR:
  1890.           return stat (*test_alist, &s) == 0 && S_ISREG(s.st_mode);
  1891.   
  1892. !     case FILE_DIRECTORY:
  1893.           return stat (*test_alist, &s) == 0 && S_ISDIR(s.st_mode);
  1894.   
  1895.       case FILE_NONZERO:
  1896. --- 750,756 ----
  1897.       case FILE_REGULAR:
  1898.           return stat (*test_alist, &s) == 0 && S_ISREG(s.st_mode);
  1899.   
  1900. !     case _FILE_DIRECTORY:
  1901.           return stat (*test_alist, &s) == 0 && S_ISDIR(s.st_mode);
  1902.   
  1903.       case FILE_NONZERO:
  1904. ***************
  1905. *** 948,957 ****
  1906.   {
  1907.       unsigned int    cdrive;
  1908.       unsigned int    ndrive = tolower (**t->words) - 'a' + 1;
  1909.   
  1910. !     _dos_setdrive (ndrive, &cdrive);
  1911.       Getcwd ();
  1912. !     _dos_getdrive (&cdrive);
  1913.       return (ndrive == cdrive) ? 0 : 1;
  1914.   }
  1915.   
  1916. --- 852,862 ----
  1917.   {
  1918.       unsigned int    cdrive;
  1919.       unsigned int    ndrive = tolower (**t->words) - 'a' + 1;
  1920. +     ULONG l_map;
  1921.   
  1922. !     DosSelectDisk(ndrive);
  1923.       Getcwd ();
  1924. !     DosQCurDisk((PUSHORT) &cdrive, &l_map);
  1925.       return (ndrive == cdrive) ? 0 : 1;
  1926.   }
  1927.   
  1928. ***************
  1929. *** 969,974 ****
  1930. --- 874,880 ----
  1931.       int            first = 0;
  1932.       unsigned int    dummy;
  1933.       unsigned int    cdrive;
  1934. +     ULONG l_map;
  1935.   
  1936.   /* If restricted shell - illegal */
  1937.   
  1938. ***************
  1939. *** 992,998 ****
  1940.   
  1941.   /* Save the current drive */
  1942.   
  1943. !     _dos_getdrive (&cdrive);
  1944.   
  1945.   /* Scan for the directory.  If there is not a / or : at start, use the
  1946.    * CDPATH variable
  1947. --- 898,904 ----
  1948.   
  1949.   /* Save the current drive */
  1950.   
  1951. !     DosQCurDisk((PUSHORT) &cdrive, &l_map);
  1952.   
  1953.   /* Scan for the directory.  If there is not a / or : at start, use the
  1954.    * CDPATH variable
  1955. ***************
  1956. *** 1011,1017 ****
  1957.   
  1958.       if (*(nd + 1) == ':')
  1959.       {
  1960. !         _dos_setdrive (tolower (*nd) - 'a' + 1, &dummy);
  1961.           nd += 2;
  1962.       }
  1963.   
  1964. --- 917,923 ----
  1965.   
  1966.       if (*(nd + 1) == ':')
  1967.       {
  1968. !         DosSelectDisk(tolower (*nd) - 'a' + 1);
  1969.           nd += 2;
  1970.       }
  1971.   
  1972. ***************
  1973. *** 1038,1044 ****
  1974.   
  1975.   /* Restore our original drive and restore directory info */
  1976.   
  1977. !     _dos_setdrive (cdrive, &dummy);
  1978.       Getcwd ();
  1979.   
  1980.       print_error ("%s: bad directory\n", p);
  1981. --- 944,950 ----
  1982.   
  1983.   /* Restore our original drive and restore directory info */
  1984.   
  1985. !     DosSelectDisk(cdrive);
  1986.       Getcwd ();
  1987.   
  1988.       print_error ("%s: bad directory\n", p);
  1989. ***************
  1990. *** 1756,1766 ****
  1991.   #endif
  1992.   
  1993.   /*
  1994. !  * Type fucntion: For each name, indicate how it would be interpreted
  1995.    */
  1996.   
  1997.   static char    *type_ext[] = {
  1998. !     "", ".exe", ".com", ".sh", ".bat"
  1999.   };
  2000.   
  2001.   static int    dotype (t)
  2002. --- 1662,1672 ----
  2003.   #endif
  2004.   
  2005.   /*
  2006. !  * Type function: For each name, indicate how it would be interpreted
  2007.    */
  2008.   
  2009.   static char    *type_ext[] = {
  2010. !     "", ".exe", ".com", ".sh", BATCHEXT
  2011.   };
  2012.   
  2013.   static int    dotype (t)
  2014. ***************
  2015. *** 1776,1781 ****
  2016. --- 1682,1688 ----
  2017.       bool        found;            /* Found flag        */
  2018.       char        *l_path;
  2019.       Fun_Ops        *fops;
  2020. +     char                *mp;
  2021.   
  2022.   /* Get some memory for the buffer */
  2023.   
  2024. ***************
  2025. *** 1789,1794 ****
  2026. --- 1696,1714 ----
  2027.   
  2028.       while ((cp = t->words[n++]) != (char *)NULL)
  2029.       {
  2030. +     if ( inbuilt (cp) )
  2031. +         {
  2032. +         v1_puts (cp);
  2033. +         v1a_puts (" is a shell internal command");
  2034. +         continue;
  2035. +         }
  2036. + 
  2037. +         if ( cmd_internal(cp) )
  2038. +         {
  2039. +         v1_puts (cp);
  2040. +         v1a_puts (" is a CMD.EXE internal command");
  2041. +         continue;
  2042. +         }
  2043.   
  2044.   /* Check for a function */
  2045.   
  2046. ***************
  2047. *** 1841,1849 ****
  2048.   
  2049.               else if ((stricmp (xp, ".exe") != 0) &&
  2050.                    (stricmp (xp, ".com") != 0) &&
  2051. !                  (stricmp (xp, ".bat") != 0))
  2052.               continue;
  2053.   
  2054.               print_error ("%s is %s\n", cp, l_path);
  2055.               found = TRUE;
  2056.           }
  2057. --- 1761,1775 ----
  2058.   
  2059.               else if ((stricmp (xp, ".exe") != 0) &&
  2060.                    (stricmp (xp, ".com") != 0) &&
  2061. !                  (stricmp (xp, BATCHEXT) != 0))
  2062.               continue;
  2063.   
  2064. +                     strlwr(l_path);
  2065. + 
  2066. +                     for ( mp = l_path; *mp; mp++ )
  2067. +                       if ( *mp == '\\' )
  2068. +                         *mp = '/';
  2069. + 
  2070.               print_error ("%s is %s\n", cp, l_path);
  2071.               found = TRUE;
  2072.           }
  2073. ***************
  2074. *** 1871,1880 ****
  2075. --- 1797,1808 ----
  2076.       "exec",        doexec,
  2077.       "exit",        doexit,
  2078.       "export",    doexport,
  2079. +         "extproc",      donothing,
  2080.       "getopt",    dogetopt,
  2081.   #ifndef NO_HISTORY
  2082.       "history",    dohistory,
  2083.   #endif
  2084. +         "jobs",         dojobs,
  2085.       "msdos",    domsdos,
  2086.       "pwd",        dopwd,
  2087.       "read",        doread,
  2088. ***************
  2089. *** 1882,1888 ****
  2090.       "return",    doreturn,
  2091.       "set",        doset,
  2092.       "shift",    doshift,
  2093. -     "swap",        doswap,
  2094.       "test",        dotest,
  2095.       "trap",        dotrap,
  2096.       "type",        dotype,
  2097. --- 1810,1815 ----
  2098. ***************
  2099. *** 1911,1916 ****
  2100. --- 1838,1872 ----
  2101.       }
  2102.   
  2103.       return (int (*)())NULL;
  2104. + }
  2105. + 
  2106. + /* recognize CMD.EXE internal commands */
  2107. + 
  2108. + char *cmd_tab[] =
  2109. + {
  2110. +   "chcp", "cls", "copy",
  2111. +   "date", "del", "detach", "dir",
  2112. +   "erase",
  2113. +   "md", "mkdir", "move",
  2114. +   "ren", "rename", "rd", "rmdir",
  2115. +   "start",
  2116. +   "time",
  2117. +   NULL
  2118. + };
  2119. + 
  2120. + #define cmds (sizeof(cmd_tab) / sizeof(char *) - 1)
  2121. + 
  2122. + char *cmd_internal(char *s)
  2123. + {
  2124. +     int cnt;
  2125. + 
  2126. +     for ( cnt = 0; cnt < cmds; cnt++ )
  2127. +     {
  2128. +     if (stricmp (cmd_tab[cnt], s) == 0)
  2129. +         return cmd_tab[cnt];
  2130. +     }
  2131. + 
  2132. +     return NULL;
  2133.   }
  2134.   
  2135.   /* Write to stdout functions - printf, fputs, fputc, and a special */
  2136. diff -cbBw sh-dos/sh8.c sh-os2/sh8.c
  2137. *** sh-dos/sh8.c    Thu Jul 05 19:50:34 1990
  2138. --- sh-os2/sh8.c    Sat Aug 04 17:44:18 1990
  2139. ***************
  2140. *** 58,63 ****
  2141. --- 58,64 ----
  2142.   #include <errno.h>
  2143.   #include <setjmp.h>
  2144.   #include <stdlib.h>
  2145. + #include <stdio.h>
  2146.   #include <fcntl.h>
  2147.   #include <io.h>
  2148.   #include <stdarg.h>
  2149. ***************
  2150. *** 594,600 ****
  2151.   /* Try the file name and then with a .sh appended */
  2152.   
  2153.       if ((i = Check_Script (strcpy (local_path, path), params, nargs)) < 0)
  2154. !     i = Check_Script (strcat (local_path, ".sh"), params, nargs);
  2155.   
  2156.       DELETE (local_path);
  2157.       return i;
  2158. --- 595,602 ----
  2159.   /* Try the file name and then with a .sh appended */
  2160.   
  2161.       if ((i = Check_Script (strcpy (local_path, path), params, nargs)) < 0)
  2162. !       if ((i = Check_Script (strcat (local_path, ".sh"), params, nargs)) == 0)
  2163. !         strcpy(path, local_path);
  2164.   
  2165.       DELETE (local_path);
  2166.       return i;
  2167. diff -cbBw sh-dos/sh9.c sh-os2/sh9.c
  2168. *** sh-dos/sh9.c    Thu Jul 05 19:50:34 1990
  2169. --- sh-os2/sh9.c    Sat Aug 04 19:02:28 1990
  2170. ***************
  2171. *** 74,84 ****
  2172.   #include <errno.h>
  2173.   #include <setjmp.h>
  2174.   #include <limits.h>
  2175. - #include <dos.h>
  2176.   #include <unistd.h>
  2177. ! #include <dirent.h>
  2178.   #include "sh.h"
  2179.   
  2180.   /* Keyboard functions */
  2181.   
  2182.   #define KF_LENGTH        (sizeof (KF_List) / sizeof (KF_List[0]))
  2183. --- 74,87 ----
  2184.   #include <errno.h>
  2185.   #include <setjmp.h>
  2186.   #include <limits.h>
  2187.   #include <unistd.h>
  2188. ! #include <dir.h>
  2189.   #include "sh.h"
  2190.   
  2191. + #define INCL_NOPM
  2192. + #define INCL_VIO
  2193. + #include <os2.h>
  2194. + 
  2195.   /* Keyboard functions */
  2196.   
  2197.   #define KF_LENGTH        (sizeof (KF_List) / sizeof (KF_List[0]))
  2198. ***************
  2199. *** 99,107 ****
  2200.   #define KF_DELETELEFT    0x0e        /* Delete left character    */
  2201.   #define KF_COMPLETE    0x0f        /* Complete file name        */
  2202.   #define KF_DIRECTORY    0x10        /* Complete directory function    */
  2203. ! #define KF_END_FKEYS    0x11        /* End of function keys        */
  2204. ! #define KF_RINGBELL    0x11        /* Ring bell            */
  2205. ! #define KF_HALFHEIGTH    0x12        /* Half height cursor        */
  2206.   
  2207.   /* Function Declarations */
  2208.   
  2209. --- 102,112 ----
  2210.   #define KF_DELETELEFT    0x0e        /* Delete left character    */
  2211.   #define KF_COMPLETE    0x0f        /* Complete file name        */
  2212.   #define KF_DIRECTORY    0x10        /* Complete directory function    */
  2213. ! #define KF_JOBS         0x11            /* Jobs list */
  2214. ! #define KF_END_FKEYS    0x12        /* End of function keys        */
  2215. ! #define KF_RINGBELL    0x12        /* Ring bell            */
  2216. ! #define KF_HALFHEIGTH    0x13        /* Half height cursor        */
  2217. ! 
  2218.   
  2219.   /* Function Declarations */
  2220.   
  2221. ***************
  2222. *** 130,136 ****
  2223.   static int    Max_Cols  = 80;        /* Max columns            */
  2224.   static int    Max_Lines = 25;        /* Max Lines            */
  2225.   #ifndef NO_HISTORY
  2226. ! static bool    insert_mode = FALSE;
  2227.   static char    *c_buffer_pos;        /* Position in command line    */
  2228.   static char    *end_buffer;        /* End of command line        */
  2229.   static int    m_line = 0;        /* Max write line number    */
  2230. --- 135,141 ----
  2231.   static int    Max_Cols  = 80;        /* Max columns            */
  2232.   static int    Max_Lines = 25;        /* Max Lines            */
  2233.   #ifndef NO_HISTORY
  2234. ! static bool    insert_mode = TRUE;
  2235.   static char    *c_buffer_pos;        /* Position in command line    */
  2236.   static char    *end_buffer;        /* End of command line        */
  2237.   static int    m_line = 0;        /* Max write line number    */
  2238. ***************
  2239. *** 162,180 ****
  2240.       { "WordRight",    0,    't',    KF_WORDRIGHT },
  2241.       { "WordLeft",    0,    's',    KF_WORDLEFT },
  2242.       { "Start",        0,    'G',    KF_START },
  2243. !     { "Clear",        0,    'v',    KF_CLEAR },
  2244.       { "Flush",        0,    'u',    KF_FLUSH },
  2245.       { "End",        0,    'O',    KF_END },
  2246.       { "Insert",        0,    'R',    KF_INSERT },
  2247.       { "DeleteRight",    0,    'S',    KF_DELETERIGHT },
  2248.       { "DeleteLeft",    0x08,    0,    KF_DELETELEFT },
  2249. !     { "Complete",    0,    'w',    KF_COMPLETE },
  2250.       { "Directory",    0,    0x0f,    KF_DIRECTORY },
  2251.   
  2252.   /* End of function keys - flags */
  2253.   
  2254.       { "Bell",        1,    0,    KF_RINGBELL },
  2255. !     { "HalfHeight",    0,    0,    KF_HALFHEIGTH }
  2256.   };
  2257.   
  2258.   /* Arrary of history Items */
  2259. --- 167,186 ----
  2260.       { "WordRight",    0,    't',    KF_WORDRIGHT },
  2261.       { "WordLeft",    0,    's',    KF_WORDLEFT },
  2262.       { "Start",        0,    'G',    KF_START },
  2263. !     { "Clear",        0x1b,    0,    KF_CLEAR },
  2264.       { "Flush",        0,    'u',    KF_FLUSH },
  2265.       { "End",        0,    'O',    KF_END },
  2266.       { "Insert",        0,    'R',    KF_INSERT },
  2267.       { "DeleteRight",    0,    'S',    KF_DELETERIGHT },
  2268.       { "DeleteLeft",    0x08,    0,    KF_DELETELEFT },
  2269. !     { "Complete",    0x09,    0,    KF_COMPLETE },
  2270.       { "Directory",    0,    0x0f,    KF_DIRECTORY },
  2271. +     { "Jobs",        0,    0x94,    KF_JOBS },
  2272.   
  2273.   /* End of function keys - flags */
  2274.   
  2275.       { "Bell",        1,    0,    KF_RINGBELL },
  2276. !     { "HalfHeight",    1,    0,    KF_HALFHEIGTH }
  2277.   };
  2278.   
  2279.   /* Arrary of history Items */
  2280. ***************
  2281. *** 238,244 ****
  2282.   
  2283.       while (TRUE)
  2284.       {
  2285. !     Init_Input (FALSE);            /* Initialise        */
  2286.   
  2287.       while (((a_key = (char)getch ()) != 0x1a) && (a_key != NL) &&
  2288.           (a_key != '\r'))
  2289. --- 244,250 ----
  2290.   
  2291.       while (TRUE)
  2292.       {
  2293. !     Init_Input (TRUE);            /* Initialise        */
  2294.   
  2295.       while (((a_key = (char)getch ()) != 0x1a) && (a_key != NL) &&
  2296.           (a_key != '\r'))
  2297. ***************
  2298. *** 246,251 ****
  2299. --- 252,260 ----
  2300.   
  2301.   /* If function key, get the fkey value */
  2302.   
  2303. +             if ( a_key == 0xE0 )
  2304. +               a_key = 0;
  2305. + 
  2306.           if (!a_key)
  2307.           f_key = (char)getch ();
  2308.   
  2309. ***************
  2310. *** 482,487 ****
  2311. --- 491,503 ----
  2312.   
  2313.              return TRUE;
  2314.   
  2315. +         case KF_JOBS:
  2316. +         v1_putc (NL);
  2317. +             dojobs(NULL);
  2318. +         put_prompt (last_prompt);
  2319. +         read_cursor_position ();
  2320. +             return TRUE;
  2321. + 
  2322.       case KF_DIRECTORY:        /* File name directory        */
  2323.           fn_search = TRUE;
  2324.   
  2325. ***************
  2326. *** 521,540 ****
  2327.   static void    set_cursor_shape (mode)
  2328.   bool        mode;
  2329.   {
  2330. !     union REGS        r;
  2331.   
  2332. ! /* Get the current cursor position to get the cursor lines */
  2333.   
  2334. !     r.h.ah = 0x03;
  2335. !     int86 (0x10, &r, &r);
  2336. ! 
  2337. ! /* Reset the type */
  2338. ! 
  2339. !     r.h.ah = 0x01;
  2340. !     r.h.ch = (unsigned char)(!mode ? r.h.cl - 1
  2341. !                    : (KF_List[KF_HALFHEIGTH].akey
  2342. !                     ? (r.h.cl / 2) + 1 : 1));
  2343. !     int86 (0x10, &r, &r);
  2344.   }
  2345.   #endif
  2346.   
  2347. --- 537,550 ----
  2348.   static void    set_cursor_shape (mode)
  2349.   bool        mode;
  2350.   {
  2351. !   VIOCURSORINFO vioci;
  2352.   
  2353. !   vioci.yStart = mode ? (KF_List[KF_HALFHEIGTH].akey ? -50 : 0) : -90;
  2354. !   vioci.cEnd = -100;
  2355. !   vioci.cx = 0;
  2356. !   vioci.attr = 0;
  2357.   
  2358. !   VioSetCurType(&vioci, 0);
  2359.   }
  2360.   #endif
  2361.   
  2362. ***************
  2363. *** 542,553 ****
  2364.   
  2365.   static void    read_cursor_position ()
  2366.   {
  2367. !     union REGS    r;
  2368.   
  2369. !     r.h.ah = 0x03;                /* Read cursor position    */
  2370. !     r.h.bh = 0;                    /* Page zero        */
  2371. !     int86 (0x10, &r, &r);
  2372. !     s_cursor = (r.h.dh * Max_Cols) + r.h.dl;
  2373.   }
  2374.   
  2375.   /* Re-position the cursor */
  2376. --- 552,561 ----
  2377.   
  2378.   static void    read_cursor_position ()
  2379.   {
  2380. !     USHORT usRow, usColumn;
  2381.   
  2382. !     VioGetCurPos(&usRow, &usColumn, 0);
  2383. !     s_cursor = (usRow * Max_Cols) + usColumn;
  2384.   }
  2385.   
  2386.   /* Re-position the cursor */
  2387. ***************
  2388. *** 557,579 ****
  2389.   int        new;
  2390.   {
  2391.       int        diff;
  2392. !     union REGS    r;
  2393.   
  2394. !     r.h.ah = 0x02;                /* Set new position    */
  2395. !     r.h.bh = 0;                    /* Page zero        */
  2396. !     r.h.dh = (unsigned char)(new / Max_Cols);
  2397. !     r.h.dl = (unsigned char)(new % Max_Cols);
  2398.   
  2399.   /* Are we at the bottom of the page? */
  2400.   
  2401. !     if (r.h.dh >= (unsigned char)Max_Lines)
  2402.       {
  2403. !     diff = r.h.dh + 1 - Max_Lines;
  2404. !     r.h.dh = (unsigned char)(Max_Lines - 1);
  2405.       s_cursor -= Max_Cols * diff;
  2406.       }
  2407.   
  2408. !     int86 (0x10, &r, &r);
  2409.   }
  2410.   
  2411.   /* Erase to end of line (avoid need for STUPID ansi.sys memory eater!) */
  2412. --- 565,585 ----
  2413.   int        new;
  2414.   {
  2415.       int diff;
  2416. !     USHORT usRow, usColumn;
  2417.   
  2418. !     usRow    = (unsigned char)(new / Max_Cols);
  2419. !     usColumn = (unsigned char)(new % Max_Cols);
  2420.   
  2421.   /* Are we at the bottom of the page? */
  2422.   
  2423. !     if (usRow >= (unsigned char)Max_Lines)
  2424.       {
  2425. !     diff = usRow + 1 - Max_Lines;
  2426. !     usRow = (unsigned char)(Max_Lines - 1);
  2427.       s_cursor -= Max_Cols * diff;
  2428.       }
  2429.   
  2430. !     VioSetCurPos(usRow, usColumn, 0);
  2431.   }
  2432.   
  2433.   /* Erase to end of line (avoid need for STUPID ansi.sys memory eater!) */
  2434. ***************
  2435. *** 580,611 ****
  2436.   
  2437.   static void    erase_to_end_of_line ()
  2438.   {
  2439. !     union REGS        r;
  2440. !     unsigned char    backg;
  2441. ! 
  2442. ! /* Get the background attribute of the cursor */
  2443.   
  2444. !     r.h.ah = 0x08;
  2445. !     r.h.bh = 0;
  2446. !     int86 (0x10, &r, &r);
  2447. !     backg = r.h.ah & 0x07;
  2448. ! 
  2449. !     r.h.ah = 0x03;
  2450. !     r.h.bh = 0;
  2451. !     int86 (0x10, &r, &r);
  2452. ! 
  2453. ! /* Check that we use the correct m_line */
  2454. ! 
  2455. !     if (m_line < r.h.dh)
  2456. !     m_line = r.h.dh;
  2457. ! 
  2458. !     if ((r.x.cx = Max_Cols - r.h.dl + (m_line - r.h.dh) * Max_Cols) > 0)
  2459. !     {
  2460. !     r.x.ax = 0x0a20;
  2461. !     r.x.bx = backg;
  2462. !     int86 (0x10, &r, &r);
  2463.       }
  2464. - }
  2465.   
  2466.   /* Generate the new cursor position */
  2467.   
  2468. --- 586,596 ----
  2469.   
  2470.   static void    erase_to_end_of_line ()
  2471.   {
  2472. !     USHORT usRow, usColumn;
  2473.   
  2474. !     VioGetCurPos(&usRow, &usColumn, 0);
  2475. !     VioWrtNChar(" ", Max_Cols - usColumn, usRow, usColumn, 0);
  2476.   }
  2477.   
  2478.   /* Generate the new cursor position */
  2479.   
  2480. ***************
  2481. *** 1069,1075 ****
  2482.       int            fn_len, pre_len, i;
  2483.       DIR            *dn;
  2484.       char        d_name [NAME_MAX + 1];
  2485. !     struct dirent    *d_ce;
  2486.       int            found_cnt = 0;
  2487.       int            max_per_line;
  2488.       static char        *ms_drive = "a:/";
  2489. --- 1054,1060 ----
  2490.       int            fn_len, pre_len, i;
  2491.       DIR            *dn;
  2492.       char        d_name [NAME_MAX + 1];
  2493. !     struct direct    *d_ce;
  2494.       int            found_cnt = 0;
  2495.       int            max_per_line;
  2496.       static char        *ms_drive = "a:/";
  2497. ***************
  2498. *** 1176,1182 ****
  2499.   
  2500.   /* Scan the directory */
  2501.   
  2502. !     while ((d_ce = readdir (dn)) != (struct dirent *)NULL)
  2503.       {
  2504.       if (strnicmp (d_ce->d_name, fn_mstart, fn_len) == 0)
  2505.       {
  2506. --- 1161,1167 ----
  2507.   
  2508.   /* Scan the directory */
  2509.   
  2510. !     while ((d_ce = readdir (dn)) != (struct direct *)NULL)
  2511.       {
  2512.       if (strnicmp (d_ce->d_name, fn_mstart, fn_len) == 0)
  2513.       {
  2514. ***************
  2515. *** 1269,1274 ****
  2516. --- 1254,1260 ----
  2517.       c_buffer_pos = l_buffer;    /* Initialise            */
  2518.       end_buffer = l_buffer;
  2519.       insert_mode = im;
  2520. +     set_cursor_shape (insert_mode);
  2521.       M_length = -1;
  2522.   
  2523.   /* Reset max line length and get the number of columns */
  2524. ***************
  2525. *** 1411,1426 ****
  2526.   
  2527.   void    In_Col_Zero ()
  2528.   {
  2529. !     union REGS        r;
  2530.   
  2531.       Get_Screen_Params ();
  2532.       read_cursor_position ();
  2533.   
  2534. !     r.h.ah = 0x08;
  2535. !     r.h.bh = 0x00;
  2536. !     int86 (0x10, &r, &r);
  2537.   
  2538. !     if ((s_cursor % Max_Cols) || (r.h.al != ' '))
  2539.       v1_putc (NL);
  2540.   }
  2541.   
  2542. --- 1397,1413 ----
  2543.   
  2544.   void    In_Col_Zero ()
  2545.   {
  2546. !     CHAR str[1];
  2547. !     USHORT cb = sizeof(str);
  2548. !     USHORT usRow, usColumn;
  2549.   
  2550.       Get_Screen_Params ();
  2551.       read_cursor_position ();
  2552.   
  2553. !     VioGetCurPos(&usRow, &usColumn, 0);
  2554. !     VioReadCharStr(str, &cb, usRow, usColumn, 0);
  2555.   
  2556. !     if ((s_cursor % Max_Cols) || (str[0] != ' '))
  2557.       v1_putc (NL);
  2558.   }
  2559.   
  2560. ***************
  2561. *** 1428,1453 ****
  2562.   
  2563.   static void    Get_Screen_Params ()
  2564.   {
  2565. !     union REGS        r;
  2566. ! 
  2567. !     Max_Cols = *(int *)(0x0040004aL);
  2568. !     Max_Lines = 25;
  2569.   
  2570. ! /* Is this an EGA?  This test was found in NANSI.SYS */
  2571. ! 
  2572. !     r.h.ah = 0x12;
  2573. !     r.x.bx = 0xff10;
  2574. !     int86 (0x10, &r, &r);
  2575. ! 
  2576. !     if (r.x.bx & 0xfefc)
  2577. !     return;
  2578. ! 
  2579. ! /* Else read the number of rows */
  2580.   
  2581. !     r.x.ax = 0x1130;
  2582. !     r.h.bh = 0;
  2583. !     int86 (0x10, &r, &r);
  2584. !     Max_Lines = r.h.dl + 1;
  2585.   }
  2586.   
  2587.   /* Ring Bell ? */
  2588. --- 1415,1427 ----
  2589.   
  2590.   static void    Get_Screen_Params ()
  2591.   {
  2592. !     VIOMODEINFO viomi;
  2593.   
  2594. !     viomi.cb = sizeof(viomi);
  2595. !     VioGetMode(&viomi, 0);
  2596.   
  2597. !     Max_Cols  = viomi.col;
  2598. !     Max_Lines = viomi.row;
  2599.   }
  2600.   
  2601.   /* Ring Bell ? */
  2602. diff -cbBw sh-dos/sh10.c sh-os2/sh10.c
  2603. *** sh-dos/sh10.c    Thu Jul 05 19:50:22 1990
  2604. --- sh-os2/sh10.c    Fri Aug 03 20:26:34 1990
  2605. ***************
  2606. *** 30,36 ****
  2607.   #include <sys/stat.h>
  2608.   #include <stdio.h>
  2609.   #include <process.h>
  2610. - #include <dos.h>
  2611.   #include <signal.h>
  2612.   #include <errno.h>
  2613.   #include <setjmp.h>
  2614. --- 30,35 ----
  2615. diff -cbBw sh-dos/stdargv.c sh-os2/stdargv.c
  2616. *** sh-dos/stdargv.c    Sat Feb 17 00:15:50 1990
  2617. --- sh-os2/stdargv.c    Sat Aug 04 16:23:50 1990
  2618. ***************
  2619. *** 32,51 ****
  2620.   #include <stdio.h>            /* Standard I/O delarations         */
  2621.   #include <stdlib.h>            /* Standard library functions       */
  2622.   #include <errno.h>            /* Error number declarations        */
  2623. - #include <dos.h>            /* DOS functions declarations       */
  2624. - #include <bios.h>            /* BIOS functions declarations      */
  2625.   #include <ctype.h>            /* Character type declarations      */
  2626.   #include <string.h>            /* String library functions         */
  2627.   #include <limits.h>            /* String library functions         */
  2628.   #include <fcntl.h>            /* File Control Declarations        */
  2629.   #include <io.h>                /* Input/Output Declarations        */
  2630. ! #include <dirent.h>            /* Direction I/O functions        */
  2631.   
  2632.   /*
  2633.    *  DATA DEFINITIONS:
  2634.    */
  2635.   
  2636. ! #define MAX_LINE    160        /* Max line length        */
  2637.   #define S_ENTRY        sizeof (char *)
  2638.   
  2639.   /*
  2640. --- 32,54 ----
  2641.   #include <stdio.h>            /* Standard I/O delarations         */
  2642.   #include <stdlib.h>            /* Standard library functions       */
  2643.   #include <errno.h>            /* Error number declarations        */
  2644.   #include <ctype.h>            /* Character type declarations      */
  2645.   #include <string.h>            /* String library functions         */
  2646.   #include <limits.h>            /* String library functions         */
  2647.   #include <fcntl.h>            /* File Control Declarations        */
  2648.   #include <io.h>                /* Input/Output Declarations        */
  2649. ! #include <changes.h>
  2650. ! #include <dir.h>            /* Direction I/O functions        */
  2651.   
  2652. + #define INCL_NOPM
  2653. + #define INCL_DOS
  2654. + #include <os2.h>
  2655. + 
  2656.   /*
  2657.    *  DATA DEFINITIONS:
  2658.    */
  2659.   
  2660. ! #define MAX_LINE    256        /* Max line length        */
  2661.   #define S_ENTRY        sizeof (char *)
  2662.   
  2663.   /*
  2664. ***************
  2665. *** 71,76 ****
  2666. --- 74,82 ----
  2667.   extern char    **__argv;         /* Current argument address    */
  2668.   extern int    __argc;         /* Current argument count    */
  2669.   
  2670. + extern unsigned _aenvseg;
  2671. + extern unsigned _acmdln;
  2672. + 
  2673.   /*
  2674.    *  MODULE ABSTRACT: _setargv
  2675.    *
  2676. ***************
  2677. *** 80,87 ****
  2678.   void    _setargv ()
  2679.   {
  2680.                       /* Set up pointer to command line */
  2681. !     char far        *argvp = (char far *)((((long)_psp) << 16) + 0x081L);
  2682. !     unsigned int    envs = *(int far *)((((long)_psp) << 16) + 0x02cL);
  2683.       char far        *s;         /* Temporary string pointer        */
  2684.   #ifndef M_I86LM
  2685.       char        buf[MAX_LINE];    /* Temporary space        */
  2686. --- 86,92 ----
  2687.   void    _setargv ()
  2688.   {
  2689.                       /* Set up pointer to command line */
  2690. !     char far        *argvp = MAKEP(_aenvseg, _acmdln);
  2691.       char far        *s;         /* Temporary string pointer        */
  2692.   #ifndef M_I86LM
  2693.       char        buf[MAX_LINE];    /* Temporary space        */
  2694. ***************
  2695. *** 110,126 ****
  2696.   /* In the case of DOS 3+, we look in the environment space */
  2697.   
  2698.       else
  2699. !     {
  2700. !     s = (char far *)(((long)envs) << 16);
  2701. ! 
  2702. !     while (*s)
  2703. !     {
  2704. !         while (*(s++) != 0);
  2705. !     }
  2706.   
  2707. -     s += 3;
  2708. -     }
  2709. - 
  2710.       _pgmptr = s;
  2711.   
  2712.   #ifndef M_I86LM
  2713. --- 115,122 ----
  2714.   /* In the case of DOS 3+, we look in the environment space */
  2715.   
  2716.       else
  2717. !     for ( s = argvp; *(s - 1); s-- );
  2718.   
  2719.       _pgmptr = s;
  2720.   
  2721.   #ifndef M_I86LM
  2722. ***************
  2723. *** 234,240 ****
  2724.       char        *name;        /* Match string            */
  2725.       char        *p, *p1;
  2726.       DIR            *dp;
  2727. !     struct dirent    *c_de;
  2728.       unsigned int    c_drive;    /* Current drive        */
  2729.       unsigned int    m_drive;    /* Max drive            */
  2730.       unsigned int    s_drive;    /* Selected drive        */
  2731. --- 230,236 ----
  2732.       char        *name;        /* Match string            */
  2733.       char        *p, *p1;
  2734.       DIR            *dp;
  2735. !     struct direct    *c_de;
  2736.       unsigned int    c_drive;    /* Current drive        */
  2737.       unsigned int    m_drive;    /* Max drive            */
  2738.       unsigned int    s_drive;    /* Selected drive        */
  2739. ***************
  2740. *** 241,246 ****
  2741. --- 237,244 ----
  2742.       unsigned int    x_drive, y_drive;    /* Dummies        */
  2743.       char        *multi;        /* Multi-drive flag        */
  2744.       char        t_drive[2];
  2745. +     ULONG               l_map;
  2746. +     int                 cnt;
  2747.   
  2748.   /* Convert file name to lower case */
  2749.   
  2750. ***************
  2751. *** 250,283 ****
  2752.   
  2753.       if ((multi = _ex_multi_drive (prefix)) != (char *)NULL)
  2754.       {
  2755. !     _dos_getdrive (&c_drive);    /* Get number of drives        */
  2756. !     _dos_setdrive (c_drive, &m_drive);
  2757.       t_drive[1] = 0;
  2758.   
  2759. !     for (s_drive = 1; s_drive <= m_drive; ++s_drive)
  2760.       {
  2761. !         _dos_setdrive (s_drive, &x_drive);
  2762. !         _dos_getdrive (&y_drive);
  2763. !         _dos_setdrive (c_drive, &x_drive);
  2764. ! 
  2765. ! /* Check to see if the second diskette drive is really there */
  2766. ! 
  2767. !         if (((_bios_equiplist () & 0x00c0) == 0x0000) && (s_drive == 2))
  2768. !         continue;
  2769. ! 
  2770. ! /* If the drive exists and is in our list - process it */
  2771. ! 
  2772.           *multi = 0;
  2773. -         *t_drive = (char)(s_drive + 'a' - 1);
  2774.   
  2775. !         if ((y_drive == s_drive) && pnmatch (t_drive, prefix, 0))
  2776.           {
  2777.           *multi = ':';
  2778. !         *fn = *t_drive;
  2779.           strcpy (fn + 1, multi);
  2780.           f_count += ex_pfield (fn, postfix);
  2781.           }
  2782. ! 
  2783.           *multi = ':';
  2784.       }
  2785.   
  2786. --- 248,270 ----
  2787.   
  2788.       if ((multi = _ex_multi_drive (prefix)) != (char *)NULL)
  2789.       {
  2790. !         DosQCurDisk((PUSHORT) &c_drive, &l_map);
  2791.       t_drive[1] = 0;
  2792.   
  2793. !         for ( cnt = 1; cnt <= 26; cnt++, l_map >>= 1 )
  2794. !           if ( l_map & 1L )
  2795.         {
  2796. !           t_drive[0] = (char)(cnt + 'a' - 1);
  2797.                 *multi = 0;
  2798.   
  2799. !           if (pnmatch (t_drive, prefix, 0))
  2800.             {
  2801.                   *multi = ':';
  2802. !           fn[0] = t_drive[0];
  2803.             strcpy (fn + 1, multi);
  2804.             f_count += ex_pfield (fn, postfix);
  2805.             }
  2806. !               else
  2807.                   *multi = ':';
  2808.         }
  2809.   
  2810. ***************
  2811. *** 342,348 ****
  2812.   
  2813.   /* Are there any matches */
  2814.   
  2815. !     while ((c_de = readdir (dp)) != (struct dirent *)NULL)
  2816.       {
  2817.       if ((*c_de->d_name == '.') && (*name != '.'))
  2818.           continue;
  2819. --- 329,335 ----
  2820.   
  2821.   /* Are there any matches */
  2822.   
  2823. !     while ((c_de = readdir (dp)) != (struct direct *)NULL)
  2824.       {
  2825.       if ((*c_de->d_name == '.') && (*name != '.'))
  2826.           continue;
  2827. diff -cbBw sh-dos/unistd.h sh-os2/unistd.h
  2828. *** sh-dos/unistd.h    Sat Feb 17 00:15:34 1990
  2829. --- sh-os2/unistd.h    Mon May 21 20:26:10 1990
  2830. ***************
  2831. *** 4,10 ****
  2832.   /*  unistd.h  */
  2833.   
  2834.   #include <sys/types.h>
  2835. ! #include <sys/proto.h>
  2836.   
  2837.   /* Definition for NULL pointer */
  2838.   
  2839. --- 4,11 ----
  2840.   /*  unistd.h  */
  2841.   
  2842.   #include <sys/types.h>
  2843. ! #include <proto.h>
  2844. ! #include <changes.h>
  2845.   
  2846.   /* Definition for NULL pointer */
  2847.   
  2848.