From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 29 Sep 2018 06:37:24 +0000 (+0900)
Subject: (char-db-dump-shuowen): New function.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0207a0884174850c3ba923712a31c5140300a37e;p=chise%2Ftomoyo-tools.git

(char-db-dump-shuowen): New function.
---

diff --git a/char-db-dump.el b/char-db-dump.el
index 00bf967..81b6413 100644
--- a/char-db-dump.el
+++ b/char-db-dump.el
@@ -158,6 +158,22 @@
 		    (expand-file-name "Oracle-Bones.el" directory)))))
 
 ;;;###autoload
+(defun char-db-dump-shuowen (directory)
+  (interactive "DDump Shuowen : ")
+  (let ((coding-system-for-write char-db-file-coding-system)
+	(code 1)
+	chr)
+    (with-temp-buffer
+      (insert (format ";; -*- coding: %s -*-\n"
+		      char-db-file-coding-system))
+      (while (<= code 52101)
+	(when (setq chr (decode-char '=shuowen-jiguge code 'defined-only))
+	  (insert-char-data chr))
+	(setq code (1+ code)))
+      (write-region (point-min)(point-max)
+		    (expand-file-name "ShuoWen.el" directory)))))
+
+;;;###autoload
 (defun char-db-dump-ruimoku6 (directory)
   (interactive "DDump ruimoku6 : ")
   (let ((coding-system-for-write char-db-file-coding-system)