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