kernel-doc (2a267e7c41aa88215de2b542de797d03d16ecdfd) | kernel-doc (b0d60bfbb60cef1efd699a65e29a94487f8c7b1f) |
---|---|
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> ## --- 271 unchanged lines hidden (view full) --- 280use constant { 281 OUTPUT_ALL => 0, # output all symbols and doc sections 282 OUTPUT_INCLUDE => 1, # output only specified symbols 283 OUTPUT_EXCLUDE => 2, # output everything except specified symbols 284 OUTPUT_EXPORTED => 3, # output exported symbols 285 OUTPUT_INTERNAL => 4, # output non-exported symbols 286}; 287my $output_selection = OUTPUT_ALL; | 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> ## --- 271 unchanged lines hidden (view full) --- 280use constant { 281 OUTPUT_ALL => 0, # output all symbols and doc sections 282 OUTPUT_INCLUDE => 1, # output only specified symbols 283 OUTPUT_EXCLUDE => 2, # output everything except specified symbols 284 OUTPUT_EXPORTED => 3, # output exported symbols 285 OUTPUT_INTERNAL => 4, # output non-exported symbols 286}; 287my $output_selection = OUTPUT_ALL; |
288my $show_not_found = 0; | 288my $show_not_found = 0; # No longer used |
289 290my @export_file_list; 291 292my @build_time; 293if (defined($ENV{'KBUILD_BUILD_TIMESTAMP'}) && 294 (my $seconds = `date -d"${ENV{'KBUILD_BUILD_TIMESTAMP'}}" +%s`) ne '') { 295 @build_time = gmtime($seconds); 296} else { --- 133 unchanged lines hidden (view full) --- 430 $verbose = 1; 431 } elsif (($cmd eq "h") || ($cmd eq "help")) { 432 usage(); 433 } elsif ($cmd eq 'no-doc-sections') { 434 $no_doc_sections = 1; 435 } elsif ($cmd eq 'enable-lineno') { 436 $enable_lineno = 1; 437 } elsif ($cmd eq 'show-not-found') { | 289 290my @export_file_list; 291 292my @build_time; 293if (defined($ENV{'KBUILD_BUILD_TIMESTAMP'}) && 294 (my $seconds = `date -d"${ENV{'KBUILD_BUILD_TIMESTAMP'}}" +%s`) ne '') { 295 @build_time = gmtime($seconds); 296} else { --- 133 unchanged lines hidden (view full) --- 430 $verbose = 1; 431 } elsif (($cmd eq "h") || ($cmd eq "help")) { 432 usage(); 433 } elsif ($cmd eq 'no-doc-sections') { 434 $no_doc_sections = 1; 435 } elsif ($cmd eq 'enable-lineno') { 436 $enable_lineno = 1; 437 } elsif ($cmd eq 'show-not-found') { |
438 $show_not_found = 1; | 438 $show_not_found = 1; # A no-op but don't fail |
439 } else { 440 # Unknown argument 441 usage(); 442 } 443} 444 445# continue execution near EOF; 446 --- 1711 unchanged lines hidden (view full) --- 2158 } elsif ($state == STATE_PROTO) { 2159 process_proto($file, $_); 2160 } elsif ($state == STATE_DOCBLOCK) { 2161 process_docblock($file, $_); 2162 } 2163 } 2164 2165 # Make sure we got something interesting. | 439 } else { 440 # Unknown argument 441 usage(); 442 } 443} 444 445# continue execution near EOF; 446 --- 1711 unchanged lines hidden (view full) --- 2158 } elsif ($state == STATE_PROTO) { 2159 process_proto($file, $_); 2160 } elsif ($state == STATE_DOCBLOCK) { 2161 process_docblock($file, $_); 2162 } 2163 } 2164 2165 # Make sure we got something interesting. |
2166 if ($initial_section_counter == $section_counter) { 2167 if ($output_mode ne "none") { | 2166 if ($initial_section_counter == $section_counter && $ 2167 output_mode ne "none") { 2168 if ($output_selection == OUTPUT_INCLUDE) { 2169 print STDERR "${file}:1: warning: '$_' not found\n" 2170 for keys %function_table; 2171 } 2172 else { |
2168 print STDERR "${file}:1: warning: no structured comments found\n"; 2169 } | 2173 print STDERR "${file}:1: warning: no structured comments found\n"; 2174 } |
2170 if (($output_selection == OUTPUT_INCLUDE) && ($show_not_found == 1)) { 2171 print STDERR " Was looking for '$_'.\n" for keys %function_table; 2172 } | |
2173 } 2174} 2175 2176 2177$kernelversion = get_kernel_version(); 2178 2179# generate a sequence of code that will splice in highlighting information 2180# using the s// operator. --- 43 unchanged lines hidden --- | 2175 } 2176} 2177 2178 2179$kernelversion = get_kernel_version(); 2180 2181# generate a sequence of code that will splice in highlighting information 2182# using the s// operator. --- 43 unchanged lines hidden --- |