From: tomo <tomo>
Date: Fri, 14 Dec 2001 05:43:58 +0000 (+0000)
Subject: New files.
X-Git-Tag: chise-base-0_23~132
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8a89ab51f334d78d9af812effd7e863bffd548a4;p=chise%2Ftomoyo-tools.git

New files.
---

diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..04d2e0a
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,65 @@
+#
+# Makefile for TOMOYO-tools.
+#
+
+PACKAGE = tomoyo
+API	= 1.14
+RELEASE = 3
+
+FLIM_API= 1.14
+
+TAR	= tar
+RM	= /bin/rm -f
+CP	= /bin/cp -p
+
+EMACS	= emacs
+XEMACS	= xemacs
+FLAGS   = -batch -q -no-site-file -l TOMOYO-MK
+
+PREFIX	= NONE
+LISPDIR = NONE
+PACKAGEDIR = NONE
+VERSION_SPECIFIC_LISPDIR = NONE
+
+GOMI	= *.elc
+
+VERSION	= $(API).$(RELEASE)
+ARC_DIR = /home/tomo/public_html/comp/emacsen/lisp/tomoyo/tomoyo-$(API)-for-flim-$(FLIM_API)
+
+
+elc:	package
+
+install-elc:	install-package
+
+install:	install-elc
+
+
+package:
+	$(XEMACS) $(FLAGS) -f compile-tomoyo-package $(PACKAGEDIR)
+
+install-package:	package
+	$(XEMACS) $(FLAGS) -f install-tomoyo-package $(PACKAGEDIR)
+
+
+clean:
+	-$(RM) $(GOMI)
+
+
+tar:
+	cvs commit
+	sh -c 'cvs tag -R $(PACKAGE)-`echo $(VERSION) | tr . _`; \
+	cd /tmp; \
+	cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root \
+		export -d $(PACKAGE)-$(VERSION) \
+		-r $(PACKAGE)-`echo $(VERSION) | tr . _` \
+		tomoyo'
+	$(RM) /tmp/$(PACKAGE)-$(VERSION)/ftp.in
+	cd /tmp; $(TAR) cvzf $(PACKAGE)-$(VERSION).tar.gz $(PACKAGE)-$(VERSION)
+	cd /tmp; $(RM) -r $(PACKAGE)-$(VERSION)
+	sed "s/VERSION/$(VERSION)/" < ftp.in | sed "s/API/$(API)/" \
+		| sed "s/PACKAGE/$(PACKAGE)/" \
+		| sed "s/FLIM_API/$(FLIM_API)/" > ftp
+
+release:
+	-$(RM) $(ARC_DIR)/$(PACKAGE)-$(VERSION).tar.gz
+	mv /tmp/$(PACKAGE)-$(VERSION).tar.gz $(ARC_DIR)
diff --git a/TOMOYO-CFG b/TOMOYO-CFG
new file mode 100644
index 0000000..9a82852
--- /dev/null
+++ b/TOMOYO-CFG
@@ -0,0 +1,36 @@
+;;; -*-Emacs-Lisp-*-
+
+;; TOMOYO-CFG: installation setting about TOMOYO.
+
+;;; Code:
+
+(require 'install)
+
+
+;;; @ Please specify prefix of install directory.
+;;;
+
+;; Please specify TOMOYO prefix [optional]
+(setq TOMOYO_PREFIX "tomoyo-tools")
+
+
+
+
+;;; @ optional settings
+;;;
+
+(defvar PACKAGEDIR
+  (if (boundp 'early-packages)
+      (let ((dirs (append (if early-package-load-path
+			      early-packages)
+			  (if late-package-load-path
+			      late-packages)
+			  (if last-package-load-path
+			      last-packages)))
+	    dir)
+	(while (not (file-exists-p
+		     (setq dir (car dirs))))
+	  (setq dirs (cdr dirs)))
+	dir)))
+
+;;; TOMOYO-CFG ends here
diff --git a/TOMOYO-ELS b/TOMOYO-ELS
new file mode 100644
index 0000000..2fc2e21
--- /dev/null
+++ b/TOMOYO-ELS
@@ -0,0 +1,15 @@
+;;; -*-Emacs-Lisp-*-
+
+;; TOMOYO-ELS: list of TOMOYO modules to install
+
+;;; Code:
+
+(setq tomoyo-modules-to-compile
+      '(csv idc-util))
+
+(setq tomoyo-modules-not-to-compile nil)
+
+(setq tomoyo-modules (append tomoyo-modules-to-compile
+			     tomoyo-modules-not-to-compile))
+
+;;; TOMOYO-ELS ends here
diff --git a/TOMOYO-MK b/TOMOYO-MK
new file mode 100644
index 0000000..1e9edbb
--- /dev/null
+++ b/TOMOYO-MK
@@ -0,0 +1,47 @@
+;;; -*-Emacs-Lisp-*-
+
+;; TOMOYO-MK: installer for TOMOYO.
+
+;;; Code:
+
+(defun config-tomoyo-package ()
+  (let (package-dir)
+    (and (setq package-dir (car command-line-args-left))
+	 (or (string= "NONE" package-dir)
+	     (defvar PACKAGEDIR package-dir)
+	     ))
+    (setq command-line-args-left (cdr command-line-args-left))
+    (load-file "TOMOYO-CFG")
+    (load-file "TOMOYO-ELS")
+					  
+    (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))
+    ))
+
+(defun compile-tomoyo-package ()
+  (config-tomoyo-package)
+
+  (setq autoload-package-name "tomoyo")
+  (add-to-list 'command-line-args-left ".")
+  (batch-update-directory)
+
+  (add-to-list 'command-line-args-left ".")
+  (Custom-make-dependencies)
+
+  (compile-elisp-modules (append tomoyo-modules-to-compile
+				 '(auto-autoloads custom-load))
+			 ".")
+  )
+
+(defun install-tomoyo-package ()
+  (config-tomoyo-package)
+  (install-elisp-modules (append tomoyo-modules
+				 '(auto-autoloads custom-load))
+			 "./"
+			 (expand-file-name TOMOYO_PREFIX
+					   (expand-file-name "lisp"
+							     PACKAGEDIR)))
+  (delete-file "./auto-autoloads.el")
+  (delete-file "./custom-load.el")
+  )
+
+;;; TOMOYO-MK ends here
diff --git a/csv.el b/csv.el
new file mode 100644
index 0000000..fb34217
--- /dev/null
+++ b/csv.el
@@ -0,0 +1,96 @@
+;;; csv.el --- Parser and utility for CSV (Comma Separated Value).
+
+;; Copyright (C) 2001 MORIOKA Tomohiko
+
+;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+;; Keywords: CSV, table, database
+
+;; This file is a part of Tomoyo Utilities.
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+(defun csv-parse-quoted-string (string)
+  (let ((len (length string))
+	(i 1))
+    (when (and (>= len 2)
+	       (eq (aref string 0) ?\"))
+      (setq len (1- len))
+      (while (and (< i len)
+		  (not (eq (aref string i) ?\")))
+	(setq i (1+ i)))
+      (when (eq (aref string i) ?\")
+	(cons (substring string 1 i)
+	      (substring string (1+ i)))))))
+
+(defun csv-parse-atom (string)
+  (let ((len (length string))
+	(i 0))
+    (if (= len 0)
+	'("")
+      (when (not (eq (aref string 0) ?\"))
+	(while (and (< i len)
+		    (not (eq (aref string i) ?,))
+		    (not (eq (aref string i) ?\")))
+	  (setq i (1+ i)))
+	(cons (substring string 0 i)
+	      (substring string i))))))
+
+(defun csv-parse-separator (string)
+  (let ((len (length string)))
+    (when (and (>= len 1)
+	       (eq (aref string 0) ?,))
+      (cons (substring string 0 1)
+	    (substring string 1)))))
+
+(defun csv-parse-string* (string)
+  (let (ret dest)
+    (while (and string
+		(prog1
+		    (setq ret (or (csv-parse-quoted-string string)
+				  (csv-parse-atom string)))
+		  (setq string (cdr ret)))
+		(setq dest (cons (car ret) dest))
+		(setq ret (csv-parse-separator string)))
+      (setq string (cdr ret)))
+    (cons (nreverse dest)
+	  (if (> (length string) 0)
+	      string))))
+
+(defun csv-parse-string (string)
+  (let (ret dest)
+    (while (and string
+		(prog1
+		    (setq ret (or (csv-parse-quoted-string string)
+				  (csv-parse-atom string)))
+		  (setq string (cdr ret)))
+		(setq dest (cons (car ret) dest))
+		(setq ret (csv-parse-separator string)))
+      (setq string (cdr ret)))
+    (if (> (length string) 0)
+	nil
+      (nreverse dest))))
+
+
+;;; @ End.
+;;;
+
+(provide 'csv)
+
+;;; csv.el ends here
diff --git a/idc-util.el b/idc-util.el
new file mode 100644
index 0000000..684187b
--- /dev/null
+++ b/idc-util.el
@@ -0,0 +1,183 @@
+;;; idc-util.el --- Utilities about ideographic-structure property
+
+;; Copyright (C) 2001 MORIOKA Tomohiko
+
+;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+;; Keywords: ideographic-structure, UTF-2000, database
+
+;; This file is a part of Tomoyo Utilities.
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+(defun ideographic-structure-convert-to-ucs (structure)
+  (let (dest cell ucs ret)
+    (while structure
+      (setq cell (car structure))
+      (setq dest
+	    (cons
+	     (cond ((characterp cell)
+		    (if (or (get-char-attribute cell 'ucs)
+			    (null
+			     (setq ucs
+				   (or (get-char-attribute cell '=>ucs)
+				       (get-char-attribute cell '->ucs)))))
+			cell
+		      (decode-char 'ucs ucs)))
+		   ((and (consp cell)
+			 (symbolp (car cell)))
+		    cell)
+		   ((setq ret (find-char cell))
+		    (if (or (get-char-attribute ret 'ucs)
+			    (null
+			     (setq ucs
+				   (or (get-char-attribute ret '=>ucs)
+				       (get-char-attribute ret '->ucs)))))
+			cell
+		      (decode-char 'ucs ucs)))
+		   ((setq ret (assq 'ideographic-structure cell))
+		    (put-alist 'ideographic-structure
+			       (ideographic-structure-convert-to-ucs
+				(cdr ret))
+			       (copy-alist cell)))
+		   (t cell))
+	     dest))
+      (setq structure (cdr structure)))
+    (nreverse dest)))
+
+(defvar morohashi-char-replace-alist
+  (list
+   (cons (decode-char 'chinese-big5-cdp #x8B42)
+	 (decode-char 'chinese-big5-cdp #x8B42))
+   (cons (decode-char 'chinese-big5-cdp #x8AFC)
+	 (decode-char 'chinese-big5-cdp #x8AFC))
+   (cons (decode-char 'ucs #x2EBE)
+	 (decode-char 'ucs #x2EBF))
+   (cons (decode-char 'ucs #x5922)
+	 (decode-char 'ideograph-daikanwa 05802))
+   (cons (decode-char 'ucs #x656C)
+	 (decode-char 'ideograph-daikanwa 13303))
+   (cons (decode-char 'ucs #x8449)
+	 (decode-char 'ideograph-daikanwa 31387))
+   (cons (decode-char 'ucs #x2EA4)
+	 (decode-char 'ucs #x722B))
+   (cons (decode-char 'ucs #x5151)
+	 (decode-char 'ideograph-daikanwa 01356))
+   (cons (decode-char 'ucs #x544A)
+	 (decode-char 'ideograph-daikanwa 03381))
+   (cons (decode-char 'ucs #x5F66)
+	 (decode-char 'ideograph-daikanwa 09980))
+   (cons (decode-char 'ucs #x8005)
+	 (decode-char 'ideograph-daikanwa 28853))
+   (cons (decode-char 'ucs #x82E5)
+	 (decode-char 'ideograph-daikanwa 30796))
+   (cons (decode-char 'ucs #x82F1)
+	 (decode-char 'ideograph-daikanwa 30808))
+   (cons (decode-char 'ucs #x9063)
+	 (decode-char 'ideograph-daikanwa 39052))
+   (cons (decode-char 'ucs #x4EA0)
+	 (decode-char 'chinese-big5-cdp #x8B42))
+   (cons (decode-char 'ucs #x5154)
+	 (decode-char 'ideograph-daikanwa 01368))
+   (cons (decode-char 'ucs #x53CA)
+	 (decode-char 'ideograph-daikanwa 03118))
+   (cons (decode-char 'ucs #x5468)
+	 (decode-char 'ideograph-daikanwa 03441))
+   (cons (decode-char 'ucs #x5C1A)
+	 (decode-char 'ucs #x5C19))
+   (cons (decode-char 'ucs #x5D29)
+	 (decode-char 'ideograph-daikanwa 08212))
+   (cons (decode-char 'ucs #x670B)
+	 (decode-char 'ideograph-daikanwa 14340))
+   (cons (decode-char 'ucs #x7FBD)
+	 (decode-char 'ideograph-daikanwa 28614))
+   (cons (decode-char 'ucs #x8096)
+	 (decode-char 'ideograph-daikanwa 29263))
+   (cons (decode-char 'ucs #x8981)
+	 (decode-char 'ideograph-daikanwa 34768))
+   (cons (decode-char 'ucs #x8AF8)
+	 (decode-char 'ideograph-daikanwa 35743))
+   (cons (decode-char 'ucs #x9023)
+	 (decode-char 'ideograph-daikanwa 38902))
+   (cons (decode-char 'ucs #x9752)
+	 (decode-char 'ucs #x9751))
+   ))
+
+(defun ideographic-structure-convert-to-daikanwa (structure)
+  (let (dest cell morohashi ret)
+    (while structure
+      (setq cell (car structure))
+      (setq dest
+	    (cons
+	     (cond ((characterp cell)
+		    (cond ((setq ret
+				 (assq cell morohashi-char-replace-alist))
+			   (cdr ret))
+			  ((get-char-attribute cell 'ideograph-daikanwa)
+			   cell)
+			  ((setq morohashi
+				 (get-char-attribute
+				  cell 'morohashi-daikanwa))
+			   (cond ((null (cdr (cdr morohashi)))
+				  cell)
+				 ((= (nth 1 morohashi) 0)
+				  (decode-char 'ideograph-daikanwa
+					       (car morohashi)))
+				 (t
+				  (setq morohashi (list (car morohashi)
+							(nth 1 morohashi)))
+				  (or (map-char-attribute
+				       (lambda (char val)
+					 (if (equal morohashi val)
+					     char))
+				       'morohashi-daikanwa)
+				      cell))))
+			  (t
+			   cell)))
+		   ((and (consp cell)
+			 (symbolp (car cell)))
+		    cell)
+		   ((setq ret (find-char cell))
+		    (if (or (get-char-attribute ret 'ideograph-daikanwa)
+			    (null
+			     (setq morohashi
+				   (get-char-attribute
+				    ret 'morohashi-daikanwa)))
+			    (null (cdr (cdr morohashi))))
+			cell
+		      (if (= (nth 1 morohashi) 0)
+			  (decode-char 'ideograph-daikanwa (car morohashi))
+			cell)))
+		   ((setq ret (assq 'ideographic-structure cell))
+		    (put-alist 'ideographic-structure
+			       (ideographic-structure-convert-to-daikanwa
+				(cdr ret))
+			       (copy-alist cell)))
+		   (t cell))
+	     dest))
+      (setq structure (cdr structure)))
+    (nreverse dest)))
+
+
+;;; @ End.
+;;;
+
+(provide 'idc-util)
+
+;;; idc-util.el ends here