git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keyboard/altgr: label keys in each row with big class
[sheet.git]
/
tools
/
mkttfinfo
diff --git
a/tools/mkttfinfo
b/tools/mkttfinfo
index 8cfe446a2b63e295bc5b714e170e894226d2561b..b14539a444f9ac750c93971885c7657d338d5f9f 100755
(executable)
--- a/
tools/mkttfinfo
+++ b/
tools/mkttfinfo
@@
-7,7
+7,7
@@
use Font::TTF::Font;
use Getopt::Long;
use Cwd 'abs_path';
use Getopt::Long;
use Cwd 'abs_path';
-our $VERSION = '1.0
1
';
+our $VERSION = '1.0
2
';
GetOptions(\my %opt,
'verbose|v!',
GetOptions(\my %opt,
'verbose|v!',
@@
-72,13
+72,13
@@
for ($outfile || ()) {
undef
) for $meta{os} || ();
undef
) for $meta{os} || ();
- say "# automatically generated by $0";
- say '+', pp(\%meta), ',';
-
my $support = $ttf->{cmap}->find_ms->{val};
warn scalar keys %$support, " characters read from $ttfuri\n"
if $opt{verbose};
my $support = $ttf->{cmap}->find_ms->{val};
warn scalar keys %$support, " characters read from $ttfuri\n"
if $opt{verbose};
- say pp(sort { $a <=> $b } keys %$support);
+ $meta{cover} = [sort { $a <=> $b } keys %$support];
+
+ say "# automatically generated by $0";
+ say '+', pp(\%meta);
}
__END__
}
__END__