Replace .SA Obsolete by .LV Obsolete
authorMarkus Armbruster <armbru@pond.sub.org>
Fri, 29 Mar 2013 20:33:39 +0000 (21:33 +0100)
committerMarkus Armbruster <armbru@pond.sub.org>
Wed, 8 May 2013 04:57:56 +0000 (06:57 +0200)
Mark obsolete pages with '+' in subject pages.  Drop the separate
"Obsolete" subject page: move "info Innards" to subject "Server", and
"info update" to "Updates" (where it came from in commit a5764534,
v4.3.10).

info/Innards.t
info/README
info/mksubj.pl
info/update.t

index f9932a711b49627663cbd184ad5c40a7e35472d1..6a4f0ac1bb737ba9da3d0e5c29202eced3f7f604 100644 (file)
@@ -1,6 +1,6 @@
 .TH Concept Innards
 .NA Innards "Some details about the inner workings of the server"
-.LV Expert
+.LV Obsolete
 .s1
 Much of this file is now out-of-date.  Correct information may be found
 in the files Update-sequence and build.
@@ -243,4 +243,4 @@ dependent on the efficiency and the work force in the capital sector.
 (see info BTU).
 .s1
 .s1
-.SA "Education, Happiness, Products, Research, Technology, Time, BTU, Obsolete"
+.SA "Education, Happiness, Products, Research, Technology, Time, BTU, Server"
index 627e7e0fe08ba68ff549d587d74f8cef69929cf6..e35d069f090810b6a2154e06ad9edc461461d59a 100644 (file)
@@ -49,7 +49,7 @@ The second line must be a name header:
 
 The third line must be a level header:
 .LV arg
-  - arg must be a level, one of Basic, Expert
+  - arg must be a level, one of Basic, Expert, Obsolete
 
 The last line should be a see also:
 .SA "item1, item2, ..., subject1, subject2"
index cd9459dd9086b4f44ea2fc6f220c229af9a96fdc..05d846ac03052e097c820ec0dcda352ebcb31936 100644 (file)
@@ -44,6 +44,8 @@ use File::stat;
 # The chapters, in order
 my @Chapters = qw/Introduction Concept Command Server/;
 
+my @Levels = qw/Basic Expert Obsolete/;
+
 my $filename;
 my (%subject, %level, %desc, %long, %cnt);
 my $largest = "";
@@ -78,6 +80,7 @@ for my $chap (@Chapters) {
     for (split(/\n/, $subject{$chap})) {
        my $flags = "";
        $flags .= "*" if $level{$_} eq 'Basic';
+       $flags .= "+" if $level{$_} eq 'Obsolete';
        $flags .= "!" if $long{$_};
        $flags = sprintf("%-2s", $flags);
        print SUBJ ".L \"$_ $flags\"\n";
@@ -95,6 +98,9 @@ print SUBJ <<EOF if $cnt{'Basic'};
 Subjects marked by * are the most important and should be read by new
 players.
 EOF
+print SUBJ <<EOF if $cnt{'Obsolete'};
+Subjects marked by + are obsolete.
+EOF
 print SUBJ <<EOF if $cnt{'long'};
 Unusually long subjects are marked with a !.
 EOF
@@ -140,8 +146,8 @@ sub parse_file {
 
     $_ = <F>;
     if (/^\.LV (\S+)$/) {
-       if ($1 ne 'Basic' && $1 ne 'Expert' && $1 ne 'Obsolete') {
-           error("The argument to .LV was '$1' but it must be either 'Basic', 'Expert', or 'Obsolete'");
+       if (!grep(/^$1$/, @Levels)) {
+           error("The argument to .LV was '$1', which is not a known level");
        }
        $lvl = $1;
     } else {
index 9874439e452ee124bc677059fbce775556599ccb..e1957e7b326f38cdd20bfc8f53e19be0fd8aded1 100644 (file)
@@ -1,8 +1,8 @@
 .TH Command UPDATE
 .NA update "Find out when the next update will be"
-.LV Basic
+.LV Obsolete
 .SY "update"
 The update command shows you when the next update will occur, and
 describes the current update policies.
 .sp
-.SA "show, zdone, Obsolete"
+.SA "show, zdone, Updates"