kernel-doc (94dc7ad5502e7d74e2fd74651743f5f1773aa1fe) kernel-doc (46b958eb808b73a232efc962e730faffe7cff5c5)
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-2008 Randy Dunlap ##

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

1945 $section = $newsection;
1946 } elsif (/$doc_end/) {
1947
1948 if ($contents ne "") {
1949 dump_section($file, $section, xml_escape($contents));
1950 $section = $section_default;
1951 $contents = "";
1952 }
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-2008 Randy Dunlap ##

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

1945 $section = $newsection;
1946 } elsif (/$doc_end/) {
1947
1948 if ($contents ne "") {
1949 dump_section($file, $section, xml_escape($contents));
1950 $section = $section_default;
1951 $contents = "";
1952 }
1953 # look for doc_com + <text> + doc_end:
1954 if ($_ =~ m'\s*\*\s*[a-zA-Z_0-9:\.]+\*/') {
1955 print STDERR "Warning(${file}:$.): suspicious ending line: $_";
1956 ++$warnings;
1957 }
1953
1954 $prototype = "";
1955 $state = 3;
1956 $brcount = 0;
1957# print STDERR "end of doc comment, looking for prototype\n";
1958 } elsif (/$doc_content/) {
1959 # miguel-style comment kludge, look for blank lines after
1960 # @parameter line to signify start of description

--- 97 unchanged lines hidden --- 		1958
1959 $prototype = "";
1960 $state = 3;
1961 $brcount = 0;
1962# print STDERR "end of doc comment, looking for prototype\n";
1963 } elsif (/$doc_content/) {
1964 # miguel-style comment kludge, look for blank lines after
1965 # @parameter line to signify start of description

--- 97 unchanged lines hidden ---