git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
latin: format tap code with multiline bullets
[sheet.git]
/
tools
/
mkdigraphlist
diff --git
a/tools/mkdigraphlist
b/tools/mkdigraphlist
index ecd825f0d653cc8c7fd32bd90bfc45ee970f60b5..216be6aebdd6cc6866a244382af2a0f99fb7d88d 100755
(executable)
--- a/
tools/mkdigraphlist
+++ b/
tools/mkdigraphlist
@@
-33,11
+33,11
@@
printf '(map {$_=>0} qw{%s}),'."\n", join(' ',
printf "q{%s}=>[%s],\n", s/(?=[\\}])/\\/gr, join(',',
ord $di->{$_}, # original code point
map {"'$_'"}
printf "q{%s}=>[%s],\n", s/(?=[\\}])/\\/gr, join(',',
ord $di->{$_}, # original code point
map {"'$_'"}
- $uninfo->{ $di->{$_} }->[1], # name
+ $uninfo->{ $di->{$_} }->[1]
// ''
, # name
$vim->{$_}
$vim->{$_}
- ? $rfc->{$_} ? 'u-di' : 'u-prop' # vim+rfc or vim
-
only
- :
'u-prop ex', #
neither
-
$uninfo->{ $di->{$_} }->[0]
=~ s/ u-di| u-prop| ex//gr, # class
+ ? $rfc->{$_} ? 'u-di' : 'u-prop' # vim+rfc or vim
only
+ :
$rfc->{$_} ? 'ex' : 'u-prop ex', # rfc only or
neither
+
($uninfo->{ $di->{$_} }->[0] // '')
=~ s/ u-di| u-prop| ex//gr, # class
$uninfo->{ $di->{$_} }->[4] // (), # string
) for sort keys %{$di};
print "}\n";
$uninfo->{ $di->{$_} }->[4] // (), # string
) for sort keys %{$di};
print "}\n";