3 # Empire - A multi-player, client/server Internet based war game.
4 # Copyright (C) 1986-2015, 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-2013
35 # Usage: mktop.pl OUTFILE SUBJECT...
37 my $out = shift @ARGV;
38 my @subject = sort @ARGV;
41 or die "Can't open $out: $!";
43 .\\\" DO NOT EDIT THIS FILE. It was automatically generated by mktop.pl
44 .TH Info "List of Subjects"
46 Empire info is available on the following subjects:
50 # reorder subjects for display in three columns
53 for (my $j = $i; $j <= $#subject; $j += 3) {
54 $colsubj[$j] = $subject[$k++];
58 for my $subj (@colsubj) {
68 Type "info <Subject>" where <Subject> is one of the subjects listed above.
69 For a complete list of all info topics, type "info all".
73 # Print a row of subjects to TOP
75 return unless $#_ >= 0;
78 printf TOP "%-25s", $_;