@x @d banner=='This is PLtoTF, Version 2.3' {printed when the program starts} @y @d banner=='This is PLtoTF 2.3 for Cedar 6.0' {printed when the program starts} @z @x @d print_ln(#)==write_ln(#) @y @d print_ln(#)==writeln(#) @d read_ln(#) == readln(#) @z @x var @@/ procedure initialize; {this procedure gets things started properly} @y var @@/ @@/ procedure initialize; {this procedure gets things started properly} @z @x reset(pl_file); @y file_reset(pl_file, 'pl '); @z @x @!tfm_file:packed file of 0..255; @y @!tfm_file: byte_file; @z @x rewrite(tfm_file); @y byte_file_rewrite(tfm_file, 'tfm '); @z @x @d out(#)==write(tfm_file,#) @y @d out(#)==write_byte(tfm_file,#) @z @x @p begin initialize;@/ @y @p begin tty_rewrite(output); initialize;@/ @z @x @; @y @; file_close(pl_file); byte_file_close(tfm_file); @z @x @* System-dependent changes. @y @* Externals for things in Cedar. Here they are: @= procedure tty_rewrite(var f: text); external; {set up for output to terminal} procedure byte_file_rewrite(var f: byte_file; ext: alfa); external; {set up for output to byte file} procedure file_reset(var f: text; ext: alfa); external; {set up for input from file} procedure file_close(var f: text); external; {close a text file} procedure byte_file_close(var f: byte_file); external; {close a byte file} procedure write_byte(var f: byte_file; b: 0..255); begin write(f,b) end; @ @= byte_file = packed file of 0..255; @ @= output: text; @* System-dependent changes. @z 6file: PLtoTF.changes Modified by Lyle Ramshaw, September 23, 1983 3:14 pm Pavel, October 23, 1985 10:24:35 am PDT 002353: Change the banner line. 003097: Change write_ln to writeln. 003253: Allow for external procedure and function declarations for things implemented directly in Cedar, rather than in Pascal. 004887: Reset the input. 019384: Packed file of 0..255 needs an id; call it a byte_file. 019730: Open the tfm file. 076021: Hook up call to write_byte. 082671: Open terminal for output. 082755: Close files when done. 082780: Define the externals. Κ&˜J™™4Icode™'—J™unit™˜J˜J—˜JšœO˜O—J˜—™#˜J˜—˜J˜J˜—J˜—™˜J˜$J˜C—˜J˜$JšœN˜NJ˜C—J˜—™˜J˜—˜Jšœ ˜ —J˜—™@˜J˜!—˜J˜—J˜—™˜J˜—˜J˜*—J˜—™#˜J˜—˜J˜!—J˜—™!˜J˜—˜J˜+—J˜—™˜J˜—˜J˜J˜J˜—J˜—™˜J˜—˜Jšœβ˜β—J˜——…—κ F