summaryrefslogtreecommitdiff
path: root/gen-FAQ.pl
diff options
context:
space:
mode:
authorUlrich Drepper <drepper@redhat.com>1997-12-05 00:40:29 +0000
committerUlrich Drepper <drepper@redhat.com>1997-12-05 00:40:29 +0000
commit6195235142bd246d972cf1d88b4e208071a3e318 (patch)
tree6304c59c26a2f243a6c1f60833de1585807a65f7 /gen-FAQ.pl
parentcbdee2790df9dac548fb3157cfaf7aceb0f40034 (diff)
downloadglibc-6195235142bd246d972cf1d88b4e208071a3e318.tar.gz
1997-12-05 00:01 Ulrich Drepper <drepper@cygnus.com> The kernel expects the arguments in a different order. * sysdeps/unix/sysv/linux/i386/s_pread64.S: New file. * sysdeps/unix/sysv/linux/i386/s_pwrite64.S: New file. * FAQ.in: New file. * gen-FAQ.pl: New file. * Makefile (FAQ): Add rule to generate from FAQ.in. * iconvdata/Makefile: Treat libJIS like the other modules. * rt/librt.map: New file. * sysdeps/wordsize-32/bits/environments.h: Add test for direct inclusion. * sysdeps/wordsize-64/bits/environments.h: Likewise. Correct comment. 1997-12-04 22:29 Ulrich Drepper <drepper@cygnus.com> * sysdeps/unix/sysv/linux/rt_sigprocmask.c: Fix prototype. * sysdeps/unix/sysv/linux/rt_sigsuspend.c: Likewise. * sysdeps/unix/sysv/linux/rt_sigqueueinfo.c: Include <sys/types.h>. Patches by Thorsten Kukuk <kukuk@weber.uni-paderborn.de>. 1997-11-27 Andreas Jaeger <aj@arthur.rhein-neckar.de> * string/bits/string2.h: Fix spellings. * string/string.h: Fix spellings. 1997-12-04 Andreas Jaeger <aj@arthur.rhein-neckar.de> * sysdeps/unix/sysv/linux/i386/sigaction.c: Rename extern declaration to __syscall_rt_sigaction. * sysdeps/unix/sysv/linux/sigreturn.c: Remove inclusion of non-existant <sigcontext.h>. 1997-12-04 Andreas Jaeger <aj@arthur.rhein-neckar.de> * sysdeps/generic/enbl-secure.c (__libc_init_secure): Correct typo. 1997-12-04 Andreas Jaeger <aj@arthur.rhein-neckar.de> * sysdeps/wordsize-64/bits/environments.h: Correct spelling. * Makeconfig (shared-thread-library): Correct spelling. * sysdeps/unix/sysv/linux/sys/pci.h: Include <linux/pci.h> and not <asm/pci.h>. 1997-12-04 Andreas Jaeger <aj@arthur.rhein-neckar.de> * sysdeps/unix/sysv/linux/bits/socket.h: Add AF_* and PF_ constants from Linux headers. Pointed out by csmall@scooter.o.i.net. [PR libc/369] 1997-12-04 10:21 Thorsten Kukuk <kukuk@vt.uni-paderborn.de> * sunrpc/xcrypt.c: Fix lower/upper characters in optimized hexval. 1997-12-04 00:06 Zack Weinberg <zack@rabi.phys.columbia.edu> * configure.in: If --enable-add-ons is given without an argument, set the addons list to all subdirs with a configure script.
Diffstat (limited to 'gen-FAQ.pl')
-rwxr-xr-xgen-FAQ.pl144
1 files changed, 144 insertions, 0 deletions
diff --git a/gen-FAQ.pl b/gen-FAQ.pl
new file mode 100755
index 0000000000..e8b55ac7ab
--- /dev/null
+++ b/gen-FAQ.pl
@@ -0,0 +1,144 @@
+#! /usr/local/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";
+}