Advanced
Mailing List Archive

Mailing List Archive

  1. Home >
  2. Perl>
  3. porters
PerlDoc with TOCs
tchrist at mox
Dec 22, 1995, 7:25 AM
Post #1 of 7 (467 views)
Permalink
Please retrieve and distribute (preferably also to CPAN)

ftp://perl.com/perl/doc/PerlDoc-beta1g.tar.gz

which contains

72563 Dec 22 07:20 PerlDoc-beta1g/00-Cover.ps
12790 Dec 22 07:16 PerlDoc-beta1g/01-TOC-short.ps
72091 Dec 22 07:19 PerlDoc-beta1g/02-TOC-long.ps
1782380 Dec 22 06:21 PerlDoc-beta1g/03-PerlDoc.ps

I have a plane to catch. See ya next year.

Merry Christmas!

--tom
Re: PerlDoc with TOCs [ In reply to ]
tchrist at mox
Dec 22, 1995, 7:35 AM
Post #2 of 7 (459 views)
Permalink
that's

cover 1 page
short toc 2 pages
long toc 27 pages
full docs 441 pages

471 pages


don't say i didn't warn you. :-)

--tom
Re: PerlDoc with TOCs [ In reply to ]
kris at bionmr1
Dec 22, 1995, 7:40 AM
Post #3 of 7 (459 views)
Permalink
On Dec 22, 7:35am, Tom Christiansen wrote:
> Subject: Re: PerlDoc with TOCs
> that's
>
> cover 1 page
> short toc 2 pages
> long toc 27 pages
> full docs 441 pages
>
> 471 pages
>
Are this pages in letter format ? If so, is there a version in A4 ?

Kris,
Re: PerlDoc with TOCs [ In reply to ]
tchrist at mox
Dec 22, 1995, 7:43 AM
Post #4 of 7 (469 views)
Permalink
>On Dec 22, 7:35am, Tom Christiansen wrote:
>> Subject: Re: PerlDoc with TOCs
>> that's
>>
>> cover 1 page
>> short toc 2 pages
>> long toc 27 pages
>> full docs 441 pages
>>
>> 471 pages
>>
>Are this pages in letter format ? If so, is there a version in A4 ?

yes. no.

silly eurometrics. :-)

use these. munge them. it's what i did. good luck.

#! /bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of shell archive."
# Contents: roffitall parsetoc
# Wrapped by tchrist@mox on Fri Dec 22 07:43:05 1995
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'roffitall' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'roffitall'\"
else
echo shar: Extracting \"'roffitall'\" \(3058 characters\)
sed "s/^X//" >'roffitall' <<'END_OF_FILE'
X#!/bin/sh
X#nroff -man -rC1 -rD1 -rF1 > /tmp/PerlDoc.txt 2>/tmp/PerlTOC.nr.raw \
Xpsroff -t -man -rC1 -rD1 -rF1 > /tmp/PerlDoc.ps 2>/tmp/PerlTOC.raw \
X /usr/local/man/man1/perl.1 \
X /usr/local/man/man1/perldata.1 \
X /usr/local/man/man1/perlsyn.1 \
X /usr/local/man/man1/perlop.1 \
X /usr/local/man/man1/perlre.1 \
X /usr/local/man/man1/perlrun.1 \
X /usr/local/man/man1/perlfunc.1 \
X /usr/local/man/man1/perlvar.1 \
X /usr/local/man/man1/perlsub.1 \
X /usr/local/man/man1/perlmod.1 \
X /usr/local/man/man1/perlref.1 \
X /usr/local/man/man1/perldsc.1 \
X /usr/local/man/man1/perllol.1 \
X /usr/local/man/man1/perlobj.1 \
X /usr/local/man/man1/perltie.1 \
X /usr/local/man/man1/perlbot.1 \
X /usr/local/man/man1/perldebug.1 \
X /usr/local/man/man1/perldiag.1 \
X /usr/local/man/man1/perlform.1 \
X /usr/local/man/man1/perlipc.1 \
X /usr/local/man/man1/perlsec.1 \
X /usr/local/man/man1/perltrap.1 \
X /usr/local/man/man1/perlstyle.1 \
X /usr/local/man/man1/perlxs.1 \
X /usr/local/man/man1/perlxstut.1 \
X /usr/local/man/man1/perlguts.1 \
X /usr/local/man/man1/perlcall.1 \
X /usr/local/man/man1/perlembed.1 \
X /usr/local/man/man1/perlpod.1 \
X /usr/local/man/man1/perlbook.1 \
X \
X/usr/local/man/man3/subs.3 \
X/usr/local/man/man3/strict.3 \
X/usr/local/man/man3/sigtrap.3 \
X/usr/local/man/man3/overload.3 \
X/usr/local/man/man3/lib.3 \
X/usr/local/man/man3/less.3 \
X/usr/local/man/man3/integer.3 \
X/usr/local/man/man3/diagnostics.3 \
X \
X/usr/local/man/man3/AnyDBM_File.3 \
X/usr/local/man/man3/AutoLoader.3 \
X/usr/local/man/man3/AutoSplit.3 \
X/usr/local/man/man3/Benchmark.3 \
X/usr/local/man/man3/Carp.3 \
X/usr/local/man/man3/Config.3 \
X/usr/local/man/man3/Cwd.3 \
X/usr/local/man/man3/DB_File.3 \
X/usr/local/man/man3/Devel::SelfStubber.3 \
X/usr/local/man/man3/DynaLoader.3 \
X/usr/local/man/man3/English.3 \
X/usr/local/man/man3/Env.3 \
X/usr/local/man/man3/Exporter.3 \
X/usr/local/man/man3/ExtUtils::Liblist.3 \
X/usr/local/man/man3/ExtUtils::MakeMaker.3 \
X/usr/local/man/man3/ExtUtils::Manifest.3 \
X/usr/local/man/man3/ExtUtils::Miniperl.3 \
X/usr/local/man/man3/ExtUtils::Mkbootstrap.3 \
X/usr/local/man/man3/Fcntl.3 \
X/usr/local/man/man3/File::Basename.3 \
X/usr/local/man/man3/File::CheckTree.3 \
X/usr/local/man/man3/File::Find.3 \
X/usr/local/man/man3/File::Path.3 \
X/usr/local/man/man3/FileHandle.3 \
X/usr/local/man/man3/Getopt::Long.3 \
X/usr/local/man/man3/Getopt::Std.3 \
X/usr/local/man/man3/I18N::Collate.3 \
X/usr/local/man/man3/IPC::Open2.3 \
X/usr/local/man/man3/IPC::Open3.3 \
X/usr/local/man/man3/Net::Ping.3 \
X/usr/local/man/man3/POSIX.3 \
X/usr/local/man/man3/Safe.3 \
X/usr/local/man/man3/SelfLoader.3 \
X/usr/local/man/man3/Socket.3 \
X/usr/local/man/man3/Sys::Hostname.3 \
X/usr/local/man/man3/Term::Cap.3 \
X/usr/local/man/man3/Term::Complete.3 \
X/usr/local/man/man3/Test::Harness.3 \
X/usr/local/man/man3/Text::Abbrev.3 \
X/usr/local/man/man3/Text::Soundex.3 \
X/usr/local/man/man3/Text::Tabs.3 \
X/usr/local/man/man3/Text::Wrap.3 \
X/usr/local/man/man3/TieHash.3 \
X/usr/local/man/man3/Time::Local.3
END_OF_FILE
if test 3058 -ne `wc -c <'roffitall'`; then
echo shar: \"'roffitall'\" unpacked with wrong size!
fi
# end of 'roffitall'
fi
if test -f 'parsetoc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'parsetoc'\"
else
echo shar: Extracting \"'parsetoc'\" \(1271 characters\)
sed "s/^X//" >'parsetoc' <<'END_OF_FILE'
Xprint <<'EOF';
X.de NP
X'.sp 0.8i
X.tl ''- % -''
X'bp
X'sp 0.5i
X.tl ''\fB\s+2Perl Table of Contents\s0\fR''
X'sp 0.3i
X..
X.wh -1i NP
X.af % i
X.sp 0.5i
X.tl ''\fB\s+5Perl Table of Contents\s0\fR''
X.sp 0.5i
X.nf
X.na
XEOF
Xwhile (<>) {
X #chomp;
X s/Index://;
X ($type, $page, $desc) = split ' ', $_, 3;
X $desc =~ s/^"(.*)"$/$1/;
X if ($type eq 'Title') {
X ($name = $desc) =~ s/ .*//;
X next;
X } elsif ($type eq 'Name') {
X print STDERR $page, "\t", $desc;
X print ".ne 5\n";
X print ".in 0\n";
X print ".sp\n";
X print ".ft B\n";
X print "$desc\n";
X print ".ft P\n";
X print ".in 5n\n";
X } elsif ($type eq 'Header') {
X print ".br\n", $page, "\t", $desc;
X } elsif ($type eq 'Subsection') {
X print ".br\n", $page, "\t\t", $desc;
X } elsif ($type eq 'Item') {
X next if $desc =~ /\\bu/;
X next unless $name =~ /POSIX|func/i;
X print ".br\n", $page, "\t\t\t", $desc;
X }
X}
X__END__
XIndex:Title 1 "PERL 1"
XIndex:Name 1 "perl - Practical Extraction and Report Language"
XIndex:Header 1 "NAME"
XIndex:Header 1 "SYNOPSIS"
XIndex:Header 2 "DESCRIPTION"
XIndex:Item 2 "\(bu Many usability enhancements"
XIndex:Item 2 "\(bu Simplified grammar"
XIndex:Item 2 "\(bu Lexical scoping"
XIndex:Item 2 "\(bu Arbitrarily nested data structures"
XIndex:Item 2 "\(bu Modularity and reusability"
END_OF_FILE
if test 1271 -ne `wc -c <'parsetoc'`; then
echo shar: \"'parsetoc'\" unpacked with wrong size!
fi
# end of 'parsetoc'
fi
echo shar: End of shell archive.
exit 0
Re: PerlDoc with TOCs [ In reply to ]
tchrist at mox
Dec 22, 1995, 7:43 AM
Post #5 of 7 (457 views)
Permalink
>On Dec 22, 7:35am, Tom Christiansen wrote:
>> Subject: Re: PerlDoc with TOCs
>> that's
>>
>> cover 1 page
>> short toc 2 pages
>> long toc 27 pages
>> full docs 441 pages
>>
>> 471 pages
>>
>Are this pages in letter format ? If so, is there a version in A4 ?

yes. no.

silly eurometrics. :-)

use these. munge them. it's what i did. good luck.

#! /bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of shell archive."
# Contents: roffitall parsetoc
# Wrapped by tchrist@mox on Fri Dec 22 07:43:05 1995
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'roffitall' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'roffitall'\"
else
echo shar: Extracting \"'roffitall'\" \(3058 characters\)
sed "s/^X//" >'roffitall' <<'END_OF_FILE'
X#!/bin/sh
X#nroff -man -rC1 -rD1 -rF1 > /tmp/PerlDoc.txt 2>/tmp/PerlTOC.nr.raw \
Xpsroff -t -man -rC1 -rD1 -rF1 > /tmp/PerlDoc.ps 2>/tmp/PerlTOC.raw \
X /usr/local/man/man1/perl.1 \
X /usr/local/man/man1/perldata.1 \
X /usr/local/man/man1/perlsyn.1 \
X /usr/local/man/man1/perlop.1 \
X /usr/local/man/man1/perlre.1 \
X /usr/local/man/man1/perlrun.1 \
X /usr/local/man/man1/perlfunc.1 \
X /usr/local/man/man1/perlvar.1 \
X /usr/local/man/man1/perlsub.1 \
X /usr/local/man/man1/perlmod.1 \
X /usr/local/man/man1/perlref.1 \
X /usr/local/man/man1/perldsc.1 \
X /usr/local/man/man1/perllol.1 \
X /usr/local/man/man1/perlobj.1 \
X /usr/local/man/man1/perltie.1 \
X /usr/local/man/man1/perlbot.1 \
X /usr/local/man/man1/perldebug.1 \
X /usr/local/man/man1/perldiag.1 \
X /usr/local/man/man1/perlform.1 \
X /usr/local/man/man1/perlipc.1 \
X /usr/local/man/man1/perlsec.1 \
X /usr/local/man/man1/perltrap.1 \
X /usr/local/man/man1/perlstyle.1 \
X /usr/local/man/man1/perlxs.1 \
X /usr/local/man/man1/perlxstut.1 \
X /usr/local/man/man1/perlguts.1 \
X /usr/local/man/man1/perlcall.1 \
X /usr/local/man/man1/perlembed.1 \
X /usr/local/man/man1/perlpod.1 \
X /usr/local/man/man1/perlbook.1 \
X \
X/usr/local/man/man3/subs.3 \
X/usr/local/man/man3/strict.3 \
X/usr/local/man/man3/sigtrap.3 \
X/usr/local/man/man3/overload.3 \
X/usr/local/man/man3/lib.3 \
X/usr/local/man/man3/less.3 \
X/usr/local/man/man3/integer.3 \
X/usr/local/man/man3/diagnostics.3 \
X \
X/usr/local/man/man3/AnyDBM_File.3 \
X/usr/local/man/man3/AutoLoader.3 \
X/usr/local/man/man3/AutoSplit.3 \
X/usr/local/man/man3/Benchmark.3 \
X/usr/local/man/man3/Carp.3 \
X/usr/local/man/man3/Config.3 \
X/usr/local/man/man3/Cwd.3 \
X/usr/local/man/man3/DB_File.3 \
X/usr/local/man/man3/Devel::SelfStubber.3 \
X/usr/local/man/man3/DynaLoader.3 \
X/usr/local/man/man3/English.3 \
X/usr/local/man/man3/Env.3 \
X/usr/local/man/man3/Exporter.3 \
X/usr/local/man/man3/ExtUtils::Liblist.3 \
X/usr/local/man/man3/ExtUtils::MakeMaker.3 \
X/usr/local/man/man3/ExtUtils::Manifest.3 \
X/usr/local/man/man3/ExtUtils::Miniperl.3 \
X/usr/local/man/man3/ExtUtils::Mkbootstrap.3 \
X/usr/local/man/man3/Fcntl.3 \
X/usr/local/man/man3/File::Basename.3 \
X/usr/local/man/man3/File::CheckTree.3 \
X/usr/local/man/man3/File::Find.3 \
X/usr/local/man/man3/File::Path.3 \
X/usr/local/man/man3/FileHandle.3 \
X/usr/local/man/man3/Getopt::Long.3 \
X/usr/local/man/man3/Getopt::Std.3 \
X/usr/local/man/man3/I18N::Collate.3 \
X/usr/local/man/man3/IPC::Open2.3 \
X/usr/local/man/man3/IPC::Open3.3 \
X/usr/local/man/man3/Net::Ping.3 \
X/usr/local/man/man3/POSIX.3 \
X/usr/local/man/man3/Safe.3 \
X/usr/local/man/man3/SelfLoader.3 \
X/usr/local/man/man3/Socket.3 \
X/usr/local/man/man3/Sys::Hostname.3 \
X/usr/local/man/man3/Term::Cap.3 \
X/usr/local/man/man3/Term::Complete.3 \
X/usr/local/man/man3/Test::Harness.3 \
X/usr/local/man/man3/Text::Abbrev.3 \
X/usr/local/man/man3/Text::Soundex.3 \
X/usr/local/man/man3/Text::Tabs.3 \
X/usr/local/man/man3/Text::Wrap.3 \
X/usr/local/man/man3/TieHash.3 \
X/usr/local/man/man3/Time::Local.3
END_OF_FILE
if test 3058 -ne `wc -c <'roffitall'`; then
echo shar: \"'roffitall'\" unpacked with wrong size!
fi
# end of 'roffitall'
fi
if test -f 'parsetoc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'parsetoc'\"
else
echo shar: Extracting \"'parsetoc'\" \(1271 characters\)
sed "s/^X//" >'parsetoc' <<'END_OF_FILE'
Xprint <<'EOF';
X.de NP
X'.sp 0.8i
X.tl ''- % -''
X'bp
X'sp 0.5i
X.tl ''\fB\s+2Perl Table of Contents\s0\fR''
X'sp 0.3i
X..
X.wh -1i NP
X.af % i
X.sp 0.5i
X.tl ''\fB\s+5Perl Table of Contents\s0\fR''
X.sp 0.5i
X.nf
X.na
XEOF
Xwhile (<>) {
X #chomp;
X s/Index://;
X ($type, $page, $desc) = split ' ', $_, 3;
X $desc =~ s/^"(.*)"$/$1/;
X if ($type eq 'Title') {
X ($name = $desc) =~ s/ .*//;
X next;
X } elsif ($type eq 'Name') {
X print STDERR $page, "\t", $desc;
X print ".ne 5\n";
X print ".in 0\n";
X print ".sp\n";
X print ".ft B\n";
X print "$desc\n";
X print ".ft P\n";
X print ".in 5n\n";
X } elsif ($type eq 'Header') {
X print ".br\n", $page, "\t", $desc;
X } elsif ($type eq 'Subsection') {
X print ".br\n", $page, "\t\t", $desc;
X } elsif ($type eq 'Item') {
X next if $desc =~ /\\bu/;
X next unless $name =~ /POSIX|func/i;
X print ".br\n", $page, "\t\t\t", $desc;
X }
X}
X__END__
XIndex:Title 1 "PERL 1"
XIndex:Name 1 "perl - Practical Extraction and Report Language"
XIndex:Header 1 "NAME"
XIndex:Header 1 "SYNOPSIS"
XIndex:Header 2 "DESCRIPTION"
XIndex:Item 2 "\(bu Many usability enhancements"
XIndex:Item 2 "\(bu Simplified grammar"
XIndex:Item 2 "\(bu Lexical scoping"
XIndex:Item 2 "\(bu Arbitrarily nested data structures"
XIndex:Item 2 "\(bu Modularity and reusability"
END_OF_FILE
if test 1271 -ne `wc -c <'parsetoc'`; then
echo shar: \"'parsetoc'\" unpacked with wrong size!
fi
# end of 'parsetoc'
fi
echo shar: End of shell archive.
exit 0
Re: PerlDoc with TOCs [ In reply to ]
h.b.furuseth at usit
Dec 22, 1995, 8:59 AM
Post #6 of 7 (461 views)
Permalink
> 1782380 Dec 22 06:21 PerlDoc-beta1g/03-PerlDoc.ps

03-PerlDoc.ps starts whith an initial blank `page 0', which causes each
sheet to start on an even page number.

Though one good thing about this is that packages (man section 3) start
on a new sheet; it would be nice to keep that feature:-)


Regards,

Hallvard
Re: PerlDoc with TOCs [ In reply to ]
okamoto at hpcc123
Dec 22, 1995, 10:29 AM
Post #7 of 7 (459 views)
Permalink
> Please retrieve and distribute (preferably also to CPAN)
>
> ftp://perl.com/perl/doc/PerlDoc-beta1g.tar.gz

Boo, hiss, perl.com appears to be either down or isolated from the Internet.
Anyone got a copy they can put on CPAN or send to me?

Jeff

©2024 GT.net. A Gossamer Threads company.
5th Floor, 455 Granville St., Vancouver, BC V6C 1T1, Canada | Legal