diff options
author | Randy Dunlap <randy.dunlap@oracle.com> | 2007-05-08 03:24:39 -0400 |
---|---|---|
committer | Linus Torvalds <torvalds@woody.linux-foundation.org> | 2007-05-08 14:14:59 -0400 |
commit | 3c308798a337d75d846773dd64155860852931fc (patch) | |
tree | 333b45b91bd56cdec46a68e9508342fbea3f3dc0 | |
parent | 2d3466a348a61c4d7f958ce80020eba17c09d7f7 (diff) |
scripts: kernel-doc whitespace cleanup
Whitespace cleanup only: convert some series of spaces to tabs.
Signed-off-by: Randy Dunlap <randy.dunlap@oracle.com>
Signed-off-by: Andrew Morton <akpm@linux-foundation.org>
Signed-off-by: Linus Torvalds <torvalds@linux-foundation.org>
-rwxr-xr-x | scripts/kernel-doc | 96 |
1 files changed, 48 insertions, 48 deletions
diff --git a/scripts/kernel-doc b/scripts/kernel-doc index 8be269ffbf9d..c3a4854e5ee9 100755 --- a/scripts/kernel-doc +++ b/scripts/kernel-doc | |||
@@ -381,10 +381,10 @@ sub output_highlight { | |||
381 | eval $dohighlight; | 381 | eval $dohighlight; |
382 | die $@ if $@; | 382 | die $@ if $@; |
383 | foreach $line (split "\n", $contents) { | 383 | foreach $line (split "\n", $contents) { |
384 | if ($line eq ""){ | 384 | if ($line eq ""){ |
385 | print $lineprefix, $blankline; | 385 | print $lineprefix, $blankline; |
386 | } else { | 386 | } else { |
387 | $line =~ s/\\\\\\/\&/g; | 387 | $line =~ s/\\\\\\/\&/g; |
388 | print $lineprefix, $line; | 388 | print $lineprefix, $line; |
389 | } | 389 | } |
390 | print "\n"; | 390 | print "\n"; |
@@ -414,7 +414,7 @@ sub output_enum_html(%) { | |||
414 | print "<b>enum ".$args{'enum'}."</b> {<br>\n"; | 414 | print "<b>enum ".$args{'enum'}."</b> {<br>\n"; |
415 | $count = 0; | 415 | $count = 0; |
416 | foreach $parameter (@{$args{'parameterlist'}}) { | 416 | foreach $parameter (@{$args{'parameterlist'}}) { |
417 | print " <b>".$parameter."</b>"; | 417 | print " <b>".$parameter."</b>"; |
418 | if ($count != $#{$args{'parameterlist'}}) { | 418 | if ($count != $#{$args{'parameterlist'}}) { |
419 | $count++; | 419 | $count++; |
420 | print ",\n"; | 420 | print ",\n"; |
@@ -462,7 +462,7 @@ sub output_struct_html(%) { | |||
462 | my $parameter_name = $parameter; | 462 | my $parameter_name = $parameter; |
463 | $parameter_name =~ s/\[.*//; | 463 | $parameter_name =~ s/\[.*//; |
464 | 464 | ||
465 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; | 465 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; |
466 | $type = $args{'parametertypes'}{$parameter}; | 466 | $type = $args{'parametertypes'}{$parameter}; |
467 | if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) { | 467 | if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) { |
468 | # pointer-to-function | 468 | # pointer-to-function |
@@ -483,7 +483,7 @@ sub output_struct_html(%) { | |||
483 | my $parameter_name = $parameter; | 483 | my $parameter_name = $parameter; |
484 | $parameter_name =~ s/\[.*//; | 484 | $parameter_name =~ s/\[.*//; |
485 | 485 | ||
486 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; | 486 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; |
487 | print "<dt><b>".$parameter."</b>\n"; | 487 | print "<dt><b>".$parameter."</b>\n"; |
488 | print "<dd>"; | 488 | print "<dd>"; |
489 | output_highlight($args{'parameterdescs'}{$parameter_name}); | 489 | output_highlight($args{'parameterdescs'}{$parameter_name}); |
@@ -525,7 +525,7 @@ sub output_function_html(%) { | |||
525 | my $parameter_name = $parameter; | 525 | my $parameter_name = $parameter; |
526 | $parameter_name =~ s/\[.*//; | 526 | $parameter_name =~ s/\[.*//; |
527 | 527 | ||
528 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; | 528 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; |
529 | print "<dt><b>".$parameter."</b>\n"; | 529 | print "<dt><b>".$parameter."</b>\n"; |
530 | print "<dd>"; | 530 | print "<dd>"; |
531 | output_highlight($args{'parameterdescs'}{$parameter_name}); | 531 | output_highlight($args{'parameterdescs'}{$parameter_name}); |
@@ -691,7 +691,7 @@ sub output_struct_xml(%) { | |||
691 | $parameter_name =~ s/\[.*//; | 691 | $parameter_name =~ s/\[.*//; |
692 | 692 | ||
693 | defined($args{'parameterdescs'}{$parameter_name}) || next; | 693 | defined($args{'parameterdescs'}{$parameter_name}) || next; |
694 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; | 694 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; |
695 | $type = $args{'parametertypes'}{$parameter}; | 695 | $type = $args{'parametertypes'}{$parameter}; |
696 | if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) { | 696 | if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) { |
697 | # pointer-to-function | 697 | # pointer-to-function |
@@ -767,11 +767,11 @@ sub output_enum_xml(%) { | |||
767 | print "enum ".$args{'enum'}." {\n"; | 767 | print "enum ".$args{'enum'}." {\n"; |
768 | $count = 0; | 768 | $count = 0; |
769 | foreach $parameter (@{$args{'parameterlist'}}) { | 769 | foreach $parameter (@{$args{'parameterlist'}}) { |
770 | print " $parameter"; | 770 | print " $parameter"; |
771 | if ($count != $#{$args{'parameterlist'}}) { | 771 | if ($count != $#{$args{'parameterlist'}}) { |
772 | $count++; | 772 | $count++; |
773 | print ","; | 773 | print ","; |
774 | } | 774 | } |
775 | print "\n"; | 775 | print "\n"; |
776 | } | 776 | } |
777 | print "};"; | 777 | print "};"; |
@@ -1007,7 +1007,7 @@ sub output_enum_man(%) { | |||
1007 | print "enum ".$args{'enum'}." {\n"; | 1007 | print "enum ".$args{'enum'}." {\n"; |
1008 | $count = 0; | 1008 | $count = 0; |
1009 | foreach my $parameter (@{$args{'parameterlist'}}) { | 1009 | foreach my $parameter (@{$args{'parameterlist'}}) { |
1010 | print ".br\n.BI \" $parameter\"\n"; | 1010 | print ".br\n.BI \" $parameter\"\n"; |
1011 | if ($count == $#{$args{'parameterlist'}}) { | 1011 | if ($count == $#{$args{'parameterlist'}}) { |
1012 | print "\n};\n"; | 1012 | print "\n};\n"; |
1013 | last; | 1013 | last; |
@@ -1054,7 +1054,7 @@ sub output_struct_man(%) { | |||
1054 | my $parameter_name = $parameter; | 1054 | my $parameter_name = $parameter; |
1055 | $parameter_name =~ s/\[.*//; | 1055 | $parameter_name =~ s/\[.*//; |
1056 | 1056 | ||
1057 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; | 1057 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; |
1058 | $type = $args{'parametertypes'}{$parameter}; | 1058 | $type = $args{'parametertypes'}{$parameter}; |
1059 | if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) { | 1059 | if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) { |
1060 | # pointer-to-function | 1060 | # pointer-to-function |
@@ -1077,7 +1077,7 @@ sub output_struct_man(%) { | |||
1077 | my $parameter_name = $parameter; | 1077 | my $parameter_name = $parameter; |
1078 | $parameter_name =~ s/\[.*//; | 1078 | $parameter_name =~ s/\[.*//; |
1079 | 1079 | ||
1080 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; | 1080 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; |
1081 | print ".IP \"".$parameter."\" 12\n"; | 1081 | print ".IP \"".$parameter."\" 12\n"; |
1082 | output_highlight($args{'parameterdescs'}{$parameter_name}); | 1082 | output_highlight($args{'parameterdescs'}{$parameter_name}); |
1083 | } | 1083 | } |
@@ -1187,7 +1187,7 @@ sub output_enum_text(%) { | |||
1187 | print "enum ".$args{'enum'}." {\n"; | 1187 | print "enum ".$args{'enum'}." {\n"; |
1188 | $count = 0; | 1188 | $count = 0; |
1189 | foreach $parameter (@{$args{'parameterlist'}}) { | 1189 | foreach $parameter (@{$args{'parameterlist'}}) { |
1190 | print "\t$parameter"; | 1190 | print "\t$parameter"; |
1191 | if ($count != $#{$args{'parameterlist'}}) { | 1191 | if ($count != $#{$args{'parameterlist'}}) { |
1192 | $count++; | 1192 | $count++; |
1193 | print ","; | 1193 | print ","; |
@@ -1232,7 +1232,7 @@ sub output_struct_text(%) { | |||
1232 | my $parameter_name = $parameter; | 1232 | my $parameter_name = $parameter; |
1233 | $parameter_name =~ s/\[.*//; | 1233 | $parameter_name =~ s/\[.*//; |
1234 | 1234 | ||
1235 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; | 1235 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; |
1236 | $type = $args{'parametertypes'}{$parameter}; | 1236 | $type = $args{'parametertypes'}{$parameter}; |
1237 | if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) { | 1237 | if ($type =~ m/([^\(]*\(\*)\s*\)\s*\(([^\)]*)\)/) { |
1238 | # pointer-to-function | 1238 | # pointer-to-function |
@@ -1252,7 +1252,7 @@ sub output_struct_text(%) { | |||
1252 | my $parameter_name = $parameter; | 1252 | my $parameter_name = $parameter; |
1253 | $parameter_name =~ s/\[.*//; | 1253 | $parameter_name =~ s/\[.*//; |
1254 | 1254 | ||
1255 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; | 1255 | ($args{'parameterdescs'}{$parameter_name} ne $undescribed) || next; |
1256 | print "$parameter\n\t"; | 1256 | print "$parameter\n\t"; |
1257 | print $args{'parameterdescs'}{$parameter_name}."\n"; | 1257 | print $args{'parameterdescs'}{$parameter_name}."\n"; |
1258 | } | 1258 | } |
@@ -1284,7 +1284,7 @@ sub output_declaration { | |||
1284 | ( $function_only == 1 && defined($function_table{$name})) || | 1284 | ( $function_only == 1 && defined($function_table{$name})) || |
1285 | ( $function_only == 2 && !defined($function_table{$name}))) | 1285 | ( $function_only == 2 && !defined($function_table{$name}))) |
1286 | { | 1286 | { |
1287 | &$func(@_); | 1287 | &$func(@_); |
1288 | $section_counter++; | 1288 | $section_counter++; |
1289 | } | 1289 | } |
1290 | } | 1290 | } |
@@ -1317,8 +1317,8 @@ sub dump_struct($$) { | |||
1317 | my $file = shift; | 1317 | my $file = shift; |
1318 | 1318 | ||
1319 | if ($x =~/(struct|union)\s+(\w+)\s*{(.*)}/) { | 1319 | if ($x =~/(struct|union)\s+(\w+)\s*{(.*)}/) { |
1320 | $declaration_name = $2; | 1320 | $declaration_name = $2; |
1321 | my $members = $3; | 1321 | my $members = $3; |
1322 | 1322 | ||
1323 | # ignore embedded structs or unions | 1323 | # ignore embedded structs or unions |
1324 | $members =~ s/{.*?}//g; | 1324 | $members =~ s/{.*?}//g; |
@@ -1345,7 +1345,7 @@ sub dump_struct($$) { | |||
1345 | }); | 1345 | }); |
1346 | } | 1346 | } |
1347 | else { | 1347 | else { |
1348 | print STDERR "Error(${file}:$.): Cannot parse struct or union!\n"; | 1348 | print STDERR "Error(${file}:$.): Cannot parse struct or union!\n"; |
1349 | ++$errors; | 1349 | ++$errors; |
1350 | } | 1350 | } |
1351 | } | 1351 | } |
@@ -1356,15 +1356,15 @@ sub dump_enum($$) { | |||
1356 | 1356 | ||
1357 | $x =~ s@/\*.*?\*/@@gos; # strip comments. | 1357 | $x =~ s@/\*.*?\*/@@gos; # strip comments. |
1358 | if ($x =~ /enum\s+(\w+)\s*{(.*)}/) { | 1358 | if ($x =~ /enum\s+(\w+)\s*{(.*)}/) { |
1359 | $declaration_name = $1; | 1359 | $declaration_name = $1; |
1360 | my $members = $2; | 1360 | my $members = $2; |
1361 | 1361 | ||
1362 | foreach my $arg (split ',', $members) { | 1362 | foreach my $arg (split ',', $members) { |
1363 | $arg =~ s/^\s*(\w+).*/$1/; | 1363 | $arg =~ s/^\s*(\w+).*/$1/; |
1364 | push @parameterlist, $arg; | 1364 | push @parameterlist, $arg; |
1365 | if (!$parameterdescs{$arg}) { | 1365 | if (!$parameterdescs{$arg}) { |
1366 | $parameterdescs{$arg} = $undescribed; | 1366 | $parameterdescs{$arg} = $undescribed; |
1367 | print STDERR "Warning(${file}:$.): Enum value '$arg' ". | 1367 | print STDERR "Warning(${file}:$.): Enum value '$arg' ". |
1368 | "not described in enum '$declaration_name'\n"; | 1368 | "not described in enum '$declaration_name'\n"; |
1369 | } | 1369 | } |
1370 | 1370 | ||
@@ -1382,7 +1382,7 @@ sub dump_enum($$) { | |||
1382 | }); | 1382 | }); |
1383 | } | 1383 | } |
1384 | else { | 1384 | else { |
1385 | print STDERR "Error(${file}:$.): Cannot parse enum!\n"; | 1385 | print STDERR "Error(${file}:$.): Cannot parse enum!\n"; |
1386 | ++$errors; | 1386 | ++$errors; |
1387 | } | 1387 | } |
1388 | } | 1388 | } |
@@ -1393,12 +1393,12 @@ sub dump_typedef($$) { | |||
1393 | 1393 | ||
1394 | $x =~ s@/\*.*?\*/@@gos; # strip comments. | 1394 | $x =~ s@/\*.*?\*/@@gos; # strip comments. |
1395 | while (($x =~ /\(*.\)\s*;$/) || ($x =~ /\[*.\]\s*;$/)) { | 1395 | while (($x =~ /\(*.\)\s*;$/) || ($x =~ /\[*.\]\s*;$/)) { |
1396 | $x =~ s/\(*.\)\s*;$/;/; | 1396 | $x =~ s/\(*.\)\s*;$/;/; |
1397 | $x =~ s/\[*.\]\s*;$/;/; | 1397 | $x =~ s/\[*.\]\s*;$/;/; |
1398 | } | 1398 | } |
1399 | 1399 | ||
1400 | if ($x =~ /typedef.*\s+(\w+)\s*;/) { | 1400 | if ($x =~ /typedef.*\s+(\w+)\s*;/) { |
1401 | $declaration_name = $1; | 1401 | $declaration_name = $1; |
1402 | 1402 | ||
1403 | output_declaration($declaration_name, | 1403 | output_declaration($declaration_name, |
1404 | 'typedef', | 1404 | 'typedef', |
@@ -1410,7 +1410,7 @@ sub dump_typedef($$) { | |||
1410 | }); | 1410 | }); |
1411 | } | 1411 | } |
1412 | else { | 1412 | else { |
1413 | print STDERR "Error(${file}:$.): Cannot parse typedef!\n"; | 1413 | print STDERR "Error(${file}:$.): Cannot parse typedef!\n"; |
1414 | ++$errors; | 1414 | ++$errors; |
1415 | } | 1415 | } |
1416 | } | 1416 | } |
@@ -1424,14 +1424,14 @@ sub create_parameterlist($$$) { | |||
1424 | 1424 | ||
1425 | # temporarily replace commas inside function pointer definition | 1425 | # temporarily replace commas inside function pointer definition |
1426 | while ($args =~ /(\([^\),]+),/) { | 1426 | while ($args =~ /(\([^\),]+),/) { |
1427 | $args =~ s/(\([^\),]+),/$1#/g; | 1427 | $args =~ s/(\([^\),]+),/$1#/g; |
1428 | } | 1428 | } |
1429 | 1429 | ||
1430 | foreach my $arg (split($splitter, $args)) { | 1430 | foreach my $arg (split($splitter, $args)) { |
1431 | # strip comments | 1431 | # strip comments |
1432 | $arg =~ s/\/\*.*\*\///; | 1432 | $arg =~ s/\/\*.*\*\///; |
1433 | # strip leading/trailing spaces | 1433 | # strip leading/trailing spaces |
1434 | $arg =~ s/^\s*//; | 1434 | $arg =~ s/^\s*//; |
1435 | $arg =~ s/\s*$//; | 1435 | $arg =~ s/\s*$//; |
1436 | $arg =~ s/\s+/ /; | 1436 | $arg =~ s/\s+/ /; |
1437 | 1437 | ||
@@ -1514,15 +1514,15 @@ sub push_parameter($$$) { | |||
1514 | $parameterdescs{$param_name} = $undescribed; | 1514 | $parameterdescs{$param_name} = $undescribed; |
1515 | 1515 | ||
1516 | if (($type eq 'function') || ($type eq 'enum')) { | 1516 | if (($type eq 'function') || ($type eq 'enum')) { |
1517 | print STDERR "Warning(${file}:$.): Function parameter ". | 1517 | print STDERR "Warning(${file}:$.): Function parameter ". |
1518 | "or member '$param' not " . | 1518 | "or member '$param' not " . |
1519 | "described in '$declaration_name'\n"; | 1519 | "described in '$declaration_name'\n"; |
1520 | } | 1520 | } |
1521 | print STDERR "Warning(${file}:$.):". | 1521 | print STDERR "Warning(${file}:$.):". |
1522 | " No description found for parameter '$param'\n"; | 1522 | " No description found for parameter '$param'\n"; |
1523 | ++$warnings; | 1523 | ++$warnings; |
1524 | } | 1524 | } |
1525 | } | 1525 | } |
1526 | 1526 | ||
1527 | push @parameterlist, $param; | 1527 | push @parameterlist, $param; |
1528 | $parametertypes{$param} = $type; | 1528 | $parametertypes{$param} = $type; |
@@ -1664,10 +1664,10 @@ sub process_state3_function($$) { | |||
1664 | # do nothing | 1664 | # do nothing |
1665 | } | 1665 | } |
1666 | elsif ($x =~ /([^\{]*)/) { | 1666 | elsif ($x =~ /([^\{]*)/) { |
1667 | $prototype .= $1; | 1667 | $prototype .= $1; |
1668 | } | 1668 | } |
1669 | if (($x =~ /\{/) || ($x =~ /\#define/) || ($x =~ /;/)) { | 1669 | if (($x =~ /\{/) || ($x =~ /\#define/) || ($x =~ /;/)) { |
1670 | $prototype =~ s@/\*.*?\*/@@gos; # strip comments. | 1670 | $prototype =~ s@/\*.*?\*/@@gos; # strip comments. |
1671 | $prototype =~ s@[\r\n]+@ @gos; # strip newlines/cr's. | 1671 | $prototype =~ s@[\r\n]+@ @gos; # strip newlines/cr's. |
1672 | $prototype =~ s@^\s+@@gos; # strip leading spaces | 1672 | $prototype =~ s@^\s+@@gos; # strip leading spaces |
1673 | dump_function($prototype,$file); | 1673 | dump_function($prototype,$file); |
@@ -1688,17 +1688,17 @@ sub process_state3_type($$) { | |||
1688 | } | 1688 | } |
1689 | 1689 | ||
1690 | while (1) { | 1690 | while (1) { |
1691 | if ( $x =~ /([^{};]*)([{};])(.*)/ ) { | 1691 | if ( $x =~ /([^{};]*)([{};])(.*)/ ) { |
1692 | $prototype .= $1 . $2; | 1692 | $prototype .= $1 . $2; |
1693 | ($2 eq '{') && $brcount++; | 1693 | ($2 eq '{') && $brcount++; |
1694 | ($2 eq '}') && $brcount--; | 1694 | ($2 eq '}') && $brcount--; |
1695 | if (($2 eq ';') && ($brcount == 0)) { | 1695 | if (($2 eq ';') && ($brcount == 0)) { |
1696 | dump_declaration($prototype,$file); | 1696 | dump_declaration($prototype,$file); |
1697 | reset_state(); | 1697 | reset_state(); |
1698 | last; | 1698 | last; |
1699 | } | 1699 | } |
1700 | $x = $3; | 1700 | $x = $3; |
1701 | } else { | 1701 | } else { |
1702 | $prototype .= $x; | 1702 | $prototype .= $x; |
1703 | last; | 1703 | last; |
1704 | } | 1704 | } |
@@ -1756,7 +1756,7 @@ sub process_file($) { | |||
1756 | } else { | 1756 | } else { |
1757 | $section = $1; | 1757 | $section = $1; |
1758 | } | 1758 | } |
1759 | } | 1759 | } |
1760 | elsif (/$doc_decl/o) { | 1760 | elsif (/$doc_decl/o) { |
1761 | $identifier = $1; | 1761 | $identifier = $1; |
1762 | if (/\s*([\w\s]+?)\s*-/) { | 1762 | if (/\s*([\w\s]+?)\s*-/) { |
@@ -1849,13 +1849,13 @@ sub process_file($) { | |||
1849 | } | 1849 | } |
1850 | } elsif ($state == 3) { # scanning for function '{' (end of prototype) | 1850 | } elsif ($state == 3) { # scanning for function '{' (end of prototype) |
1851 | if ($decl_type eq 'function') { | 1851 | if ($decl_type eq 'function') { |
1852 | process_state3_function($_, $file); | 1852 | process_state3_function($_, $file); |
1853 | } else { | 1853 | } else { |
1854 | process_state3_type($_, $file); | 1854 | process_state3_type($_, $file); |
1855 | } | 1855 | } |
1856 | } elsif ($state == 4) { | 1856 | } elsif ($state == 4) { |
1857 | # Documentation block | 1857 | # Documentation block |
1858 | if (/$doc_block/) { | 1858 | if (/$doc_block/) { |
1859 | dump_section($section, $contents); | 1859 | dump_section($section, $contents); |
1860 | output_intro({'sectionlist' => \@sectionlist, | 1860 | output_intro({'sectionlist' => \@sectionlist, |
1861 | 'sections' => \%sections }); | 1861 | 'sections' => \%sections }); |
@@ -1873,7 +1873,7 @@ sub process_file($) { | |||
1873 | } else { | 1873 | } else { |
1874 | $section = $1; | 1874 | $section = $1; |
1875 | } | 1875 | } |
1876 | } | 1876 | } |
1877 | elsif (/$doc_end/) | 1877 | elsif (/$doc_end/) |
1878 | { | 1878 | { |
1879 | dump_section($section, $contents); | 1879 | dump_section($section, $contents); |
@@ -1900,8 +1900,8 @@ sub process_file($) { | |||
1900 | { | 1900 | { |
1901 | $contents .= $1 . "\n"; | 1901 | $contents .= $1 . "\n"; |
1902 | } | 1902 | } |
1903 | } | 1903 | } |
1904 | } | 1904 | } |
1905 | } | 1905 | } |
1906 | if ($initial_section_counter == $section_counter) { | 1906 | if ($initial_section_counter == $section_counter) { |
1907 | print STDERR "Warning(${file}): no structured comments found\n"; | 1907 | print STDERR "Warning(${file}): no structured comments found\n"; |