Rewrite mim2remap in elisp to properly parse *.mim files.

examples/eekxml/mim2remap.el

@@ -0,0 +1,164 @@
+;; mim2remap.el -- generate eekxml remap file from m17n MIM file
+;; Copyright (C) 2011 Daiki Ueno <ueno@unixuser.org>
+;; Copyright (C) 2011 Red Hat, Inc.
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see
+;; <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; emacs -Q -batch -l mim2remap.el -f batch-mim2remap \
+;;	/usr/share/m17n/te-inscript.mim trans
+
+;;; Code:
+
+(require 'json)
+
+(defconst mim2remap--char-to-keyname-alist
+  '((32 . "space")
+    (33 . "exclam")
+    (34 . "quotedbl")
+    (35 . "numbersign")
+    (36 . "dollar")
+    (37 . "percent")
+    (38 . "ampersand")
+    (39 . "apostrophe")
+    (40 . "parenleft")
+    (41 . "parenright")
+    (42 . "asterisk")
+    (43 . "plus")
+    (44 . "comma")
+    (45 . "minus")
+    (46 . "period")
+    (47 . "slash")
+    (48 . "0")
+    (49 . "1")
+    (50 . "2")
+    (51 . "3")
+    (52 . "4")
+    (53 . "5")
+    (54 . "6")
+    (55 . "7")
+    (56 . "8")
+    (57 . "9")
+    (58 . "colon")
+    (59 . "semicolon")
+    (60 . "less")
+    (61 . "equal")
+    (62 . "greater")
+    (63 . "question")
+    (64 . "at")
+    (65 . "A")
+    (66 . "B")
+    (67 . "C")
+    (68 . "D")
+    (69 . "E")
+    (70 . "F")
+    (71 . "G")
+    (72 . "H")
+    (73 . "I")
+    (74 . "J")
+    (75 . "K")
+    (76 . "L")
+    (77 . "M")
+    (78 . "N")
+    (79 . "O")
+    (80 . "P")
+    (81 . "Q")
+    (82 . "R")
+    (83 . "S")
+    (84 . "T")
+    (85 . "U")
+    (86 . "V")
+    (87 . "W")
+    (88 . "X")
+    (89 . "Y")
+    (90 . "Z")
+    (91 . "bracketleft")
+    (92 . "backslash")
+    (93 . "bracketright")
+    (94 . "asciicircum")
+    (95 . "underscore")
+    (96 . "grave")
+    (97 . "a")
+    (98 . "b")
+    (99 . "c")
+    (100 . "d")
+    (101 . "e")
+    (102 . "f")
+    (103 . "g")
+    (104 . "h")
+    (105 . "i")
+    (106 . "j")
+    (107 . "k")
+    (108 . "l")
+    (109 . "m")
+    (110 . "n")
+    (111 . "o")
+    (112 . "p")
+    (113 . "q")
+    (114 . "r")
+    (115 . "s")
+    (116 . "t")
+    (117 . "u")
+    (118 . "v")
+    (119 . "w")
+    (120 . "x")
+    (121 . "y")
+    (122 . "z")
+    (123 . "braceleft")
+    (124 . "bar")
+    (125 . "braceright")
+    (126 . "asciitilde")))
+
+(defun mim2remap--char-to-keyname (char)
+  (let ((entry (assq char mim2remap--char-to-keyname-alist)))
+    (if entry
+	(cdr entry))))
+
+(defun mim2remap (file map)
+  (with-current-buffer (find-file-noselect file)
+    (let (sexp)
+      (goto-char (point-min))
+      (while (and (null sexp) (not (eobp)))
+	(setq sexp (read (current-buffer)))
+	(if (eq (car sexp) 'map)
+	    (setq sexp (cdr sexp))
+	  (setq sexp nil)))
+      (if sexp
+	  (setq sexp (assq map sexp)))
+      (unless sexp
+	(error "No map named %S in %s" map file))
+      (json-encode
+       (mapcar
+	(lambda (entry)
+	  (let ((from (car entry))
+		(to (car (cdr entry))))
+	    (cons (if (listp from)
+		      (car from)
+		    (or (mim2remap--char-to-keyname (aref from 0))
+			(error "No keyname for %c" (aref from 0))))
+		  (if (characterp to)
+		      (list (cons :text (char-to-string to)))
+		    (list (cons :text to))))))
+	(cdr sexp))))))
+
+(defun batch-mim2remap ()
+  (interactive)
+  (let ((file (car command-line-args-left))
+	(map (car (cdr command-line-args-left))))
+    (princ (mim2remap file (intern map)))
+    (setq command-line-args-left (nthcdr 2 command-line-args-left))))
+
+;;; mim2remap.el ends here