kernel-doc (a0b96c2dbdb2c2511af407a2657d580f16c3b6f1) kernel-doc (830066a7a317e3e8872cb2d21dd24af0815f51f9)
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 ##

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

1781
1782 # undo the evil effects of xml_escape() earlier
1783 $contents = xml_unescape($contents);
1784
1785 eval $dohighlight;
1786 die $@ if $@;
1787
1788 foreach $line (split "\n", $contents) {
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 ##

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

1781
1782 # undo the evil effects of xml_escape() earlier
1783 $contents = xml_unescape($contents);
1784
1785 eval $dohighlight;
1786 die $@ if $@;
1787
1788 foreach $line (split "\n", $contents) {
1789 if ($line eq "") {
1790 print $lineprefix, $blankline;
1791 } else {
1792 print $lineprefix, $line;
1793 }
1794 print "\n";
1789 print $lineprefix . $line . "\n";
1795 }
1796}
1797
1798sub output_function_rst(%) {
1799 my %args = %{$_[0]};
1800 my ($parameter, $section);
1801 my $oldprefix = $lineprefix;
1802 my $start;

--- 1227 unchanged lines hidden --- 		1790 }
1791}
1792
1793sub output_function_rst(%) {
1794 my %args = %{$_[0]};
1795 my ($parameter, $section);
1796 my $oldprefix = $lineprefix;
1797 my $start;

--- 1227 unchanged lines hidden ---