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

Fix bogus file names in error messages

Browse source
This commit is contained in:
Markus Armbruster 2008-01-13 11:25:32 +01:00
parent bcdcbab19c
commit 853b29dd43
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
info/findsubj.pl
View file

@ -40,6 +40,8 @@
# --- Global variables ---
# @Subjects Existing subjects
# $filename The name of the current info file
# $filename{TOPIC}
# TOPIC's info file name
# $chapter{TOPIC} TOPIC's chapter (first arg to .TH)
# $see_also{TOPIC}
# TOPIC's SEE ALSO items (.SA argument)
@ -62,13 +64,11 @@ use warnings;
use Errno qw(ENOENT);
our (%chapter, %see_also, %sanr);
our (%filename, %chapter, %see_also, %sanr);
our ($filename, %subjfil);
# Get known subjects
our @Subjects = split(' ', read_make_var("subjects", "subjects.mk", ""));
# Get source directory
my $srcdir = read_make_var("srcdir", "GNUmakefile");
# Parse the .t files
for my $f (@ARGV) {
@ -100,6 +100,7 @@ for my $t (keys %subjfil) {
# Update subjects.mk
open(F, ">subjects.mk")
or die "Can't open subjects.mk for writing: $!";
print F "# DO NOT EDIT THIS FILE. It was automatically generated by findsubj.pl\n";
print F "subjects := " . join(' ', @Subjects) . "\n";
for my $t (@Subjects) {
print F "info/$t.t:$subjfil{$t}\n";
@ -136,6 +137,7 @@ sub parse_file {
$topic = $filename;
$topic =~ s,.*/([^/]*)\.t$,$1,;
$filename{$topic} = $filename;
open(F, "<$filename")
or die "Can't open $filename: $!";
@ -177,7 +179,7 @@ sub parse_see_also {
my $found; # found a subject?
$wanted = undef if $wanted eq 'Concept' or $wanted eq 'Command';
$filename = "$srcdir/$topic";
$filename = $filename{$topic};
for (@see_also) {
if (!exists $see_also{$_}) { # is this entry a subject?