summaryrefslogtreecommitdiff
path: root/systems/unix/tex-gpc/pltotf.ch
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