From: tomo <tomo>
Date: Tue, 9 Nov 2004 18:40:06 +0000 (+0000)
Subject: (ideographic-structure-convert-to-domain): New function.
X-Git-Tag: ids-0_0-1~10
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fids.git;a=commitdiff_plain;h=6102b07622eed41f8036a80ae668192afe1088ae

(ideographic-structure-convert-to-domain): New function.
---

diff --git a/ids-util.el b/ids-util.el
index 7d1c740..b1b96f1 100644
--- a/ids-util.el
+++ b/ids-util.el
@@ -1,6 +1,6 @@
 ;;; ids-util.el --- Utilities about ideographic-structure -*- coding: utf-8 -*-
 
-;; Copyright (C) 2001,2002,2003 MORIOKA Tomohiko
+;; Copyright (C) 2001,2002,2003,2004 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: ideographic-structure, CHISE, IDS, IDC, UCS, database
@@ -27,6 +27,30 @@
 ;;; Code:
 
 ;;;###autoload
+(defun ideographic-structure-convert-to-domain (structure domain)
+  (let (dest cell ret)
+    (while structure
+      (setq cell (car structure))
+      (setq dest
+	    (cons
+	     (cond ((characterp cell)
+		    (char-representative-of-domain cell domain))
+		   ((and (consp cell)
+			 (symbolp (car cell)))
+		    cell)
+		   ((setq ret (find-char cell))
+		    (char-representative-of-domain cell domain))
+		   ((setq ret (assq 'ideographic-structure cell))
+		    (put-alist 'ideographic-structure
+			       (ideographic-structure-convert-to-domain
+				(cdr ret) domain)
+			       (copy-alist cell)))
+		   (t cell))
+	     dest))
+      (setq structure (cdr structure)))
+    (nreverse dest)))
+
+;;;###autoload
 (defun ideographic-structure-convert-to-ucs (structure)
   (let (dest cell ucs ret)
     (while structure