mkd comments are not quite sgml comments

diff --git a/util/update_copyrights b/util/update_copyrights
index f2cea8cf7da8d12bf3bc2db557dfbb506c608e74..97388562d97f363388cc8ab4e51a5a14d848ecc0 100644 (file)
--- a/util/update_copyrights
+++ b/util/update_copyrights
@@ -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