home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / fweb153.zip / fweb-1.53 / web / typedefs.web < prev    next >
Text File  |  1995-09-23  |  63KB  |  2,283 lines
  1. @z --- typedefs.web ---
  2.  
  3. FWEB version 1.53 (September 23, 1995)
  4.  
  5. Based on version 0.5 of S. Levy's CWEB [copyright (C) 1987 Princeton University]
  6.  
  7. @x-----------------------------------------------------------------------------
  8.  
  9. @Lv[-Tv] @% This file can't be processed by \FWEAVE\ in it's present form!
  10.  
  11. @* COMMON DEFINITIONS and TYPEDEFS. Here are definitions and typedefs
  12. common to all of \.{common.web}, \.{tangle.web}, and \.{weave.web}.
  13.  
  14. @a
  15. @o typedefs.hweb
  16. @<Macro definitions@>@;
  17.  
  18. @ Write a header at the top of \.{typedefs.h}.
  19. @a
  20. /* Created automatically from typedefs.web. */
  21. #include "os.h"
  22.  
  23. @ The debug mode includes some extra code, but it probably doesn't slow
  24. things down too much.
  25.  
  26. @d DEBUG 1
  27.  
  28. @<Mac...@>=
  29. @@I formats.hweb
  30.  
  31. @@ The actual names of the processors.
  32.  
  33. @@m TANGLE "FTANGLE"
  34. @@m WEAVE "FWEAVE"
  35.  
  36. @ 
  37. @<Mac...@>=
  38. @@ Some compilers can't handle files as large as \.{ftangle} or \.{fweave}.
  39. Therefore, if the C~preprocessor macros |part| are defined from the
  40. compiler's command line to have the value~1, 2, or~3, the other parts of
  41. those files are commented out.
  42.  
  43. @@<Possibly split into parts@@>=
  44.  
  45. #ifndef part
  46.     #define part 0 /* Standard value, when the files aren't split. */
  47. #else
  48.     #if(part != 1 && part != 2 && part != 3)
  49.         #define part 1 /* Should issue error message here. */
  50.     #endif
  51. #endif /* |part| */
  52.  
  53. @ Now we have macros that ensure that stuff needed for \FTANGLE\ or \FWEAVE\
  54. is defined and allocated in only one place.
  55.  
  56. @f EXTERN extern
  57.  
  58. @f com $_COMMA_
  59. @D com ,
  60.  
  61. @a
  62.  
  63. #ifdef _FWEB_h
  64.     #define EXTERN part1_or_extern /* This is further redefined below,
  65.                 depending on the setting of |part|. */
  66.     #define SET SET1
  67. #else
  68.     #define EXTERN extern
  69.     #define SET(stuff)
  70. #endif
  71.  
  72. @
  73. @<Mac...@>=
  74. @@
  75. @@F EXTERN extern
  76.  
  77. @@f IN_TANGLE extern
  78. @@f IN_COMMON extern
  79. @@f IN_RATFOR extern
  80. @@f IN_EVAL extern
  81. @@f IN_MACS extern
  82. @@f IN_PROD extern
  83. @@f IN_STYLE extern
  84.  
  85.  
  86. @@f SET $_EXPR
  87. @@f CSET $_EXPR
  88.  
  89. @@<Possibly split...@@>=
  90.  
  91. #if(part == 0 || part == 1)
  92.     #define part1_or_extern 
  93.     #define SET1(stuff) @@e = stuff
  94.     #define TSET1(stuff) @@e = stuff
  95. #else 
  96.     #define part1_or_extern extern
  97.     #define SET1(stuff)
  98.     #define TSET1(stuff)
  99. #endif
  100.  
  101. @ Next, we have some macros to help us allocate and define stuff in just one
  102. place. The philosophy here is that there should be no explicit |extern|
  103. statements; they should be replaced by something like |IN_COMMON| to remind
  104. one exactly where that variable is defined.
  105.  
  106. @f IN_TANGLE extern
  107. @f IN_COMMON extern
  108. @f IN_RATFOR extern
  109. @f IN_EVAL extern
  110. @f IN_MACS extern
  111. @f IN_PROD extern
  112. @f IN_STYLE extern
  113.  
  114. @f SET $_EXPR
  115. @f CSET $_EXPR
  116.  
  117. @a
  118.  
  119. #ifdef _FTANGLE_h
  120.     #define IN_TANGLE part1_or_extern
  121.     #define TSET TSET1
  122. #else
  123.     #define IN_TANGLE extern
  124.     #define TSET(stuff)
  125. #endif /* |_TANGLE_h| */
  126.  
  127. #ifdef _COMMON_h
  128.     #define IN_COMMON part1_or_extern
  129.     #define CSET SET1
  130. #else
  131.     #define IN_COMMON extern
  132.     #define CSET(stuff)
  133. #endif /* |_COMMON_h| */
  134.  
  135. #ifdef _PROD_h
  136.     #define IN_PROD part1_or_extern
  137.     #define PSET SET1
  138. #else
  139.     #define IN_PROD extern
  140.     #define PSET(stuff)
  141. #endif /* |_PROD_h| */
  142.  
  143. #ifdef _RATFOR_h
  144.     #define IN_RATFOR part1_or_extern
  145.     #define RSET SET1
  146. #else
  147.     #define IN_RATFOR extern
  148.     #define RSET(stuff)
  149. #endif /* |_RATFOR_h| */
  150.  
  151. #ifdef _EVAL_h
  152.     #define IN_EVAL
  153.     #define ESET(stuff) = stuff
  154. #else
  155.     #define IN_EVAL extern
  156.     #define ESET(stuff)
  157. #endif /* |_EVAL_h| */
  158.  
  159. #ifdef _MACS_h
  160.     #define IN_MACS
  161. #else
  162.     #define IN_MACS extern
  163. #endif /* |_MACS_h| */
  164.  
  165. #ifdef _STYLE_h
  166.     #define IN_STYLE
  167.     #define SSET(stuff) = stuff
  168. #else
  169.     #define IN_STYLE extern
  170.     #define SSET(stuff)
  171. #endif /* |_STYLE_h| */
  172.  
  173. @ We have an enumerated type for the kind of machine.
  174.  
  175. @<Unused@>=
  176.  
  177. @#if 0
  178. typedef enum{Unknown,Apollo,Dsu,IBMPc,Mac,Misc,Sgi,Sun,Vax} MACHINE;
  179.  
  180. IN_COMMON MACHINE Machine
  181. @#ifdef _COMMON_
  182.   =
  183.     @#if APOLLO
  184.         Apollo    /* Apollo/UNIX */
  185.     @#elif DSU
  186.         Dsu    /* DECstation/ULTRIX */
  187.     @#elif IBMPC
  188.         IBMPc    /* IBM-PC/DOS */
  189.     @#elif MAC
  190.         Mac    /* Macintosh */
  191.     @#elif MISC
  192.         Misc    /* Vanilla */
  193.     @#elif SGI
  194.         Sgi    /* Silicon Graphics/IRIX */
  195.     @#elif SUN
  196.         Sun    /* SunOS/UNIX */
  197.     @#elif VAX
  198.         Vax    /* VAX/VMS */
  199.     @#else
  200.         Unknown
  201.     @#endif /* |APOLLO| */
  202. @#endif /* |_COMMON_| */
  203. ;
  204. @#endif
  205.  
  206. @ Various miscellaneous definitions, and the fundamental typedefs.
  207.  
  208. /* True and false. */
  209. @D YES 1
  210. @D NO 0
  211.  
  212. /* Infinite loop. */
  213. @D WHILE() for(;;) /* Use ``|for(;;)|'' instead of ``|while(1)|'' to avoid
  214.             warnings from Microsoft compiler. */
  215. @f WHILE while
  216.  
  217. /* Minima and maxima. */
  218. @D MAX(a,b) ((a)>(b) ? (a) : (b))
  219. @D MIN(a,b) ((a)<(b) ? (a) : (b))
  220.  
  221. @d SAVE_MACRO(text) save_macro(OC("m"),(outer_char *)text)
  222. @d CHK_ARGS(name,num) chk_args(OC(name),num,n,pargs) 
  223.     /* Right \# of arguments? */
  224.  
  225. @D tab_mark @'\t' /* The |ASCII| tab. */
  226.  
  227. /* Subtraction of huge pointers; needed for pc's. We first cast to |long|,
  228. then to the final target type. */
  229. @d PTR_DIFF(type,p,q) ((type)(long)((p) - (q)))
  230. @d SUB_PTRS(p,q) PTR_DIFF(unsigned long,p,q) /* Used in the statistics
  231.                         output. */
  232.  
  233. /* Here are some macros to determine the identifier number in the name
  234. directory. */ 
  235. @d ID_NUM_ptr(ptr,start,end) ID_NUM0(ptr = @e,start,end) /* Set a
  236.     pointer as well as the number. */
  237. @d ID_NUM(start,end) ID_NUM0(DUMMY,start,end) /* Just the number. */
  238. @d DUMMY /* This kludge for an empty argument shouldn't be necessary, but
  239.     Microsoft didn't like the construction |ID_NUM0(,start,end)|. */
  240.  
  241. /* Set both a pointer and the number. */
  242. @f ptr_equals $EXPR_
  243. @d ID_NUM0(ptr_equals,start,end) PTR_DIFF(sixteen_bits,
  244.     (ptr_equals id_lookup(start,end,0)),name_dir)
  245.  
  246. /* Terminate a string. */
  247. @d TERMINATE(p,offset) *(p+offset) = '\0'
  248.  
  249. @d BOOLEAN(b) ((boolean)(b)) /* Explicit cast to make some compilers happy. */
  250.  
  251. @d CHOICE(flag,yes,no) (((int)(flag)) ? yes : no)
  252.  
  253. @
  254.  
  255. @m OCTAL0(n)$ASCII(#'n) 
  256. @m OCTAL(n)(eight_bits)OCTAL0(\@&n) /* Make octal constant. */
  257.  
  258. @<Mac...@>=
  259. @@ Here's a somewhat sophisticated use of \WEB\ macros.
  260. @@f WHILE while
  261. @@f ptr_equals $EXPR_
  262. @@m @!OCTAL0(n) @!$ASCII(#'n) /* Single-quote the argument and send to
  263.                 \.{\@!$ASCII}. */ 
  264. @@m @!OCTAL(n) (eight_bits)@!OCTAL0(\@@&n) /* Make octal constant. */
  265. @@m @!HEX(n) (eight_bits)@!OCTAL0(\@@&x##n) /* Make hex constant. */
  266.  
  267. @
  268. @a
  269.  
  270. typedef unsigned char eight_bits; /* The fundamental single-byte token. If
  271.     your machine does not support |unsigned char| you should change 
  272.     the definition of |eight_bits| to |unsigned short|. */ 
  273. @^system dependencies@>
  274.  
  275. typedef unsigned short sixteen_bits; /* Identifiers and similar things take
  276.                     up two bytes. */
  277.  
  278. typedef unsigned char outer_char; /* Type of characters outside \.{WEB}. */
  279.  
  280. typedef eight_bits boolean; /* The logical type. (\CWEB\ had |short| here.
  281.     Indeed, some compilers give warnings about type conversions because the
  282.     result of logical operations is an |int|, not a |char|.) */
  283.  
  284. typedef unsigned long BUF_SIZE; /* Size of dynamic arrays. */
  285.  
  286. typedef long STMT_LBL; /* \Fortran\ statement label.  (Negative is allowed.) */
  287.  
  288. typedef unsigned short LINE_NUMBER; /* Line number of \WEB\ source or output.*/
  289.  
  290. typedef long CASE_TYPE; /* The type for |case| values in \Ratfor.  */
  291.  
  292. /* For |web_strcmp|. {\bfit Web's convention differs from C's}!
  293.     If you don't pay attention to this, you'll get bugs that are
  294.     hard to track down. */
  295. typedef enum {LESS=0, /* first name is lexicographically less than the second*/
  296.     EQUAL=1, /* the first name is equal to the second */
  297.     GREATER=2, /* first name is lexicographically greater than the
  298. second */
  299.     PREFIX=3, /* the first name is a proper prefix of the second */
  300.     EXTENSION=4} LEXI; /* first name is a proper extension of the
  301. second. */
  302.  
  303. @ In certain cases \.{TANGLE} and \.{WEAVE} should do almost, but not
  304. quite, the same thing.  In these case we've written common code for
  305. both, differentiating between the two by means of the global variable
  306. |program|.
  307.  
  308. @a
  309. typedef enum {tangle=0,weave=1} PROGRAM; /* The two processors. */
  310.  
  311. IN_COMMON PROGRAM program;
  312.  
  313. @ The \FWEB\ version number, and the system name.
  314.  
  315. @a
  316.  
  317. IN_COMMON outer_char version[] CSET(VERSION); /* \FWEB\ version number. */
  318. IN_COMMON outer_char release_date[] CSET(RELEASE); 
  319.     /* Release date for this version. */
  320. IN_COMMON outer_char *the_system, *local_banner; /* Name of the
  321.     machine/operating system; and a possible additional local banner. */
  322.  
  323. @ \.{WEAVE} operates in three phases: first it inputs the source file and
  324. stores cross-reference data, then it inputs the source once again and
  325. produces the \TeX\ output file, and finally it sorts and outputs the index.
  326. Similarly, \.{TANGLE} operates in two phases.  The global variable |phase|
  327. tells which phase we are in.
  328.  
  329. @a
  330.  
  331. IN_COMMON short phase CSET(0); /* Which phase are we in? */
  332.  
  333. @ Especially in \RATFOR, we distinguish between warning and error messages.
  334.  
  335. @d EAT_AUTO_SEMI {if(auto_semi && next_byte() != @';') BACK_UP@;}
  336. @d BACK_UP {saved_token = NO; cur_byte -= last_bytes;}
  337.  
  338. @d NOT_BEFORE OCTAL(177)
  339. @d NOT_AFTER NOT_BEFORE
  340.  
  341. @d SAVE_BEFORE(pp,nmax,r_before) save_out(pp,nmax,r_before,NOT_AFTER)
  342. @d SAVE_AFTER(pp,nmax,r_after) save_out(pp,nmax,NOT_BEFORE,r_after)
  343.  
  344. @<Mac...@>=
  345. @@
  346. @@m IS_NEXT(c0,keyword)
  347. {
  348. eight_bits c;
  349.  
  350. if((c=next_byte()) != c0)
  351.     {
  352.     didnt_expand(c0,c,#*keyword);
  353.     return;
  354.     }
  355. }
  356.  
  357. @@m IS_NEXT_PAREN(keyword) IS_NEXT(@'(',keyword)
  358.  
  359. @
  360. @a
  361. typedef enum {OK,WARNING,ERROR} ERR_TYPE;
  362.  
  363. @ A major extension to \.{CWEB} is support for the syntaxes of several
  364. languages. We need to know what language we're dealing with at the moment.
  365.  
  366. @d NUM_LANGUAGES 8 /* |C|, |RATFOR|, |FORTRAN|, |TEX|, |LITERAL|,
  367.         |C_PLUS_PLUS|, |RATFOR_90|, |FORTRAN_90| */
  368. @d NUM_DISTINCT_LANGUAGES (NUM_LANGUAGES-2)
  369.  
  370. @d GLOBAL_LANGUAGE FORTRAN
  371. @d global_language global_params.Language /* The language in force at the
  372.                     beginning of each module. */
  373.  
  374. @d is_C_(Language) (Language==C)
  375. @d is_RATFOR_(Language) (Language==RATFOR || Language==RATFOR_90)
  376. @d is_FORTRAN_(Language) (Language==FORTRAN || Language==FORTRAN_90)
  377.  
  378. @d FORTRAN_LIKE(Language) (is_RATFOR_(Language) || is_FORTRAN_(Language))
  379. @d C_LIKE(Language) (Language==C || Language==C_PLUS_PLUS)
  380.  
  381. @d R66 (is_RATFOR_(language) && !Ratfor77) /* Non-expandable \Ratfor;
  382. obsolete. */
  383. @d R77 (Ratfor77 && is_RATFOR_(language) && xpn_Ratfor) /* Expandable
  384. \Ratfor. */
  385. @d R77_or_F (R77 || is_FORTRAN_(language)) /* Expandable \Ratfor\ or
  386. \Fortran. */
  387.  
  388. @d IS_WHITE(a) ((a) == @' ' || (a) == tab_mark)
  389.  
  390. @d LANGUAGE_CODE(l) OC(lang_codes[lan_num(l)]) /*  String
  391.     abbreviation for the language name. */
  392.  
  393. @a
  394.  
  395.  /* The highest bit sets the basic language. */
  396. typedef enum
  397.     {
  398.     NO_LANGUAGE =     0,
  399.  
  400.     C =         0x1,
  401.     RATFOR =    0x2,
  402.     FORTRAN =     0x4,
  403.     TEX =         0x8,
  404.     LITERAL =    0x10,
  405.  
  406.     C_PLUS_PLUS =    0x20,
  407.     RATFOR_90 =    0x40,
  408.     FORTRAN_90 =    0x80,
  409.  
  410.     NUWEB_OFF =    0xF0, /* Not a language, but used in |send_single|. */
  411.     NUWEB_ON =    0xF1
  412.     } LANGUAGE;
  413.  
  414. IN_COMMON LANGUAGE cmd_language CSET(NO_LANGUAGE);/* To check against
  415. override. */
  416. IN_COMMON boolean column_mode CSET(NO);
  417.  
  418. IN_COMMON CONST char HUGE *languages[NUM_LANGUAGES] 
  419. #ifdef _COMMON_h
  420. #if(part == 0 || part == 1)
  421.     = {"C","RATFOR","FORTRAN","TEX","VERBATIM",
  422.       "C++","RATFOR--90","FORTRAN--90"}
  423. #endif /* |part == 1| */
  424. #endif /* |defined _COMMON_h| */
  425. ;
  426.  
  427. IN_COMMON CONST char HUGE *lang_codes[NUM_LANGUAGES] 
  428. #ifdef _COMMON_h
  429. #if(part == 0 || part == 1)
  430.     = {"C","R","N","X","V","C++","R90","N90",}
  431. #endif
  432. #endif
  433. ;
  434.  
  435. @ The following sets the delimiters for the module number stuff in the
  436. code output.
  437.  
  438. @a
  439.  
  440. IN_COMMON outer_char begin_comment_char[NUM_LANGUAGES]
  441. #ifdef _COMMON_h
  442. #if(part == 0 || part == 1)
  443.      = {'/','#','C','%','/', '/','#','C'}
  444. #endif
  445. #endif
  446. ; /* |C|, |RATFOR|, |FORTRAN|, |TEX|, |LITERAL|, \dots. */
  447.  
  448. IN_COMMON CONST outer_char end_comment_char[NUM_LANGUAGES]
  449. #ifdef _COMMON_h
  450. #if(part == 0 || part == 1)
  451.     = {'/',' ',' ',' ','/', '/',' ',' '}
  452. #endif
  453. #endif
  454. ;
  455.  
  456. @
  457. @<Mac...@>=
  458. @@
  459. @@<Specific language cases@@>=
  460.  
  461. case begin_C:
  462. case begin_RATFOR:
  463. case begin_FORTRAN:
  464. case begin_LITERAL@@: @@;
  465.  
  466. @ The following readably abbreviate the control letters for language
  467. switches.  These are just the basic languages; dialects are set by the
  468. optional arguments.  We need to worry about the distinction between |ASCII|
  469. and |outer_char|.
  470.  
  471. @<Mac...@>=
  472.  
  473. @@ 
  474. @@f @@<|ASCII| cases for |C|@@> case
  475. @@f @@<|ASCII| cases for |RATFOR|@@> case
  476. @@f @@<|ASCII| cases for |FORTRAN|@@> case
  477. @@f @@<|ASCII| cases for |TEX|@@> case
  478. @@f @@<|ASCII| cases for |LITERAL|@@> case
  479. @@<|ASCII| cases for |C|@@>=
  480. case @@'c': case @@'C'@@: @@;
  481.  
  482. @@ @@<|ASCII| cases for |RATFOR|@@>=
  483. case @@'r': case @@'R'@@: @@;
  484.  
  485. @@ @@<|ASCII| cases for |FORTRAN|@@>=
  486. case @@'n': case @@'N'@@: @@;
  487.  
  488. @@ @@<|ASCII| cases for |TEX|@@>=
  489. case @@'x': case @@'X'@@: @@;
  490.  
  491. @@ @@<|ASCII| cases for |LITERAL|@@>=
  492. case @@'v': case @@'V'@@: @@;
  493.  
  494. @ Same stuff for |outer_char|.
  495.  
  496. @<Mac...@>=
  497.  
  498. @@ 
  499. @@f @@<|outer_char| cases for |C|@@> case
  500. @@f @@<|outer_char| cases for |RATFOR|@@> case
  501. @@f @@<|outer_char| cases for |FORTRAN|@@> case
  502. @@f @@<|outer_char| cases for |TEX|@@> case
  503. @@f @@<|outer_char| cases for |LITERAL|@@> case
  504. @@<|outer_char| cases for |C|@@>=
  505. case 'c': case 'C'@@: @@;
  506.  
  507. @@ @@<|outer_char| cases for |RATFOR|@@>=
  508. case 'r': case 'R'@@: @@;
  509.  
  510. @@ @@<|outer_char| cases for |FORTRAN|@@>=
  511. case 'n': case 'N'@@: @@;
  512.  
  513. @@ @@<|outer_char| cases for |TEX|@@>=
  514. case 'x': case 'X'@@: @@;
  515.  
  516. @@ @@<|outer_char| cases for |LITERAL|@@>=
  517. case 'v': case 'V'@@: @@;
  518.  
  519. @ 
  520.  
  521. @<Mac...@>=
  522.  
  523. @@ Read the basic language letter and set the language.  We must check for
  524. dialects before we call |opt_args| because the first thing that does is
  525. to set the language based on the values of the dialect flags. 
  526.  
  527. @@<Set |language|@@>=
  528. {
  529. ASCII l = *loc++; /* The basic language letter. */
  530.  
  531. switch(l)
  532.     {
  533.    @@<|ASCII| cases for |C|@@>:
  534.     Cpp = BOOLEAN(*loc == @@'+');
  535.     break;
  536.  
  537.    @@<|ASCII| cases for |RATFOR|@@>:
  538.    @@<|ASCII| cases for |FORTRAN|@@>:
  539.     Fortran88 = BOOLEAN(*loc == @@'9');
  540.     break;
  541.  
  542.    @@<|ASCII| cases for |LITERAL|@@>:
  543.    @@<|ASCII| cases for |TEX|@@>:
  544.     break;
  545.  
  546.    default:
  547.     err_print(C,"! Invalid language command `@@@@L%c' ignored",XCHR(l));
  548.     break;
  549.     }
  550.  
  551. opt_args(l); /* Set the language, and parse optional arguments after
  552.         language command. */ 
  553. }
  554.  
  555. @ Dynamic memory allocation.
  556.  
  557. @d SET_VAL(val,abbrev) val = find_abbrev((outer_char *)abbrev)->nunits
  558. @d MAX_VAL(abbrev) find_abbrev((outer_char *)abbrev)->max
  559.  
  560. @
  561. @<Mac...@>=
  562. @@ 
  563. @@m UPPER(var) smin0(MAX_VAL(ABBREV(var))),ABBREV(var)
  564.  
  565. @
  566. @a
  567.  
  568. typedef struct
  569.     {
  570.     outer_char abbrev[3]; /* Two-character abbreviation for the
  571. variable. */
  572.     short bytes;    /* Number of bytes in one unit. */
  573.     BUF_SIZE min,    /* Minimum possible value. */
  574.         nunits, /* How many units to allocate, or the default
  575. value. */
  576.         max;     /* Maximum possible value. */
  577.     } MEM;
  578.  
  579. @ Masks for \FWEAVE\ stuff that may not want to be printed.
  580.  
  581. @a
  582.  
  583. typedef struct
  584.     {
  585.     unsigned@/
  586.         formats:1, Formats:1, /* Print \.{@@f}, \.{@@F}. */
  587.         limbo:1, /* Print \.{@@l}. */
  588.         macros:1, /* Print \.{@@m}. */
  589.         outer_macros:1, /* Print \.{@@d}. */
  590.         v:1, /* Print \.{@@v}. */
  591.         w:1 /* Print \.{@@w}. */
  592.         ;
  593.     } DEFN_MASK;
  594.  
  595. @ A number of unrelated parameters need to be saved simultaneously at
  596. various points. Thus, we collect them into a structure, |params|. Since we
  597. also need to be able to refer to them effectively, we use macro definitions
  598. to help us.
  599.  
  600. @d LN lan_num
  601.  
  602. @D language params.Language
  603. @D language_index params.Language_index
  604. @D language_num params.Language_num
  605.  
  606. @D in_format params.In_format
  607. @D in_data params.In_data
  608. @D intermingle params.Intermingle
  609. @%@D sharp_include_line params.Include_line
  610.  
  611. @D active_brackets params.Active_brackets
  612. @D all_cmnts_verbatim params.All_cmnts_verbatim
  613. @D all_includes params.All_includes
  614. @D auto_app_semi params.Auto_app_semi
  615. @D auto_semi params.Auto_semi[language_num]
  616. @D auto_line params.Auto_line
  617. @D beeps params.Beeps
  618. @D block_nums params.Block_nums[language_num]
  619. @D bslash_continued_strings params.Bslash_continued_strings
  620. @D chk_ifelse params.Chk_ifelse
  621. @D chk_stmts params.Chk_stmts
  622. @D compare_outfiles params.Compare_outfiles
  623. @D compound_assignments params.Compound_assignments
  624. @D Cpp params.CPP
  625. @D Cpp_comments params.CPP_comments[language_num]
  626. @D dbg_output params.Dbg_output
  627. @D deferred_macros params.Deferred_macros
  628. @D defn_mask params.Defn_mask
  629. @D dot_constants params.Dot_constants
  630. @D Fortran88 params.ForTran88
  631. @D Fortran_label params.Fortran_Label
  632. @D free_form_input params.Free_form_input[language_num]
  633. @D in_escape params.In_escape[language_num]
  634. @D index_hidden params.Index_hidden
  635. @D input_macros params.Input_macros
  636. @D keep_trailing_comments params.Keep_trailing_comments
  637. @D lc_keywords params.Lc_keywords
  638. @D line_info params.Line_info
  639. @D lowercase_tokens params.Lowercase_tokens
  640. @D m4 params.M4
  641. @D no_xref params.No_xref
  642. @D number_dos params.Number_dos
  643. @D nuweb_mode params.Nuweb_mode
  644. @D overload_ops params.Overload_ops
  645. @D point_comments params.Point_comments[language_num]
  646. @D prn_input_lines params.Prn_input_lines
  647. @D prn_input_addresses params.Prn_input_addresses
  648. @D prn_contents params.Prn_contents
  649. @D prn_index params.Prn_index
  650. @D prn_modules params.Prn_modules
  651. @D prn_semis params.Prn_semis
  652. @D quoted_includes params.Quoted_includes
  653. @D Ratfor77 params.RatFor77
  654. @D read_iformats params.Read_iformats
  655. @D reverse_indices params.Reverse_indices[language_num]
  656. @D rmv_files params.Rmv_files
  657. @D skip_ifiles params.Skip_ifiles
  658. @D skip_includes params.Skip_includes
  659. @D statistics params.Statistics
  660. @D subscript_fcns params.Subscript_fcns
  661. @D suppress_cmds params.Suppress_cmds
  662. @D TeX_processor params.TeX_Processor
  663. @D toggle_includes params.Toggle_includes
  664. @D top_version params.Top_version
  665. @D translate_ASCII params.Translate_ASCII
  666. @D translate_brackets params.Translate_brackets
  667. @D truncate_ids params.Truncate_ids
  668. @D try_extensions params.Try_extensions
  669. @D xref_unnamed params.Xref_unnamed
  670.  
  671. @a
  672.  
  673. typedef enum {TeX_p,LaTeX_p} TeX_PROCESSOR; /* What to use with \FWEAVE. */
  674.  
  675. typedef struct
  676.     {
  677.     LANGUAGE Language; /* The current language. May be set by encountering
  678. a module name, or by explicit \.{@@n}, \.{@@r}, or \.{@@c} commands. */
  679.     short Language_num,Language_index; /* These are set by
  680. |ini_language|. */
  681.  
  682. boolean@/
  683. /* Flags for really current state. */
  684.     In_format, /* Inside a |@@r format| statement. */
  685.     In_data, /* Inside a |@@r data| statement. */
  686.     Intermingle, /* Inside something like a |@@r data|
  687. statement. */
  688.     Include_line, /* Inside an \&{include} line. */
  689.  
  690. /* Options flags.  Some of these apply to all languages, others differ from
  691. language to language and are thus arrays. */
  692.     Active_brackets, /* Special array handling? */
  693.     All_cmnts_verbatim, /* Should \.{TANGLE} copy all comments? . */
  694.     All_includes, /* Cross-reference all include files? */
  695.     Auto_app_semi, /* For \.{WEAVE}, automatically
  696. append a pseudo-semi to the end of \.{WEB} macro definitions? */
  697.     Auto_semi[NUM_LANGUAGES], /* Fill in semicolon at end of source line? */
  698.     Auto_line, /* Auto-insert line number after \.{@@\%}? */
  699.     Beeps, /* Do we beep the terminal for certain errors? */
  700.     Block_nums[NUM_LANGUAGES], /* */
  701.     Bslash_continued_strings, /* Do the continuations of
  702. strings require a starting backslash? */ 
  703.     Chk_ifelse, /* Protect parenthesized strings? */
  704.     Chk_stmts, /* Check statement syntax in \Ratfor? */
  705.     Compare_outfiles, /* Check new (temporary) vs.\ old output? */
  706.     Compound_assignments, /* Do we allow things like \.{+=}? */
  707.     CPP, /* Do we recognize \.{C++}? */
  708.     CPP_comments[NUM_LANGUAGES], /* Allow short comments? */
  709.     Dbg_output, /* Print each character fired at output? */
  710.     Deferred_macros, /* Allow deferred macros? */
  711.     Dot_constants, /* Recognize dot constants like `\.{.eq.}'? */
  712.     ForTran88, /* Turn on stuff for Fortran-88? */
  713.     Fortran_Label, /* Label on same line? */
  714.     Free_form_input[NUM_LANGUAGES], /* Free-form syntax. */
  715.     In_escape[NUM_LANGUAGES], /* (|outer_char|) continuation character
  716. for end-of-lines. */
  717.     Index_hidden, /* Index skipped include files. */
  718.     Input_macros, /* Generate the default ``\.{\\input fwebmac}'' line? */
  719.     Keep_trailing_comments, /* For \TeX, retain comments that don't
  720. start a line. */
  721.     Lc_keywords, /* Lower-case \Fortran\ and \Ratfor\ I/O keywords? */
  722.     Line_info, /* Should \FTANGLE\ print out line information? */ 
  723.     Lowercase_tokens, /* Output lower-case tokens (\Ratfor). */
  724.     M4, /* Recognize \.{M4} preprocessor commands? */
  725.     No_xref, /* Should \.{WEAVE} print an index? */
  726.     Number_dos, /* */
  727.     Nuweb_mode, /* Emulate \.{nuweb}? */
  728.     Overload_ops, /* Is operator overloading allowed? */
  729.     Point_comments[NUM_LANGUAGES], /* Does \.! signify a \Fortran\ or
  730. \Ratfor\ comment? */
  731.     Prn_contents, /* Print table of contents? */
  732.     Prn_index, /* Print index? */
  733.     Prn_input_lines, /* Used in |input_ln| to print out the lines sent
  734. back. */ 
  735.     Prn_input_addresses, /* Print out the buffer addresses. */
  736.     Prn_modules, /* Print module list? */
  737.     Prn_semis, /* Print semicolons in \Fortran\ output. */
  738.     Quoted_includes, /* Cross-reference quoted include files? */
  739.     RatFor77, /* Expand \Ratfor\ code directly to \Fortran-77? */  
  740.     Read_iformats, /* Read include files for formats. */
  741.     Reverse_indices[NUM_LANGUAGES], /* C-style indexing in \Fortran? */
  742.     Rmv_files, /* Remove temporary files related to \.{-H}? */
  743.     Skip_ifiles, /* \.{-j} --- skip files already included. */
  744.     Skip_includes, /* For \.{WEAVE}, don't read in \.{@@I} commands.
  745. (Uppercase '\.{I}' only.) */ 
  746.     Statistics, /* Print statistics about memory usage? */
  747.     Subscript_fcns, /* Put module references on functions? */
  748.     Suppress_cmds, /* ??? */
  749.     Toggle_includes, /* For \.{WEAVE}, read in \.{@@I} commands, but
  750. don't print them out. */ 
  751.     Top_version, /* Header info at top of output? */
  752.     Translate_ASCII, /* Do we bother with the |xchr|--|xord|
  753. conversions? */ 
  754.     Translate_brackets, /* Brackets to parentheses in \Fortran? */
  755.     Truncate_ids, /* Shorten identifiers? */
  756.     Try_extensions, /* Search through list of possible file names? */
  757.     Xref_unnamed; /* Cross-reference unnamed references? */
  758.  
  759. DEFN_MASK Defn_mask; /* What defn's to print by \FWEAVE. */
  760. TeX_PROCESSOR TeX_Processor; /* Processor to be used with \FWEAVE. */
  761.  
  762. outer_char HUGE*outp_nm[NUM_LANGUAGES]; /* Current output file names. */
  763. FILE *outp_file[NUM_LANGUAGES]; /* File ptrs associated with above. */
  764.     } PARAMS;
  765.  
  766. IN_COMMON PARAMS params,global_params;
  767. IN_COMMON boolean stop_the_scan;
  768.  
  769. @ We need to know what kind of construction is being parsed, so the
  770. |get_line| routine can distinguish various input formats (for \FORTRAN). 
  771.  
  772. @a
  773.  
  774. typedef enum {OUTER,INNER} PARSING_MODE;
  775.  
  776. IN_COMMON PARSING_MODE parsing_mode CSET(OUTER);
  777.  
  778. @ More stuff related to parsing the input line.
  779.  
  780. @d preprocessing parse_params.Preprocessing
  781. @d at_beginning parse_params.At_beginning
  782. @d sharp_include_line parse_params.Sharp_include_line
  783. @d sharp_pragma_line parse_params.Sharp_pragma_line
  784.  
  785. @a
  786.  
  787. typedef struct
  788.     {
  789.     boolean Preprocessing; /* Are we scanning a preprocessor command? */
  790.     boolean At_beginning;  /* Are we at logical beginning of line? */
  791.     boolean Sharp_include_line; /* Does line start with ``|#include|''? */
  792.     boolean Sharp_pragma_line; /* Starts with ``|#pragma|''? */
  793.     } PARSE_PARAMS;
  794.  
  795. IN_COMMON PARSE_PARAMS parse_params 
  796. #ifdef _COMMON_h
  797. #if(part == 0 || part == 1)
  798.     = {NO,YES}
  799. #endif
  800. #endif
  801. ;
  802.  
  803. @ On an |ASCII| machine, we can speed things up by not bothering with the
  804. translations. (The flag |TRANSLATE_ASCII| is set in \.{os.hweb}.)
  805.  
  806. /* |ASCII| case changes. */
  807. @d isAupper(c) (c<=@'Z' && c>=@'A')
  808. @d isAlower(c) (c<=@'z' && c>=@'a')
  809.  
  810. @d SET_CASE(c) upper_case_code = BOOLEAN(isAupper(c))
  811.      /* Watch out for side effects. */
  812. @d lower_case_code BOOLEAN(!upper_case_code)
  813.  
  814. @d A_TO_LOWER(c) (ASCII)(isAupper(c) ? (int)c+040 : c)
  815. @d A_TO_UPPER(c) (ASCII)(isAlower(c) ? (int)c-040 : c)
  816.  
  817. /* Handle the difference between |ASCII| and |outer_char|. */
  818. @d isAlpha(c) isalpha(XCHR(c))
  819. @d isDigit(c) isdigit(XCHR(c)) /* We're working on |ASCII| input. */
  820. @d isBdigit(c) ((c)==@'0' || (c)==@'1') /* Is it a binary numeral? */
  821. @d isOdigit(c) (isDigit(c) && c!=@'8' && c!=@'9') /* Octal numeral? */
  822. @d isXdigit(c) isxdigit(XCHR(c)) /* Hex numeral? */
  823.  
  824. @a
  825.  
  826. EXTERN boolean upper_case_code SET(NO);
  827.  
  828. /* For debugging of target machines with a different character set than
  829. that of the present machine, use the |DEBUG_XCHR| flag to force the
  830. internal representation to be ``scrambled |ASCII|'', which replaces the
  831. array~|xchr| with |wt_style.xchr|. */
  832. #if(DEBUG_XCHR)
  833.     #define XCHR_ wt_style.xchr /* Scrambled mapping. */
  834. #else
  835.     #define XCHR_ xchr /* The mapping for this machine. */
  836. #endif /* |DEBUG_XCHR| */
  837.  
  838. #if(TRANSLATE_ASCII)
  839.     #define XORD(outer) xord[outer]
  840.     #define XCHR(inner) XCHR_[inner]
  841. #else /* Don't bother with the translations. */
  842.     #define XORD(outr) (outr) /* Funny spelling from Dethier's changes. */
  843.     #define XCHR(innr) (innr)
  844. #endif /* |TRANSLATE_ASCII| */
  845.  
  846. typedef unsigned char ASCII; /* Type of characters inside \.{WEB}. */
  847.  
  848. @ Here is how reserved words are stored.
  849.  
  850. @a
  851.  
  852. typedef struct
  853.     {
  854.     CONST char HUGE *reserved_word;
  855.     eight_bits type;
  856.     } RESERVED_WORD;
  857.  
  858. @ A global variable called |history| will contain one of four values
  859. at the end of every run: |spotless| means that no unusual messages were
  860. printed; |harmless_message| means that a message of possible interest
  861. was printed but no serious errors were detected; |error_message| means that
  862. at least one error was found; |fatal_message| means that the program
  863. terminated abnormally. The value of |history| does not influence the
  864. behavior of the program; it is simply computed for the convenience
  865. of systems that might want to use such information.
  866.  
  867. @d mark_harmless 
  868.     {SET_COLOR(ordinary); 
  869.     if (history==spotless) history=harmless_message;} 
  870.  
  871. @d mark_error 
  872.     {SET_COLOR(ordinary);
  873.     history=error_message;
  874.     }
  875.  
  876.  
  877. @a
  878.  
  879. typedef enum
  880.     {
  881.     spotless, /*  Normal jobs */
  882.     harmless_message, /*  Non-serious info was printed */ 
  883.     error_message, /*  An error was noted */
  884.     fatal_message /*  We had to stop prematurely */
  885.     } HISTORY;
  886.  
  887. IN_COMMON HISTORY history CSET(spotless); /* indicates how bad this run was */
  888.  
  889. @ 
  890.  
  891. @<Mac...@>=
  892. @@ A simple error message with no arguments is used frequently.  Error
  893. messages now carry an indication of their origin.
  894.  
  895. @@m err_print(origin,msg,...) 
  896.     err0_print(ERR_##origin,OC(msg),#0,#.)
  897. @@m ERR_PRINT(origin,msg) err_print(origin,msg) 
  898.  
  899. @@m MACRO_ERR(msg,trail,...) 
  900.     macro_err(OC(msg),trail,#.)
  901.  
  902. @
  903. @a
  904.  
  905. typedef enum {ERR_NULL,ERR_C,ERR_T,ERR_W,ERR_R,ERR_M,ERR_S} ERR_ORIGIN;
  906. IN_COMMON boolean err_happened CSET(NO);
  907.  
  908.  
  909. @ Code related to file handling. The open input files are maintained on a
  910. stack, with the |WEB_FILE| at the top~(0).  For every input file, there is
  911. an associated change file.
  912.  
  913. @f line x /* Make |line| an unreserved word. */
  914.  
  915. @d OUTPUT_LINE outp_line[lan_num(language)]
  916. @d OUTPUT_FILE_NAME outp_nm[lan_num(out_language)]
  917. @d OUT_LANGUAGE(language)
  918.     (R77_or_F ? (Fortran88 ? FORTRAN_90 : FORTRAN) : language)
  919. @d OUT_FILE_NAME outp_nm[lan_num(OUT_LANGUAGE(language))]
  920.  
  921. @D PUTC(c) 
  922.     {
  923.     CHECK_OPEN;
  924.     if(putc((int)(c),out_file) == EOF) 
  925.         out_error(OC("putc"));
  926.     }
  927.  
  928. @d MAX_FILE_NAME_LENGTH 200
  929.  
  930. @D WEB_FILE 0
  931. @D web_file_name prms[WEB_FILE].web.File_name /* Main source file name. */
  932. @D web_file prms[WEB_FILE].web.File /* Main source file. */
  933.  
  934. @D CUR_FILE incl_depth
  935. @D cur_file_name prms[CUR_FILE].web.File_name /* Current input file name. */
  936. @D cur_file prms[CUR_FILE].web.File /* Current input file. */
  937.  
  938. @D cur_line cur0_prms->Line /* Number of current line in current file. */
  939.  
  940. @D change_file_name prms[CUR_FILE].change.File_name
  941. @D change_file prms[CUR_FILE].change.File
  942. @D change_line prms[CUR_FILE].change.Line
  943.  
  944. /* --- Stuff used mostly within |input_ln| --- */
  945. @D num_in_buffer cur0_prms->Num_in_buffer
  946. @D comment_in_buffer cur0_prms->Comment_in_buffer
  947. @D scanning_C_cmnt cur0_prms->Scanning_C_cmnt
  948. @D start_C cur0_prms->Start_C
  949. @D last_was_empty cur0_prms->Last_was_empty
  950. @D continuing_line cur0_prms->Continuing_line
  951. @D last_was_continued cur0_prms->Last_was_continued
  952.  
  953. /* The following are used as arguments to |input_ln|. */
  954. @D INPUT_FILE &prms[CUR_FILE].web
  955. @D CHANGE_FILE &prms[CUR_FILE].change
  956.  
  957. /* --- Buffers --- */
  958. @D cur_buffer cur0_prms->Buffer
  959. @D buffer_end cur0_prms->Buffer_end
  960. @D limit cur0_prms->Limit /* points to the last character in the buffer. */
  961.  
  962. @D change_buffer (cur_prms.change)->Buffer
  963. @D change_buffer_end (cur_prms.change)->Buffer_end
  964. @D change_limit (cur_prms.change)->Limit
  965.  
  966. @a
  967.  
  968. IN_COMMON LANGUAGE out_language; /* Current language for output file. */
  969. IN_COMMON FILE *out_file; /* Current output file pointer. */
  970. IN_COMMON int incl_depth; /* Current level of file nesting. */
  971.  
  972. typedef struct
  973.     {
  974.     FILE *File;    /* Pointer to file. */
  975.     LINE_NUMBER Line;     /* Line number. */
  976.     ASCII HUGE *Buffer; /* Input buffer. */
  977.     ASCII HUGE *Buffer_end;
  978.     ASCII HUGE *K0;
  979.     ASCII HUGE *Limit; /* Next unfilled position. */
  980.     int Num_in_buffer; /* Number remaining to be read. */
  981.     boolean Comment_in_buffer; 
  982.     boolean Found_at,At_line;
  983.     boolean Scanning_C_cmnt,Start_C,Last_was_empty;
  984.     boolean Continuing_line,Last_was_continued;
  985.     outer_char File_name[MAX_FILE_NAME_LENGTH]; 
  986.     } INPUT_PRMS0;
  987.  
  988. IN_COMMON INPUT_PRMS0 HUGE *cur0_prms; /* Pointer to current parameters. */
  989.  
  990. typedef struct
  991.     {
  992.     INPUT_PRMS0 HUGE *web,HUGE *change;
  993.     } CUR_PRMS;
  994.  
  995. IN_COMMON CUR_PRMS cur_prms; /* Address of current input parameters. */
  996.  
  997. typedef struct
  998.  
  999.     {
  1000.     LANGUAGE Language;
  1001.     PARSING_MODE Parsing_mode;
  1002.     boolean Column_mode;
  1003.     } INPUT_PARAMS;
  1004.  
  1005. typedef struct
  1006.     {
  1007.     INPUT_PRMS0 web,change;
  1008.     INPUT_PARAMS input_params;
  1009.     } INPUT_PRMS;
  1010.  
  1011. IN_COMMON BUF_SIZE max_include_depth;
  1012. IN_COMMON INPUT_PRMS *prms; /* Stack of |max_include_depth+1| open files. */
  1013.  
  1014. IN_COMMON outer_char HUGE *tex_fname; /* Name of |tex_file|. */
  1015. #define tex_file out_file /* Where output of \.{WEAVE} goes. */
  1016.  
  1017. IN_COMMON outer_char HUGE *fwebmac; /* The default macro package. */
  1018.  
  1019. IN_COMMON boolean input_has_ended; /* If there is no more input. */
  1020. IN_COMMON boolean changing; /* If the current line is from |change_file|. */
  1021.  
  1022. typedef struct
  1023.     {
  1024.     outer_char HUGE *name; /* The ultimate output file name. */
  1025.     outer_char HUGE *tmp_name; /* Temporary file name, so new results
  1026.                     can be compared with old ones. */
  1027.     FILE *ptr; /* A pointer to |tmp_name|. */
  1028.     eight_bits previously_opened; /* Possibly opened, but now closed. */
  1029.     eight_bits global_scope; /* To control closing at end of each sectn. */
  1030.     } OPEN_FILE; /* Info about previously opened files. */
  1031.  
  1032. @ Short-hand for arguments to built-in functions.
  1033.  
  1034. @a
  1035. typedef eight_bits HUGE *PARGS[];
  1036.  
  1037. @
  1038. To recognize the various built-in functions, we must search through
  1039. a list.  
  1040.  
  1041. @d MAX_DOT_LENGTH 31 /* Don't have to scan farther than this to see if it's
  1042.             a dot constant. The~31 is a \FORTRAN-90 limit. */
  1043.  
  1044. @a
  1045.  
  1046. IN_COMMON ASCII HUGE *id_first; /* Where the current identifier begins in
  1047.                     the buffer */  
  1048. IN_COMMON ASCII HUGE *id_loc; /* Just after the current identifier in the
  1049.                     buffer */  
  1050.  
  1051. typedef struct
  1052.     {
  1053.     ASCII *name;
  1054.     int n;
  1055.     } BUILT_IN;
  1056.  
  1057. IN_COMMON BUILT_IN incl_likes[]
  1058. #ifdef _COMMON_h
  1059. #if(part == 0 || part == 1)
  1060.     = {
  1061.     {(ASCII *)"changequote",11},
  1062.     {(ASCII *)"ifelse",6},
  1063.     {(ASCII *)"include",7},
  1064.     {(ASCII *)"index",5},
  1065.     {(ASCII *)"len",3},
  1066.     {(ASCII *)"maketemp",8},
  1067.     {(ASCII *)"sinclude",8},
  1068.     {(ASCII *)"substr",6},
  1069.     {(ASCII *)"syscmd",6},
  1070.     {(ASCII *)"translit",8},
  1071.     {(ASCII *)"",0}
  1072.     }
  1073. #endif
  1074. #endif
  1075. ;
  1076.  
  1077. IN_COMMON BUILT_IN WEB_incl_likes[]
  1078. #ifdef _COMMON_h
  1079. #if(part == 0 || part == 1)
  1080.     = {
  1081.     {(ASCII *)"@!$COMMENT",8},
  1082.     {(ASCII *)"@!$DEFINE",7},
  1083.     {(ASCII *)"@!$ERROR",6},
  1084.     {(ASCII *)"@!$IF",3},
  1085.     {(ASCII *)"@!$IFCASE",7},
  1086.     {(ASCII *)"@!$IFELSE",7},
  1087.     {(ASCII *)"@!$LEN",4},
  1088.     {(ASCII *)"@!$M",2},
  1089.     {(ASCII *)"@!_COMMENT",8},
  1090.     {(ASCII *)"@!_DEFINE",7},
  1091.     {(ASCII *)"@!_ERROR",6},
  1092.     {(ASCII *)"@!_IF",3},
  1093.     {(ASCII *)"@!_IFCASE",7},
  1094.     {(ASCII *)"@!_IFELSE",7},
  1095.     {(ASCII *)"@!_LEN",4},
  1096.     {(ASCII *)"@!_M",2},
  1097.     {(ASCII *)"",0}
  1098.     }
  1099. #endif
  1100. #endif
  1101. ;
  1102.  
  1103. @ A similar list takes care of \Ratfor-90 statements that mustn't be
  1104. considered as statement labels.
  1105.  
  1106. @a
  1107.  
  1108. IN_COMMON BUILT_IN non_labels[]
  1109. #ifdef _COMMON_h
  1110. #if(part == 0 || part == 1)
  1111.     = {
  1112.     {(ASCII *)"contains",8},
  1113.     {(ASCII *)"default",7},
  1114.     {(ASCII *)"private",7},
  1115.     {(ASCII *)"protected",9},
  1116.     {(ASCII *)"public",6},
  1117.     {(ASCII *)"sequence",8},
  1118.     {(ASCII *)"",0}
  1119.     }
  1120. #endif
  1121. #endif
  1122. ;
  1123.  
  1124. @ 
  1125.  
  1126. @D dot_const OCTAL(23)
  1127.  
  1128. @<Mac...@>=
  1129. @@ FORTRAN uses constructions such as~|@@r .true.| or~|@@r .and.|, which we
  1130. have to parse separately.
  1131.  
  1132. @@m PREDEFINED_DOTS 14 /* \# of pre-initialized entries in the |dots| table. */
  1133.  
  1134. @
  1135. @a
  1136.  
  1137. typedef struct
  1138.     {
  1139.     ASCII *symbol;
  1140.     short len;
  1141.     eight_bits code; /* Something like |dot_const|. */
  1142.     eight_bits cat; /* Category code for special constants and
  1143. operators. */
  1144.     eight_bits token; /* The tokenized meaning of this operator. */
  1145.     } DOTS;
  1146.  
  1147. typedef struct
  1148.     {
  1149.     ASCII name[MAX_DOT_LENGTH+3]; /* Holds the macro name to be
  1150. appended. */ 
  1151.     eight_bits cat; /* Category of the operator. */
  1152.     eight_bits num; /* Position in the table. */
  1153.     } DOT_OP;
  1154.  
  1155. IN_COMMON DOT_OP dot_op 
  1156. #ifdef _COMMON_h
  1157. #if(part == 0 || part == 1)
  1158.     = {"\\",0,0}
  1159. #endif
  1160. #endif
  1161. ;
  1162.  
  1163. @ The |macrobuf| is a character buffer used for expanding macros, or for
  1164. holding macros defined from the input line. The present position in the
  1165. |macrobuf| is~|mp|.  For |macrobuf|, see \.{stacks.hweb} (\FTANGLE) or \FWEAVE.
  1166.  
  1167. @a
  1168.  
  1169. IN_COMMON boolean in_macro CSET(NO);
  1170.     
  1171. IN_COMMON BUF_SIZE mbuf_size; /* Set dynamically. */
  1172. IN_COMMON eight_bits HUGE *mp; /* Next available position in |macrobuf|. */
  1173.  
  1174. IN_COMMON boolean from_buffer CSET(NO); /* Are we reading from a buffer? */
  1175.  
  1176. @ Stuff related to command-line arguments.
  1177.  
  1178. @a
  1179.  
  1180. IN_COMMON int argc; /* copy of |ac| parameter to |main| */
  1181. IN_COMMON outer_char **argv; /* copy of |av| parameter to |main| */
  1182. IN_COMMON outer_char HUGE *pa; /* Current value of |*argv|. */
  1183.  
  1184. @ Defaults for |boolean| flags, etc.
  1185.  
  1186. /* MACROS here. */
  1187. @d ACTIVE_BRACKETS NO
  1188. @d ALL_CMNTS_VERBATIM NO
  1189. @d ALL_INCLUDES NO
  1190. @d AUTO_APP_SEMI NO
  1191. @d AUTO_LINE YES
  1192. @d BEEPS YES
  1193. @d BLOCK_NUMS NO
  1194. @d BSLASH_CONTINUED_STRINGS NO
  1195. @d CHK_IFELSE NO
  1196. @d CHK_STMTS NO
  1197. @d COMPARE_OUTFILES NO
  1198. @d COMPOUND_ASSIGNMENTS YES
  1199. @d CPP_COMMENTS YES
  1200. @d DBG_OUTPUT NO
  1201. @d DEFERRED_MACROS NO
  1202. @d DOT_CONSTANTS YES
  1203. @d FORTRAN88 NO    /* By default, it's \FORTRAN-77. */
  1204. @d FORTRAN_LABEL YES
  1205. @d FREE_FORM_INPUT YES
  1206. @d FREE_FORTRAN NO
  1207. @d IN_ESCAPE '\\'
  1208. @d INDEX_HIDDEN NO
  1209. @d INPUT_MACROS YES
  1210. @d KEEP_TRAILING_COMMENTS YES
  1211. @d LC_KEYWORDS NO
  1212. @d LINE_INFO YES
  1213. @d LOWERCASE_TOKENS NO
  1214. @d M4_ NO
  1215. @d NO_XREF NO
  1216. @d NUMBER_DOS NO
  1217. @d NUWEB_MODE NO
  1218. @d OVERLOAD_OPS YES
  1219. @d POINT_COMMENTS NO
  1220. @d PRN_CONTENTS YES
  1221. @d PRN_OUTER_MACROS YES
  1222. @d PRN_fORMATS YES
  1223. @d PRN_FORMATS YES
  1224. @d PRN_LIMBO YES
  1225. @d PRN_INDEX YES
  1226. @d PRN_MACROS YES
  1227. @d PRN_MODULES YES
  1228. @d PRN_SEMIS NO
  1229. @d PRN_V YES
  1230. @d PRN_W YES
  1231. @d QUOTED_INCLUDES NO
  1232. @d RATFOR77 YES
  1233. @d READ_IFORMATS NO
  1234. @d REVERSE_INDICES NO
  1235. @d RMV_FILES YES
  1236. @d SKIP_IFILES NO
  1237. @d SKIP_INCLUDES NO
  1238. @d STATISTICS NO
  1239. @d SUBSCRIPT_FCNS YES
  1240. @d TOGGLE_INCLUDES NO
  1241. @d TOP_VERSION YES
  1242. @d TRANSLATE_ASCII0 NO
  1243. @d TRANSLATE_BRACKETS YES
  1244. @d TRY_EXTENSIONS NO
  1245. @d TEX_PROCESSOR LaTeX_p
  1246. @d XREF_UNNAMED YES
  1247.  
  1248. @d CCHAR '&' /* Default \FORTRAN\ continuation character. */
  1249.  
  1250. @d NUM_RATFOR_CMDS 20 /* The total number of reserved \RATFOR\ keywords.
  1251.     This is used for an array size later on. */
  1252.  
  1253. @ A structure used for |see_reserved| and |id_info|.
  1254. @a
  1255.  
  1256. typedef struct
  1257.     {
  1258.     outer_char HUGE *args;
  1259.     boolean intrinsics, keywords, reserveds;
  1260.     } RSRVD;
  1261.  
  1262. @
  1263. @a
  1264.  
  1265. IN_COMMON outer_char cchar CSET(CCHAR); /* Fortran's continuation
  1266. character. */
  1267.  
  1268. IN_COMMON ASCII cont_char CSET(@'\\'); /* Current continuation char for eol. */
  1269. IN_COMMON boolean free_Fortran CSET(NO); /* Free-form syntax in \Fortran.  */
  1270. IN_COMMON boolean free_90 CSET(NO); /* \Fortran/Ratfor-90 and free-form 
  1271. syntax. */
  1272.  
  1273. IN_COMMON unsigned short tr_max[NUM_LANGUAGES]
  1274. #ifdef _COMMON_h
  1275. #if(part == 0 || part == 1)
  1276.     = {0,0,0,0,0,0,0,0}
  1277. #endif
  1278. #endif
  1279. ;
  1280.  
  1281. IN_COMMON CONST char HUGE *filter_char[NUM_LANGUAGES] 
  1282. #ifdef _COMMON_h
  1283. #if(part == 0 || part == 1)
  1284.     = {"","_","_","","", "","_","_"}
  1285. #endif
  1286. #endif
  1287. ;
  1288.  
  1289. IN_COMMON outer_char abbrev_cmds[NUM_RATFOR_CMDS+1] CSET(""); /* Nothing
  1290.     suppressed by default. */ 
  1291.  
  1292. @ Holds the command-line arguments, after expansion from the ini file.
  1293. @a
  1294.  
  1295. IN_COMMON outer_char HUGE *cmd_ln_buf;
  1296.  
  1297. @ The global variable |word_type| holds the type of identifier that
  1298. |id_lookup| will work on next. This comes into play when the |last|
  1299. argument to |id_lookup| is |NULL|. In this case, |id_lookup| finds its own
  1300. end of the identifier.
  1301.  
  1302. @D mod_info info.mod
  1303. @D mod_ilk mod_info->Ilk
  1304. @D macro_type info.Macro_type
  1305.  
  1306. @D defined_in(languag) dummy.defined_info[lan_num(languag)].section
  1307. @D defined_type(languag) dummy.defined_info[lan_num(languag)].type
  1308. @D ilk Ilk[language_num]
  1309. @D expandable dummy.RX.Expandable
  1310. @D rlink dummy.RX.Rlink
  1311. @D x_translate dummy.RX.Expand
  1312.  
  1313. @f HUGE_FCN_PTR huge
  1314.  
  1315. @a
  1316.  
  1317. typedef enum {ORDINARY_ID,RESERVED_WD,INTRINSIC_FCN,KEYWD} WORD_TYPE;
  1318.  
  1319. IN_COMMON WORD_TYPE word_type CSET(ORDINARY_ID);
  1320.  
  1321. #define X_FCN SRTN    /* |typedef| didn't work on the VAX. */
  1322.  
  1323. typedef struct RX_link
  1324.     {
  1325.     struct name_info HUGE *Rlink; /* right link in binary search tree for
  1326.                     module names */  
  1327.     X_FCN (HUGE_FCN_PTR * HUGE *Expand)(VOID); /* Array of functions
  1328. for keyword expansion (one for each language). */
  1329.     boolean Expandable; /* For which language is this expandable? */
  1330.     } RX_LINK;
  1331.  
  1332. typedef struct
  1333.     {
  1334.     char Ilk;
  1335.     PARAMS params;    
  1336.     } MOD_INFO;
  1337.  
  1338. IN_COMMON boolean index_flag; /* Print identifier in index? */
  1339.  
  1340. typedef boolean NAME_TYPE; /* Type of identifier, enumerated below. */
  1341.  
  1342. enum {NEVER_DEFINED=0,
  1343.     GENERIC_NAME,FUNCTION_NAME,M_MACRO,D_MACRO,IMPLICIT_RESERVED,
  1344.     TYPEDEF_NAME,
  1345.     NEVER_DEFINED0=0x80,
  1346.     GENERIC_NAME0,FUNCTION_NAME0,M_MACRO0,D_MACRO0,IMPLICIT_RESERVED0,
  1347.     TYPEDEF_NAME0};
  1348.  
  1349. /* Maybe the |defined_type| is already marked to not appear in the index.
  1350. (It's $> 128$.)  To properly set a new type, we use a macro to keep the
  1351. flag and attach it to the new type. */ 
  1352. #define SET_TYPE(p,type) p->defined_type(language) =\
  1353.      ((boolean)(type) | (boolean)((p->defined_type(language) & 0x80)))
  1354.  
  1355. /* To recover the base type, use the following, which strips off the flag: */
  1356. #define DEFINED_TYPE(p) (p->defined_type(language) & 0x7F)
  1357.  
  1358. typedef struct
  1359.     {
  1360.     sixteen_bits section; /* Section number where identifier defined. */
  1361.     NAME_TYPE type; /* Kind of identifier, such as function name. */
  1362.     } DEFINED_INFO;
  1363.  
  1364. typedef struct
  1365.     {
  1366.     ASCII HUGE *text; /* The replacement text for the macro. */
  1367.     unsigned int len; /* Length of replacement text. */
  1368.     eight_bits cat; /* Category code. */
  1369.     } WV_MACRO;
  1370.  
  1371. typedef struct name_info 
  1372.     {
  1373.     ASCII HUGE *byte_start; /* Beginning of the name in |byte_mem|. */
  1374.     struct name_info HUGE *link; /* Used for hashing. */
  1375.     union 
  1376.         {
  1377.         struct RX_link RX; /* For \FTANGLE. */
  1378.         DEFINED_INFO defined_info[NUM_LANGUAGES]; /* For \FWEAVE. */
  1379.         } dummy;
  1380.     boolean reserved_word,intrinsic_word,keyword;
  1381.     boolean Language;
  1382.     union
  1383.         {
  1384.         char Macro_type; /* For \FTANGLE. */
  1385.         boolean upper_case; /* For \FWEAVE\ identifiers. */
  1386.         MOD_INFO HUGE *mod; /* For \FWEAVE\ module names */
  1387.         } info;
  1388.     eight_bits Ilk[NUM_LANGUAGES];/* Used by ident.'s in \WEAVE\ only. */
  1389.     ASCII HUGE *equiv_or_xref; /* Info corresponding to names. */
  1390.     WV_MACRO HUGE *wv_macro; /* For fancy identifiers. */
  1391.     } NAME_INFO; /* Contains information about an identifier or mod
  1392. name. */
  1393.  
  1394. typedef NAME_INFO HUGE *name_pointer; /* pointer into array of |name_info|s. */
  1395.  
  1396. @
  1397. @<Mac...@>=
  1398. @@
  1399. @@f HUGE_FCN_PTR huge
  1400. @@<Initialize |mod_info| and |Language|@@>=
  1401. {
  1402. /* We allocate |MOD_INFO| structures only for module names, not for
  1403.     identifiers. */
  1404. node->mod_info = GET_MEM("mod_info",1,MOD_INFO);
  1405.  
  1406. node->mod_info->Ilk = expr;
  1407. node->mod_info->params = params; /* Freeze parameters at this point in time. */
  1408.  
  1409. node->Language = (boolean)language; /* Redundant. */
  1410. }
  1411.  
  1412. @
  1413. @<Globals@>=
  1414.  
  1415. IN_COMMON BUF_SIZE max_bytes;
  1416. IN_COMMON ASCII HUGE *byte_mem; /* Dynamic array: characters of names. */
  1417. IN_COMMON ASCII HUGE *byte_end; /* End of |byte_mem|. */
  1418.  
  1419. IN_COMMON BUF_SIZE max_names;
  1420. IN_COMMON NAME_INFO HUGE *name_dir; /* Dynamic array: information about
  1421. names. */
  1422. IN_COMMON name_pointer name_end; /* End of |name_dir|. */
  1423. IN_COMMON name_pointer npmax; /* |name_ptr - 1|. */
  1424.  
  1425. IN_COMMON BUF_SIZE longest_name;
  1426. IN_COMMON ASCII HUGE *mod_text; /* Dynamic array: name being sought for. */
  1427. IN_COMMON ASCII HUGE *mod_end; /* End of |mod_text|. */
  1428.  
  1429.  
  1430. @ 
  1431.  
  1432. @d USED_BY_NEITHER ((eight_bits)0xFF)
  1433. @d USED_BY_OTHER ignore
  1434.  
  1435. @<Mac...@>=
  1436. @@ For initializing |ccodes|.
  1437.  
  1438. @@m INI_CCODE(defaults,code)
  1439.     ini_ccode((outer_char *)#code,(outer_char *)defaults,code)
  1440.         /* We use the same keyword name as the \FWEB\ code. */
  1441.  
  1442. @@m REASSIGNABLE(d,c) INI_CCODE(d,c) /* For stuff that must later be
  1443. reassigned for     \FTANGLE. */
  1444.  
  1445. @@m SAME_CCODE(d,c) INI_CCODE(d,c)
  1446.  
  1447. @ 
  1448.  
  1449. @<Mac...@>=
  1450. @@ Macros to guard against overflow during |sprintf| or |vprintf|. The function
  1451. |nsprintf| is defined in \.{common.web} to handle non-ANSI return values from
  1452. |sprintf|. 
  1453.  
  1454. @@m NSPRINTF(buf_name,fmt,...) 
  1455.     nsprintf(buf_name,OC(fmt),#0,#.)
  1456. @@m NVSPRINTF(buf_name,fmt,...) 
  1457.     nvsprintf(buf_name,OC(fmt),#0,#.)
  1458.  
  1459. @@m SPRINTF(nmax,buf_name,args) 
  1460.     if(NSPRINTF(buf_name,args) >= (int)(nmax)) OVERFLW(#buf_name,"")@@;
  1461.  
  1462. @@m VSPRINTF(nmax,buf_name,args) 
  1463.     if(NVSPRINTF(buf_name,args) >= (int)(nmax)) OVERFLW(#buf_name,"")@@;
  1464.  
  1465. @@m vsprintf_(out,fmt,arg_ptr) 
  1466.     @!$P if(NUM_VA_ARGS == 1)
  1467.         {
  1468.         char *fmt0 = va_arg(arg_ptr,char *);
  1469.  
  1470.         va_arg(arg_ptr,int); /* Skip over~$n$. */
  1471.         vsprintf((char *)out,fmt0,arg_ptr);
  1472.         }
  1473.     @!$P else
  1474.         vsprintf(out,fmt,arg_ptr);
  1475.     @!$P endif
  1476.  
  1477. @@m vprintf_(fmt,arg_ptr) 
  1478.     @!$P if(NUM_VA_ARGS == 1)
  1479.         {
  1480.         char *fmt0 = va_arg(arg_ptr,char *);
  1481.  
  1482.         va_arg(arg_ptr,int);
  1483.         vprintf(out,fmt0,arg_ptr);
  1484.         }
  1485.     @!$P else
  1486.         vprintf(fmt,arg_ptr);
  1487.     @!$P endif
  1488.  
  1489. @@f VA_ARGS $_EXPR
  1490. @@f VA_DECL int
  1491. @@f VA_LIST int
  1492.  
  1493. @ 
  1494.  
  1495. @<Mac...@>=
  1496. @@ Abbreviations for buffer allocations.
  1497.  
  1498. @@m ABBREV(name) V_##name
  1499.  
  1500. @@m V_buf_size "bs"
  1501. @@m V_C_buf_size "cb"
  1502. @@m V_cmd_fsize "cf"
  1503. @@m V_cmd_size "cg"
  1504. @@m V_delta_dots "d"
  1505. @@m V_line_length "ll"
  1506. @@m V_longest_name "ln"
  1507. @@m V_max_bytes "b"
  1508. @@m V_dtexts_max "dx"
  1509. @@m V_max_dtoks "dt"
  1510. @@m V_max_expr_chars "lx"
  1511. @@m V_max_lbls "lb"
  1512. @@m V_max_margs "ma"
  1513. @@m V_max_ifiles "if"
  1514. @@m V_max_include_depth "id"
  1515. @@m V_max_modules "m"
  1516. @@m V_max_names "n"
  1517. @@m V_max_refs "r"
  1518. @@m V_max_scraps "s"
  1519. @@m V_max_texts "x"
  1520. @@m V_max_toks_t "tt"
  1521. @@m V_max_toks_w "tw"
  1522. @@m V_mbuf_size "mb"
  1523. @@m V_op_entries "op"
  1524. @@m V_num_files "nf"
  1525. @@m V_sbuf_len "sb"
  1526. @@m V_stck_size_t "kt"
  1527. @@m V_stck_size_w "kw"
  1528. @@m V_X_buf_size "xb"
  1529.  
  1530. @ Operator overloading.
  1531. @a
  1532.  
  1533. /* Information for each language. */
  1534. typedef struct
  1535.     {
  1536.     CONST outer_char *op_macro; /* The default \FWEB\ macro. */
  1537.     boolean overloaded; /* Has it been overloaded? */
  1538.     eight_bits cat;    /* Category code for this operator. */
  1539.     outer_char HUGE *defn; /* Replacement text for the \Fortran\ macro. */
  1540.     } OP_INFO;
  1541.  
  1542. /* The description of an operator. */
  1543. typedef struct
  1544.     {
  1545.     ASCII HUGE *op_name; /* \Fortran-like name of operator. Not |const|
  1546. because it's converted to |ASCII|. */
  1547.     OP_INFO info[NUM_LANGUAGES];
  1548.     } OPERATOR;
  1549.  
  1550. @ Colors.
  1551.  
  1552. @D ESC 0x1b
  1553. @D MD "[1m" /* High intensity */
  1554. @D US "[4m" /* Underline */
  1555. @D MR "[7m" /* Reverse video */
  1556. @D MO "[m"  /* Revert to normal */
  1557.  
  1558. @d SET_COLOR(field) set_color(wt_style.color.field.value)
  1559. @d CLR_PRINTF(field,args) SET_COLOR(field); printf args; fflush(stdout);
  1560.         set_color(color0.last)
  1561.  
  1562. @a
  1563.  
  1564. typedef enum
  1565.     {
  1566.     NORMAL,RED,GREEN,BLUE,YELLOW,ORANGE,HIGHEST_COLOR
  1567.     } COLOR;
  1568.  
  1569. IN_STYLE CONST char *clr_name[]
  1570. #ifdef _STYLE_h
  1571.     = {"NORMAL","RED","GREEN","BLUE","YELLOW","ORANGE"}
  1572. #endif
  1573. ;
  1574.  
  1575. typedef struct
  1576.     {
  1577.     COLOR last,present;
  1578.     } COLOR0;
  1579.  
  1580. IN_COMMON COLOR0 color0
  1581. #ifdef _COMMON_h
  1582. #if(part == 0 || part == 1)
  1583.     = {NORMAL,NORMAL}
  1584. #endif
  1585. #endif
  1586. ;
  1587.  
  1588. typedef struct
  1589.     {
  1590.     short n;    /* Number of escape sequences attached to this color. */
  1591.     outer_char **string;    /* Array of pointers to those sequences. */
  1592.     } SEQUENCES;
  1593.  
  1594. @* \TeX\ MODE.
  1595.  
  1596. @a
  1597.  
  1598. typedef enum
  1599.     {
  1600.     TeX_escape,TeX_bgroup,TeX_egroup,TeX_math_shift,TeX_alignment_tab,
  1601.     TeX_eol,TeX_parameter,TeX_superscript,TeX_subscript,TeX_ignored,
  1602.     TeX_space,TeX_letter,TeX_other,TeX_active,TeX_comment,TeX_invalid
  1603.     } TeX_CATEGORY; 
  1604.  
  1605. IN_COMMON TeX_CATEGORY TeX[128];
  1606.  
  1607. @ Because we must compare tokens to see if they're the special ones, and we
  1608. don't know where they are in the table, we'll initialize individual
  1609. variables with the appropriate values returned from |id_lookup|.
  1610.  
  1611. @f X_FCN void
  1612.  
  1613. @a
  1614.  
  1615. EXTERN sixteen_bits id_defined;
  1616.  
  1617. typedef struct
  1618.     {
  1619.     CONST char HUGE *name; /* Identifier. */
  1620.     int len;    /* Length of identifier. */
  1621.     X_FCN (HUGE_FCN_PTR *expand)(VOID); /* Function that expands this
  1622. token. */ 
  1623.     sixteen_bits HUGE *pid; /* Address of the |sixteen_bits| that is to be
  1624. initialized. */
  1625.     } SPEC;
  1626.  
  1627. @ Here we define the text that may be inserted automatically after a
  1628. \Ratfor\ program unit.
  1629.  
  1630. @a
  1631.  
  1632. typedef struct
  1633.     {
  1634.     eight_bits *start; /* Macro to be inserted. */
  1635.     eight_bits *end; /* End of |start|. */
  1636.     } INSERT_TEXT;
  1637.  
  1638. typedef struct
  1639.     {
  1640.     INSERT_TEXT program,module,subroutine,function,blockdata,interface;
  1641.     } INSERT_MATERIAL;
  1642.  
  1643. @
  1644. @a
  1645.  
  1646. boolean Rat_OK PROTO((outer_char *msg));
  1647. IN_COMMON boolean Rat_is_loaded; /* Set by call to |is_Rat_present|. */
  1648. IN_COMMON boolean xpn_Ratfor CSET(YES);
  1649.  
  1650. IN_TANGLE int spcs_after_cmnt TSET(0);/* Turned on for Ratfor error
  1651. messages. */
  1652. IN_TANGLE int brace_level TSET(0);
  1653. IN_TANGLE boolean checking_label TSET(NO);
  1654. IN_TANGLE INSERT_MATERIAL insert; /* For automatic insertions. */
  1655.  
  1656. @ The following structure is used to remember where loops etc.\ began.
  1657.  
  1658. When we encounter the beginning of a program, module, subroutine, or
  1659. function, we store the identifier token of the program unit's name in
  1660. |cur_fcn|. This can be used by the built-in |$ROUTINE|, or in various error
  1661. messages.
  1662.  
  1663. @D cur_fcn begun[rlevel-1].name
  1664. @D NO_FCN (sixteen_bits)0
  1665.     /* Value of |cur_fcn| when function name is unknown. */
  1666.  
  1667. @D cur_struct begun[rlevel-1].name
  1668. @D is_function begun[rlevel-1].function
  1669. @D symbolic_label begun[rlevel-1].symbolic
  1670.  
  1671. @<Typedefs@>=
  1672.  
  1673. typedef enum
  1674.     {
  1675.     _DO_CMD,
  1676.     block_CMD,blockdata_CMD,
  1677.     break_CMD,case_CMD,contains_CMD,
  1678.     default_CMD,do_CMD,for_CMD,function_CMD,
  1679.     if_CMD,interface_CMD,module_CMD,next_CMD,program_CMD,
  1680.     repeat_CMD,return_CMD,type_CMD,subroutine_CMD,switch_CMD,until_CMD,
  1681.     where_CMD,while_CMD
  1682.     } CMD;
  1683.  
  1684. typedef struct
  1685.     {
  1686.     CMD cmd; /* Type of keyword being expanded. */
  1687.     sixteen_bits name; /* Identifier for this program unit. */
  1688.     sixteen_bits symbolic; /* Symbolic loop label. */
  1689.     boolean function; /* Is this a function? */
  1690.     LINE_NUMBER line; /* Line number at which expansion started. */
  1691.     int level; /* Expansion level. */
  1692.     } BEGUN;
  1693.  
  1694. IN_TANGLE BEGUN HUGE *begun; /* Dynamic array. */
  1695. IN_TANGLE int rlevel TSET(0); /* Current level of \Ratfor\ expansion.  This is
  1696.         incremented for each expandable \Ratfor\ keyword. */
  1697.  
  1698. @ The routine |prsw_regular_code| has various nifty branches that the
  1699. outside world needs to access.
  1700. @<Typedef...@>=
  1701.  
  1702. @#ifdef MVS
  1703. /* The C370 compiler will do strange integer promotions, if we
  1704.     don't force it to do better.  (Thorsten Ohl.) */
  1705. typedef enum 
  1706.     {MORE_PARSE=-1,GOTO_MISTAKE=-2,GOTO_GET_IDENTIFIER=-3,
  1707.       GOTO_GET_A_STRING=-4,GOTO_SKIP_A_COMMENT=-5,GOTO_MVS_KLUDGE=32000}
  1708.              @[GOTO_CODE;
  1709. @#else /* Not |MVS|. */
  1710. typedef enum 
  1711.      {MORE_PARSE=-1,GOTO_MISTAKE=-2,GOTO_GET_IDENTIFIER=-3,
  1712.      GOTO_GET_A_STRING=-4,GOTO_SKIP_A_COMMENT=-5} @[GOTO_CODE;
  1713. @#endif /* Not |MVS|. */
  1714.   
  1715.  
  1716. @ Here we identify which part of the code we're dealing with.
  1717.  
  1718. @d mark_defined w_style.misc.mark
  1719.  
  1720. @<Typedef...@>=
  1721.  
  1722. typedef enum {LIMBO,TEX_,DEFINITION,CODE} PART;
  1723.  
  1724. IN_COMMON PART the_part CSET(LIMBO);
  1725.  
  1726. typedef struct
  1727.     {
  1728.     int generic_name,fcn_name,WEB_macro,outer_macro,imp_reserved_name,
  1729.         typedef_name;
  1730.     } MARK_DEFINED;
  1731.  
  1732. @ What macros to use to format identifiers.
  1733.  
  1734. @<Typedef...@>=
  1735.  
  1736. typedef struct
  1737.     {
  1738.     outer_char *reserved, *RESERVED;
  1739.     outer_char *short_id;
  1740.     outer_char *id, *ID;
  1741.     outer_char *id_outer, *ID_OUTER;
  1742.     outer_char *id_inner, *ID_INNER;
  1743.     outer_char *intrinsic;
  1744.     outer_char *keyword, *KEYWORD;
  1745.     outer_char *typewritr;
  1746.     outer_char *wildcrd;
  1747.     } FORMAT;
  1748.  
  1749. @ Options for \LaTeX.
  1750.  
  1751. @<Typedef...@>=
  1752.  
  1753. typedef struct
  1754. {
  1755. outer_char *options;
  1756. outer_char *file;
  1757. } OPTIONS_FILE;
  1758.  
  1759. typedef struct
  1760.     {
  1761.     OPTIONS_FILE class, package;
  1762.     } LATEX;
  1763.  
  1764. @ Stuff for the style file.
  1765. @<Typedef...@>=
  1766.  
  1767. typedef char CC_BUF[2][40]; /*  One line of output for the control codes. */
  1768.  
  1769. @
  1770. @<Glob...@>=
  1771.  
  1772. IN_STYLE outer_char HUGE *sbuf, HUGE *sbuf_end;/* One line of style file. */
  1773. IN_STYLE CONST outer_char HUGE *sloc; /* Position in |sbuffer|. */
  1774. IN_STYLE outer_char HUGE *slimit; /* Next available position in buffer. */
  1775. IN_STYLE LINE_NUMBER s_line SSET(0); /* Input line number. */
  1776.  
  1777. @ Additional macros for compatibility between |char| and |outer_char|.
  1778. @d OC(s) ((outer_char HUGE *)(s))
  1779.  
  1780. @d STAT0(name,size,num,max_num,abs_max_num,abbrev,ctrl_chars)
  1781.     stat0(OC(name),size,num,max_num,abs_max_num,
  1782.         OC(abbrev),OC(ctrl_chars))
  1783.  
  1784. @d OVERFLW(msg,abbrev) overflow(OC(msg),OC(abbrev))
  1785. @d NEW_SPRM(name, value) new_sprm(OC(name), value)
  1786.  
  1787. @d FATAL(origin, msg1, msg2) fatal(ERR_##origin, OC(msg1), OC(msg2))
  1788.  
  1789. @d CONFUSION(msg1,msg2) confusion(OC(msg1),OC(msg2))
  1790.  
  1791. @d RAT_OK(msg) Rat_OK(OC(msg))
  1792.  
  1793. @
  1794.  
  1795. @d APP_STR(s) app_str(OC(s))
  1796.  
  1797. @<Mac...@>=
  1798. @@
  1799. @@f X_FCN void
  1800. @@m RAT_ERROR(err_type,msg,n,...) 
  1801.     RAT_error(err_type,OC(msg),n,#.)
  1802.  
  1803. @* DEFINITIONS for TANGLE and WEAVE. Here's stuff required for
  1804. \.{tangle.web} and \.{weave.web}. 
  1805.  
  1806. @ As much as possible, we adhere to ANSI conventions. However, to support
  1807. pre-ANSI compilers such as \.{gcc}, we must make some modifications. It is
  1808. assumed that the compilers predefine macros such as |vax|, |sun|, or |mac|,
  1809. in \It{lower case}; if they do not, then these macros must be defined from
  1810. the command line. In addition, the \WEB\ files must be tangled with
  1811. \It{upper case} macros such as |VAX|, |SUN|, or |MAC| defined from the
  1812. command line, as in \.{ftangle tangle -m"SUN"}. It is conventional to put
  1813. the machine macro command into the ini file \.{.fweb}, as in ``\.{+mSUN}''.
  1814.  
  1815. @ The following flag is used for \Cpp. (??)
  1816. @%@<Common...@>=
  1817. @a
  1818. EXTERN boolean long_comment;
  1819.  
  1820. @ Code related to the character set. \It{Mess around here only at your own
  1821. risk.} 
  1822.  
  1823. @D and_and OCTAL(4) /* `|&&|'.*/
  1824. @D star_star OCTAL(5) /* `|@@r x**y|' .*/
  1825.  
  1826. /* The next two only occur in different languages, so they can have the same
  1827. value. */  
  1828. @D neqv OCTAL(10) /* `|@@r .neqv.|'.*/
  1829. @D ellipsis neqv /* `|...|'.*/
  1830.  
  1831. @D stmt_label OCTAL(30)
  1832.  
  1833. @D slash_slash OCTAL(26)  /* Concatenation `|@@r \/|' .*/
  1834.  
  1835. @D bell OCTAL(7) /* |ASCII| code for ringing the bell.*/
  1836. @D tab_mark @'\t' /* |ASCII| code used as tab-skip.*/
  1837. @D line_feed OCTAL(12) /* |ASCII| code thrown away at end of line; $\equiv$
  1838.             \.{'\\n'}. */
  1839. @D form_feed OCTAL(14) /* |ASCII| code used at end of page.*/
  1840. @D carriage_return OCTAL(15) /* |ASCII| code used at end of line.*/
  1841.  
  1842. @D gt_gt OCTAL(20) /* `|>>|'; this doesn't exist in MIT.*/
  1843. @D lt_lt OCTAL(22) /* `|<<|'; this doesn't exist in MIT.*/
  1844.  
  1845. @D plus_plus OCTAL(13) /* `|++|'; this corresponds to MIT's up-arrow.*/
  1846. @D minus_minus OCTAL(1) /* `|--|'; this corresponds to MIT's down-arrow.*/
  1847.  
  1848. @D minus_gt OCTAL(31) /* `|->|'.*/
  1849. @D eqv minus_gt /* `|@@r .eqv.|'.*/
  1850.  
  1851. @D not_eq OCTAL(32) /* `|!=|'.*/
  1852.  
  1853. @D paste OCTAL(33) /* `|##|'.*/
  1854.  
  1855. @D lt_eq OCTAL(34) /* `|<=|'.*/
  1856. @D gt_eq OCTAL(35) /* `|>=|'.*/
  1857.  
  1858. @D eq_eq OCTAL(36) /* `|==|'.*/
  1859.  
  1860. @D or_or OCTAL(37) /* `||| |'.*/
  1861.  
  1862. @D begin_language OCTAL(16) /* Mark a language switch.*/
  1863.  
  1864. @D left_array OCTAL(21)  /* `$\LS$'.*/
  1865. @D right_array OCTAL(25) /* `$\SR$'.*/
  1866.  
  1867. @D interior_semi OCTAL(24) /* `\.;'.  In \Fortran, a semicolon that's already
  1868.     present in the input line, as opposed to one that's inserted by
  1869.     \FWEB. */
  1870.  
  1871. @
  1872. @a
  1873.  
  1874. IN_COMMON ASCII xord[]; /* specifies conversion of input characters. */
  1875. #ifdef scramble_ASCII
  1876.     IN_COMMON ASCII xxord[];
  1877. #endif
  1878. IN_COMMON outer_char xchr[]; /* specifies conversion of output characters. */
  1879.  
  1880. @ Code related to input routines:
  1881.  
  1882. @a
  1883.  
  1884. IN_COMMON BUF_SIZE buf_size; /* Used for \FWEAVE; see \.{common.web}. */
  1885. IN_COMMON ASCII HUGE *loc; /* points to the next character to be read from the
  1886.                 buffer*/ 
  1887.  
  1888. typedef struct
  1889.     {
  1890.     unsigned size; /* Length of |list|. */
  1891.     outer_char HUGE *list; /* List of include files. */
  1892.     } INCL_PATHS;
  1893.  
  1894. @ Code related to identifier and module name storage:
  1895.  
  1896. @d ID_FLAG 10240 /* \bf DON'T MONKEY WITH THIS NUMBER!. */
  1897.  
  1898. @d length(c) ((c+1)->byte_start-(c)->byte_start) /* the length of a name. */
  1899.  
  1900. @d llink link /* left link in binary search tree for module names. */
  1901. @d root CAST(name_pointer,name_dir)->rlink /* the root of the binary search
  1902.                         tree  for module names */
  1903.  
  1904. @d is_intrinsic(n) (n->intrinsic_word & (boolean)language)
  1905. @d is_keyword(n) (n->keyword & (boolean)language)
  1906.  
  1907. @a
  1908.  
  1909. IN_COMMON name_pointer name_ptr; /* first unused position in |byte_start|. */
  1910. IN_COMMON ASCII HUGE *byte_ptr; /* first unused position in |byte_mem|. */
  1911.  
  1912. typedef name_pointer HUGE *hash_pointer;
  1913. IN_COMMON hash_pointer hash, /* heads of hash lists */
  1914.     hash_end, /* end of |hash| */
  1915.     h; /* index into hash-head array */
  1916.  
  1917.  
  1918. @ To distinguish between the constructions \.{@@<\dots@@>} and
  1919. \.{\#<\dots@@>}, both of which return |module_name|, we introduce the flag
  1920. |mac_mod_name|. 
  1921.  
  1922. @a
  1923.  
  1924. EXTERN boolean mac_mod_name;
  1925.  
  1926. @ Code related to module numbers:
  1927.  
  1928. @d BTRANS mod_trans(OC("beginning in module"),module_count)
  1929. @d MTRANS mod_trans(OC("module"),module_count) /* String including section and
  1930.                         page info. */ 
  1931. @d MTRANS0 mod_trans(OC(""),module_count)
  1932. @d MOD_TRANS(mnum) mod_trans(OC("module"), mnum)
  1933.  
  1934. @a
  1935.  
  1936. IN_COMMON sixteen_bits module_count; /* The current module number. */
  1937. IN_COMMON boolean HUGE *chngd_module; /* Dynamic array: Is the module/
  1938.                     changed? */
  1939. IN_COMMON boolean prn_where; /* Tells \.{TANGLE} to print line and file
  1940.                     info. */
  1941.  
  1942. @ Code relating to output:
  1943.  
  1944. @d UPDATE_TERMINAL fflush(stdout) /* Empty the terminal output buffer. */
  1945. @d new_line putchar('\n') @d putxchar putchar
  1946. @d ASCII_write(p0,n) fflush(stdout),
  1947.         ASCII_file_write(stdout,p0,(int)(n))@;
  1948.     /* Write on the standard output, converting from |ASCII|. */ 
  1949.  
  1950. @ For FORTRAN, \&{format} commands are annoying, because the use of slashes
  1951. doesn't fit with the rest of the \Fortran\ syntax. Thus, we'll deal with the
  1952. |format| statement something like a preprocessor statement, in that we'll
  1953. raise a special flag when we're inside it, and issue special tokens to
  1954. indicate the start and the end of the statement.
  1955.  
  1956. @D begin_format_stmt OCTAL(171)
  1957. @D end_format_stmt OCTAL(172)
  1958.  
  1959. @ 
  1960.  
  1961. @d is_identifier(c) (isAlpha(c) || c==@'_' || c==@'$' ||
  1962.     (c==@'%' && !C_LIKE(language) && !Fortran88) ) 
  1963.         /* This defines the starting character of an identifier. */ 
  1964.  
  1965. @d is_kind(c) (isDigit(c) || isAlpha(c) || c==@'_' || c==@'$') 
  1966.     /* \Fortran-90 kind parameter. */
  1967.  
  1968. @<Mac...@>=
  1969. @@ For~C, getting an identifier is simple. For FORTRAN, we treat \&{format}
  1970. statements much like C's preprocessor statement. However, there's no
  1971. special character to start a \&{format} line; we have to actually check the
  1972. identifier. Furthermore, it looks nicer if constructions such as \\{f6.2}
  1973. are treated as one identifier, so when we're inside a \&{format} statement
  1974. we allow the period to be an acceptable (internal) character for an
  1975. identifier.
  1976.  
  1977. @@<Get an identifier@@>= 
  1978. {
  1979. IN_COMMON ASCII HUGE *pformat, HUGE *pdata;
  1980.  
  1981. get_identifier:
  1982.     @@<Make |id_first| and |id_loc| point to the identifier@@>@@;
  1983.  
  1984. if(FORTRAN_LIKE(language))
  1985.     {
  1986.     if(web_strcmp(pformat,pformat+6,id_first,id_loc) == EQUAL)
  1987.         { /* Raise special flag to say we're inside a |@@r format|
  1988. statement. */ 
  1989.         in_format = YES;
  1990.         return begin_format_stmt; 
  1991.         }
  1992.     else if(program==weave)
  1993.         {
  1994.         if(web_strcmp(pdata,pdata+4,id_first,id_loc) == EQUAL)
  1995.             { /* Inside a |@@r data| statement. */
  1996.             in_data = YES;
  1997.             return identifier;
  1998.             }
  1999.         else if(at_beginning && *loc==@':' &&
  2000.                 !is_in(non_labels,id_first,id_loc))
  2001.             return stmt_label;  
  2002.         }
  2003.     }
  2004.  
  2005. if(is_include_like()) sharp_include_line = YES;
  2006. return identifier;
  2007. }
  2008.  
  2009. @
  2010. @<Mac...@>=
  2011. @@ 
  2012. @@<Make |id_first|...@@>=
  2013. {
  2014. id_first = --loc;
  2015.  
  2016. /* Scan over subsequent elements of an identifier. */
  2017. for(++loc; isAlpha(*loc) || isDigit(*loc)
  2018.     || *loc==@@'_' || *loc==@@'$' || (in_format && *loc==@@'.'); loc++)
  2019.         ;
  2020.  
  2021. id_loc = loc;  /* End plus one of the identifier.*/
  2022. }
  2023.  
  2024. @ 
  2025. @<Mac...@>=
  2026. @@ Here we obtain the file name after an \.{@@@@o}~command.
  2027. @@<Scan the output file name@@>=
  2028. {
  2029. while(*loc == @' ' || *loc == tab_mark)
  2030.     {
  2031.     loc++;
  2032.     if(loc > limit) return ignore;
  2033.     }
  2034.  
  2035. id_first = loc;
  2036. while(*loc != @' ' && *loc != tab_mark) loc++; /* Absorb file name. */
  2037. id_loc = loc;
  2038. if(*id_first == @'"') id_first++;
  2039. if(*(id_loc-1) == @'"') id_loc--;
  2040. if(id_loc - id_first >= MAX_FILE_NAME_LENGTH)
  2041.     {
  2042.     err_print(T,"Output file name too long; allowed only %d characters",
  2043.         MAX_FILE_NAME_LENGTH - 1);
  2044.     id_loc = id_first + MAX_FILE_NAME_LENGTH - 1;
  2045.     }
  2046. }
  2047.  
  2048. @ These tables are initialized during |common_init|.
  2049.  
  2050. @a
  2051.  
  2052. #undef expr
  2053. #define expr 1
  2054.  
  2055. #undef unop
  2056. #define unop 2
  2057.  
  2058. #undef binop
  2059. #define binop 3
  2060.  
  2061. extern DOTS HUGE *dots; /* The dynamic table; see \.{common.web}. */
  2062.  
  2063. #ifdef _FWEB_h
  2064.  
  2065.     EXTERN DOTS dots0[]
  2066.    #if(part == 0 || part == 1)
  2067.         = {
  2068.         {(ASCII *)"@@@@@@",3,dot_const,expr,0}, /* Dummy */
  2069.         {(ASCII *)"AND",3,dot_const,binop,and_and}, /* |and_and| */
  2070.         {(ASCII *)"EQ",2,dot_const,binop,eq_eq}, /* |eq_eq| */
  2071.         {(ASCII *)"EQV",3,dot_const,binop,eqv}, /* |eqv| */
  2072.         {(ASCII *)"FALSE",5,dot_const,expr,0},
  2073.         {(ASCII *)"GE",2,dot_const,binop,gt_eq}, /* |gt_eq| */
  2074.         {(ASCII *)"GT",2,dot_const,binop,@'>'}, /* |@'>'| */
  2075.         {(ASCII *)"LE",2,dot_const,binop,lt_eq}, /* |lt_eq| */
  2076.         {(ASCII *)"LT",2,dot_const,binop,@'<'}, /* |@'<'| */
  2077.         {(ASCII *)"NE",2,dot_const,binop,not_eq}, /* |not_eq| */
  2078.         {(ASCII *)"NEQV",4,dot_const,binop,neqv}, /* |neqv| */
  2079.         {(ASCII *)"NOT",3,dot_const,unop,@'!'}, /* |@'!'| */
  2080.         {(ASCII *)"OR",2,dot_const,binop,or_or}, /* |or_or| */
  2081.         {(ASCII *)"TRUE",4,dot_const,expr,1},
  2082.         {(ASCII *)"XOR",3,dot_const,binop,neqv}, /* |neqv| */
  2083.         {(ASCII *)"",0,0,0,0}
  2084.         }
  2085.     #endif /* |part == 1| */
  2086.         ;
  2087. #endif /* |_FWEB_h| */
  2088.  
  2089. @ The preprocessor commands have a similar format.
  2090. @a
  2091.  
  2092. #ifdef _FWEB_h
  2093.  
  2094.     EXTERN DOTS mcmds[] 
  2095.    #if(part ==0 || part == 1)
  2096.      = {
  2097.         {(ASCII *)"define",6,WEB_definition},
  2098.         {(ASCII *)"elif",4,m_elif},
  2099.         {(ASCII *)"elseif",6,m_elif},
  2100.         {(ASCII *)"else",4,m_else},
  2101.         {(ASCII *)"endfor",6,m_endfor},
  2102.         {(ASCII *)"endif",5,m_endif},
  2103.         {(ASCII *)"for",3,m_for},
  2104.         {(ASCII *)"if",2,m_if},
  2105.         {(ASCII *)"ifdef",5,m_ifdef},
  2106.         {(ASCII *)"ifndef",6,m_ifndef},
  2107.         {(ASCII *)"line",4,m_line},
  2108.         {(ASCII *)"undef",5,m_undef},
  2109.         {(ASCII *)"",0,0}
  2110.         }
  2111.     #endif /* |part == 1| */
  2112.         ;
  2113. #endif /* |_FWEB_h| */
  2114.  
  2115. @ 
  2116. @<Mac...@>=
  2117. @@ The preprocessor commands are piggy-backed on the \.{@@@@\#} command. If
  2118. there's text after that command, then we hunt through the above table.
  2119. If we find a processor command, any subsequent white space is skipped.
  2120. (This was added for nuweb mode, which otherwise takes each blank one at a
  2121. time.)  Otherwise, it's a |big_line_break|.
  2122.  
  2123. @@<Process possible preprocessor command@@>=
  2124. {
  2125. boolean mcode;
  2126.  
  2127. *limit = @' '; /* Terminator for identifier search. */
  2128. id_first = loc;
  2129.  
  2130. while(isAlpha(*loc)) loc++; /* Find end of identifier. */
  2131.  
  2132. if((mcode=is_mcmd(mcmds,id_first,loc)) != 0) 
  2133.     {
  2134.     while(loc < limit && (*loc == @@' ' || *loc == tab_mark))
  2135.         loc++;
  2136.  
  2137.     return mcode;
  2138.     }
  2139.  
  2140. loc = id_first; /* Failed to recognize preprocessor command. */
  2141. }
  2142.  
  2143. @ Here are macros for use with memory allocation.
  2144.  
  2145. @d GET_MEM(why,nunits,type) 
  2146.     (type HUGE *)get_mem0((outer_char *)why,(unsigned long)(nunits),
  2147.         sizeof(type)) 
  2148.  
  2149. @d FREE_MEM(p,why,nunits,type) 
  2150.     free_mem0((void HUGE *)p,(outer_char *)why,(unsigned long)(nunits),
  2151.         sizeof(type))
  2152.  
  2153. @d ALLOC(type,ptr,abbrev,nunits,dn) 
  2154.     ptr = (type HUGE *)alloc((outer_char *)abbrev,(BUF_SIZE HUGE *)&nunits,
  2155.         sizeof(*ptr),dn)
  2156.  
  2157.  
  2158. @a
  2159.  
  2160. IN_COMMON sixteen_bits HUGE *args; /* For macro processing. */
  2161. IN_COMMON BUF_SIZE max_margs;
  2162.  
  2163. @ Miscellaneous definitions.
  2164.  
  2165.     @D MCHECK0(n,reason) mcheck0((unsigned long)(n),(outer_char *)reason)
  2166.  
  2167.     @d EVALUATE(val,p0,p1) 
  2168.       {unsigned long nbytes;
  2169.       val_ptr = val_heap = 
  2170.       GET_MEM("val_heap",nbytes=2*((p1)-(p0)),VAL); 
  2171.         evaluate(&val,p0,p1); 
  2172.       if(val_heap) FREE_MEM(val_heap,"val_heap",nbytes,VAL);
  2173.       }
  2174.  
  2175.     @d DONE_LEVEL (cur_byte >= cur_end) /* Do we need to pop? */
  2176.  
  2177. @<Mac...@>=
  2178. @@
  2179. @@<Glob...@@>=
  2180.  
  2181. /* The shorter length here is primarily to keep the stack under control.
  2182. Now that |N_MSGBUF| is used  dynamically, maybe this statement isn't
  2183. necessary. */ 
  2184. #ifdef SMALL_MEMORY
  2185.     #define N_MSGBUF 2000
  2186. #else
  2187.     #define N_MSGBUF 10000
  2188. #endif 
  2189.  
  2190.  
  2191. @ The following helps insert spaces in the output.
  2192. @<Typedef...@>=
  2193.  
  2194. typedef enum
  2195.     {
  2196.     MISCELLANEOUS, /* ``normal'' state */
  2197.     NUM_OR_ID, /* state associated with numbers and identifiers */
  2198.     UNBREAKABLE, /* state associated with \.{@@\&} */
  2199.     VERBATIM /* state in the middle of a string */
  2200.     } OUTPUT_STATE;
  2201.  
  2202. @ For debugging and error messages, we need a routine that gives the name
  2203. of a control code.
  2204.  
  2205. @A
  2206. #ifdef _FWEB_h
  2207. #if(part == 0 || part == 1)
  2208.  
  2209. @[outer_char *ccode_name FCN((code))
  2210.     eight_bits code C1("")@;
  2211. {
  2212. switch(code)
  2213.     {
  2214.    case begin_FORTRAN: return (outer_char *)"begin_FORTRAN";
  2215.    case begin_RATFOR: return (outer_char *)"begin_RATFOR";
  2216.    case begin_C: return (outer_char *)"begin_C";
  2217.    case ascii_constant: return (outer_char *)"ascii_constant";
  2218.    case big_line_break: return (outer_char *)"big_line_break";
  2219.    case begin_meta: return (outer_char *)"begin_meta";
  2220.    case end_meta: return (outer_char *)"end_meta";
  2221.    case TeX_string: return (outer_char *)"TeX_string";
  2222.    case xref_roman: return (outer_char *)"xref_roman";
  2223.    case xref_typewriter: return (outer_char *)"xref_typewriter";
  2224.    case xref_wildcard: return (outer_char *)"xref_wildcard";
  2225.    case formatt: return (outer_char *)"formatt";
  2226.    case definition: return (outer_char *)"definition";
  2227.    case WEB_definition: return (outer_char *)"WEB_definition";
  2228.    case begin_code: return (outer_char *)"begin_code";
  2229.    case module_name: return (outer_char *)"module_name";
  2230.    case new_module: return (outer_char *)"new_module";
  2231.    case m_ifdef: return (outer_char *)"m_ifdef";
  2232.    case m_ifndef: return (outer_char *)"m_ifndef";
  2233.    case m_if: return (outer_char *)"m_if";
  2234.    case m_else: return (outer_char *)"m_else";
  2235.    case m_elif: return (outer_char *)"m_elif";
  2236.    case m_endif: return (outer_char *)"m_endif";
  2237.    case m_undef: return (outer_char *)"m_undef";
  2238.    case m_line: return (outer_char *)"m_line";
  2239.  
  2240. #ifdef _FTANGLE_h
  2241.    case begin_vcmnt: return (outer_char *)"begin_vcmnt";
  2242.    case begin_bp: return (outer_char *)"begin_bp";
  2243.    case insert_bp: return (outer_char *)"insert_bp";
  2244.    case control_text: return (outer_char *)"control_text";
  2245. #endif /* |_FTANGLE_h| */
  2246.  
  2247. #ifdef _FWEAVE_h
  2248.    case dont_expand: return (outer_char *)"dont_expand";
  2249.    case auto_label: return (outer_char *)"auto_label";
  2250.    case macro_module_name: return (outer_char *)"macro_module_name";
  2251.    case switch_math_flag: return (outer_char *)"switch_math_flag";
  2252.    case underline: return (outer_char *)"underline";
  2253.    case thin_space: return (outer_char *)"thin_space";
  2254.    case math_break: return (outer_char *)"math_break";
  2255.    case line_break: return (outer_char *)"line_break";
  2256.    case no_line_break: return (outer_char *)"no_line_break";
  2257.    case pseudo_semi: return (outer_char *)"pseudo_semi";
  2258.    case macro_space: return (outer_char *)"macro_space";
  2259.    case copy_mode: return (outer_char *)"copy_mode";
  2260.    case toggle_output: return (outer_char *)"toggle_output";
  2261.    case pseudo_expr: return (outer_char *)"pseudo_expr";
  2262.    case pseudo_colon: return (outer_char *)"pseudo_colon";
  2263.    case trace: return (outer_char *)"trace";
  2264. #endif /* |_FWEAVE_h| */
  2265.    default: return OC("UNKNOWN");
  2266.     }    
  2267. }
  2268. #endif /* |part == 1| */
  2269. #endif /* |_FWEB_h| */
  2270.  
  2271. @ Wrapping it up.
  2272. @a
  2273. @<Glob...@>@;
  2274. @<Typedef...@>@;
  2275.  
  2276. @
  2277. @<Mac...@>=
  2278. @@
  2279. @@<Include...@@>=
  2280. #include "typedefs.h"
  2281.  
  2282. @* INDEX.
  2283.