update.

[chise/tomoyo-tools.git] / char-db-dump.el

diff --git a/char-db-dump.el b/char-db-dump.el
index b9d6646..81b6413 100644 (file)
--- a/char-db-dump.el
+++ b/char-db-dump.el
@@ -1,6 +1,6 @@
 ;;; char-db-dump.el --- Dump utility of char-spec files
 
-;; Copyright (C) 2002,2003,2004,2005 MORIOKA Tomohiko
+;; Copyright (C) 2002,2003,2004,2005,2010 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: Ideographs, Character Database, CHISE, UCS, Unicode
@@ -108,6 +108,7 @@
     (#x3130 #x318F "u03130-Hangul-Compatibility-Jamo.el")
     (#x3190 #x319F "u03190-Kanbun.el")
     (#x31A0 #x31BF "u031A0-Bopomofo-Extended.el")
+    (#x31C0 #x31EF "u031C0-CJK-Strokes.el")
     (#x31F0 #x31FF "u031F0-Katakana-Phonetic-Extensions.el")
     (#x3200 #x32FF "u03200-Enclosed-CJK-Letters-and-Months.el")
     (#x3300 #x33FF "u03300-CJK-Compatibility.el")
@@ -157,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)