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