home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / cli / tcsh.zoo / source / diffs < prev    next >
Text File  |  1991-12-15  |  52KB  |  2,170 lines
  1. *** ./orig/config_f.h    Fri Oct 25 22:35:28 1991
  2. --- ./config_f.h    Mon Nov 11 17:19:28 1991
  3. ***************
  4. *** 56,62 ****
  5.    *        if you don't have <locale.h>, you don't want
  6.    *        to define this.
  7.    */
  8. ! #define NLS
  9.   
  10.   /*
  11.    * LOGINFIRST   Source ~/.login before ~/.cshrc
  12. --- 56,62 ----
  13.    *        if you don't have <locale.h>, you don't want
  14.    *        to define this.
  15.    */
  16. ! #undef NLS
  17.   
  18.   /*
  19.    * LOGINFIRST   Source ~/.login before ~/.cshrc
  20. ***************
  21. *** 95,101 ****
  22.    *        on the name of the tty, and environment.
  23.    *        Does not make sense in the modern window systems!
  24.    */
  25. ! #define AUTOLOGOUT
  26.   
  27.   /*
  28.    * SUSPENDED    Newer shells say 'Suspended' instead of 'Stopped'.
  29. --- 95,101 ----
  30.    *        on the name of the tty, and environment.
  31.    *        Does not make sense in the modern window systems!
  32.    */
  33. ! #undef AUTOLOGOUT
  34.   
  35.   /*
  36.    * SUSPENDED    Newer shells say 'Suspended' instead of 'Stopped'.
  37. ***************
  38. *** 116,121 ****
  39. --- 116,129 ----
  40.    *        provided.
  41.    */
  42.   #undef SYSMALLOC
  43. + 
  44. + 
  45. + /*
  46. +  * ALTESC    Allow the user to define the escape character to be something
  47. +  *        other than \ (useful if \ is a common file name character.
  48. +  *        e.g. for MiNT)
  49. +  */
  50. + #define ALTESC
  51.   
  52.   
  53.   /*
  54. *** ./orig/ed.chared.c    Fri Oct 25 22:33:24 1991
  55. --- ./ed.chared.c    Mon Nov 11 17:55:18 1991
  56. ***************
  57. *** 470,476 ****
  58. --- 470,480 ----
  59.       for (;;) {
  60.       while (*p != HIST && p < Cursor)
  61.           ++p;
  62. + #ifdef ALTESC
  63. +     for (i = 1; (p - i) >= InputBuf && p[-i] == escchar; i++);
  64. + #else
  65.       for (i = 1; (p - i) >= InputBuf && p[-i] == '\\'; i++);
  66. + #endif
  67.       if (i % 2 == 0)
  68.           ++p;
  69.       if (p >= Cursor)
  70. *** ./orig/ed.init.c    Fri Oct 25 22:33:42 1991
  71. --- ./ed.init.c    Mon Nov 11 16:20:30 1991
  72. ***************
  73. *** 43,48 ****
  74. --- 43,52 ----
  75.   #include "tc.h"
  76.   #include "ed.defns.h"
  77.   
  78. + #ifdef __MINT__
  79. + extern int __mint;    /* version of MiNT we're running under */
  80. + #endif
  81. + 
  82.   #if defined(TERMIO) || defined(POSIX)
  83.   /*
  84.    * Aix compatible names
  85. ***************
  86. *** 1035,1044 ****
  87. --- 1039,1061 ----
  88.   #else /* GSTTY */
  89.       if (T_Tabs) {        /* order of &= and |= is important to XTABS */
  90.       xb.sg_flags &= ~(RAW | ECHO | LCASE | XTABS | VTDELAY | ALLDELAY);
  91. + # ifdef __MINT__
  92. + /* TOS, and older versions of MiNT, have trouble with CBREAK mode, so we use
  93. +  * raw mode instead
  94. +  */
  95. +     if (__mint < 91)
  96. +         xb.sg_flags |= (RAW | CRMOD | ANYP);
  97. +     else
  98. + # endif /* __MINT__ */
  99.       xb.sg_flags |= (CBREAK | CRMOD | ANYP);
  100.       }
  101.       else {
  102.       xb.sg_flags &= ~(RAW | ECHO | LCASE | VTDELAY | ALLDELAY);
  103. + # ifdef __MINT__
  104. +     if (__mint < 91)
  105. +         xb.sg_flags |= (RAW | CRMOD | ANYP | XTABS);
  106. +     else
  107. + # endif /* __MINT__ */
  108.       xb.sg_flags |= (CBREAK | CRMOD | ANYP | XTABS);
  109.       }
  110.   
  111. *** ./orig/ed.inputl.c    Fri Oct 25 22:33:46 1991
  112. --- ./ed.inputl.c    Mon Nov 25 12:55:42 1991
  113. ***************
  114. *** 53,59 ****
  115. --- 53,63 ----
  116.   extern bool Tty_raw_mode;
  117.   
  118.   /* mismatched first character */
  119. + #ifdef ALTESC
  120. + static Char mismatch[] = {'!', '^', '-', '%', '\0'};
  121. + #else
  122.   static Char mismatch[] = {'!', '\\', '^', '-', '%', '\0'};
  123. + #endif
  124.   
  125.   static    int    GetNextCommand    __P((KEYCMD *, Char *));
  126.   static    int    SpellLine    __P((int));
  127. ***************
  128. *** 86,92 ****
  129. --- 90,101 ----
  130.       if (!Tty_raw_mode && MacroLvl < 0) {
  131.       long    chrs = 0;
  132.   
  133. + #ifndef __MINT__
  134. + /* MiNT _always_ wants to go into raw mode, so don't bother with the
  135. +  * FIONREAD test
  136. +  */
  137.       (void) ioctl(SHIN, FIONREAD, (ioctl_t) & chrs);
  138. + #endif
  139.       if (chrs == 0) {
  140.           if (Rawmode() < 0)
  141.           return 0;
  142. ***************
  143. *** 553,559 ****
  144. --- 562,572 ----
  145.           Cursor--;
  146.           endflag = 0;
  147.       }
  148. + #ifdef ALTESC
  149. +     if (!Strchr(mismatch, *argptr) && *argptr != escchar &&
  150. + #else
  151.       if (!Strchr(mismatch, *argptr) &&
  152. + #endif
  153.           (!cmdonly || starting_a_command(argptr, InputBuf))) {
  154.           switch (tenematch(InputBuf, INBUFSIZ, Cursor - InputBuf, SPELL)) {
  155.           case 1:        /* corrected */
  156. *** ./orig/glob.c    Tue Aug  6 03:19:38 1991
  157. --- ./glob.c    Mon Nov 11 23:59:02 1991
  158. ***************
  159. *** 114,123 ****
  160.   #define    NOT        '!'
  161.   #define ALTNOT        '^'
  162.   #define    QUESTION    '?'
  163. ! #define    QUOTE        '\\'
  164.   #define    RANGE        '-'
  165.   #define    RBRACKET    ']'
  166.   #define    SEP        '/'
  167.   #define    STAR        '*'
  168.   #define    TILDE        '~'
  169.   #define    UNDERSCORE    '_'
  170. --- 114,130 ----
  171.   #define    NOT        '!'
  172.   #define ALTNOT        '^'
  173.   #define    QUESTION    '?'
  174. ! #ifdef ALTESC
  175. ! #define    QUOTE        escchar
  176. ! #else
  177. ! #define QUOTE        '\\'
  178. ! #endif
  179.   #define    RANGE        '-'
  180.   #define    RBRACKET    ']'
  181.   #define    SEP        '/'
  182. + #if defined(__MINT__) && defined(ALTESC)
  183. + #define SEP2        '\\'
  184. + #endif
  185.   #define    STAR        '*'
  186.   #define    TILDE        '~'
  187.   #define    UNDERSCORE    '_'
  188. ***************
  189. *** 449,454 ****
  190. --- 456,464 ----
  191.           return (0);
  192.   
  193.           if (((pglob->gl_flags & GLOB_MARK) &&
  194. + #if defined(__MINT__) && defined(ALTESC)
  195. +          (pathend[-1] != SEP2 || escchar == SEP2) &&
  196. + #endif
  197.            pathend[-1] != SEP) &&
  198.           (S_ISDIR(sbuf.st_mode)
  199.   #ifdef S_IFLNK
  200. ***************
  201. *** 467,473 ****
  202. --- 477,487 ----
  203.       /* find end of next segment, copy tentatively to pathend */
  204.       q = pathend;
  205.       p = pattern;
  206. + #if defined(__MINT__) && defined(ALTESC)
  207. +     while (*p != EOS && *p != SEP && (*p != SEP2 || escchar == SEP2)) {
  208. + #else
  209.       while (*p != EOS && *p != SEP) {
  210. + #endif
  211.           if (ismeta(*p))
  212.           anymeta = 1;
  213.           *q++ = *p++;
  214. ***************
  215. *** 476,482 ****
  216. --- 490,500 ----
  217.       if (!anymeta) {        /* no expansion, do next segment */
  218.           pathend = q;
  219.           pattern = p;
  220. + #if defined(__MINT__) && defined(ALTESC)
  221. +         while (*pattern == SEP || (escchar != SEP2 && *pattern == SEP2))
  222. + #else
  223.           while (*pattern == SEP)
  224. + #endif
  225.           *pathend++ = *pattern++;
  226.       }
  227.       else            /* need expansion, recurse */
  228. *** ./orig/pathnames.h    Fri Oct 25 22:35:32 1991
  229. --- ./pathnames.h    Sun Nov 10 00:56:32 1991
  230. ***************
  231. *** 54,59 ****
  232. --- 54,65 ----
  233.   # define _PATH_DOTCSHRC        "/etc/cshrc"
  234.   #endif /* convex || __convex__ */
  235.   
  236. + #ifdef __MINT__
  237. + # define _PATH_DOTLOGIN        "/etc/login.csh"
  238. + # define _PATH_DOTLOGOUT    "/etc/logout.csh"
  239. + # define _PATH_DOTCSHRC        "/etc/csh.rc"
  240. + #endif /* __MINT__ */
  241. + 
  242.   #if defined(sgi) || defined(OREO)
  243.   # define _PATH_DOTLOGIN        "/etc/cshrc"
  244.   #endif /* sgi || OREO */
  245. ***************
  246. *** 70,76 ****
  247. --- 76,86 ----
  248.   #ifdef notdef
  249.   # define _PATH_CSHELL         "/bin/csh"
  250.   #endif
  251. + #ifdef __MINT__
  252. + #define _PATH_TCSHELL        "/bin/tcsh"
  253. + #else
  254.   #define _PATH_TCSHELL        "/usr/local/bin/tcsh"
  255. + #endif
  256.   
  257.   #define _PATH_LOGIN        "/bin/login"
  258.   #ifdef NEWGRP
  259. *** ./orig/sh.char.c    Fri Oct 25 22:32:00 1991
  260. --- ./sh.char.c    Mon Nov 11 00:31:38 1991
  261. ***************
  262. *** 49,56 ****
  263. --- 49,61 ----
  264.   /*    bs        ht        nl        vt    */
  265.       _CTR,        _CTR|_SP|_META,    _CTR|_NL|_META,    _CTR,
  266.   
  267. + #ifndef __MINT__
  268.   /*    np        cr        so        si    */
  269.       _CTR,        _CTR,        _CTR,        _CTR,
  270. + #else
  271. + /*    np        cr        so        si    */
  272. +     _CTR,        _CTR|_SP|_META,    _CTR,        _CTR,
  273. + #endif
  274.   
  275.   /*    dle        dc1        dc2        dc3    */
  276.       _CTR,        _CTR,        _CTR,        _CTR,
  277. *** ./orig/sh.dir.c    Fri Oct 25 22:31:48 1991
  278. --- ./sh.dir.c    Sat Nov 16 19:42:16 1991
  279. ***************
  280. *** 39,44 ****
  281. --- 39,48 ----
  282.   
  283.   
  284.   #include "sh.h"
  285. + #ifdef __MINT__
  286. + extern Char *Lastslash();
  287. + #endif
  288. + 
  289.   /*
  290.    * C Shell - directory management
  291.    */
  292. ***************
  293. *** 408,414 ****
  294. --- 412,422 ----
  295.   {
  296.       Char   *dp;
  297.   
  298. + #ifdef __MINT__
  299. +     if (!is_abspath(cp)) {
  300. + #else
  301.       if (*cp != '/') {
  302. + #endif
  303.       register Char *p, *q;
  304.       int     cwdlen;
  305.   
  306. ***************
  307. *** 477,484 ****
  308. --- 485,497 ----
  309.       serrno = errno;
  310.       }
  311.   
  312. + #ifdef __MINT__
  313. +     if (!is_abspath(cp) && !prefix(STRdotsl, cp) &&
  314. +         !prefix(STRdotdotsl, cp) && (c = adrof(STRcdpath))) {
  315. + #else
  316.       if (cp[0] != '/' && !prefix(STRdotsl, cp) && !prefix(STRdotdotsl, cp)
  317.       && (c = adrof(STRcdpath))) {
  318. + #endif
  319.       Char  **cdp;
  320.       register Char *p;
  321.       Char    buf[MAXPATHLEN];
  322. ***************
  323. *** 496,502 ****
  324. --- 509,519 ----
  325.       }
  326.       }
  327.       dp = value(cp);
  328. + #ifdef __MINT__
  329. +     if ((is_abspath(dp) || dp[0] == '.') && chdir(short2str(dp)) >= 0) {
  330. + #else
  331.       if ((dp[0] == '/' || dp[0] == '.') && chdir(short2str(dp)) >= 0) {
  332. + #endif
  333.       xfree((ptr_t) cp);
  334.       cp = Strsave(dp);
  335.       printd = 1;
  336. ***************
  337. *** 717,727 ****
  338. --- 734,752 ----
  339.        * christos: if the path given does not start with a slash prepend cwd. If
  340.        * cwd does not start with a slash or the result would be too long abort().
  341.        */
  342. + #ifdef __MINT__
  343. +     if (!is_abspath(cp)) {
  344. + #else
  345.       if (*cp != '/') {
  346. + #endif
  347.       Char    tmpdir[MAXPATHLEN];
  348.   
  349.       p1 = value(STRcwd);
  350. + #ifdef __MINT__
  351. +     if (p1 == NULL || !is_abspath(p1))
  352. + #else
  353.       if (p1 == NULL || *p1 != '/')
  354. + #endif
  355.           abort();
  356.       if (Strlen(p1) + Strlen(cp) + 1 >= MAXPATHLEN)
  357.           abort();
  358. ***************
  359. *** 743,756 ****
  360. --- 768,790 ----
  361.   
  362.       while (*p) {        /* for each component */
  363.       sp = p;            /* save slash address */
  364. + #ifdef __MINT__
  365. +     do { ++p;
  366. +     } while (is_dirsep(*p));    /* flush extra slashes */
  367. + #else
  368.       while (*++p == '/')    /* flush extra slashes */
  369.           ;
  370. + #endif
  371.       if (p != ++sp)
  372.           for (p1 = sp, p2 = p; *p1++ = *p2++;);
  373.       p = sp;            /* save start of component */
  374.       slash = 0;
  375.       while (*++p)        /* find next slash or end of path */
  376. + #ifdef __MINT__
  377. +         if (is_dirsep(*p)) {
  378. + #else
  379.           if (*p == '/') {
  380. + #endif
  381.           slash = 1;
  382.           *p = 0;
  383.           break;
  384. ***************
  385. *** 798,809 ****
  386. --- 832,851 ----
  387.            * find length of p
  388.            */
  389.           for (p1 = p; *p1++;);
  390. + #ifdef __MINT__
  391. +         if (!is_abspath(link)) {
  392. + #else
  393.           if (*link != '/') {
  394. + #endif
  395.               /*
  396.                * Relative path, expand it between the "yyy/" and the
  397.                * "/..". First, back sp up to the character past "yyy/".
  398.                */
  399. + #ifdef __MINT__
  400. +             do { --sp; } while (!is_dirsep(*sp)) ;
  401. + #else
  402.               while (*--sp != '/');
  403. + #endif
  404.               sp++;
  405.               *sp = 0;
  406.               /*
  407. ***************
  408. *** 846,852 ****
  409. --- 888,898 ----
  410.   #endif                /* S_IFLNK */
  411.           *sp = '/';
  412.           if (sp != cp)
  413. + #ifdef __MINT__
  414. +         do { --sp; } while (!is_dirsep(*sp));
  415. + #else
  416.           while (*--sp != '/');
  417. + #endif
  418.           if (slash) {
  419.           for (p1 = sp + 1, p2 = p + 1; *p1++ = *p2++;);
  420.           p = sp;
  421. ***************
  422. *** 881,893 ****
  423. --- 927,947 ----
  424.            * find length of p
  425.            */
  426.           for (p1 = p; *p1++;);
  427. + #ifdef __MINT__
  428. +         if (!is_abspath(link)) {
  429. + #else
  430.           if (*link != '/') {
  431. + #endif
  432.               /*
  433.                * Relative path, expand it between the "yyy/" and the
  434.                * remainder. First, back sp up to the character past
  435.                * "yyy/".
  436.                */
  437. + #ifdef __MINT__
  438. +             do { --sp; } while (!is_dirsep(*sp));
  439. + #else
  440.               while (*--sp != '/');
  441. + #endif
  442.               sp++;
  443.               *sp = 0;
  444.               /*
  445. ***************
  446. *** 942,949 ****
  447. --- 996,1008 ----
  448.       /*
  449.        * See if we're not in a subdir of STRhome
  450.        */
  451. + #ifdef __MINT__
  452. +     if (p1 && is_abspath(p1) &&
  453. +     (Strncmp(p1, cp, cc) != 0 || (!is_dirsep(cp[cc]) && cp[cc] != '\0'))) {
  454. + #else
  455.       if (p1 && *p1 == '/' &&
  456.       (Strncmp(p1, cp, cc) != 0 || (cp[cc] != '/' && cp[cc] != '\0'))) {
  457. + #endif
  458.       static ino_t home_ino = -1;
  459.       static dev_t home_dev = -1;
  460.       static Char *home_ptr = NULL;
  461. ***************
  462. *** 968,975 ****
  463. --- 1027,1040 ----
  464.           sp = (Char *) - 1;
  465.           break;
  466.           }
  467. + #ifdef __MINT__
  468. +         sp = Lastslash(p2);
  469. +         if (sp == 0 && p2[1] == ':') sp = p2;
  470. +         if (sp) *sp = '\0';
  471. + #else
  472.           if (sp = Strrchr(p2, '/'))
  473.           *sp = '\0';
  474. + #endif
  475.       }
  476.       /*
  477.        * See if we found it
  478. *** ./orig/sh.dol.c    Fri Oct 25 22:31:52 1991
  479. --- ./sh.dol.c    Sat Nov 16 16:40:26 1991
  480. ***************
  481. *** 173,179 ****
  482.   
  483.       for (;;) {
  484.       c = DgetC(DODOL);
  485. !     if (c == '\\') {
  486.           c = DgetC(0);
  487.           if (c == DEOF) {
  488.           unDredc(c);
  489. --- 173,179 ----
  490.   
  491.       for (;;) {
  492.       c = DgetC(DODOL);
  493. !     if (c == escchar) {
  494.           c = DgetC(0);
  495.           if (c == DEOF) {
  496.           unDredc(c);
  497. ***************
  498. *** 297,303 ****
  499. --- 297,308 ----
  500.           }
  501.           break;
  502.   
  503. + #ifdef ALTESC
  504. +     default:
  505. +         if (c != escchar) break;
  506. + #else
  507.       case '\\':
  508. + #endif
  509.           c = DgetC(0);    /* No $ subst! */
  510.           if (c == '\n' || c == DEOF) {
  511.           done = 0;
  512. ***************
  513. *** 748,755 ****
  514.       register Char *lbp, *obp, *mbp;
  515.       Char  **vp;
  516.       bool    quoted;
  517.       char   *tmp;
  518. - 
  519.       if (creat(tmp = short2str(shtemp), 0600) < 0)
  520.       stderror(ERR_SYSTEM, tmp, strerror(errno));
  521.       (void) close(0);
  522. --- 753,769 ----
  523.       register Char *lbp, *obp, *mbp;
  524.       Char  **vp;
  525.       bool    quoted;
  526. + #ifdef __MINT__
  527. +     int tf;
  528. +     extern int csh_tmpfile();    /* in sh.c */
  529. + 
  530. +     tf = csh_tmpfile();
  531. +     if (tf < 0)
  532. +         stderror(ERR_SYSTEM, "tmpfile", strerror(errno));
  533. +     (void)dup2(tf, 0);
  534. +     (void)close(tf);
  535. + #else
  536.       char   *tmp;
  537.       if (creat(tmp = short2str(shtemp), 0600) < 0)
  538.       stderror(ERR_SYSTEM, tmp, strerror(errno));
  539.       (void) close(0);
  540. ***************
  541. *** 760,766 ****
  542. --- 774,783 ----
  543.       errno = oerrno;
  544.       stderror(ERR_SYSTEM, tmp, strerror(errno));
  545.       }
  546. + 
  547.       (void) unlink(tmp);        /* 0 0 inode! */
  548. + #endif /* __MINT__ */
  549. + 
  550.       Dv[0] = term;
  551.       Dv[1] = NOSTR;
  552.       gflag = 0;
  553. ***************
  554. *** 830,839 ****
  555.           if ((c &= TRIM) == 0)
  556.           continue;
  557.           /* \ quotes \ $ ` here */
  558. !         if (c == '\\') {
  559.           c = DgetC(0);
  560.           if (!any("$\\`", c))
  561. !             unDgetC(c | QUOTE), c = '\\';
  562.           else
  563.               c |= QUOTE;
  564.           }
  565. --- 847,860 ----
  566.           if ((c &= TRIM) == 0)
  567.           continue;
  568.           /* \ quotes \ $ ` here */
  569. !         if (c == escchar) {
  570.           c = DgetC(0);
  571. + #ifdef ALTESC
  572. +         if (c != '$' && c != escchar && c != '`')
  573. + #else
  574.           if (!any("$\\`", c))
  575. ! #endif
  576. !             unDgetC(c | QUOTE), c = escchar;
  577.           else
  578.               c |= QUOTE;
  579.           }
  580. ***************
  581. *** 887,889 ****
  582. --- 908,911 ----
  583.           blkfree(pargv), pargv = 0;
  584.       }
  585.   }
  586. + 
  587. *** ./orig/sh.exec.c    Fri Oct 25 22:31:58 1991
  588. --- ./sh.exec.c    Sun Nov 10 13:07:34 1991
  589. ***************
  590. *** 41,50 ****
  591. --- 41,64 ----
  592.   #include "tc.h"
  593.   #include "tw.h"
  594.   
  595. + #ifdef __MINT__
  596. + /* MiNT/TOS programs are typically given one of the following extensions;
  597. +  * during an exec we should try all of them
  598. +  */
  599. + #define TOS_EXT 6
  600. + char *tos_extension[] = { "", ".ttp", ".prg", ".tos", ".gtp", ".csh" };
  601. + #endif
  602. + 
  603.   /*
  604.    * C shell
  605.    */
  606.   
  607. + #ifdef __MINT__
  608. + extern char **environ;
  609. + int csh_execve(char *, char **, char **);
  610. + #define execv(f, t) csh_execve(f, t, environ)
  611. + #endif
  612. + 
  613.   /*
  614.    * System level search and execute of a command.
  615.    * We look in each directory for the specified command name.
  616. ***************
  617. *** 480,485 ****
  618. --- 494,511 ----
  619.           (dp->d_name[1] == '\0' ||
  620.            dp->d_name[1] == '.' && dp->d_name[2] == '\0'))
  621.           continue;
  622. + #ifdef __MINT__
  623. +         {    char *s = rindex(dp->d_name, '.');
  624. +             int i;
  625. + 
  626. +         if (s)
  627. +             for (i = 0; i < TOS_EXT; i++) {
  628. +             if (!strcmp(s, tos_extension[i])) {
  629. +                 *s = 0; break;
  630. +             }
  631. +             }
  632. +         }
  633. + #endif /* __MINT__ */
  634.           hashval = hash(hashname(str2short(dp->d_name)), i);
  635.           bis(xhash, hashval);
  636.           /* tw_add_comm_name (dp->d_name); */
  637. ***************
  638. *** 586,591 ****
  639. --- 612,653 ----
  640.    * if dir_ok is set and the pathname refers to a directory.
  641.    * This is a bit kludgy, but in the name of optimization...
  642.    */
  643. + #ifdef __MINT__
  644. + int
  645. + executable(dir, name, dir_ok)
  646. +     Char   *dir, *name;
  647. +     bool    dir_ok;
  648. + {
  649. +     char *ext;
  650. +     int i;
  651. +     struct stat stbuf;
  652. +     Char    path[MAXPATHLEN + 1];
  653. +     char   *strname;
  654. + 
  655. +     if (dir && *dir) {
  656. +     copyn(path, dir, MAXPATHLEN);
  657. +     catn(path, name, MAXPATHLEN);
  658. +     strname = short2str(path);
  659. +     }
  660. +     else
  661. +     strname = short2str(name);
  662. + 
  663. +     ext = name = alloca(strlen(strname) + 5);
  664. +     while (*strname)
  665. +     *ext++ = *strname++;
  666. + 
  667. +     for (i = 0; i < TOS_EXT; i++) {
  668. +     strcpy(ext, tos_extension[i]);
  669. +     if (stat(name, &stbuf) != -1 &&
  670. +         ((dir_ok && S_ISDIR(stbuf.st_mode)) ||
  671. +              (S_ISREG(stbuf.st_mode) &&
  672. +               ((stbuf.st_mode & (S_IXOTH|S_IXGRP|S_IXUSR)) || i == TOS_EXT-1))))
  673. +         return 1;
  674. +     }
  675. +     return 0;
  676. + }
  677. + 
  678. + #else /* __MINT__ */
  679.   int
  680.   executable(dir, name, dir_ok)
  681.       Char   *dir, *name;
  682. ***************
  683. *** 609,614 ****
  684. --- 671,677 ----
  685.             access(strname, X_OK) == 0) ||
  686.            (dir_ok && S_ISDIR(stbuf.st_mode))));
  687.   }
  688. + #endif /* __MINT__ */
  689.   
  690.   void
  691.   tellmewhat(lex)
  692. ***************
  693. *** 699,701 ****
  694. --- 762,792 ----
  695.       }
  696.       sp->word = s0;        /* we save and then restore this */
  697.   }
  698. + 
  699. + #ifdef __MINT__
  700. + 
  701. + #include <process.h>
  702. + 
  703. + int
  704. + csh_execve(path, argv, envp)
  705. +     char *path;
  706. +     char **argv, **envp;
  707. + {
  708. +     int i;
  709. +     char *newpath, *s;
  710. + 
  711. +     newpath = s = alloca(strlen(path) + 5);
  712. +     while (*path) {
  713. +         *s++ = *path++;
  714. +     }
  715. +     *s = 0;
  716. + 
  717. +     for (i = 0; i < TOS_EXT; i++) {
  718. +         strcpy(s, tos_extension[i]);
  719. +         if (access(newpath, 0) == 0) {
  720. +             return _spawnve(P_OVERLAY, newpath, argv, envp);
  721. +         }
  722. +     }
  723. +     return -1;
  724. + }
  725. + #endif /* __MINT__ */
  726. *** ./orig/sh.func.c    Fri Oct 25 22:32:12 1991
  727. --- ./sh.func.c    Mon Nov 11 18:06:16 1991
  728. ***************
  729. *** 272,278 ****
  730. --- 272,289 ----
  731.       islogin();
  732.       rechist();
  733.       (void) signal(SIGTERM, parterm);
  734. + #ifdef __MINT__
  735. +     {
  736. +         extern int csh_execve();        /* in sh.exec.c */
  737. +         extern char **environ;
  738. +     char *args[3];
  739. +     
  740. +     args[0] = "login"; args[1] = short2str(v[1]); args[2] = NULL;
  741. +     (void)csh_execve(_PATH_LOGIN, args, environ);
  742. +     }
  743. + #else
  744.       (void) execl(_PATH_LOGIN, "login", short2str(v[1]), NULL);
  745. + #endif
  746.       untty();
  747.       xexit(1);
  748.   }
  749. ***************
  750. *** 818,824 ****
  751. --- 829,839 ----
  752.       found = 1;
  753.       do {
  754.           c = readc(1);
  755. + #ifdef ALTESC
  756. +         if (c == escchar && (c = readc(1)) == '\n')
  757. + #else
  758.           if (c == '\\' && (c = readc(1)) == '\n')
  759. + #endif
  760.           c = ' ';
  761.           if (c == '\'' || c == '"')
  762.           if (d == 0)
  763. *** ./orig/sh.glob.c    Fri Oct 25 22:32:16 1991
  764. --- ./sh.glob.c    Mon Nov 11 23:52:12 1991
  765. ***************
  766. *** 95,101 ****
  767. --- 95,106 ----
  768.       gstart = gbuf;
  769.       *gstart++ = *s++;
  770.       u = s;
  771. + #ifdef __MINT__
  772. +     for (b = gstart, e = &gbuf[MAXPATHLEN-1]; *s && *s != '/' && *s != '\\' &&
  773. +         b < e;
  774. + #else
  775.       for (b = gstart, e = &gbuf[MAXPATHLEN - 1]; *s && *s != '/' && b < e;
  776. + #endif
  777.        *b++ = *s++);
  778.       *b = EOS;
  779.       if (gethdir(gstart)) {
  780. ***************
  781. *** 132,138 ****
  782. --- 137,148 ----
  783.        * kfk - 17 Jan 1984 - stack hack allows user to get at arbitrary dir names
  784.        * in stack. PWP: let =foobar pass through (for X windows)
  785.        */
  786. + #ifdef __MINT__
  787. +     if ((Isdigit(s[1]) || s[1] == '-') && (s[2] == '\0' || s[2] == '/' ||
  788. +                          s[2] == '\\')) {
  789. + #else
  790.       if ((Isdigit(s[1]) || s[1] == '-') && (s[2] == '\0' || s[2] == '/')) {
  791. + #endif
  792.       dig = (s[1] == '-') ? -1 : s[1] - '0';
  793.       if (!getstakd(gp, dig)) {
  794.           blkfree(nv);
  795. ***************
  796. *** 613,619 ****
  797. --- 623,633 ----
  798.       }
  799.       lp++;
  800.       for (rp = lp; *rp && *rp != '`'; rp++)
  801. + #ifdef ALTESC
  802. +         if (*rp == escchar) {
  803. + #else
  804.           if (*rp == '\\') {
  805. + #endif
  806.           rp++;
  807.           if (!*rp)
  808.               goto oops;
  809. ***************
  810. *** 742,748 ****
  811. --- 756,766 ----
  812.           hadnl = 1;
  813.           continue;
  814.           }
  815. + #ifndef __MINT__
  816.           if (!quoted && (c == ' ' || c == '\t'))
  817. + #else
  818. +         if (!quoted && (c == ' ' || c == '\t' || c == '\r'))
  819. + #endif
  820.           break;
  821.           cnt++;
  822.           psave(c | quoted);
  823. *** ./orig/sh.h    Fri Oct 25 22:32:58 1991
  824. --- ./sh.h    Sat Nov 16 18:55:06 1991
  825. ***************
  826. *** 106,112 ****
  827.   #ifdef _SEQUENT_
  828.   # include <sys/procstats.h>
  829.   #endif /* _SEQUENT_ */
  830. ! #if defined(POSIX) || SVID > 0
  831.   # include <sys/times.h>
  832.   #endif /* POSIX || SVID > 0 */
  833.   
  834. --- 106,112 ----
  835.   #ifdef _SEQUENT_
  836.   # include <sys/procstats.h>
  837.   #endif /* _SEQUENT_ */
  838. ! #if defined(POSIX) || SVID > 0 || defined(__MINT__)
  839.   # include <sys/times.h>
  840.   #endif /* POSIX || SVID > 0 */
  841.   
  842. ***************
  843. *** 142,148 ****
  844.   # include <termios.h>
  845.   #endif /* POSIX */
  846.   
  847. ! #ifdef POSIX
  848.   /*
  849.    * We should be using setpgid and setpgid
  850.    * by now, but in some systems we use the
  851. --- 142,148 ----
  852.   # include <termios.h>
  853.   #endif /* POSIX */
  854.   
  855. ! #if defined(POSIX) || defined(__MINT__)
  856.   /*
  857.    * We should be using setpgid and setpgid
  858.    * by now, but in some systems we use the
  859. ***************
  860. *** 245,250 ****
  861. --- 245,255 ----
  862.   #endif 
  863.   
  864.   
  865. + #ifdef __MINT__
  866. + #define is_dirsep(c) ((c) == '/' || (c) == '\\')
  867. + #define is_abspath(p) (is_dirsep(*p) || (p[1] == ':'))
  868. + #endif
  869. + 
  870.   typedef int bool;
  871.   
  872.   #include "sh.types.h"
  873. ***************
  874. *** 433,438 ****
  875. --- 438,449 ----
  876.   
  877.   sigret_t (*parintr) ();        /* Parents interrupt catch */
  878.   sigret_t (*parterm) ();        /* Parents terminate catch */
  879. + 
  880. + #ifdef ALTESC
  881. + Char escchar;    /* character that should be used instead of \ for quoting */
  882. + #else
  883. + #define escchar '\\'
  884. + #endif
  885.   
  886.   /*
  887.    * Lexical definitions.
  888. *** ./orig/sh.lex.c    Fri Oct 25 22:32:28 1991
  889. --- ./sh.lex.c    Sun Nov 17 14:27:08 1991
  890. ***************
  891. *** 114,120 ****
  892. --- 114,128 ----
  893.    */
  894.   static bool hadhist = 0;
  895.   
  896. + #ifdef ALTESC
  897.   /*
  898. +  * this is the actual escape character (normally hardwired to '\\'),
  899. +  * which we allow changing via "set histchar=^", for example.
  900. +  */
  901. + Char escchar = '\\';
  902. + #endif
  903. + 
  904. + /*
  905.    * Avoid alias expansion recursion via \!#
  906.    */
  907.   int     hleft;
  908. ***************
  909. *** 148,154 ****
  910. --- 156,166 ----
  911.       alvecp = 0, hadhist = 0;
  912.       do
  913.       c = readc(0);
  914. + #ifdef __MINT__
  915. +     while (c == ' ' || c == '\t' || c == '\r');
  916. + #else
  917.       while (c == ' ' || c == '\t');
  918. + #endif
  919.       if (c == HISTSUB && intty)
  920.       /* ^lef^rit    from tty is short !:s^lef^rit */
  921.       getexcl(c);
  922. ***************
  923. *** 249,255 ****
  924. --- 261,271 ----
  925.       wp = wbuf;
  926.       i = BUFSIZ - 4;
  927.   loop:
  928. + #ifdef __MINT__
  929. +     while ((c = getC(DOALL)) == ' ' || c == '\t' || c == '\r');
  930. + #else
  931.       while ((c = getC(DOALL)) == ' ' || c == '\t');
  932. + #endif
  933.       if (cmap(c, _META | _ESC))
  934.       switch (c) {
  935.       case '&':
  936. ***************
  937. *** 272,278 ****
  938.           c1 = c;
  939.           c = getC(0);
  940.           } while (c != '\n');
  941. !         if (c1 == '\\')
  942.           goto loop;
  943.           /* fall into ... */
  944.   
  945. --- 288,294 ----
  946.           c1 = c;
  947.           c = getC(0);
  948.           } while (c != '\n');
  949. !         if (c1 == escchar)
  950.           goto loop;
  951.           /* fall into ... */
  952.   
  953. ***************
  954. *** 283,289 ****
  955. --- 299,310 ----
  956.           *wp++ = c;
  957.           goto ret;
  958.   
  959. + #ifdef ALTESC
  960. +     default:
  961. +         if (c != escchar) break;
  962. + #else
  963.       case '\\':
  964. + #endif
  965.           c = getC(0);
  966.           if (c == '\n') {
  967.           if (onelflg == 1)
  968. ***************
  969. *** 291,297 ****
  970.           goto loop;
  971.           }
  972.           if (c != HIST)
  973. !         *wp++ = '\\', --i;
  974.           c |= QUOTE;
  975.       }
  976.       c1 = 0;
  977. --- 312,318 ----
  978.           goto loop;
  979.           }
  980.           if (c != HIST)
  981. !         *wp++ = escchar, --i;
  982.           c |= QUOTE;
  983.       }
  984.       c1 = 0;
  985. ***************
  986. *** 302,308 ****
  987.           c1 = 0;
  988.           dolflg = DOALL;
  989.           }
  990. !         else if (c == '\\') {
  991.           c = getC(0);
  992.   /*
  993.    * PWP: this is dumb, but how all of the other shells work.  If \ quotes
  994. --- 323,329 ----
  995.           c1 = 0;
  996.           dolflg = DOALL;
  997.           }
  998. !         else if (c == escchar) {
  999.           c = getC(0);
  1000.   /*
  1001.    * PWP: this is dumb, but how all of the other shells work.  If \ quotes
  1002. ***************
  1003. *** 316,322 ****
  1004.           else {
  1005.               if (bslash_quote &&
  1006.               ((c == '\'') || (c == '"') ||
  1007. !              (c == '\\'))) {
  1008.               c |= QUOTE;
  1009.               }
  1010.               else {
  1011. --- 337,343 ----
  1012.           else {
  1013.               if (bslash_quote &&
  1014.               ((c == '\'') || (c == '"') ||
  1015. !              (c == escchar))) {
  1016.               c |= QUOTE;
  1017.               }
  1018.               else {
  1019. ***************
  1020. *** 326,332 ****
  1021.                    */
  1022.                   c |= QUOTE;
  1023.               ungetC(c);
  1024. !             c = '\\';
  1025.               }
  1026.           }
  1027.           }
  1028. --- 347,353 ----
  1029.                    */
  1030.                   c |= QUOTE;
  1031.               ungetC(c);
  1032. !             c = escchar;
  1033.               }
  1034.           }
  1035.           }
  1036. ***************
  1037. *** 337,343 ****
  1038.           }
  1039.       }
  1040.       else if (cmap(c, _META | _Q | _Q1 | _ESC)) {
  1041. !         if (c == '\\') {
  1042.           c = getC(0);
  1043.           if (c == '\n') {
  1044.               if (onelflg == 1)
  1045. --- 358,364 ----
  1046.           }
  1047.       }
  1048.       else if (cmap(c, _META | _Q | _Q1 | _ESC)) {
  1049. !         if (c == escchar) {
  1050.           c = getC(0);
  1051.           if (c == '\n') {
  1052.               if (onelflg == 1)
  1053. ***************
  1054. *** 345,351 ****
  1055.               break;
  1056.           }
  1057.           if (c != HIST)
  1058. !             *wp++ = '\\', --i;
  1059.           c |= QUOTE;
  1060.           }
  1061.           else if (cmap(c, _Q | _Q1)) {    /* '"` */
  1062. --- 366,372 ----
  1063.               break;
  1064.           }
  1065.           if (c != HIST)
  1066. !             *wp++ = escchar, --i;
  1067.           c |= QUOTE;
  1068.           }
  1069.           else if (cmap(c, _Q | _Q1)) {    /* '"` */
  1070. ***************
  1071. *** 440,446 ****
  1072. --- 461,471 ----
  1073.   
  1074.       np = name, *np++ = '$';
  1075.       c = sc = getC(DOEXCL);
  1076. + #ifdef __MINT__
  1077. +     if (any("\t \n\r", c)) {
  1078. + #else
  1079.       if (any("\t \n", c)) {
  1080. + #endif
  1081.       ungetD(c);
  1082.       ungetC('$' | QUOTE);
  1083.       return;
  1084. ***************
  1085. *** 762,768 ****
  1086. --- 787,797 ----
  1087.   
  1088.       case 's':
  1089.           delim = getC(0);
  1090. + #ifdef __MINT__
  1091. +         if (letter(delim) || Isdigit(delim) || any(" \t\r\n", delim)) {
  1092. + #else
  1093.           if (letter(delim) || Isdigit(delim) || any(" \t\n", delim)) {
  1094. + #endif
  1095.           unreadc(delim);
  1096.           lhsb[0] = 0;
  1097.           seterror(ERR_BADSUBST);
  1098. ***************
  1099. *** 782,791 ****
  1100.               seterror(ERR_BADSUBST);
  1101.               return (en);
  1102.           }
  1103. !         if (c == '\\') {
  1104.               c = getC(0);
  1105. !             if (c != delim && c != '\\')
  1106. !             *cp++ = '\\';
  1107.           }
  1108.           *cp++ = c;
  1109.           }
  1110. --- 811,820 ----
  1111.               seterror(ERR_BADSUBST);
  1112.               return (en);
  1113.           }
  1114. !         if (c == escchar) {
  1115.               c = getC(0);
  1116. !             if (c != delim && c != escchar)
  1117. !             *cp++ = escchar;
  1118.           }
  1119.           *cp++ = c;
  1120.           }
  1121. ***************
  1122. *** 819,828 ****
  1123.               seterror(ERR_RHSLONG);
  1124.               return (en);
  1125.           }
  1126. !         if (c == '\\') {
  1127.               c = getC(0);
  1128.               if (c != delim /* && c != '~' */ )
  1129. !             *cp++ = '\\';
  1130.           }
  1131.           *cp++ = c;
  1132.           }
  1133. --- 848,857 ----
  1134.               seterror(ERR_RHSLONG);
  1135.               return (en);
  1136.           }
  1137. !         if (c == escchar) {
  1138.               c = getC(0);
  1139.               if (c != delim /* && c != '~' */ )
  1140. !             *cp++ = escchar;
  1141.           }
  1142.           *cp++ = c;
  1143.           }
  1144. ***************
  1145. *** 965,971 ****
  1146. --- 994,1004 ----
  1147.       case 'q':
  1148.       wp = Strsave(cp);
  1149.       for (xp = wp; c = *xp; xp++)
  1150. + #ifdef __MINT__
  1151. +         if ((c != ' ' && c != '\t' && c != '\r') || type == 'q')
  1152. + #else
  1153.           if ((c != ' ' && c != '\t') || type == 'q')
  1154. + #endif
  1155.           *xp |= QUOTE;
  1156.       return (wp);
  1157.   
  1158. ***************
  1159. *** 1145,1151 ****
  1160. --- 1178,1188 ----
  1161.           }
  1162.           np = lhsb;
  1163.           event = 0;
  1164. + #ifdef __MINT__
  1165. +         while (!any(": \t\\\n\r}", c)) {
  1166. + #else
  1167.           while (!any(": \t\\\n}", c)) {
  1168. + #endif
  1169.           if (event != -1 && Isdigit(c))
  1170.               event = event * 10 + c - '0';
  1171.           else
  1172. ***************
  1173. *** 1603,1608 ****
  1174. --- 1640,1649 ----
  1175.       wfree();
  1176.       bfree();
  1177.   }
  1178. + 
  1179. + #ifdef __MINT__
  1180. + #define ESPIPE EINVAL
  1181. + #endif
  1182.   
  1183.   void
  1184.   settell()
  1185. *** ./orig/sh.misc.c    Fri Oct 25 22:32:28 1991
  1186. --- ./sh.misc.c    Sat Nov 16 19:02:46 1991
  1187. ***************
  1188. *** 39,44 ****
  1189. --- 39,48 ----
  1190.   
  1191.   #include "sh.h"
  1192.   
  1193. + #ifdef __MINT__
  1194. + extern int __mint;    /* kernel version */
  1195. + #endif
  1196. + 
  1197.   static    int    renum    __P((int, int));
  1198.   
  1199.   /*
  1200. ***************
  1201. *** 263,268 ****
  1202. --- 267,277 ----
  1203.   {
  1204.       register int f;
  1205.   
  1206. + #ifdef __MINT__
  1207. + /* in TOS, all handles are shared by all processes! (ack!) */
  1208. +     if (__mint == 0)
  1209. +     return;
  1210. + #endif
  1211.       if (didcch)
  1212.       return;
  1213.       didcch = 1;
  1214. ***************
  1215. *** 301,306 ****
  1216. --- 310,318 ----
  1217.       if (i == j || i < 0)
  1218.       return (i);
  1219.   #ifdef HAVEDUP2
  1220. + # ifdef __MINT__
  1221. +     if (__mint != 0)    /* TOS screws up dup2 */
  1222. + # endif
  1223.       if (j >= 0) {
  1224.       (void) dup2(i, j);
  1225.       if (j != i)
  1226. ***************
  1227. *** 321,326 ****
  1228. --- 333,343 ----
  1229.   
  1230.       if (i == j || i < 0 || j < 0 && i > 2)
  1231.       return (i);
  1232. + #ifdef __MINT__
  1233. +     if (__mint == 0 && j > 5) {
  1234. +     return (i <= 5) ? dup(i) : j;
  1235. +     }
  1236. + #endif
  1237.   #ifdef HAVEDUP2
  1238.       if (j >= 0) {
  1239.       (void) dup2(i, j);
  1240. ***************
  1241. *** 455,457 ****
  1242. --- 472,489 ----
  1243.           return (0);
  1244.       }
  1245.   }
  1246. + 
  1247. + #ifdef __MINT__
  1248. + Char *
  1249. + Lastslash(pth)
  1250. +     Char *pth;
  1251. + {
  1252. +     Char *slash = 0, c;
  1253. + 
  1254. +     while ( (c = *pth++) != 0) {
  1255. +         if (is_dirsep(c))
  1256. +             slash = pth - 1;
  1257. +     }
  1258. +     return slash;
  1259. + }
  1260. + #endif /* __MINT__ */
  1261. *** ./orig/sh.proc.c    Fri Oct 25 22:32:42 1991
  1262. --- ./sh.proc.c    Wed Nov 13 01:32:54 1991
  1263. ***************
  1264. *** 117,128 ****
  1265.                   0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L};
  1266.   
  1267.   # else /* !sun && !hp9000 */
  1268. ! #  ifdef masscomp
  1269.   /*
  1270.    * Initialization of this structure under RTU 4.1A & RTU 5.0 is problematic
  1271.    * because the first two elements are unions of a time_t and a struct timeval.
  1272.    * So we'll just have to trust the loader to do the "right thing", DAS DEC-90.
  1273.    */
  1274.   static struct rusage zru;
  1275.   #  else    /* masscomp */
  1276.   static struct rusage zru = {{0L, 0L}, {0L, 0L}, 0, 0, 0, 0, 0, 0, 0, 
  1277. --- 117,132 ----
  1278.                   0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L};
  1279.   
  1280.   # else /* !sun && !hp9000 */
  1281. ! #  if defined(masscomp) || defined(__MINT__)
  1282.   /*
  1283.    * Initialization of this structure under RTU 4.1A & RTU 5.0 is problematic
  1284.    * because the first two elements are unions of a time_t and a struct timeval.
  1285.    * So we'll just have to trust the loader to do the "right thing", DAS DEC-90.
  1286.    */
  1287. + 
  1288. + /* MiNT is missing a lot of fields, so we also trust the loader (we can
  1289. +  * trust it) to avoid getting errors from the compiler
  1290. +  */
  1291.   static struct rusage zru;
  1292.   #  else    /* masscomp */
  1293.   static struct rusage zru = {{0L, 0L}, {0L, 0L}, 0, 0, 0, 0, 0, 0, 0, 
  1294. ***************
  1295. *** 153,158 ****
  1296. --- 157,180 ----
  1297.   static    struct process    *pgetcurr    __P((struct process *));
  1298.   static    void         okpcntl    __P((void));
  1299.   
  1300. + #ifdef __MINT__
  1301. + /*
  1302. +  * MiNT's fork() is a lot like vfork() in some respects; in particular,
  1303. +  * if we set job control signals to SIG_DFL after fork() and then
  1304. +  * get a signal, our parent will never be able to reclaim the address
  1305. +  * space and everything will hang :-(. Solution: rather than SIG_DFL,
  1306. +  * set the signals to a null signal handler; if we exec(), they will
  1307. +  * be set to SIG_DFL automatically, and before then the signals will
  1308. +  * effectively be ignored.
  1309. +  */
  1310. + 
  1311. + void
  1312. + sig_tmp_ign(int sig)
  1313. + {
  1314. + /* do nothing, and rely on the magic of restartable system calls :-) */
  1315. + }
  1316. + #endif
  1317. + 
  1318.   /*
  1319.    * pchild - called at interrupt level by the SIGCHLD signal
  1320.    *    indicating that at least one child has terminated or stopped
  1321. ***************
  1322. *** 1740,1748 ****
  1323. --- 1762,1777 ----
  1324.   #ifdef BSDJOBS
  1325.           if (wanttty >= 0) {
  1326.           /* make stoppable */
  1327. + # ifdef __MINT__
  1328. + /* see comments for sig_tmp_ign above */
  1329. +         (void) signal(SIGTSTP, sig_tmp_ign);
  1330. +         (void) signal(SIGTTIN, sig_tmp_ign);
  1331. +         (void) signal(SIGTTOU, sig_tmp_ign);
  1332. + # else
  1333.           (void) signal(SIGTSTP, SIG_DFL);
  1334.           (void) signal(SIGTTIN, SIG_DFL);
  1335.           (void) signal(SIGTTOU, SIG_DFL);
  1336. + # endif
  1337.           }
  1338.   #endif /* BSDJOBS */
  1339.           (void) signal(SIGTERM, parterm);
  1340. *** ./orig/sh.sem.c    Fri Oct 25 22:32:44 1991
  1341. --- ./sh.sem.c    Sun Nov 17 14:32:32 1991
  1342. ***************
  1343. *** 417,425 ****
  1344. --- 417,434 ----
  1345.               }
  1346.   
  1347.               if (wanttty >= 0) {
  1348. + #ifdef __MINT__
  1349. +             /* see sh.proc.c */
  1350. +                 extern void sig_tmp_ign();
  1351. + 
  1352. +                 (void) signal(SIGTSTP, sig_tmp_ign);
  1353. +                 (void) signal(SIGTTIN, sig_tmp_ign);
  1354. +                 (void) signal(SIGTTOU, sig_tmp_ign);
  1355. + #else
  1356.                   (void) signal(SIGTSTP, SIG_DFL);
  1357.                   (void) signal(SIGTTIN, SIG_DFL);
  1358.                   (void) signal(SIGTTOU, SIG_DFL);
  1359. + #endif
  1360.               }
  1361.   
  1362.               (void) signal(SIGTERM, parterm);
  1363. ***************
  1364. *** 524,531 ****
  1365. --- 533,542 ----
  1366.       execute(t->t_dcar, wanttty, pipein, pv);
  1367.       t->t_dcdr->t_dflg |= F_PIPEIN | (t->t_dflg &
  1368.               (F_PIPEOUT | F_AMPERSAND | F_NOFORK | F_NOINTERRUPT));
  1369. + #ifndef __MINT__
  1370.       if (wanttty > 0)
  1371.           wanttty = 0;    /* got tty already */
  1372. + #endif
  1373.       execute(t->t_dcdr, wanttty, pv, pipeout);
  1374.       break;
  1375.   
  1376. ***************
  1377. *** 633,650 ****
  1378. --- 644,675 ----
  1379.           (void) dmove(fd, 0);
  1380.       }
  1381.       else if (flags & F_PIPEIN) {
  1382. + #ifdef __MINT__
  1383. +         (void) dup2(pipein[0], 0);
  1384. + #else
  1385.           (void) close(0);
  1386.           (void) dup(pipein[0]);
  1387. + #endif
  1388.           (void) close(pipein[0]);
  1389.           (void) close(pipein[1]);
  1390.       }
  1391.       else if ((flags & F_NOINTERRUPT) && tpgrp == -1) {
  1392. + #ifdef __MINT__
  1393. +         int fd = open(_PATH_DEVNULL, O_RDONLY);
  1394. +         (void)dup2(fd, 0);
  1395. +         (void)close(fd);
  1396. + #else
  1397.           (void) close(0);
  1398.           (void) open(_PATH_DEVNULL, O_RDONLY);
  1399. + #endif
  1400.       }
  1401.       else {
  1402. + #ifdef __MINT__
  1403. +         (void) dup2(OLDSTD, 0);
  1404. + #else
  1405.           (void) close(0);
  1406.           (void) dup(OLDSTD);
  1407. + #endif
  1408.   #ifdef FIOCLEX
  1409.   # ifdef CLEX_DUPS
  1410.           /*
  1411. ***************
  1412. *** 691,703 ****
  1413. --- 716,736 ----
  1414.       is1atty = isatty(1);
  1415.       }
  1416.       else if (flags & F_PIPEOUT) {
  1417. + #ifdef __MINT__
  1418. +     (void) dup2(pipeout[1], 1);
  1419. + #else
  1420.       (void) close(1);
  1421.       (void) dup(pipeout[1]);
  1422. + #endif
  1423.       is1atty = 0;
  1424.       }
  1425.       else {
  1426. + #ifdef __MINT__
  1427. +     (void) dup2(SHOUT, 1);
  1428. + #else
  1429.       (void) close(1);
  1430.       (void) dup(SHOUT);
  1431. + #endif
  1432.       is1atty = isoutatty;
  1433.   #ifdef FIOCLEX
  1434.   # ifdef CLEX_DUPS
  1435. ***************
  1436. *** 708,718 ****
  1437. --- 741,759 ----
  1438.   
  1439.       (void) close(2);
  1440.       if (flags & F_STDERR) {
  1441. + #ifdef __MINT__
  1442. +     (void) dup2(1, 2);
  1443. + #else
  1444.       (void) dup(1);
  1445. + #endif
  1446.       is2atty = is1atty;
  1447.       }
  1448.       else {
  1449. + #ifdef __MINT__
  1450. +     (void) dup2(SHDIAG, 2);
  1451. + #else
  1452.       (void) dup(SHDIAG);
  1453. + #endif
  1454.       is2atty = isdiagatty;
  1455.   #ifdef FIOCLEX
  1456.   # ifdef CLEX_DUPS
  1457. *** ./orig/sh.set.c    Fri Oct 25 22:32:48 1991
  1458. --- ./sh.set.c    Sun Nov 17 16:00:50 1991
  1459. ***************
  1460. *** 196,201 ****
  1461. --- 196,216 ----
  1462.       else if (eq(vp, STRwatch)) {
  1463.           resetwatch();
  1464.       }
  1465. + #ifdef ALTESC
  1466. +     else if (eq(vp, STRescchar)) {
  1467. +         register Char *cp;
  1468. + 
  1469. +         cp = value(vp);
  1470. +         _cmap[escchar] &= ~_ESC;
  1471. +         escchar = (cp && *cp) ? *cp : '\001';
  1472. +         _cmap[escchar] |= _ESC;
  1473. +     }
  1474. + #endif
  1475. + #ifdef __MINT__
  1476. +     else if (eq(vp, STRdosslashes)) {
  1477. +         STRslash[0] = '\\';
  1478. +     }
  1479. + #endif
  1480.       } while (p = *v++);
  1481.   }
  1482.   
  1483. ***************
  1484. *** 577,582 ****
  1485. --- 592,608 ----
  1486.       editing = 0;
  1487.       if (adrof(STRbackslash_quote) == 0)
  1488.       bslash_quote = 0;
  1489. + #ifdef ALTESC
  1490. +     if (adrof(STRescchar) == 0) {
  1491. +     _cmap[escchar] &= ~_ESC;
  1492. +     escchar = '\\';
  1493. +     _cmap[escchar] |= _ESC;
  1494. +     }
  1495. + #endif
  1496. + #ifdef __MINT__
  1497. +     if (adrof(STRdosslashes) == 0)
  1498. +     STRslash[0] = '/';
  1499. + #endif
  1500.       if (did_only && adrof(STRrecognize_only_executables) == 0)
  1501.       tw_clear_comm_list();
  1502.   }
  1503. *** ./orig/sh.time.c    Fri Oct 25 22:32:50 1991
  1504. --- ./sh.time.c    Mon Nov 11 02:42:08 1991
  1505. ***************
  1506. *** 168,173 ****
  1507. --- 168,174 ----
  1508.   {
  1509.       tvadd(&ru->ru_utime, &ru2->ru_utime);
  1510.       tvadd(&ru->ru_stime, &ru2->ru_stime);
  1511. + #ifndef __MINT__
  1512.       if (ru2->ru_maxrss > ru->ru_maxrss)
  1513.       ru->ru_maxrss = ru2->ru_maxrss;
  1514.   
  1515. ***************
  1516. *** 184,189 ****
  1517. --- 185,191 ----
  1518.       ru->ru_nsignals += ru2->ru_nsignals;
  1519.       ru->ru_nvcsw += ru2->ru_nvcsw;
  1520.       ru->ru_nivcsw += ru2->ru_nivcsw;
  1521. + #endif /* __MINT__ */
  1522.   }
  1523.   
  1524.   #else                /* BSDTIMES */
  1525. ***************
  1526. *** 313,319 ****
  1527. --- 315,325 ----
  1528.       int     ms =
  1529.       (e->tv_sec - b->tv_sec) * 100 + (e->tv_usec - b->tv_usec) / 10000;
  1530.   
  1531. + # ifdef __MINT__
  1532. +     cp = "%Uu %Ss %E %P";
  1533. + # else
  1534.       cp = "%Uu %Ss %E %P %X+%Dk %I+%Oio %Fpf+%Ww";
  1535. + # endif
  1536.   #else
  1537.   # ifdef _SEQUENT_
  1538.       int     ms =
  1539. ***************
  1540. *** 404,410 ****
  1541.           xprintf("%ld.%01ld%%", i / 10, i % 10);    /* nn.n% */
  1542.           break;
  1543.   
  1544. ! #ifdef BSDTIMES
  1545.           case 'W':        /* number of swaps */
  1546.           i = r1->ru_nswap - r0->ru_nswap;
  1547.           xprintf("%ld", i);
  1548. --- 410,416 ----
  1549.           xprintf("%ld.%01ld%%", i / 10, i % 10);    /* nn.n% */
  1550.           break;
  1551.   
  1552. ! #if defined(BSDTIMES) && !defined(__MINT__)
  1553.           case 'W':        /* number of swaps */
  1554.           i = r1->ru_nswap - r0->ru_nswap;
  1555.           xprintf("%ld", i);
  1556. *** ./orig/sh.types.h    Fri Oct 25 22:34:36 1991
  1557. --- ./sh.types.h    Sat Nov  9 11:08:40 1991
  1558. ***************
  1559. *** 386,392 ****
  1560.   
  1561.   #endif /* ! POSIX */
  1562.   
  1563. ! 
  1564.   
  1565.   /***
  1566.    *** This is our own junk types.
  1567. --- 386,395 ----
  1568.   
  1569.   #endif /* ! POSIX */
  1570.   
  1571. ! #ifdef __MINT__
  1572. ! # define _SIGMASK_T
  1573. ! typedef long sigmask_t;
  1574. ! #endif
  1575.   
  1576.   /***
  1577.    *** This is our own junk types.
  1578. *** ./orig/tc.alloc.c    Fri Oct 25 22:34:02 1991
  1579. --- ./tc.alloc.c    Wed Nov 20 23:00:24 1991
  1580. ***************
  1581. *** 48,53 ****
  1582. --- 48,57 ----
  1583.   
  1584.   #include "sh.h"
  1585.   
  1586. + #ifdef __MINT__
  1587. + long _stksize = -128*1024L;
  1588. + #endif /* __MINT__ */
  1589. + 
  1590.   char   *memtop = NULL;        /* PWP: top of current memory */
  1591.   char   *membot = NULL;        /* PWP: bottom of allocatable memory */
  1592.   
  1593. ***************
  1594. *** 239,248 ****
  1595. --- 243,255 ----
  1596.       memtop = (char *) op;
  1597.       if (membot == NULL)
  1598.       membot = memtop;
  1599. + 
  1600. + #ifndef __MINT__
  1601.       if ((int) op & 0x3ff) {
  1602.       memtop = (char *) sbrk(1024 - ((int) op & 0x3ff));
  1603.       memtop += 1024 - ((int) op & 0x3ff);
  1604.       }
  1605. + #endif
  1606.   
  1607.       /* take 2k unless the block is bigger than that */
  1608.       rnu = (bucket <= 8) ? 11 : bucket + 3;
  1609. ***************
  1610. *** 288,294 ****
  1611.       return;
  1612.       CHECK(!memtop || !membot, "free(%lx) called before any allocations.", cp);
  1613.       CHECK(cp > (ptr_t) memtop, "free(%lx) above top of memory.", cp);
  1614. !     CHECK(cp < (ptr_t) membot, "free(%lx) above top of memory.", cp);
  1615.       op = (union overhead *) (((caddr_t) cp) - MEMALIGN(sizeof(union overhead)));
  1616.       CHECK(op->ov_magic != MAGIC, "free(%lx) bad block.", cp);
  1617.   
  1618. --- 295,301 ----
  1619.       return;
  1620.       CHECK(!memtop || !membot, "free(%lx) called before any allocations.", cp);
  1621.       CHECK(cp > (ptr_t) memtop, "free(%lx) above top of memory.", cp);
  1622. !     CHECK(cp < (ptr_t) membot, "free(%lx) below bottom of memory.", cp);
  1623.       op = (union overhead *) (((caddr_t) cp) - MEMALIGN(sizeof(union overhead)));
  1624.       CHECK(op->ov_magic != MAGIC, "free(%lx) bad block.", cp);
  1625.   
  1626. *** ./orig/tc.const.c    Fri Oct 25 22:34:08 1991
  1627. --- ./tc.const.c    Sun Nov 17 15:56:40 1991
  1628. ***************
  1629. *** 76,96 ****
  1630. --- 76,122 ----
  1631.   Char STRhistfile[]     = { 'h', 'i', 's', 't', 'f', 'i', 'l', 'e', '\0' };
  1632.   Char STRsource[]        = { 's', 'o', 'u', 'r', 'c', 'e', '\0' };
  1633.   Char STRmh[]            = { '-', 'h', '\0' };
  1634. + 
  1635. + #ifndef __MINT__
  1636.   Char STRtildothist[]    = { '~', '/', '.', 'h', 'i', 's', 't', 'o', 'r', 
  1637.                       'y', '\0' };
  1638. + #else
  1639. + Char STRtildothist[]    = { '~', '/', 'h', 'i', 's', 't', 'o', 'r', 'y',
  1640. +                     '.', 'c', 's', 'h', '\0' };
  1641. + #endif
  1642.   
  1643.   #ifdef CSHDIRS
  1644. + # ifndef __MINT__
  1645.   Char STRdirfile[]     = { '~', '/', '.', 'c', 's', 'h', 'd', 'i', 'r',
  1646.                             's', '\0' };
  1647.   Char STRsldtdirs[]    = { '/', '.', 'c', 's', 'h', 'd', 'i', 'r', 's', '\0' };
  1648. + # else
  1649. + Char STRdirfile[]     = { '~', '/', 'c', 's', 'h', 'd', 'i', 'r', 's',
  1650. +                           '.', 'c', 's', 'h', '\0' };
  1651. + Char STRsldtdirs[]    = { '/', 'c', 's', 'h', 'd', 'i', 'r', 's', '.',
  1652. +               'c', 's', 'h', '\0' };
  1653. + # endif
  1654.   Char STRsavedirs[]    = { 's', 'a', 'v', 'e', 'd', 'i', 'r', 's', '\0' };
  1655.   #endif
  1656.   
  1657.   Char STRargv[]          = { 'a', 'r', 'g', 'v', '\0' };
  1658.   Char STRsavehist[]      = { 's', 'a', 'v', 'e', 'h', 'i', 's', 't', '\0' };
  1659. + 
  1660. + #ifndef __MINT__
  1661.   Char STRsldthist[]      = { '/', '.', 'h', 'i', 's', 't', 'o', 'r', 'y', '\0' };
  1662. + #else
  1663. + Char STRsldthist[]      = { '/', 'h', 'i', 's', 't', 'o', 'r', 'y', '.',
  1664. +                 'c', 's', 'h', '\0' };
  1665. + #endif
  1666. + 
  1667.   Char STRnormal[]        = { 'n', 'o', 'r', 'm', 'a', 'l', '\0' };
  1668. + 
  1669. + #ifndef __MINT__
  1670.   Char STRsldtlogout[]    = { '/', '.', 'l', 'o', 'g', 'o', 'u', 't', '\0' };
  1671. + #else
  1672. + Char STRsldtlogout[]    = { '/', 'l', 'o', 'g', 'o', 'u', 't', '.', 'c', 's',
  1673. +                 'h', '\0' };
  1674. + #endif
  1675.   Char STRjobs[]          = { 'j', 'o', 'b', 's', '\0' };
  1676.   Char STRsymhash[]       = { '#', ' ', '\0' };
  1677.   Char STRsymarrow[]      = { '>', ' ', '\0' };
  1678. ***************
  1679. *** 183,191 ****
  1680. --- 209,224 ----
  1681.   Char STRmail[]        = { 'm', 'a', 'i', 'l', '\0' };
  1682.   Char STRwatch[]        = { 'w', 'a', 't', 'c', 'h', '\0' };
  1683.   
  1684. + #ifndef __MINT__
  1685.   Char STRsldottcshrc[]    = { '/', '.', 't', 'c', 's', 'h', 'r', 'c', '\0' };
  1686.   Char STRsldotcshrc[]    = { '/', '.', 'c', 's', 'h', 'r', 'c', '\0' };
  1687.   Char STRsldotlogin[]    = { '/', '.', 'l', 'o', 'g', 'i', 'n', '\0' };
  1688. + #else
  1689. + Char STRsldottcshrc[]    = { '/', 't', 'c', 's', 'h', '.', 'r', 'c', '\0' };
  1690. + Char STRsldotcshrc[]    = { '/', 'c', 's', 'h', '.', 'r', 'c', '\0' };
  1691. + Char STRsldotlogin[]    = { '/', 'l', 'o', 'g', 'i', 'n', '.', 'c', 's',
  1692. +                 'h','\0' };
  1693. + #endif
  1694.   Char STRignoreeof[]    = { 'i', 'g', 'n', 'o', 'r', 'e', 'e', 'o', 'f', '\0' };
  1695.   Char STRnoclobber[]    = { 'n', 'o', 'c', 'l', 'o', 'b', 'b', 'e', 'r', '\0' };
  1696.   Char STRhelpcommand[]    = { 'h', 'e', 'l', 'p', 'c', 'o', 'm', 'm', 'a', 'n', 
  1697. ***************
  1698. *** 254,256 ****
  1699. --- 287,298 ----
  1700.   Char STRsys53[] = { 's', 'y', 's', '5', '.', '3', '\0' };
  1701.   Char STRver[] = { 'v', 'e', 'r', '\0' };
  1702.   #endif /* apollo */
  1703. + 
  1704. + #ifdef ALTESC
  1705. + Char STRescchar[] = { 'e', 's', 'c', 'c', 'h', 'a', 'r', '\0' };
  1706. + #endif
  1707. + 
  1708. + #ifdef __MINT__
  1709. + Char STRdosslashes[] = { 'd', 'o', 's', 's', 'l', 'a', 's', 'h', 'e', 's',
  1710. +             '\0' };
  1711. + #endif
  1712. *** ./orig/tc.os.c    Fri Oct 25 22:34:20 1991
  1713. --- ./tc.os.c    Sat Nov  9 21:59:52 1991
  1714. ***************
  1715. *** 687,693 ****
  1716. --- 687,695 ----
  1717.   {
  1718.       extern ptr_t membot;
  1719.   
  1720. + #ifndef __MINT__
  1721.       membot = (char *) sbrk(0);
  1722. + #endif
  1723.   
  1724.   #ifdef OREO
  1725.       set42sig();
  1726. *** ./orig/tc.os.h    Fri Oct 25 22:34:24 1991
  1727. --- ./tc.os.h    Sun Nov 10 17:38:20 1991
  1728. ***************
  1729. *** 318,323 ****
  1730. --- 318,324 ----
  1731.   extern int atoi();
  1732.   extern char *ttyname();
  1733.   
  1734. + #ifndef __MINT__
  1735.   # ifndef hpux
  1736.   extern int abort();
  1737.   extern int qsort();
  1738. ***************
  1739. *** 325,330 ****
  1740. --- 326,332 ----
  1741.   extern void abort();
  1742.   extern void qsort();
  1743.   # endif
  1744. + #endif /* __MINT__ */
  1745.   extern void perror();
  1746.   
  1747.   #ifndef NEEDgethostname
  1748. *** ./orig/tc.sig.c    Fri Oct 25 22:34:32 1991
  1749. --- ./tc.sig.c    Sat Nov  9 10:53:10 1991
  1750. ***************
  1751. *** 403,405 ****
  1752. --- 403,425 ----
  1753.       Synch_Cnt++;
  1754.   }
  1755.   #endif /* SIGSYNCH */
  1756. + 
  1757. + #ifdef __MINT__
  1758. + /* MiNT has most BSD signal things, but not sigvec; punt */
  1759. + void
  1760. + mysigvec(sig, new, old)
  1761. +     int sig;
  1762. +     sigvec_t *new, *old;
  1763. + {
  1764. +     void (*oldhandler)();
  1765. + 
  1766. +     if (new) {
  1767. +         oldhandler = signal(sig, new->sv_handler);
  1768. +     } else {
  1769. +         oldhandler = signal(sig, SIG_IGN);
  1770. +         signal(sig, oldhandler);
  1771. +     }
  1772. +     if (old)
  1773. +         old->sv_handler = oldhandler;
  1774. + }
  1775. + #endif /* __MINT__ */
  1776. *** ./orig/tc.sig.h    Fri Oct 25 22:34:32 1991
  1777. --- ./tc.sig.h    Sat Nov  9 11:20:02 1991
  1778. ***************
  1779. *** 62,67 ****
  1780. --- 62,75 ----
  1781.   #  define sv_handler sa_handler
  1782.   # endif    /* _SEQUENT */
  1783.   
  1784. + # ifdef __MINT__
  1785. + #  define HAVE_SIGVEC
  1786. + typedef struct sigvec {
  1787. +     sigret_t (*sv_handler)();
  1788. + } sigvec_t;
  1789. + extern void mysigvec(int, sigvec_t *, sigvec_t *);
  1790. + #endif /* __MINT__ */
  1791. + 
  1792.   # ifdef hpux
  1793.   #  define HAVE_SIGVEC
  1794.   #  define mysigvec(a, b, c)    sigvector(a, b, c)
  1795. ***************
  1796. *** 101,110 ****
  1797. --- 109,120 ----
  1798.   /*
  1799.    * For 4.2bsd signals.
  1800.    */
  1801. + #ifndef __MINT__
  1802.   # ifdef sigmask
  1803.   #  undef sigmask
  1804.   # endif                /* sigmask */
  1805.   # define    sigmask(s)    (1 << ((s)-1))
  1806. + #endif /* __MINT__ */
  1807.   # ifdef _SEQUENT_
  1808.   #  define     sigpause(a)    bsd_sigpause(a)
  1809.   #  define     signal(a, b)    sigset(a, b)
  1810. *** ./orig/tc.vers.c    Fri Oct 25 22:34:38 1991
  1811. --- ./tc.vers.c    Sun Nov 10 02:19:00 1991
  1812. ***************
  1813. *** 348,353 ****
  1814. --- 348,357 ----
  1815.       hosttype = str2short("amdahl");
  1816.   #endif /* uts */
  1817.     
  1818. + # ifdef atarist
  1819. + #  define _havehosttype_
  1820. +     hosttype = str2short("atarist");
  1821. + # endif
  1822.   
  1823.   # ifndef _havehosttype_
  1824.   #  define _havehosttype_
  1825. *** ./orig/tw.parse.c    Fri Oct 25 22:33:16 1991
  1826. --- ./tw.parse.c    Thu Nov 21 09:32:44 1991
  1827. ***************
  1828. *** 45,50 ****
  1829. --- 45,54 ----
  1830.   #include "ed.h"
  1831.   #include "tc.h"
  1832.   
  1833. + #ifdef __MINT__
  1834. + extern Char *Lastslash();
  1835. + #endif
  1836. + 
  1837.   /* #define TENEDEBUG */
  1838.   
  1839.   /* true if the path has relative elements */
  1840. ***************
  1841. *** 127,136 ****
  1842.        */
  1843.       for (cmd_st = str_end; cmd_st > inputline; --cmd_st)
  1844.       if (iscmdmeta(cmd_st[-1])
  1845. !         && ((cmd_st - 1 == inputline) || (cmd_st[-2] != '\\')))
  1846.           break;
  1847.       /* step forward over leading spaces */
  1848.       while (*cmd_st != '\0' && (*cmd_st == ' ' || *cmd_st == '\t'))
  1849.       cmd_st++;
  1850.   
  1851.       /*
  1852. --- 131,144 ----
  1853.        */
  1854.       for (cmd_st = str_end; cmd_st > inputline; --cmd_st)
  1855.       if (iscmdmeta(cmd_st[-1])
  1856. !         && ((cmd_st - 1 == inputline) || (cmd_st[-2] != escchar)))
  1857.           break;
  1858.       /* step forward over leading spaces */
  1859. + #ifdef __MINT__
  1860. +     while (*cmd_st && (*cmd_st == ' ' || *cmd_st == '\t' || *cmd_st == '\r'))
  1861. + #else
  1862.       while (*cmd_st != '\0' && (*cmd_st == ' ' || *cmd_st == '\t'))
  1863. + #endif
  1864.       cmd_st++;
  1865.   
  1866.       /*
  1867. ***************
  1868. *** 140,146 ****
  1869.       for (word_start = str_end; word_start > inputline; --word_start) {
  1870.       if ((ismeta(word_start[-1]) || isaset(cmd_st, word_start)) &&
  1871.           (word_start[-1] != '#') && (word_start[-1] != '$') &&
  1872. !         ((word_start - 1 == inputline) || (word_start[-2] != '\\')))
  1873.           break;
  1874.       }
  1875.   
  1876. --- 148,154 ----
  1877.       for (word_start = str_end; word_start > inputline; --word_start) {
  1878.       if ((ismeta(word_start[-1]) || isaset(cmd_st, word_start)) &&
  1879.           (word_start[-1] != '#') && (word_start[-1] != '$') &&
  1880. !         ((word_start - 1 == inputline) || (word_start[-2] != escchar)))
  1881.           break;
  1882.       }
  1883.   
  1884. ***************
  1885. *** 209,214 ****
  1886. --- 217,223 ----
  1887.            */
  1888.           *wp++ = *cmd_start;
  1889.           break;
  1890. + #ifndef ALTESC
  1891.       case '\\':
  1892.           if (in_single || in_double)
  1893.           *wp++ = *cmd_start | QUOTE;
  1894. ***************
  1895. *** 215,221 ****
  1896. --- 224,244 ----
  1897.           else
  1898.           *wp++ = *++cmd_start | QUOTE;
  1899.           break;
  1900. + #endif
  1901.       default:
  1902. + #ifdef ALTESC
  1903. +         if (*cmd_start == escchar) {
  1904. +         if (in_single || in_double)
  1905. +             *wp++ = *cmd_start | QUOTE;
  1906. +         else
  1907. +             *wp++ = *++cmd_start | QUOTE;
  1908. +         } else
  1909. + # ifdef __MINT__
  1910. +         if (*cmd_start == '\\')
  1911. +             *wp++ = *cmd_start;
  1912. +         else
  1913. + # endif
  1914. + #endif
  1915.           *wp++ = *cmd_start | in_single;
  1916.           break;
  1917.       }
  1918. ***************
  1919. *** 240,246 ****
  1920. --- 263,273 ----
  1921.   
  1922.       case RECOGNIZE:
  1923.       if (adrof(STRautocorrect)) {
  1924. + #ifdef __MINT__
  1925. +         if ((slshp = Lastslash(word)) != NULL && slshp[1] != '\0') {
  1926. + #else
  1927.           if ((slshp = Strrchr(word, '/')) != NULL && slshp[1] != '\0') {
  1928. + #endif
  1929.           SearchNoDirErr = 1;
  1930.           for (bptr = word; bptr < slshp; bptr++) {
  1931.               /*
  1932. ***************
  1933. *** 406,412 ****
  1934.       if ((cmap(*wptr, _META | _DOL | _Q | _ESC | _GLOB) || *wptr == HIST ||
  1935.            *wptr == HISTSUB) &&
  1936.           (*wptr != ' ' || !trail_space || *(wptr + 1) != '\0'))
  1937. !         *bptr++ = '\\';
  1938.       *bptr++ = *wptr++;
  1939.       }
  1940.       *bptr = '\0';
  1941. --- 433,439 ----
  1942.       if ((cmap(*wptr, _META | _DOL | _Q | _ESC | _GLOB) || *wptr == HIST ||
  1943.            *wptr == HISTSUB) &&
  1944.           (*wptr != ' ' || !trail_space || *(wptr + 1) != '\0'))
  1945. !         *bptr++ = escchar;
  1946.       *bptr++ = *wptr++;
  1947.       }
  1948.       *bptr = '\0';
  1949. ***************
  1950. *** 635,645 ****
  1951. --- 662,680 ----
  1952.       non_unique_match = FALSE;    /* See the recexact code below */
  1953.   
  1954.       extract_dir_and_name(word, dir, name);
  1955. + #ifdef __MINT__
  1956. +     looking_for_lognames = (*word == '~') && (Lastslash(word) == NULL);
  1957. +     looking_for_shellvar = (target = Strrchr(name, '$')) &&
  1958. +     (Lastslash(name) == NULL);
  1959. +     looking_for_file = (!looking_for_command && !looking_for_lognames &&
  1960. +             !looking_for_shellvar) || Lastslash(word);
  1961. + #else
  1962.       looking_for_lognames = (*word == '~') && (Strchr(word, '/') == NULL);
  1963.       looking_for_shellvar = (target = Strrchr(name, '$')) &&
  1964.       (Strchr(name, '/') == NULL);
  1965.       looking_for_file = (!looking_for_command && !looking_for_lognames &&
  1966.               !looking_for_shellvar) || Strchr(word, '/');
  1967. + #endif
  1968.   
  1969.       /* PWP: don't even bother when doing ALL of the commands */
  1970.       if (looking_for_command && (*word == '\0')) 
  1971. ***************
  1972. *** 675,681 ****
  1973.       if (nd) {
  1974.           if (*tilded_dir != '\0') {
  1975.           Char   *s, *d, *p;
  1976. ! 
  1977.           /*
  1978.            * Copy and append a / if there was one
  1979.            */
  1980. --- 710,735 ----
  1981.       if (nd) {
  1982.           if (*tilded_dir != '\0') {
  1983.           Char   *s, *d, *p;
  1984. ! #ifdef __MINT__
  1985. !         Char slashc = '/';
  1986. !         /*
  1987. !          * Copy and append a / if there was one
  1988. !          */
  1989. !         for (p = tilded_dir; *p; p++);
  1990. !         --p;
  1991. !         if (is_dirsep(*p)) {
  1992. !             slashc = *p;
  1993. !             for (p = nd; *p; p++);
  1994. !             --p;
  1995. !             if (!is_dirsep(*p))
  1996. !             p = NULL;
  1997. !         }
  1998. !         for (d = tilded_dir, s = nd; *d++ = *s++;);
  1999. !         if (!p) {
  2000. !             *d-- = '\0';
  2001. !             *d = slashc;
  2002. !         }
  2003. ! #else
  2004.           /*
  2005.            * Copy and append a / if there was one
  2006.            */
  2007. ***************
  2008. *** 690,695 ****
  2009. --- 744,750 ----
  2010.               *d-- = '\0';
  2011.               *d = '/';
  2012.           }
  2013. + #endif
  2014.           }
  2015.           xfree((ptr_t) nd);
  2016.       }
  2017. ***************
  2018. *** 771,778 ****
  2019. --- 826,838 ----
  2020.               if (dir_fd != NULL)
  2021.               FREE_DIR(dir_fd);
  2022.               entry = NULL;
  2023. + #ifdef __MINT__
  2024. +             while (*pathv && (pathv[0][0] == '/' || pathv[0][0] == '\\'))
  2025. +             pathv++;
  2026. + #else
  2027.               while (*pathv && pathv[0][0] == '/')
  2028.               pathv++;
  2029. + #endif
  2030.               if (*pathv) {
  2031.               /*
  2032.                * We complete directories only on '.' should that
  2033. ***************
  2034. *** 1108,1114 ****
  2035. --- 1168,1178 ----
  2036.   {
  2037.       register Char *p;
  2038.   
  2039. + #ifdef __MINT__
  2040. +     p = Lastslash(path);
  2041. + #else
  2042.       p = Strrchr(path, '/');
  2043. + #endif
  2044.       if (p == NULL) {
  2045.       copyn(name, path, MAXNAMLEN);
  2046.       dir[0] = '\0';
  2047. ***************
  2048. *** 1235,1241 ****
  2049. --- 1299,1309 ----
  2050.       }
  2051.   
  2052.       new[0] = '\0';
  2053. + #ifdef __MINT__
  2054. +     for (p = new, o = &old[1]; *o && !is_dirsep(*o); *p++ = *o++);
  2055. + #else
  2056.       for (p = new, o = &old[1]; *o && *o != '/'; *p++ = *o++);
  2057. + #endif
  2058.       *p = '\0';
  2059.   
  2060.       if (old[0] == '~') {
  2061. ***************
  2062. *** 1306,1311 ****
  2063. --- 1374,1384 ----
  2064.           if (S_ISBLK(statb.st_mode))    /* block device */
  2065.           return ('#');
  2066.           if (S_ISDIR(statb.st_mode))    /* normal Directory */
  2067. + #ifdef __MINT__
  2068. +         if (is_set(STRdosslashes))
  2069. +             return ('\\');
  2070. +         else
  2071. + #endif
  2072.           return ('/');
  2073.           if (statb.st_mode & 0111)
  2074.           return ('*');
  2075. ***************
  2076. *** 1483,1489 ****
  2077. --- 1556,1566 ----
  2078.   
  2079.       if (adrof(STRrecognize_only_executables)) {
  2080.       for (pv = v->vec; *pv; pv++) {
  2081. + #ifdef __MINT__
  2082. +         if (pv[0][0] != '/' && pv[0][0] != '\\') {
  2083. + #else
  2084.           if (pv[0][0] != '/') {
  2085. + #endif
  2086.           relatives_in_path = 1;
  2087.           continue;
  2088.           }
  2089. ***************
  2090. *** 1504,1510 ****
  2091. --- 1581,1591 ----
  2092.       }
  2093.       else {
  2094.       for (pv = v->vec; *pv; pv++) {
  2095. + #ifdef __MINT__
  2096. +         if (pv[0][0] != '/' && pv[0][0] != '\\') {
  2097. + #else
  2098.           if (pv[0][0] != '/') {
  2099. + #endif
  2100.           relatives_in_path = 1;
  2101.           continue;
  2102.           }
  2103. *** ./orig/tw.spell.c    Fri Oct 25 22:33:18 1991
  2104. --- ./tw.spell.c    Sun Nov 17 15:12:40 1991
  2105. ***************
  2106. *** 40,45 ****
  2107. --- 40,49 ----
  2108.   #include "sh.h"
  2109.   #include "tw.h"
  2110.   
  2111. + #ifdef __MINT__
  2112. + extern Char *Lastslash();
  2113. + #endif
  2114. + 
  2115.   extern Char **command_list;
  2116.   extern int numcommands;
  2117.   
  2118. ***************
  2119. *** 56,63 ****
  2120. --- 60,78 ----
  2121.       bool    foundslash = 0;
  2122.       int     retval;
  2123.   
  2124. + #ifdef __MINT__
  2125. +     /* skip drive specification, if any */
  2126. +     if (*old && old[1] == ':' && is_dirsep(old[2])) {
  2127. +     *new++ = *old++; *new++ = *old++;
  2128. +     }
  2129. + #endif
  2130. + 
  2131.       for (;;) {
  2132. + #ifdef __MINT__
  2133. +     while (is_dirsep(*old)) {
  2134. + #else
  2135.       while (*old == '/') {    /* skip '/' */
  2136. + #endif
  2137.           *new++ = *old++;
  2138.           foundslash = 1;
  2139.       }
  2140. ***************
  2141. *** 76,82 ****
  2142. --- 91,101 ----
  2143.           if (p < guess + FILSIZ)
  2144.               *p++ = *cp;
  2145.       ws = p;
  2146. + #ifdef __MINT__
  2147. +     for (; !is_dirsep(*old) && *old != '\0'; old++)
  2148. + #else
  2149.       for (; *old != '/' && *old != '\0'; old++)/* add current file name */
  2150. + #endif
  2151.           if (p < guess + FILSIZ)
  2152.           *p++ = *old;
  2153.       *p = '\0';        /* terminate it */
  2154. ***************
  2155. *** 86,93 ****
  2156. --- 105,117 ----
  2157.        * far but there are later - or it will look for *all* commands
  2158.        */
  2159.       /* (*should* say "looking for directory" whenever '/' is next...) */
  2160. + #ifdef __MINT__
  2161. +     retval = t_search(guess, p, SPELL, FILSIZ,
  2162. +       looking_for_cmd && (foundslash || !is_dirsep(*old)), 1);
  2163. + #else
  2164.       retval = t_search(guess, p, SPELL, FILSIZ,
  2165.                 looking_for_cmd && (foundslash || *old != '/'), 1);
  2166. + #endif
  2167.       if (retval >= 4 || retval < 0)
  2168.           return -1;        /* hopeless */
  2169.       for (p = ws; *new = *p++;)
  2170.