|
Lines 1445-1452
Link Here
|
| 1445 |
&perror("FATAL", $file, 1, "old style headers found."); |
1445 |
&perror("FATAL", $file, 1, "old style headers found."); |
| 1446 |
} elsif ($lines[1] =~ /^# Created by: \S/) { |
1446 |
} elsif ($lines[1] =~ /^# Created by: \S/) { |
| 1447 |
if ($lines[2] !~ /^# \$$rcsidstr[:\$]/) { |
1447 |
if ($lines[2] !~ /^# \$$rcsidstr[:\$]/) { |
| 1448 |
&perror("FATAL", $file, 2, "header should be ". |
1448 |
#&perror("FATAL", $file, 2, "header should be ". |
| 1449 |
"followed by \$$rcsidstr\$."); |
1449 |
# "followed by \$$rcsidstr\$."); |
| 1450 |
} elsif ($lines[3] !~ /^$/) { |
1450 |
} elsif ($lines[3] !~ /^$/) { |
| 1451 |
#&perror("FATAL", $file, 3, "do not add extra ". |
1451 |
#&perror("FATAL", $file, 3, "do not add extra ". |
| 1452 |
# "empty comments after header."); |
1452 |
# "empty comments after header."); |
|
Lines 1455-1462
Link Here
|
| 1455 |
} elsif ($lines[1] =~ /^# \$$rcsidstr[:\$]/ and $lines[2] =~ /^#\s+\$MCom[:\$]/ and $lines[3] =~ /^$/) { |
1455 |
} elsif ($lines[1] =~ /^# \$$rcsidstr[:\$]/ and $lines[2] =~ /^#\s+\$MCom[:\$]/ and $lines[3] =~ /^$/) { |
| 1456 |
# DO NOTHING |
1456 |
# DO NOTHING |
| 1457 |
} elsif ($lines[1] !~ /^# \$$rcsidstr[:\$]/ or $lines[2] !~ /^$/) { |
1457 |
} elsif ($lines[1] !~ /^# \$$rcsidstr[:\$]/ or $lines[2] !~ /^$/) { |
| 1458 |
&perror("FATAL", $file, 1, "incorrect header; ". |
1458 |
#&perror("FATAL", $file, 1, "incorrect header; ". |
| 1459 |
"simply use \$$rcsidstr\$."); |
1459 |
# "simply use \$$rcsidstr\$."); |
| 1460 |
} |
1460 |
} |
| 1461 |
|
1461 |
|
| 1462 |
# |
1462 |
# |
|
Lines 2666-2677
Link Here
|
| 2666 |
} |
2666 |
} |
| 2667 |
} |
2667 |
} |
| 2668 |
$idx = 0; |
2668 |
$idx = 0; |
|
|
2669 |
my @linestocheck = (); |
| 2669 |
|
2670 |
|
|
|
2671 |
# check if all lines in the first section are all comments |
| 2672 |
if (grep(/^#/, split(/\n/, $sections[$idx])) == split(/\n/, $sections[$idx])) { |
| 2670 |
# |
2673 |
# |
| 2671 |
# section 1: comment lines. |
2674 |
# section 1: comment lines. |
| 2672 |
# |
2675 |
# |
| 2673 |
print "OK: checking comment section of $file.\n" if ($verbose); |
2676 |
print "OK: checking comment section of $file.\n" if ($verbose); |
| 2674 |
my @linestocheck = split("\n", <<EOF); |
2677 |
@linestocheck = split("\n", <<EOF); |
| 2675 |
Whom |
2678 |
Whom |
| 2676 |
Date [cC]reated |
2679 |
Date [cC]reated |
| 2677 |
EOF |
2680 |
EOF |
|
Lines 2691-2698
Link Here
|
| 2691 |
} |
2694 |
} |
| 2692 |
if ($tmp2 !~ /#(\s+)\$$rcsidstr([^\$]*)\$$/) { |
2695 |
if ($tmp2 !~ /#(\s+)\$$rcsidstr([^\$]*)\$$/) { |
| 2693 |
|
2696 |
|
| 2694 |
&perror("FATAL", $file, -1, "no \$$rcsidstr\$ line in comment ". |
2697 |
#&perror("FATAL", $file, -1, "no \$$rcsidstr\$ line in comment ". |
| 2695 |
"section."); |
2698 |
# "section."); |
| 2696 |
} else { |
2699 |
} else { |
| 2697 |
print "OK: \$$rcsidstr\$ seen in $file.\n" if ($verbose); |
2700 |
print "OK: \$$rcsidstr\$ seen in $file.\n" if ($verbose); |
| 2698 |
if ($1 ne ' ') { |
2701 |
if ($1 ne ' ') { |
|
Lines 2708-2713
Link Here
|
| 2708 |
"section empty, to make SVN happy."); |
2711 |
"section empty, to make SVN happy."); |
| 2709 |
} |
2712 |
} |
| 2710 |
} |
2713 |
} |
|
|
2714 |
} |
| 2711 |
} |
2715 |
} |
| 2712 |
|
2716 |
|
| 2713 |
# |
2717 |
# |