3 # Empire - A multi-player, client/server Internet based war game.
4 # Copyright (C) 1986-2006, Dave Pare, Jeff Bailey, Thomas Ruschak,
5 # Ken Stevens, Steve McClure
7 # This program is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 2 of the License, or
10 # (at your option) any later version.
12 # This program is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with this program; if not, write to the Free Software
19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23 # See files README, COPYING and CREDITS in the root of the source
24 # tree for related information and legal notices. It is expected
25 # that future projects/authors will amend these files as needed.
29 # findsubj.pl: Find info subjects, update subjects.mk
31 # Known contributors to this file:
32 # Ken Stevens (when it was still info.pl)
33 # Markus Armbruster, 2006
36 # Run it at the root of the build tree. This updates the make include
37 # file subjects.mk, which guides the remaking of info index files.
39 # --- Global variables ---
40 # @Subjects Existing subjects
41 # $filename The name of the current info file
42 # $chapter{TOPIC} TOPIC's chapter (first arg to .TH)
44 # TOPIC's SEE ALSO items (.SA argument)
45 # $sanr{TOPIC} Line number of TOPIC's .SA request
47 # info files for SUBJECT separated by space
49 # --- File handles ---
50 # F Filehandle for info page sources and makefiles
54 # read_make_var Read a variable value from a makefile
55 # parse_file Read an info file
56 # parse_see_also Create %subjfil from %see_also
57 # error Print an integrity error to STDERR and exit with code 1.
64 our (%chapter, %see_also, %sanr);
65 our ($filename, %subjfil);
68 our @Subjects = split(' ', read_make_var("subjects", "subjects.mk", ""));
69 # Get source directory
70 my $srcdir = read_make_var("srcdir", "GNUmakefile");
72 my @tsrc = grep(/\.t$/, split(' ' , read_make_var("src", "sources.mk")));
76 parse_file("$srcdir/$t");
79 # Create %subjfil from %see_also
80 for my $t (sort keys %see_also) {
84 # Update @Subjects from %subjfil
85 for my $t (@Subjects) {
86 print STDERR "WARNING: The subject $t has been removed.\n"
87 unless exists $subjfil{$t};
89 for my $t (keys %subjfil) {
90 unless (grep(/^$t$/, @Subjects)) {
91 print STDERR "WARNING: $t is a NEW subject\n";
92 my $fname = "info/$t.t";
94 print STDERR "File $fname exists\n";
99 @Subjects = sort keys %subjfil;
102 open(F, ">subjects.mk")
103 or die "Can't open subjects.mk for writing: $!";
104 print F "subjects := " . join(' ', @Subjects) . "\n";
105 for my $t (@Subjects) {
106 print F "info/$t.t:$subjfil{$t}\n";
112 # Read a variable value from a makefile
114 my ($var, $fname, $dflt) = @_;
117 unless (open(F, "<$fname")) {
118 return $dflt if $! == ENOENT and defined $dflt;
119 die "Can't open $fname: $!";
122 if (/^[ \t]*\Q$var\E[ \t]:?=*(.*)/) {
128 $val or die "Can't find $var in $fname";
133 # Parse .TH into %chapter and .SA into %see_also, %sanr
139 $topic =~ s,.*/([^/]*)\.t$,$1,;
141 open(F, "<$filename")
142 or die "Can't open $filename: $!";
145 if (/^\.TH (\S+) (\S.+\S)$/) {
146 $chapter{$topic} = $1;
148 error("The first line in the file must be a .TH request");
156 if (/^\.SA "([^\"]*)"/) {
157 $see_also{$topic} = $1;
160 error("Incorrect .SA Syntax. Syntax should be '.SA \"item1, item2\"'");
164 error("Multiple .SA requests. Each file may contain at most one.") if /^\.SA/;
167 error(".SA request is missing");
173 # Create %subjfil from %see_also
176 my @see_also = split(/, /, $see_also{$topic});
177 my $wanted = $chapter{$topic};
178 my $found; # found a subject?
180 $wanted = undef if $wanted eq 'Concept' or $wanted eq 'Command';
181 $filename = "$srcdir/$topic";
184 if (!exists $see_also{$_}) { # is this entry a subject?
185 $subjfil{$_} .= " info/$topic.t";
188 if ($wanted && $_ eq $wanted) {
194 error("No subject listed in .SA") unless $found;
195 error("Chapter $wanted not listed in .SA") if $wanted;
198 # Print an integrity error message and exit with code 1
202 print STDERR "findsubj.pl:$filename:$.: $error\n";