git.pond.sub.org Git - empserver/blob - info/mktop.pl

   1 #!/usr/bin/perl
   2 #
   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
   6 #
   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.
  11 #
  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.
  16 #
  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/>.
  19 #
  20 #   ---
  21 #
  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.
  25 #
  26 #   ---
  27 #
  28 #   mktop.pl: Create the index of subjects
  29 #
  30 #   Known contributors to this file:
  31 #      Ken Stevens (when it was still info.pl)
  32 #      Markus Armbruster, 2006-2013
  33 #
  34
  35 # Usage: mktop.pl OUTFILE SUBJECT...
  36
  37 my $out = shift @ARGV;
  38 my @subject = sort @ARGV;
  39
  40 open(TOP, ">$out")
  41     or die "Can't open $out: $!";
  42 print TOP <<EOF;
  43 .\\\" DO NOT EDIT THIS FILE.  It was automatically generated by mktop.pl
  44 .TH Info "List of Subjects"
  45 .s1
  46 Empire info is available on the following subjects:
  47 .NF
  48 EOF
  49
  50 # reorder subjects for display in three columns
  51 my $k = 0;
  52 for my $i (0..2) {
  53     for (my $j = $i; $j <= $#subject; $j += 3) {
  54         $colsubj[$j] = $subject[$k++];
  55     }
  56 }
  57
  58 for my $subj (@colsubj) {
  59     push(@subj, $subj);
  60     if ($#subj > 1) {
  61         flush_subj(@subj);
  62         @subj = ();
  63     }
  64 }
  65 flush_subj(@subj);
  66 print TOP <<EOF;
  67 .FI
  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".
  70 EOF
  71 close TOP;
  72
  73 # Print a row of subjects to TOP
  74 sub flush_subj {
  75     return unless $#_ >= 0;
  76     print TOP "  ";
  77     for (@_) {
  78         printf TOP "%-25s", $_;
  79     }
  80     print TOP "\n";
  81 }