kernel-doc (05189497d10c715bf41c05fb2fd89aa2cf7602f1) kernel-doc (232acbcf5304c29f5bb03b0dddeaefd0f98ef45e)
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## ##

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

1774 dump_section($section, xml_escape($contents));
1775 $section = $section_default;
1776 $contents = "";
1777 }
1778
1779 $prototype = "";
1780 $state = 3;
1781 $brcount = 0;
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## ##

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

1774 dump_section($section, xml_escape($contents));
1775 $section = $section_default;
1776 $contents = "";
1777 }
1778
1779 $prototype = "";
1780 $state = 3;
1781 $brcount = 0;
1782# print STDERR "end of doc comment, looking for prototype\n";
1782# print STDERR "end of doc comment, looking for prototype\n";
1783 } elsif (/$doc_content/) {
1784 # miguel-style comment kludge, look for blank lines after
1785 # @parameter line to signify start of description
1786 if ($1 eq "" &&
1787 ($section =~ m/^@/ || $section eq $section_context)) {
1788 dump_section($section, xml_escape($contents));
1789 $section = $section_default;
1790 $contents = "";
1791 } else {
1792 $contents .= $1."\n";
1793 }
1794 } else {
1795 # i dont know - bad line? ignore.
1796 print STDERR "Warning(${file}:$.): bad line: $_";
1797 ++$warnings;
1798 }
1783 } elsif (/$doc_content/) {
1784 # miguel-style comment kludge, look for blank lines after
1785 # @parameter line to signify start of description
1786 if ($1 eq "" &&
1787 ($section =~ m/^@/ || $section eq $section_context)) {
1788 dump_section($section, xml_escape($contents));
1789 $section = $section_default;
1790 $contents = "";
1791 } else {
1792 $contents .= $1."\n";
1793 }
1794 } else {
1795 # i dont know - bad line? ignore.
1796 print STDERR "Warning(${file}:$.): bad line: $_";
1797 ++$warnings;
1798 }
1799 } elsif ($state == 3) { # scanning for function { (end of prototype)
1799 } elsif ($state == 3) { # scanning for function '{' (end of prototype)
1800 if ($decl_type eq 'function') {
1801 process_state3_function($_, $file);
1802 } else {
1803 process_state3_type($_, $file);
1804 }
1805 } elsif ($state == 4) {
1806 # Documentation block
1807 if (/$doc_block/) {

--- 79 unchanged lines hidden --- 		1800 if ($decl_type eq 'function') {
1801 process_state3_function($_, $file);
1802 } else {
1803 process_state3_type($_, $file);
1804 }
1805 } elsif ($state == 4) {
1806 # Documentation block
1807 if (/$doc_block/) {

--- 79 unchanged lines hidden ---