glibc/scripts/gen-FAQ.pl

145 lines
2.4 KiB
Perl
Executable File

#! /usr/bin/perl
=pod
This is a silly little program for generating the libc FAQ.
The input format is:
top boilerplate
^L
? section name (one line)
?? question...
...
{ID} answer...
...
^L
{ID} name <email@address>
...
which gets mapped to:
top boilerplate
^L
1. section 1...
1.1. q1.1
1.2. q1.2
...
^L
1. section 1...
1.1. q1.1
answer 1.1....
^L
Answers were provided by:
...
=cut
# We slurp the whole file into a pair of assoc arrays indexed by
# the 'section.question' number.
%questions = ();
%answers = ();
$question = 0;
# These arrays and counter keep track of the sections.
@sectcount = ();
@sections = ();
$section = 0;
# Cross reference list.
%refs = ();
# Separators.
$sepmaj = "\f\n" . ('~ ' x 36) . "\n\n";
$sepmin = "\f\n" . ('. ' x 36) . "\n\n";
# Pass through the top boilerplate.
while(<>)
{
last if $_ eq "\f\n";
print;
}
# Now the body.
while(<>)
{
/\f/ && do
{
$sectcount[$section] = $question;
last;
};
s/^\?\s+// && do
{
chomp;
$sectcount[$section] = $question if $section > 0;
$section++;
$sections[$section] = $_;
$question = 0;
next;
};
s/^\?\?(\w*?)\s+// && do
{
$cur = \%questions;
$question++;
$questions{$section,$question} = $_;
$refs{$1} = "$section.$question" if $1 ne "";
next;
};
/^\{/ && do
{
$cur = \%answers;
$answers{$section,$question} .= $_;
next;
};
${$cur}{$section,$question} .= $_;
}
# Now we have to clean up the newlines and deal with cross references.
foreach(keys %questions) { $questions{$_} =~ s/\n+$//; }
foreach(keys %answers)
{
$answers{$_} =~ s/\n+$//;
$answers{$_} =~ s/(\s)\?(\w+)\b/$1 . "question " . ($refs{$2} or badref($2,$_), "!!$2")/eg;
}
# Now output the formatted FAQ.
print $sepmaj;
for($i = 1; $i <= $section; $i++)
{
print "$i. $sections[$i]\n\n";
for($j = 1; $j <= $sectcount[$i]; $j++)
{
print "$i.$j.\t$questions{$i,$j}\n";
}
print "\n";
}
print $sepmaj;
for($i = 1; $i <= $section; $i++)
{
print "$i. $sections[$i]\n\n";
for($j = 1; $j <= $sectcount[$i]; $j++)
{
print "$i.$j.\t$questions{$i,$j}\n\n";
print $answers{$i,$j}, "\n\n";
print "\n" if $j < $sectcount[$i];
}
print $sepmin if $i < $section;
}
print $sepmaj;
# Pass through the trailer.
while(<>) { print; }
sub badref
{
my($ref,$quest) = @_;
$quest =~ s/$;/./;
print STDERR "Undefined reference to $ref in answer to Q$quest\n";
}