home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / flex-2.4.7-src.lha / GNU / src / amiga / flex-2.4.7 / MISC / Think-C / Think-C.diffs < prev   
Encoding:
Text File  |  1992-01-28  |  29.2 KB  |  1,284 lines
  1. Common subdirectories: Release-2.3/latest/MISC and Think-C/MISC
  2. Only in Think-C: MakeRes.c
  3. diff -wrc Release-2.3/latest/Makefile Think-C/Makefile
  4. *** Release-2.3/latest/Makefile    Wed Jun 27 21:44:07 1990
  5. --- Think-C/Makefile    Tue Jan 28 02:52:35 1992
  6. ***************
  7. *** 40,50 ****
  8.   # Raw, unformatted troff source will be installed if INSTALLMAN=man, nroff
  9.   # preformatted versions will be installed if INSTALLMAN=cat.
  10.   DESTDIR =
  11. ! BINDIR = /usr/local
  12. ! LIBDIR = /usr/local/lib
  13. ! AUXDIR = /usr/local/lib
  14. ! MANDIR = /usr/man/manl
  15. ! MANEXT = l
  16.   INSTALLMAN = man
  17.   
  18.   # MAKE = make
  19. --- 40,50 ----
  20.   # Raw, unformatted troff source will be installed if INSTALLMAN=man, nroff
  21.   # preformatted versions will be installed if INSTALLMAN=cat.
  22.   DESTDIR =
  23. ! BINDIR = /local/share.sun4.emil/bin
  24. ! LIBDIR = /local/share.sun4.emil/lib/flex
  25. ! AUXDIR = /local/share.sun4.emil/lib/flex
  26. ! MANDIR = /local/share.emil/man/man1
  27. ! MANEXT = 1
  28.   INSTALLMAN = man
  29.   
  30.   # MAKE = make
  31. Only in Think-C: Makefile.ORG
  32. Only in Think-C: Makefile~
  33. Only in Think-C: THINK_C_Projects_etc.hqx
  34. Only in Think-C: THINK_C_notes
  35. diff -wrc Release-2.3/latest/ccl.c Think-C/ccl.c
  36. *** Release-2.3/latest/ccl.c    Wed Jun 27 21:44:07 1990
  37. --- Think-C/ccl.c    Tue Jan 28 02:51:57 1992
  38. ***************
  39. *** 80,86 ****
  40.    *    new_ccl = cclinit();
  41.    */
  42.   
  43. ! int cclinit()
  44.   
  45.       {
  46.       if ( ++lastccl >= current_maxccls )
  47. --- 80,86 ----
  48.    *    new_ccl = cclinit();
  49.    */
  50.   
  51. ! int cclinit(void)
  52.   
  53.       {
  54.       if ( ++lastccl >= current_maxccls )
  55. ***************
  56. *** 165,171 ****
  57.   
  58.           if ( i - 1 > start_char )
  59.           /* this was a run */
  60. !         fprintf( file, "-%s", readable_form( i - 1 ) );
  61.   
  62.           putc( ' ', file );
  63.           }
  64. --- 165,171 ----
  65.   
  66.           if ( i - 1 > start_char )
  67.           /* this was a run */
  68. !         fprintf( file, "-%s", ( i - 1 ) );
  69.   
  70.           putc( ' ', file );
  71.           }
  72. diff -wrc Release-2.3/latest/dfa.c Think-C/dfa.c
  73. *** Release-2.3/latest/dfa.c    Wed Jun 27 21:44:08 1990
  74. --- Think-C/dfa.c    Tue Jan 28 02:52:04 1992
  75. ***************
  76. *** 40,45 ****
  77. --- 40,46 ----
  78.   void dump_transitions PROTO((FILE*, int[]));
  79.   void sympartition PROTO((int[], int, int[], int[]));
  80.   int symfollowset PROTO((int[], int, int, int[]));
  81. + int snstods PROTO((int sns[], int numstates, int accset[], int nacc, int hashval, int *newds_addr));
  82.   
  83.   
  84.   /* check_for_backtracking - check a DFA state for backtracking
  85. ***************
  86. *** 53,59 ****
  87.    * associated with this state
  88.    */
  89.   
  90. ! void check_for_backtracking( ds, state )
  91.   int ds;
  92.   int state[];
  93.   
  94. --- 54,60 ----
  95.    * associated with this state
  96.    */
  97.   
  98. ! static void check_for_backtracking( ds, state )
  99.   int ds;
  100.   int state[];
  101.   
  102. ***************
  103. *** 100,106 ****
  104.    *    accset[1 .. nacc] is the list of accepting numbers for the DFA state.
  105.    */
  106.   
  107. ! void check_trailing_context( nfa_states, num_states, accset, nacc )
  108.   int *nfa_states, num_states;
  109.   int *accset;
  110.   register int nacc;
  111. --- 101,107 ----
  112.    *    accset[1 .. nacc] is the list of accepting numbers for the DFA state.
  113.    */
  114.   
  115. ! static void check_trailing_context( nfa_states, num_states, accset, nacc )
  116.   int *nfa_states, num_states;
  117.   int *accset;
  118.   register int nacc;
  119. ***************
  120. *** 256,262 ****
  121.    *    hashval is the hash value for the dfa corresponding to the state set
  122.    */
  123.   
  124. ! int *epsclosure( t, ns_addr, accset, nacc_addr, hv_addr )
  125.   int *t, *ns_addr, accset[], *nacc_addr, *hv_addr;
  126.   
  127.       {
  128. --- 257,263 ----
  129.    *    hashval is the hash value for the dfa corresponding to the state set
  130.    */
  131.   
  132. ! static int *epsclosure( t, ns_addr, accset, nacc_addr, hv_addr )
  133.   int *t, *ns_addr, accset[], *nacc_addr, *hv_addr;
  134.   
  135.       {
  136. ***************
  137. *** 408,414 ****
  138.    *  dfa starts out in state #1.
  139.    */
  140.   
  141. ! void ntod()
  142.   
  143.       {
  144.       int *accset, ds, nacc, newds;
  145. --- 409,415 ----
  146.    *  dfa starts out in state #1.
  147.    */
  148.   
  149. ! void ntod(void)
  150.   
  151.       {
  152.       int *accset, ds, nacc, newds;
  153. ***************
  154. *** 416,422 ****
  155.       int num_full_table_rows;    /* used only for -f */
  156.       int *nset, *dset;
  157.       int targptr, totaltrans, i, comstate, comfreq, targ;
  158. !     int *epsclosure(), snstods(), symlist[CSIZE + 1];
  159.       int num_start_states;
  160.       int todo_head, todo_next;
  161.   
  162. --- 417,423 ----
  163.       int num_full_table_rows;    /* used only for -f */
  164.       int *nset, *dset;
  165.       int targptr, totaltrans, i, comstate, comfreq, targ;
  166. !     int symlist[CSIZE + 1];
  167.       int num_start_states;
  168.       int todo_head, todo_next;
  169.   
  170. diff -wrc Release-2.3/latest/ecs.c Think-C/ecs.c
  171. *** Release-2.3/latest/ecs.c    Wed Jun 27 21:44:08 1990
  172. --- Think-C/ecs.c    Tue Jan 28 02:52:06 1992
  173. ***************
  174. *** 39,45 ****
  175.    *    ccl2ecl();
  176.    */
  177.   
  178. ! void ccl2ecl()
  179.   
  180.       {
  181.       int i, ich, newlen, cclp, ccls, cclmec;
  182. --- 39,45 ----
  183.    *    ccl2ecl();
  184.    */
  185.   
  186. ! void ccl2ecl(void)
  187.   
  188.       {
  189.       int i, ich, newlen, cclp, ccls, cclmec;
  190. diff -wrc Release-2.3/latest/flex.skel Think-C/flex.skel
  191. *** Release-2.3/latest/flex.skel    Thu Aug 30 12:53:49 1990
  192. --- Think-C/flex.skel    Tue Jan 28 02:52:12 1992
  193. ***************
  194. *** 17,22 ****
  195. --- 17,30 ----
  196.   #endif
  197.   
  198.   
  199. + /* THINK C has ANSI C libraries. */
  200. + #ifdef THINK_C
  201. + #ifndef __STDC__
  202. + #define __STDC__
  203. + #endif
  204. + #endif
  205. + 
  206. + 
  207.   #ifdef __cplusplus
  208.   
  209.   #include <stdlib.h>
  210. ***************
  211. *** 42,47 ****
  212. --- 50,61 ----
  213.   
  214.   #define YY_USE_PROTOS
  215.   #define YY_USE_CONST
  216. + /* THINK C  version 4 cannot handle const declarations. */
  217. + #ifdef THINK_C
  218. + #if THINK_C == 1
  219. + #undef YY_USE_CONST
  220. + #endif
  221. + #endif
  222.   
  223.   #endif    /* __STDC__ */
  224.   #endif    /* ! __cplusplus */
  225. ***************
  226. *** 90,98 ****
  227. --- 104,118 ----
  228.   /* gets input and stuffs it into "buf".  number of characters read, or YY_NULL,
  229.    * is returned in "result".
  230.    */
  231. + #ifdef THINK_C
  232.   #define YY_INPUT(buf,result,max_size) \
  233. +     if ( (result = fread( (char *) buf, 1, max_size, yyin )) < 0 ) \
  234. +         YY_FATAL_ERROR( "fread() in flex scanner failed" );
  235. + #else
  236. + #define YY_INPUT(buf,result,max_size) \
  237.       if ( (result = read( fileno(yyin), (char *) buf, max_size )) < 0 ) \
  238.           YY_FATAL_ERROR( "read() in flex scanner failed" );
  239. + #endif
  240.   #define YY_NULL 0
  241.   
  242.   /* no semi-colon after return; correct usage is to write "yyterminate();" -
  243. diff -wrc Release-2.3/latest/flexdef.h Think-C/flexdef.h
  244. *** Release-2.3/latest/flexdef.h    Thu Aug 30 12:53:50 1990
  245. --- Think-C/flexdef.h    Tue Jan 28 02:52:15 1992
  246. ***************
  247. *** 45,52 ****
  248. --- 45,56 ----
  249.   
  250.   /* size of input alphabet - should be size of ASCII set */
  251.   #ifndef DEFAULT_CSIZE
  252. + #ifdef THINK_C
  253. + #define DEFAULT_CSIZE 256
  254. + #else
  255.   #define DEFAULT_CSIZE 128
  256.   #endif
  257. + #endif
  258.   
  259.   #ifndef PROTO
  260.   #ifdef __STDC__
  261. ***************
  262. *** 56,66 ****
  263. --- 60,80 ----
  264.   #endif
  265.   #endif
  266.   
  267. + #ifndef __STDC__
  268. + #define size_t int
  269. + #endif
  270.   
  271.   #ifdef USG
  272.   #define SYS_V
  273.   #endif
  274.   
  275. + #ifdef THINK_C
  276. + #ifndef __STDC__
  277. + #define __STDC__
  278. + #endif
  279. + #define SYS_V
  280. + #endif
  281. + 
  282.   #ifdef SYS_V
  283.   #include <string.h>
  284.   #else
  285. ***************
  286. *** 333,339 ****
  287. --- 347,362 ----
  288.       int int_val;
  289.       } ;
  290.   
  291. + #ifdef THINK_C
  292. + /* Necessary in THINK C version 4? */
  293. + #if THINK_C == 1
  294. + typedef struct hash_entry **hash_table;
  295. + #else
  296.   typedef struct hash_entry *hash_table[];
  297. + #endif
  298. + #else
  299. + typedef struct hash_entry *hash_table[];
  300. + #endif
  301.   
  302.   #define NAME_TABLE_HASH_SIZE 101
  303.   #define START_COND_HASH_SIZE 101
  304. ***************
  305. *** 621,627 ****
  306.   extern int tmpuses, totnst, peakpairs, numuniq, numdup, hshsave;
  307.   extern int num_backtracking, bol_needed;
  308.   
  309. ! void *allocate_array(), *reallocate_array();
  310.   
  311.   #define allocate_integer_array(size) \
  312.       (int *) allocate_array( size, sizeof( int ) )
  313. --- 644,651 ----
  314.   extern int tmpuses, totnst, peakpairs, numuniq, numdup, hshsave;
  315.   extern int num_backtracking, bol_needed;
  316.   
  317. ! void *allocate_array(int size, size_t element_size),
  318. !      *reallocate_array(void *array, int size, size_t element_size);
  319.   
  320.   #define allocate_integer_array(size) \
  321.       (int *) allocate_array( size, sizeof( int ) )
  322. ***************
  323. *** 668,674 ****
  324.   /* from file ccl.c */
  325.   
  326.   extern void ccladd PROTO((int, int));    /* Add a single character to a ccl */
  327. ! extern int cclinit PROTO(());    /* make an empty ccl */
  328.   extern void cclnegate PROTO((int));    /* negate a ccl */
  329.   
  330.   /* list the members of a set of characters in CCL form */
  331. --- 692,698 ----
  332.   /* from file ccl.c */
  333.   
  334.   extern void ccladd PROTO((int, int));    /* Add a single character to a ccl */
  335. ! extern int cclinit PROTO((void));    /* make an empty ccl */
  336.   extern void cclnegate PROTO((int));    /* negate a ccl */
  337.   
  338.   /* list the members of a set of characters in CCL form */
  339. ***************
  340. *** 678,692 ****
  341.   /* from file dfa.c */
  342.   
  343.   /* increase the maximum number of dfas */
  344. ! extern void increase_max_dfas PROTO(());
  345.   
  346. ! extern void ntod PROTO(());    /* convert a ndfa to a dfa */
  347.   
  348.   
  349.   /* from file ecs.c */
  350.   
  351.   /* convert character classes to set of equivalence classes */
  352. ! extern void ccl2ecl PROTO(());
  353.   
  354.   /* associate equivalence class numbers with class members */
  355.   extern int cre8ecs PROTO((int[], int[], int));
  356. --- 702,716 ----
  357.   /* from file dfa.c */
  358.   
  359.   /* increase the maximum number of dfas */
  360. ! extern void increase_max_dfas PROTO((void));
  361.   
  362. ! extern void ntod PROTO((void));    /* convert a ndfa to a dfa */
  363.   
  364.   
  365.   /* from file ecs.c */
  366.   
  367.   /* convert character classes to set of equivalence classes */
  368. ! extern void ccl2ecl PROTO((void));
  369.   
  370.   /* associate equivalence class numbers with class members */
  371.   extern int cre8ecs PROTO((int[], int[], int));
  372. ***************
  373. *** 703,711 ****
  374.   
  375.   /* from file gen.c */
  376.   
  377. ! extern void make_tables PROTO(());    /* generate transition tables */
  378.   
  379.   
  380.   /* from file main.c */
  381.   
  382.   extern void flexend PROTO((int));
  383. --- 727,743 ----
  384.   
  385.   /* from file gen.c */
  386.   
  387. ! extern void make_tables PROTO((void));    /* generate transition tables */
  388.   
  389.   
  390. + /* from file macutils.c */
  391. + 
  392. + #ifdef THINK_C
  393. + /* load a static table from the current resource file */
  394. + extern short int *load_table (int id);
  395. + #endif
  396. + 
  397. + 
  398.   /* from file main.c */
  399.   
  400.   extern void flexend PROTO((int));
  401. ***************
  402. *** 714,720 ****
  403.   /* from file misc.c */
  404.   
  405.   /* write out the actions from the temporary file to lex.yy.c */
  406. ! extern void action_out PROTO(());
  407.   
  408.   /* true if a string is all lower case */
  409.   extern int all_lower PROTO((register Char *));
  410. --- 746,752 ----
  411.   /* from file misc.c */
  412.   
  413.   /* write out the actions from the temporary file to lex.yy.c */
  414. ! extern void action_out PROTO((void));
  415.   
  416.   /* true if a string is all lower case */
  417.   extern int all_lower PROTO((register Char *));
  418. ***************
  419. *** 725,735 ****
  420.   /* bubble sort an integer array */
  421.   extern void bubble PROTO((int [], int));
  422.   
  423.   /* shell sort a character array */
  424.   extern void cshell PROTO((Char [], int, int));
  425.   
  426. ! extern void dataend PROTO(());    /* finish up a block of data declarations */
  427.   
  428.   /* report an error message and terminate */
  429.   extern void flexerror PROTO((char[]));
  430.   
  431. --- 757,779 ----
  432.   /* bubble sort an integer array */
  433.   extern void bubble PROTO((int [], int));
  434.   
  435. + /* replace upper-case letter to lower-case */
  436. + extern Char clower PROTO((int c));
  437. + 
  438. + /* returns a dynamically allocated copy of a string */
  439. + char *copy_string PROTO((char *str));
  440. + 
  441. + /* returns a dynamically allocated copy of a (potentially) unsigned string */
  442. + extern Char *copy_unsigned_string PROTO((Char *str));
  443. + 
  444.   /* shell sort a character array */
  445.   extern void cshell PROTO((Char [], int, int));
  446.   
  447. ! extern void dataend PROTO((void));    /* finish up a block of data declarations */
  448.   
  449. + /* return character corresponding to escape sequence */
  450. + Char myesc PROTO((Char array[]));
  451. + 
  452.   /* report an error message and terminate */
  453.   extern void flexerror PROTO((char[]));
  454.   
  455. ***************
  456. *** 736,741 ****
  457. --- 780,788 ----
  458.   /* report a fatal error message and terminate */
  459.   extern void flexfatal PROTO((char[]));
  460.   
  461. + /* return current time */
  462. + extern char *flex_gettime PROTO((void));
  463. + 
  464.   /* report an error message formatted with one integer argument */
  465.   extern void lerrif PROTO((char[], int));
  466.   
  467. ***************
  468. *** 753,760 ****
  469.   /* return the integer represented by a string of digits */
  470.   extern int myctoi PROTO((Char []));
  471.   
  472.   /* write out one section of the skeleton file */
  473. ! extern void skelout PROTO(());
  474.   
  475.   /* output a yy_trans_info structure */
  476.   extern void transition_struct_out PROTO((int, int));
  477. --- 800,810 ----
  478.   /* return the integer represented by a string of digits */
  479.   extern int myctoi PROTO((Char []));
  480.   
  481. + /* readable_form - return the the human-readable form of a character */
  482. + extern char *readable_form PROTO((int c));
  483. + 
  484.   /* write out one section of the skeleton file */
  485. ! extern void skelout PROTO((void));
  486.   
  487.   /* output a yy_trans_info structure */
  488.   extern void transition_struct_out PROTO((int, int));
  489. ***************
  490. *** 799,805 ****
  491.   /* create a state with a transition on a given symbol */
  492.   extern int mkstate PROTO((int));
  493.   
  494. ! extern void new_rule PROTO(());    /* initialize for a new rule */
  495.   
  496.   
  497.   /* from file parse.y */
  498. --- 849,855 ----
  499.   /* create a state with a transition on a given symbol */
  500.   extern int mkstate PROTO((int));
  501.   
  502. ! extern void new_rule PROTO((void));    /* initialize for a new rule */
  503.   
  504.   
  505.   /* from file parse.y */
  506. ***************
  507. *** 811,827 ****
  508.   extern void pinpoint_message PROTO((char[]));
  509.   
  510.   extern void synerr PROTO((char []));    /* report a syntax error */
  511. ! extern int yyparse PROTO(());    /* the YACC parser */
  512.   
  513.   
  514.   /* from file scan.l */
  515.   
  516. ! extern int flexscan PROTO(());    /* the Flex-generated scanner for flex */
  517.   
  518.   /* open the given file (if NULL, stdin) for scanning */
  519.   extern void set_input_file PROTO((char*));
  520.   
  521. ! extern int yywrap PROTO(());    /* wrapup a file in the lexical analyzer */
  522.   
  523.   
  524.   /* from file sym.c */
  525. --- 861,877 ----
  526.   extern void pinpoint_message PROTO((char[]));
  527.   
  528.   extern void synerr PROTO((char []));    /* report a syntax error */
  529. ! extern int yyparse PROTO((void));    /* the YACC parser */
  530.   
  531.   
  532.   /* from file scan.l */
  533.   
  534. ! extern int flexscan PROTO((void));    /* the Flex-generated scanner for flex */
  535.   
  536.   /* open the given file (if NULL, stdin) for scanning */
  537.   extern void set_input_file PROTO((char*));
  538.   
  539. ! extern int yywrap PROTO((void));    /* wrapup a file in the lexical analyzer */
  540.   
  541.   
  542.   /* from file sym.c */
  543. ***************
  544. *** 832,837 ****
  545. --- 882,890 ----
  546.   /* lookup the number associated with character class */
  547.   extern int ccllookup PROTO((Char []));
  548.   
  549. + /* lookup a name definition */
  550. + extern Char *ndlookup PROTO((char nd[]));
  551. + 
  552.   extern void ndinstal PROTO((char[], Char[]));    /* install a name definition */
  553.   extern void scinstal PROTO((char[], int));    /* make a start condition */
  554.   
  555. ***************
  556. *** 844,852 ****
  557.   /* build table entries for dfa state */
  558.   extern void bldtbl PROTO((int[], int, int, int, int));
  559.   
  560. ! extern void cmptmps PROTO(());    /* compress template table entries */
  561. ! extern void inittbl PROTO(());    /* initialize transition tables */
  562. ! extern void mkdeftbl PROTO(());    /* make the default, "jam" table entries */
  563.   
  564.   /* create table entries for a state (or state fragment) which has
  565.    * only one out-transition */
  566. --- 897,905 ----
  567.   /* build table entries for dfa state */
  568.   extern void bldtbl PROTO((int[], int, int, int, int));
  569.   
  570. ! extern void cmptmps PROTO((void));    /* compress template table entries */
  571. ! extern void inittbl PROTO((void));    /* initialize transition tables */
  572. ! extern void mkdeftbl PROTO((void));    /* make the default, "jam" table entries */
  573.   
  574.   /* create table entries for a state (or state fragment) which has
  575.    * only one out-transition */
  576. ***************
  577. *** 861,871 ****
  578.   
  579.   /* from file yylex.c */
  580.   
  581. ! extern int yylex PROTO(());
  582.   
  583.   
  584.   /* The Unix kernel calls used here */
  585.   
  586.   extern int read PROTO((int, char*, int));
  587. - extern int unlink PROTO((char*));
  588.   extern int write PROTO((int, char*, int));
  589. --- 914,929 ----
  590.   
  591.   /* from file yylex.c */
  592.   
  593. ! extern int yylex PROTO((void));
  594.   
  595.   
  596.   /* The Unix kernel calls used here */
  597.   
  598.   extern int read PROTO((int, char*, int));
  599.   extern int write PROTO((int, char*, int));
  600. + 
  601. + #ifdef THINK_C
  602. + #define unlink remove
  603. + #else
  604. + extern int unlink PROTO((char*));
  605. + #endif
  606. diff -wrc Release-2.3/latest/gen.c Think-C/gen.c
  607. *** Release-2.3/latest/gen.c    Thu Mar 28 12:04:16 1991
  608. --- Think-C/gen.c    Tue Jan 28 02:52:21 1992
  609. ***************
  610. *** 37,43 ****
  611.   /* declare functions that have forward references */
  612.   
  613.   void gen_next_state PROTO((int));
  614. ! void genecs PROTO(());
  615.   void indent_put2s PROTO((char [], char []));
  616.   void indent_puts PROTO((char []));
  617.   
  618. --- 37,43 ----
  619.   /* declare functions that have forward references */
  620.   
  621.   void gen_next_state PROTO((int));
  622. ! void genecs PROTO((void));
  623.   void indent_put2s PROTO((char [], char []));
  624.   void indent_puts PROTO((char []));
  625.   
  626. ***************
  627. *** 59,65 ****
  628.   
  629.   /* indent to the current level */
  630.   
  631. ! void do_indent()
  632.   
  633.       {
  634.       register int i = indent_level * 4;
  635. --- 59,65 ----
  636.   
  637.   /* indent to the current level */
  638.   
  639. ! static void do_indent(void)
  640.   
  641.       {
  642.       register int i = indent_level * 4;
  643. ***************
  644. *** 80,86 ****
  645.   
  646.   /* generate the code to keep backtracking information */
  647.   
  648. ! void gen_backtracking()
  649.   
  650.       {
  651.       if ( reject || num_backtracking == 0 )
  652. --- 80,86 ----
  653.   
  654.   /* generate the code to keep backtracking information */
  655.   
  656. ! static void gen_backtracking(void)
  657.   
  658.       {
  659.       if ( reject || num_backtracking == 0 )
  660. ***************
  661. *** 102,108 ****
  662.   
  663.   /* generate the code to perform the backtrack */
  664.   
  665. ! void gen_bt_action()
  666.   
  667.       {
  668.       if ( reject || num_backtracking == 0 )
  669. --- 102,108 ----
  670.   
  671.   /* generate the code to perform the backtrack */
  672.   
  673. ! static void gen_bt_action(void )
  674.   
  675.       {
  676.       if ( reject || num_backtracking == 0 )
  677. ***************
  678. *** 136,142 ****
  679.    *     genctbl();
  680.    */
  681.   
  682. ! void genctbl()
  683.   
  684.       {
  685.       register int i;
  686. --- 136,142 ----
  687.    *     genctbl();
  688.    */
  689.   
  690. ! static void genctbl(void)
  691.   
  692.       {
  693.       register int i;
  694. ***************
  695. *** 270,276 ****
  696.   
  697.   /* generate the code to find the action number */
  698.   
  699. ! void gen_find_action()
  700.   
  701.       {
  702.       if ( fullspd )
  703. --- 270,276 ----
  704.   
  705.   /* generate the code to find the action number */
  706.   
  707. ! static void gen_find_action(void)
  708.   
  709.       {
  710.       if ( fullspd )
  711. ***************
  712. *** 391,397 ****
  713.    *     genftbl();
  714.    */
  715.   
  716. ! void genftbl()
  717.   
  718.       {
  719.       register int i;
  720. --- 391,397 ----
  721.    *     genftbl();
  722.    */
  723.   
  724. ! static void genftbl(void)
  725.   
  726.       {
  727.       register int i;
  728. ***************
  729. *** 425,431 ****
  730.   
  731.   /* generate the code to find the next compressed-table state */
  732.   
  733. ! void gen_next_compressed_state( char_map )
  734.   char *char_map;
  735.   
  736.       {
  737. --- 425,431 ----
  738.   
  739.   /* generate the code to find the next compressed-table state */
  740.   
  741. ! static void gen_next_compressed_state( char_map )
  742.   char *char_map;
  743.   
  744.       {
  745. ***************
  746. *** 471,477 ****
  747.   
  748.   /* generate the code to find the next match */
  749.   
  750. ! void gen_next_match()
  751.   
  752.       {
  753.       /* NOTE - changes in here should be reflected in gen_next_state() and
  754. --- 471,477 ----
  755.   
  756.   /* generate the code to find the next match */
  757.   
  758. ! static void gen_next_match(void)
  759.   
  760.       {
  761.       /* NOTE - changes in here should be reflected in gen_next_state() and
  762. ***************
  763. *** 626,632 ****
  764.   
  765.   /* generate the code to make a NUL transition */
  766.   
  767. ! void gen_NUL_trans()
  768.   
  769.       { /* NOTE - changes in here should be reflected in get_next_match() */
  770.       int need_backtracking = (num_backtracking > 0 && ! reject);
  771. --- 626,632 ----
  772.   
  773.   /* generate the code to make a NUL transition */
  774.   
  775. ! static void gen_NUL_trans(void)
  776.   
  777.       { /* NOTE - changes in here should be reflected in get_next_match() */
  778.       int need_backtracking = (num_backtracking > 0 && ! reject);
  779. ***************
  780. *** 702,708 ****
  781.   
  782.   /* generate the code to find the start state */
  783.   
  784. ! void gen_start_state()
  785.   
  786.       {
  787.       if ( fullspd )
  788. --- 702,708 ----
  789.   
  790.   /* generate the code to find the start state */
  791.   
  792. ! static void gen_start_state(void)
  793.   
  794.       {
  795.       if ( fullspd )
  796. ***************
  797. *** 737,743 ****
  798.    *    gentabs();
  799.    */
  800.   
  801. ! void gentabs()
  802.   
  803.       {
  804.       int i, j, k, *accset, nacc, *acc_array, total_states;
  805. --- 737,743 ----
  806.    *    gentabs();
  807.    */
  808.   
  809. ! static void gentabs(void)
  810.   
  811.       {
  812.       int i, j, k, *accset, nacc, *acc_array, total_states;
  813. ***************
  814. *** 1007,1013 ****
  815.    * Generates transition tables and finishes generating output file
  816.    */
  817.   
  818. ! void make_tables()
  819.   
  820.       {
  821.       register int i;
  822. --- 1007,1013 ----
  823.    * Generates transition tables and finishes generating output file
  824.    */
  825.   
  826. ! void make_tables(void)
  827.   
  828.       {
  829.       register int i;
  830. Only in Think-C: macutils.c
  831. diff -wrc Release-2.3/latest/main.c Think-C/main.c
  832. *** Release-2.3/latest/main.c    Wed Jun 27 21:44:29 1990
  833. --- Think-C/main.c    Tue Jan 28 02:52:32 1992
  834. ***************
  835. *** 26,31 ****
  836. --- 26,35 ----
  837.    * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  838.    */
  839.   
  840. + #ifdef THINK_C
  841. + #include <console.h>
  842. + #endif
  843. + 
  844.   #ifndef lint
  845.   char copyright[] =
  846.   "@(#) Copyright (c) 1990 The Regents of the University of California.\n\
  847. ***************
  848. *** 46,53 ****
  849.   /* declare functions that have forward references */
  850.   
  851.   void flexinit PROTO((int, char**));
  852. ! void readin PROTO(());
  853. ! void set_up_initial_allocations PROTO(());
  854.   
  855.   
  856.   /* these globals are all defined and commented in flexdef.h */
  857. --- 50,57 ----
  858.   /* declare functions that have forward references */
  859.   
  860.   void flexinit PROTO((int, char**));
  861. ! void readin PROTO((void));
  862. ! void set_up_initial_allocations PROTO((void));
  863.   
  864.   
  865.   /* these globals are all defined and commented in flexdef.h */
  866. ***************
  867. *** 111,116 ****
  868. --- 115,123 ----
  869.   char **argv;
  870.   
  871.       {
  872. + #ifdef THINK_C
  873. +     argc = ccommand (&argv);
  874. + #endif
  875.       flexinit( argc, argv );
  876.   
  877.       readin();
  878. ***************
  879. *** 190,196 ****
  880.   
  881.       {
  882.       int tblsiz;
  883. -     char *flex_gettime();
  884.   
  885.       if ( skelfile != NULL )
  886.       {
  887. --- 197,202 ----
  888. ***************
  889. *** 394,400 ****
  890.   
  891.       {
  892.       int i, sawcmpflag;
  893. !     char *arg, *flex_gettime(), *mktemp();
  894.   
  895.       printstats = syntaxerror = trace = spprdflt = interactive = caseins = false;
  896.       backtrack_report = performance_report = ddebug = fulltbl = fullspd = false;
  897. --- 400,410 ----
  898.   
  899.       {
  900.       int i, sawcmpflag;
  901. ! #ifdef THINK_C
  902. !     char *arg;
  903. ! #else
  904. !     char *arg, *mktemp();
  905. ! #endif
  906.   
  907.       printstats = syntaxerror = trace = spprdflt = interactive = caseins = false;
  908.       backtrack_report = performance_report = ddebug = fulltbl = fullspd = false;
  909. ***************
  910. *** 609,615 ****
  911. --- 619,629 ----
  912.   #else
  913.       (void) strcpy( temp_action_file_name, "flexXXXXXX.tmp" );
  914.   #endif
  915. + #ifdef THINK_C
  916. +     (void) tmpnam( temp_action_file_name );
  917. + #else
  918.       (void) mktemp( temp_action_file_name );
  919. + #endif
  920.   
  921.       action_file_name = temp_action_file_name;
  922.       }
  923. ***************
  924. *** 666,672 ****
  925.    *    readin();
  926.    */
  927.   
  928. ! void readin()
  929.   
  930.       {
  931.       skelout();
  932. --- 680,686 ----
  933.    *    readin();
  934.    */
  935.   
  936. ! void readin(void)
  937.   
  938.       {
  939.       skelout();
  940. ***************
  941. *** 711,717 ****
  942.   
  943.   /* set_up_initial_allocations - allocate memory for internal tables */
  944.   
  945. ! void set_up_initial_allocations()
  946.   
  947.       {
  948.       current_mns = INITIAL_MNS;
  949. --- 725,731 ----
  950.   
  951.   /* set_up_initial_allocations - allocate memory for internal tables */
  952.   
  953. ! void set_up_initial_allocations(void)
  954.   
  955.       {
  956.       current_mns = INITIAL_MNS;
  957. diff -wrc Release-2.3/latest/misc.c Think-C/misc.c
  958. *** Release-2.3/latest/misc.c    Thu Aug 30 12:53:48 1990
  959. --- Think-C/misc.c    Tue Jan 28 02:53:00 1992
  960. ***************
  961. *** 44,50 ****
  962.   
  963.   /* declare functions that have forward references */
  964.   
  965. ! void dataflush PROTO(());
  966.   int otoi PROTO((Char []));
  967.   
  968.   
  969. --- 44,50 ----
  970.   
  971.   /* declare functions that have forward references */
  972.   
  973. ! void dataflush PROTO((void));
  974.   int otoi PROTO((Char []));
  975.   
  976.   
  977. ***************
  978. *** 56,62 ****
  979.    *     Copies the action file up to %% (or end-of-file) to lex.yy.c
  980.    */
  981.   
  982. ! void action_out()
  983.   
  984.       {
  985.       char buf[MAXLINE];
  986. --- 56,62 ----
  987.    *     Copies the action file up to %% (or end-of-file) to lex.yy.c
  988.    */
  989.   
  990. ! void action_out(void)
  991.   
  992.       {
  993.       char buf[MAXLINE];
  994. ***************
  995. *** 72,78 ****
  996.   /* allocate_array - allocate memory for an integer array of the given size */
  997.   
  998.   void *allocate_array( size, element_size )
  999. ! int size, element_size;
  1000.   
  1001.       {
  1002.       register void *mem;
  1003. --- 72,79 ----
  1004.   /* allocate_array - allocate memory for an integer array of the given size */
  1005.   
  1006.   void *allocate_array( size, element_size )
  1007. ! int size;
  1008. ! size_t element_size;
  1009.   
  1010.       {
  1011.       register void *mem;
  1012. ***************
  1013. *** 325,331 ****
  1014.    *    dataflush();
  1015.    */
  1016.   
  1017. ! void dataflush()
  1018.   
  1019.       {
  1020.       putchar( '\n' );
  1021. --- 326,332 ----
  1022.    *    dataflush();
  1023.    */
  1024.   
  1025. ! static void dataflush(void)
  1026.   
  1027.       {
  1028.       putchar( '\n' );
  1029. ***************
  1030. *** 390,395 ****
  1031. --- 391,400 ----
  1032.   
  1033.   /* include sys/types.h to use time_t and make lint happy */
  1034.   
  1035. + #ifdef THINK_C
  1036. + #include <ctype.h>
  1037. + #include <time.h>
  1038. + #else
  1039.   #ifndef MS_DOS
  1040.   #ifndef VMS
  1041.   #include <sys/types.h>
  1042. ***************
  1043. *** 397,402 ****
  1044. --- 402,408 ----
  1045.   #include <types.h>
  1046.   #endif
  1047.   #endif
  1048. + #endif
  1049.   
  1050.   #ifdef MS_DOS
  1051.   #include <time.h>
  1052. ***************
  1053. *** 409,415 ****
  1054. --- 415,425 ----
  1055.       time_t t, time();
  1056.       char *result, *ctime(), *copy_string();
  1057.   
  1058. + #ifdef THINK_C
  1059. +     t = time( (time_t *) 0 );
  1060. + #else
  1061.       t = time( (long *) 0 );
  1062. + #endif
  1063.   
  1064.       result = copy_string( ctime( &t ) );
  1065.   
  1066. ***************
  1067. *** 465,471 ****
  1068.    *    val = htoi( str );
  1069.    */
  1070.   
  1071. ! int htoi( str )
  1072.   Char str[];
  1073.   
  1074.       {
  1075. --- 475,481 ----
  1076.    *    val = htoi( str );
  1077.    */
  1078.   
  1079. ! static int htoi( str )
  1080.   Char str[];
  1081.   
  1082.       {
  1083. ***************
  1084. *** 486,492 ****
  1085.    *    val = is_hex_digit( ch );
  1086.    */
  1087.   
  1088. ! int is_hex_digit( ch )
  1089.   int ch;
  1090.   
  1091.       {
  1092. --- 496,502 ----
  1093.    *    val = is_hex_digit( ch );
  1094.    */
  1095.   
  1096. ! static int is_hex_digit( ch )
  1097.   int ch;
  1098.   
  1099.       {
  1100. ***************
  1101. *** 755,761 ****
  1102.   
  1103.   void *reallocate_array( array, size, element_size )
  1104.   void *array;
  1105. ! int size, element_size;
  1106.   
  1107.       {
  1108.       register void *new_array;
  1109. --- 765,772 ----
  1110.   
  1111.   void *reallocate_array( array, size, element_size )
  1112.   void *array;
  1113. ! int size;
  1114. ! size_t element_size;
  1115.   
  1116.       {
  1117.       register void *new_array;
  1118. Only in Think-C: parse.c
  1119. Only in Think-C: parse.h
  1120. diff -wrc Release-2.3/latest/parse.y Think-C/parse.y
  1121. *** Release-2.3/latest/parse.y    Wed Jun 27 21:44:40 1990
  1122. --- Think-C/parse.y    Tue Jan 28 02:53:13 1992
  1123. ***************
  1124. *** 631,637 ****
  1125.    *                    conditions
  1126.    */
  1127.   
  1128. ! void build_eof_action()
  1129.   
  1130.       {
  1131.       register int i;
  1132. --- 631,637 ----
  1133.    *                    conditions
  1134.    */
  1135.   
  1136. ! static void build_eof_action(void)
  1137.   
  1138.       {
  1139.       register int i;
  1140. ***************
  1141. *** 695,701 ****
  1142.    *         currently, messages are ignore
  1143.    */
  1144.   
  1145. ! void yyerror( msg )
  1146.   char msg[];
  1147.   
  1148.       {
  1149. --- 695,701 ----
  1150.    *         currently, messages are ignore
  1151.    */
  1152.   
  1153. ! static void yyerror( msg )
  1154.   char msg[];
  1155.   
  1156.       {
  1157. Only in Think-C: scan.c
  1158. diff -wrc Release-2.3/latest/scan.l Think-C/scan.l
  1159. *** Release-2.3/latest/scan.l    Wed Jun 27 21:44:41 1990
  1160. --- Think-C/scan.l    Tue Jan 28 02:53:22 1992
  1161. ***************
  1162. *** 340,346 ****
  1163.   
  1164.   <SECT2>"{"{NAME}"}"    {
  1165.               register Char *nmdefptr;
  1166. !             Char *ndlookup();
  1167.   
  1168.               (void) strcpy( nmstr, (char *) yytext );
  1169.               nmstr[yyleng - 1] = '\0';  /* chop trailing brace */
  1170. --- 340,346 ----
  1171.   
  1172.   <SECT2>"{"{NAME}"}"    {
  1173.               register Char *nmdefptr;
  1174. !             extern Char *ndlookup();
  1175.   
  1176.               (void) strcpy( nmstr, (char *) yytext );
  1177.               nmstr[yyleng - 1] = '\0';  /* chop trailing brace */
  1178. diff -wrc Release-2.3/latest/sym.c Think-C/sym.c
  1179. *** Release-2.3/latest/sym.c    Wed Jun 27 21:44:41 1990
  1180. --- Think-C/sym.c    Tue Jan 28 02:53:25 1992
  1181. ***************
  1182. *** 32,37 ****
  1183. --- 32,43 ----
  1184.   #endif
  1185.   
  1186.   #include "flexdef.h"
  1187. + #ifdef THINK_C
  1188. + /* For THINK C version 4? */
  1189. + #if THINK_C == 1
  1190. + #include <stdlib.h>
  1191. + #endif
  1192. + #endif
  1193.   
  1194.   
  1195.   /* declare functions that have forward references */
  1196. ***************
  1197. *** 43,49 ****
  1198.   struct hash_entry *sctbl[START_COND_HASH_SIZE];
  1199.   struct hash_entry *ccltab[CCL_HASH_SIZE];
  1200.   
  1201. ! struct hash_entry *findsym();
  1202.   
  1203.   
  1204.   /* addsym - add symbol and definitions to symbol table
  1205. --- 49,55 ----
  1206.   struct hash_entry *sctbl[START_COND_HASH_SIZE];
  1207.   struct hash_entry *ccltab[CCL_HASH_SIZE];
  1208.   
  1209. ! struct hash_entry *findsym PROTO((char sym[], hash_table table, int table_size));
  1210.   
  1211.   
  1212.   /* addsym - add symbol and definitions to symbol table
  1213. ***************
  1214. *** 58,64 ****
  1215.    * -1 is returned if the symbol already exists, and the change not made.
  1216.    */
  1217.   
  1218. ! int addsym( sym, str_def, int_def, table, table_size )
  1219.   register char sym[];
  1220.   char *str_def;
  1221.   int int_def;
  1222. --- 64,70 ----
  1223.    * -1 is returned if the symbol already exists, and the change not made.
  1224.    */
  1225.   
  1226. ! static int addsym( sym, str_def, int_def, table, table_size )
  1227.   register char sym[];
  1228.   char *str_def;
  1229.   int int_def;
  1230. ***************
  1231. *** 234,240 ****
  1232.    *    def/NULL = ndlookup( nd );
  1233.    */
  1234.   
  1235. ! Char *ndlookup( nd )
  1236.   char nd[];
  1237.   
  1238.       {
  1239. --- 240,246 ----
  1240.    *    def/NULL = ndlookup( nd );
  1241.    */
  1242.   
  1243. ! extern Char *ndlookup( nd )
  1244.   char nd[];
  1245.   
  1246.       {
  1247. diff -wrc Release-2.3/latest/tblcmp.c Think-C/tblcmp.c
  1248. *** Release-2.3/latest/tblcmp.c    Wed Jun 27 21:44:41 1990
  1249. --- Think-C/tblcmp.c    Tue Jan 28 02:53:27 1992
  1250. ***************
  1251. *** 296,302 ****
  1252.   
  1253.   /* expand_nxt_chk - expand the next check arrays */
  1254.   
  1255. ! void expand_nxt_chk()
  1256.   
  1257.       {
  1258.       register int old_max = current_max_xpairs;
  1259. --- 296,302 ----
  1260.   
  1261.   /* expand_nxt_chk - expand the next check arrays */
  1262.   
  1263. ! static void expand_nxt_chk()
  1264.   
  1265.       {
  1266.       register int old_max = current_max_xpairs;
  1267. ***************
  1268. *** 332,338 ****
  1269.    * and an action number will be added in [-1].
  1270.    */
  1271.   
  1272. ! int find_table_space( state, numtrans )
  1273.   int *state, numtrans;
  1274.       
  1275.       {
  1276. --- 332,338 ----
  1277.    * and an action number will be added in [-1].
  1278.    */
  1279.   
  1280. ! static int find_table_space( state, numtrans )
  1281.   int *state, numtrans;
  1282.       
  1283.       {
  1284.