kernel-doc (da9726ecfba202514d984129c3537b028519cdb8) kernel-doc (1ad560e43c911e19751df65dd2af21341d02eac5)
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## Copyright (C) 2005-2012 Randy Dunlap ##

--- 2716 unchanged lines hidden (view full) ---

2725 if (($output_mode eq "text") || ($output_mode eq "man")) {
2726 return $text;
2727 }
2728 $text =~ s/\\\\\\\\lt:/</g;
2729 $text =~ s/\\\\\\\\gt:/>/g;
2730 return $text;
2731}
2732
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## Copyright (C) 2005-2012 Randy Dunlap ##

--- 2716 unchanged lines hidden (view full) ---

2725 if (($output_mode eq "text") || ($output_mode eq "man")) {
2726 return $text;
2727 }
2728 $text =~ s/\\\\\\\\lt:/</g;
2729 $text =~ s/\\\\\\\\gt:/>/g;
2730 return $text;
2731}
2732
2733sub process_file($) {
2733sub map_filename($) {
2734 my $file;
2734 my $file;
2735 my $identifier;
2736 my $func;
2737 my $descr;
2738 my $in_purpose = 0;
2739 my $initial_section_counter = $section_counter;
2740 my ($orig_file) = @_;
2735 my ($orig_file) = @_;
2741 my $leading_space;
2742
2743 if (defined($ENV{'SRCTREE'})) {
2744 $file = "$ENV{'SRCTREE'}" . "/" . $orig_file;
2736
2737 if (defined($ENV{'SRCTREE'})) {
2738 $file = "$ENV{'SRCTREE'}" . "/" . $orig_file;
2745 }
2746 else {
2739 } else {
2747 $file = $orig_file;
2748 }
2740 $file = $orig_file;
2741 }
2742
2749 if (defined($source_map{$file})) {
2750 $file = $source_map{$file};
2751 }
2752
2743 if (defined($source_map{$file})) {
2744 $file = $source_map{$file};
2745 }
2746
2747 return $file;
2748}
2749
2750sub process_file($) {
2751 my $file;
2752 my $identifier;
2753 my $func;
2754 my $descr;
2755 my $in_purpose = 0;
2756 my $initial_section_counter = $section_counter;
2757 my ($orig_file) = @_;
2758 my $leading_space;
2759
2760 $file = map_filename($orig_file);
2761
2753 if (!open(IN,"<$file")) {
2754 print STDERR "Error: Cannot open file $file\n";
2755 ++$errors;
2756 return;
2757 }
2758
2759 # two passes for -export and -internal
2760 if ($output_selection == OUTPUT_EXPORTED ||

--- 326 unchanged lines hidden --- 		2762 if (!open(IN,"<$file")) {
2763 print STDERR "Error: Cannot open file $file\n";
2764 ++$errors;
2765 return;
2766 }
2767
2768 # two passes for -export and -internal
2769 if ($output_selection == OUTPUT_EXPORTED ||

--- 326 unchanged lines hidden ---