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
00000258
00000270
00000288
000002A0
000002B8
000002D0
000002E8
00000300
00000318
00000330
00000348
00000360
00000378
00000390
000003A8
000003C0
000003D8
000003F0
00000408
00000420
00000438
00000450
00000468
00000480
00000498
000004B0
000004C8
000004E0
000004F8
00000510
00000528
00000540
00000558
00000570
00000588
000005A0
000005B8
000005D0
000005E8
00000600
00000618
| 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 64 6C 73 72 70 73 3A 20 66 69 78 20 44 76 69
4C 61 73 65 72 2F 50 53 20 64 6F 63 75 6D 65 6E 74 20 74 6F 20 77 6F 72
6B 20 77 69 74 68 20 50 53 55 74 69 6C 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 24
6E 65 73 74 69 6E 67 20 3D 20 30 3B 0A 24 70 61 67 65 20 3D 20 31 3B 0A
24 69 6E 66 6F 6E 74 20 3D 20 30 3B 0A 0A 40 66 6F 6E 74 73 20 3D 20 28
29 3B 0A 40 62 6F 64 79 20 3D 20 28 29 3B 0A 24 68 65 61 64 65 72 20 3D
20 31 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 58 50 2F 29 20 7B 0A 20 20 20 20 20 20 24 69 6E 66 6F 6E 74 2B
2B 3B 0A 20 20 20 20 20 20 70 75 73 68 28 40 66 6F 6E 74 73 2C 20 24 5F
29 3B 0A 20 20 20 20 20 20 24 69 6E 66 6F 6E 74 2D 2D 20 69 66 20 2F 50
58 4C 2E 2A 52 50 2F 20 7C 7C 20 2F 44 4E 3F 46 2E 2A 52 50 2F 3B 0A 20
20 20 7D 20 65 6C 73 69 66 20 28 24 69 6E 66 6F 6E 74 29 20 7B 0A 20 20
20 20 20 20 70 75 73 68 28 40 66 6F 6E 74 73 2C 20 24 5F 29 3B 0A 20 20
20 20 20 20 24 69 6E 66 6F 6E 74 2D 2D 20 69 66 20 2F 50 58 4C 2E 2A 52
50 2F 20 7C 7C 20 2F 44 4E 3F 46 2E 2A 52 50 2F 3B 0A 20 20 20 7D 20 65
6C 73 69 66 20 28 28 2F 5E 25 25 45 6E 64 53 65 74 75 70 2F 20 7C 7C 20
2F 5E 25 25 50 61 67 65 3A 2F 29 20 26 26 20 24 68 65 61 64 65 72 29 20
7B 0A 20 20 20 20 20 20 70 72 69 6E 74 20 40 62 6F 64 79 3B 0A 20 20 20
20 20 20 40 62 6F 64 79 20 3D 20 28 22 25 25 45 6E 64 53 65 74 75 70 5C
6E 22 29 3B 0A 20 20 20 20 20 20 24 68 65 61 64 65 72 20 3D 20 30 3B 0A
20 20 20 7D 20 65 6C 73 69 66 20 28 2F 5E 25 25 45 6E 64 50 72 6F 6C 6F
67 2F 20 26 26 20 21 24 6E 65 73 74 69 6E 67 29 20 7B 0A 20 20 20 20 20
20 70 75 73 68 28 40 62 6F 64 79 2C 0A 09 20 20 20 22 5C 24 44 76 69 4C
61 73 65 72 20 62 65 67 69 6E 2F 47 6C 6F 62 61 6C 4D 6F 64 65 7B 7D 62
64 65 66 2F 4C 6F 63 61 6C 4D 6F 64 65 7B 7D 62 64 65 66 2F 58 50 7B 7D
64 65 66 2F 52 50 7B 7D 64 65 66 22 2C 0A 09 20 20 20 22 2F 44 6F 49 6E
69 74 69 61 6C 53 63 61 6C 69 6E 67 7B 37 32 2E 30 20 52 65 73 6F 6C 75
74 69 6F 6E 20 64 69 76 20 64 75 70 20 73 63 61 6C 65 7D 62 64 65 66 20
65 6E 64 5C 6E 22 2C 20 24 5F 29 3B 0A 20 20 20 7D 20 65 6C 73 69 66 20
28 2F 5E 25 25 42 65 67 69 6E 50 61 67 65 53 65 74 75 70 2F 20 26 26 20
21 24 6E 65 73 74 69 6E 67 29 20 7B 0A 20 20 20 20 20 20 70 75 73 68 28
40 62 6F 64 79 2C 20 22 25 25 50 61 67 65 3A 20 24 70 61 67 65 20 24 70
61 67 65 5C 6E 22 2C 20 24 5F 2C 0A 09 20 20 20 20 22 52 65 73 6F 6C 75
74 69 6F 6E 20 37 32 20 64 69 76 20 64 75 70 20 73 63 61 6C 65 20 4D 61
67 6E 69 66 69 63 61 74 69 6F 6E 20 31 30 30 30 20 64 69 76 20 64 75 70
20 73 63 61 6C 65 5C 6E 22 2C 0A 09 20 20 20 20 22 2F 44 6F 63 75 6D 65
6E 74 49 6E 69 74 53 74 61 74 65 20 77 68 65 72 65 20 7B 5C 6E 22 2C 0A
09 20 20 20 20 22 2F 44 6F 63 75 6D 65 6E 74 49 6E 69 74 53 74 61 74 65
20 5B 20 6D 61 74 72 69 78 20 63 75 72 72 65 6E 74 6D 61 74 72 69 78 20
63 75 72 72 65 6E 74 6C 69 6E 65 77 69 64 74 68 22 2C 0A 09 20 20 20 20
22 20 63 75 72 72 65 6E 74 6C 69 6E 65 63 61 70 20 63 75 72 72 65 6E 74
6C 69 6E 65 6A 6F 69 6E 20 63 75 72 72 65 6E 74 64 61 73 68 20 63 75 72
72 65 6E 74 67 72 61 79 22 2C 0A 09 20 20 20 20 22 20 63 75 72 72 65 6E
74 6D 69 74 65 72 6C 69 6D 69 74 5D 20 63 76 78 20 70 75 74 7D 69 66 5C
6E 22 29 3B 0A 20 20 20 20 20 20 24 70 61 67 65 2B 2B 3B 0A 20 20 20 7D
20 65 6C 73 69 66 20 28 2F 5E 25 25 42 65 67 69 6E 44 6F 63 75 6D 65 6E
74 3A 2F 20 7C 7C 20 2F 5E 25 25 42 65 67 69 6E 42 69 6E 61 72 79 3A 2F
20 7C 7C 20 2F 5E 25 25 42 65 67 69 6E 46 69 6C 65 3A 2F 29 20 7B 0A 20
20 20 20 20 20 70 75 73 68 28 40 62 6F 64 79 2C 20 24 5F 29 3B 0A 20 20
20 20 20 20 24 6E 65 73 74 69 6E 67 2B 2B 3B 0A 20 20 20 7D 20 65 6C 73
69 66 20 28 2F 5E 25 25 45 6E 64 44 6F 63 75 6D 65 6E 74 2F 20 7C 7C 20
2F 5E 25 25 45 6E 64 42 69 6E 61 72 79 2F 20 7C 7C 20 2F 5E 25 25 45 6E
64 46 69 6C 65 2F 29 20 7B 0A 20 20 20 20 20 20 70 75 73 68 28 40 62 6F
64 79 2C 20 24 5F 29 3B 0A 20 20 20 20 20 20 24 6E 65 73 74 69 6E 67 2D
2D 3B 0A 20 20 20 7D 20 65 6C 73 69 66 20 28 21 2F 5E 25 25 50 61 67 65
42 6F 75 6E 64 69 6E 67 42 6F 78 3A 2F 20 26 26 20 21 2F 5E 25 25 50 61
67 65 3A 2F 29 20 7B 0A 20 20 20 20 20 20 70 75 73 68 28 40 62 6F 64 79
2C 20 24 5F 29 3B 0A 20 20 20 7D 0A 7D 0A 0A 70 72 69 6E 74 20 40 66 6F
6E 74 73 3B 0A 70 72 69 6E 74 20 40 62 6F 64 79 3B 0A 0A 65 78 69 74 20
30 3B 0A 0A | #!/usr/bin/perl eval 'ex
ec perl -S $0 "$@"' if
$running_under_some_shel
l; # fixdlsrps: fix Dvi
Laser/PS document to wor
k with PSUtils # # Copyr
ight (C) Angus J. C. Dug
gan 1991-1995 # See file
LICENSE for details. $
nesting = 0; $page = 1;
$infont = 0; @fonts = (
); @body = (); $header =
1; while (<>) { if
(/^XP/) { $infont+
+; push(@fonts, $_
); $infont-- if /P
XL.*RP/ || /DN?F.*RP/;
} elsif ($infont) {
push(@fonts, $_);
$infont-- if /PXL.*R
P/ || /DN?F.*RP/; } e
lsif ((/^%%EndSetup/ ||
/^%%Page:/) && $header)
{ print @body;
@body = ("%%EndSetup\
n"); $header = 0;
} elsif (/^%%EndProlo
g/ && !$nesting) {
push(@body, "\$DviL
aser begin/GlobalMode{}b
def/LocalMode{}bdef/XP{}
def/RP{}def", "/DoIn
itialScaling{72.0 Resolu
tion div dup scale}bdef
end\n", $_); } elsif
(/^%%BeginPageSetup/ &&
!$nesting) { push(
@body, "%%Page: $page $p
age\n", $_, "Resolu
tion 72 div dup scale Ma
gnification 1000 div dup
scale\n", "/Docume
ntInitState where {\n",
"/DocumentInitState
[ matrix currentmatrix
currentlinewidth",
" currentlinecap current
linejoin currentdash cur
rentgray", " curren
tmiterlimit] cvx put}if\
n"); $page++; }
elsif (/^%%BeginDocumen
t:/ || /^%%BeginBinary:/
|| /^%%BeginFile:/) {
push(@body, $_);
$nesting++; } els
if (/^%%EndDocument/ ||
/^%%EndBinary/ || /^%%En
dFile/) { push(@bo
dy, $_); $nesting-
-; } elsif (!/^%%Page
BoundingBox:/ && !/^%%Pa
ge:/) { push(@body
, $_); } } print @fo
nts; print @body; exit
0; |