home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / os2 / kornshel / patches.os2 < prev    next >
Encoding:
Text File  |  1992-09-26  |  56.0 KB  |  2,301 lines
  1. Only in new: patches.os2
  2. Only in new/sh: Makefile
  3. Only in new/sh: ksh.def
  4. Only in new/sh: os2.c
  5. diff -cbr orig/sh/alloc.c new/sh/alloc.c
  6. *** orig/sh/alloc.c    Sun May 03 18:45:01 1992
  7. --- new/sh/alloc.c    Sun May 03 18:47:14 1992
  8. ***************
  9. *** 8,13 ****
  10. --- 8,14 ----
  11.   
  12.   #include "stdh.h"
  13.   #include <setjmp.h>
  14. + #include <sys/types.h>
  15.   #include "sh.h"
  16.   
  17.   #define    ICELLS    100        /* number of Cells in small Block */
  18. diff -cbr orig/sh/c_ksh.c new/sh/c_ksh.c
  19. *** orig/sh/c_ksh.c    Sun May 03 18:45:02 1992
  20. --- new/sh/c_ksh.c    Tue Sep 08 11:39:17 1992
  21. ***************
  22. *** 53,59 ****
  23.   
  24.       v_pwd = global("PWD");
  25.       if ((pwd = strval(v_pwd)) == null) {
  26. !         setstr(v_pwd, getcwd(path, (size_t)PATH));
  27.           pwd = strval(v_pwd);
  28.       }
  29.   
  30. --- 53,60 ----
  31.   
  32.       v_pwd = global("PWD");
  33.       if ((pwd = strval(v_pwd)) == null) {
  34. !                 getcwd(path, (size_t)PATH);
  35. !         setstr(v_pwd, path);
  36.           pwd = strval(v_pwd);
  37.       }
  38.   
  39. ***************
  40. *** 78,85 ****
  41.           dir = strval(v_oldpwd = global("OLDPWD"));
  42.           prt = 1;
  43.       }
  44. !     if (dir[0] == '/' || (dir[0] == '.' && (dir[1] == '/' ||
  45. !         (dir[1] == '.' && dir[2] == '/')))) {
  46.           /*
  47.            * dir is an explicitly named path, so no CDPATH search
  48.            */
  49. --- 79,96 ----
  50.           dir = strval(v_oldpwd = global("OLDPWD"));
  51.           prt = 1;
  52.       }
  53. ! #ifdef OS2
  54. !     if (ISDIRSEP(dir[0]) || 
  55. !         (dir[0] == '.' && 
  56. !          (dir [1] == 0 || ISDIRSEP(dir[1]) ||
  57. !           (dir[1] == '.' && (dir[2] == 0 || ISDIRSEP(dir[2]))))) ||
  58. !             (isalpha(dir[0]) && dir[1] == ':') ) {
  59. ! #else
  60. !     if (ISDIRSEP(dir[0]) || 
  61. !         (dir[0] == '.' && 
  62. !          (dir[1] == 0 || ISDIRSEP(dir[1]) ||
  63. !           (dir[1] == '.' && (dir [2] == 0 || ISDIRSEP(dir[2])))))) {
  64. ! #endif
  65.           /*
  66.            * dir is an explicitly named path, so no CDPATH search
  67.            */
  68. ***************
  69. *** 96,102 ****
  70. --- 107,117 ----
  71.           cdpath = strval(global("CDPATH"));
  72.           while ( !done && cdpath != NULL ) {
  73.               cp = path;
  74. + #ifdef OS2
  75. +             while (*cdpath && *cdpath != ';')
  76. + #else
  77.               while (*cdpath && *cdpath != ':')
  78. + #endif
  79.                   *cp++ = *cdpath++;
  80.               if (*cdpath == '\0')
  81.                   cdpath = NULL;
  82. ***************
  83. *** 103,109 ****
  84.               else
  85.                   cdpath++;
  86.               if (prt = (cp > path)) {
  87. !                 *cp++ = '/';
  88.                   (void) strcpy( cp, dir );
  89.                   cp = path;
  90.               } else
  91. --- 118,124 ----
  92.               else
  93.                   cdpath++;
  94.               if (prt = (cp > path)) {
  95. !                 *cp++ = DIRSEP;
  96.                   (void) strcpy( cp, dir );
  97.                   cp = path;
  98.               } else
  99. ***************
  100. *** 124,130 ****
  101. --- 139,150 ----
  102.        * Keep track of OLDPWD and PWD
  103.        */
  104.       oldpwd = pwd;
  105. + #ifdef OS2
  106. +         getcwd(path, (size_t)PATH);
  107. +         pwd = path;
  108. + #else
  109.       pwd = newd;
  110. + #endif
  111.       if (!v_oldpwd)
  112.           v_oldpwd = global("OLDPWD");
  113.       if (oldpwd && *oldpwd)
  114. ***************
  115. *** 565,570 ****
  116. --- 585,597 ----
  117.   
  118.       return 0;
  119.   }
  120. + 
  121. + int
  122. + c_nothing(wp)
  123. +     register char **wp;
  124. + {
  125. +     return 0;
  126. + }
  127.   #endif
  128.   
  129.   extern    c_fc();
  130. ***************
  131. *** 585,590 ****
  132. --- 612,618 ----
  133.       {"fc", c_fc},
  134.       {"jobs", c_jobs},
  135.       {"kill", c_kill},
  136. +         {"extproc", c_nothing},
  137.   #ifdef JOBS
  138.       {"fg", c_fgbg},
  139.       {"bg", c_fgbg},
  140. diff -cbr orig/sh/c_sh.c new/sh/c_sh.c
  141. *** orig/sh/c_sh.c    Sun May 03 18:45:02 1992
  142. --- new/sh/c_sh.c    Sun Sep 06 20:08:01 1992
  143. ***************
  144. *** 11,16 ****
  145. --- 11,17 ----
  146.   #include <signal.h>
  147.   #include <setjmp.h>
  148.   #include <unistd.h>        /* getcwd */
  149. + #include <time.h>
  150.   #include <sys/times.h>
  151.   #include "sh.h"
  152.   
  153. ***************
  154. *** 55,61 ****
  155.       if ((cp = wp[1]) == NULL) {
  156.           i = umask(0);
  157.           umask(i);
  158. !         printf("%#3.3o\n", i);    /* should this be shell output? */
  159.       } else {
  160.           for (i = 0; *cp>='0' && *cp<='7'; cp++)
  161.               i = i*8 + (*cp-'0');
  162. --- 56,62 ----
  163.       if ((cp = wp[1]) == NULL) {
  164.           i = umask(0);
  165.           umask(i);
  166. !         printf("%03o\n", i);    /* should this be shell output? */
  167.       } else {
  168.           for (i = 0; *cp>='0' && *cp<='7'; cp++)
  169.               i = i*8 + (*cp-'0');
  170. diff -cbr orig/sh/c_test.c new/sh/c_test.c
  171. *** orig/sh/c_test.c    Sun May 03 18:45:02 1992
  172. --- new/sh/c_test.c    Sun Sep 06 20:09:00 1992
  173. ***************
  174. *** 279,285 ****
  175. --- 279,289 ----
  176.       case FILCDEV:
  177.           return stat(nm, &s) == 0 && (s.st_mode & S_IFMT) == S_IFCHR;
  178.       case FILBDEV:
  179. + #ifdef S_IFBLK
  180.           return stat(nm, &s) == 0 && (s.st_mode & S_IFMT) == S_IFBLK;
  181. + #else
  182. +         return 0;
  183. + #endif
  184.       case FILFIFO:
  185.   #ifdef S_IFIFO
  186.           return stat(nm, &s) == 0 && (s.st_mode & S_IFMT) == S_IFIFO;
  187. ***************
  188. *** 287,297 ****
  189. --- 291,313 ----
  190.           return 0;
  191.   #endif
  192.       case FILSETU:
  193. + #ifdef S_ISUID
  194.           return stat(nm, &s) == 0 && (s.st_mode & S_ISUID) == S_ISUID;
  195. + #else
  196. +         return 0;
  197. + #endif
  198.       case FILSETG:
  199. + #ifdef S_ISGID
  200.           return stat(nm, &s) == 0 && (s.st_mode & S_ISGID) == S_ISGID;
  201. + #else
  202. +         return 0;
  203. + #endif
  204.       case FILSTCK:
  205. + #ifdef S_ISVTX
  206.           return stat(nm, &s) == 0 && (s.st_mode & S_ISVTX) == S_ISVTX;
  207. + #else
  208. +         return 0;
  209. + #endif
  210.       case FILGZ:
  211.           return stat(nm, &s) == 0 && s.st_size > 0L;
  212.       case FILTT:
  213. diff -cbr orig/sh/config.h new/sh/config.h
  214. *** orig/sh/config.h    Tue Aug 25 15:21:05 1992
  215. --- new/sh/config.h    Sun Sep 06 19:28:14 1992
  216. ***************
  217. *** 13,19 ****
  218.   
  219.   #define    EMACS                /* EMACS-like mode */
  220.   #define    VI                /* vi-like mode */
  221. ! #define    JOBS                /* job control */
  222.   
  223.   #ifndef SIGINT
  224.   #include <signal.h>
  225. --- 13,19 ----
  226.   
  227.   #define    EMACS                /* EMACS-like mode */
  228.   #define    VI                /* vi-like mode */
  229. ! /* #define    JOBS                /* job control */
  230.   
  231.   #ifndef SIGINT
  232.   #include <signal.h>
  233. ***************
  234. *** 30,36 ****
  235. --- 30,39 ----
  236.    * or whatever does work.  You may find it necessary to undef
  237.    * USE_SIGACT, if so please report it.
  238.    */
  239. + #ifndef OS2
  240.   #define USE_SIGACT            /* POSIX signal handling */
  241. + #endif
  242. + 
  243.   /* 
  244.    * These control how sigact.c implements sigaction()
  245.    * If you don't define any of them it will try and work it out 
  246. ***************
  247. *** 46,52 ****
  248.   
  249.   /* #define    FASCIST            /* Fascist getopts */
  250.   #define    SHARPBANG            /* Hack to handle #! */
  251. ! /* #define    SILLY            /* Game of life in EMACS mode */
  252.   /* #define    SWTCH            /* Handle SWTCH for shl(1) */
  253.   
  254.   /*
  255. --- 49,55 ----
  256.   
  257.   /* #define    FASCIST            /* Fascist getopts */
  258.   #define    SHARPBANG            /* Hack to handle #! */
  259. ! #define    SILLY            /* Game of life in EMACS mode */
  260.   /* #define    SWTCH            /* Handle SWTCH for shl(1) */
  261.   
  262.   /*
  263. ***************
  264. *** 55,61 ****
  265.    *   bind '^[^['=complete-list
  266.    * to their .kshrc
  267.    */
  268. ! /*#define COMPLETE_LIST            /* default to Emacs style completion */
  269.   /*
  270.    * ALTERNATIONS is csh not ksh, but it is such a nice feature...
  271.    */
  272. --- 58,64 ----
  273.    *   bind '^[^['=complete-list
  274.    * to their .kshrc
  275.    */
  276. ! #define COMPLETE_LIST            /* default to Emacs style completion */
  277.   /*
  278.    * ALTERNATIONS is csh not ksh, but it is such a nice feature...
  279.    */
  280. diff -cbr orig/sh/edit.c new/sh/edit.c
  281. *** orig/sh/edit.c    Tue Aug 25 15:20:10 1992
  282. --- new/sh/edit.c    Tue Sep 01 08:22:29 1992
  283. ***************
  284. *** 84,89 ****
  285. --- 84,93 ----
  286.   int
  287.   x_getc()
  288.   {
  289. + #ifdef OS2
  290. +   char c = _read_kbd(0, 1, 0);
  291. +   return c == 0 ? 0xE0 : c;
  292. + #else
  293.     char c;
  294.   
  295.     /*
  296. ***************
  297. *** 103,108 ****
  298. --- 107,113 ----
  299.         return -1;
  300.       }
  301.       return c & 0x7F;
  302. + #endif
  303.   }
  304.   
  305.   void
  306. ***************
  307. *** 343,348 ****
  308. --- 348,372 ----
  309.   
  310.   #else    /* !_BSD */
  311.   
  312. + #ifdef OS2
  313. + 
  314. + bool_t
  315. + x_mode(onoff)
  316. +     bool_t          onoff;
  317. + {
  318. +     bool_t          prev;
  319. +     if (x_cur_mode == onoff)
  320. +         return x_cur_mode;
  321. +     prev = x_cur_mode;
  322. +     x_cur_mode = onoff;
  323. + 
  324. +     /* setkbdmode(onoff); */
  325. + 
  326. +     return prev;
  327. + }
  328. + 
  329. + #else
  330. + 
  331.   bool_t
  332.   x_mode(onoff)
  333.   bool_t    onoff;
  334. ***************
  335. *** 396,401 ****
  336. --- 420,426 ----
  337.       }
  338.       return prev;
  339.   }
  340. + #endif  /* OS2 */
  341.   #endif    /* _BSD */
  342.   
  343.   
  344. ***************
  345. *** 427,432 ****
  346. --- 452,462 ----
  347.       cp++;
  348.       count++;
  349.         }
  350. +       else if ( *cp == '.' )
  351. +       {
  352. +     cp++;
  353. +     count += strlen(strval(global("PWD")));
  354. +       }
  355.         else
  356.         {
  357.       register int i = source->line;
  358. diff -cbr orig/sh/emacs.c new/sh/emacs.c
  359. *** orig/sh/emacs.c    Tue Aug 25 15:20:11 1992
  360. --- new/sh/emacs.c    Tue Sep 01 09:04:22 1992
  361. ***************
  362. *** 4,9 ****
  363. --- 4,11 ----
  364.    *  created by Ron Natalie at BRL
  365.    *  modified by Doug Kingston, Doug Gwyn, and Lou Salkind
  366.    *  adapted to PD ksh by Eric Gisin
  367. +  *  Modified Sep 1991 by Kai Uwe Rommel for OS/2:
  368. +  *  8 bit support, 3rd meta key (extended keys)
  369.    */
  370.   
  371.   #include "config.h"
  372. ***************
  373. *** 16,21 ****
  374. --- 18,28 ----
  375.   #include "stdh.h"
  376.   #include <signal.h>
  377.   #include <sys/stat.h>
  378. + #ifdef OS2
  379. + #include <memory.h>
  380. + extern char *index_sep(char *);
  381. + extern char *rindex_sep(char *);
  382. + #endif
  383.   #include <dirent.h>
  384.   #include <unistd.h>
  385.   #include <fcntl.h>
  386. ***************
  387. *** 64,79 ****
  388.   #define    iscfs(c)    (c == ' ' || c == '\t')    /* Separator for completion */
  389.   #define    ismfs(c)    (!(isalnum(c)|| c == '$'))  /* Separator for motion */
  390.   #define    BEL        0x07
  391. ! #define    CMASK        0x7F    /* 7-bit ASCII character mask */
  392.   
  393. ! #define X_TABSZ    128            /* size of keydef tables etc */
  394.   
  395.   static    int    x_prefix1 = CTRL('['), x_prefix2 = CTRL('X');
  396.   static    char   **x_histp;    /* history position */
  397.   static    char   **x_nextcmdp;    /* for newline-and-next */
  398.   static    char    *xmp;        /* mark pointer */
  399.   static    int    (*x_last_command)();
  400. ! static    struct    x_ftab const *(*x_tab)[X_TABSZ] = NULL; /* key definition */
  401.   static    char    *(*x_atab)[X_TABSZ] = NULL; /* macro definitions */
  402.   #define    KILLSIZE    20
  403.   static    char    *killstack[KILLSIZE];
  404. --- 71,88 ----
  405.   #define    iscfs(c)    (c == ' ' || c == '\t')    /* Separator for completion */
  406.   #define    ismfs(c)    (!(isalnum(c)|| c == '$'))  /* Separator for motion */
  407.   #define    BEL        0x07
  408. ! #define    CMASK        0xFF    /* 7-bit ASCII character mask */
  409.   
  410. ! #define X_TABS    4            /* number of keydef tables etc */
  411. ! #define X_TABSZ    256            /* size of keydef tables etc */
  412.   
  413.   static    int    x_prefix1 = CTRL('['), x_prefix2 = CTRL('X');
  414. + static    int    x_prefix3 = 0xE0;
  415.   static    char   **x_histp;    /* history position */
  416.   static    char   **x_nextcmdp;    /* for newline-and-next */
  417.   static    char    *xmp;        /* mark pointer */
  418.   static    int    (*x_last_command)();
  419. ! static    struct    x_ftab *(*x_tab)[X_TABSZ] = NULL; /* key definition */
  420.   static    char    *(*x_atab)[X_TABSZ] = NULL; /* macro definitions */
  421.   #define    KILLSIZE    20
  422.   static    char    *killstack[KILLSIZE];
  423. ***************
  424. *** 123,128 ****
  425. --- 132,138 ----
  426.   static int      x_literal   ARGS((int c));
  427.   static int      x_meta1     ARGS((int c));
  428.   static int      x_meta2     ARGS((int c));
  429. + static int      x_meta3     ARGS((int c));
  430.   static int      x_kill      ARGS((int c));
  431.   static void     x_push      ARGS((int nchars));
  432.   static int      x_yank      ARGS((int c));
  433. ***************
  434. *** 158,165 ****
  435.   static int      x_set_arg   ARGS((int c));
  436.   static int      x_prev_histword ARGS((void));
  437.   static int      x_fold_case ARGS((int c));
  438.   
  439. ! static    struct x_ftab const x_ftab[] = {
  440.        {x_insert,    "auto-insert",        0,     0,    0 },
  441.       {x_error,    "error",        0,     0,    0 },
  442.        {x_ins_string,    "macro-string",        0,     0,    XF_NOBIND|XF_ALLOC},
  443. --- 168,178 ----
  444.   static int      x_set_arg   ARGS((int c));
  445.   static int      x_prev_histword ARGS((void));
  446.   static int      x_fold_case ARGS((int c));
  447. + static int    x_clear_scr ARGS((int c));
  448. + static int    x_list_jobs ARGS((int c));
  449. + 
  450.   
  451. ! static    struct x_ftab x_ftab[] = {
  452.        {x_insert,    "auto-insert",        0,     0,    0 },
  453.       {x_error,    "error",        0,     0,    0 },
  454.        {x_ins_string,    "macro-string",        0,     0,    XF_NOBIND|XF_ALLOC},
  455. ***************
  456. *** 167,173 ****
  457.       {x_eot_del,    "eot-or-delete",    0, CTRL('D'),    0 },
  458.       {x_del_bword,    "delete-word-backward",    1, CTRL('H'),    0 },
  459.       {x_mv_bword,    "backward-word",     1,    'b',    0 },
  460. !     {x_del_line,    "kill-line",        0,     0,    0 },
  461.       {x_abort,    "abort",        0,    0,    0 },
  462.       {x_noop,    "no-op",        0,    0,    0 },
  463.   /* Do not move the above! */
  464. --- 180,186 ----
  465.       {x_eot_del,    "eot-or-delete",    0, CTRL('D'),    0 },
  466.       {x_del_bword,    "delete-word-backward",    1, CTRL('H'),    0 },
  467.       {x_mv_bword,    "backward-word",     1,    'b',    0 },
  468. !     {x_del_line,    "kill-line",        0, CTRL('U'),    0 },
  469.       {x_abort,    "abort",        0,    0,    0 },
  470.       {x_noop,    "no-op",        0,    0,    0 },
  471.   /* Do not move the above! */
  472. ***************
  473. *** 188,196 ****
  474.       {x_end_hist,    "end-of-history",    1,    '>',    0},
  475.       {x_mv_end,    "end-of-line",        0, CTRL('E'),    0 },
  476.       {x_mv_begin,    "beginning-of-line",    0, CTRL('A'),    0 },
  477. !     {x_draw_line,    "redraw",        0, CTRL('L'),    0 },
  478.       {x_meta1,    "prefix-1",        0, CTRL('['),    0 },
  479.       {x_meta2,    "prefix-2",        0, CTRL('X'),    0 },
  480.       {x_kill,    "kill-to-eol",        0, CTRL('K'),    0 },
  481.       {x_yank,    "yank",            0, CTRL('Y'),    0 },
  482.       {x_meta_yank,    "yank-pop",         1,    'y',    0 },
  483. --- 201,211 ----
  484.       {x_end_hist,    "end-of-history",    1,    '>',    0},
  485.       {x_mv_end,    "end-of-line",        0, CTRL('E'),    0 },
  486.       {x_mv_begin,    "beginning-of-line",    0, CTRL('A'),    0 },
  487. !     {x_draw_line,    "redraw",        0,     0,    0 },
  488. !     {x_clear_scr,    "clear-screen",        0, CTRL('L'),    0 },
  489.       {x_meta1,    "prefix-1",        0, CTRL('['),    0 },
  490.       {x_meta2,    "prefix-2",        0, CTRL('X'),    0 },
  491. +     {x_meta3,    "prefix-3",        0, 0xE0,    0 },
  492.       {x_kill,    "kill-to-eol",        0, CTRL('K'),    0 },
  493.       {x_yank,    "yank",            0, CTRL('Y'),    0 },
  494.       {x_meta_yank,    "yank-pop",         1,    'y',    0 },
  495. ***************
  496. *** 213,220 ****
  497.       {x_enumerate,    "list",            1,    '?',    0 },
  498.       {x_comp_file,    "complete-file",    1, CTRL('X'),    0 },
  499.       {x_comp_comm,    "complete-command",    2, CTRL('['),    0 },
  500. !     {x_list_file,    "list-file",        0,     0,    0 },
  501.       {x_list_comm,    "list-command",        2,    '?',    0 },
  502.       {x_nl_next_com,    "newline-and-next",    0, CTRL('O'),    0 },
  503.       {x_set_mark,    "set-mark-command",    1,    ' ',    0 },
  504.       {x_kill_region,    "kill-region",        0, CTRL('W'),    0 },
  505. --- 228,236 ----
  506.       {x_enumerate,    "list",            1,    '?',    0 },
  507.       {x_comp_file,    "complete-file",    1, CTRL('X'),    0 },
  508.       {x_comp_comm,    "complete-command",    2, CTRL('['),    0 },
  509. !     {x_list_file,    "list-file",        2, CTRL('Y'),    0 },
  510.       {x_list_comm,    "list-command",        2,    '?',    0 },
  511. +         {x_list_jobs,   "list-jobs",            2,      'j',    0 },
  512.       {x_nl_next_com,    "newline-and-next",    0, CTRL('O'),    0 },
  513.       {x_set_mark,    "set-mark-command",    1,    ' ',    0 },
  514.       {x_kill_region,    "kill-region",        0, CTRL('W'),    0 },
  515. ***************
  516. *** 263,269 ****
  517.       char *buf;
  518.       size_t len;
  519.   {
  520. !     char    c;
  521.       int    i;
  522.       int   (*func)();
  523.       extern    x_insert();
  524. --- 279,285 ----
  525.       char *buf;
  526.       size_t len;
  527.   {
  528. !     int    c;
  529.       int    i;
  530.       int   (*func)();
  531.       extern    x_insert();
  532. ***************
  533. *** 832,837 ****
  534. --- 848,854 ----
  535.       xlp_valid = TRUE;
  536.       *xcp = 0;
  537.       xmp = NULL;
  538. +     if ( c != -1 )
  539.       x_redraw(j);
  540.       return KSTD;
  541.   }
  542. ***************
  543. *** 961,966 ****
  544. --- 978,989 ----
  545.   }
  546.   
  547.   static int
  548. + x_meta3(c) {
  549. +         x_curprefix = 3;
  550. +         return KPREF;
  551. + }
  552. + 
  553. + static int
  554.   x_kill(c)  {
  555.       int    i;
  556.   
  557. ***************
  558. *** 1028,1033 ****
  559. --- 1051,1057 ----
  560.       xlp = xep = xcp = xbp = xbuf;
  561.       xlp_valid = TRUE;
  562.       *xcp = 0;
  563. +     x_del_line(-1);
  564.       return KINTR;
  565.   }
  566.   
  567. ***************
  568. *** 1078,1084 ****
  569.           /* XXX -- should handle \^ escape? */
  570.           if (*cp == '^')  {
  571.               cp++;
  572. !             if (*cp >= '?')    /* includes '?'; ASCII */
  573.                   *op++ = CTRL(*cp);
  574.               else  {
  575.                   *op++ = '^';
  576. --- 1102,1110 ----
  577.           /* XXX -- should handle \^ escape? */
  578.           if (*cp == '^')  {
  579.               cp++;
  580. !                     if (*cp == '0')
  581. !                         *op++ = 0xE0;
  582. !                         else if (*cp >= '?')    /* includes '?'; ASCII */
  583.                   *op++ = CTRL(*cp);
  584.               else  {
  585.                   *op++ = '^';
  586. ***************
  587. *** 1101,1106 ****
  588. --- 1127,1136 ----
  589.       if (c < ' ' || c == 0x7F)  { /* ASCII */
  590.           *p++ = '^';
  591.           *p++ = (c == 0x7F) ? '?' : (c | 0x40);
  592. +         }
  593. +         else if (c == 0xE0) {
  594. +             *p++ = '^';
  595. +                 *p++ = '0';
  596.       } else
  597.           *p++ = c;
  598.       *p = 0;
  599. ***************
  600. *** 1115,1120 ****
  601. --- 1145,1152 ----
  602.           shellf("%s", x_mapout(x_prefix1));
  603.       if (prefix == 2)
  604.           shellf("%s", x_mapout(x_prefix2));
  605. +         if (prefix == 3)
  606. +               shellf("%s", x_mapout(x_prefix3));
  607.       shellf("%s = ", x_mapout(key));
  608.       if (x_tab[prefix][key]->xf_func != x_ins_string)
  609.           shellf("%s\n", x_tab[prefix][key]->xf_name);
  610. ***************
  611. *** 1127,1142 ****
  612.       char *a1, *a2;
  613.       int macro;        /* bind -m */
  614.   {
  615. !     struct x_ftab const *fp;
  616.       int prefix, key;
  617.       char *sp = NULL;
  618.   
  619.       if (x_tab == NULL)
  620. !         errorf("cannot bind, not a tty\n");
  621.   
  622.       if (a1 == NULL) {
  623. !         for (prefix = 0; prefix < 3; prefix++)
  624. !             for (key = 0; key < 0x80; key++) {
  625.               fp = x_tab[prefix][key];
  626.               if (fp == NULL ||
  627.                   fp->xf_func == x_insert || fp->xf_func == x_error)
  628. --- 1159,1175 ----
  629.       char *a1, *a2;
  630.       int macro;        /* bind -m */
  631.   {
  632. !     struct x_ftab *fp;
  633.       int prefix, key;
  634.       char *sp = NULL;
  635.   
  636.       if (x_tab == NULL)
  637. !                 return;
  638. !         /* errorf("cannot bind, not a tty\n"); */
  639.   
  640.       if (a1 == NULL) {
  641. !         for (prefix = 0; prefix < X_TABS; prefix++)
  642. !             for (key = 0; key < X_TABSZ; key++) {
  643.               fp = x_tab[prefix][key];
  644.               if (fp == NULL ||
  645.                   fp->xf_func == x_insert || fp->xf_func == x_error)
  646. ***************
  647. *** 1156,1161 ****
  648. --- 1189,1197 ----
  649.           if (x_tab[prefix][key]->xf_func == x_meta2)
  650.               prefix = 2;
  651.           else
  652. +                 if (x_tab[prefix][key]->xf_func == x_meta3)
  653. +                      prefix = 3;
  654. +         else
  655.               break;
  656.       }
  657.   
  658. ***************
  659. *** 1176,1181 ****
  660. --- 1212,1219 ----
  661.               x_prefix1 = key;
  662.           if (fp->xf_func == x_meta2)
  663.               x_prefix2 = key;
  664. +                 if (fp->xf_func == x_meta3)
  665. +                      x_prefix3 = key;
  666.       } else {
  667.           fp = xft_ins_string;
  668.           x_mapin(a2);
  669. ***************
  670. *** 1192,1217 ****
  671.   x_init_emacs()
  672.   {
  673.       register int i, j;
  674. !     struct x_ftab const *fp;
  675.   
  676.       ainit(AEDIT);
  677.   
  678. !     x_tab = (struct x_ftab *(*)[X_TABSZ]) alloc(sizeofN(*x_tab, 3), AEDIT);
  679. !     for (j = 0; j < 128; j++)
  680.           x_tab[0][j] = xft_insert;
  681. !     for (i = 1; i < 3; i++)
  682. !         for (j = 0; j < 128; j++)
  683.               x_tab[i][j] = xft_error;
  684.       for (fp = x_ftab; fp->xf_func; fp++)
  685.           if (fp->xf_db_char || fp->xf_db_tab)
  686.               x_tab[fp->xf_db_tab][fp->xf_db_char] = fp;
  687.   
  688. !     x_atab = (char *(*)[X_TABSZ]) alloc(sizeofN(*x_atab, 3), AEDIT);
  689. !     for (i = 1; i < 3; i++)
  690. !         for (j = 0; j < 128; j++)
  691.               x_atab[i][j] = NULL;
  692.   }
  693.   
  694.   void
  695.   x_emacs_keys(erase, kill, werase, intr, quit)
  696.       int erase, kill, werase, intr, quit;
  697. --- 1230,1263 ----
  698.   x_init_emacs()
  699.   {
  700.       register int i, j;
  701. !     struct x_ftab *fp;
  702.   
  703.       ainit(AEDIT);
  704.   
  705. !     x_tab = (struct x_ftab *(*)[X_TABSZ]) alloc(sizeofN(*x_tab, X_TABS), AEDIT);
  706. !     for (j = 0; j < X_TABSZ; j++)
  707.           x_tab[0][j] = xft_insert;
  708. !     for (i = 1; i < X_TABS; i++)
  709. !         for (j = 0; j < X_TABSZ; j++)
  710.               x_tab[i][j] = xft_error;
  711.       for (fp = x_ftab; fp->xf_func; fp++)
  712.           if (fp->xf_db_char || fp->xf_db_tab)
  713.               x_tab[fp->xf_db_tab][fp->xf_db_char] = fp;
  714.   
  715. !     x_atab = (char *(*)[X_TABSZ]) alloc(sizeofN(*x_atab, X_TABS), AEDIT);
  716. !     for (i = 1; i < X_TABS; i++)
  717. !         for (j = 0; j < X_TABSZ; j++)
  718.               x_atab[i][j] = NULL;
  719.   }
  720.   
  721. + static int
  722. + x_clear_scr(c)
  723. + {
  724. +     write(1, "\033[H\033[J", 6);
  725. +     x_redraw(0);
  726. +     return KSTD;
  727. + }
  728. + 
  729.   void
  730.   x_emacs_keys(erase, kill, werase, intr, quit)
  731.       int erase, kill, werase, intr, quit;
  732. ***************
  733. *** 1357,1371 ****
  734.   
  735.           if (strcmp(dirnam, ".") == 0)
  736.               *buf = '\0';
  737. !         else if (strcmp(dirnam, "/") == 0)
  738. !             (void)strcpy(buf, "/");
  739.           else
  740. !             (void)strcat(strcpy(buf, dirnam), "/");
  741.           (void)strcat(buf, name);
  742.           if (stat(buf, &statb)==0)
  743.               if (S_ISDIR(statb.st_mode))
  744.                   type = '/';
  745. !             else if (S_ISREG(statb.st_mode) && access(buf, 01)==0)
  746.                   type = '*';
  747.           if (type)
  748.               ++len;
  749. --- 1403,1418 ----
  750.   
  751.           if (strcmp(dirnam, ".") == 0)
  752.               *buf = '\0';
  753. !         else if (strcmp(dirnam, DIRSEPSTR) == 0)
  754. !             (void)strcpy(buf, DIRSEPSTR);
  755.           else
  756. !             (void)strcat(strcpy(buf, dirnam), DIRSEPSTR);
  757.           (void)strcat(buf, name);
  758.           if (stat(buf, &statb)==0)
  759.               if (S_ISDIR(statb.st_mode))
  760.                   type = '/';
  761. !             else if (S_ISREG(statb.st_mode) && 
  762. !                  (statb.st_mode & S_IEXEC) != 0)
  763.                   type = '*';
  764.           if (type)
  765.               ++len;
  766. ***************
  767. *** 1451,1456 ****
  768. --- 1498,1512 ----
  769.       compl_file(0);
  770.       return KSTD;
  771.   }
  772. + 
  773. + static int
  774. + x_list_jobs(c)
  775. +   int c;
  776. + {
  777. +         j_jobs();
  778. +         x_redraw(-1);
  779. +         return KSTD;
  780. + }
  781.   static int
  782.   x_comp_list(c)   {
  783.       compl_dec(2);
  784. ***************
  785. *** 1460,1466 ****
  786.   static void compl_dec(type) {     char    *cp;     cp = xcp;
  787.       while (cp != xbuf && !iscfs(*cp))
  788.           cp--;
  789. !     if (cp == xbuf && strchr(cp, '/') == NULL)
  790.           compl_command(type);
  791.       else
  792.           compl_file(type);
  793. --- 1516,1522 ----
  794.   static void compl_dec(type) {     char    *cp;     cp = xcp; 
  795.       while (cp != xbuf && !iscfs(*cp))
  796.           cp--;
  797. !     if (cp == xbuf && index_sep(cp) == NULL)
  798.           compl_command(type);
  799.       else
  800.           compl_file(type);
  801. ***************
  802. *** 1510,1520 ****
  803.       *cp = 0;
  804.       strcpy(buf, cp = substitute(buf, DOTILDE));
  805.       afree((void*)cp, ATEMP);
  806. !     lastp = strrchr(buf, '/');
  807.       if (lastp)
  808.           *lastp = 0;
  809.   
  810. !     dirnam = (lastp == NULL) ? "." : (lastp == buf) ? "/" : buf;
  811.       dirp = opendir(dirnam);
  812.       if (dirp == NULL) {
  813.           x_putc(BEL);
  814. --- 1566,1576 ----
  815.       *cp = 0;
  816.       strcpy(buf, cp = substitute(buf, DOTILDE));
  817.       afree((void*)cp, ATEMP);
  818. !     lastp = rindex_sep(buf);
  819.       if (lastp)
  820.           *lastp = 0;
  821.   
  822. !     dirnam = (lastp == NULL) ? "." : (lastp == buf) ? DIRSEPSTR : buf;
  823.       dirp = opendir(dirnam);
  824.       if (dirp == NULL) {
  825.           x_putc(BEL);
  826. ***************
  827. *** 1564,1575 ****
  828.                   buf[0] = 0;
  829.               else if (lastp == buf + 1)  {
  830.                   buf[1] = 0;
  831. !                 buf[0] = '/';
  832.               }  else
  833. !                 (void)strcat(buf, "/");
  834.               (void)strcat(buf, bug);
  835.               if (stat(buf, &statb) == 0 && S_ISDIR(statb.st_mode))
  836. !                 x_ins("/");
  837.               else
  838.                   x_ins(" ");
  839.           }
  840. --- 1620,1632 ----
  841.                   buf[0] = 0;
  842.               else if (lastp == buf + 1)  {
  843.                   buf[1] = 0;
  844. !                 buf[0] = DIRSEP;
  845.               }  else
  846. !                 (void)strcat(buf, DIRSEPSTR);
  847.               (void)strcat(buf, bug);
  848.               if (stat(buf, &statb) == 0 && S_ISDIR(statb.st_mode))
  849. !                 x_ins("/" /* DIRSEPSTR */);
  850. !          /* conflict with \ at end of line in OS/2 mode ! */
  851.               else
  852.                   x_ins(" ");
  853.           }
  854. ***************
  855. *** 1726,1732 ****
  856.     if (hp < history || hp > histptr)
  857.     {
  858.       x_putc(BEL);
  859. !     return;
  860.     }
  861.     cp = *hp;
  862.     if (x_last_command != x_set_arg)
  863. --- 1783,1789 ----
  864.     if (hp < history || hp > histptr)
  865.     {
  866.       x_putc(BEL);
  867. !     return KSTD;
  868.     }
  869.     cp = *hp;
  870.     if (x_last_command != x_set_arg)
  871. diff -cbr orig/sh/eval.c new/sh/eval.c
  872. *** orig/sh/eval.c    Tue Aug 25 15:21:05 1992
  873. --- new/sh/eval.c    Sun Sep 06 20:11:15 1992
  874. ***************
  875. *** 9,14 ****
  876. --- 9,18 ----
  877.   #include "stdh.h"
  878.   #include <errno.h>
  879.   #include <setjmp.h>
  880. + #ifdef OS2
  881. + #include <sys/types.h>
  882. + #include <stdlib.h>
  883. + #endif
  884.   #include <unistd.h>
  885.   #include <dirent.h>
  886.   #include <pwd.h>
  887. ***************
  888. *** 789,798 ****
  889.       }
  890.   
  891.       if (dp > ds)
  892. !         *dp++ = '/';
  893. !     while (*sp == '/')
  894.           *dp++ = *sp++;
  895. !     np = strchr(sp, '/');
  896.       if (np != NULL)
  897.           *np++ = 0;
  898.   
  899. --- 793,802 ----
  900.       }
  901.   
  902.       if (dp > ds)
  903. !         *dp++ = DIRSEP;
  904. !     while (ISDIRSEP(*sp))
  905.           *dp++ = *sp++;
  906. !     np = index_sep(sp);
  907.       if (np != NULL)
  908.           *np++ = 0;
  909.   
  910. ***************
  911. *** 833,839 ****
  912.       }
  913.   
  914.       if (np != NULL)
  915. !         *--np = '/';
  916.   }
  917.   
  918.   /* remove MAGIC from string */
  919. --- 837,843 ----
  920.       }
  921.   
  922.       if (np != NULL)
  923. !         *--np = DIRSEP;
  924.   }
  925.   
  926.   /* remove MAGIC from string */
  927. ***************
  928. *** 880,890 ****
  929.       }
  930.   
  931.       dp = NULL;    /* no output substitution */
  932. !     if (cp[1] == 0 || cp[1] == '/' || cp[1] == ':') /* ~ or ~/ */
  933.           dp = strval(global("HOME")), cp += 1;
  934. !     else if (cp[1] == '+' && (cp[2] == '/' || cp[2] == ':' || cp[2] == 0))
  935.           dp = strval(global("PWD")), cp += 2;
  936. !     else if (cp[1] == '-' && (cp[2] == '/' || cp[2] == ':' || cp[2] == 0))
  937.           dp = strval(global("OLDPWD")), cp += 2;
  938.       else if (letter(cp[1])) {
  939.           char *save = cp;
  940. --- 884,894 ----
  941.       }
  942.   
  943.       dp = NULL;    /* no output substitution */
  944. !     if (cp[1] == 0 || ISDIRSEP(cp[1]) || cp[1] == ':') /* ~ or ~/ */
  945.           dp = strval(global("HOME")), cp += 1;
  946. !     else if (cp[1] == '+' && (ISDIRSEP(cp[2]) || cp[2] == ':' || cp[2] == 0))
  947.           dp = strval(global("PWD")), cp += 2;
  948. !     else if (cp[1] == '-' && (ISDIRSEP(cp[2]) || cp[2] == ':' || cp[2] == 0))
  949.           dp = strval(global("OLDPWD")), cp += 2;
  950.       else if (letter(cp[1])) {
  951.           char *save = cp;
  952. ***************
  953. *** 914,919 ****
  954. --- 918,926 ----
  955.   homedir(name)
  956.       char *name;
  957.   {
  958. + #ifdef OS2
  959. +         return getenv("HOME");
  960. + #else
  961.       register struct tbl *ap;
  962.       register struct passwd *pw;
  963.       extern struct passwd *getpwnam();
  964. ***************
  965. *** 925,928 ****
  966. --- 932,936 ----
  967.       if (pw == NULL)
  968.           return NULL;
  969.       return pw->pw_dir;
  970. + #endif
  971.   }
  972. diff -cbr orig/sh/exec.c new/sh/exec.c
  973. *** orig/sh/exec.c    Tue Aug 25 15:20:12 1992
  974. --- new/sh/exec.c    Mon Sep 21 10:35:07 1992
  975. ***************
  976. *** 10,15 ****
  977. --- 10,18 ----
  978.   #include <errno.h>
  979.   #include <signal.h>
  980.   #include <setjmp.h>
  981. + #ifdef OS2
  982. + #include <process.h>
  983. + #endif
  984.   #include <unistd.h>
  985.   #include <fcntl.h>
  986.   #include <sys/stat.h>
  987. ***************
  988. *** 241,247 ****
  989.               clexec_tab[i] = 0;
  990.             }
  991.   #endif
  992. !         execve(t->str, t->args, ap);
  993.           if (errno == ENOEXEC) {
  994.               char *shell;
  995.   #ifdef    SHARPBANG
  996. --- 244,250 ----
  997.               clexec_tab[i] = 0;
  998.             }
  999.   #endif
  1000. !         _execve(t->str, t->args, ap);
  1001.           if (errno == ENOEXEC) {
  1002.               char *shell;
  1003.   #ifdef    SHARPBANG
  1004. ***************
  1005. *** 256,263 ****
  1006.               }
  1007.               *t->args-- = t->str;
  1008.               *t->args = shell;
  1009. !             execve(t->args[0], t->args, ap);
  1010. !             errorf("No shell\n");
  1011.   #endif    /* SHARPBANG */
  1012.           }
  1013.           errorf("%s: %s\n", s, strerror(errno));
  1014. --- 259,266 ----
  1015.               }
  1016.               *t->args-- = t->str;
  1017.               *t->args = shell;
  1018. !             _execve(t->args[0], t->args, ap);
  1019. !             errorf("Cannot execute.\n");
  1020.   #endif    /* SHARPBANG */
  1021.           }
  1022.           errorf("%s: %s\n", s, strerror(errno));
  1023. ***************
  1024. *** 264,270 ****
  1025.       }
  1026.   
  1027.       quitenv();        /* restores IO */
  1028. !     if (e.interactive) {    /* flush stdout, shlout */
  1029.           fflush(shf[1]);
  1030.           fflush(shf[2]);
  1031.       }
  1032. --- 267,273 ----
  1033.       }
  1034.   
  1035.       quitenv();        /* restores IO */
  1036. !     if (e.interactive) {    /* fflush stdout, shlout */
  1037.           fflush(shf[1]);
  1038.           fflush(shf[2]);
  1039.       }
  1040. ***************
  1041. *** 425,431 ****
  1042.       register int fd, n;
  1043.       char *shell;
  1044.   
  1045. !     shell = strval(global("EXECSHELL"));
  1046.       if (shell && *shell) {
  1047.           if ((shell = search(shell,path,1)) == NULL)
  1048.               shell = SHELL;
  1049. --- 428,434 ----
  1050.       register int fd, n;
  1051.       char *shell;
  1052.   
  1053. !     shell = strval(global("COMSPEC"));
  1054.       if (shell && *shell) {
  1055.           if ((shell = search(shell,path,1)) == NULL)
  1056.               shell = SHELL;
  1057. ***************
  1058. *** 440,447 ****
  1059.               line[n] = '\0';
  1060.           (void) close(fd);
  1061.       }
  1062. !     if (line[0] == '#' && line[1] == '!') {
  1063. !         cp = &line[2];
  1064.           while (*cp && (*cp == ' ' || *cp == '\t'))
  1065.               cp++;
  1066.           if (*cp && *cp != '\n') {
  1067. --- 443,451 ----
  1068.               line[n] = '\0';
  1069.           (void) close(fd);
  1070.       }
  1071. !     if ((line[0] == '#' && line[1] == '!') || 
  1072. !         strnicmp(line, "extproc", 7) == 0) {
  1073. !         cp = line + (line[0] == '#' ? 2 : 7);
  1074.           while (*cp && (*cp == ' ' || *cp == '\t'))
  1075.               cp++;
  1076.           if (*cp && *cp != '\n') {
  1077. ***************
  1078. *** 462,474 ****
  1079.                   }
  1080.               }
  1081.               *cp = '\0';
  1082. !         } else
  1083.               *tp->args = shell;
  1084. !     } else
  1085.           *tp->args = shell;
  1086.   
  1087. !     (void) execve(tp->args[0], tp->args, ap);
  1088. !     errorf( "No shell\n" );
  1089.   }
  1090.   #endif    /* SHARPBANG */
  1091.   
  1092. --- 466,482 ----
  1093.                   }
  1094.               }
  1095.               *cp = '\0';
  1096. !         } else {
  1097. !                 *tp->args-- = "/c";
  1098.               *tp->args = shell;
  1099. !             }
  1100. !     } else {
  1101. !         *tp->args-- = "/c";
  1102.           *tp->args = shell;
  1103. +     }
  1104.   
  1105. !     (void) _execve(tp->args[0], tp->args, ap);
  1106. !     errorf( "Cannot execute.\n" );
  1107.   }
  1108.   #endif    /* SHARPBANG */
  1109.   
  1110. ***************
  1111. *** 557,563 ****
  1112.       register struct    tbl *tp = NULL;
  1113.       static struct tbl temp;
  1114.   
  1115. !     if (strchr(name, '/') != NULL) {
  1116.           tp = &temp;
  1117.           tp->type = CEXEC;
  1118.           tp->flag = 0;    /* make ~ISSET */
  1119. --- 565,571 ----
  1120.       register struct    tbl *tp = NULL;
  1121.       static struct tbl temp;
  1122.   
  1123. !     if (index_sep(name) != NULL) {
  1124.           tp = &temp;
  1125.           tp->type = CEXEC;
  1126.           tp->flag = 0;    /* make ~ISSET */
  1127. ***************
  1128. *** 610,616 ****
  1129.       register struct tbl *tp;
  1130.   
  1131.       for (twalk(&commands); (tp = tnext()) != NULL; )
  1132. !         if ((tp->flag&ISSET) && (all || tp->val.s[0] != '/')) {
  1133.               if ((tp->flag&ALLOC))
  1134.                   afree(tp->val.s, commands.areap);
  1135.               tp->flag = DEFINED; /* make ~ISSET */
  1136. --- 618,624 ----
  1137.       register struct tbl *tp;
  1138.   
  1139.       for (twalk(&commands); (tp = tnext()) != NULL; )
  1140. !         if ((tp->flag&ISSET) && (all || !ISDIRSEP(tp->val.s[0]))) {
  1141.               if ((tp->flag&ALLOC))
  1142.                   afree(tp->val.s, commands.areap);
  1143.               tp->flag = DEFINED; /* make ~ISSET */
  1144. ***************
  1145. *** 617,622 ****
  1146. --- 625,671 ----
  1147.           }
  1148.   }
  1149.   
  1150. + #ifdef OS2
  1151. + 
  1152. + int eaccess2(char *path, int mode)
  1153. + {
  1154. +   struct stat s;
  1155. +   int i = access(path, mode);
  1156. + 
  1157. +   if (i == 0 && mode == 1 && stat(path,&s) == 0 &&
  1158. +       ((s.st_mode & S_IFMT) != S_IFREG || (s.st_mode & S_IEXEC) == 0))
  1159. +     return -1;
  1160. +   else
  1161. +     return i;
  1162. + }
  1163. + 
  1164. + int eaccess1(char *path, int mode)
  1165. + {
  1166. +         char *tp = path + strlen(path);
  1167. +         int i;
  1168. + 
  1169. +         if ( i = eaccess2(path, mode) )
  1170. +         {
  1171. +             strcpy(tp, ".exe");
  1172. +             if ( i = eaccess2(path, mode) )
  1173. +             {
  1174. +                     strcpy(tp, ".com");
  1175. +                 if ( i = eaccess2(path, mode) )
  1176. +                     {
  1177. +                 strcpy(tp, ".ksh");
  1178. +                 if ( i = access(path, 0) )
  1179. +                 {
  1180. +                               strcpy(tp, ".cmd");
  1181. +                     if ( i = eaccess2(path, mode) )
  1182. +                             *tp = 0;
  1183. +                 }
  1184. +                     }
  1185. +               }
  1186. +         }
  1187. +         return i;
  1188. + }
  1189. + #endif
  1190. + 
  1191.   /*
  1192.    * search for command with PATH
  1193.    */
  1194. ***************
  1195. *** 628,650 ****
  1196.       register int i;
  1197.       register char *sp, *tp;
  1198.       struct stat buf;
  1199.   
  1200. !     if (strchr(name, '/'))
  1201.           return (eaccess(name, mode) == 0) ? name : NULL;
  1202.   
  1203.       sp = path;
  1204.       while (sp != NULL) {
  1205.           tp = line;
  1206.           for (; *sp != '\0'; tp++)
  1207.               if ((*tp = *sp++) == ':') {
  1208.                   --sp;
  1209.                   break;
  1210.               }
  1211.           if (tp != line)
  1212. !             *tp++ = '/';
  1213.           for (i = 0; (*tp++ = name[i++]) != '\0';)
  1214.               ;
  1215. !         i = eaccess(line, mode);
  1216.           if (i == 0 && (mode != 1 || (stat(line,&buf) == 0 &&
  1217.               (buf.st_mode & S_IFMT) == S_IFREG)))
  1218.               return line;
  1219. --- 677,714 ----
  1220.       register int i;
  1221.       register char *sp, *tp;
  1222.       struct stat buf;
  1223. + #ifdef OS2
  1224. +     static char real[LINE + 1];
  1225. + 
  1226. +     strcpy(line, name);
  1227. + 
  1228. +     if (eaccess1(line, mode) == 0) 
  1229. +       return line;
  1230.   
  1231. !     if (index_sep(name))
  1232. !         return (eaccess1(line, mode) == 0) ? line : NULL;
  1233. ! #else
  1234. !     if (index_sep(name))
  1235.           return (eaccess(name, mode) == 0) ? name : NULL;
  1236. + #endif
  1237.   
  1238.       sp = path;
  1239.       while (sp != NULL) {
  1240.           tp = line;
  1241.           for (; *sp != '\0'; tp++)
  1242. + #ifdef OS2
  1243. +             if ((*tp = *sp++) == ';') {
  1244. + #else
  1245.               if ((*tp = *sp++) == ':') {
  1246. + #endif
  1247.                   --sp;
  1248.                   break;
  1249.               }
  1250.           if (tp != line)
  1251. !             *tp++ = DIRSEP;
  1252.           for (i = 0; (*tp++ = name[i++]) != '\0';)
  1253.               ;
  1254. !         i = eaccess1(line, mode);
  1255.           if (i == 0 && (mode != 1 || (stat(line,&buf) == 0 &&
  1256.               (buf.st_mode & S_IFMT) == S_IFREG)))
  1257.               return line;
  1258. ***************
  1259. *** 790,795 ****
  1260. --- 854,860 ----
  1261.       while (*ap != NULL)
  1262.           shellf(" %s", *ap++);
  1263.       shellf("\n");
  1264. +     fflush(shlout);
  1265.   }
  1266.   
  1267.   /*
  1268. diff -cbr orig/sh/expr.c new/sh/expr.c
  1269. *** orig/sh/expr.c    Sun May 03 18:45:06 1992
  1270. --- new/sh/expr.c    Sun May 03 19:41:24 1992
  1271. ***************
  1272. *** 20,27 ****
  1273.   #define    LLE    0x05
  1274.   #define    LGE    0x06
  1275.   
  1276. ! static const char *expression;    /* expression being evaluated */
  1277. ! static const char *tokp;    /* lexical position */
  1278.   static int tok;            /* token from token() */
  1279.   static struct tbl *val;        /* value from token() */
  1280.   
  1281. --- 20,27 ----
  1282.   #define    LLE    0x05
  1283.   #define    LGE    0x06
  1284.   
  1285. ! static char *expression;    /* expression being evaluated */
  1286. ! static char *tokp;    /* lexical position */
  1287.   static int tok;            /* token from token() */
  1288.   static struct tbl *val;        /* value from token() */
  1289.   
  1290. ***************
  1291. *** 51,57 ****
  1292.   {
  1293.       struct tbl *v;
  1294.   
  1295. !     expression = tokp = expr;
  1296.       token();
  1297.       v = intvar(asn());
  1298.       if (!(tok == 0))
  1299. --- 51,57 ----
  1300.   {
  1301.       struct tbl *v;
  1302.   
  1303. !     expression = tokp = (char *) expr;
  1304.       token();
  1305.       v = intvar(asn());
  1306.       if (!(tok == 0))
  1307. diff -cbr orig/sh/history.c new/sh/history.c
  1308. *** orig/sh/history.c    Tue Aug 25 15:21:06 1992
  1309. --- new/sh/history.c    Sun Sep 06 20:14:20 1992
  1310. ***************
  1311. *** 18,23 ****
  1312. --- 18,31 ----
  1313.    *        to work on your system
  1314.    */
  1315.   
  1316. + #ifndef HISTFILE
  1317. + # ifdef OS2
  1318. + #  define HISTFILE "history.ksh"
  1319. + # else
  1320. + #  define HISTFILE ".pdksh_hist"
  1321. + # endif
  1322. + #endif
  1323. + 
  1324.   #include "config.h"
  1325.   #include "stdh.h"
  1326.   
  1327. ***************
  1328. *** 29,37 ****
  1329.   
  1330.   static FILE *hist_fh = NULL;
  1331.   static FILE *hist_open ARGS((char *mode));
  1332. - #ifndef HISTFILE
  1333. - # define HISTFILE ".pdksh_hist"
  1334. - #endif
  1335.   
  1336.   #else
  1337.   /*    Defines and includes for the complicated case */
  1338. --- 37,42 ----
  1339. diff -cbr orig/sh/io.c new/sh/io.c
  1340. *** orig/sh/io.c    Tue Aug 25 15:20:17 1992
  1341. --- new/sh/io.c    Tue Sep 08 12:36:07 1992
  1342. ***************
  1343. *** 99,104 ****
  1344. --- 99,107 ----
  1345.       if (shf[fd] != NULL)
  1346.           return;
  1347.       if (fd <= 2)
  1348. + #ifdef __EMX__
  1349. +         /* ??? _streamv[fd].flags = 0; /* re-use stdin, stdout, stderr */
  1350. + #else
  1351.   #ifndef _BSDI
  1352.   #ifdef _MINIX
  1353.           /* ? */;
  1354. ***************
  1355. *** 109,114 ****
  1356. --- 112,118 ----
  1357.           /* Chris Torek's stdio replacement */
  1358.           __sF[fd]._flags = 0;
  1359.   #endif
  1360. + #endif
  1361.       shf[fd] = fdopen(fd, "r+");
  1362.       if (shf[fd] == NULL)
  1363.           return;
  1364. ***************
  1365. *** 141,147 ****
  1366. --- 145,155 ----
  1367.   
  1368.       if (fd < FDBASE) {
  1369.           flushshf(fd);
  1370. + #ifdef OS2
  1371. +         nfd = getdup(fd, FDBASE);
  1372. + #else
  1373.           nfd = fcntl(fd, F_DUPFD, FDBASE);
  1374. + #endif
  1375.           if (nfd < 0)
  1376.               if (errno == EBADF)
  1377.                   return -1;
  1378. ***************
  1379. *** 150,156 ****
  1380.   #ifdef F_SETFD
  1381.           (void) fcntl(nfd, F_SETFD, 1);
  1382.   #else
  1383. !         (void) fd_clexec(ttyfd);
  1384.   #endif
  1385.           close(fd);
  1386.       } else
  1387. --- 158,164 ----
  1388.   #ifdef F_SETFD
  1389.           (void) fcntl(nfd, F_SETFD, 1);
  1390.   #else
  1391. !         (void) fd_clexec(nfd);
  1392.   #endif
  1393.           close(fd);
  1394.       } else
  1395. ***************
  1396. *** 168,174 ****
  1397. --- 176,186 ----
  1398.       close(fd);
  1399.       if (ofd < 0)        /* original fd closed */
  1400.           return;
  1401. + #ifdef OS2
  1402. +         dup2(ofd, fd);
  1403. + #else
  1404.       (void) fcntl(ofd, F_DUPFD, fd);
  1405. + #endif
  1406.       close(ofd);
  1407.   }
  1408.   
  1409. ***************
  1410. *** 202,210 ****
  1411. --- 214,229 ----
  1412.       static unsigned int inc = 0;
  1413.       char path [PATH];
  1414.   
  1415. + #ifdef OS2
  1416. +         extern char *getenv();
  1417. +         char *tmp = getenv("TMP");
  1418. +         sprintf(path, "%s/shXXXXXX", tmp ? tmp : "");
  1419. +         mktemp(path);
  1420. + #else
  1421.       sprintf(path, "/tmp/sh%05u%02u", (unsigned)getpid(), inc++);
  1422.   #if defined(_SYSV) || defined(_BSD)
  1423.       close(creat(path, 0600));    /* to get appropriate permissions */
  1424. + #endif
  1425.   #endif
  1426.       tp = (struct temp *) alloc(sizeof(struct temp), ap);
  1427.       tp->next = NULL;
  1428. diff -cbr orig/sh/jobs.c new/sh/jobs.c
  1429. *** orig/sh/jobs.c    Tue Aug 25 15:20:17 1992
  1430. --- new/sh/jobs.c    Sun Sep 06 20:16:02 1992
  1431. ***************
  1432. *** 18,28 ****
  1433.   
  1434.   #include "stdh.h"
  1435.   #include <errno.h>
  1436. - #include <unistd.h>
  1437.   #include <signal.h>
  1438.   #include <setjmp.h>
  1439.   #include <sys/times.h>
  1440.   #include <sys/wait.h>
  1441.   #include "sh.h"
  1442.   #ifdef JOBS
  1443.   #ifdef _BSDI
  1444. --- 18,35 ----
  1445.   
  1446.   #include "stdh.h"
  1447.   #include <errno.h>
  1448.   #include <signal.h>
  1449.   #include <setjmp.h>
  1450. + #ifdef OS2
  1451. + #include <time.h>
  1452. + #include <process.h>
  1453. + typedef int pid_t;
  1454. + #endif
  1455. + #include <unistd.h>
  1456.   #include <sys/times.h>
  1457. + #ifndef OS2
  1458.   #include <sys/wait.h>
  1459. + #endif
  1460.   #include "sh.h"
  1461.   #ifdef JOBS
  1462.   #ifdef _BSDI
  1463. ***************
  1464. *** 32,40 ****
  1465. --- 39,49 ----
  1466.   #ifdef _BSD
  1467.   #include <sys/ioctl.h>
  1468.   #else
  1469. + #ifndef OS2
  1470.   #include "termios.h"
  1471.   #endif
  1472.   #endif
  1473. + #endif
  1474.   
  1475.   #ifdef _BSD
  1476.   /*
  1477. ***************
  1478. *** 68,76 ****
  1479. --- 77,103 ----
  1480.   #   define    waitpid(pid, sp, opts)    wait3(sp, opts, (void*)NULL)
  1481.   # endif
  1482.   #else                    /* not _BSD */
  1483. + # ifndef WIFSTOPPED
  1484. + #   define WIFSTOPPED(x)   (((x)&0xFF) == 0x7F)
  1485. + # endif
  1486. + # ifndef WIFSIGNALED
  1487. + #   define WIFSIGNALED(x)  (((x)&0xFF) != 0x7F && ((x)&0x7F) != 0)
  1488. + # endif
  1489. + # ifndef WIFEXITED
  1490. + #   define WIFEXITED(x)    (((x)&0xFF) != 0x7F && ((x)&0x7F) == 0)
  1491. + # endif
  1492.   # ifndef WIFCORED
  1493.   #   define    WIFCORED(x)    (!!((x)&0x80)) /* non-standard */
  1494.   # endif
  1495. + # ifndef WEXITSTATUS
  1496. + #   define WEXITSTATUS(x)  ((x)>>8&0xFF)
  1497. + # endif
  1498. + # ifndef WTERMSIG
  1499. + #   define WTERMSIG(x)     ((x)&0x7F)
  1500. + # endif
  1501. + # ifndef WSTOPSIG
  1502. + #   define WSTOPSIG(x)     ((x)>>8&0xFF)
  1503. + # endif
  1504.   #endif
  1505.   
  1506.   /* as of P1003.1 Draft 12.3:
  1507. ***************
  1508. *** 325,331 ****
  1509.   #ifdef JOBS
  1510.       /* don't allow SIGCHLD until we are ready */
  1511.   
  1512. ! #ifdef USE_SIGACT
  1513.       sigprocmask(SIG_SETMASK, &sm_sigchld, NULL);
  1514.   # else
  1515.       sigsetmask(sm_sigchld);
  1516. --- 352,358 ----
  1517.   #ifdef JOBS
  1518.       /* don't allow SIGCHLD until we are ready */
  1519.   
  1520. ! # ifdef USE_SIGACT
  1521.       sigprocmask(SIG_SETMASK, &sm_sigchld, NULL);
  1522.   # else
  1523.       sigsetmask(sm_sigchld);
  1524. diff -cbr orig/sh/lex.c new/sh/lex.c
  1525. *** orig/sh/lex.c    Tue Aug 25 15:20:17 1992
  1526. --- new/sh/lex.c    Tue Sep 01 08:41:20 1992
  1527. ***************
  1528. *** 9,15 ****
  1529. --- 9,17 ----
  1530.   #include "stdh.h"
  1531.   #include <errno.h>
  1532.   #include <setjmp.h>
  1533. + #ifndef OS2
  1534.   #include <unistd.h>
  1535. + #endif
  1536.   #include <assert.h>
  1537.   #include "sh.h"
  1538.   #include "expand.h"
  1539. ***************
  1540. *** 78,84 ****
  1541.           if (c == '#')
  1542.               while ((c = getsc()) != 0 && c != '\n')
  1543.                   ;
  1544. !         ungetsc();
  1545.       }
  1546.       if (alias) {            /* trailing ' ' in alias definition */
  1547.           alias = 0;
  1548. --- 80,86 ----
  1549.           if (c == '#')
  1550.               while ((c = getsc()) != 0 && c != '\n')
  1551.                   ;
  1552. !                 if (c) ungetsc();
  1553.       }
  1554.       if (alias) {            /* trailing ' ' in alias definition */
  1555.           alias = 0;
  1556. ***************
  1557. *** 95,103 ****
  1558.               switch (c) {
  1559.                 case '\\':
  1560.                   c = getsc();
  1561. !                 if (c != '\n')
  1562.                       *wp++ = QCHAR, *wp++ = c;
  1563. !                 else
  1564.                       if (wp == Xstring(ws, wp))
  1565.                           goto Again;
  1566.                   break;
  1567. --- 97,111 ----
  1568.               switch (c) {
  1569.                 case '\\':
  1570.                   c = getsc();
  1571. !                 if (c != '\n') {
  1572. ! #ifdef OS2
  1573. !                                         if ( isalnum(c) ) {
  1574. !                        *wp++ = CHAR, *wp++ = '\\';
  1575. !                        *wp++ = CHAR, *wp++ = c;
  1576. !                                         } else
  1577. ! #endif
  1578.                       *wp++ = QCHAR, *wp++ = c;
  1579. !                 } else
  1580.                       if (wp == Xstring(ws, wp))
  1581.                           goto Again;
  1582.                   break;
  1583. ***************
  1584. *** 647,652 ****
  1585. --- 655,661 ----
  1586.   pprompt(cp)
  1587.       register char *cp;
  1588.   {
  1589. +         putc('\r', shlout);
  1590.       while (*cp != 0)
  1591.           if (*cp != '!')
  1592.               putc(*cp++, shlout);
  1593. ***************
  1594. *** 654,659 ****
  1595. --- 663,674 ----
  1596.               if (*++cp == '!')
  1597.                   putc(*cp++, shlout);
  1598.               else
  1599. +                                 if (*cp == '.')
  1600. +                                 {
  1601. +                                     shellf("%s", strval(global("PWD")));
  1602. +                                         cp++;
  1603. +                                 }
  1604. +                                 else
  1605.                   shellf("%d", source->line);
  1606.       fflush(shlout);
  1607.   }
  1608. diff -cbr orig/sh/mail.c new/sh/mail.c
  1609. *** orig/sh/mail.c    Sun May 03 18:45:09 1992
  1610. --- new/sh/mail.c    Tue Sep 01 09:14:16 1992
  1611. ***************
  1612. *** 120,126 ****
  1613.       mval = strsave(mptoparse, APERM);
  1614.       while (mval) {
  1615.           mpath = mval;
  1616. !         if ((mval = strchr(mval, ':')) != NULL) {
  1617.               *mval ='\0', mval++;
  1618.           }
  1619.           if ((mmsg = strchr(mpath, '?')) != NULL) {
  1620. --- 120,126 ----
  1621.       mval = strsave(mptoparse, APERM);
  1622.       while (mval) {
  1623.           mpath = mval;
  1624. !         if ((mval = strchr(mval, PATHSEP)) != NULL) {
  1625.               *mval ='\0', mval++;
  1626.           }
  1627.           if ((mmsg = strchr(mpath, '?')) != NULL) {
  1628. diff -cbr orig/sh/main.c new/sh/main.c
  1629. *** orig/sh/main.c    Tue Aug 25 15:21:06 1992
  1630. --- new/sh/main.c    Sat Sep 26 13:07:12 1992
  1631. ***************
  1632. *** 9,15 ****
  1633. --- 9,17 ----
  1634.   #define    EXTERN                /* define EXTERNs in sh.h */
  1635.   
  1636.   #include "stdh.h"
  1637. + #ifndef OS2
  1638.   #include <unistd.h>
  1639. + #endif
  1640.   #include <fcntl.h>
  1641.   #include <signal.h>
  1642.   #include <errno.h>
  1643. ***************
  1644. *** 28,33 ****
  1645. --- 30,40 ----
  1646.   Area    aperm;
  1647.   
  1648.   static    void    reclaim ARGS((void));
  1649. + static    int    loginshell;
  1650. + 
  1651. + #ifdef EDIT
  1652. + void x_init();
  1653. + #endif
  1654.   
  1655.   /*
  1656.    * shell initialization
  1657. ***************
  1658. *** 208,213 ****
  1659. --- 215,224 ----
  1660.                       }
  1661.                       break;
  1662.   
  1663. +                                   case '0':
  1664. +                                         name = "-ksh";
  1665. +                                         break;
  1666. + 
  1667.                     case 'q':
  1668.                       qflag = 1;
  1669.                       break;
  1670. ***************
  1671. *** 219,225 ****
  1672.               }
  1673.           }
  1674.           if (s->type == SFILE && argi < argc && !flag[FSTDIN]) {
  1675. !             s->file = name = argv[argi++];
  1676.               if ((s->u.file = fopen(name, "r")) == NULL)
  1677.                   errorf("%s: cannot open\n", name);
  1678.               fflag = 1;
  1679. --- 230,236 ----
  1680.               }
  1681.           }
  1682.           if (s->type == SFILE && argi < argc && !flag[FSTDIN]) {
  1683. !             s->file = name = argv[argi];
  1684.               if ((s->u.file = fopen(name, "r")) == NULL)
  1685.                   errorf("%s: cannot open\n", name);
  1686.               fflag = 1;
  1687. ***************
  1688. *** 237,243 ****
  1689. --- 248,258 ----
  1690.               s->type = STTY;
  1691.       }
  1692.       if (s->type == STTY) {
  1693. + #ifdef OS2
  1694. +             ttyfd = getdup(0, FDBASE);
  1695. + #else
  1696.           ttyfd = fcntl(0, F_DUPFD, FDBASE);
  1697. + #endif
  1698.   #ifdef F_SETFD
  1699.           (void) fcntl(ttyfd, F_SETFD, 1);
  1700.   #else
  1701. ***************
  1702. *** 251,258 ****
  1703. --- 266,275 ----
  1704.       /* initialize job control */
  1705.       j_init();
  1706.   
  1707. + #ifndef OS2
  1708.       if (!qflag)
  1709.           ignoresig(SIGQUIT);
  1710. + #endif
  1711.   
  1712.       l->argv = &argv[argi];
  1713.       l->argc = argc - argi;
  1714. ***************
  1715. *** 260,270 ****
  1716. --- 277,302 ----
  1717.       resetopts();
  1718.   
  1719.       if (name[0] == '-') {
  1720. +         loginshell = 1;
  1721.           flag[FTALKING] = 1;
  1722. + #ifdef OS2
  1723. +         arg = substitute("$INIT/profile.ksh", 0);
  1724. +         (void) include(*arg ? arg : "/etc/profile.ksh");
  1725. +                 (void) include("profile.ksh");
  1726. + #else
  1727.           (void) include("/etc/profile");
  1728.           (void) include(".profile");
  1729. + #endif
  1730.       }
  1731.   
  1732. + #ifdef OS2
  1733. +     arg = substitute("~/kshrc.ksh", DOTILDE);
  1734. + #else
  1735. +     arg = substitute("~/.kshrc", DOTILDE);
  1736. + #endif
  1737. +     if (*arg != '\0')
  1738. +         (void) include(arg);
  1739. + 
  1740.       /* include $ENV */
  1741.       arg = substitute(strval(global("ENV")), DOTILDE);
  1742.       if (*arg != '\0')
  1743. ***************
  1744. *** 410,415 ****
  1745. --- 442,449 ----
  1746.   leave(rv)
  1747.       int rv;
  1748.   {
  1749. +     char *arg;
  1750. + 
  1751.       if (e.type == E_TCOM && e.oenv != NULL)    /* exec'd command */
  1752.           unwind();
  1753.       runtrap(&sigtraps[0]);
  1754. ***************
  1755. *** 418,423 ****
  1756. --- 452,467 ----
  1757.         hist_finish();
  1758.       }
  1759.       j_exit();
  1760. +     if ( loginshell )
  1761. +     {
  1762. + #ifdef OS2
  1763. +         arg = substitute("~/kshexit.ksh", DOTILDE);
  1764. + #else
  1765. +         arg = substitute("~/.kshexit", DOTILDE);
  1766. + #endif
  1767. +         if (*arg != '\0')
  1768. +             (void) include(arg);
  1769. +     }
  1770.       exit(rv);
  1771.       /* NOTREACHED */
  1772.   }
  1773. diff -cbr orig/sh/misc.c new/sh/misc.c
  1774. *** orig/sh/misc.c    Tue Aug 25 15:21:06 1992
  1775. --- new/sh/misc.c    Tue Sep 08 11:18:07 1992
  1776. ***************
  1777. *** 214,220 ****
  1778.    * pattern character are prefixed with MAGIC by expand.
  1779.    */
  1780.   
  1781. ! static    char    *cclass ARGS((char *, int c));
  1782.   
  1783.   int
  1784.   gmatch(s, p)
  1785. --- 214,220 ----
  1786.    * pattern character are prefixed with MAGIC by expand.
  1787.    */
  1788.   
  1789. ! static    char    *cclass ARGS((char *, int));
  1790.   
  1791.   int
  1792.   gmatch(s, p)
  1793. ***************
  1794. *** 295,301 ****
  1795.   qsortp(base, n, f)
  1796.       void **base;        /* base address */
  1797.       size_t n;        /* elements */
  1798. !     int (*f)();        /* compare function */
  1799.   {
  1800.       qsort1(base, base + n, f);
  1801.   }
  1802. --- 295,301 ----
  1803.   qsortp(base, n, f)
  1804.       void **base;        /* base address */
  1805.       size_t n;        /* elements */
  1806. !         int (*f)(void *, void *); /* compare function */
  1807.   {
  1808.       qsort1(base, base + n, f);
  1809.   }
  1810. ***************
  1811. *** 307,312 ****
  1812. --- 307,313 ----
  1813.       register void *t; t = *(a); *(a) = *(c); *(c) = *(b); *(b) = t;\
  1814.   }
  1815.   
  1816. + void
  1817.   qsort1(base, lim, f)
  1818.       void **base, **lim;
  1819.       int (*f)();
  1820. ***************
  1821. *** 388,403 ****
  1822.   cleanpath(pwd, dir, clean)
  1823.       char *pwd, *dir, *clean;
  1824.   {
  1825. !     register char  *s, *d, *p;
  1826. !     char *slash = "/";
  1827.       register int inslash = 0;
  1828.   
  1829.       d = clean;
  1830. !     if (*dir != '/') {
  1831.           s = pwd;
  1832.           while (*d++ = *s++)
  1833.               ;
  1834. !         if (d >= clean + 2 && *(d - 2) == '/')
  1835.               d--;
  1836.           else
  1837.               *(d - 1) = '/';
  1838. --- 389,408 ----
  1839.   cleanpath(pwd, dir, clean)
  1840.       char *pwd, *dir, *clean;
  1841.   {
  1842. !     register char  *s, *d, *p, c;
  1843. !     char *slash = DIRSEPSTR;
  1844.       register int inslash = 0;
  1845.   
  1846.       d = clean;
  1847. ! #ifdef OS2
  1848. !     if (!ISDIRSEP(*dir) && !(isalpha(dir[0]) && dir[1] == ':')) {
  1849. ! #else
  1850. !     if (!ISDIRSEP(*dir)) {
  1851. ! #endif
  1852.           s = pwd;
  1853.           while (*d++ = *s++)
  1854.               ;
  1855. !         if (d >= clean + 2 && ISDIRSEP(*(d - 2)))
  1856.               d--;
  1857.           else
  1858.               *(d - 1) = '/';
  1859. ***************
  1860. *** 405,430 ****
  1861.   
  1862.       s = dir;
  1863.       while (*s) {
  1864. !         if ((*d++ = *s++) == '/' && d > clean + 1) {
  1865. !             if (*(p = d - 2) == '/') {
  1866.                   --d;
  1867.               } else if (*p == '.') {
  1868. !                 if (*--p == '/') {
  1869.                       d -= 2;
  1870. !                 } else if (*p == '.' && *--p == '/') {
  1871. !                     while (p > clean && *--p != '/')
  1872.                           ;
  1873.                       d = p + 1;
  1874.                   }
  1875.               }
  1876.           }
  1877. !         if (!*s && !inslash && *(s - 1) != '/') {
  1878.               inslash = 1;
  1879.               s = slash;
  1880.           }
  1881.       }
  1882.   
  1883. !     if (*(d - 1) == '/' && (d - 1) > clean)
  1884.           d--;
  1885.       *d = '\0';
  1886.   }
  1887. --- 410,442 ----
  1888.   
  1889.       s = dir;
  1890.       while (*s) {
  1891. !                 c = (*d++ = *s++);
  1892. !         if (ISDIRSEP(c) && d > clean + 1) {
  1893. !                         p = d - 2;
  1894. !             if (ISDIRSEP(*p)) {
  1895.                   --d;
  1896.               } else if (*p == '.') {
  1897. !                                 p--;
  1898. !                 if (ISDIRSEP(*p)) {
  1899.                       d -= 2;
  1900. !                 } else if (*p == '.' && --p && ISDIRSEP(*p)) {
  1901. !                     while (p > clean && --p && 
  1902. !                            !ISDIRSEP(*p))
  1903.                           ;
  1904.                       d = p + 1;
  1905.                   }
  1906.               }
  1907.           }
  1908. !         if (!*s && !inslash && !ISDIRSEP(*(s - 1))) {
  1909.               inslash = 1;
  1910.               s = slash;
  1911.           }
  1912.       }
  1913.   
  1914. !     if (ISDIRSEP(*(d - 1)) && (d - 1) > clean)
  1915. ! #ifdef OS2
  1916. !         if (*(d - 2) != ':')
  1917. ! #endif
  1918.           d--;
  1919.       *d = '\0';
  1920.   }
  1921. diff -cbr orig/sh/proto.h new/sh/proto.h
  1922. *** orig/sh/proto.h    Tue Aug 25 15:20:18 1992
  1923. --- new/sh/proto.h    Tue Aug 25 15:23:10 1992
  1924. ***************
  1925. *** 180,187 ****
  1926.   int     getn         ARGS((char *as));
  1927.   char *    strerror     ARGS((int i));
  1928.   int     gmatch         ARGS((char *s, char *p));
  1929. ! void     qsortp         ARGS((void **base, size_t n, int (*f)()));
  1930. ! int     qsort1         ARGS((void **base, void **lim, int (*f)()));
  1931.   int     xstrcmp         ARGS((void *p1, void *p2));
  1932.   void     cleanpath     ARGS((char *pwd, char *dir, char *clean));
  1933.   /* syn.c */
  1934. --- 180,187 ----
  1935.   int     getn         ARGS((char *as));
  1936.   char *    strerror     ARGS((int i));
  1937.   int     gmatch         ARGS((char *s, char *p));
  1938. ! void    qsortp          ARGS((void **base, size_t n, int (*compare)(void *, void *)));
  1939. ! void     qsort1         ARGS((void **base, void **lim, int (*f)()));
  1940.   int     xstrcmp         ARGS((void *p1, void *p2));
  1941.   void     cleanpath     ARGS((char *pwd, char *dir, char *clean));
  1942.   /* syn.c */
  1943. diff -cbr orig/sh/sh.h new/sh/sh.h
  1944. *** orig/sh/sh.h    Tue Aug 25 15:21:07 1992
  1945. --- new/sh/sh.h    Wed Sep 09 21:49:11 1992
  1946. ***************
  1947. *** 16,22 ****
  1948.   #endif
  1949.   
  1950.   #ifndef SHELL
  1951. ! #define    SHELL    "/bin/sh"    /* shell to exec scripts */
  1952.   #endif
  1953.   
  1954.   #ifdef _BSD
  1955. --- 16,22 ----
  1956.   #endif
  1957.   
  1958.   #ifndef SHELL
  1959. ! #define    SHELL    "cmd.exe"    /* shell to exec scripts */
  1960.   #endif
  1961.   
  1962.   #ifdef _BSD
  1963. ***************
  1964. *** 57,63 ****
  1965.   #define    FDBASE    10        /* First file usable by Shell */
  1966.   
  1967.   /* you're not going to run setuid shell scripts, are you? */
  1968. ! #define    eaccess(path, mode)    access(path, mode)
  1969.   
  1970.   #define    MAGIC    (char)0x80    /* prefix for ~*?[ during expand */
  1971.   #define    NOT    '!'    /* might use ^ */
  1972. --- 57,63 ----
  1973.   #define    FDBASE    10        /* First file usable by Shell */
  1974.   
  1975.   /* you're not going to run setuid shell scripts, are you? */
  1976. ! #define    eaccess(path, mode)    (path ? access(path, mode) : -1)
  1977.   
  1978.   #define    MAGIC    (char)0x80    /* prefix for ~*?[ during expand */
  1979.   #define    NOT    '!'    /* might use ^ */
  1980. ***************
  1981. *** 262,267 ****
  1982. --- 262,268 ----
  1983.   void    initctypes ARGS((void));
  1984.   void    setctypes ARGS((const char*, int type));
  1985.   #endif
  1986. + 
  1987.   #define    ctype(c, t)    !!(ctypes[(unsigned char)(c)]&(t))
  1988.   #define    letter(c)    ctype(c, C_ALPHA)
  1989.   #define    digit(c)    ctype(c, C_DIGIT)
  1990. ***************
  1991. *** 272,277 ****
  1992. --- 273,282 ----
  1993.   #include "lex.h"
  1994.   #include "proto.h"
  1995.   
  1996. + #ifndef offsetof
  1997. + #define        offsetof(type,id) ((size_t)&((type*)NULL)->id)
  1998. + #endif
  1999. + 
  2000.   /*
  2001.    * 91-07-06 <sjg@sun0>
  2002.    * use my simple debug tracing...
  2003. ***************
  2004. *** 279,285 ****
  2005.   #include "trace.h"
  2006.   
  2007.   #ifndef fileno
  2008. ! #define fileno(p)    ((p)->_file)
  2009.   #endif
  2010.   
  2011.   /* be sure not to interfere with anyone else's idea about EXTERN */
  2012. --- 284,290 ----
  2013.   #include "trace.h"
  2014.   
  2015.   #ifndef fileno
  2016. ! #define fileno(p)    ((p)->handle)
  2017.   #endif
  2018.   
  2019.   /* be sure not to interfere with anyone else's idea about EXTERN */
  2020. ***************
  2021. *** 294,296 ****
  2022. --- 299,319 ----
  2023.    * comment-column:40
  2024.    * End:
  2025.    */
  2026. + 
  2027. + #ifdef OS2
  2028. + #define PATHSEP        ';'
  2029. + #define DIRSEP         '\\'
  2030. + #define DIRSEPSTR      "\\"
  2031. + #define ISDIRSEP(c)    ((c) == '\\' || (c) == '/')
  2032. + extern char *index_sep(char *path);
  2033. + extern char *rindex_sep(char *path);
  2034. + #define chdir          _chdir2
  2035. + #define getcwd         _getcwd2
  2036. + #else
  2037. + #define PATHSEP        ':'
  2038. + #define DIRSEP         '/'
  2039. + #define DIRSEPSTR      "/"
  2040. + #define ISDIRSEP(c)    ((c) == '/')
  2041. + #define index_sep(p)   strchr(p, DIRSEP)
  2042. + #define rindex_sep(p)  strrchr(p, DIRSEP)
  2043. + #endif
  2044. diff -cbr orig/sh/trap.c new/sh/trap.c
  2045. *** orig/sh/trap.c    Tue Aug 25 15:20:19 1992
  2046. --- new/sh/trap.c    Tue Aug 25 16:11:22 1992
  2047. ***************
  2048. *** 14,52 ****
  2049.   
  2050.   Trap sigtraps [SIGNALS] = {
  2051.       {0,    "EXIT", "Signal 0"}, /* todo: belongs in e.loc->exit */
  2052. -     {SIGHUP, "HUP", "Hangup"},
  2053.       {SIGINT, "INT", "Interrupt"},
  2054. -     {SIGQUIT, "QUIT", "Quit"},
  2055.       {SIGILL, "ILL", "Illegal instruction"},
  2056.       {SIGTRAP, "TRAP", "Trace trap"},
  2057.   #ifdef    SIGABRT
  2058. !     {SIGIOT, "ABRT", "Abort"},
  2059.   #else
  2060.       {SIGIOT, "IOT", "IOT instruction"},
  2061.   #endif
  2062.       {SIGEMT, "EMT", "EMT trap"},
  2063. -     {SIGFPE, "FPE", "Floating exception"},
  2064.       {SIGKILL, "KILL", "Killed"},
  2065.   #ifdef _MINIX
  2066.       {SIGUSR1, "USR1", "User defined signal 1"},
  2067. -     {SIGSEGV, "SEGV", "Memory fault"},
  2068.       {SIGUSR2, "USR2", "User defined signal 2"},
  2069.   #else
  2070.       {SIGBUS, "BUS", "Bus error"},
  2071. -     {SIGSEGV, "SEGV", "Memory fault"},
  2072.       {SIGSYS, "SYS", "Bad system call"},
  2073.   #endif
  2074.       {SIGPIPE, "PIPE", "Broken pipe"},
  2075.       {SIGALRM, "ALRM", "Alarm clock"},
  2076. -     {SIGTERM, "TERM", "Terminated"},
  2077. - #ifdef _MINIX
  2078. -     {SIGSTKFLT, "STKFLT", "Stack fault"},
  2079. - #endif
  2080.   #ifdef _SYSV
  2081.       {SIGUSR1, "USR1", "User defined signal 1"},
  2082.       {SIGUSR2, "USR2", "User defined signal 2"},
  2083. -     {SIGCLD, "CLD", "Death of a child"},
  2084.       {SIGPWR, "PWR", "Power-fail restart"},
  2085.   #ifdef JOBS            /* todo: need to be more portable */
  2086.       {SIGTSTP, "TSTP", "Stop"},
  2087.       {SIGTTIN, "TTIN", "Stop (tty input)"},
  2088. --- 14,54 ----
  2089.   
  2090.   Trap sigtraps [SIGNALS] = {
  2091.       {0,    "EXIT", "Signal 0"}, /* todo: belongs in e.loc->exit */
  2092.       {SIGINT, "INT", "Interrupt"},
  2093.       {SIGILL, "ILL", "Illegal instruction"},
  2094. +     {SIGFPE, "FPE", "Floating exception"},
  2095. +     {SIGSEGV, "SEGV", "Memory fault"},
  2096. +     {SIGTERM, "TERM", "Terminated"},
  2097. + #ifdef OS2
  2098. +     {SIGBREAK, "BREAK", "Ctrl-Break"},
  2099. + #endif
  2100. +     {SIGHUP, "HUP", "Hangup"},
  2101. +     {SIGQUIT, "QUIT", "Quit"},
  2102.       {SIGTRAP, "TRAP", "Trace trap"},
  2103.   #ifdef    SIGABRT
  2104. !     {SIGABRT, "ABRT", "Abort"},
  2105.   #else
  2106.       {SIGIOT, "IOT", "IOT instruction"},
  2107.   #endif
  2108.       {SIGEMT, "EMT", "EMT trap"},
  2109.       {SIGKILL, "KILL", "Killed"},
  2110.   #ifdef _MINIX
  2111.       {SIGUSR1, "USR1", "User defined signal 1"},
  2112.       {SIGUSR2, "USR2", "User defined signal 2"},
  2113. +     {SIGSTKFLT, "STKFLT", "Stack fault"},
  2114.   #else
  2115.       {SIGBUS, "BUS", "Bus error"},
  2116.       {SIGSYS, "SYS", "Bad system call"},
  2117.   #endif
  2118.       {SIGPIPE, "PIPE", "Broken pipe"},
  2119.       {SIGALRM, "ALRM", "Alarm clock"},
  2120.   #ifdef _SYSV
  2121. + #ifndef OS2
  2122.       {SIGUSR1, "USR1", "User defined signal 1"},
  2123.       {SIGUSR2, "USR2", "User defined signal 2"},
  2124.       {SIGPWR, "PWR", "Power-fail restart"},
  2125. + #endif
  2126. +     {SIGCLD, "CLD", "Death of a child"},
  2127.   #ifdef JOBS            /* todo: need to be more portable */
  2128.       {SIGTSTP, "TSTP", "Stop"},
  2129.       {SIGTTIN, "TTIN", "Stop (tty input)"},
  2130. ***************
  2131. *** 135,141 ****
  2132.           if (p->signal == SIGINT)
  2133.               unwind();    /* return to shell() */
  2134.           else
  2135. !             return;
  2136.       if (p->signal == 0)    /* ??? */
  2137.           p->trap = 0;
  2138.       command(trapstr);
  2139. --- 137,143 ----
  2140.           if (p->signal == SIGINT)
  2141.               unwind();    /* return to shell() */
  2142.           else
  2143. !             return 0;
  2144.       if (p->signal == 0)    /* ??? */
  2145.           p->trap = 0;
  2146.       command(trapstr);
  2147. diff -cbr orig/sh/tree.c new/sh/tree.c
  2148. *** orig/sh/tree.c    Sun May 03 18:45:18 1992
  2149. --- new/sh/tree.c    Sun May 03 19:45:27 1992
  2150. ***************
  2151. *** 9,14 ****
  2152. --- 9,15 ----
  2153.   #include "stdh.h"
  2154.   #include <errno.h>
  2155.   #include <setjmp.h>
  2156. + #include <memory.h>
  2157.   
  2158.   #ifdef __STDC__
  2159.   # include <stdarg.h>
  2160. diff -cbr orig/sh/tty.h new/sh/tty.h
  2161. *** orig/sh/tty.h    Tue Aug 25 15:20:20 1992
  2162. --- new/sh/tty.h    Tue Aug 25 16:07:28 1992
  2163. ***************
  2164. *** 6,11 ****
  2165. --- 6,12 ----
  2166.       last edit:    30-Jul-1987    D A Gwyn
  2167.   */
  2168.   
  2169. + #ifndef _OS2
  2170.   #if _BSD_SYSV            /* BRL UNIX System V emulation */
  2171.   #include <termio.h>    /* includes <sys/_ioctl.h> */
  2172.   #ifndef NTTYDISC
  2173. ***************
  2174. *** 35,37 ****
  2175. --- 36,39 ----
  2176.   #endif
  2177.   #endif
  2178.   #endif    /* _BSD_SYSV */
  2179. + #endif  /* OS2 */
  2180. diff -cbr orig/sh/var.c new/sh/var.c
  2181. *** orig/sh/var.c    Tue Aug 25 15:20:20 1992
  2182. --- new/sh/var.c    Tue Aug 25 15:23:12 1992
  2183. ***************
  2184. *** 6,11 ****
  2185. --- 6,12 ----
  2186.   #include <errno.h>
  2187.   #include <setjmp.h>
  2188.   #include <time.h>
  2189. + #include <sys/types.h>
  2190.   #include "sh.h"
  2191.   #include "expand.h"
  2192.   
  2193. diff -cbr orig/sh/vi.c new/sh/vi.c
  2194. *** orig/sh/vi.c    Tue Aug 25 15:20:21 1992
  2195. --- new/sh/vi.c    Tue Sep 08 13:04:13 1992
  2196. ***************
  2197. *** 73,79 ****
  2198.   #define isundoable(c)    (!(classify[c]&U_))
  2199.   #define issrch(c)    (classify[c]&S_)
  2200.   
  2201. ! char    classify[128] = {
  2202.       B_,    0,    0,    0,    0,    0,    O_,    0,
  2203.   #if 1    /* Mike B. changes */
  2204.       C_|M_,    0,    O_,    0,    O_,    O_,    O_,    0,
  2205. --- 73,79 ----
  2206.   #define isundoable(c)    (!(classify[c]&U_))
  2207.   #define issrch(c)    (classify[c]&S_)
  2208.   
  2209. ! char    classify[256] = {
  2210.       B_,    0,    0,    0,    0,    0,    O_,    0,
  2211.   #if 1    /* Mike B. changes */
  2212.       C_|M_,    0,    O_,    0,    O_,    O_,    O_,    0,
  2213. ***************
  2214. *** 1134,1140 ****
  2215.   static int    pwidth;            /* width of prompt */
  2216.   static int    winwidth;        /* width of window */
  2217.   /*static char    *wbuf[2];        /* window buffers */
  2218. ! static char    wbuf[2][80-3];    /* window buffers */ /* TODO */
  2219.   static int    win;            /* window buffer in use */
  2220.   static char    morec;            /* more character at right of window */
  2221.   static int    lastref;        /* argument to last refresh() */
  2222. --- 1134,1140 ----
  2223.   static int    pwidth;            /* width of prompt */
  2224.   static int    winwidth;        /* width of window */
  2225.   /*static char    *wbuf[2];        /* window buffers */
  2226. ! static char    wbuf[2][128-3];    /* window buffers */ /* TODO */
  2227.   static int    win;            /* window buffer in use */
  2228.   static char    morec;            /* more character at right of window */
  2229.   static int    lastref;        /* argument to last refresh() */
  2230. ***************
  2231. *** 1597,1603 ****
  2232.       }
  2233.   #if 0
  2234.       /*
  2235. !      * Hack to fix teh ^r redraw problem, but it redraws way too much.
  2236.        * Probably unacceptable at low baudrates.  Someone please fix this
  2237.        */
  2238.       else
  2239. --- 1597,1603 ----
  2240.       }
  2241.   #if 0
  2242.       /*
  2243. !      * Hack to fix the ^r redraw problem, but it redraws way too much.
  2244.        * Probably unacceptable at low baudrates.  Someone please fix this
  2245.        */
  2246.       else
  2247. ***************
  2248. *** 1664,1674 ****
  2249.   
  2250.   getch()
  2251.   {
  2252. !     char    buf;
  2253.   
  2254.       if (read(ttyfd, &buf, 1) != 1)
  2255.           return -1;
  2256.       if ((buf & 0x7f) == Ctrl('c')) {
  2257.           /*
  2258.            * If you hit ctrl-c, the buffer was left in a
  2259.            * strange state; the next command typed was
  2260. --- 1664,1685 ----
  2261.   
  2262.   getch()
  2263.   {
  2264. !     unsigned char    buf;
  2265.   
  2266. + #ifdef OS2
  2267. +         do
  2268. +         {
  2269. +           buf = _read_kbd(0, 1, 0);
  2270. +           if ( buf == 0 || buf == 0xE0 )
  2271. +             _read_kbd(0, 1, 0);
  2272. +         }
  2273. +         while ( buf == 0 || buf == 0xE0 );
  2274. +     if (buf == Ctrl('c')) {
  2275. + #else
  2276.       if (read(ttyfd, &buf, 1) != 1)
  2277.           return -1;
  2278.       if ((buf & 0x7f) == Ctrl('c')) {
  2279. + #endif
  2280.           /*
  2281.            * If you hit ctrl-c, the buffer was left in a
  2282.            * strange state; the next command typed was
  2283. ***************
  2284. *** 1688,1696 ****
  2285. --- 1699,1713 ----
  2286.           undo->cursor = 0;
  2287.           x_mode(FALSE);
  2288.           trapsig(SIGINT);
  2289. + #ifdef OS2
  2290. +     } else if (buf == Ctrl('d'))
  2291. +         return -1;
  2292. +     return buf;
  2293. + #else
  2294.       } else if ((buf & 0x7f) == Ctrl('d'))
  2295.           return -1;
  2296.       return buf & 0x7f;
  2297. + #endif
  2298.   }
  2299.   
  2300.   
  2301.