home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / tex / texsrc2 / Src / fontutil / gftodvi / old-ch < prev    next >
Text File  |  1993-02-21  |  27KB  |  820 lines
  1. % gftodvi.ch for C compilation with web2c.
  2. %
  3. % History:
  4. % 01/20/90 Karl        New gftodvi.web (same version number).
  5. % 12/02/89 Karl Berry    To version 3.
  6. % 
  7. % Revision 1.7.1.5  86/02/01  15:29:58  richards
  8. %     Released again for MF 1.0 package
  9. % Revision 1.7.1.4  86/02/01  15:06:50  richards
  10. %     Added: <nl> at end of successful run
  11. % Revision 1.7.1.3  86/01/27  16:39:48  richards
  12. %     Fixed: syntax error in previous edits
  13. % Revision 1.7.1.2  86/01/27  15:55:58  richards
  14. %     Added: dvi_buf_type declaration and redefined dvi_buf[] in
  15. %            terms of it, so we can use it as a parameter to b_write_buf()
  16. % Revision 1.7.1.1  86/01/27  15:39:10  richards
  17. %     First edit to use new binary I/O routines
  18. % Revision 1.7  85/10/21  21:55:50  richards
  19. %     Released for GFtoDVI 1.7
  20. % Revision 1.3.7.1  85/10/18  22:59:01  richards
  21. %     Updated for GFtoDVI Version 1.7 (Distributed w/ MF84 Version 0.9999)
  22. % Revision 1.3.5.1  85/10/09  17:02:35  richards
  23. %     First draft to run at 1.5 level
  24. % Revision 1.3  85/05/27  21:15:30  richards
  25. %     Updated for GFtoDVI Version 1.3 (Distributed w/ MF84 Version 0.91)
  26. % Revision 1.2  85/04/25  19:33:30  richards
  27. %     Updated to GFtoDVI Version 1.2 (Distributed w/ MF84 Version 0.81)
  28. % Revision 1.1  85/03/03  21:47:17  richards
  29. %     Updated for GF utilities distributed with MF Version 0.77
  30. % Revision 1.0  84/12/16  22:38:22  richards
  31. %     Updated for GFtoDVI Version 1.0 (New GF file format)
  32. % Revision 0.6  84/12/05  13:32:01  richards
  33. %     Updated for GFtoDVI Version 0.6; merged in changes from sdcarl!rusty
  34. %     Note: still has BUGFIX in section 199 to keep GFtoDVI from trying
  35. %     to use non-existent characters in a gray font
  36. % Revision 0.3  84/11/17  23:51:56  richards
  37. %     Base version for GFtoDVI Version 0.3
  38.  
  39.  
  40. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  41. % [0] WEAVE: print changes only.
  42. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  43. @x
  44. \pageno=\contentspagenumber \advance\pageno by 1
  45. @y
  46. \pageno=\contentspagenumber \advance\pageno by 1
  47. \let\maybe=\iffalse
  48. \def\title{GF$\,$\lowercase{to}$\,$DVI changes for C}
  49. @z
  50.  
  51. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  52. % [1] Change banner string.
  53. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  54. @x
  55. @d banner=='This is GFtoDVI, Version 3.0' {printed when the program starts}
  56. @y
  57. @d banner=='This is GFtoDVI, Version 3.0' {more is printed later}
  58. @z
  59.  
  60. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  61. % [3] Redirect output to term_out.
  62. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  63. @x
  64. @d print(#)==write(#)
  65. @d print_ln(#)==write_ln(#)
  66. @d print_nl(#)==@+begin write_ln; write(#);@+end
  67. @y
  68. @d term_out==stdout
  69. @d print(#)==write(term_out, #)
  70. @d print_ln(#)==write_ln(term_out, #)
  71. @d print_nl(#)==@+begin write_ln(term_out); write(term_out, #);@+end
  72. @z
  73.  
  74. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  75. % [still 3] Fix program header.
  76. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  77. @x
  78. @p program GF_to_DVI(@!output);
  79. label @<Labels in the outer block@>@/
  80. const @<Constants in the outer block@>@/
  81. type @<Types in the outer block@>@/
  82. var @<Globals in the outer block@>@/
  83. procedure initialize; {this procedure gets things started properly}
  84.   var @!i,@!j,@!m,@!n:integer; {loop indices for initializations}
  85.   begin print_ln(banner);@/
  86. @y
  87. @p program GF_to_DVI;
  88. const @<Constants in the outer block@>@/
  89. type @<Types in the outer block@>@/
  90. var @<Globals in the outer block@>@/
  91. procedure initialize; {this procedure gets things started properly}
  92.   var @!i,@!j,@!m,@!n:integer; {loop indices for initializations}
  93.       @<Local variables for initialization@>
  94.   begin
  95.     if argc > n_options + arg_options + 2
  96.     then begin
  97.       print_ln
  98.       ('Usage: gftodvi [-verbose] [-overflow-label-offset=<real>] <gf file>.');
  99. @.Usage: ...@>
  100.       uexit (1);
  101.     end;
  102.  
  103.     @<Initialize the option variables@>;
  104.     @<Parse arguments@>;
  105.     if verbose then begin
  106.       print (banner);
  107.       print_ln (version_string);
  108.     end;
  109. @z
  110.  
  111. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  112. % [4] Remove the final_end label.
  113. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
  114. @x
  115. @ If the program has to stop prematurely, it goes to the
  116. `|final_end|'.
  117.  
  118. @d final_end=9999 {label for the end of it all}
  119.  
  120. @<Labels...@>=final_end;
  121. @y
  122. @ This module deleted, since it only defined the label |final_end|.
  123. @z
  124.  
  125. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  126. % [5] Make file_name_size match the system constant.
  127. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  128. @x
  129. @<Constants...@>=
  130. @y
  131. @d file_name_size==PATH_MAX {a file name shouldn't be longer than this}
  132. @<Constants...@>=
  133. @z
  134. @x
  135. @!file_name_size=50; {a file name shouldn't be longer than this}
  136. @y
  137. @z
  138.  
  139. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  140. % [8] Add newline to end of abort() message, and exit abnormally.
  141. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  142. @x
  143. @d abort(#)==@+begin print(' ',#); jump_out;@+end
  144. @y
  145. @d abort(#)==@+begin print_ln (#); uexit (1);@+end
  146. @z
  147.  
  148. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  149. % [8] Remove nonlocal goto.
  150. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
  151. @x
  152. @p procedure jump_out;
  153. begin goto final_end;
  154. end;
  155. @y
  156. @p procedure jump_out;
  157. begin uexit(0);
  158. end;
  159. @z
  160.  
  161. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  162. % [11] The text_char type is used as an array index into xord.  The
  163. % default type `char' produces signed integers, which are bad array
  164. % indices in C.
  165. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
  166. @x
  167. @d text_char == char {the data type of characters in text files}
  168. @y
  169. @d text_char == ASCII_code {the data type of characters in text files}
  170. @z
  171.  
  172. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  173. % [14] Allow any input character.
  174. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  175. @x
  176. for i:=0 to @'37 do xchr[i]:='?';
  177. for i:=@'177 to @'377 do xchr[i]:='?';
  178. @y
  179. for i:=1 to @'37 do xchr[i]:=chr(i);
  180. for i:=@'177 to @'377 do xchr[i]:=chr(i);
  181. @z
  182.  
  183.  
  184. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  185. % [15] Change `update_terminal' to `flush', `term_in' is stdin.
  186. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  187. @x
  188. Since the terminal is being used for both input and output, some systems
  189. need a special routine to make sure that the user can see a prompt message
  190. before waiting for input based on that message. (Otherwise the message
  191. may just be sitting in a hidden buffer somewhere, and the user will have
  192. no idea what the program is waiting for.) We shall call a system-dependent
  193. subroutine |update_terminal| in order to avoid this problem.
  194.  
  195. @d update_terminal == break(output) {empty the terminal output buffer}
  196.  
  197. @<Glob...@>=
  198. @!buffer:array[0..terminal_line_length] of 0..255;
  199. @!term_in:text_file; {the terminal, considered as an input file}
  200. @y
  201. Since the terminal is being used for both input and output, some systems
  202. need a special routine to make sure that the user can see a prompt message
  203. before waiting for input based on that message. (Otherwise the message
  204. may just be sitting in a hidden buffer somewhere, and the user will have
  205. no idea what the program is waiting for.) We shall call a system-dependent
  206. subroutine |update_terminal| in order to avoid this problem.
  207. @^system dependencies@>
  208.  
  209. @d update_terminal == flush (stdout) {empty the terminal output buffer}
  210. @d term_in == stdin {standard input}
  211.  
  212. @<Glob...@>=
  213. @!buffer:array[0..terminal_line_length] of 0..255;
  214. @z
  215.  
  216. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  217. % [17] Change term_in^, etc.
  218. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  219. @x
  220. @p procedure input_ln; {inputs a line from the terminal}
  221. begin update_terminal; reset(term_in);
  222. if eoln(term_in) then read_ln(term_in);
  223. line_length:=0;
  224. while (line_length<terminal_line_length)and not eoln(term_in) do
  225.   begin buffer[line_length]:=xord[term_in^]; incr(line_length);