tools: prefix all generated includes by automation comment
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 19 Feb 2015 23:12:40 +0000 (00:12 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 9 Jun 2015 03:43:41 +0000 (05:43 +0200)
tools/mkcharinfo
tools/mkdigraphlist
tools/mkfontinfo

index ef1e215..2315495 100755 (executable)
@@ -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) {
index d50f7b5..96ec534 100755 (executable)
@@ -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(' ',
index 1bf181f..deada09 100755 (executable)
@@ -96,6 +96,7 @@ for my $chars (values %{$_}) {
 }
 }
 
+say "# automatically generated by $0";
 say 'use utf8;';
 say '+'.pp(\%charlist);