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