blob: f85f6dac817af86998ad4dba89f10bd638705995 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
% This is a change file of PLtoTF for GPC, Wolfgang Helbig, Nov. 2007
[0] About PLtoTF-GPC
@x
\pageno=\contentspagenumber \advance\pageno by 1
@y
\pageno=\contentspagenumber \advance\pageno by 1
\input webmac-gpc
\let\maybe=\iffalse % print changed modules only.
\def\name{\tt PLtoTF}
\N0\*. About \namegpc.\fi
This is an adaption of Donald~E. Knuth's \.{PLtoTF}, version 3.6
from March 1995, to Unix. It is based on GNU~Pascal, version 2.1.
This program expects an input file (\.{.tfm}) and an output file
(\.{.pl}), which is a text file, on the command line. \namegpc.
stops with a nonzero exit code, if the number of command line
arguments is not two or if the files cannot be opened.
\hint
Comments and questions are welcome!
\bigskip
\address
@z
[1]
@x
@d banner=='This is PLtoTF, Version 3.6' {printed when the program starts}
@y
@d banner=='This is PLtoTF-GPC'
{printed when the program starts}
@z
[6] use command line
@x
reset(pl_file);
@y
if param_count <> 2 then begin
write_ln('Usage: pltotf pl-file tfm-file');
halt(1);
end;
reset(pl_file, param_str(1));
@z
[15]
@x
@!tfm_file:packed file of 0..255;
@y
@!tfm_file:packed file of packed 0..255;
@z
[16] use command line
@x
rewrite(tfm_file);
@y
rewrite(tfm_file, param_str(2));
@z
|