kernel-doc (792aa2f2cc4924024e28c9ddf1456434992f9c41) kernel-doc (77cc23b8c7f2f5ea0270bf4be31438aa38316e16)
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-2007 Randy Dunlap ##

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

213my $blankline_text = "";
214
215
216sub usage {
217 print "Usage: $0 [ -v ] [ -docbook | -html | -text | -man ] [ -no-doc-sections ]\n";
218 print " [ -function funcname [ -function funcname ...] ]\n";
219 print " [ -nofunction funcname [ -nofunction funcname ...] ]\n";
220 print " c source file(s) > outputfile\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-2007 Randy Dunlap ##

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

213my $blankline_text = "";
214
215
216sub usage {
217 print "Usage: $0 [ -v ] [ -docbook | -html | -text | -man ] [ -no-doc-sections ]\n";
218 print " [ -function funcname [ -function funcname ...] ]\n";
219 print " [ -nofunction funcname [ -nofunction funcname ...] ]\n";
220 print " c source file(s) > outputfile\n";
221 print " -v : verbose output, more warnings & other info listed\n";
221 exit 1;
222}
223
224# read arguments
225if ($#ARGV==-1) {
226 usage();
227}
228

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

1876 $descr= $1;
1877 $descr =~ s/^\s*//;
1878 $descr =~ s/\s*$//;
1879 $descr =~ s/\s+/ /;
1880 $declaration_purpose = xml_escape($descr);
1881 } else {
1882 $declaration_purpose = "";
1883 }
222 exit 1;
223}
224
225# read arguments
226if ($#ARGV==-1) {
227 usage();
228}
229

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

1877 $descr= $1;
1878 $descr =~ s/^\s*//;
1879 $descr =~ s/\s*$//;
1880 $descr =~ s/\s+/ /;
1881 $declaration_purpose = xml_escape($descr);
1882 } else {
1883 $declaration_purpose = "";
1884 }
1885
1886 if (($declaration_purpose eq "") && $verbose) {
1887 print STDERR "Warning(${file}:$.): missing initial short description on line:\n";
1888 print STDERR $_;
1889 ++$warnings;
1890 }
1891
1884 if ($identifier =~ m/^struct/) {
1885 $decl_type = 'struct';
1886 } elsif ($identifier =~ m/^union/) {
1887 $decl_type = 'union';
1888 } elsif ($identifier =~ m/^enum/) {
1889 $decl_type = 'enum';
1890 } elsif ($identifier =~ m/^typedef/) {
1891 $decl_type = 'typedef';

--- 149 unchanged lines hidden --- 		1892 if ($identifier =~ m/^struct/) {
1893 $decl_type = 'struct';
1894 } elsif ($identifier =~ m/^union/) {
1895 $decl_type = 'union';
1896 } elsif ($identifier =~ m/^enum/) {
1897 $decl_type = 'enum';
1898 } elsif ($identifier =~ m/^typedef/) {
1899 $decl_type = 'typedef';

--- 149 unchanged lines hidden ---