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
| 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 70 73 64 69 74 70 73 3A 20 66 69 78 20 70 73 64 69 74 20 6F 75 74 70 75 74 20 66 6F 72 20 75 73 65 20 69 6E 20 70 73 75 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 0A 77 68 69 6C 65 20 28 3C 3E 29 20 7B 0A 20 20 20 69 66 20 28 2F 5E 5C 2F 70 7B 70 6F 70 20 73 68 6F 77 70 61 67 65 20 70 61 67 65 73 61 76 65 20 72 65 73 74 6F 72 65 20 5C 2F 70 61 67 65 73 61 76 65 20 73 61 76 65 20 64 65 66 7D 64 65 66 24 2F 29 20 7B 0A 20 20 20 20 20 20 70 72 69 6E 74 20 22 2F 70 7B 70 6F 70 20 73 68 6F 77 70 61 67 65 20 70 61 67 65 73 61 76 65 20 72 65 73 74 6F 72 65 7D 64 65 66 5C 6E 22 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 2F 20 7C 7C 20 2F 5E 25 25 42 65 67 69 6E 42 69 6E 61 72 79 2F 20 7C 7C 20 2F 5E 25 25 42 65 67 69 6E 46 69 6C 65 2F 20 29 20 7B 0A 20 20 20 20 20 20 70 72 69 6E 74 20 24 5F 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 72 69 6E 74 20 24 5F 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 2F 5E 25 25 50 61 67 65 3A 2F 20 26 26 20 24 6E 65 73 74 69 6E 67 20 3D 3D 20 30 29 20 7B 0A 20 20 20 20 20 20 70 72 69 6E 74 20 24 5F 3B 0A 20 20 20 20 20 20 70 72 69 6E 74 20 22 78 69 5C 6E 22 3B 0A 20 20 20 7D 20 65 6C 73 69 66 20 28 21 20 2F 5E 78 69 24 2F 29 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; # fixpsditps: fix ps dit output for use in ps utils # # Copyright (C) Angus J. C. Duggan 1991- 1995 # See file LICENSE for details. $nesting = 0; while (<>) { if (/^\/p{pop showpage page save restore \/pagesave save def}def$/) { print "/p{pop showpage p agesave restore}def\n"; } elsif (/^%%BeginDoc ument/ || /^%%BeginBinar y/ || /^%%BeginFile/ ) { print $_; $ nesting++; } elsif (/ ^%%EndDocument/ || /^%%E ndBinary/ || /^%%EndFile /) { print $_; $nesting--; } elsi f (/^%%Page:/ && $nestin g == 0) { print $_ ; print "xi\n"; } elsif (! /^xi$/) { print $_; } } |