From 60b0de6f78af13a1292d072f984a86a63343ec84 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 25 Jul 2005 00:12:20 +0000
Subject: [PATCH] (char-db-dump-oracle-bones): New function. (char-db-dump):
 Call `char-db-dump-oracle-bones'.

---
 char-db-dump.el |   17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/char-db-dump.el b/char-db-dump.el
index b271cbf..28de4a5 100644
--- a/char-db-dump.el
+++ b/char-db-dump.el
@@ -138,6 +138,22 @@
 
 
 ;;;###autoload
+(defun char-db-dump-oracle-bones (directory)
+  (interactive "DDump Oracle-Bones : ")
+  (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 8192)
+	(when (setq chr (decode-char '=zinbun-oracle code 'defined-only))
+	  (insert-char-data chr))
+	(setq code (1+ code)))
+      (write-region (point-min)(point-max)
+		    (expand-file-name "Oracle-Bones.el" directory)))))
+
+;;;###autoload
 (defun char-db-dump-ruimoku6 (directory)
   (interactive "DDump ruimoku6 : ")
   (let ((coding-system-for-write char-db-file-coding-system)
@@ -177,6 +193,7 @@
   (interactive "DDirectory to dump : ")
   (char-db-dump-ideographs directory)
   (char-db-dump-non-ideographs directory)
+  (char-db-dump-oracle-bones directory)
   (char-db-dump-ruimoku6 directory)
   (char-db-dump-additional-precomposed directory))
 
-- 
1.7.10.4