X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/054d1037c3f618df44d195a3e63b4832d0eab3b7..a3fad23d030ff035fc47cb4a2a929fad5b0d2831:/tools/mkdigraphs-vim

diff --git a/tools/mkdigraphs-vim b/tools/mkdigraphs-vim
index d47a733..5386010 100755
--- a/tools/mkdigraphs-vim
+++ b/tools/mkdigraphs-vim
@@ -1,10 +1,19 @@
 #!/bin/sh
-vim -e -cdigraphs -cq | perl -CSD -nE '
-	BEGIN {
+
+VERSION=1.00
+
+vim -e -c'echo version' -cdigraphs -cq | perl -CSD -nE '
+	if ($. == 1) { # head
+		say "# digraphs list from vim version ", s/\s*\z//r;
 		say "+{";
-	}
-		say "q{$1} => $3," while /\G(\S\S) (.[^ ]*) +([0-9]+)\s+/g;
-	END {
+	} else { # body
+		while (/\G(\S\S) (.[^ ]*) +([0-9]+)\s+/g) {
+			my ($mnem, $chr, $cp) = ($1, $2, $3);
+			$mnem =~ s/(?=[\\}])/\\/g;  # escape string delimiter
+			say "q{$mnem} => $cp,";
+		}
+	} END { # foot
 		say "}";
+		exit warn "only $. lines of :digraphs output\n" if $. < 6;
 	}
 '