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 00000630 00000648 00000660 00000678 00000690 000006A8 000006C0 000006D8 000006F0 00000708 00000720 00000738 00000750 00000768 00000780 00000798 000007B0 000007C8 000007E0
| 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 23 20 2D 2A 2D 20 70 65 72 6C 20 2D 2A 2D 0A 23 0A 23 20 50 72 69 6E 74 20 64 6F 63 75 6D 65 6E 74 73 20 77 69 74 68 20 6C 6F 6E 67 20 6C 69 6E 65 73 2E 0A 23 20 43 6F 70 79 72 69 67 68 74 20 28 63 29 20 31 39 39 36 2D 31 39 39 39 20 4D 61 72 6B 6B 75 20 52 6F 73 73 69 0A 23 0A 23 20 41 75 74 68 6F 72 3A 20 4D 61 72 6B 6B 75 20 52 6F 73 73 69 20 3C 6D 74 72 40 69 6B 69 2E 66 69 3E 0A 23 0A 0A 23 0A 23 20 54 68 69 73 20 66 69 6C 65 20 69 73 20 70 61 72 74 20 6F 66 20 47 4E 55 20 65 6E 73 63 72 69 70 74 2E 0A 23 0A 23 20 54 68 69 73 20 70 72 6F 67 72 61 6D 20 69 73 20 66 72 65 65 20 73 6F 66 74 77 61 72 65 3B 20 79 6F 75 20 63 61 6E 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6E 64 2F 6F 72 20 6D 6F 64 69 66 79 0A 23 20 69 74 20 75 6E 64 65 72 20 74 68 65 20 74 65 72 6D 73 20 6F 66 20 74 68 65 20 47 4E 55 20 47 65 6E 65 72 61 6C 20 50 75 62 6C 69 63 20 4C 69 63 65 6E 73 65 20 61 73 20 70 75 62 6C 69 73 68 65 64 20 62 79 0A 23 20 74 68 65 20 46 72 65 65 20 53 6F 66 74 77 61 72 65 20 46 6F 75 6E 64 61 74 69 6F 6E 3B 20 65 69 74 68 65 72 20 76 65 72 73 69 6F 6E 20 32 2C 20 6F 72 20 28 61 74 20 79 6F 75 72 20 6F 70 74 69 6F 6E 29 0A 23 20 61 6E 79 20 6C 61 74 65 72 20 76 65 72 73 69 6F 6E 2E 0A 23 0A 23 20 54 68 69 73 20 70 72 6F 67 72 61 6D 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6E 20 74 68 65 20 68 6F 70 65 20 74 68 61 74 20 69 74 20 77 69 6C 6C 20 62 65 20 75 73 65 66 75 6C 2C 0A 23 20 62 75 74 20 57 49 54 48 4F 55 54 20 41 4E 59 20 57 41 52 52 41 4E 54 59 3B 20 77 69 74 68 6F 75 74 20 65 76 65 6E 20 74 68 65 20 69 6D 70 6C 69 65 64 20 77 61 72 72 61 6E 74 79 20 6F 66 0A 23 20 4D 45 52 43 48 41 4E 54 41 42 49 4C 49 54 59 20 6F 72 20 46 49 54 4E 45 53 53 20 46 4F 52 20 41 20 50 41 52 54 49 43 55 4C 41 52 20 50 55 52 50 4F 53 45 2E 20 20 53 65 65 20 74 68 65 0A 23 20 47 4E 55 20 47 65 6E 65 72 61 6C 20 50 75 62 6C 69 63 20 4C 69 63 65 6E 73 65 20 66 6F 72 20 6D 6F 72 65 20 64 65 74 61 69 6C 73 2E 0A 23 0A 23 20 59 6F 75 20 73 68 6F 75 6C 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6F 70 79 20 6F 66 20 74 68 65 20 47 4E 55 20 47 65 6E 65 72 61 6C 20 50 75 62 6C 69 63 20 4C 69 63 65 6E 73 65 0A 23 20 61 6C 6F 6E 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6F 67 72 61 6D 3B 20 73 65 65 20 74 68 65 20 66 69 6C 65 20 43 4F 50 59 49 4E 47 2E 20 20 49 66 20 6E 6F 74 2C 20 77 72 69 74 65 20 74 6F 0A 23 20 74 68 65 20 46 72 65 65 20 53 6F 66 74 77 61 72 65 20 46 6F 75 6E 64 61 74 69 6F 6E 2C 20 35 39 20 54 65 6D 70 6C 65 20 50 6C 61 63 65 20 2D 20 53 75 69 74 65 20 33 33 30 2C 0A 23 20 42 6F 73 74 6F 6E 2C 20 4D 41 20 30 32 31 31 31 2D 31 33 30 37 2C 20 55 53 41 2E 0A 23 0A 0A 24 65 6E 73 63 72 69 70 74 20 3D 20 22 65 6E 73 63 72 69 70 74 22 3B 0A 0A 24 70 72 6F 67 72 61 6D 20 3D 20 24 30 3B 0A 24 70 72 6F 67 72 61 6D 20 3D 7E 20 73 2F 2E 2A 5C 2F 2F 2F 67 3B 0A 0A 73 75 62 20 75 73 61 67 65 20 7B 0A 20 20 20 20 77 61 72 6E 20 22 55 73 61 67 65 3A 20 24 70 72 6F 67 72 61 6D 20 5B 45 4E 53 43 52 49 50 54 5F 4F 50 54 49 4F 4E 5D 2E 2E 2E 20 5B 46 49 4C 45 5D 2E 2E 2E 5C 6E 22 3B 0A 7D 0A 0A 23 20 48 61 6E 64 6C 65 20 61 72 67 75 6D 65 6E 74 73 2E 0A 24 61 72 67 73 20 3D 20 22 2D 2D 65 78 74 65 6E 64 65 64 2D 72 65 74 75 72 6E 2D 76 61 6C 75 65 73 22 3B 0A 24 66 69 6C 65 73 20 3D 20 22 22 3B 0A 77 68 69 6C 65 20 28 24 61 72 67 20 3D 20 73 68 69 66 74 28 40 41 52 47 56 29 29 20 7B 0A 20 20 20 20 69 66 20 28 24 61 72 67 20 65 71 20 22 2D 2D 68 65 6C 70 22 29 20 7B 0A 09 26 75 73 61 67 65 3B 0A 09 65 78 69 74 20 30 3B 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24 61 72 67 20 65 71 20 22 2D 2D 76 65 72 73 69 6F 6E 22 29 20 7B 0A 09 77 61 72 6E 20 22 73 6C 69 63 65 70 72 69 6E 74 20 31 2E 30 5C 6E 22 3B 0A 09 65 78 69 74 20 30 3B 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24 61 72 67 20 3D 7E 20 2F 5E 2D 70 28 2E 2B 29 24 2F 0A 09 7C 7C 20 24 61 72 67 20 3D 7E 20 2F 5E 2D 6F 28 2E 2B 29 24 2F 0A 09 7C 7C 20 24 61 72 67 20 3D 7E 20 2F 5E 2D 2D 6F 75 74 70 75 74 3D 28 2E 2B 29 24 2F 29 20 7B 0A 09 24 6F 75 74 70 75 74 5F 66 69 6C 65 20 3D 20 24 31 3B 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24 61 72 67 20 65 71 20 22 2D 70 22 20 7C 7C 20 24 61 72 67 20 65 71 20 22 2D 6F 22 29 20 7B 0A 09 24 6F 75 74 70 75 74 5F 66 69 6C 65 20 3D 20 73 68 69 66 74 28 40 41 52 47 56 29 3B 0A 20 20 20 20 7D 20 65 6C 73 69 66 20 28 24 61 72 67 20 3D 7E 20 2F 5E 2D 2F 29 20 7B 0A 09 24 61 72 67 73 20 2E 3D 20 22 20 24 61 72 67 22 3B 0A 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 09 24 66 69 6C 65 73 20 2E 3D 20 22 20 24 61 72 67 22 3B 0A 20 20 20 20 7D 0A 7D 0A 0A 23 20 43 68 65 63 6B 20 69 66 20 6F 75 74 70 75 74 20 66 69 6C 65 20 69 73 20 22 2D 22 2E 0A 69 66 20 28 64 65 66 69 6E 65 64 28 24 6F 75 74 70 75 74 5F 66 69 6C 65 29 20 26 26 20 24 6F 75 74 70 75 74 5F 66 69 6C 65 20 65 71 20 22 2D 22 29 20 7B 0A 20 20 20 20 64 69 65 20 22 24 70 72 6F 67 72 61 6D 3A 20 6F 75 74 70 75 74 20 66 69 6C 65 20 63 61 6E 27 74 20 62 65 20 73 74 64 6F 75 74 5C 6E 22 3B 0A 7D 0A 0A 24 73 6C 69 63 65 20 3D 20 30 3B 0A 77 68 69 6C 65 20 28 31 29 20 7B 0A 20 20 20 20 24 73 6C 69 63 65 2B 2B 3B 0A 20 20 20 20 69 66 20 28 64 65 66 69 6E 65 64 28 24 6F 75 74 70 75 74 5F 66 69 6C 65 29 29 20 7B 0A 09 24 63 6D 64 20 3D 20 22 24 65 6E 73 63 72 69 70 74 22 20 2E 20 24 61 72 67 73 20 2E 20 22 20 2D 2D 73 6C 69 63 65 3D 24 73 6C 69 63 65 20 2D 70 22 0A 09 20 20 20 20 2E 20 24 6F 75 74 70 75 74 5F 66 69 6C 65 20 2E 20 22 2E 22 20 2E 20 24 73 6C 69 63 65 20 2E 20 22 20 22 20 2E 20 24 66 69 6C 65 73 3B 0A 20 20 20 20 7D 20 65 6C 73 65 20 7B 0A 09 24 63 6D 64 20 3D 20 22 24 65 6E 73 63 72 69 70 74 22 20 2E 20 24 61 72 67 73 20 2E 20 22 20 2D 2D 73 6C 69 63 65 3D 24 73 6C 69 63 65 22 20 2E 20 24 66 69 6C 65 73 3B 0A 20 20 20 20 7D 0A 20 20 20 20 70 72 69 6E 74 20 22 70 72 69 6E 74 69 6E 67 20 73 6C 69 63 65 20 24 73 6C 69 63 65 2E 2E 2E 5C 6E 22 3B 0A 20 20 20 20 24 72 65 73 75 6C 74 20 3D 20 60 24 63 6D 64 20 32 3E 26 31 60 3B 0A 20 20 20 20 69 66 20 28 24 72 65 73 75 6C 74 20 21 7E 20 22 2E 2A 6C 69 6E 65 73 20 77 65 72 65 2E 2A 22 29 20 7B 0A 09 6C 61 73 74 3B 0A 20 20 20 20 7D 0A 7D 0A | #!/usr/bin/perl # -*- pe rl -*- # # Print documen ts with long lines. # Co pyright (c) 1996-1999 Ma rkku Rossi # # Author: M arkku Rossi <mtr@iki.fi> # # # This file is par t of GNU enscript. # # T his program is free soft ware; you can redistribu te it and/or modify # it under the terms of the GNU General Public Licen se as published by # the Free Software Foundatio n; either version 2, or (at your option) # any l ater version. # # This p rogram is distributed in the hope that it will b e useful, # but WITHOUT ANY WARRANTY; without ev en the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # Yo u should have received a copy of the GNU General Public License # along with this program; see t he file COPYING. If not , write to # the Free So ftware Foundation, 59 Te mple Place - Suite 330, # Boston, MA 02111-1307, USA. # $enscript = "en script"; $program = $0; $program =~ s/.*\///g; sub usage { warn "U sage: $program [ENSCRIPT _OPTION]... [FILE]...\n" ; } # Handle arguments. $args = "--extended-ret urn-values"; $files = "" ; while ($arg = shift(@A RGV)) { if ($arg eq "--help") { &usage; ex it 0; } elsif ($arg eq "--version") { warn "sliceprint 1.0\n"; exi t 0; } elsif ($arg = ~ /^-p(.+)$/ || $arg =~ /^-o(.+)$/ || $arg =~ /^--output=(.+)$/) { $o utput_file = $1; } e lsif ($arg eq "-p" || $a rg eq "-o") { $output_f ile = shift(@ARGV); } elsif ($arg =~ /^-/) { $args .= " $arg"; } else { $files .= " $a rg"; } } # Check if output file is "-". if (defined($output_file) & & $output_file eq "-") { die "$program: outp ut file can't be stdout\ n"; } $slice = 0; while (1) { $slice++; if (defined($output_fil e)) { $cmd = "$enscript " . $args . " --slice=$s lice -p" . $output_ file . "." . $slice . " " . $files; } else { $cmd = "$enscript" . $ args . " --slice=$slice" . $files; } pri nt "printing slice $slic e...\n"; $result = ` $cmd 2>&1`; if ($res ult !~ ".*lines were.*") { last; } } |