From: 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/?a=commitdiff_plain;h=6102b07622eed41f8036a80ae668192afe1088ae;p=chise%2Fids.git (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 ;; 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