git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
font: mkttfinfo: strip file extensions from name
[sheet.git]
/
tools
/
mkttfinfo
diff --git
a/tools/mkttfinfo
b/tools/mkttfinfo
index 9679f1c70f906b0f774356a30c3d845a40b348e3..988fcdccdf51adfd8aa33e3daf77eed864985299 100755
(executable)
--- a/
tools/mkttfinfo
+++ b/
tools/mkttfinfo
@@
-42,7
+42,7
@@
for ($outfile || ()) {
exit 65; # EX_DATAERR
};
exit 65; # EX_DATAERR
};
- my
$ttfname = ($ttfuri =~ m{([^/.]+) (?:[.]ttf)? \z}msx
)[0];
+ my
($ttfname, @ttfext) = split /\./, ($ttfuri =~ m{([^/]+)\z}ms
)[0];
my $ttfmeta = $ttf->{name}->read;
my %meta = (
source => abs_path($ttfuri) =~ m{(^/usr/.+ | [^/]+) \z}msx,
my $ttfmeta = $ttf->{name}->read;
my %meta = (
source => abs_path($ttfuri) =~ m{(^/usr/.+ | [^/]+) \z}msx,
@@
-66,7
+66,7
@@
for ($outfile || ()) {
say '+', pp(\%meta), ',';
my $support = $ttf->{cmap}->find_ms->{val};
say '+', pp(\%meta), ',';
my $support = $ttf->{cmap}->find_ms->{val};
- warn scalar keys %$support, " characters read from $ttf
name
\n"
+ warn scalar keys %$support, " characters read from $ttf
uri
\n"
if $opt{verbose};
say pp(sort { $a <=> $b } keys %$support);
}
if $opt{verbose};
say pp(sort { $a <=> $b } keys %$support);
}