modernc.org/knuth@v0.0.4/web/testdata/ctan.org/tex-archive/systems/knuth/dist/mfware/gftype.ch (about) 1 @x gftype.wen:82: 2 @d othercases == others: {default for cases not listed explicitly} 3 @y 4 @d othercases == else {default for cases not listed explicitly} 5 @z 6 7 @x gftype.wen:94: 8 @d print_nl==write_ln 9 @y 10 @d print_nl==write_ln() 11 @d write_ln(#)==writeln(#) 12 @d read_ln(#)==readln(#) 13 @z 14 15 @x gftype.web:96: 16 @p program GF_type(@!gf_file,@!output); 17 label @<Labels in the outer block@>@/ 18 @y 19 @p program GF_type(@!gf_file,@!output,stderr); 20 @z 21 22 @x gftype.web:112: 23 @<Labels...@>=final_end; 24 @y 25 @z 26 27 @x gftype.wen:144: 28 @d abort(#)==begin print(' ',#); jump_out; 29 end 30 @d bad_gf(#)==abort('Bad GF file: ',#,'!') 31 @.Bad GF file@> 32 33 @p procedure jump_out; 34 begin goto final_end; 35 end; 36 @y 37 @d abort(#)==begin print(stderr, ' ',#); jump_out; 38 end 39 @d bad_gf(#)==abort('Bad GF file: ',#,'!') 40 @.Bad GF file@> 41 42 @p procedure jump_out; 43 begin 44 panic(final_end); 45 end; 46 @z 47 48 @x gftype.web:651: 49 @!gf_file:byte_file; {the stuff we are \.{GF}typing} 50 @y 51 @!gf_file:byte_file; {the stuff we are \.{GF}typing} 52 stderr:text; 53 @z 54 55 @x gftype.web:744: 56 @d update_terminal == break(term_out) {empty the terminal output buffer} 57 @y 58 @d update_terminal == {empty the terminal output buffer} 59 @z 60 61 @x gftype.web:1280: 62 final_end:end. 63 @y 64 end. 65 @z