3 # Empire - A multi-player, client/server Internet based war game.
4 # Copyright (C) 1986-2012, Dave Pare, Jeff Bailey, Thomas Ruschak,
5 # Ken Stevens, Steve McClure, Markus Armbruster
7 # Empire 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 3 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, see <http://www.gnu.org/licenses/>.
22 # See files README, COPYING and CREDITS in the root of the source
23 # tree for related information and legal notices. It is expected
24 # that future projects/authors will amend these files as needed.
28 # mktop.pl: Create the index of subjects
30 # Known contributors to this file:
31 # Ken Stevens (when it was still info.pl)
32 # Markus Armbruster, 2006
35 # Usage: mktop.pl OUTFILE SUBJECT-INDEX-FILE...
36 # The SUBJECT-INDEX-FILE... contain all the subject indexes. Derive
37 # the subjects from the file names, write the index to OUTFILE. Only
38 # the file names are used, the files aren't accessed.
40 my $out = shift @ARGV;
44 or die "Strange subject file name";
47 @subject = sort @subject;
50 or die "Can't open $out: $!";
52 .\\\" DO NOT EDIT THIS FILE. It was automatically generated by mktop.pl
53 .TH Info "List of Subjects"
55 Empire info is available on the following subjects:
59 # reorder subjects for display in three columns
62 for (my $j = $i; $j <= $#subject; $j += 3) {
63 $colsubj[$j] = $subject[$k++];
67 for my $subj (@colsubj) {
77 Type "info <Subject>" where <Subject> is one of the subjects listed above.
78 For a complete list of all info topics, type "info all".
82 # Print a row of subjects to TOP
84 return unless $#_ >= 0;
87 printf TOP "%-25s", $_;