kernel-doc (a9e7314b7940cee00b80995b360dbc06f995cc6e) kernel-doc (1c32fd0c5ac1ccbdc37a1a392a5d75cbe059b401)
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 ##
9## ##
10## #define enhancements by Armin Kuster <akuster@mvista.com> ##
11## Copyright (c) 2000 MontaVista Software, Inc. ##
12## ##
13## This software falls under the GNU General Public License. ##
14## Please read the COPYING file for more information ##
15
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 ##
9## ##
10## #define enhancements by Armin Kuster <akuster@mvista.com> ##
11## Copyright (c) 2000 MontaVista Software, Inc. ##
12## ##
13## This software falls under the GNU General Public License. ##
14## Please read the COPYING file for more information ##
15
16# w.o. 03-11-2000: added the '-filelist' option.
17
18# 18/01/2001 - Cleanups
19# Functions prototyped as foo(void) same as foo()
20# Stop eval'ing where we don't need to.
21# -- huggie@earth.li
22
23# 27/06/2001 - Allowed whitespace after initial "/**" and
24# allowed comments before function declarations.
25# -- Christian Kreibich <ck@whoop.org>

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

240 " " . ((localtime)[5]+1900);
241
242# Essentially these are globals
243# They probably want to be tidied up, made more localised or something.
244# CAVEAT EMPTOR! Some of the others I localised may not want to be, which
245# could cause "use of undefined value" or other bugs.
246my ($function, %function_table, %parametertypes, $declaration_purpose);
247my ($type, $declaration_name, $return_type);
16# 18/01/2001 - Cleanups
17# Functions prototyped as foo(void) same as foo()
18# Stop eval'ing where we don't need to.
19# -- huggie@earth.li
20
21# 27/06/2001 - Allowed whitespace after initial "/**" and
22# allowed comments before function declarations.
23# -- Christian Kreibich <ck@whoop.org>

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

238 " " . ((localtime)[5]+1900);
239
240# Essentially these are globals
241# They probably want to be tidied up, made more localised or something.
242# CAVEAT EMPTOR! Some of the others I localised may not want to be, which
243# could cause "use of undefined value" or other bugs.
244my ($function, %function_table, %parametertypes, $declaration_purpose);
245my ($type, $declaration_name, $return_type);
248my ($newsection, $newcontents, $prototype, $filelist, $brcount, %source_map);
246my ($newsection, $newcontents, $prototype, $brcount, %source_map);
249
250if (defined($ENV{'KBUILD_VERBOSE'})) {
251 $verbose = "$ENV{'KBUILD_VERBOSE'}";
252}
253
254# Generated docbook code is inserted in a template at a point where
255# docbook v3.1 requires a non-zero sequence of RefEntry's; see:
256# http://www.oasis-open.org/docbook/documentation/reference/html/refentry.html

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

333 } elsif ($cmd eq "-nofunction") { # to only output specific functions
334 $function_only = 2;
335 $function = shift @ARGV;
336 $function_table{$function} = 1;
337 } elsif ($cmd eq "-v") {
338 $verbose = 1;
339 } elsif (($cmd eq "-h") || ($cmd eq "--help")) {
340 usage();
247
248if (defined($ENV{'KBUILD_VERBOSE'})) {
249 $verbose = "$ENV{'KBUILD_VERBOSE'}";
250}
251
252# Generated docbook code is inserted in a template at a point where
253# docbook v3.1 requires a non-zero sequence of RefEntry's; see:
254# http://www.oasis-open.org/docbook/documentation/reference/html/refentry.html

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

331 } elsif ($cmd eq "-nofunction") { # to only output specific functions
332 $function_only = 2;
333 $function = shift @ARGV;
334 $function_table{$function} = 1;
335 } elsif ($cmd eq "-v") {
336 $verbose = 1;
337 } elsif (($cmd eq "-h") || ($cmd eq "--help")) {
338 usage();
341 } elsif ($cmd eq '-filelist') {
342 $filelist = shift @ARGV;
343 } elsif ($cmd eq '-no-doc-sections') {
344 $no_doc_sections = 1;
345 }
346}
347
348# get kernel version from env
349sub get_kernel_version() {
350 my $version = 'unknown kernel version';

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

1806 chop();
1807 ($relname, $absname) = (split())[0..1];
1808 $relname =~ s:^/+::;
1809 $source_map{$relname} = $absname;
1810 }
1811 close(SOURCE_MAP);
1812}
1813
339 } elsif ($cmd eq '-no-doc-sections') {
340 $no_doc_sections = 1;
341 }
342}
343
344# get kernel version from env
345sub get_kernel_version() {
346 my $version = 'unknown kernel version';

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

1802 chop();
1803 ($relname, $absname) = (split())[0..1];
1804 $relname =~ s:^/+::;
1805 $source_map{$relname} = $absname;
1806 }
1807 close(SOURCE_MAP);
1808}
1809
1814if ($filelist) {
1815 open(FLIST,"<$filelist") or die "Can't open file list $filelist";
1816 while(<FLIST>) {
1817 chop;
1818 process_file($_);
1819 }
1820}
1821
1822foreach (@ARGV) {
1823 chomp;
1824 process_file($_);
1825}
1826if ($verbose && $errors) {
1827 print STDERR "$errors errors\n";
1828}
1829if ($verbose && $warnings) {

--- 411 unchanged lines hidden --- 		1810foreach (@ARGV) {
1811 chomp;
1812 process_file($_);
1813}
1814if ($verbose && $errors) {
1815 print STDERR "$errors errors\n";
1816}
1817if ($verbose && $warnings) {

--- 411 unchanged lines hidden ---