summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorAndreas Jaeger <aj@suse.de>2012-05-03 09:46:57 +0200
committerAndreas Jaeger <aj@suse.de>2012-05-03 09:46:57 +0200
commit7ac30cc5f0460b72646abffee96584e063f96b5a (patch)
treea355588263e608d007b06a98e5588897b70a02f9 /scripts
parente2dbf201abdfa13fc4035a1a8888ecec91bef44c (diff)
downloadglibc-7ac30cc5f0460b72646abffee96584e063f96b5a.tar.gz
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-xscripts/gen-FAQ.pl144
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";
-}