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