kernel-doc (ad34ea2cc3845ef4dcd7d12fb0fa8484734bd672) kernel-doc (2283a117f65650352f2a9fd6b9af4cdbf5478d14)
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## ##

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

1660 my $text = shift;
1661 $text =~ s/\&/\\\\\\amp;/g;
1662 $text =~ s/\</\\\\\\lt;/g;
1663 $text =~ s/\>/\\\\\\gt;/g;
1664 return $text;
1665}
1666
1667sub process_file($) {
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## ##

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

1660 my $text = shift;
1661 $text =~ s/\&/\\\\\\amp;/g;
1662 $text =~ s/\</\\\\\\lt;/g;
1663 $text =~ s/\>/\\\\\\gt;/g;
1664 return $text;
1665}
1666
1667sub process_file($) {
1668 my ($file) = "$ENV{'SRCTREE'}@_";
1668 my $file;
1669 my $identifier;
1670 my $func;
1671 my $initial_section_counter = $section_counter;
1672
1669 my $identifier;
1670 my $func;
1671 my $initial_section_counter = $section_counter;
1672
1673 if (defined($ENV{'SRCTREE'})) {
1674 $file = "$ENV{'SRCTREE'}" . "/" . "@_";
1675 }
1676 else {
1677 $file = "@_";
1678 }
1673 if (defined($source_map{$file})) {
1674 $file = $source_map{$file};
1675 }
1676
1677 if (!open(IN,"<$file")) {
1678 print STDERR "Error: Cannot open file $file\n";
1679 ++$errors;
1680 return;

--- 182 unchanged lines hidden --- 		1679 if (defined($source_map{$file})) {
1680 $file = $source_map{$file};
1681 }
1682
1683 if (!open(IN,"<$file")) {
1684 print STDERR "Error: Cannot open file $file\n";
1685 ++$errors;
1686 return;

--- 182 unchanged lines hidden ---