This is a change file of GFtoPK for GPC, Wolfgang Helbig, Apr. 2008
To be used with the GNU Pascal Compiler Version 2.1
[0] About GFtoPK-GPC
@x
\pageno=\contentspagenumber \advance\pageno by 1
@y
\pageno=\contentspagenumber \advance\pageno by 1
\input webmac-gpc
% \let\maybe=\iffalse % uncomment to print changed modules only.
\def\name{\tt GFtoPK}
\N0\*. About \namegpc.\fi
This is an adaption of Donald~E. Knuth's \.{GFtoPK}, version 2.4
from January 2014, to Unix. \namegpc\ is based on GNU~Pascal,
version 2.1.
\namegpc\ expects the input file (\.{.gf}) and the output file
(\.{.pk}) on the command line.
To support shell scripting, it sets the exit code to one
when something was wrong with the input file.
\hint
Comments and questions are welcome!
\bigskip
\address
@z
[1] Change the banner line
@x
@d banner=='This is GFtoPK, Version 2.4' {printed when the program starts}
@y
@d banner=='This is GFtoPK-GPC'
{printed when the program starts}
@z
[3] default case branch
@x
@d othercases == others: {default for cases not listed explicitly}
@y
@d othercases == @+else {default for cases not listed explicitly}
@z
[4] filenames from commandline
@x
@p program GFtoPK(@!gf_file,@!pk_file,@!output);
@y
@p program GFtoPK(@!output);
@z
[8] pint end of line at end of line
@x
@d abort(#)==begin print(' ',#); jump_out;
@y
@d abort(#)==begin print_ln(' ',#); history := 1; jump_out;
@z
[10] the type of textfile is text in standard PASCAL.
@x
@!text_file=packed file of text_char;
@y
@z
[37] GPC wants you to pack the range instead of the structure.
@x
@!eight_bits=0..255; {unsigned one-byte quantity}
@y
@!eight_bits=packed 0..255; {unsigned one-byte quantity}
@z
[39] get gf file name from command line
@x
begin reset(gf_file);
@y
begin reset(gf_file, param_str(1));
@z
[40] get pk file name from command line
@x
begin rewrite(pk_file);
@y
begin rewrite(pk_file, param_str(2));
@z
@x
set_pos(gf_file, n); gf_loc := n ;
@y
seek(gf_file, n); gf_loc := n ;
@z
[51] check command line arguments
@x
open_gf_file ;
@y
if param_count <> 2 then abort('Usage: gftopk gf-file pk-file');
open_gf_file ;
@z
[86] set exit code.
@x
final_end : end .
@y
final_end :
halt(history); {pass the history as exit code to the operating system}
end.
@z
[88 ff] system dependent changes
@x
itself will get a new section number.
@^system dependencies@>
@y
itself will get a new section number.
@^system dependencies@>
