1 ;;; ids-read.el --- Reader for IDS-* files
3 ;; Copyright (C) 2002,2003 MORIOKA Tomohiko
5 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
6 ;; Keywords: IDS, IDC, Ideographs, UCS, Unicode
8 ;; This file is a part of IDS.
10 ;; This program is free software; you can redistribute it and/or
11 ;; modify it under the terms of the GNU General Public License as
12 ;; published by the Free Software Foundation; either version 2, or (at
13 ;; your option) any later version.
15 ;; This program is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with this program; see the file COPYING. If not, write to
22 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
30 (defun ids-read-buffer (buffer &optional simplify soft)
31 (interactive "bBuffer = \nP")
34 (goto-char (point-min))
35 (let (line chs ids code char structure)
37 (unless (looking-at ";")
40 (buffer-substring (point-at-bol)(point-at-eol))
46 ((string-match "U[-+]\\([0-9A-F]+\\)" chs)
48 (string-to-int (match-string 1 chs) 16)))
49 ((string-match "J90-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)"
51 (decode-char 'japanese-jisx0208-1990
52 (string-to-int (match-string 1 chs) 16)))
54 "C\\([1-7]\\)-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)"
58 (concat "chinese-cns11643-" (match-string 1 chs)))
59 (string-to-int (match-string 2 chs) 16)))
60 ((string-match "CDP-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)"
62 (decode-char '=big5-cdp
63 (string-to-int (match-string 1 chs) 16)))
65 "HZK\\([0-9][0-9]\\)-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)"
69 (string-to-int (match-string 1))))
70 (string-to-int (match-string 2 chs) 16)))
71 ((string-match "M-\\([0-9]+\\)'" chs)
72 (setq code (string-to-int (match-string 1 chs)))
75 (if (and (eq (car val) code)
77 (null (nthcdr 2 val)))
80 ((string-match "M-\\([0-9]+\\)\"" chs)
81 (setq code (string-to-int (match-string 1 chs)))
84 (if (and (eq (car val) code)
86 (null (nthcdr 2 val)))
89 ((string-match "M-\\([0-9]+\\)" chs)
90 (decode-char 'ideograph-daikanwa
91 (string-to-int (match-string 1 chs))))
92 ((string-match "MH-\\([0-9]+\\)" chs)
93 (setq code (string-to-int (match-string 1 chs)))
96 (if (and (eq (car val) 'ho)
98 (null (nthcdr 2 val)))
100 'morohashi-daikanwa))
101 ((string-match "CB\\([0-9]+\\)" chs)
102 (decode-char 'ideograph-cbeta
103 (string-to-int (match-string 1 chs))))
108 (get-char-attribute char 'ideographic-structure)))
110 (not (string-match "\\?" ids))
111 (consp (setq structure (ids-parse-string ids simplify))))
112 (put-char-attribute char
113 'ideographic-structure
114 (cdr (car structure))))
120 (defun ids-read-file (file &optional simplify soft)
121 (interactive "fIDS file = \nP")
123 (insert-file-contents file)
124 (ids-read-buffer (current-buffer) simplify soft)))
132 ;;; ids-read.el ends here