00000000
00000018
00000030
00000048
00000060
00000078
00000090
000000A8
000000C0
000000D8
000000F0
00000108
00000120
00000138
00000150
00000168
00000180
00000198
000001B0
000001C8
000001E0
000001F8
00000210
00000228
00000240
| 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 65 76 61 6C 20 27 65 78
65 63 20 70 65 72 6C 20 2D 53 20 24 30 20 22 24 40 22 27 0A 09 69 66 20
24 72 75 6E 6E 69 6E 67 5F 75 6E 64 65 72 5F 73 6F 6D 65 5F 73 68 65 6C
6C 3B 0A 0A 23 20 66 69 78 66 6D 70 73 3A 20 67 65 74 20 63 6F 6E 66 6F
72 6D 69 6E 67 20 50 6F 73 74 53 63 72 69 70 74 20 6F 75 74 20 6F 66 20
46 72 61 6D 65 4D 61 6B 65 72 20 76 65 72 73 69 6F 6E 20 32 20 66 69 6C
65 0A 23 20 6D 6F 76 65 20 61 6C 6C 20 46 4D 44 45 46 49 4E 45 46 4F 4E
54 73 20 74 6F 20 73 74 61 72 74 20 6F 66 20 70 61 67 65 73 0A 23 0A 23
20 43 6F 70 79 72 69 67 68 74 20 28 43 29 20 41 6E 67 75 73 20 4A 2E 20
43 2E 20 44 75 67 67 61 6E 20 31 39 39 31 2D 31 39 39 35 0A 23 20 53 65
65 20 66 69 6C 65 20 4C 49 43 45 4E 53 45 20 66 6F 72 20 64 65 74 61 69
6C 73 2E 0A 0A 25 66 6F 6E 74 73 3D 28 29 3B 0A 0A 77 68 69 6C 65 20 28
3C 3E 29 20 7B 0A 20 20 20 69 66 20 28 2F 5E 28 5B 30 2D 39 5D 2B 29 20
5B 30 2D 39 5D 2B 20 2E 2A 20 46 4D 44 45 46 49 4E 45 46 4F 4E 54 24 2F
29 20 7B 0A 20 20 20 20 20 20 24 66 6F 6E 74 73 7B 24 31 7D 20 3D 20 24
5F 3B 0A 20 20 20 7D 20 65 6C 73 69 66 20 28 2F 5E 5B 30 2D 39 2E 5D 2B
20 5B 30 2D 39 2E 5D 2B 20 5B 30 2D 39 5D 2B 20 46 4D 42 45 47 49 4E 50
41 47 45 24 2F 29 20 7B 0A 20 20 20 20 20 20 70 72 69 6E 74 20 24 5F 2C
20 6A 6F 69 6E 28 27 27 2C 76 61 6C 75 65 73 28 25 66 6F 6E 74 73 29 29
3B 0A 20 20 20 7D 20 65 6C 73 69 66 20 28 6D 25 28 2E 2A 2F 50 61 67 65
53 69 7A 65 20 5C 5B 70 61 70 65 72 77 69 64 74 68 20 70 61 70 65 72 68
65 69 67 68 74 5C 5D 70 75 74 20 29 73 65 74 70 61 67 65 64 65 76 69 63
65 28 2E 2A 29 25 29 20 7B 0A 20 20 20 20 20 20 70 72 69 6E 74 20 22 24
31 70 6F 70 24 32 5C 6E 22 3B 0A 20 20 20 7D 20 65 6C 73 65 20 7B 0A 20
20 20 20 20 20 70 72 69 6E 74 20 24 5F 3B 0A 20 20 20 7D 0A 7D 0A 0A | #!/usr/bin/perl eval 'ex
ec perl -S $0 "$@"' if
$running_under_some_shel
l; # fixfmps: get confo
rming PostScript out of
FrameMaker version 2 fil
e # move all FMDEFINEFON
Ts to start of pages # #
Copyright (C) Angus J.
C. Duggan 1991-1995 # Se
e file LICENSE for detai
ls. %fonts=(); while (
<>) { if (/^([0-9]+)
[0-9]+ .* FMDEFINEFONT$/
) { $fonts{$1} = $
_; } elsif (/^[0-9.]+
[0-9.]+ [0-9]+ FMBEGINP
AGE$/) { print $_,
join('',values(%fonts))
; } elsif (m%(.*/Page
Size \[paperwidth paperh
eight\]put )setpagedevic
e(.*)%) { print "$
1pop$2\n"; } else {
print $_; } } |