kernel-doc: abstract filename mapping
Reduce duplication in follow-up work. No functional changes.
Signed-off-by: Jani Nikula <jani.nikula@intel.com>
diff --git a/scripts/kernel-doc b/scripts/kernel-doc
index a6f82c8..516d95f 100755
--- a/scripts/kernel-doc
+++ b/scripts/kernel-doc
@@ -2730,6 +2730,23 @@
return $text;
}
+sub map_filename($) {
+ my $file;
+ my ($orig_file) = @_;
+
+ if (defined($ENV{'SRCTREE'})) {
+ $file = "$ENV{'SRCTREE'}" . "/" . $orig_file;
+ } else {
+ $file = $orig_file;
+ }
+
+ if (defined($source_map{$file})) {
+ $file = $source_map{$file};
+ }
+
+ return $file;
+}
+
sub process_file($) {
my $file;
my $identifier;
@@ -2740,15 +2757,7 @@
my ($orig_file) = @_;
my $leading_space;
- if (defined($ENV{'SRCTREE'})) {
- $file = "$ENV{'SRCTREE'}" . "/" . $orig_file;
- }
- else {
- $file = $orig_file;
- }
- if (defined($source_map{$file})) {
- $file = $source_map{$file};
- }
+ $file = map_filename($orig_file);
if (!open(IN,"<$file")) {
print STDERR "Error: Cannot open file $file\n";