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