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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
% Copyright (C) 1991, 1992, 1994 Aladdin Enterprises. All rights reserved.
%
% This file is part of GNU Ghostscript.
%
% GNU Ghostscript is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY. No author or distributor accepts responsibility to
% anyone for the consequences of using it or for whether it serves any
% particular purpose or works at all, unless he says so in writing. Refer
% to the GNU Ghostscript General Public License for full details.
%
% pfbtogs.ps
% Convert a PFB file to a Ghostscript font.
% A .pfb file is a sequence of packets. Each packet starts with byte
% 0x80. The second byte in the packet gives the type of packet: 1
% means it's a packet of ascii data which should be sent out as is
% (except for translating \r to the appropriate end-of-line
% character(s)); 2 means it's a packet of binary data (which may be
% translated into hex); 3 means EOF. For types 1 and 2, the type byte
% is followed by four bytes giving the length of the packet, least
% significant first.
/envPFB 20 dict def
envPFB begin
% ------ Packet writing routines ------ %
/pfbtext % str ->
{ { (\r) search
{ ofile exch writestring pop
ofile (\n) writestring
}
{ ofile exch writestring exit
}
ifelse
} loop
} def
/pfbbinary % str ->
{ { dup length 30 gt
{ dup 0 30 getinterval ofile exch writehexstring
ofile (\n) writestring
dup length 30 sub 30 exch getinterval
}
{ ofile exch writehexstring exit
}
ifelse
} loop ofile (\n) writestring
} def
/pfbcopy % count proc ->
{ exch % proc count
{ dup bufsize min
buf 0 3 -1 roll getinterval
2 index exec
bufsize sub dup 0 le { exit } if
} loop pop pop
} def
% ------ The main program ------ %
/bufsize 30000 def
/buf bufsize string def
/pfbtogs % infilename outfilename pfbtogs ->
{ /psname exch def
/pfbname exch def
pfbname (r) file /ifile exch def
/packet 6 string def
ifile packet readstring
{ dup length 6 eq { 0 get 128 eq } { pop false } ifelse }
{ pop false }
ifelse
not { (Not a valid .PFB file.\n) print flush stop } if
ifile 0 setfileposition
psname (w) file /ofile exch def
{ ifile packet readstring
not { exit } if
(packet: ) print packet { ( ) print =only } forall (\n) print flush
packet 5 get 256 mul packet 4 get add
256 mul packet 3 get add 256 mul packet 2 get add
packet 1 get 1 sub
{ { { ifile exch readstring pop pfbtext } pfbcopy }
{ { ifile exch readstring pop pfbbinary } pfbcopy }
{ exit }
} exch get exec
} loop
ofile closefile
ifile closefile
} bind def
end
% Enter the main program in the current dictionary.
/pfbtogs
{ envPFB begin pfbtogs end
} bind def
% If the program was invoked from the command line, run it now.
shellarguments { pfbtogs } if
|
