kernel-doc (a5cdaea525c32e7def563ba07d9fef9bc6edffab) kernel-doc (43caf1a6823dc7c156cf38a6c71881c1e90cd3c2)
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> ##
9## Copyright (C) 2001 Simon Huggins ##
10## Copyright (C) 2005-2012 Randy Dunlap ##
11## Copyright (C) 2012 Dan Luedtke ##
12## ##
13## #define enhancements by Armin Kuster <akuster@mvista.com> ##
14## Copyright (c) 2000 MontaVista Software, Inc. ##
15## ##
16## This software falls under the GNU General Public License. ##
17## Please read the COPYING file for more information ##
18
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> ##
9## Copyright (C) 2001 Simon Huggins ##
10## Copyright (C) 2005-2012 Randy Dunlap ##
11## Copyright (C) 2012 Dan Luedtke ##
12## ##
13## #define enhancements by Armin Kuster <akuster@mvista.com> ##
14## Copyright (c) 2000 MontaVista Software, Inc. ##
15## ##
16## This software falls under the GNU General Public License. ##
17## Please read the COPYING file for more information ##
18
19use Pod::Usage qw/pod2usage/;
20
19=head1 NAME
20
21kernel-doc - Print formatted kernel documentation to stdout
22
23=head1 SYNOPSIS
24
25 kernel-doc [-h] [-v] [-Werror]
26 [ -man |

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

293 # in rst this can refer to any type
294 [$type_fallback, "\\:c\\:type\\:`\$1`"],
295 [$type_param_ref, "**\$1\$2**"]
296 );
297my $blankline_rst = "\n";
298
299# read arguments
300if ($#ARGV == -1) {
21=head1 NAME
22
23kernel-doc - Print formatted kernel documentation to stdout
24
25=head1 SYNOPSIS
26
27 kernel-doc [-h] [-v] [-Werror]
28 [ -man |

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

295 # in rst this can refer to any type
296 [$type_fallback, "\\:c\\:type\\:`\$1`"],
297 [$type_param_ref, "**\$1\$2**"]
298 );
299my $blankline_rst = "\n";
300
301# read arguments
302if ($#ARGV == -1) {
301 usage();
303 pod2usage(
304 -message => "No arguments!\n",
305 -exitval => 1,
306 -verbose => 99,
307 -sections => 'SYNOPSIS',
308 -output => \*STDERR,
309 );
302}
303
304my $kernelversion;
305my ($sphinx_major, $sphinx_minor, $sphinx_patch);
306
307my $dohighlight = "";
308
309my $verbose = 0;

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

513 $sphinx_patch = substr($3,1)
514 } else {
515 $sphinx_patch = 0;
516 }
517 } else {
518 die "Sphinx version should either major.minor or major.minor.patch format\n";
519 }
520 } else {
310}
311
312my $kernelversion;
313my ($sphinx_major, $sphinx_minor, $sphinx_patch);
314
315my $dohighlight = "";
316
317my $verbose = 0;

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

521 $sphinx_patch = substr($3,1)
522 } else {
523 $sphinx_patch = 0;
524 }
525 } else {
526 die "Sphinx version should either major.minor or major.minor.patch format\n";
527 }
528 } else {
521 # Unknown argument
522 usage();
529 # Unknown argument
530 pod2usage(
531 -message => "Argument unknown!\n",
532 -exitval => 1,
533 -verbose => 99,
534 -sections => 'SYNOPSIS',
535 -output => \*STDERR,
536 );
523 }
524}
525
526# continue execution near EOF;
527
528# The C domain dialect changed on Sphinx 3. So, we need to check the
529# version in order to produce the right tags.
530sub findprog($)

--- 2018 unchanged lines hidden --- 		537 }
538}
539
540# continue execution near EOF;
541
542# The C domain dialect changed on Sphinx 3. So, we need to check the
543# version in order to produce the right tags.
544sub findprog($)

--- 2018 unchanged lines hidden ---