file: 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.
@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
003097: Change write←ln to writeln.
@x
@d print←ln(#)==write←ln(#)
@y
@d print←ln(#)==writeln(#)
@d read←ln(#) == readln(#)
@z
003253: Allow for external procedure and function declarations for things implemented directly in Cedar, rather than in Pascal.
@x
var @<Globals in the outer block@>@/
procedure initialize; {this procedure gets things started properly}
@y
var @<Globals in the outer block@>@/
@<External procedure declarations for things implemented directly in Cedar@>@/
procedure initialize; {this procedure gets things started properly}
@z
004887: Reset the input.
@x
reset(pl𡤏ile);
@y
file←reset(pl𡤏ile, 'pl ');
@z
019384: Packed file of 0..255 needs an id; call it a byte𡤏ile.
@x
@!tfm𡤏ile:packed file of 0..255;
@y
@!tfm𡤏ile: byte𡤏ile;
@z
019730: Open the tfm file.
@x
rewrite(tfm𡤏ile);
@y
byte𡤏ile←rewrite(tfm𡤏ile, 'tfm ');
@z
076021: Hook up call to write𡤋yte.
@x
@d out(#)==write(tfm𡤏ile,#)
@y
@d out(#)==write𡤋yte(tfm𡤏ile,#)
@z
082671: Open terminal for output.
@x
@p begin initialize;@/
@y
@p begin tty←rewrite(output); initialize;@/
@z
082755: Close files when done.
@x
@<Do the output@>;
@y
@<Do the output@>;
file𡤌lose(pl𡤏ile);
byte𡤏ile𡤌lose(tfm𡤏ile);
@z
082780: Define the externals.
@x
@* System-dependent changes.
@y
@* Externals for things in Cedar.
Here they are:

@<External procedure declarations for things implemented directly in Cedar@>=
procedure tty←rewrite(var f: text); external; {set up for output to terminal}
procedure byte𡤏ile←rewrite(var f: byte𡤏ile; 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𡤌lose(var f: text); external; {close a text file}
procedure byte𡤏ile𡤌lose(var f: byte𡤏ile); external; {close a byte file}
procedure write𡤋yte(var f: byte𡤏ile; b: 0..255);
begin write(f,b) end;

@ @<Types in the outer block@>=
byte𡤏ile = packed file of 0..255;

@ @<Glob...@>=
output: text;

@* System-dependent changes.
@z