modernc.org/knuth@v0.0.4/web/testdata/ctan.org/tex-archive/systems/knuth/local/mfware-sparc/pktype.ch (about)

     1  @x pktype:67:
     2  @d print_ln(#)==write_ln(output,#)
     3  @y
     4  @d print_ln(#)==write_ln(output,#)
     5  @d write_ln(#)==writeln(#)
     6  @d read_ln(#)==readln(#)
     7  @z
     8  
     9  @x pktype:72:
    10  @p program PKtype(@!input,@!output);
    11  label @<Labels in the outer block@>@/
    12  @y
    13  @p program PKtype(@!input,@!output);
    14  @z
    15  
    16  @x pktype:88:
    17  @<Labels...@>=final_end;
    18  @y
    19  @z
    20  
    21  @x pktype:111:
    22  @p procedure jump_out;
    23  begin goto final_end;
    24  end;
    25  @y
    26  @p procedure jump_out;
    27  begin
    28  	panic(final_end);
    29  end;
    30  @z
    31  
    32  @x pktype:773:
    33  @p function pk_byte : eight_bits ;
    34  var temp : eight_bits ;
    35  begin
    36     temp := pk_file^ ;
    37     get(pk_file) ;
    38     incr(pk_loc) ;
    39     pk_byte := temp ;
    40  end ;
    41  @y
    42  @p function pk_byte : eight_bits ;
    43  var temp : eight_bits ;
    44  begin
    45     read(pk_file, temp) ;
    46     incr(pk_loc) ;
    47     pk_byte := temp ;
    48  end ;
    49  @z
    50  
    51  @x pktype:1099:
    52  @d flush_buffer == begin end
    53  @d get_line(#) == if eoln(input) then read_ln(input) ;
    54     i := 1 ;
    55     while not (eoln(input) or eof(input)) do begin
    56        #[i] := input^ ;
    57        incr(i) ;
    58        get(input) ;
    59     end ;
    60     #[i] := ' '
    61  @y
    62  @d flush_buffer == begin end
    63  @d get_line(#) == if eoln(input) then read_ln(input) ;
    64     i := 1 ;
    65     while not (eoln(input) or eof(input)) do begin
    66        read(input, #[i]);
    67        incr(i) ;
    68     end ;
    69     #[i] := ' '
    70  @z
    71  
    72  @x pktype:1109:
    73  @ @p procedure dialog ;
    74  var i : integer ; {index variable}
    75  buffer : packed array [1..name_length] of char; {input buffer}
    76  begin
    77  @y
    78  @ @p procedure dialog ;
    79  var i : integer ; {index variable}
    80  begin
    81  @z
    82  
    83  
    84  @x pktype:1146:
    85  t_print_ln(pk_loc:1,' bytes read from packed file.');
    86  final_end :
    87  end .
    88  @y
    89  t_print_ln(pk_loc:1,' bytes read from packed file.');
    90  end .
    91  @z