modernc.org/knuth@v0.0.4/web/testdata/ctan.org/tex-archive/systems/knuth/dist/mfware/mft.ch (about) 1 @x mft.web:143: 2 @p @t\4@>@<Compiler directives@>@/ 3 program MFT(@!mf_file,@!change_file,@!style_file,@!tex_file); 4 label end_of_MFT; {go here to finish} 5 @y 6 @p @t\4@>@<Compiler directives@>@/ 7 program MFT(@!mf_file,@!change_file,@!style_file,@!tex_file); 8 @z 9 10 @x mft.web:211: 11 @d othercases == others: {default for cases not listed explicitly} 12 @y 13 @d othercases == else {default for cases not listed explicitly} 14 @z 15 16 @x mft.web:460: 17 @d new_line==write_ln(term_out) {start new line on the terminal} 18 @y 19 @d new_line==write_ln(term_out) {start new line on the terminal} 20 @d write_ln(#)==writeln(#) 21 @d read_ln(#)==readln(#) 22 @z 23 24 @x mft.web:476: 25 @ The |update_terminal| procedure is called when we want 26 to make sure that everything we have output to the terminal so far has 27 actually left the computer's internal buffers and been sent. 28 @^system dependencies@> 29 30 @d update_terminal == break(term_out) {empty the terminal output buffer} 31 @y 32 @ The |update_terminal| procedure is called when we want 33 to make sure that everything we have output to the terminal so far has 34 actually left the computer's internal buffers and been sent. 35 @^system dependencies@> 36 37 @d update_terminal == {empty the terminal output buffer} 38 @z 39 40 @x mft.web:605: 41 @<Error handling...@>= 42 procedure jump_out; 43 begin goto end_of_MFT; 44 end; 45 @y 46 @<Error handling...@>= 47 procedure jump_out; 48 begin 49 panic(end_of_MFT); 50 end; 51 @z 52 53 @x mft.web:1942: 54 @* The main program. 55 Let's put it all together now: \.{MFT} starts and ends here. 56 @^system dependencies@> 57 58 @p begin initialize; {beginning of the main program} 59 print_ln(banner); {print a ``banner line''} 60 @<Store all the primitives@>; 61 @<Store all the translations@>; 62 @<Initialize the input...@>; 63 do_the_translation; 64 @<Check that all changes have been read@>; 65 end_of_MFT:{here files should be closed if the operating system requires it} 66 @<Print the job |history|@>; 67 end. 68 @y 69 @* The main program. 70 Let's put it all together now: \.{MFT} starts and ends here. 71 @^system dependencies@> 72 73 @p begin initialize; {beginning of the main program} 74 print_ln(banner); {print a ``banner line''} 75 @<Store all the primitives@>; 76 @<Store all the translations@>; 77 @<Initialize the input...@>; 78 do_the_translation; 79 @<Check that all changes have been read@>; 80 @<Print the job |history|@>; 81 end. 82 @z