kernel-doc (fad837c16cdd856c68ce2e1335ad0fe836ed8ecd) kernel-doc (4c98ecaf350737cd424eb94140e9e9f1a3408956)
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-2009 Randy Dunlap ##

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

2098 substr($contents, 0, 1) eq "\t") {
2099 $contents = substr($contents, 1);
2100 }
2101 $contents .= "\n";
2102 }
2103 $section = $newsection;
2104 } elsif (/$doc_end/) {
2105
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-2009 Randy Dunlap ##

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

2098 substr($contents, 0, 1) eq "\t") {
2099 $contents = substr($contents, 1);
2100 }
2101 $contents .= "\n";
2102 }
2103 $section = $newsection;
2104 } elsif (/$doc_end/) {
2105
2106 if ($contents ne "") {
2106 if (($contents ne "") && ($contents ne "\n")) {
2107 dump_section($file, $section, xml_escape($contents));
2108 $section = $section_default;
2109 $contents = "";
2110 }
2111 # look for doc_com + <text> + doc_end:
2112 if ($_ =~ m'\s*\*\s*[a-zA-Z_0-9:\.]+\*/') {
2113 print STDERR "Warning(${file}:$.): suspicious ending line: $_";
2114 ++$warnings;

--- 114 unchanged lines hidden --- 		2107 dump_section($file, $section, xml_escape($contents));
2108 $section = $section_default;
2109 $contents = "";
2110 }
2111 # look for doc_com + <text> + doc_end:
2112 if ($_ =~ m'\s*\*\s*[a-zA-Z_0-9:\.]+\*/') {
2113 print STDERR "Warning(${file}:$.): suspicious ending line: $_";
2114 ++$warnings;

--- 114 unchanged lines hidden ---