5 # By Ken Stevens <children@empire.net>
7 # FIXME This does not work at the moment
10 # In empire, redirect the output of the player "list" command to a file called
11 # "player.list". Similarly, make a file listing deity commands and call it
12 # deity.list. Put both these files in this directory, and then run this script
13 # to check which Empire commands need to be documented.
19 my ($com, @list, @obsolete, @Commands);
21 open(LIST, "<player.list") || die "Can't read player.list\n";
28 last if /^For further info on command syntax see/;
37 open(LIST, "<deity.list") || die "Can't read deity.list\n";
44 last if /^For further info on command syntax see/;
51 open(OBSOLETE, "<Subjects/Obsolete.t") ||
52 die "Can't read Subjects/Obsolete.t\n";
55 push(@obsolete, $1) if /^.L (\S+)$/;
60 open (LS, "ls Commands|");
64 next unless /^(\S+).t/;
69 print "In list but not Commands:\n";
71 print " $l\n" unless grep (/^$l$/, @Commands);
73 print "In Commands but not list:\n";
74 for my $c (@Commands) {
75 print " $c\n" unless grep(/^$c$/, @list) || grep(/^$c$/, @obsolete);