update.

[chise/ids.git] / ids-dump.el

diff --git a/ids-dump.el b/ids-dump.el
index 32ec4fc..e531c16 100644 (file)
--- a/ids-dump.el
+++ b/ids-dump.el
@@ -1,6 +1,6 @@
 ;;; ids-dump.el --- Dump utility of IDS-* files
 
-;; Copyright (C) 2002,2003,2004,2005 MORIOKA Tomohiko
+;; Copyright (C) 2002,2003,2004,2005,2009,2011,2019,2022 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: IDS, IDC, Ideographs, UCS, Unicode
@@ -159,7 +159,7 @@
                 h l
                 (decode-builtin-char 'japanese-jisx0208-1990
                                      (logior (lsh h 8) l))
-                (or (ids-dump-format-list
+                (or (ideographic-structure-to-ids
                      (get-char-attribute chr 'ideographic-structure))
                     "")))
        (setq cell (1+ cell)))
@@ -174,7 +174,7 @@
               h l
               (decode-builtin-char 'japanese-jisx0208-1990
                                    (logior (lsh h 8) l))
-              (or (ids-dump-format-list
+              (or (ideographic-structure-to-ids
                    (get-char-attribute chr 'ideographic-structure))
                   "")))
       (setq cell (1+ cell)))))
@@ -271,6 +271,14 @@
   (interactive "Fdump IDS-UCS-Basic : ")
   (ids-dump-range "IDS-UCS-Basic.txt" filename
                  #'ids-dump-insert-ccs-ranges 'ucs "U+%04X\t%c\t%s\n"
+                 '(#x4E00 . #x9FEA)))
+
+;;;###autoload
+(defun ids-dump-ucs-basic@unicode (filename)
+  (interactive "Fdump IDS-UCS-Basic : ")
+  (ids-dump-range "IDS-UCS-Basic_u.txt" filename
+                 #'ids-dump-insert-ccs-ranges '=ucs@unicode
+                 "UU+%04X\t%c\t%s\n"
                  '(#x4E00 . #x9FA5)))
 
 ;;;###autoload
@@ -337,6 +345,13 @@
                  '(#x2F800 . #x2FA1D)))
 
 ;;;###autoload
+(defun ids-dump-ucs-ext-h (filename)
+  (interactive "Fdump IDS-UCS-Ext-H : ")
+  (ids-dump-range "IDS-UCS-Ext-H.txt" filename
+                 #'ids-dump-insert-ccs-ranges 'ucs "U+%04X\t%c\t%s\n"
+                 '(#x31350 . #x323AF)))
+
+;;;###autoload
 (defun ids-dump-cns11643-1 (filename)
   (interactive "Fdump IDS-CNS-1 : ")
   (ids-dump-range "IDS-CNS-1.txt" filename