From: tomo <tomo>
Date: Tue, 26 Nov 2002 17:39:23 +0000 (+0000)
Subject: New file.
X-Git-Tag: ids-0_0-1~182
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a31ca15ee3f1394dc7a1a5b4c7486b71879e7609;p=chise%2Fids.git

New file.
---

diff --git a/install-ids.el b/install-ids.el
new file mode 100644
index 0000000..dbb82fe
--- /dev/null
+++ b/install-ids.el
@@ -0,0 +1,42 @@
+;;; install-ids.el --- installer of IDS files.
+
+;;; Code:
+
+(setq load-ids-simplify nil)
+
+(defun install-ids-read-file (file simplify soft)
+  (princ "Loading ")
+  (princ file)
+  (princ "...")
+  (ids-read-file file simplify soft)
+  (princ "done.\n"))
+
+(let ((i 1))
+  (while (<= i 12)
+    (install-ids-read-file (format "IDS-Daikanwa-%02d.txt" i)
+			   load-ids-simplify t)
+    (setq i (1+ i))))
+
+(install-ids-read-file "IDS-CBETA.txt" load-ids-simplify t)
+
+(install-ids-read-file "IDS-Daikanwa-dx.txt" load-ids-simplify t)
+
+(install-ids-read-file "IDS-Daikanwa-ho.txt" load-ids-simplify t)
+
+(install-ids-read-file "IDS-UCS-Basic.txt" load-ids-simplify t)
+
+(install-ids-read-file "IDS-UCS-Ext-A.txt" load-ids-simplify t)
+(let ((i 1))
+  (while (<= i 6)
+    (install-ids-read-file (format "IDS-UCS-Ext-B-%d.txt" i)
+			   load-ids-simplify t)
+    (setq i (1+ i))))
+(install-ids-read-file "IDS-JIS-X0208-1990.txt" load-ids-simplify t)
+
+(princ "Saving into ")
+(princ exec-directory)
+(princ "char-db/system-char-id/ideographic-structure...")
+(save-char-attribute-table 'ideographic-structure)
+(princ "done.\n")
+
+;;; install-ids.el ends hear