Commit 9d922bac authored by MORIOKA Tomohiko's avatar MORIOKA Tomohiko
Browse files

(char-db-dump-shuowen): Split into ShuoWen-SRnnn.el.

(char-db-dump): Call `char-db-dump-additional-idc'.
parent 07165901
;;; char-db-dump.el --- Dump utility of char-spec files
;; Copyright (C) 2002,2003,2004,2005,2010,2018,2019 MORIOKA Tomohiko
;; Copyright (C) 2002,2003,2004,2005,2010,2018,2019,2020 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: Ideographs, Character Database, CHISE, UCS, Unicode
......@@ -162,16 +162,28 @@
(interactive "DDump Shuowen : ")
(let ((coding-system-for-write char-db-file-coding-system)
(code 1)
chr)
chr chr radical radical0)
(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))
(setq radical (get-char-attribute chr 'shuowen-radical))
(if radical0
(unless (eq radical0 radical)
(goto-char (point-min))
(insert (format ";; -*- coding: %s -*-\n"
char-db-file-coding-system))
(write-region (point-min)(point-max)
(expand-file-name
(format "ShuoWen-SR%03d.el" radical0)
directory))
(erase-buffer)
(setq radical0 radical))
(setq radical0 radical))
(insert-char-data-with-variant chr))
(setq code (1+ code)))
(write-region (point-min)(point-max)
(expand-file-name "ShuoWen.el" directory)))))
(expand-file-name
(format "ShuoWen-SR%03d.el" radical0) directory)))))
;;;###autoload
(defun char-db-dump-ruimoku6 (directory)
......@@ -248,7 +260,8 @@
(char-db-dump-oracle-bones directory)
(char-db-dump-shuowen directory)
(char-db-dump-ruimoku6 directory)
(char-db-dump-additional-precomposed directory))
(char-db-dump-additional-precomposed directory)
(char-db-dump-additional-idc directory))
;;; @ End.
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment