home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d551 / cweb.lha / CWeb / cweb2.lzh / cweb / common.h next >
C/C++ Source or Header  |  1990-12-14  |  8KB  |  176 lines
  1. % This file is part of CWEB.
  2. % This program by Silvio Levy is based on a program by D. E. Knuth.
  3. % It is distributed WITHOUT ANY WARRANTY, express or implied.
  4. % $Revision: 2.0$ % Don Knuth, July 1990
  5.  
  6. % Copyright (C) 1987,1990 Silvio Levy and Donald E. Knuth
  7.  
  8. % Permission is granted to make and distribute verbatim copies of this
  9. % document provided that the copyright notice and this permission notice
  10. % are preserved on all copies.
  11.  
  12. % Permission is granted to copy and distribute modified versions of this
  13. % document under the conditions for verbatim copying, provided that the
  14. % entire resulting derived work is distributed under the terms of a
  15. % permission notice identical to this one.
  16.  
  17. % Please send comments, suggestions, etc. to levy@@princeton.
  18.  
  19. % The next few sections contain stuff from the file |"common.w"| that has
  20. % to be included in both |"tangle.w"| and |"weave.w"|. It appears in
  21. % file |"common.h"|, which needs to be updated when |"common.w"| changes.
  22.  
  23. First comes general stuff:
  24.  
  25. @d tangle 0
  26. @d weave 1
  27.  
  28. @<Common code for \.{WEAVE} and \.{TANGLE}@>=
  29. typedef short boolean;
  30. typedef char unsigned eight_bits;
  31. extern boolean program; /* \.{WEAVE} or \.{TANGLE}? */
  32. extern int phase; /* which phase are we in? */
  33.  
  34. @ @<Include files@>=
  35. #include <stdio.h>
  36.  
  37. @ Code related to the character set:
  38. @^ASCII code dependencies@>
  39.  
  40. @d and_and 04 /* `\.{\&\&}'; this corresponds to MIT's {\tentex\char'4} */
  41. @d lt_lt 020 /* `\.{<<}';  this corresponds to MIT's {\tentex\char'20} */
  42. @d gt_gt 021 /* `\.{>>}';  this corresponds to MIT's {\tentex\char'21} */
  43. @d plus_plus 013 /* `\.{++}';  this corresponds to MIT's {\tentex\char'13} */
  44. @d minus_minus 01 /* `\.{--}';  this corresponds to MIT's {\tentex\char'1} */
  45. @d minus_gt 031 /* `\.{->}';  this corresponds to MIT's {\tentex\char'31} */
  46. @d not_eq 032 /* `\.{!=}';  this corresponds to MIT's {\tentex\char'32} */
  47. @d lt_eq 034 /* `\.{<=}';  this corresponds to MIT's {\tentex\char'34} */
  48. @d gt_eq 035 /* `\.{>=}';  this corresponds to MIT's {\tentex\char'35} */
  49. @d eq_eq 036 /* `\.{==}';  this corresponds to MIT's {\tentex\char'36} */
  50. @d or_or 037 /* `\.{\v\v}';  this corresponds to MIT's {\tentex\char'37} */
  51.  
  52. @<Common code...@>=
  53. char mod_text[longest_name+1]; /* name being sought for */
  54. char *mod_text_end = mod_text+longest_name; /* end of |mod_text| */
  55. char *id_first; /* where the current identifier begins in the buffer */
  56. char *id_loc; /* just after the current identifier in the buffer */
  57.  
  58. @ Code related to input routines:
  59.  
  60. @<Common code...@>=
  61. extern char buffer[]; /* where each line of input goes */
  62. extern char *buffer_end; /* end of |buffer| */
  63. extern char *loc; /* points to the next character to be read from the buffer*/
  64. extern char *limit; /* points to the last character in the buffer */
  65.  
  66. @ Code related to identifier and module name storage:
  67. @d length(c) (c+1)->byte_start-(c)->byte_start /* the length of a name */
  68. @d print_id(c) term_write((c)->byte_start,length((c)))
  69.   /* print identifier or module name */
  70. @d llink link /* left link in binary search tree for module names */
  71. @d rlink dummy.Rlink /* right link in binary search tree for module names */
  72. @d root name_dir->rlink /* the root of the binary search tree
  73.   for module names */
  74.  
  75. @<Common code...@>=
  76. typedef struct name_info {
  77.   char *byte_start; /* beginning of the name in |byte_mem| */
  78.   struct name_info *link;
  79.   union {
  80.     struct name_info *Rlink; /* right link in binary search tree for module
  81.       names */  
  82.     char Ilk; /* used by identifiers in \.{WEAVE} only */
  83.   } dummy;
  84.   char *equiv_or_xref; /* info corresponding to names */
  85. } name_info; /* contains information about an identifier or module name */
  86. typedef name_info *name_pointer; /* pointer into array of |name_info|s */
  87. typedef name_pointer *hash_pointer;
  88. extern char byte_mem[]; /* characters of names */
  89. extern char *byte_mem_end; /* end of |byte_mem| */
  90. extern name_info name_dir[]; /* information about names */
  91. extern name_pointer name_dir_end; /* end of |name_dir| */
  92. extern name_pointer name_ptr; /* first unused position in |byte_start| */
  93. extern char *byte_ptr; /* first unused position in |byte_mem| */
  94. extern name_pointer hash[]; /* heads of hash lists */
  95. extern hash_pointer hash_end; /* end of |hash| */
  96. extern hash_pointer h; /* index into hash-head array */
  97. extern name_pointer id_lookup(); /* looks up a string in the identifier table */
  98. extern name_pointer mod_lookup(); /* finds module name */
  99. extern name_pointer prefix_lookup(); /* finds module name given a prefix */
  100.  
  101. @ Code related to error handling:
  102. @d spotless 0 /* |history| value for normal jobs */
  103. @d harmless_message 1 /* |history| value when non-serious info was printed */
  104. @d error_message 2 /* |history| value when an error was noted */
  105. @d fatal_message 3 /* |history| value when we had to stop prematurely */
  106. @d mark_harmless {if (history==spotless) history=harmless_message;}
  107. @d mark_error history=error_message
  108. @d confusion(s) fatal("! This can't happen: ",s)
  109. @d fatal(s,t) {
  110.   printf(s); err_print(t);
  111.   history=fatal_message; wrap_up();
  112. }
  113. @d overflow(t) {
  114.   printf("\n! Sorry, %s capacity exceeded",t); fatal("","");
  115. }
  116.  
  117. @<Common...@>=
  118. extern history; /* indicates how bad this run was */
  119. extern err_print(); /* prints error message and context */
  120. extern wrap_up(); /* indicate |history| and exit */
  121.  
  122. @ Code related to file handling:
  123. @f line x /* make |line| an unreserved word */
  124. @d max_file_name_length 60
  125. @d cur_file file[include_depth] /* current file */
  126. @d cur_file_name file_name[include_depth] /* current file name */
  127. @d web_file_name file_name[0] /* main source file name */
  128. @d cur_line line[include_depth] /* number of current line in current file */
  129.  
  130. @<Common code...@>=
  131. extern include_depth; /* current level of nesting */
  132. extern FILE *file[]; /* stack of non-change files */
  133. extern FILE *change_file; /* change file */
  134. extern char C_file_name[]; /* name of |C_file| */
  135. extern char tex_file_name[]; /* name of |tex_file| */
  136. extern char file_name[][max_file_name_length];
  137.   /* stack of non-change file names */
  138. extern char change_file_name[]; /* name of change file */
  139. extern line[]; /* number of current line in the stacked files */
  140. extern change_line; /* number of current line in change file */
  141. extern boolean input_has_ended; /* if there is no more input */
  142. extern boolean changing; /* if the current line is from |change_file| */
  143. extern boolean web_file_open; /* if the web file is being read */
  144. extern reset_input(); /* initialize to read the web file and change file */
  145. extern get_line(); /* inputs the next line */
  146. extern check_complete(); /* checks that all changes were picked up */
  147.  
  148. @ Code related to module numbers:
  149. @<Common code...@>=
  150. typedef unsigned short sixteen_bits;
  151. extern sixteen_bits module_count; /* the current module number */
  152. extern boolean changed_module[]; /* is the module changed? */
  153. extern boolean print_where; /* tells \.{TANGLE} to print line and file info */
  154.  
  155. @ Code related to command line arguments:
  156. @d show_banner flags['b'] /* should the banner line be printed? */
  157. @d show_progress flags['p'] /* should progress reports be printed? */
  158. @d show_happiness flags['h'] /* should lack of errors be announced? */
  159.  
  160. @<Common code...@>=
  161. extern int argc; /* copy of |ac| parameter to |main| */
  162. extern char **argv; /* copy of |av| parameter to |main| */
  163. extern boolean flags[]; /* an option for each 7-bit code */
  164.  
  165. @ Code relating to output:
  166. @d update_terminal fflush(stdout) /* empty the terminal output buffer */
  167. @d new_line putchar('\n') @d putxchar putchar
  168. @d term_write(a,b) fflush(stdout), write(1,a,b) /* write on the standard output */
  169. @d line_write(c) write(fileno(C_file),c) /* write on the C output file */
  170. @d C_printf(c,a) fprintf(C_file,c,a)
  171. @d C_putc(c) putc(c,C_file)
  172.  
  173. @<Common code...@>=
  174. extern FILE *C_file; /* where output of \.{TANGLE} goes */
  175. extern FILE *tex_file; /* where output of \.{WEAVE} goes */
  176.