home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / gnuish / m4v05.arc / patches < prev    next >
Text File  |  1990-11-01  |  48KB  |  1,750 lines
  1. *** e:\tmp/RCSt1006154    Sat Oct 27 09:53:50 1990
  2. --- builtin.c    Sat Oct 27 09:35:08 1990
  3. ***************
  4. *** 16,21 ****
  5. --- 16,34 ----
  6.    * along with this program; if not, write to the Free Software
  7.    * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  8.    */
  9. + 
  10. + /*
  11. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  12. +  * This port is also distributed under the terms of the
  13. +  * GNU General Public License as published by the
  14. +  * Free Software Foundation.
  15. +  *
  16. +  * Please note that this file is not identical to the
  17. +  * original GNU release, you should have received this
  18. +  * code as patch to the official release.
  19. +  *
  20. +  * $Header: e:/gnu/m4/RCS/builtin.c 0.5.1.0 90/09/28 18:34:53 tho Exp $
  21. +  */
  22.   
  23.   /*
  24.    * Code for all builtin macros, initialisation of symbol table, and
  25. ***************
  26. *** 32,37 ****
  27. --- 45,110 ----
  28.    * "builtin_tab" is both used for initialisation, and by the "builtin"
  29.    * builtin.
  30.    */
  31. + 
  32. + #ifdef MSDOS
  33. + 
  34. + #include <process.h>
  35. + #include <errno.h>
  36. + #include <io.h>
  37. + 
  38. + #define M4_ARGS \
  39. +   struct obstack *obs, int argc, struct token_data **argv
  40. + 
  41. + builtin *find_builtin_by_name(char *name);
  42. + builtin *find_builtin_by_addr(builtin_func *func);
  43. + static char *ntoa (eval_t value, int radix);
  44. + static enum boolean bad_argc (char *name, int argc, int min, int max);
  45. + static int dumpdef_cmp (struct symbol **s1, struct symbol **s2);
  46. + static void define_builtin (char *name, struct builtin *bp,\
  47. +                 enum symbol_lookup mode);
  48. + static void define_macro (int argc, struct token_data **argv,\
  49. +               enum symbol_lookup mode);
  50. + static void dump_args (struct obstack *obs, int argc,\
  51. +                struct token_data **argv, char *sep,\
  52. +                enum boolean quoted);
  53. + static void dump_symbol (struct symbol *sym, struct dump_symbol_data *data);
  54. + static void include (int argc, struct token_data **argv, enum boolean silent);
  55. + static void m4_builtin (M4_ARGS);
  56. + static void m4_changecom (M4_ARGS);
  57. + static void m4_changequote (M4_ARGS);
  58. + static void m4_define (M4_ARGS);
  59. + static void m4_defn (M4_ARGS);
  60. + static void m4_divert (M4_ARGS);
  61. + static void m4_divnum (M4_ARGS);
  62. + static void m4_dnl (M4_ARGS);
  63. + static void m4_dumpdef (M4_ARGS);
  64. + static void m4_errprint (M4_ARGS);
  65. + static void m4_eval (M4_ARGS);
  66. + static void m4_ifdef (M4_ARGS);
  67. + static void m4_ifelse (M4_ARGS);
  68. + static void m4_include (M4_ARGS);
  69. + static void m4_index (M4_ARGS);
  70. + static void m4_len (M4_ARGS);
  71. + static void m4_m4exit (M4_ARGS);
  72. + static void m4_m4wrap (M4_ARGS);
  73. + static void m4_maketemp (M4_ARGS);
  74. + static void m4_popdef (M4_ARGS);
  75. + static void m4_pushdef (M4_ARGS);
  76. + static void m4_shift (M4_ARGS);
  77. + static void m4_sinclude (M4_ARGS);
  78. + static void m4_substr (M4_ARGS);
  79. + static void m4_syscmd (M4_ARGS);
  80. + static void m4_sysval (M4_ARGS);
  81. + static void m4_traceoff (M4_ARGS);
  82. + static void m4_traceon (M4_ARGS);
  83. + static void m4_translit (M4_ARGS);
  84. + static void m4_undefine (M4_ARGS);
  85. + static void m4_undivert (M4_ARGS);
  86. + static void set_trace (struct symbol *sym, char *data);
  87. + static void shipout_int (struct obstack *obs, int val);
  88. + 
  89. + #else /* not MSDOS */
  90. + 
  91.   static void m4_builtin();
  92.   static void m4_changecom();
  93.   static void m4_changequote();
  94. ***************
  95. *** 64,69 ****
  96. --- 137,144 ----
  97.   static void m4_undefine();
  98.   static void m4_undivert();
  99.   
  100. + #endif /* not MSDOS */
  101. + 
  102.   static builtin
  103.   builtin_tab[] = {
  104.   
  105. ***************
  106. *** 273,279 ****
  107.       if (quoted)
  108.           obstack_1grow(obs, rquote);
  109.       }
  110. -    
  111.   }
  112.   
  113.   
  114. --- 348,353 ----
  115. ***************
  116. *** 448,454 ****
  117. --- 522,533 ----
  118.       if (!sym->shadowed) {
  119.       obstack_blank(data->obs, sizeof(symbol*));
  120.       data->base = (symbol **)obstack_base(data->obs);
  121. + #if defined(_MSC_VER) && (_MSC_VER == 600)
  122. +     /* Work around an optimizer bug.  */
  123. +     { int tmp = data->size++; data->base[tmp] = sym; }
  124. + #else
  125.       data->base[data->size++] = sym;
  126. + #endif
  127.       }
  128.   }
  129.   
  130. ***************
  131. *** 487,493 ****
  132. --- 566,576 ----
  133.       for (i = 1; i < argc; i++) {
  134.           s = lookup_symbol(TOKEN_DATA_TEXT(argv[i]), SYMBOL_LOOKUP);
  135.           if (s != nil)
  136. + #ifdef MSDOS
  137. +         dump_symbol(s, &data);
  138. + #else /* not MSDOS */
  139.           dump_symbol(s, (char *)&data);
  140. + #endif /* not MSDOS */
  141.           else
  142.           error("Undefined name %s", TOKEN_DATA_TEXT(argv[i]));
  143.       }
  144. ***************
  145. *** 512,517 ****
  146. --- 595,606 ----
  147.           break;
  148.       }
  149.       }
  150. + 
  151. + #ifdef MSDOS            /* but it's a genuine bug.  */
  152. +   /* Or is the intention to finalize the object?
  153. +      (cf. m4_errprint (), which could also free the object)  */
  154. +   obstack_free (obs, obstack_base (obs));
  155. + #endif
  156.   }
  157.   
  158.   /*
  159. ***************
  160. *** 589,597 ****
  161. --- 678,729 ----
  162.       int argc;
  163.       token_data **argv;
  164.   {
  165. + #ifdef MSDOS
  166. + 
  167. +   /* The system function from the MSC runtime lib doesn't return
  168. +      the exit code, so we have to hack one ourselves.  */
  169. + 
  170. +   char *sysargv[4];
  171. +   char *p = NULL;
  172. + 
  173. +   if (bad_argc(TOKEN_DATA_TEXT(argv[0]), argc, 2, 2))
  174. +     return;
  175. + 
  176. +   /* Find $SHELL or $COMSPEC, assuming the former is a UNIX style
  177. +      shell (preferred) and the latter is a DOS style command
  178. +      processor.  */
  179. + 
  180. +   sysargv[0] = getenv ("SHELL");
  181. +   if (sysargv[0])
  182. +     sysargv[1] = "-c";
  183. +   else
  184. +     {
  185. +       sysargv[0] = getenv ("COMSPEC");
  186. +       if (sysargv[0])
  187. +     sysargv[1] = "/c";
  188. +       else
  189. +     {
  190. +       errno = ENOENT;
  191. +       sysval = (-1) << 8;
  192. +       return;
  193. +     }
  194. +     }
  195. + 
  196. +   /* Let the shell execute COMMAND.  */
  197. + 
  198. +   sysargv[2] = ARG(1);
  199. +   sysargv[3] = NULL;
  200. + 
  201. +   /* Precompensate the ">> 8" from m4_sysval ()  */
  202. +   sysval = spawnvpe (P_WAIT, sysargv[0], sysargv, NULL) << 8;
  203. + 
  204. + #else /* not MSDOS */
  205. + 
  206.       if (bad_argc(TOKEN_DATA_TEXT(argv[0]), argc, 2, 2))
  207.       return;
  208.       sysval = system(ARG(1));
  209. + 
  210. + #endif /* not MSDOS */
  211.   }
  212.   
  213.   static void
  214. ***************
  215. *** 615,624 ****
  216.   
  217.   static char *
  218.   ntoa(value, radix)
  219. !     register int value;
  220.       int radix;
  221.   {
  222.       unsigned int uvalue;
  223.       static char str[256];
  224.       register char *s = &str[sizeof str];
  225.       boolean negative = false;
  226. --- 747,760 ----
  227.   
  228.   static char *
  229.   ntoa(value, radix)
  230. !     register eval_t value;
  231.       int radix;
  232.   {
  233. + #ifdef MSDOS
  234. +     unsigned long uvalue;
  235. + #else
  236.       unsigned int uvalue;
  237. + #endif
  238.       static char str[256];
  239.       register char *s = &str[sizeof str];
  240.       boolean negative = false;
  241. ***************
  242. *** 631,637 ****
  243. --- 767,777 ----
  244.       negative = true;
  245.       value = -(value+1);
  246.   
  247. + #ifdef MSDOS            /* shut up the compiler.  */
  248. +     tmp = (int) (value%radix);
  249. + #else
  250.       tmp = value%radix;
  251. + #endif
  252.       if (tmp == radix - 1) {
  253.           *--s = '0';
  254.           value = value/radix + 1;
  255. ***************
  256. *** 645,651 ****
  257. --- 785,796 ----
  258.       }
  259.       }
  260.   
  261. + 
  262. + #ifdef MSDOS
  263. +     uvalue = (unsigned long)value;
  264. + #else
  265.       uvalue = (unsigned int)value;
  266. + #endif
  267.       do {
  268.       *--s = digits[uvalue%radix];
  269.       uvalue /= radix;
  270. ***************
  271. *** 662,668 ****
  272.       int argc;
  273.       token_data **argv;
  274.   {
  275. !     int value;
  276.       int radix = 10;
  277.       int min = 1;
  278.       char *s;
  279. --- 807,813 ----
  280.       int argc;
  281.       token_data **argv;
  282.   {
  283. !     eval_t value;
  284.       int radix = 10;
  285.       int min = 1;
  286.       char *s;
  287. ***************
  288. *** 915,920 ****
  289. --- 1060,1068 ----
  290.       token_data **argv;
  291.   {
  292.       dump_args(obs, argc, argv, " ", false);
  293. + #ifdef MSDOS            /* but it's a genuine bug.  */
  294. +     obstack_1grow(obs, '\0');
  295. + #endif
  296.       fprintf(stderr, "%s", obstack_finish(obs));
  297.       fflush(stderr);
  298.   }
  299. ***************
  300. *** 960,965 ****
  301. --- 1108,1116 ----
  302.       obstack_grow(obs, ARG(1), strlen(ARG(1)));
  303.       } else
  304.       dump_args(obs, argc, argv, " ", false);
  305. + #ifdef MSDOS            /* but it's a genuine bug.  */
  306. +     obstack_1grow(obs, '\0');
  307. + #endif
  308.       push_wrapup(obstack_finish(obs));
  309.   }
  310.   
  311. *** e:\tmp/RCSt1006154    Sat Oct 27 09:53:52 1990
  312. --- eval.c    Sat Oct 27 09:37:30 1990
  313. ***************
  314. *** 16,21 ****
  315. --- 16,34 ----
  316.    * along with this program; if not, write to the Free Software
  317.    * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  318.    */
  319. + 
  320. + /*
  321. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  322. +  * This port is also distributed under the terms of the
  323. +  * GNU General Public License as published by the
  324. +  * Free Software Foundation.
  325. +  *
  326. +  * Please note that this file is not identical to the
  327. +  * original GNU release, you should have received this
  328. +  * code as patch to the official release.
  329. +  *
  330. +  * $Header: e:/gnu/m4/RCS/eval.c 0.5.1.0 90/09/28 18:34:58 tho Exp $
  331. +  */
  332.   
  333.   /* 
  334.    * This file contains teh functions to evaluate integer expressions for
  335. ***************
  336. *** 54,59 ****
  337. --- 67,91 ----
  338.       MODULO_ZERO,
  339.   } eval_error;
  340.   
  341. + #ifdef MSDOS
  342. + 
  343. + static enum eval_error add_term (enum eval_token et, eval_t *v1);
  344. + static enum eval_error and_term (enum eval_token et, eval_t *v1);
  345. + static enum eval_error cmp_term (enum eval_token et, eval_t *v1);
  346. + static enum eval_error exp_term (enum eval_token et, eval_t *v1);
  347. + static enum eval_error logical_and_term (enum eval_token et, eval_t *v1);
  348. + static enum eval_error logical_or_term (enum eval_token et, eval_t *v1);
  349. + static enum eval_error mult_term (enum eval_token et, eval_t *v1);
  350. + static enum eval_error not_term (enum eval_token et, eval_t *v1);
  351. + static enum eval_error or_term (enum eval_token et, eval_t *v1);
  352. + static enum eval_error simple_term (enum eval_token et, eval_t *v1);
  353. + static enum eval_error unary_term (enum eval_token et, eval_t *v1);
  354. + static enum eval_token eval_lex (eval_t *val);
  355. + static void eval_init_lex (char *text);
  356. + static void eval_undo (void);
  357. + 
  358. + #else /* not MSDOS */
  359. + 
  360.   static eval_error logical_or_term();
  361.   static eval_error logical_and_term();
  362.   static eval_error or_term();
  363. ***************
  364. *** 66,71 ****
  365. --- 98,105 ----
  366.   static eval_error unary_term();
  367.   static eval_error simple_term();
  368.   
  369. + #endif /* not MSDOS */
  370. + 
  371.   /* 
  372.    * Lexical functions.
  373.    */
  374. ***************
  375. *** 93,99 ****
  376.   
  377.   static eval_token 
  378.   eval_lex(val)
  379. !     int *val;                /* numerical value, if any */
  380.   {
  381.       while (isspace(*eval_text))
  382.       eval_text++;
  383. --- 127,133 ----
  384.   
  385.   static eval_token 
  386.   eval_lex(val)
  387. !     eval_t *val;                /* numerical value, if any */
  388.   {
  389.       while (isspace(*eval_text))
  390.       eval_text++;
  391. ***************
  392. *** 194,200 ****
  393.   boolean 
  394.   evaluate(expr, val)
  395.       char *expr;
  396. !     int *val;
  397.   {
  398.       eval_token et;
  399.       eval_error err;
  400. --- 228,234 ----
  401.   boolean 
  402.   evaluate(expr, val)
  403.       char *expr;
  404. !     eval_t *val;
  405.   {
  406.       eval_token et;
  407.       eval_error err;
  408. ***************
  409. *** 235,243 ****
  410.   static eval_error 
  411.   logical_or_term(et, v1)
  412.       eval_token et;
  413. !     int *v1;
  414.   {
  415. !     int v2;
  416.       eval_error er;
  417.   
  418.       if (er = logical_and_term(et, v1))
  419. --- 269,277 ----
  420.   static eval_error 
  421.   logical_or_term(et, v1)
  422.       eval_token et;
  423. !     eval_t *v1;
  424.   {
  425. !     eval_t v2;
  426.       eval_error er;
  427.   
  428.       if (er = logical_and_term(et, v1))
  429. ***************
  430. *** 263,271 ****
  431.   static eval_error 
  432.   logical_and_term(et, v1)
  433.       eval_token et;
  434. !     int *v1;
  435.   {
  436. !     int v2;
  437.       eval_error er;
  438.      
  439.       if (er = or_term(et, v1))
  440. --- 297,305 ----
  441.   static eval_error 
  442.   logical_and_term(et, v1)
  443.       eval_token et;
  444. !     eval_t *v1;
  445.   {
  446. !     eval_t v2;
  447.       eval_error er;
  448.      
  449.       if (er = or_term(et, v1))
  450. ***************
  451. *** 291,299 ****
  452.   static eval_error 
  453.   or_term(et, v1)
  454.       eval_token et;
  455. !     int *v1;
  456.   {
  457. !     int v2;
  458.       eval_error er;
  459.   
  460.       if (er = and_term(et, v1))
  461. --- 325,333 ----
  462.   static eval_error 
  463.   or_term(et, v1)
  464.       eval_token et;
  465. !     eval_t *v1;
  466.   {
  467. !     eval_t v2;
  468.       eval_error er;
  469.   
  470.       if (er = and_term(et, v1))
  471. ***************
  472. *** 319,327 ****
  473.   static eval_error 
  474.   and_term(et, v1)
  475.       eval_token et;
  476. !     int *v1;
  477.   {
  478. !     int v2;
  479.       eval_error er;
  480.   
  481.       if (er = not_term(et, v1))
  482. --- 353,361 ----
  483.   static eval_error 
  484.   and_term(et, v1)
  485.       eval_token et;
  486. !     eval_t *v1;
  487.   {
  488. !     eval_t v2;
  489.       eval_error er;
  490.   
  491.       if (er = not_term(et, v1))
  492. ***************
  493. *** 347,353 ****
  494.   static eval_error 
  495.   not_term(et, v1)
  496.       eval_token et;
  497. !     int *v1;
  498.   {
  499.       eval_error er;
  500.   
  501. --- 381,387 ----
  502.   static eval_error 
  503.   not_term(et, v1)
  504.       eval_token et;
  505. !     eval_t *v1;
  506.   {
  507.       eval_error er;
  508.   
  509. ***************
  510. *** 369,378 ****
  511.   static eval_error 
  512.   cmp_term(et, v1)
  513.       eval_token et;
  514. !     int *v1;
  515.   {
  516.       eval_token op;
  517. !     int v2;
  518.       eval_error er;
  519.   
  520.       if (er = add_term(et, v1))
  521. --- 403,412 ----
  522.   static eval_error 
  523.   cmp_term(et, v1)
  524.       eval_token et;
  525. !     eval_t *v1;
  526.   {
  527.       eval_token op;
  528. !     eval_t v2;
  529.       eval_error er;
  530.   
  531.       if (er = add_term(et, v1))
  532. ***************
  533. *** 423,432 ****
  534.   static eval_error 
  535.   add_term(et, v1)
  536.       eval_token et;
  537. !     int *v1;
  538.   {
  539.       eval_token op;
  540. !     int v2;
  541.       eval_error er;
  542.   
  543.       if (er = mult_term(et, v1))
  544. --- 457,466 ----
  545.   static eval_error 
  546.   add_term(et, v1)
  547.       eval_token et;
  548. !     eval_t *v1;
  549.   {
  550.       eval_token op;
  551. !     eval_t v2;
  552.       eval_error er;
  553.   
  554.       if (er = mult_term(et, v1))
  555. ***************
  556. *** 455,464 ****
  557.   static eval_error 
  558.   mult_term(et, v1)
  559.       eval_token et;
  560. !     int *v1;
  561.   {
  562.       eval_token op;
  563. !     int v2;
  564.       eval_error er;
  565.   
  566.       if (er = exp_term(et, v1))
  567. --- 489,498 ----
  568.   static eval_error 
  569.   mult_term(et, v1)
  570.       eval_token et;
  571. !     eval_t *v1;
  572.   {
  573.       eval_token op;
  574. !     eval_t v2;
  575.       eval_error er;
  576.   
  577.       if (er = exp_term(et, v1))
  578. ***************
  579. *** 503,512 ****
  580.   static eval_error 
  581.   exp_term(et, v1)
  582.       eval_token et;
  583. !     int *v1;
  584.   {
  585. !     register int result;
  586. !     int v2;
  587.       eval_error er;
  588.   
  589.       if (er = unary_term(et, v1))
  590. --- 537,546 ----
  591.   static eval_error 
  592.   exp_term(et, v1)
  593.       eval_token et;
  594. !     eval_t *v1;
  595.   {
  596. !     register eval_t result;
  597. !     eval_t v2;
  598.       eval_error er;
  599.   
  600.       if (er = unary_term(et, v1))
  601. ***************
  602. *** 536,542 ****
  603.   static eval_error 
  604.   unary_term(et, v1)
  605.       eval_token et;
  606. !     int *v1;
  607.   {
  608.       eval_token et2 = et;
  609.       eval_error er;
  610. --- 570,576 ----
  611.   static eval_error 
  612.   unary_term(et, v1)
  613.       eval_token et;
  614. !     eval_t *v1;
  615.   {
  616.       eval_token et2 = et;
  617.       eval_error er;
  618. ***************
  619. *** 561,569 ****
  620.   static eval_error 
  621.   simple_term(et, v1)
  622.       eval_token et;
  623. !     int *v1;
  624.   {
  625. !     int v2;
  626.       eval_error er;
  627.   
  628.       switch (et) {
  629. --- 595,603 ----
  630.   static eval_error 
  631.   simple_term(et, v1)
  632.       eval_token et;
  633. !     eval_t *v1;
  634.   {
  635. !     eval_t v2;
  636.       eval_error er;
  637.   
  638.       switch (et) {
  639. *** e:\tmp/RCSt1006154    Sat Oct 27 09:53:56 1990
  640. --- input.c    Sat Oct 27 09:33:40 1990
  641. ***************
  642. *** 16,21 ****
  643. --- 16,34 ----
  644.    * along with this program; if not, write to the Free Software
  645.    * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  646.    */
  647. + 
  648. + /*
  649. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  650. +  * This port is also distributed under the terms of the
  651. +  * GNU General Public License as published by the
  652. +  * Free Software Foundation.
  653. +  *
  654. +  * Please note that this file is not identical to the
  655. +  * original GNU release, you should have received this
  656. +  * code as patch to the official release.
  657. +  *
  658. +  * $Header: e:/gnu/m4/RCS/input.c 0.5.1.0 90/09/28 18:35:00 tho Exp $
  659. +  */
  660.   
  661.   /* 
  662.    * Handling of different input sources, and lexical analysis.
  663. ***************
  664. *** 130,135 ****
  665. --- 143,155 ----
  666.   char bcomm;
  667.   char ecomm;
  668.   
  669. + 
  670. + #ifdef MSDOS
  671. + static int next_char (void);
  672. + static void (*get_macro_func (void)) ();
  673. + static void advance_input (void);
  674. + static void pop_input (void);
  675. + #endif /* MSDOS */
  676.   
  677.   
  678.   /* 
  679. *** e:\tmp/RCSt1006154    Sat Oct 27 09:53:58 1990
  680. --- m4.c    Sat Oct 27 09:17:50 1990
  681. ***************
  682. *** 16,21 ****
  683. --- 16,34 ----
  684.    * along with this program; if not, write to the Free Software
  685.    * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  686.    */
  687. + 
  688. + /*
  689. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  690. +  * This port is also distributed under the terms of the
  691. +  * GNU General Public License as published by the
  692. +  * Free Software Foundation.
  693. +  *
  694. +  * Please note that this file is not identical to the
  695. +  * original GNU release, you should have received this
  696. +  * code as patch to the official release.
  697. +  *
  698. +  * $Header: e:/gnu/m4/RCS/m4.c 0.5.1.0 90/09/28 18:35:03 tho Exp $
  699. +  */
  700.   
  701.   #include "m4.h"
  702.   #include "version.h"
  703. ***************
  704. *** 37,42 ****
  705. --- 50,68 ----
  706.   /* Disable GNU extensions (-G) */
  707.   int no_gnu_extensions = 0;
  708.   
  709. + #ifdef TRACE_MEMORY_USAGE
  710. + /* Look where m4 eats up the memory (-t) */
  711. + int trace_memory_usage = 0;
  712. + #endif /* TRACE_MEMORY_USAGE */
  713. + 
  714. + 
  715. + #ifdef MSDOS
  716. + extern int main (int argc, char **argv);
  717. + static void vmesg(char *level, char *fmt, va_list args);
  718. + static void no_memory (void);
  719. + static void usage (void);
  720. + #endif /* MSDOS */
  721. + 
  722.   
  723.   /* 
  724.    * usage --- Print usage message on stderr.
  725. ***************
  726. *** 71,80 ****
  727. --- 97,115 ----
  728.   
  729.       case 'V':
  730.           fprintf(stderr,
  731. + #ifdef MSDOS
  732. +             "\
  733. + GNU m4 %s, Copyright (C) 1989, 1990 Free Software Foundation, Inc.\n\
  734. + There is ABSOLUTELY NO WARRANTY for GNU m4.  See the file\n\
  735. + COPYING in the source distribution for more details.\n\
  736. + $Header: e:/gnu/m4/RCS/m4.c 0.5.1.0 90/09/28 18:35:03 tho Exp $\n\
  737. + (compiled " __DATE__ " " __TIME__ " MS-DOS)\n",
  738. + #else /* not MSDOS */
  739.               "\
  740.   GNU m4 %s, Copyright (C) 1989, 1990 Free Software Foundation, Inc.\n\
  741.   There is ABSOLUTELY NO WARRANTY for GNU m4.  See the file\n\
  742.   COPYING in the source distribution for more details.\n",
  743. + #endif /* not MSDOS */
  744.               version);
  745.           break;
  746.   
  747. ***************
  748. *** 103,108 ****
  749. --- 138,149 ----
  750.       case 'T':
  751.           break;
  752.   
  753. + #ifdef TRACE_MEMORY_USAGE
  754. +     case 't':
  755. +         trace_memory_usage++;
  756. +         break;
  757. + #endif /* TRACE_MEMORY_USAGE */
  758. + 
  759.       default:
  760.           usage();
  761.   
  762. ***************
  763. *** 203,209 ****
  764. --- 244,322 ----
  765.    * allocation.
  766.    */
  767.   
  768. + #ifdef MSDOS            /* <stdarg.h> */
  769. + 
  770. + /* Basic varargs function for all error output */
  771. + 
  772. + void 
  773. + vmesg(char *level, char *fmt, va_list args)
  774. + {
  775. +   fflush(stdout);
  776. +   fprintf(stderr, "%s: %d: ", current_file, current_line);
  777. +   if (level != nil)
  778. +     fprintf(stderr, "%s: ", level);
  779. + 
  780. +   vfprintf(stderr, fmt, args);
  781. + 
  782. +   putc('\n', stderr);
  783. + }
  784. + 
  785. + /* Internal errors -- print and dump core */
  786. + 
  787. + void 
  788. + internal_error (char *fmt, ...)
  789. + {
  790. +   va_list args;
  791. + 
  792. +   va_start (args, fmt);
  793. +   vmesg ("internal error", fmt, args);
  794. +   va_end (args);
  795. + 
  796. +   abort();
  797. + }
  798. + 
  799. + /* Fatal error -- print and exit */
  800. + 
  801. + void 
  802. + fatal (char *fmt, ...)
  803. + {
  804. +   va_list args;
  805. + 
  806. +   va_start (args, fmt);
  807. +   vmesg ("fatal error", fmt, args);
  808. +   va_end (args);
  809. + 
  810. +   exit (1);
  811. + }
  812. + 
  813. + /* "Normal" error -- just complain */
  814. + 
  815. + void 
  816. + error (char *fmt, ...)
  817. + {
  818. +   va_list args;
  819. + 
  820. +   va_start (args, fmt);
  821. +   vmesg ((char *)nil, fmt, args);
  822. +   va_end (args);
  823. + }
  824. + 
  825. + /* Warning --- for potential trouble */
  826. + 
  827. + void 
  828. + warning (char *fmt, ...)
  829. + {
  830. +   va_list args;
  831. + 
  832. +   va_start (args, fmt);
  833. +   vmesg ("warning", fmt, args);
  834. +   va_end (args);
  835. + }
  836. + 
  837. + #else /* not MSDOS */
  838. + 
  839.   /* Basic varargs function for all error output */
  840. + 
  841.   void 
  842.   vmesg(level, args)
  843.       char *level;
  844. ***************
  845. *** 272,277 ****
  846. --- 385,392 ----
  847.       va_end(args);
  848.   }
  849.   
  850. + #endif /* not MSDOS */
  851. + 
  852.   
  853.   /* 
  854.    * Memory allocation functions
  855. ***************
  856. *** 289,294 ****
  857. --- 404,413 ----
  858.   xfree(p)
  859.       char *p;
  860.   {
  861. + #ifdef TRACE_MEMORY_USAGE
  862. +     if (trace_memory_usage)
  863. +       fprintf (stderr, "freeing @%Fp.\n", (void _far *) p);
  864. + #endif /* TRACE_MEMORY_USAGE */
  865.       free(p);
  866.   }
  867.   
  868. ***************
  869. *** 298,303 ****
  870. --- 417,432 ----
  871.       unsigned int size;
  872.   {
  873.       register char *cp = malloc(size);
  874. + #ifdef TRACE_MEMORY_USAGE
  875. +     if (trace_memory_usage)
  876. +       {
  877. +     fprintf (stderr, "allocating %5u (%04x) bytes ", size, size);
  878. +     if (cp == nil)
  879. +       fprintf (stderr, "failed.\n");
  880. +     else
  881. +       fprintf (stderr, "@%Fp.\n", (void _far *) cp);
  882. +       }
  883. + #endif /* TRACE_MEMORY_USAGE */
  884.       if (cp == nil)
  885.       no_memory();
  886.       return cp;
  887. *** e:\tmp/RCSt1006154    Sat Oct 27 09:54:00 1990
  888. --- m4.h    Sat Oct 27 09:33:16 1990
  889. ***************
  890. *** 16,33 ****
  891. --- 16,54 ----
  892.    * along with this program; if not, write to the Free Software
  893.    * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  894.    */
  895. + 
  896. + /*
  897. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  898. +  * This port is also distributed under the terms of the
  899. +  * GNU General Public License as published by the
  900. +  * Free Software Foundation.
  901. +  *
  902. +  * Please note that this file is not identical to the
  903. +  * original GNU release, you should have received this
  904. +  * code as patch to the official release.
  905. +  *
  906. +  * $Header: e:/gnu/m4/RCS/m4.h 0.5.1.0 90/09/28 18:35:05 tho Exp $
  907. +  */
  908.   
  909.   #include <stdio.h>
  910.   #include <ctype.h>
  911. + #ifdef MSDOS
  912. + #include <stdarg.h>
  913. + #else
  914.   #include <varargs.h>
  915. + #endif
  916.   
  917.   #include "obstack.h"
  918.   
  919. + #ifdef MSDOS
  920. + #include <stdlib.h>
  921. + #else /* not MSDOS */
  922.   extern char *malloc();
  923.   extern char *realloc();
  924.   extern void free();
  925.   extern char *mktemp();
  926.   extern int mkstemp();
  927. + #endif /* not MSDOS */
  928.   
  929.   #ifdef USG
  930.   #include <string.h>
  931. ***************
  932. *** 54,62 ****
  933. --- 75,85 ----
  934.   
  935.   typedef enum boolean { false = 0, true = 1 } boolean;
  936.   
  937. + #ifndef MSDOS
  938.   extern int errno;
  939.   extern int sys_nerr;
  940.   extern char *sys_errlist[];
  941. + #endif /* not MSDOS */
  942.   
  943.   #define syserr() ((errno > 0 && errno < sys_nerr) ? sys_errlist[errno] : "Unknown error")
  944.   
  945. ***************
  946. *** 75,90 ****
  947. --- 98,126 ----
  948.   extern int no_gnu_extensions;        /* -g */
  949.   
  950.   /* Error handling */
  951. + #ifdef MSDOS
  952. + extern void warning (char *fmt, ...);
  953. + extern void error (char *fmt, ...);
  954. + extern void fatal (char *fmt, ...);
  955. + extern void internal_error (char *fmt, ...);
  956. + #else /* not MSDOS */
  957.   extern void warning();
  958.   extern void error();
  959.   extern void fatal();
  960.   extern void internal_error();
  961. + #endif /* not MSDOS */
  962.   
  963.   /* Memory allocation */
  964. + #ifdef MSDOS
  965. + extern char *xmalloc (unsigned int size);
  966. + extern void xfree (char *p);
  967. + extern char *xstrdup (char *s);
  968. + #else /* not MSDOS */
  969.   extern char *xmalloc();
  970.   extern char *xrealloc();
  971.   extern void xfree();
  972.   extern char *xstrdup();
  973. + #endif /* not MSDOS */
  974.   
  975.   
  976.   /* File: input.c  --- lexical definitions */
  977. ***************
  978. *** 121,141 ****
  979.   typedef enum token_data_type token_data_type;
  980.   typedef struct token_data token_data;
  981.   
  982.   extern void input_init();
  983.   extern int peek_input();
  984.   extern token_type next_token();
  985.   extern void skip_line();
  986.   
  987.   /* push back input */
  988.   extern void push_file();
  989.   extern void push_macro();
  990. - 
  991.   extern void push_string();
  992.   extern struct obstack *push_string_init();
  993.   extern char *push_string_finish();
  994. - 
  995.   extern void push_wrapup();
  996.   extern boolean pop_wrapup();
  997.   
  998.   /* current input file, and line */
  999.   extern char *current_file;
  1000. --- 157,191 ----
  1001.   typedef enum token_data_type token_data_type;
  1002.   typedef struct token_data token_data;
  1003.   
  1004. + #ifdef MSDOS
  1005. + extern void input_init (void);
  1006. + extern int peek_input (void);
  1007. + extern enum token_type next_token (struct token_data *td);
  1008. + extern void skip_line (void);
  1009. + #else /* not MSDOS */
  1010.   extern void input_init();
  1011.   extern int peek_input();
  1012.   extern token_type next_token();
  1013.   extern void skip_line();
  1014. + #endif /* not MSDOS */
  1015.   
  1016.   /* push back input */
  1017. + #ifdef MSDOS
  1018. + extern void push_file (FILE *fp, char *title);
  1019. + extern void push_macro (void (*func) ());
  1020. + extern struct obstack *push_string_init (void);
  1021. + extern char *push_string_finish (void);
  1022. + extern void push_wrapup (char *s);
  1023. + extern enum boolean pop_wrapup (void);
  1024. + #else /* not MSDOS */
  1025.   extern void push_file();
  1026.   extern void push_macro();
  1027.   extern void push_string();
  1028.   extern struct obstack *push_string_init();
  1029.   extern char *push_string_finish();
  1030.   extern void push_wrapup();
  1031.   extern boolean pop_wrapup();
  1032. + #endif /* not MSDOS */
  1033.   
  1034.   /* current input file, and line */
  1035.   extern char *current_file;
  1036. ***************
  1037. *** 154,164 ****
  1038. --- 204,222 ----
  1039.   extern int output_lines;
  1040.   extern int output_current_line;
  1041.   
  1042. + #ifdef MSDOS
  1043. + extern void output_init (void);
  1044. + extern void sync_line (int line, char *file);
  1045. + extern void shipout_text (struct obstack *obs, char *text);
  1046. + extern void make_divertion (int divnum);
  1047. + extern void insert_divertion (int divnum);
  1048. + #else /* not MSDOS */
  1049.   extern void output_init();
  1050.   extern void sync_line();
  1051.   extern void shipout_text();
  1052.   extern void make_divertion();
  1053.   extern void insert_divertion();
  1054. + #endif /* not MSDOS */
  1055.   
  1056.   
  1057.   /* File symtab.c  --- symbol table definitions */
  1058. ***************
  1059. *** 194,214 ****
  1060.   
  1061.   typedef enum symbol_lookup symbol_lookup;
  1062.   typedef struct symbol symbol;
  1063.   typedef void hack_symbol();
  1064.   
  1065.   #define HASHMAX 509            /* Default, overridden by -Hsize */
  1066.   
  1067.   extern symbol **symtab;
  1068.   
  1069.   extern void symtab_init();
  1070.   extern symbol *lookup_symbol();
  1071. ! 
  1072. ! extern void hack_all_symbols();
  1073.   
  1074.   
  1075.   /* File: macro.c  --- macro expansion */
  1076.   
  1077.   extern void expand_input();
  1078.   
  1079.   
  1080.   /* File: builtin.c  --- builtins */
  1081. --- 252,285 ----
  1082.   
  1083.   typedef enum symbol_lookup symbol_lookup;
  1084.   typedef struct symbol symbol;
  1085. + #ifdef MSDOS
  1086. + typedef void hack_symbol(symbol *sym, char *data);
  1087. + #else /* not MSDOS */
  1088.   typedef void hack_symbol();
  1089. + #endif /* not MSDOS */
  1090.   
  1091.   #define HASHMAX 509            /* Default, overridden by -Hsize */
  1092.   
  1093.   extern symbol **symtab;
  1094.   
  1095. + #ifdef MSDOS
  1096. + extern void symtab_init (void);
  1097. + extern struct symbol *lookup_symbol (char *name, enum symbol_lookup mode);
  1098. + extern void hack_all_symbols (hack_symbol *func, char *data);
  1099. + #else /* not MSDOS */
  1100.   extern void symtab_init();
  1101.   extern symbol *lookup_symbol();
  1102. ! extern hack_symbol hack_all_symbols();
  1103. ! #endif /* not MSDOS */
  1104.   
  1105.   
  1106.   /* File: macro.c  --- macro expansion */
  1107.   
  1108. + #ifdef MSDOS
  1109. + extern void expand_input (void);
  1110. + #else /* not MSDOS */
  1111.   extern void expand_input();
  1112. + #endif /* not MSDOS */
  1113.   
  1114.   
  1115.   /* File: builtin.c  --- builtins */
  1116. ***************
  1117. *** 229,243 ****
  1118. --- 300,329 ----
  1119.   typedef struct builtin builtin;
  1120.   typedef struct predefined predefined;
  1121.   
  1122. + #ifdef MSDOS
  1123. + extern void builtin_init (void);
  1124. + extern void define_user_macro (char *name, char *text,\
  1125. +                    enum symbol_lookup mode);
  1126. + extern void undivert_all (void);
  1127. + extern void expand_user_macro (struct obstack *obs, struct symbol *sym,\
  1128. +                    int argc, struct token_data **argv);
  1129. + #else /* not MSDOS */
  1130.   extern void builtin_init();
  1131.   extern void define_user_macro();
  1132.   extern void undivert_all();
  1133.   extern void expand_user_macro();
  1134. + #endif /* not MSDOS */
  1135.   
  1136.   
  1137.   /* File: eval.c  --- expression evaluation */
  1138.   
  1139. + #ifdef MSDOS
  1140. + typedef long eval_t;        /* use 32-bit arithmetic */
  1141. + extern enum boolean evaluate (char *expr, eval_t *val);        /* eval.c */
  1142. + #else /* not MSDOS */
  1143. + typedef int eval_t;
  1144.   extern boolean evaluate();
  1145. + #endif /* not MSDOS */
  1146.   
  1147.   
  1148.   /* Debug stuff */
  1149. ***************
  1150. *** 248,250 ****
  1151. --- 334,349 ----
  1152.   #define DEBUG_SYM
  1153.   
  1154.   #endif
  1155. + 
  1156. + 
  1157. + /* Obstack stuff.  */
  1158. + 
  1159. + #ifdef MSDOS
  1160. + extern void _obstack_free (struct obstack *h, void *obj);
  1161. + extern void _obstack_begin (struct obstack *h, int size, int alignment,\
  1162. +                 void * (*chunkfun) (unsigned int size),\
  1163. +                 void (*freefun) (char *p));
  1164. + extern void _obstack_newchunk (struct obstack *h, int length);
  1165. + extern int _obstack_allocated_p (struct obstack *h, void *obj);
  1166. + #endif /* MSDOS */
  1167. + 
  1168. *** e:\tmp/RCSt1006154    Sat Oct 27 09:54:02 1990
  1169. --- macro.c    Sat Oct 27 09:36:54 1990
  1170. ***************
  1171. *** 16,21 ****
  1172. --- 16,34 ----
  1173.    * along with this program; if not, write to the Free Software
  1174.    * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  1175.    */
  1176. + 
  1177. + /*
  1178. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  1179. +  * This port is also distributed under the terms of the
  1180. +  * GNU General Public License as published by the
  1181. +  * Free Software Foundation.
  1182. +  *
  1183. +  * Please note that this file is not identical to the
  1184. +  * original GNU release, you should have received this
  1185. +  * code as patch to the official release.
  1186. +  *
  1187. +  * $Header: e:/gnu/m4/RCS/macro.c 0.5.1.0 90/09/28 18:35:07 tho Exp $
  1188. +  */
  1189.   
  1190.   /* 
  1191.    * This file contains the functions, that performs the basic argument
  1192. ***************
  1193. *** 24,31 ****
  1194. --- 37,52 ----
  1195.   
  1196.   #include "m4.h"
  1197.   
  1198. + #ifdef MSDOS
  1199. + static enum boolean expand_argument (struct obstack *obs,\
  1200. +                      struct token_data *argp);
  1201. + static void expand_macro (struct symbol *sym);
  1202. + static void expand_token (struct obstack *obs, enum token_type t,\
  1203. +               struct token_data *td);
  1204. + #else /* not MSDOS */
  1205.   static void expand_token();
  1206.   static void expand_macro();
  1207. + #endif /* not MSDOS */
  1208.   
  1209.   /* 
  1210.    * This function read all input, and expands each token, one at a time.
  1211. *** e:\tmp/RCSt1006154    Sat Oct 27 09:54:04 1990
  1212. --- obstack.c    Sat Oct 27 09:38:10 1990
  1213. ***************
  1214. *** 21,26 ****
  1215. --- 21,40 ----
  1216.   what you give them.   Help stamp out software-hoarding!  */
  1217.   
  1218.   
  1219. + /* MS-DOS port (c) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  1220. + 
  1221. + WARNING: This is still a beta version of the port, proper functioning
  1222. + with far pointers has not yet been verified completely.
  1223. + 
  1224. + This port is also distributed under the terms of the GNU General Public
  1225. + License as published by the Free Software Foundation.
  1226. + 
  1227. + Please note that this file is not identical to the original GNU release,
  1228. + you should have received this code as patch to the official release.
  1229. + 
  1230. + $Header: e:/gnu/m4/RCS/obstack.c 0.5.1.0 90/09/28 18:36:23 tho Exp $  */
  1231. + 
  1232. + 
  1233.   #include "obstack.h"
  1234.   
  1235.   #ifdef __STDC__
  1236. ***************
  1237. *** 29,34 ****
  1238. --- 43,64 ----
  1239.   #define POINTER char *
  1240.   #endif
  1241.   
  1242. + #ifdef MSDOS
  1243. + 
  1244. + #include <stdlib.h>
  1245. + #ifndef MALLOC_PAGE
  1246. + #define MALLOC_PAGE 0x0100
  1247. + #endif
  1248. + 
  1249. + void _obstack_begin (struct obstack *h, int size, int alignment, \
  1250. +              POINTER (*chunkfun) (SIZE_T size),\
  1251. +              void (*freefun) (char *p));
  1252. + void _obstack_newchunk (struct obstack *h, int length);
  1253. + int _obstack_allocated_p (struct obstack *h, POINTER obj);
  1254. + void _obstack_free (struct obstack *h, POINTER obj);
  1255. + 
  1256. + #endif /* MSDOS */
  1257. + 
  1258.   /* Determine default alignment.  */
  1259.   struct fooalign {char x; double d;};
  1260.   #define DEFAULT_ALIGNMENT ((char *)&((struct fooalign *) 0)->d - (char *)0)
  1261. ***************
  1262. *** 61,68 ****
  1263. --- 91,103 ----
  1264.        struct obstack *h;
  1265.        int size;
  1266.        int alignment;
  1267. + #ifdef MSDOS
  1268. +      POINTER (*chunkfun) (SIZE_T size);
  1269. +      void (*freefun) (char *p);
  1270. + #else /* not MSDOS */
  1271.        POINTER (*chunkfun) ();
  1272.        void (*freefun) ();
  1273. + #endif /* not MSDOS */
  1274.   {
  1275.     register struct _obstack_chunk* chunk; /* points to new chunk */
  1276.   
  1277. ***************
  1278. *** 76,90 ****
  1279. --- 111,134 ----
  1280.         int extra = 4;
  1281.         if (extra < DEFAULT_ROUNDING)
  1282.       extra = DEFAULT_ROUNDING;
  1283. + #ifdef MSDOS
  1284. +       size = MALLOC_PAGE - extra;
  1285. + #else /* not MSDOS */
  1286.         size = 4096 - extra;
  1287. + #endif /* not MSDOS */
  1288.       }
  1289.   
  1290. + #ifdef MSDOS
  1291. +   h->chunkfun = (struct _obstack_chunk * (*)(size_t size)) chunkfun;
  1292. + #else /* not MSDOS */
  1293.     h->chunkfun = (struct _obstack_chunk * (*)()) chunkfun;
  1294. + #endif /* not MSDOS */
  1295.     h->freefun = freefun;
  1296.     h->chunk_size = size;
  1297.     h->alignment_mask = alignment - 1;
  1298.   
  1299.     chunk    = h->chunk = (*h->chunkfun) (h->chunk_size);
  1300. + 
  1301.     h->next_free = h->object_base = chunk->contents;
  1302.     h->chunk_limit = chunk->limit
  1303.      = (char *) chunk + h->chunk_size;
  1304. ***************
  1305. *** 104,110 ****
  1306.   {
  1307.     register struct _obstack_chunk*    old_chunk = h->chunk;
  1308.     register struct _obstack_chunk*    new_chunk;
  1309. !   register long    new_size;
  1310.     register int obj_size = h->next_free - h->object_base;
  1311.     register int i;
  1312.   
  1313. --- 148,154 ----
  1314.   {
  1315.     register struct _obstack_chunk*    old_chunk = h->chunk;
  1316.     register struct _obstack_chunk*    new_chunk;
  1317. !   register SIZE_T new_size;
  1318.     register int obj_size = h->next_free - h->object_base;
  1319.     register int i;
  1320.   
  1321. ***************
  1322. *** 171,177 ****
  1323. --- 215,225 ----
  1324.     while (lp != 0 && ((POINTER)lp > obj || (POINTER)(lp)->limit < obj))
  1325.       {
  1326.         plp = lp -> prev;
  1327. + #ifdef MSDOS
  1328. +       (*h->freefun) ((char *)lp);
  1329. + #else /* not MSDOS */
  1330.         (*h->freefun) (lp);
  1331. + #endif /* not MSDOS */
  1332.         lp = plp;
  1333.       }
  1334.     if (lp)
  1335. *** e:\tmp/RCSt1006154    Sat Oct 27 09:54:06 1990
  1336. --- obstack.h    Sat Oct 27 09:33:16 1990
  1337. ***************
  1338. *** 21,26 ****
  1339. --- 21,40 ----
  1340.   what you give them.   Help stamp out software-hoarding!  */
  1341.   
  1342.   
  1343. + /* MS-DOS port (c) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  1344. + 
  1345. + WARNING: This is still a beta version of the port, proper functioning
  1346. + with far pointers has not yet been verified completely.
  1347. + 
  1348. + This port is also distributed under the terms of the GNU General Public
  1349. + License as published by the Free Software Foundation.
  1350. + 
  1351. + Please note that this file is not identical to the original GNU release,
  1352. + you should have received this code as patch to the official release.
  1353. + 
  1354. + $Header: e:/gnu/m4/RCS/obstack.h 0.5.1.0 90/09/28 18:36:25 tho Exp $  */
  1355. + 
  1356. + 
  1357.   /* Summary:
  1358.   
  1359.   All the apparent functions defined here are macros. The idea
  1360. ***************
  1361. *** 109,125 ****
  1362. --- 123,175 ----
  1363.   #ifndef __OBSTACKS__
  1364.   #define __OBSTACKS__
  1365.   
  1366. + #ifdef MSDOS
  1367. + #ifndef FILE
  1368. + #include <stdio.h>
  1369. + #endif
  1370. + #define temp16    tmp._16
  1371. + #define temp32    tmp._32
  1372. + #if defined(M_I86CM) || defined(M_I86LM)    /* Intel 80x86, _far pointers.  */
  1373. + #define LONG    long
  1374. + #define SIZE_T    size_t
  1375. + #define HUGE    _huge
  1376. + #define PDIFF(p1, p2) \
  1377. +   ((long)((char HUGE *) (p1) - (char HUGE *) (p2)))
  1378. + #else                        /* Intel 80x86, _near pointers.  */
  1379. + #define LONG    int
  1380. + #define SIZE_T    size_t
  1381. + #define HUGE
  1382. + #define PDIFF(p1, p2) ((char *) (p1) - (char *) (p2))
  1383. + #endif
  1384. + #else /* not MSDOS */                /* `real' computers ...  */
  1385. + #define temp16    temp
  1386. + #define temp32    temp
  1387. + #define LONG    int
  1388. + #define SIZE_T    long
  1389. + #define HUGE
  1390. + #define PDIFF(p1, p2) ((char *) (p1) - (char *) (p2))
  1391. + #endif /* not MSDOS */
  1392. + 
  1393. + 
  1394.   /* We use subtraction of (char *)0 instead of casting to int
  1395.      because on word-addressable machines a simple cast to int
  1396.      may ignore the byte-within-word field of the pointer.  */
  1397.   
  1398.   #ifndef __PTR_TO_INT
  1399. + #ifdef MSDOS
  1400. + #define __PTR_TO_INT(P) ((LONG)(P))
  1401. + #else
  1402.   #define __PTR_TO_INT(P) ((P) - (char *)0)
  1403.   #endif
  1404. + #endif
  1405.   
  1406.   #ifndef __INT_TO_PTR
  1407. + #ifdef MSDOS
  1408. + #define __INT_TO_PTR(P) ((char HUGE *)(P))
  1409. + #else
  1410.   #define __INT_TO_PTR(P) ((P) + (char *)0)
  1411.   #endif
  1412. + #endif
  1413.   
  1414.   struct _obstack_chunk        /* Lives at front of each chunk. */
  1415.   {
  1416. ***************
  1417. *** 130,144 ****
  1418.   
  1419.   struct obstack        /* control current object in current chunk */
  1420.   {
  1421. !   long    chunk_size;        /* preferred size to allocate chunks in */
  1422.     struct _obstack_chunk* chunk;    /* address of current struct obstack_chunk */
  1423.     char    *object_base;        /* address of object we are building */
  1424.     char    *next_free;        /* where to add next char to current object */
  1425.     char    *chunk_limit;        /* address of char after current chunk */
  1426.     int    temp;            /* Temporary for some macros.  */
  1427.     int   alignment_mask;        /* Mask of alignment for each object. */
  1428.     struct _obstack_chunk *(*chunkfun) (); /* User's fcn to allocate a chunk.  */
  1429.     void (*freefun) ();        /* User's function to free a chunk.  */
  1430.   };
  1431.   
  1432.   #ifdef __STDC__
  1433. --- 180,206 ----
  1434.   
  1435.   struct obstack        /* control current object in current chunk */
  1436.   {
  1437. !   SIZE_T chunk_size;        /* preferred size to allocate chunks in */
  1438.     struct _obstack_chunk* chunk;    /* address of current struct obstack_chunk */
  1439.     char    *object_base;        /* address of object we are building */
  1440.     char    *next_free;        /* where to add next char to current object */
  1441.     char    *chunk_limit;        /* address of char after current chunk */
  1442. + #ifdef MSDOS
  1443. +   union                /* Temporary for some macros.  */
  1444. +     {
  1445. +       LONG _32;            /* 32 bit for _far pointer differences */
  1446. +       size_t _16;        /* 16 bit for malloc()  */
  1447. +     } tmp;
  1448. +   LONG  alignment_mask;        /* Mask of alignment for each object. */
  1449. +   struct _obstack_chunk *(*chunkfun) (unsigned int size);
  1450. +                 /* User's fcn to allocate a chunk.  */
  1451. +   void (*freefun) (char *p);    /* User's function to free a chunk.  */
  1452. + #else /* not MSDOS */
  1453.     int temp;            /* Temporary for some macros.  */
  1454.     int alignment_mask;        /* Mask of alignment for each object. */
  1455.     struct _obstack_chunk *(*chunkfun) (); /* User's fcn to allocate a chunk.  */
  1456.     void (*freefun) ();        /* User's function to free a chunk.  */
  1457. + #endif /* not MSDOS */
  1458.   };
  1459.   
  1460.   #ifdef __STDC__
  1461. ***************
  1462. *** 299,334 ****
  1463.   extern struct obstack *_obstack;
  1464.   
  1465.   #define obstack_object_size(h) \
  1466. !  (unsigned) (_obstack = (h), (h)->next_free - (h)->object_base)
  1467.   
  1468.   #define obstack_room(h)        \
  1469. !  (unsigned) (_obstack = (h), (h)->chunk_limit - (h)->next_free)
  1470.   
  1471.   #define obstack_grow(h,where,length)                    \
  1472. ! ( (h)->temp = (length),                            \
  1473. !   (((h)->next_free + (h)->temp > (h)->chunk_limit)            \
  1474. !    ? _obstack_newchunk ((h), (h)->temp) : 0),                \
  1475. !   bcopy (where, (h)->next_free, (h)->temp),                \
  1476. !   (h)->next_free += (h)->temp)
  1477.   
  1478.   #define obstack_grow0(h,where,length)                    \
  1479. ! ( (h)->temp = (length),                            \
  1480. !   (((h)->next_free + (h)->temp + 1 > (h)->chunk_limit)            \
  1481. !    ? _obstack_newchunk ((h), (h)->temp + 1) : 0),                \
  1482. !   bcopy (where, (h)->next_free, (h)->temp),                \
  1483. !   (h)->next_free += (h)->temp,                        \
  1484.     *((h)->next_free)++ = 0)
  1485.   
  1486.   #define obstack_1grow(h,datum)                        \
  1487.   ( (((h)->next_free + 1 > (h)->chunk_limit)                \
  1488.      ? _obstack_newchunk ((h), 1) : 0),                    \
  1489. !   *((h)->next_free)++ = (datum))
  1490.   
  1491.   #define obstack_blank(h,length)                        \
  1492. ! ( (h)->temp = (length),                            \
  1493. !   (((h)->next_free + (h)->temp > (h)->chunk_limit)            \
  1494. !    ? _obstack_newchunk ((h), (h)->temp) : 0),                \
  1495. !   (h)->next_free += (h)->temp)
  1496.   
  1497.   #define obstack_alloc(h,length)                        \
  1498.    (obstack_blank ((h), (length)), obstack_finish ((h)))
  1499. --- 361,396 ----
  1500.   extern struct obstack *_obstack;
  1501.   
  1502.   #define obstack_object_size(h) \
  1503. !  (unsigned) (_obstack = (h), PDIFF ((h)->next_free, (h)->object_base))
  1504.   
  1505.   #define obstack_room(h)        \
  1506. !  (unsigned) (_obstack = (h), PDIFF ((h)->chunk_limit, (h)->next_free))
  1507.   
  1508.   #define obstack_grow(h,where,length)                    \
  1509. ! ( (h)->temp16 = (length),                        \
  1510. !   (((h)->next_free + (h)->temp16 > (h)->chunk_limit)            \
  1511. !    ? _obstack_newchunk ((h), (h)->temp16) : 0),                \
  1512. !   bcopy (where, (h)->next_free, (h)->temp16),                \
  1513. !   (h)->next_free += (h)->temp16)
  1514.   
  1515.   #define obstack_grow0(h,where,length)                    \
  1516. ! ( (h)->temp16 = (length),                        \
  1517. !   (((h)->next_free + (h)->temp16 + 1 > (h)->chunk_limit)        \
  1518. !    ? _obstack_newchunk ((h), (h)->temp16 + 1) : 0),            \
  1519. !   bcopy (where, (h)->next_free, (h)->temp16),                \
  1520. !   (h)->next_free += (h)->temp16,                    \
  1521.     *((h)->next_free)++ = 0)
  1522.   
  1523.   #define obstack_1grow(h,datum)                        \
  1524.   ( (((h)->next_free + 1 > (h)->chunk_limit)                \
  1525.      ? _obstack_newchunk ((h), 1) : 0),                    \
  1526. !   *((h)->next_free)++ = (char) (datum))
  1527.   
  1528.   #define obstack_blank(h,length)                        \
  1529. ! ( (h)->temp16 = (length),                        \
  1530. !   (((h)->next_free + (h)->temp16 > (h)->chunk_limit)            \
  1531. !    ? _obstack_newchunk ((h), (h)->temp16) : 0),                \
  1532. !   (h)->next_free += (h)->temp16)
  1533.   
  1534.   #define obstack_alloc(h,length)                        \
  1535.    (obstack_blank ((h), (length)), obstack_finish ((h)))
  1536. ***************
  1537. *** 340,372 ****
  1538.    (obstack_grow0 ((h), (where), (length)), obstack_finish ((h)))
  1539.   
  1540.   #define obstack_finish(h)                          \
  1541. ! ( (h)->temp = __PTR_TO_INT ((h)->object_base),                \
  1542.     (h)->next_free                            \
  1543.       = __INT_TO_PTR ((__PTR_TO_INT ((h)->next_free)+(h)->alignment_mask)    \
  1544.               & ~ ((h)->alignment_mask)),                \
  1545. !   (((h)->next_free - (char *)(h)->chunk                    \
  1546. !     > (h)->chunk_limit - (char *)(h)->chunk)                \
  1547.      ? ((h)->next_free = (h)->chunk_limit) : 0),                \
  1548.     (h)->object_base = (h)->next_free,                    \
  1549. !   __INT_TO_PTR ((h)->temp))
  1550.   
  1551.   #ifdef __STDC__
  1552.   #define obstack_free(h,obj)                        \
  1553. ! ( (h)->temp = (char *)(obj) - (char *) (h)->chunk,            \
  1554. !   (((h)->temp >= 0 && (h)->temp < (h)->chunk_limit - (char *) (h)->chunk)\
  1555.      ? (int) ((h)->next_free = (h)->object_base                \
  1556. !         = (h)->temp + (char *) (h)->chunk)                \
  1557. !    : ((obstack_free) ((h), (h)->temp + (char *) (h)->chunk), 0)))
  1558.   #else
  1559.   #define obstack_free(h,obj)                        \
  1560. ! ( (h)->temp = (char *)(obj) - (char *) (h)->chunk,            \
  1561. !   (((h)->temp >= 0 && (h)->temp < (h)->chunk_limit - (char *) (h)->chunk)\
  1562.      ? (int) ((h)->next_free = (h)->object_base                \
  1563. !         = (h)->temp + (char *) (h)->chunk)                \
  1564. !    : (int) _obstack_free ((h), (h)->temp + (char *) (h)->chunk)))
  1565.   #endif
  1566.   
  1567.   #endif /* not __GNUC__ or not __STDC__ */
  1568.   
  1569.   #endif /* not __OBSTACKS__ */
  1570.   
  1571. --- 402,460 ----
  1572.    (obstack_grow0 ((h), (where), (length)), obstack_finish ((h)))
  1573.   
  1574.   #define obstack_finish(h)                          \
  1575. ! ( (h)->temp32 = __PTR_TO_INT ((h)->object_base),            \
  1576.     (h)->next_free                            \
  1577.       = __INT_TO_PTR ((__PTR_TO_INT ((h)->next_free)+(h)->alignment_mask)    \
  1578.               & ~ ((h)->alignment_mask)),                \
  1579. !   ((PDIFF ((h)->next_free, (h)->chunk)                    \
  1580. !     > PDIFF ((h)->chunk_limit, (h)->chunk))                \
  1581.      ? ((h)->next_free = (h)->chunk_limit) : 0),                \
  1582.     (h)->object_base = (h)->next_free,                    \
  1583. !   __INT_TO_PTR ((h)->temp32))
  1584. ! 
  1585. ! 
  1586. ! #if defined(M_I86CM) || defined(M_I86LM)    /* Intel 80x86, far pointers.   */
  1587. ! 
  1588. ! /* We assume here that
  1589. ! 
  1590. !      (char *)(obj) ==
  1591. !     ((char *)(obj) - (char *) (h)->chunk) + (char *) (h)->chunk)
  1592. ! 
  1593. !    Which might be not true because of alignment (???), but this
  1594. !    avoids a pointer subtraction, which is always a problem in segmented
  1595. !    architecture .... */
  1596.   
  1597. + #define obstack_free(h,obj)                        \
  1598. + ( (h)->temp32 = PDIFF (obj, (h)->chunk),                \
  1599. +   (((h)->temp32 >= 0 && (h)->temp32                    \
  1600. +     < PDIFF ((h)->chunk_limit, (h)->chunk))                \
  1601. +    ? (LONG) ((h)->next_free = (h)->object_base = (char *) (obj))    \
  1602. +    : ((obstack_free) ((h), (char *) (obj)), 0)))
  1603. + 
  1604. + #else /* not  (M_I86CM || M_I86LM) */
  1605. + 
  1606.   #ifdef __STDC__
  1607.   #define obstack_free(h,obj)                        \
  1608. ! ( (h)->temp32 = PDIFF (obj, (h)->chunk),                \
  1609. !   (((h)->temp32 >= 0 && (h)->temp32                    \
  1610. !     < PDIFF ((h)->chunk_limit, (h)->chunk))                \
  1611.      ? (int) ((h)->next_free = (h)->object_base                \
  1612. !         = (h)->temp32 + (char HUGE *) (h)->chunk)            \
  1613. !    : ((obstack_free) ((h), (h)->temp32 + (char HUGE *) (h)->chunk), 0)))
  1614.   #else
  1615.   #define obstack_free(h,obj)                        \
  1616. ! ( (h)->temp32 = (char *)(obj) - (char *) (h)->chunk,            \
  1617. !   (((h)->temp32 >= 0 && (h)->temp32                    \
  1618. !     < (h)->chunk_limit - (char *) (h)->chunk)                \
  1619.      ? (int) ((h)->next_free = (h)->object_base                \
  1620. !         = (h)->temp32 + (char *) (h)->chunk)            \
  1621. !    : (int) _obstack_free ((h), (h)->temp32 + (char *) (h)->chunk)))
  1622.   #endif
  1623.   
  1624. + #endif /* not  (M_I86CM || M_I86LM) */
  1625. + 
  1626.   #endif /* not __GNUC__ or not __STDC__ */
  1627.   
  1628.   #endif /* not __OBSTACKS__ */
  1629. + 
  1630.   
  1631. *** e:\tmp/RCSt1006154    Sat Oct 27 09:54:08 1990
  1632. --- output.c    Sat Oct 27 09:34:26 1990
  1633. ***************
  1634. *** 16,24 ****
  1635. --- 16,43 ----
  1636.    * along with this program; if not, write to the Free Software
  1637.    * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  1638.    */
  1639. + 
  1640. + /*
  1641. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  1642. +  * This port is also distributed under the terms of the
  1643. +  * GNU General Public License as published by the
  1644. +  * Free Software Foundation.
  1645. +  *
  1646. +  * Please note that this file is not identical to the
  1647. +  * original GNU release, you should have received this
  1648. +  * code as patch to the official release.
  1649. +  *
  1650. +  * $Header: e:/gnu/m4/RCS/output.c 0.5.1.0 90/09/28 18:36:42 tho Exp $
  1651. +  */
  1652.   
  1653.   #include "m4.h"
  1654.   
  1655. + #ifdef MSDOS
  1656. + #include <io.h>
  1657. + #include <malloc.h>
  1658. + int mkstemp (char *tmpl);
  1659. + #endif /* MSDOS */
  1660. + 
  1661.   /* 
  1662.    * Output functions.  Most of the complexity is for handling cpp like
  1663.    * sync lines.
  1664. ***************
  1665. *** 152,157 ****
  1666. --- 171,182 ----
  1667.   }
  1668.   #endif /* USG */
  1669.   
  1670. + 
  1671. + #ifdef MSDOS
  1672. + char template_base[] = "/m4%02dXXXXXX";
  1673. + char *template;
  1674. + #endif /* MSDOS */
  1675. + 
  1676.   /* 
  1677.    * Make a file for diversion DIVNUM, and install it in the diversion
  1678.    * table "divtab".  The file is opened read-write, so we can unlink it
  1679. ***************
  1680. *** 173,179 ****
  1681. --- 198,227 ----
  1682.       }
  1683.   
  1684.       if (divtab[divnum] == nil) {
  1685. + #ifdef MSDOS
  1686. +       {
  1687. +         char *p;
  1688. + 
  1689. +         if ((p = getenv ("TMP")) || (p = getenv ("TEMP")))
  1690. +           {
  1691. +         int len = strlen (p);
  1692. +         template = (char *) alloca (sizeof (template_base) + len + 1);
  1693. +         strcpy (template, p);
  1694. +         p = template + len - 1;
  1695. +         if (*p == '/' || *p == '\\')    /*  strip trailing slash */
  1696. +           *p = '\0';
  1697. +           }
  1698. +         else
  1699. +           {
  1700. +         template = (char *) alloca (sizeof (template_base) + 2);
  1701. +         strcpy (template, ".");
  1702. +           }
  1703. +         strcat (template, template_base);
  1704. +       }
  1705. +         sprintf(buf, template, divnum);
  1706. + #else /* not MSDOS */
  1707.       sprintf(buf, "/tmp/m4.%02d.XXXXXX", divnum);
  1708. + #endif /* not MSDOS */
  1709.       fd = mkstemp(buf);
  1710.       if (fd < 0)
  1711.           fatal("can't create file for diversion: %s", syserr());
  1712. *** e:\tmp/RCSt1006154    Sat Oct 27 09:54:10 1990
  1713. --- symtab.c    Sat Oct 27 09:34:48 1990
  1714. ***************
  1715. *** 16,21 ****
  1716. --- 16,34 ----
  1717.    * along with this program; if not, write to the Free Software
  1718.    * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  1719.    */
  1720. + 
  1721. + /*
  1722. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  1723. +  * This port is also distributed under the terms of the
  1724. +  * GNU General Public License as published by the
  1725. +  * Free Software Foundation.
  1726. +  *
  1727. +  * Please note that this file is not identical to the
  1728. +  * original GNU release, you should have received this
  1729. +  * code as patch to the official release.
  1730. +  *
  1731. +  * $Header: e:/gnu/m4/RCS/symtab.c 0.5.1.0 90/09/28 18:36:45 tho Exp $
  1732. +  */
  1733.   
  1734.   /* 
  1735.    * This file handles all the low level work around the symbol table.
  1736. ***************
  1737. *** 31,36 ****
  1738. --- 44,54 ----
  1739.    * The current definition will then always be the first found.
  1740.    */
  1741.   #include "m4.h"
  1742. + 
  1743. + #ifdef MSDOS
  1744. + static int hash (char *s);
  1745. + static void free_symbol (struct symbol *sym);
  1746. + #endif /* MSDOS */
  1747.   
  1748.   /* 
  1749.    * Initialise the symbol table, by allocating the necessary storage, and
  1750.