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

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

2884 $contents = "";
2885 }
2886 $state = STATE_PROTO;
2887 $inline_doc_state = STATE_INLINE_NA;
2888 # Regular text
2889 } elsif (/$doc_content/) {
2890 if ($inline_doc_state == STATE_INLINE_TEXT) {
2891 $contents .= $1 . "\n";
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 ##

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

2884 $contents = "";
2885 }
2886 $state = STATE_PROTO;
2887 $inline_doc_state = STATE_INLINE_NA;
2888 # Regular text
2889 } elsif (/$doc_content/) {
2890 if ($inline_doc_state == STATE_INLINE_TEXT) {
2891 $contents .= $1 . "\n";
2892 # nuke leading blank lines
2893 if ($contents =~ /^\s*$/) {
2894 $contents = "";
2895 }
2892 } elsif ($inline_doc_state == STATE_INLINE_NAME) {
2893 $inline_doc_state = STATE_INLINE_ERROR;
2894 print STDERR "Warning(${file}:$.): ";
2895 print STDERR "Incorrect use of kernel-doc format: $_";
2896 ++$warnings;
2897 }
2898 }
2899 } elsif ($state == STATE_PROTO) { # scanning for function '{' (end of prototype)

--- 125 unchanged lines hidden --- 		2896 } elsif ($inline_doc_state == STATE_INLINE_NAME) {
2897 $inline_doc_state = STATE_INLINE_ERROR;
2898 print STDERR "Warning(${file}:$.): ";
2899 print STDERR "Incorrect use of kernel-doc format: $_";
2900 ++$warnings;
2901 }
2902 }
2903 } elsif ($state == STATE_PROTO) { # scanning for function '{' (end of prototype)

--- 125 unchanged lines hidden ---