git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
digraphs: prepare target characters as strings
[sheet.git]
/
tools
/
mkdigraphlist
diff --git
a/tools/mkdigraphlist
b/tools/mkdigraphlist
index e472ce0e0d01a41b5e0f27ef5f16f927c51c4d78..2e6c9191f46414ee7533efa6d97796b846db2783 100755
(executable)
--- a/
tools/mkdigraphlist
+++ b/
tools/mkdigraphlist
@@
-6,7
+6,7
@@
use utf8;
use open OUT => ':utf8', ':std';
use open OUT => ':utf8', ':std';
-our $VERSION = '1.0
4
';
+our $VERSION = '1.0
5
';
# import and combine various digraph data
my $rfc = do 'data/digraphs-rfc.inc.pl'
# import and combine various digraph data
my $rfc = do 'data/digraphs-rfc.inc.pl'
@@
-31,14
+31,14
@@
printf '(map {$_=>0} qw{%s}),'."\n", join(' ',
map { substr($_, 1, 1).substr($_, 0, 1) } sort keys %{$di}
);
printf "q{%s}=>[%s],\n", $_, join(',',
map { substr($_, 1, 1).substr($_, 0, 1) } sort keys %{$di}
);
printf "q{%s}=>[%s],\n", $_, join(',',
- $di->{$_}, # original code point
+
ord
$di->{$_}, # original code point
map {"'$_'"}
map {"'$_'"}
- $uninfo->{
chr
$di->{$_} }->[1], # name
+ $uninfo->{ $di->{$_} }->[1], # name
$vim->{$_}
? $rfc->{$_} ? 'u-di' : 'u-prop' # vim+rfc or vim-only
: 'u-prop ex', # neither
$vim->{$_}
? $rfc->{$_} ? 'u-di' : 'u-prop' # vim+rfc or vim-only
: 'u-prop ex', # neither
- $uninfo->{
chr
$di->{$_} }->[0] =~ s/ u-di| u-prop| ex//gr, # class
- $uninfo->{
chr
$di->{$_} }->[4] // (), # string
+ $uninfo->{ $di->{$_} }->[0] =~ s/ u-di| u-prop| ex//gr, # class
+ $uninfo->{ $di->{$_} }->[4] // (), # string
) for sort keys %{$di};
print "}\n";
) for sort keys %{$di};
print "}\n";