[perl5.git] / pod / rofftoc

# feed this into perl
	eval 'exec perl -S $0 ${1+"$@"}'
		if $running_under_some_shell;

# Usage: rofftoc PerlTOC.xxx.raw
#
# Post-processes roffitall output. Called from roffitall to produce
# a formatted table of contents.
#
# Author: Tom Christiansen

print <<'EOF';
.de NP
'.sp 0.8i
.tl ''- % -''
'bp
'sp 0.5i
.tl ''\fB\s+2Perl Table of Contents\s0\fR''
'sp 0.3i
..
.wh -1i NP
.af % i
.sp 0.5i
.tl ''\fB\s+5Perl Table of Contents\s0\fR''
.sp 0.5i
.nf
.na
EOF
while (<>) {
    #chomp;
    s/Index://;
    ($type, $page, $desc) = split ' ', $_, 3;
    $desc =~ s/^"(.*)"$/$1/;
    if      ($type eq 'Title') {
	($name = $desc) =~ s/ .*//;
	next;
    } elsif ($type eq 'Name') {
	#print STDERR  $page, "\t", $desc;
	print ".ne 5\n";
	print ".in 0\n";
	print ".sp\n";
	print ".ft B\n";
	print "$desc\n";
	print ".ft P\n";
	print ".in 5n\n";
    } elsif ($type eq 'Header') {
	print ".br\n", $page, "\t", $desc;
    } elsif ($type eq 'Subsection') {
	print ".br\n", $page, "\t\t", $desc;
    } elsif ($type eq 'Item') {
	next if $desc =~ /\\bu/;
	next unless $name =~ /POSIX|func/i;
	print ".br\n", $page, "\t\t\t", $desc;
    }
} 
__END__
Index:Title	1	"PERL 1"
Index:Name	1	"perl - Practical Extraction and Report Language"
Index:Header	1	"NAME"
Index:Header	1	"SYNOPSIS"
Index:Header	2	"DESCRIPTION"
Index:Item	2	"\(bu Many usability enhancements"
Index:Item	2	"\(bu Simplified grammar"
Index:Item	2	"\(bu Lexical scoping"
Index:Item	2	"\(bu Arbitrarily nested data structures"
Index:Item	2	"\(bu Modularity and reusability"
Commit	Line	Data
44a8e56a	1	# feed this into perl
	2	eval 'exec perl -S $0 ${1+"$@"}'
	3	if $running_under_some_shell;
	4
	5	# Usage: rofftoc PerlTOC.xxx.raw
	6	#
	7	# Post-processes roffitall output. Called from roffitall to produce
	8	# a formatted table of contents.
	9	#
	10	# Author: Tom Christiansen
	11
	12	print <<'EOF';
	13	.de NP
	14	'.sp 0.8i
	15	.tl ''- % -''
	16	'bp
	17	'sp 0.5i
	18	.tl ''\fB\s+2Perl Table of Contents\s0\fR''
	19	'sp 0.3i
	20	..
	21	.wh -1i NP
	22	.af % i
	23	.sp 0.5i
	24	.tl ''\fB\s+5Perl Table of Contents\s0\fR''
	25	.sp 0.5i
	26	.nf
	27	.na
	28	EOF
	29	while (<>) {
	30	#chomp;
	31	s/Index://;
	32	($type, $page, $desc) = split ' ', $_, 3;
	33	$desc =~ s/^"(.*)"$/$1/;
	34	if ($type eq 'Title') {
	35	($name = $desc) =~ s/ .*//;
	36	next;
	37	} elsif ($type eq 'Name') {
	38	#print STDERR $page, "\t", $desc;
	39	print ".ne 5\n";
	40	print ".in 0\n";
	41	print ".sp\n";
	42	print ".ft B\n";
	43	print "$desc\n";
	44	print ".ft P\n";
	45	print ".in 5n\n";
	46	} elsif ($type eq 'Header') {
	47	print ".br\n", $page, "\t", $desc;
	48	} elsif ($type eq 'Subsection') {
	49	print ".br\n", $page, "\t\t", $desc;
	50	} elsif ($type eq 'Item') {
	51	next if $desc =~ /\\bu/;
	52	next unless $name =~ /POSIX\|func/i;
	53	print ".br\n", $page, "\t\t\t", $desc;
	54	}
	55	}
	56	__END__
	57	Index:Title 1 "PERL 1"
	58	Index:Name 1 "perl - Practical Extraction and Report Language"
	59	Index:Header 1 "NAME"
	60	Index:Header 1 "SYNOPSIS"
	61	Index:Header 2 "DESCRIPTION"
	62	Index:Item 2 "\(bu Many usability enhancements"
	63	Index:Item 2 "\(bu Simplified grammar"
	64	Index:Item 2 "\(bu Lexical scoping"
65	Index:Item 2 "\(bu Arbitrarily nested data structures"
66	Index:Item 2 "\(bu Modularity and reusability"