empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Suppress explanation of '*' flag in subject pages when not used

Browse source
This commit is contained in:
Markus Armbruster 2013-03-29 20:32:36 +01:00
parent f66a28079b
commit b372ddeab4
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
info/mksubj.pl
View file

@ -45,23 +45,23 @@ use File::stat;
my @Chapters = qw/Introduction Concept Command Server/; my @Chapters = qw/Introduction Concept Command Server/;
my $filename; my $filename;
my (%subject, %level, %desc, %long); my (%subject, %level, %desc, %long, %cnt);
my $largest = ""; my $largest = "";
my $out = shift @ARGV; my $out = shift @ARGV;
$out =~ /([^\/]*)\.t$/ $out =~ /([^\/]*)\.t$/
or die "Strange subject file name $out"; or die "Strange subject file name $out";
my $subj = $1; my $subj = $1;
my $any_long = 0;
for (@ARGV) { for (@ARGV) {
my ($topic, $chap, $lvl, $desc, $long) = parse_file($_); my ($topic, $chap, $lvl, $desc, $long) = parse_file($_);
$largest = $topic if length $topic > length $largest; $largest = $topic if length $topic > length $largest;
$subject{$chap} .= "$topic\n"; $subject{$chap} .= "$topic\n";
$level{$topic} = $lvl; $level{$topic} = $lvl;
$cnt{$lvl}++;
$desc{$topic} = $desc; $desc{$topic} = $desc;
$long{$topic} = $long; $long{$topic} = $long;
$any_long = 1 if $long; $cnt{'long'}++ if $long;
} }
open(SUBJ, ">$out") open(SUBJ, ">$out")
@ -89,10 +89,13 @@ print SUBJ <<EOF;
.s1 .s1
.in 0 .in 0
For info on a particular subject, type "info <subject>" where <subject> is For info on a particular subject, type "info <subject>" where <subject> is
one of the subjects listed above. Subjects marked by * are the most one of the subjects listed above.
important and should be read by new players.
EOF EOF
print SUBJ <<EOF if $any_long; 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{'long'};
Unusually long subjects are marked with a !. Unusually long subjects are marked with a !.
EOF EOF
close SUBJ; close SUBJ;