mirror of https://gitee.com/Nocallback/glibc.git
Browse Source
The FAQ is now at http://sourceware.org/glibc/wiki/FAQ and not anymore part of the repository.aj/revert-sunrpc
Andreas Jaeger
14 years ago
6 changed files with 15 additions and 3828 deletions
File diff suppressed because it is too large
File diff suppressed because it is too large
@ -1,144 +0,0 @@ |
|||
#! /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"; |
|||
} |
|||
Loading…
Reference in new issue