Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
Makefile	9 KB	-rw-r--r--	2016-10-10 17:34
Makefile.SH	2.65 KB	-r--r--r--	2014-12-27 11:48
buildtoc	6.13 KB	-r--r--r--	2014-12-27 11:48
perl.pod	14.99 KB	-r--r--r--	2015-01-17 16:51
perl5004delta.pod	54.92 KB	-r--r--r--	2014-12-27 11:48
perl5005delta.pod	33.48 KB	-r--r--r--	2014-12-27 11:48
perl5100delta.pod	54.23 KB	-r--r--r--	2014-12-27 11:48
perl5101delta.pod	42.86 KB	-r--r--r--	2014-12-27 11:48
perl5120delta.pod	87.18 KB	-r--r--r--	2014-12-27 11:48
perl5121delta.pod	9.9 KB	-r--r--r--	2014-12-27 11:48
perl5122delta.pod	9.38 KB	-r--r--r--	2014-12-27 11:48
perl5123delta.pod	4 KB	-r--r--r--	2014-12-27 11:48
perl5124delta.pod	3.59 KB	-r--r--r--	2014-12-27 11:48
perl5125delta.pod	7.5 KB	-r--r--r--	2014-12-27 11:48
perl5140delta.pod	140.94 KB	-r--r--r--	2014-12-27 11:48
perl5141delta.pod	7.78 KB	-r--r--r--	2014-12-27 11:48
perl5142delta.pod	6.73 KB	-r--r--r--	2014-12-27 11:48
perl5143delta.pod	7.58 KB	-r--r--r--	2014-12-27 11:48
perl5144delta.pod	6.18 KB	-r--r--r--	2014-12-27 11:48
perl5160delta.pod	130.52 KB	-r--r--r--	2014-12-27 11:48
perl5161delta.pod	6 KB	-r--r--r--	2014-12-27 11:48
perl5162delta.pod	3.51 KB	-r--r--r--	2014-12-27 11:48
perl5163delta.pod	3.99 KB	-r--r--r--	2014-12-27 11:48
perl5180delta.pod	116.63 KB	-r--r--r--	2014-12-27 11:48
perl5181delta.pod	6.44 KB	-r--r--r--	2014-12-27 11:48
perl5182delta.pod	5.21 KB	-r--r--r--	2014-12-27 11:48
perl5184delta.pod	4.53 KB	-r--r--r--	2015-01-15 22:12
perl5200delta.pod	112.82 KB	-r--r--r--	2014-12-27 11:49
perl5201delta.pod	10.64 KB	-r--r--r--	2014-12-27 11:48
perl5202delta.pod	12.21 KB	-r--r--r--	2015-02-14 16:44
perl561delta.pod	121.79 KB	-r--r--r--	2014-12-27 11:48
perl56delta.pod	104.68 KB	-r--r--r--	2014-12-27 11:48
perl581delta.pod	37.17 KB	-r--r--r--	2014-12-27 11:48
perl582delta.pod	4.37 KB	-r--r--r--	2014-12-27 11:48
perl583delta.pod	6.19 KB	-r--r--r--	2014-12-27 11:48
perl584delta.pod	7.19 KB	-r--r--r--	2014-12-27 11:48
perl585delta.pod	5.75 KB	-r--r--r--	2014-12-27 11:48
perl586delta.pod	4.54 KB	-r--r--r--	2014-12-27 11:48
perl587delta.pod	8.16 KB	-r--r--r--	2014-12-27 11:48
perl588delta.pod	24.68 KB	-r--r--r--	2014-12-27 11:48
perl589delta.pod	52.64 KB	-r--r--r--	2014-12-27 11:48
perl58delta.pod	112.46 KB	-r--r--r--	2014-12-27 11:48
perlaix.pod	19.15 KB	-r--r--r--	2014-12-27 11:49
perlamiga.pod	6.87 KB	-r--r--r--	2014-12-27 11:48
perlandroid.pod	7.61 KB	-r--r--r--	2014-12-27 11:48
perlapi.pod	351.17 KB	-rw-r--r--	2016-10-10 17:36
perlapio.pod	18.62 KB	-r--r--r--	2014-12-27 11:48
perlartistic.pod	6.85 KB	-r--r--r--	2014-12-27 11:48
perlbook.pod	7.27 KB	-r--r--r--	2014-12-27 11:48
perlboot.pod	294 B	-r--r--r--	2014-12-27 11:48
perlbot.pod	304 B	-r--r--r--	2014-12-27 11:48
perlbs2000.pod	7.73 KB	-r--r--r--	2014-12-27 11:48
perlcall.pod	53.99 KB	-r--r--r--	2014-12-27 11:48
perlce.pod	14.27 KB	-r--r--r--	2014-12-27 11:48
perlcheat.pod	4.38 KB	-r--r--r--	2014-12-27 11:48
perlclib.pod	8.71 KB	-r--r--r--	2014-12-27 11:49
perlcn.pod	4.58 KB	-r--r--r--	2014-12-27 11:48
perlcommunity.pod	6.79 KB	-r--r--r--	2014-12-27 11:48
perlcygwin.pod	26.67 KB	-r--r--r--	2014-12-27 11:49
perldata.pod	41.86 KB	-r--r--r--	2014-12-27 11:49
perldbmfilter.pod	4.86 KB	-r--r--r--	2014-12-27 11:48
perldebguts.pod	37.33 KB	-r--r--r--	2014-12-27 11:49
perldebtut.pod	20.79 KB	-r--r--r--	2014-12-27 11:48
perldebug.pod	38.24 KB	-r--r--r--	2014-12-27 11:48
perldelta.pod	12.21 KB	-r--r--r--	2015-02-14 16:44
perldiag.pod	245.97 KB	-r--r--r--	2015-01-24 15:03
perldos.pod	10.28 KB	-r--r--r--	2014-12-27 11:48
perldsc.pod	23.95 KB	-r--r--r--	2014-12-27 11:48
perldtrace.pod	8 KB	-r--r--r--	2014-12-27 11:48
perlebcdic.pod	57.34 KB	-r--r--r--	2014-12-27 11:49
perlembed.pod	36.25 KB	-r--r--r--	2014-12-27 11:49
perlexperiment.pod	6.08 KB	-r--r--r--	2014-12-27 12:55
perlfilter.pod	20.56 KB	-r--r--r--	2014-12-27 11:49
perlfork.pod	13.04 KB	-r--r--r--	2015-01-15 22:12
perlform.pod	16.22 KB	-r--r--r--	2014-12-27 11:48
perlfreebsd.pod	1.55 KB	-r--r--r--	2014-12-27 11:48
perlfunc.pod	349.83 KB	-r--r--r--	2015-01-24 15:03
perlgit.pod	32.08 KB	-r--r--r--	2015-01-15 22:12
perlgpl.pod	13.49 KB	-r--r--r--	2014-12-27 11:48
perlguts.pod	116.52 KB	-r--r--r--	2015-01-15 22:12
perlhack.pod	35.63 KB	-r--r--r--	2015-01-15 22:12
perlhacktips.pod	45.28 KB	-r--r--r--	2014-12-27 11:49
perlhacktut.pod	6.02 KB	-r--r--r--	2014-12-27 11:48
perlhaiku.pod	1.47 KB	-r--r--r--	2015-01-28 21:08
perlhist.pod	46.87 KB	-r--r--r--	2015-02-14 16:10
perlhpux.pod	28.68 KB	-r--r--r--	2014-12-27 11:49
perlhurd.pod	1.94 KB	-r--r--r--	2014-12-27 11:48
perlintern.pod	48.37 KB	-rw-r--r--	2016-10-10 17:36
perlinterp.pod	29.98 KB	-r--r--r--	2014-12-27 11:48
perlintro.pod	21.59 KB	-r--r--r--	2014-12-27 11:48
perliol.pod	33 KB	-r--r--r--	2015-01-15 22:12
perlipc.pod	69.76 KB	-r--r--r--	2015-01-15 22:12
perlirix.pod	4.29 KB	-r--r--r--	2014-12-27 11:48
perljp.pod	7.34 KB	-r--r--r--	2014-12-27 11:48
perlko.pod	11.97 KB	-r--r--r--	2014-12-27 11:48
perllexwarn.pod	355 B	-r--r--r--	2014-12-27 11:48
perllinux.pod	1.45 KB	-r--r--r--	2014-12-27 11:48
perllocale.pod	60.94 KB	-r--r--r--	2015-01-15 22:12
perllol.pod	10.93 KB	-r--r--r--	2014-12-27 11:48
perlmacos.pod	1001 B	-r--r--r--	2014-12-27 11:48
perlmacosx.pod	11.72 KB	-r--r--r--	2015-01-28 21:08
perlmod.pod	24.36 KB	-r--r--r--	2015-01-15 22:12
perlmodinstall.pod	12.41 KB	-r--r--r--	2014-12-27 11:48
perlmodlib.PL	41.82 KB	-r--r--r--	2014-12-27 11:49
perlmodlib.pod	73.52 KB	-rw-r--r--	2016-10-10 17:36
perlmodstyle.pod	21.62 KB	-r--r--r--	2015-01-15 22:12
perlmroapi.pod	3.13 KB	-r--r--r--	2014-12-27 11:48
perlnetware.pod	6.32 KB	-r--r--r--	2014-12-27 11:48
perlnewmod.pod	11.04 KB	-r--r--r--	2015-01-15 22:12
perlnumber.pod	8.16 KB	-r--r--r--	2014-12-27 11:48
perlobj.pod	33.65 KB	-r--r--r--	2014-12-27 11:48
perlootut.pod	26.02 KB	-r--r--r--	2014-12-27 11:48
perlop.pod	123.93 KB	-r--r--r--	2015-01-15 22:12
perlopenbsd.pod	1.18 KB	-r--r--r--	2014-12-27 11:48
perlopentut.pod	9.23 KB	-r--r--r--	2014-12-27 11:48
perlos2.pod	90.54 KB	-r--r--r--	2015-01-28 21:08
perlos390.pod	15.19 KB	-r--r--r--	2014-12-27 11:48
perlos400.pod	4.51 KB	-r--r--r--	2014-12-27 11:48
perlpacktut.pod	49.92 KB	-r--r--r--	2014-12-27 11:49
perlperf.pod	50.05 KB	-r--r--r--	2014-12-27 11:48
perlplan9.pod	5 KB	-r--r--r--	2014-12-27 11:48
perlpod.pod	21.47 KB	-r--r--r--	2014-12-27 11:48
perlpodspec.pod	66.2 KB	-r--r--r--	2014-12-27 11:48
perlpodstyle.pod	11.67 KB	-r--r--r--	2014-12-27 11:48
perlpolicy.pod	21.94 KB	-r--r--r--	2015-01-31 17:02
perlport.pod	83.68 KB	-r--r--r--	2015-01-15 22:12
perlpragma.pod	5.05 KB	-r--r--r--	2014-12-27 11:48
perlqnx.pod	6.52 KB	-r--r--r--	2014-12-27 11:48
perlre.pod	104.57 KB	-r--r--r--	2014-12-27 11:49
perlreapi.pod	29.62 KB	-r--r--r--	2014-12-27 11:48
perlrebackslash.pod	25.73 KB	-r--r--r--	2014-12-27 11:48
perlrecharclass.pod	43.22 KB	-r--r--r--	2015-01-15 22:12
perlref.pod	30.69 KB	-r--r--r--	2015-01-15 22:12
perlreftut.pod	18.14 KB	-r--r--r--	2014-12-27 11:48
perlreguts.pod	37.43 KB	-r--r--r--	2014-12-27 11:48
perlrepository.pod	509 B	-r--r--r--	2014-12-27 11:48
perlrequick.pod	17.53 KB	-r--r--r--	2014-12-27 11:48
perlreref.pod	14.32 KB	-r--r--r--	2014-12-27 11:48
perlretut.pod	115.11 KB	-r--r--r--	2014-12-27 11:48
perlriscos.pod	1.49 KB	-r--r--r--	2014-12-27 11:48
perlrun.pod	51.43 KB	-r--r--r--	2014-12-27 11:48
perlsec.pod	24.47 KB	-r--r--r--	2015-01-15 22:12
perlsolaris.pod	29.11 KB	-r--r--r--	2014-12-27 11:48
perlsource.pod	6.77 KB	-r--r--r--	2014-12-27 11:48
perlstyle.pod	8.42 KB	-r--r--r--	2014-12-27 11:48
perlsub.pod	70.21 KB	-r--r--r--	2015-01-24 15:05
perlsymbian.pod	15.44 KB	-r--r--r--	2014-12-27 11:48
perlsyn.pod	42.57 KB	-r--r--r--	2015-01-15 22:12
perlsynology.pod	6.88 KB	-r--r--r--	2014-12-27 11:48
perlthrtut.pod	45.37 KB	-r--r--r--	2015-01-15 22:12
perltie.pod	37.03 KB	-r--r--r--	2014-12-27 11:48
perltoc.pod	622.85 KB	-rw-r--r--	2016-10-10 19:20
perltodo.pod	376 B	-r--r--r--	2014-12-27 11:48
perltooc.pod	294 B	-r--r--r--	2014-12-27 11:48
perltoot.pod	294 B	-r--r--r--	2014-12-27 11:48
perltrap.pod	10.37 KB	-r--r--r--	2014-12-27 11:48
perltru64.pod	7.56 KB	-r--r--r--	2014-12-27 11:49
perltw.pod	4.5 KB	-r--r--r--	2014-12-27 11:48
perlunicode.pod	77.49 KB	-r--r--r--	2014-12-27 11:49
perlunicook.pod	24.81 KB	-r--r--r--	2015-01-17 16:55
perlunifaq.pod	13.33 KB	-r--r--r--	2014-12-27 11:48
perluniintro.pod	35.63 KB	-r--r--r--	2015-01-15 22:12
perluniprops.pod	240.35 KB	-rw-r--r--	2016-10-10 17:38
perlunitut.pod	7.76 KB	-r--r--r--	2014-12-27 11:48
perlutil.pod	9.18 KB	-r--r--r--	2014-12-27 11:49
perlvar.pod	72.7 KB	-r--r--r--	2015-01-15 22:12
perlvms.pod	51.34 KB	-r--r--r--	2014-12-27 11:49
perlvos.pod	3.75 KB	-r--r--r--	2014-12-27 11:48
perlwin32.pod	37.59 KB	-r--r--r--	2015-01-15 22:12
roffitall	26.92 KB	-rw-r--r--	2016-10-10 19:20
rofftoc	1.4 KB	-r--r--r--	2014-12-27 11:49
splitman	641 B	-r--r--r--	2014-12-27 11:49
splitpod	1.32 KB	-r--r--r--	2014-12-27 11:49

Rename

#!/usr/bin/perl -w

use strict;
use vars qw($Quiet);
use File::Spec;
use FindBin;
use Text::Wrap;
use Getopt::Long;

no locale;

# Assumption is that we're either already being run from the top level (*nix,
# VMS), or have absolute paths in @INC (Win32, pod/Makefile)
BEGIN {
  my $Top = File::Spec->catdir($FindBin::Bin, File::Spec->updir);
  chdir $Top or die "Can't chdir to $Top: $!";
  require 'Porting/pod_lib.pl';
}

die "$0: Usage: $0 [--quiet]\n"
    unless GetOptions (quiet => \$Quiet) && !@ARGV;

my $state = get_pod_metadata(0, sub { warn @_ if @_ }, 'pod/perltoc.pod');

my $found = pods_to_install();

my_die "Can't find any pods!\n" unless %$found;

# Accumulating everything into a lexical before writing to disk dates from the
# time when this script also provided the functionality of regen/pod_rules.pl
# and this code was in a subroutine do_toc(). In turn, the use of a file scoped
# lexical instead of a parameter or return value is because the code dates back
# further still, and used *only* to create pod/perltoc.pod by printing direct

my $OUT;
my $roffitall;

($_= <<"EOPOD2B") =~ s/^\t//gm and $OUT .= $_;

# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
	# This file is autogenerated by buildtoc from all the other pods.
	# Edit those files and run $0 to effect changes.

=encoding UTF-8

=head1 NAME

perltoc - perl documentation table of contents

=head1 DESCRIPTION

This page provides a brief table of contents for the rest of the Perl
	documentation set.  It is meant to be scanned quickly or grepped
	through to locate the proper section you're looking for.

=head1 BASIC DOCUMENTATION

EOPOD2B

# All the things in the master list that happen to be pod filenames
foreach (grep {!$_->[2]{toc_omit}} @{$state->{master}}) {
    $roffitall .= "    \$mandir/$_->[0].1 \\\n";
    podset($_->[0], $_->[1]);
}

foreach my $type (qw(PRAGMA MODULE)) {
    ($_= <<"EOPOD2B") =~ s/^\t//gm and $OUT .= $_;

=head1 $type DOCUMENTATION

EOPOD2B

foreach my $name (sort keys %{$found->{$type}}) {
        $roffitall .= "    \$libdir/$name.3 \\\n";
        podset($name, $found->{$type}{$name});
    }
}

$_= <<"EOPOD2B";

=head1 AUXILIARY DOCUMENTATION

Here should be listed all the extra programs' documentation, but they
	don't all have manual pages yet:

=over 4

EOPOD2B

$_ .=  join "\n", map {"\t=item $_\n"} @{$state->{aux}};
$_ .= <<"EOPOD2B" ;

=back

=head1 AUTHOR

Larry Wall <F<larry\@wall.org>>, with the help of oodles
	of other folks.

EOPOD2B

s/^\t//gm;
$OUT .= "$_\n";

$OUT =~ s/\n\s+\n/\n\n/gs;
$OUT =~ s/\n{3,}/\n\n/g;

$OUT =~ s/([^\n]+)/wrap('', '', $1)/ge;

write_or_die('pod/perltoc.pod', $OUT);

write_or_die('pod/roffitall', <<'EOH' . $roffitall . <<'EOT');
#!/bin/sh
#
# Usage: roffitall [-nroff|-psroff|-groff]
#
# Authors: Tom Christiansen, Raphael Manfredi

me=roffitall
tmp=.

if test -f ../config.sh; then
	. ../config.sh
fi

mandir=$installman1dir
libdir=$installman3dir

test -d $mandir || mandir=/usr/new/man/man1
test -d $libdir || libdir=/usr/new/man/man3

case "$1" in
-nroff) cmd="nroff -man"; ext='txt';;
-psroff) cmd="psroff -t"; ext='ps';;
-groff) cmd="groff -man"; ext='ps';;
*)
	echo "Usage: roffitall [-nroff|-psroff|-groff]" >&2
	exit 1
	;;
esac

toroff=`
	echo		\
EOH
    | perl -ne 'map { -r && print "$_ " } split'`

# Bypass internal shell buffer limit -- can't use case
    if perl -e '$a = shift; exit($a =~ m|/|)' $toroff; then
	echo "$me: empty file list -- did you run install?" >&2
	exit 1
    fi

#psroff -t -man -rC1 -rD1 -rF1 > $tmp/PerlDoc.ps 2>$tmp/PerlTOC.raw
    #nroff -man -rC1 -rD1 -rF1 > $tmp/PerlDoc.txt 2>$tmp/PerlTOC.nr.raw

# First, create the raw data
    run="$cmd -rC1 -rD1 -rF1 >$tmp/PerlDoc.$ext 2>$tmp/PerlTOC.$ext.raw"
    echo "$me: running $run"
    eval $run $toroff

#Now create the TOC
    echo "$me: parsing TOC"
    perl rofftoc $tmp/PerlTOC.$ext.raw > $tmp/PerlTOC.tmp.man
    run="$cmd $tmp/PerlTOC.tmp.man >$tmp/PerlTOC.$ext"
    echo "$me: running $run"
    eval $run

# Finally, recreate the Doc, without the blank page 0
    run="$cmd -rC1 -rD1 >$tmp/PerlDoc.$ext 2>$tmp/PerlTOC.$ext.raw"
    echo "$me: running $run"
    eval $run $toroff
    rm -f $tmp/PerlTOC.tmp.man $tmp/PerlTOC.$ext.raw
    echo "$me: leaving you with $tmp/PerlDoc.$ext and $tmp/PerlTOC.$ext"
EOT

exit(0);

# Below are all the auxiliary routines for generating perltoc.pod

my ($inhead1, $inhead2, $initem);

sub podset {
    my ($pod, $file) = @_;

open my $fh, '<', $file or my_die "Can't open file '$file' for $pod: $!";

local *_;
    my $found_pod;
    while (<$fh>) {
        if (/^=head1\s+NAME\b/) {
            ++$found_pod;
            last;
        }
    }

unless ($found_pod) {
	warn "$0: NOTE: cannot find '=head1 NAME' in:\n  $file\n" unless $Quiet;
        return;
    }

seek $fh, 0, 0 or my_die "Can't rewind file '$file': $!";
    local $/ = '';

while(<$fh>) {
	tr/\015//d;
	if (s/^=head1 (NAME)\s*/=head2 /) {
	    unhead1();
	    $OUT .= "\n\n=head2 ";
	    $_ = <$fh>;
	    # Remove svn keyword expansions from the Perl FAQ
	    s/ $\$Revision: \d+ \$$//g;
	    if ( /^\s*\Q$pod\E\b/ ) {
		s/$pod\.pm/$pod/;       # '.pm' in NAME !?
	    } else {
		s/^/$pod, /;
	    }
	}
	elsif (s/^=head1 (.*)/=item $1/) {
	    unhead2();
	    $OUT .= "=over 4\n\n" unless $inhead1;
	    $inhead1 = 1;
	    $_ .= "\n";
	}
	elsif (s/^=head2 (.*)/=item $1/) {
	    unitem();
	    $OUT .= "=over 4\n\n" unless $inhead2;
	    $inhead2 = 1;
	    $_ .= "\n";
	}
	elsif (s/^=item ([^=].*)/$1/) {
	    next if $pod eq 'perldiag';
	    s/^\s*\*\s*$// && next;
	    s/^\s*\*\s*//;
	    s/\n/ /g;
	    s/\s+$//;
	    next if /^[\d.]+$/;
	    next if $pod eq 'perlmodlib' && /^ftp:/;
	    $OUT .= ", " if $initem;
	    $initem = 1;
	    s/\.$//;
	    s/^-X\b/-I<X>/;
	}
	else {
	    unhead1() if /^=cut\s*\n/;
	    next;
	}
	$OUT .= $_;
    }
}

sub unhead1 {
    unhead2();
    if ($inhead1) {
	$OUT .= "\n\n=back\n\n";
    }
    $inhead1 = 0;
}

sub unhead2 {
    unitem();
    if ($inhead2) {
	$OUT .= "\n\n=back\n\n";
    }
    $inhead2 = 0;
}

sub unitem {
    if ($initem) {
	$OUT .= "\n\n";
    }
    $initem = 0;
}

# Local variables:
# cperl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# ex: set ts=8 sts=4 sw=4 et: