(dump-jef-china3-to-ucs-table): New function.

diff --git a/dump-tables.el b/dump-tables.el
index 2852a08..7d96563 100644 (file)
--- a/dump-tables.el
+++ b/dump-tables.el
@@ -193,3 +193,25 @@
          (setq cell (1+ cell)))
        (setq row (1+ row))))
     (write-region (point-min)(point-max) filename)))
+
+(defun dump-jef-china3-to-ucs-table (filename)
+  (interactive "Fdump JC3-to-UCS : ")
+  (if (file-directory-p filename)
+      (setq filename (expand-file-name "JC3-to-UCS.txt" filename)))
+  (with-temp-buffer
+    (let ((row #x41)
+         cell chr ucs)
+      (while (<= row #x9F)
+       (setq cell #xA1)
+       (while (< cell #xFE)
+         (when (and (setq chr (make-char 'china3-jef row cell))
+                    (setq ucs (or (get-char-attribute chr 'ucs)
+                                  (get-char-attribute chr '=>ucs))))
+           (insert (format "JC3-%02X%02X\t" row cell))
+           (insert (format (if (<= ucs #xFFFF)
+                               "U+%04X\n"
+                             "U-%08X\n")
+                           ucs)))
+         (setq cell (1+ cell)))
+       (setq row (1+ row))))
+    (write-region (point-min)(point-max) filename)))