From: 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/cgi-bin/gitweb.cgi?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 +;; 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 +;; 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