7 echo "Usage: $0 >digraphs-vim.inc.pl"
8 echo 'Collect digraph data from vim, standard output as Perl hash.'
12 VIM='vim -RXZ -i NONE -u NONE -N -n'
14 $VIM -e -c'echo version' -cdigraphs -cq | perl -CSD -nE '
16 say "# digraphs list from vim version ", m/(\d+)\s*\z/;
17 say "# automatically generated by '"$0"'";
20 while (/\G(\S\S) (.[^ ]*) +([0-9]+)\s+/g) {
21 my ($mnem, $chr, $cp) = ($1, $2, $3);
22 $mnem =~ s/(?=[\\}])/\\/g; # escape string delimiter
23 $chrstr = sprintf q("\x{%x}"), $cp;
24 say "q{$mnem} => $chrstr,";
28 exit warn "only $. lines of :digraphs output\n" if $. < 6;