diff options
author | Ulrich Drepper <drepper@redhat.com> | 1998-05-08 20:56:30 +0000 |
---|---|---|
committer | Ulrich Drepper <drepper@redhat.com> | 1998-05-08 20:56:30 +0000 |
commit | 5bc2f642a77010ef3d118dc286b39fa4a7f21699 (patch) | |
tree | 93d643946175191a02d997b300d02f918e7b8877 /gen-FAQ.pl | |
parent | c7562c74ed1b18fda99bfd5f6c4b61a449bcb35f (diff) | |
download | glibc-5bc2f642a77010ef3d118dc286b39fa4a7f21699.zip glibc-5bc2f642a77010ef3d118dc286b39fa4a7f21699.tar.gz glibc-5bc2f642a77010ef3d118dc286b39fa4a7f21699.tar.bz2 |
Update.
1998-05-08 21:56 Zack Weinberg <zack@rabi.phys.columbia.edu>
* autolock.sh: Removed.
* manual/move-if-change: Removed.
* scripts: new directory.
* =__ify: moved to scripts.
* config.guess: Likewise.
* config.sub: Likewise.
* gen-FAQ.pl: Likewise.
* install-sh: Likewise.
* mkinstalldirs: Likewise.
* move-if-change: Likewise.
* printsources: Likewise.
* rellns.sh: Likewise.
* test-installation.pl: Likewise.
* configure.in: Look in scripts for config.guess, config.sub,
install-sh.
* Makefile: Distribute all above files in their
new home. Find gen-FAQ.pl and test-installation.pl in scripts.
* manual/Makefile: Find mkinstalldirs and move-if-change in
$(..)scripts. Drop them from distribute. Minor cleanups.
* Makerules: Find mkinstalldirs and rellns-sh in scripts.
* sysdeps/mach/hurd/Makefile: Find move-if-change in scripts.
* timezone/Makefile: Find rellns-sh in scripts.
Diffstat (limited to 'gen-FAQ.pl')
-rwxr-xr-x | gen-FAQ.pl | 144 |
1 files changed, 0 insertions, 144 deletions
diff --git a/gen-FAQ.pl b/gen-FAQ.pl deleted file mode 100755 index 9503903..0000000 --- a/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"; -} |