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

Pass subjects instead of subject filenames to info/mktop.pl

Browse source 
mktop.pl doesn't actually use the files, so this is simpler and
clearer.
This commit is contained in:
Markus Armbruster 2013-04-27 17:03:34 +02:00
parent 02a18de4d4
commit a2338a1db4
2 changed files with 5 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Make.mk
View file

@ -331,8 +331,8 @@ subjects.mk: info/findsubj.pl $(tsrc)
$(tsubj): info/mksubj.pl
perl $(srcdir)/info/mksubj.pl $@ $(filter %.t, $^)
$(ttop): $(tsubj)
perl $(srcdir)/info/mktop.pl $@ $(filter %.t, $^)
$(ttop): info/mktop.pl
$(call quiet-command,perl $(srcdir)/info/mktop.pl $@ $(subjects),GEN $@)
info.nr/all: $(filter-out info.nr/all, $(info.nr))
>$@

15
info/mktop.pl
View file

@ -29,22 +29,13 @@
#
# Known contributors to this file:
# Ken Stevens (when it was still info.pl)
# Markus Armbruster, 2006
# Markus Armbruster, 2006-2013
#
# Usage: mktop.pl OUTFILE SUBJECT-INDEX-FILE...
# The SUBJECT-INDEX-FILE... contain all the subject indexes. Derive
# the subjects from the file names, write the index to OUTFILE. Only
# the file names are used, the files aren't accessed.
# Usage: mktop.pl OUTFILE SUBJECT...
my $out = shift @ARGV;
my @subject = ();
for (@ARGV) {
/([^\/]*)\.t$/
or die "Strange subject file name";
push @subject, $1;
}
@subject = sort @subject;
my @subject = sort @ARGV;
open(TOP, ">$out")
or die "Can't open $out: $!";