+(defun char-db-dump-oracle-bones (directory)
+ (interactive "DDump Oracle-Bones : ")
+ (let ((coding-system-for-write char-db-file-coding-system)
+ (code 1)
+ chr a-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))
+ (setq a-chr (decode-char '=>zinbun-oracle code 'defined-only))
+ (unless (eq a-chr chr)
+ (insert-char-data a-chr))
+ (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-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-with-variant chr))
+ (setq code (1+ code)))
+ (write-region (point-min)(point-max)
+ (expand-file-name "ShuoWen.el" directory)))))
+
+;;;###autoload