kernel-doc (32217761ee9db0215350dfe1ca4e66f312fb8c54) kernel-doc (2f4ad40a05265827848200689094348363027069)
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 ##

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

2758 }
2759 elsif (/$doc_decl/o) {
2760 $identifier = $1;
2761 if (/\s*([\w\s]+?)\s*-/) {
2762 $identifier = $1;
2763 }
2764
2765 $state = STATE_FIELD;
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 ##

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

2758 }
2759 elsif (/$doc_decl/o) {
2760 $identifier = $1;
2761 if (/\s*([\w\s]+?)\s*-/) {
2762 $identifier = $1;
2763 }
2764
2765 $state = STATE_FIELD;
2766 $contents = "";
2767 $section = $section_default;
2766 if (/-(.*)/) {
2767 # strip leading/trailing/multiple spaces
2768 $descr= $1;
2769 $descr =~ s/^\s*//;
2770 $descr =~ s/\s*$//;
2771 $descr =~ s/\s+/ /g;
2772 $declaration_purpose = xml_escape($descr);
2773 $in_purpose = 1;

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

2955 $section = $section_intro;
2956 } else {
2957 $section = $1;
2958 }
2959 }
2960 elsif (/$doc_end/)
2961 {
2962 dump_doc_section($file, $section, xml_escape($contents));
2768 if (/-(.*)/) {
2769 # strip leading/trailing/multiple spaces
2770 $descr= $1;
2771 $descr =~ s/^\s*//;
2772 $descr =~ s/\s*$//;
2773 $descr =~ s/\s+/ /g;
2774 $declaration_purpose = xml_escape($descr);
2775 $in_purpose = 1;

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

2957 $section = $section_intro;
2958 } else {
2959 $section = $1;
2960 }
2961 }
2962 elsif (/$doc_end/)
2963 {
2964 dump_doc_section($file, $section, xml_escape($contents));
2965 $section = $section_default;
2963 $contents = "";
2964 $function = "";
2965 %parameterdescs = ();
2966 %parametertypes = ();
2967 @parameterlist = ();
2968 %sections = ();
2969 @sectionlist = ();
2970 $prototype = "";

--- 88 unchanged lines hidden --- 		2966 $contents = "";
2967 $function = "";
2968 %parameterdescs = ();
2969 %parametertypes = ();
2970 @parameterlist = ();
2971 %sections = ();
2972 @sectionlist = ();
2973 $prototype = "";

--- 88 unchanged lines hidden ---