modernc.org/knuth@v0.0.4/web/testdata/ctan.org/tex-archive/systems/knuth/dist/mfware/gftopk.ch (about) 1 @x gftopk:116: 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 8 @d print_ln(#)==write_ln(#) 9 @y 10 @d print_ln(#)==write_ln(#) 11 @d write_ln(#)==writeln(#) 12 @z 13 14 @x gftopk:129: 15 @p program GFtoPK(@!gf_file,@!pk_file,@!output); 16 label @<Labels in the outer block@>@/ 17 const @<Constants in the outer block@>@/ 18 type @<Types in the outer block@>@/ 19 var @<Globals in the outer block@>@/ 20 procedure initialize; {this procedure gets things started properly} 21 var i:integer; {loop index for initializations} 22 begin print_ln(banner);@/ 23 @<Set initial values@>@/ 24 end; 25 26 @ If the program has to stop prematurely, it goes to the 27 `|final_end|'. 28 29 @d final_end=9999 {label for the end of it all} 30 31 @<Labels...@>=final_end; 32 @y 33 @p program GFtoPK(@!gf_file,@!pk_file,@!output); 34 const @<Constants in the outer block@>@/ 35 type @<Types in the outer block@>@/ 36 var @<Globals in the outer block@>@/ 37 procedure initialize; {this procedure gets things started properly} 38 var i:integer; {loop index for initializations} 39 begin print_ln(banner);@/ 40 @<Set initial values@>@/ 41 end; 42 43 @ If the program has to stop prematurely, it goes to the 44 `|final_end|'. 45 46 @d final_end=9999 {label for the end of it all} 47 @z 48 49 @x gftopk:172: 50 @d abort(#)==begin print(' ',#); jump_out; 51 end 52 @d bad_gf(#)==abort('Bad GF file: ',#,'!') 53 @.Bad GF file@> 54 55 @p procedure jump_out; 56 begin goto final_end; 57 end; 58 @y 59 @d abort(#)==begin print(stderr,' ',#); jump_out; 60 end 61 @d bad_gf(#)==abort('Bad GF file: ',#,'!') 62 @.Bad GF file@> 63 64 @p procedure jump_out; 65 begin 66 panic(final_end); 67 end; 68 @z 69 70 @x gftopk:2166: 71 @p begin 72 initialize ; 73 convert_gf_file ; 74 @<Check for unrasterized locators@> ; 75 print_ln(gf_len:1,' bytes packed to ',pk_loc:1,' bytes.') ; 76 final_end : end . 77 @y 78 @p begin 79 initialize ; 80 convert_gf_file ; 81 @<Check for unrasterized locators@> ; 82 print_ln(gf_len:1,' bytes packed to ',pk_loc:1,' bytes.') ; 83 end . 84 @z