diff options
author | Andreas Jaeger <aj@suse.de> | 2012-05-03 09:46:57 +0200 |
---|---|---|
committer | Andreas Jaeger <aj@suse.de> | 2012-05-03 09:46:57 +0200 |
commit | 7ac30cc5f0460b72646abffee96584e063f96b5a (patch) | |
tree | a355588263e608d007b06a98e5588897b70a02f9 /scripts | |
parent | e2dbf201abdfa13fc4035a1a8888ecec91bef44c (diff) | |
download | glibc-7ac30cc5f0460b72646abffee96584e063f96b5a.tar.gz glibc-7ac30cc5f0460b72646abffee96584e063f96b5a.tar.xz glibc-7ac30cc5f0460b72646abffee96584e063f96b5a.zip |
Move FAQ to wiki
The FAQ is now at http://sourceware.org/glibc/wiki/FAQ and not anymore part of the repository.
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/gen-FAQ.pl | 144 |
1 files changed, 0 insertions, 144 deletions
diff --git a/scripts/gen-FAQ.pl b/scripts/gen-FAQ.pl deleted file mode 100755 index 9503903f8c..0000000000 --- a/scripts/gen-FAQ.pl +++ /dev/null @@ -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"; -} |