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: ignore escape character in character tables
[sheet.git]
/
tools
/
mkfontinfo
diff --git
a/tools/mkfontinfo
b/tools/mkfontinfo
index a6dc15a8756773279dcfaf3cf9e844dcfc42ff8e..a9f0d37c9566c97061d1b4423a27bcb834f09e19 100755
(executable)
--- a/
tools/mkfontinfo
+++ b/
tools/mkfontinfo
@@
-23,9
+23,6
@@
for my $fontfile (glob 'ttfsupport/*'.$incsuffix) {
};
}
};
}
- when (qr{^[a-z]+(?:/|\z)}) {
- }
-
my %charlist;
my $chartables = do 'unicode-table.inc.pl' or warn $@ || $!;
my %charlist;
my $chartables = do 'unicode-table.inc.pl' or warn $@ || $!;
@@
-38,6
+35,7
@@
if ($chartables) {
$includerows ||= m/^[.]/ or next;
next if /^[.-]/;
next if $_ eq '>' or $_ eq '=';
$includerows ||= m/^[.]/ or next;
next if /^[.-]/;
next if $_ eq '>' or $_ eq '=';
+ s/^\\//; # escape
push @{ $charlist{table}->{"$tablegroup/$tablename"} }, $_;
push @{ $charlist{table}->{$tablegroup} }, $_;
}
push @{ $charlist{table}->{"$tablegroup/$tablename"} }, $_;
push @{ $charlist{table}->{$tablegroup} }, $_;
}