mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-08-31 06:25:31 +00:00
Code Issues Releases Wiki Activity

mkd comments are not quite sgml comments

Browse Source
This commit is contained in:
Mark Andrews
2015-01-01 09:10:28 +11:00
parent 18483fce5b
commit e2653c8e84
1 changed files with 26 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
util/update_copyrights
View File

@@ -178,6 +178,7 @@ foreach $file (keys %file_types) {
$shell_comment = 0;
$m4_comment = 0;
$sgml_comment = 0;
$mkd_comment = 0;
$zone_comment = 0;
$man_comment = 0;
$python_comment = 0;
@@ -212,10 +213,10 @@ foreach $file (keys %file_types) {
$prefix = " - ";
$end_comment = "-->\n";
} elsif ($type eq "MKD") {
$sgml_comment = 1;
$mkd_comment = 1;
$start_comment = "<!---\n";
$prefix = " - ";
$end_comment = "--->\n";
$end_comment = "--->";
} elsif ($type eq "TXT") {
$prefix = "";
} else {
@@ -352,6 +353,29 @@ foreach $file (keys %file_types) {
} else {
$first = $_;
}
} elsif ($mkd_comment) {
$before_copyright = "";
if (/^<!/) {
$_ = <SOURCE> if $_ eq "<!---\n";
if ($_ !~ /[Cc]opyright/) {
print "$file: non-copyright comment\n";
close(SOURCE);
next;
}
while (defined($_)) {
last if s/.*--->//;
$_ = <SOURCE>;
}
print "$file: unterminated comment\n"
unless defined($_);
if ($_ ne "\n") {
$first = $_;
} else {
$first = <SOURCE>;
}
} else {
$first = $_;
}
} elsif ($type eq "TXT") {
if ($_ =~ /[Cc]opyright/) {
$/ = ""; # paragraph at a time