kernel-doc (834cf6b9039e6f6ebd73cc4da51cc8bc802ca777) kernel-doc (252b47da9fd9eeebbdaed448aea71010261d7dc4)
1#!/usr/bin/env perl
2# SPDX-License-Identifier: GPL-2.0
3
4use warnings;
5use strict;
6
7## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
8## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##

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

74# 23/09/2001 - Added support for typedefs, structs, enums and unions
75# Support for Context section; can be terminated using empty line
76# Small fixes (like spaces vs. \s in regex)
77# -- Tim Jansen <tim@tjansen.de>
78
79# 25/07/2012 - Added support for HTML5
80# -- Dan Luedtke <mail@danrl.de>
81
1#!/usr/bin/env perl
2# SPDX-License-Identifier: GPL-2.0
3
4use warnings;
5use strict;
6
7## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
8## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##

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

74# 23/09/2001 - Added support for typedefs, structs, enums and unions
75# Support for Context section; can be terminated using empty line
76# Small fixes (like spaces vs. \s in regex)
77# -- Tim Jansen <tim@tjansen.de>
78
79# 25/07/2012 - Added support for HTML5
80# -- Dan Luedtke <mail@danrl.de>
81
82sub usage {
83 my $message = <<"EOF";
84Usage: $0 [OPTION ...] FILE ...
85
86EOF
87 print $message;
88 exit 1;
89}
90
91#
92# format of comments.
93# In the following table, (...)? signifies optional structure.
94# (...)* signifies 0 or more structure elements
95# /**
96# * function_name(:)? (- short description)?
97# (* @parameterx: (description of parameter x)?)*
98# (* a blank line)?

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

463 } elsif ($cmd eq "export-file") {
464 my $file = shift @ARGV;
465 push(@export_file_list, $file);
466 } elsif ($cmd eq "v") {
467 $verbose = 1;
468 } elsif ($cmd eq "Werror") {
469 $Werror = 1;
470 } elsif (($cmd eq "h") || ($cmd eq "help")) {
82#
83# format of comments.
84# In the following table, (...)? signifies optional structure.
85# (...)* signifies 0 or more structure elements
86# /**
87# * function_name(:)? (- short description)?
88# (* @parameterx: (description of parameter x)?)*
89# (* a blank line)?

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

454 } elsif ($cmd eq "export-file") {
455 my $file = shift @ARGV;
456 push(@export_file_list, $file);
457 } elsif ($cmd eq "v") {
458 $verbose = 1;
459 } elsif ($cmd eq "Werror") {
460 $Werror = 1;
461 } elsif (($cmd eq "h") || ($cmd eq "help")) {
471 usage();
462 pod2usage(-exitval => 0, -verbose => 2);
472 } elsif ($cmd eq 'no-doc-sections') {
473 $no_doc_sections = 1;
474 } elsif ($cmd eq 'enable-lineno') {
475 $enable_lineno = 1;
476 } elsif ($cmd eq 'show-not-found') {
477 $show_not_found = 1; # A no-op but don't fail
478 } elsif ($cmd eq "sphinx-version") {
479 my $ver_string = shift @ARGV;

--- 2165 unchanged lines hidden --- 		463 } elsif ($cmd eq 'no-doc-sections') {
464 $no_doc_sections = 1;
465 } elsif ($cmd eq 'enable-lineno') {
466 $enable_lineno = 1;
467 } elsif ($cmd eq 'show-not-found') {
468 $show_not_found = 1; # A no-op but don't fail
469 } elsif ($cmd eq "sphinx-version") {
470 my $ver_string = shift @ARGV;

--- 2165 unchanged lines hidden ---