kernel-doc (e3ad05fe6e6ff645aa91e9a555231ff53470daba) kernel-doc (dbe8ba00e5adc7573b8a91855f28a383c9728991)
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> ##

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

2263
2264sub process_file($) {
2265 my $file;
2266 my $initial_section_counter = $section_counter;
2267 my ($orig_file) = @_;
2268
2269 $file = map_filename($orig_file);
2270
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> ##

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

2263
2264sub process_file($) {
2265 my $file;
2266 my $initial_section_counter = $section_counter;
2267 my ($orig_file) = @_;
2268
2269 $file = map_filename($orig_file);
2270
2271 if (!open(IN,"<$file")) {
2271 if (!open(IN_FILE,"<$file")) {
2272 print STDERR "Error: Cannot open file $file\n";
2273 ++$errors;
2274 return;
2275 }
2276
2277 $. = 1;
2278
2279 $section_counter = 0;
2272 print STDERR "Error: Cannot open file $file\n";
2273 ++$errors;
2274 return;
2275 }
2276
2277 $. = 1;
2278
2279 $section_counter = 0;
2280 while (<IN>) {
2280 while (<IN_FILE>) {
2281 while (s/\\\s*$//) {
2281 while (s/\\\s*$//) {
2282 $_ .= <IN>;
2282 $_ .= <IN_FILE>;
2283 }
2284 # Replace tabs by spaces
2285 while ($_ =~ s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e) {};
2286 # Hand this line to the appropriate state handler
2287 if ($state == STATE_NORMAL) {
2288 process_normal();
2289 } elsif ($state == STATE_NAME) {
2290 process_name($file, $_);

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

2306 if ($output_selection == OUTPUT_INCLUDE) {
2307 print STDERR "${file}:1: warning: '$_' not found\n"
2308 for keys %function_table;
2309 }
2310 else {
2311 print STDERR "${file}:1: warning: no structured comments found\n";
2312 }
2313 }
2283 }
2284 # Replace tabs by spaces
2285 while ($_ =~ s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e) {};
2286 # Hand this line to the appropriate state handler
2287 if ($state == STATE_NORMAL) {
2288 process_normal();
2289 } elsif ($state == STATE_NAME) {
2290 process_name($file, $_);

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

2306 if ($output_selection == OUTPUT_INCLUDE) {
2307 print STDERR "${file}:1: warning: '$_' not found\n"
2308 for keys %function_table;
2309 }
2310 else {
2311 print STDERR "${file}:1: warning: no structured comments found\n";
2312 }
2313 }
2314 close IN_FILE;
2314}
2315
2316
2317$sphinx_major = get_sphinx_version();
2318$kernelversion = get_kernel_version();
2319
2320# generate a sequence of code that will splice in highlighting information
2321# using the s// operator.

--- 48 unchanged lines hidden --- 		2315}
2316
2317
2318$sphinx_major = get_sphinx_version();
2319$kernelversion = get_kernel_version();
2320
2321# generate a sequence of code that will splice in highlighting information
2322# using the s// operator.

--- 48 unchanged lines hidden ---