X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/49a7cae05c7672bdf16409cd96e5d8547051571c..v1.8-122-gadd39cdddd:/tools/mkdigraphlist diff --git a/tools/mkdigraphlist b/tools/mkdigraphlist index 216be6a..ab0c2f9 100755 --- a/tools/mkdigraphlist +++ b/tools/mkdigraphlist @@ -6,7 +6,7 @@ use utf8; use open OUT => ':utf8', ':std'; -our $VERSION = '1.05'; +our $VERSION = '1.06'; # import and combine various digraph data my $rfc = do 'data/digraphs-rfc.inc.pl' @@ -34,9 +34,9 @@ printf "q{%s}=>[%s],\n", s/(?=[\\}])/\\/gr, join(',', ord $di->{$_}, # original code point map {"'$_'"} $uninfo->{ $di->{$_} }->[1] // '', # name - $vim->{$_} - ? $rfc->{$_} ? 'u-di' : 'u-prop' # vim+rfc or vim only - : $rfc->{$_} ? 'ex' : 'u-prop ex', # rfc only or neither + $rfc->{$_} + ? $vim->{$_} ? 'l4' : 'l1' # vim+rfc or rfc only + : $vim->{$_} ? 'l3' : 'l2', # vim only or neither ($uninfo->{ $di->{$_} }->[0] // '') =~ s/ u-di| u-prop| ex//gr, # class $uninfo->{ $di->{$_} }->[4] // (), # string ) for sort keys %{$di};