|
|
|
@ -2730,26 +2730,35 @@ sub local_unescape($) { |
|
|
|
|
return $text; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
sub process_file($) { |
|
|
|
|
sub map_filename($) { |
|
|
|
|
my $file; |
|
|
|
|
my $identifier; |
|
|
|
|
my $func; |
|
|
|
|
my $descr; |
|
|
|
|
my $in_purpose = 0; |
|
|
|
|
my $initial_section_counter = $section_counter; |
|
|
|
|
my ($orig_file) = @_; |
|
|
|
|
my $leading_space; |
|
|
|
|
|
|
|
|
|
if (defined($ENV{'SRCTREE'})) { |
|
|
|
|
$file = "$ENV{'SRCTREE'}" . "/" . $orig_file; |
|
|
|
|
} |
|
|
|
|
else { |
|
|
|
|
} else { |
|
|
|
|
$file = $orig_file; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
if (defined($source_map{$file})) { |
|
|
|
|
$file = $source_map{$file}; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
return $file; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
sub process_file($) { |
|
|
|
|
my $file; |
|
|
|
|
my $identifier; |
|
|
|
|
my $func; |
|
|
|
|
my $descr; |
|
|
|
|
my $in_purpose = 0; |
|
|
|
|
my $initial_section_counter = $section_counter; |
|
|
|
|
my ($orig_file) = @_; |
|
|
|
|
my $leading_space; |
|
|
|
|
|
|
|
|
|
$file = map_filename($orig_file); |
|
|
|
|
|
|
|
|
|
if (!open(IN,"<$file")) { |
|
|
|
|
print STDERR "Error: Cannot open file $file\n"; |
|
|
|
|
++$errors; |
|
|
|
|