#!/bin/sh

VERSION=1.01

vim -e -c'echo version' -cdigraphs -cq | perl -CSD -nE '
	if ($. == 1) { # head
		say "# digraphs list from vim version ", s/\s*\z//r;
		say "+{";
	} else { # body
		while (/\G(\S\S) (.[^ ]*) +([0-9]+)\s+/g) {
			my ($mnem, $chr, $cp) = ($1, $2, $3);
			$mnem =~ s/(?=[\\}])/\\/g;  # escape string delimiter
			$chrstr = sprintf q("\x{%x}"), $cp;
			say "q{$mnem} => $chrstr,";
		}
	} END { # foot
		say "}";
		exit warn "only $. lines of :digraphs output\n" if $. < 6;
	}
'