tools: prefix all generated includes by automation comment

diff --git a/tools/mkcharinfo b/tools/mkcharinfo
index ef1e2150c535892c30afe789580a549f759c2203..23154959e50b654ff454ce50d8e6da1b5e842523 100755 (executable)
--- a/tools/mkcharinfo
+++ b/tools/mkcharinfo
@@ -119,6 +119,7 @@ for my $chr (keys %info) {
 }
 
 # output perl code of hash
+say "# automatically generated by $0";
 say 'use utf8;';
 say '+{';
 for my $cp (sort keys %info) {

diff --git a/tools/mkdigraphlist b/tools/mkdigraphlist
index d50f7b518f2f37b453ff26dcea979c407dd91383..96ec5349676f5d3f72762e81f7d856f4d89d7b30 100755 (executable)
--- a/tools/mkdigraphlist
+++ b/tools/mkdigraphlist
@@ -156,6 +156,7 @@ for my $row (values %info) {
 
 # output perl code of hash
 # (assume no backslashes or curlies, so we can just q{} w/o escaping)
+print "# automatically generated by $0\n";
 print "use utf8;\n";
 print "+{\n";
 printf '(map {$_=>0} qw{%s}),'."\n", join(' ',

diff --git a/tools/mkfontinfo b/tools/mkfontinfo
index 1bf181f7d4daf4edfb832ffe5bb438389583662a..deada09937691bd4e94aa7676e86ddb5b7a1153e 100755 (executable)
--- a/tools/mkfontinfo
+++ b/tools/mkfontinfo
@@ -96,6 +96,7 @@ for my $chars (values %{$_}) {
 }
 }
 
+say "# automatically generated by $0";
 say 'use utf8;';
 say '+'.pp(\%charlist);