;;; SKK-MK.xep --- installer for SKK of XEmacs Package -*- mode: emacs-lisp; coding: utf-8 -*- ;; Copyright (C) 1999, 2000 NAKAJIMA Mikio ;; Copyright (C) 2003-2007 SKK Development Team ;; Author: NAKAJIMA Mikio ;; Maintainer: SKK Development Team ;;; Commentary: ;; Those values of variables below are default configurations. ;; If you would like to change some of those, you should edit SKK-CFG. ;; ;; DO NOT EDIT THIS FILE DIRECTLY! ;; ;; Variable sections are all three parts. GENERIC VARIABLE section, ;; NON-PACKAGE INSTALL RELATED VARIABLE section, and PACKAGE INSTALL ;; RELATED VARIABLE section. ;; ;; You can confirm target directories without an actual installation ;; by M-x SKK-MK-what-where or M-x SKK-MK-what-where-package after ;; load this program. ;;; Code: (when (string-lessp emacs-version "19") (error "%s" "\ Emacs 18 or older is not supported by this version of SKK. Try ddskk-e18 branch")) (when (string-lessp emacs-version "20.3") (error "%s" "\ Emacs 20.2 and Mule 2.3 (Emacs 19) is not supported by this version of SKK. Please install Daredevil SKK 11.6.0")) (when (string-lessp emacs-version "21.0") (error "%s" "\ Emacs 20.7 is not supported by this version of SKK. Please install Daredevil SKK 13.1 or 14.1")) (when (and (featurep 'emacs) (string-lessp emacs-version "22.0")) (error "%s" "\ GNU Emacs 21 is not supported by this version of SKK. Please install Daredevil SKK 14.4")) (when (and (featurep 'emacs) (string-lessp emacs-version "23.0")) (error "%s" "\ GNU Emacs 22 is not supported by this version of SKK. Please install Daredevil SKK 16.1")) (unless (featurep 'mule) (error "%s" "\ This version of SKK requires MULE features")) (set-language-environment "Japanese") ;; Variables. (defvar APEL_DIR nil) (defvar EMU_DIR nil) (defvar PREFIX nil) (defvar LISPDIR nil) (defvar VERSION_SPECIFIC_LISPDIR nil) (defvar ADDITIONAL_LISPDIR nil) (defvar EMACS_SELF_CONTAINED nil) (defvar running-gnu-emacs (or (featurep 'emacs) (string-match "^GNU" (emacs-version)))) ;; load user custom file. (load (expand-file-name "SKK-CFG") t nil nil) ;; install.el を読み込む前に APEL_DIR へのパスを保証する (when (stringp APEL_DIR) (let ((dir (expand-file-name APEL_DIR))) (when (file-directory-p dir) (add-to-list 'load-path dir)))) (when (stringp EMU_DIR) (let ((dir (expand-file-name EMU_DIR))) (when (file-directory-p dir) (add-to-list 'load-path dir)))) (require 'install (expand-file-name "./ddskk/install.el")) (setq install-prefix (cond ((eq system-type 'windows-nt) ;; Meadow と NTEmacs は自己完結型。これらに対して APEL が標準で ;; 設定する install-prefix は不自然なので、ここで修正する。 (setq EMACS_SELF_CONTAINED t) (if (string-match "libexec" exec-directory) (expand-file-name "share/emacs" (expand-file-name "../../../../" exec-directory)) (expand-file-name ".." exec-directory))) ((eq system-type 'darwin) ;; Mac OS X (Carbon emacs, Cocoa Emacs または OS 付属の Emacs) ;; で DDSKK を build する場合は自己完結型かどうかを選べる。 ;; ユーザが自己完結型を使っているかどうか調べる。 (let ((dir (expand-file-name ".." data-directory))) (if (string-match "/.+\\.app/Contents/Resources/?$" dir) ;; 自己完結型 (progn (setq EMACS_SELF_CONTAINED t) dir) ;; UNIX 的環境と同様 (expand-file-name "../../../.." data-directory)))) ((featurep 'xemacs) ;; running-xemacs (expand-file-name "../../.." exec-directory)) (t (expand-file-name "../../../.." data-directory)))) ;;;; User variables to control SKK-MK. (defvar SKK-MK-debugging nil "*Non-nil means making verbose output.") ;;;; load-path related. (setq load-path (cons (expand-file-name "./ddskk") load-path)) ;; 変数 install-prefix は install.el で定義されており、 ;; その値は UNIX 的環境では "/usr/local" のような値となる。 ;; 非 UNIX 的環境のために上記の setq で install-prefix を再設定している。 ;; 非 UNIX 的環境では通常自己完結型 (self-contained) のファイル配置を ;; とる。この場合、特定のディレクトリ下に etc, info, lisp, site-lisp ;; などのディレクトリが全て含まれている。 ;; (実は Emacs 18 までは UNIX 環境でも自己完結型であった。) (unless PREFIX (setq PREFIX install-prefix)) (unless LISPDIR (setq LISPDIR (cond (EMACS_SELF_CONTAINED ;; Meadow, NTEmacs, Carbon Emacs, Cocoa Emacs (expand-file-name "site-lisp" PREFIX)) (t (install-detect-elisp-directory PREFIX))))) (when (stringp LISPDIR) (setq LISPDIR (expand-file-name LISPDIR)) (when (file-directory-p LISPDIR) (add-to-list 'load-path LISPDIR))) (unless VERSION_SPECIFIC_LISPDIR (setq VERSION_SPECIFIC_LISPDIR (cond (EMACS_SELF_CONTAINED ;; Meadow, NTEmacs, Carbon Emacs, Cocoa Emacs (expand-file-name "site-lisp" PREFIX)) (t (install-detect-elisp-directory PREFIX nil 'version-specific))))) (when (stringp VERSION_SPECIFIC_LISPDIR) (setq VERSION_SPECIFIC_LISPDIR (expand-file-name VERSION_SPECIFIC_LISPDIR)) (when (file-directory-p VERSION_SPECIFIC_LISPDIR) (add-to-list 'load-path VERSION_SPECIFIC_LISPDIR))) (when (stringp ADDITIONAL_LISPDIR) (setq ADDITIONAL_LISPDIR (expand-file-name ADDITIONAL_LISPDIR)) (when (file-directory-p ADDITIONAL_LISPDIR) (add-to-list 'load-path VERSION_SPECIFIC_LISPDIR))) (when SKK-MK-debugging (princ (format "1:APEL_DIR=%s\n" APEL_DIR)) (princ (format "2:load-path=%s\n" load-path))) ;; After determining APEL installed dirctory. (when (featurep 'xemacs) (condition-case nil (require 'product) ; emu (error (error "%s" "DDSKK requires APEL/10.7 or later for XEmacs"))) (unless (product-version>= 'apel-ver '(10 7)) (error "%s" "DDSKK requires APEL/10.7 or later for XEmacs"))) ;; constants. (defconst SKK-MK-texinfo-coding-system 'iso-2022-7bit) ;; GENERIC VARIABLE. (defvar DOCDIR "./ddskk/doc") (defvar ETCDIR "./ddskk/etc") (defvar DICDIR "./ddskk/dic") (defvar SKK_PREFIX "skk") (defvar SKK_INFO "./ddskk/skk.info") (defvar SKK_INFO_DIR_FILE nil) (defvar SKK_TEXIS '("./ddskk/skk.texi")) (defvar SKK_TUTORIALS '("SKK.tut" "SKK.tut.E" "NICOLA-SKK.tut" "skk.xpm")) (defvar SKK_DICTIONARIES '("SKK-JISYO.L" "SKK-JISYO.ML" "SKK-JISYO.M" "SKK-JISYO.S" "SKK-JISYO.JIS2" "SKK-JISYO.JIS3_4" "SKK-JISYO.pubdic+" "SKK-JISYO.edict" "SKK-JISYO.okinawa" "SKK-JISYO.geo" "SKK-JISYO.jinmei" "SKK-JISYO.law" "SKK-JISYO.mazegaki" "SKK-JISYO.assoc" "SKK-JISYO.itaiji" "SKK-JISYO.itaiji.JIS3_4" "SKK-JISYO.china_taiwan" "SKK-JISYO.propernoun" "SKK-JISYO.station" "SKK-JISYO.requested" "SKK-JISYO.fullname" "SKK-JISYO.JIS2004" "SKK-JISYO.office.zipcode" "SKK-JISYO.zipcode" "SKK-JISYO.lisp")) (setq SKK_DICTIONARIES (append SKK_DICTIONARIES (mapcar (lambda (dic) (format "%s.cdb" dic)) SKK_DICTIONARIES))) (defvar SKK_DEFAULT_JISYO nil) (defvar SKK_MODULES ;; こんなもんコマンドラインで指定する人いないよね？ (let ((list '(cdb context-skk skk-abbrev skk-act skk-annotation skk-auto skk-autoloads skk-azik skk-bayesian skk-cdb skk-comp skk-cursor skk-cus skk-dcomp skk-develop skk-gadget skk-hint skk-inline skk-isearch skk-jisx0201 skk-jisyo-edit-mode skk-kakasi skk-kcode skk-leim skk-look skk-macs skk-num skk-search-web skk-server-completion skk-server skk-show-mode skk-sticky skk-study skk-tankan skk-tut skk-vars skk-version skk tar-util ;; EXPERIMENTAL skk-correct skk-exsearch skk-exserv skk-rdbms skk-tutcdef skk-tutcode skk-w3m ;; VIP 3.7 ;; vip ))) (cond ((featurep 'xemacs) ; XEmacs (when (or (featurep 'gdbm) (featurep 'dbm) (featurep 'berkdb) (featurep 'berkeley-db)) (add-to-list 'list 'skk-dbm)) (add-to-list 'list 'skk-xemacs)) (running-gnu-emacs ; FSFmacs (add-to-list 'list 'ccc) (add-to-list 'list 'skk-emacs))) ;; skk-jisx0213.el (when (or (coding-system-p 'euc-jisx0213) (and (fboundp 'find-coding-system) (find-coding-system 'euc-jisx0213)) (condition-case nil (and (require 'jisx0213) ; Mule-UCS (require 'un-define)) ; Mule-UCS (error))) (add-to-list 'list 'skk-jisx0213)) ;; skk-lookup.el (when (condition-case nil ;; you might have to add lookup installed directory ;; to `load-path'. (let ((lookup-byte-compile t)) (require 'lookup)) (error)) (add-to-list 'list 'skk-lookup)) ;; skk-w3m.el ;;(when (condition-case nil ;; (require 'w3m-search) ;; (error)) ;; (add-to-list 'list 'skk-w3m)) ;; skk-viper.el (when (condition-case nil (require 'viper) (error)) (add-to-list 'list 'skk-viper)) ;; list)) (when SKK-MK-debugging (princ (format "3-1:SKK_MODULES=%s\n" SKK_MODULES))) ;; 消さなくともインストール上は問題がないが、what-where にてインストールされな ;; いプログラムが表示されるのを防ぐため、トップディレクトリにないプログラムは ;; 消しておく。 (let ((modules SKK_MODULES)) (while modules (unless (or ;; skk-autoloads.el は自動生成されるのでまだ存在しない。 (memq (car modules) '(skk-autoloads)) (file-exists-p (concat "./ddskk/" (symbol-name (car modules)) ".el"))) (setq SKK_MODULES (delq (car modules) SKK_MODULES))) (setq modules (cdr modules)))) (when SKK-MK-debugging (princ (format "3-2:SKK_MODULES=%s\n" SKK_MODULES))) (defun SKK-MK-server-installed-p () ;; Check whether we can talk to the server. (require 'skk-server (expand-file-name "./ddskk/skk-server.el")) (let ((skk-server-inhibit-startup-server t)) (condition-case nil (prog1 (skk-server-live-p (skk-open-server)) (skk-disconnect-server)) (error)))) (when SKK-MK-debugging (princ (format "4:SKK_MODULES=%s\n" SKK_MODULES))) ;(defvar SKK_SET_JISYO (not (SKK-MK-server-installed-p))) (when SKK-MK-debugging (princ (format "5:SKK_MODULES=%s\n" SKK_MODULES))) ;; NON-PACKAGE INSTALL RELATED VARIABLE. (defvar SKK_DATADIR (cond ((and (eq system-type 'windows-nt) (string-match "libexec" exec-directory)) (expand-file-name "skk" data-directory)) (t (let ((subdir (cond (EMACS_SELF_CONTAINED ;; Meadow, NTEmacs, Carbon Emacs, Cocoa Emacs "etc") (t "share")))) (expand-file-name SKK_PREFIX (expand-file-name subdir PREFIX)))))) (when SKK-MK-debugging (princ (format "6:SKK_MODULES=%s\n" SKK_MODULES))) (defvar SKK_INFODIR (cond ((file-directory-p (expand-file-name "info" (expand-file-name "share" PREFIX))) (expand-file-name "info" (expand-file-name "share" PREFIX))) ((file-directory-p (expand-file-name "info" PREFIX)) (expand-file-name "info" PREFIX)) ((file-directory-p (expand-file-name "info" (expand-file-name ".." PREFIX))) (expand-file-name "info" (expand-file-name ".." PREFIX))) (t (let ((list Info-default-directory-list) dir) (while (and (not dir) list) (when (file-directory-p (car list)) (setq dir (car list))) (setq list (cdr list))) dir))) (expand-file-name "info" PREFIX)) (defvar SKK_LISPDIR (cond (VERSION_SPECIFIC_LISPDIR (expand-file-name SKK_PREFIX VERSION_SPECIFIC_LISPDIR)) (PREFIX (expand-file-name SKK_PREFIX (install-detect-elisp-directory PREFIX))) (t nil))) (defconst SKK_DAREDEVIL_NOT_USE '(skk-vip skk-foreword stack-m skk-cursor2 skk-cursor3)) ;; PACKAGE INSTALL RELATED VARIABLE. (defvar PACKAGEDIR (install-get-default-package-directory)) (defvar PACKAGE_INFODIR (expand-file-name "info" PACKAGEDIR)) (defvar PACKAGE_DATADIR (expand-file-name SKK_PREFIX (expand-file-name "etc" PACKAGEDIR))) (defvar PACKAGE_LISPDIR (expand-file-name SKK_PREFIX (expand-file-name "lisp" PACKAGEDIR))) (when SKK-MK-debugging (princ (format "7:SKK_MODULES=%s\n" SKK_MODULES))) ;; This code is for skk-jisx0201.el. (when (fboundp 'make-translation-table) ;; FSF Emacs 20.3 or later (setq standard-translation-table-for-decode (make-translation-table nil))) ;;; [FUNCTIONS] (defun SKK-MK-make-setup-file (spec) ;; SPEC は交代リスト。 (with-temp-buffer (save-excursion (insert-file-contents "skk-setup.el.in") (goto-char (point-min)) (when (looking-at ";;; -\\*- emacs-lisp -\\*-") (delete-region (point) (progn (forward-line 1) (point)))) (when (search-forward ";;; skk-setup.el --- initial setup for SKK") (forward-line 1) (insert ";; This file was generated automatically by SKK-MK at " (current-time-string) "\n")) (while spec (goto-char (point-min)) (while (re-search-forward (concat "^;;[^@]+\\(" (car spec) "\\)") nil t nil) (delete-region (match-beginning 1) (match-end 1)) (insert (nth 1 spec)) (beginning-of-line) (while (looking-at ";") (delete-char 1))) (setq spec (nthcdr 2 spec))) (write-region (point-min) (point-max) "skk-setup.el")))) (defun SKK-MK-compile () (let (enable-local-eval) (SKK-MK-generate-autoloads-el) (load (expand-file-name "skk-autoloads.el")) (require 'skk (expand-file-name "skk.el")) (compile-elisp-modules SKK_MODULES (expand-file-name ".")))) (defun SKK-MK-compile-info () (when (and SKK_INFO (or (not (file-exists-p (expand-file-name SKK_INFO DOCDIR))) (file-newer-than-file-p (expand-file-name (car SKK_TEXIS) DOCDIR) (expand-file-name SKK_INFO DOCDIR)))) (SKK-MK-texinfo-format SKK_TEXIS))) (defun SKK-MK-compile-package () (when SKK-MK-debugging (princ (format "8:SKK_MODULES=%s\n" SKK_MODULES))) (SKK-MK-generate-autoloads-el-package) (setq features (delq 'skk-autoloads features)) (require 'skk-autoloads (expand-file-name "./ddskk/auto-autoloads.el")) (when SKK-MK-debugging (princ (format "9:SKK_MODULES=%s\n" SKK_MODULES))) (require 'skk (expand-file-name "./ddskk/skk.el")) (when SKK-MK-debugging (princ (format "10:SKK_MODULES=%s\n" SKK_MODULES))) (autoload 'custom-add-loads "cus-load") (compile-elisp-modules '(auto-autoloads custom-load skk-setup) "./ddskk") (compile-elisp-modules SKK_MODULES (expand-file-name "./ddskk"))) (defun SKK-MK-install () (SKK-MK-install-elc) (SKK-MK-install-info)) (defun SKK-MK-install-elc () (let ((dics SKK_DICTIONARIES) ;;standard-output delete-target exists spec) ;; make target directories. (setq DOCDIR (expand-file-name DOCDIR) ETCDIR (expand-file-name ETCDIR) DICDIR (expand-file-name DICDIR)) (unless (file-exists-p SKK_LISPDIR) (make-directory SKK_LISPDIR t)) (unless (file-exists-p SKK_DATADIR) (make-directory SKK_DATADIR t)) ;; delete already installed unnecessary files. (while SKK_DAREDEVIL_NOT_USE (setq SKK_MODULES (delq (car SKK_DAREDEVIL_NOT_USE) SKK_MODULES) delete-target (expand-file-name (concat (prin1-to-string (car SKK_DAREDEVIL_NOT_USE)) ".el") SKK_LISPDIR) SKK_DAREDEVIL_NOT_USE (cdr SKK_DAREDEVIL_NOT_USE)) (when (file-exists-p delete-target) (delete-file delete-target)) (setq delete-target (concat delete-target "c")) (when (file-exists-p delete-target) (delete-file delete-target))) ;; install Emacs Lisp programs. (SKK-MK-compile) (install-elisp-modules SKK_MODULES "." SKK_LISPDIR) (delete-file "./skk-autoloads.el") ;; make skk-setup.el. (while dics (when (file-exists-p (expand-file-name (car dics) DICDIR)) (setq exists (cons (car dics) exists))) (setq dics (cdr dics))) (setq SKK_DICTIONARIES exists) ;; move existing largest dictionay to car of `SKK_DICTIONARIES'. (when (member "SKK-JISYO.M" SKK_DICTIONARIES) (setq SKK_DICTIONARIES (cons "SKK-JISYO.M" (delete "SKK-JISYO.M" SKK_DICTIONARIES)))) (when (member "SKK-JISYO.ML" SKK_DICTIONARIES) (setq SKK_DICTIONARIES (cons "SKK-JISYO.ML" (delete "SKK-JISYO.ML" SKK_DICTIONARIES)))) (when (member "SKK-JISYO.L" SKK_DICTIONARIES) (setq SKK_DICTIONARIES (cons "SKK-JISYO.L" (delete "SKK-JISYO.L" SKK_DICTIONARIES)))) (when SKK_TUTORIALS (setq spec (append spec (list "@TUT@" (expand-file-name (car SKK_TUTORIALS) SKK_DATADIR))))) (cond (SKK_DICTIONARIES (setq spec (append spec (list "@AUXDIC@" (expand-file-name (car SKK_DICTIONARIES) SKK_DATADIR)))) (when SKK_SET_JISYO (setq spec (append spec (list "@DIC@" (expand-file-name (car SKK_DICTIONARIES) SKK_DATADIR)))))) (t ;; when dictionaries do not exist in ./dic subdirectory, check ;; already installed dictionary and detect largest one to setup ;; skk-setup.el.in. (setq dics '("SKK-JISYO.L" "SKK-JISYO.ML" "SKK-JISYO.M" "SKK-JISYO.S")) (while (and dics (not (file-exists-p (expand-file-name (car dics) SKK_DATADIR)))) (setq dics (cdr dics))) (when dics (setq spec (append spec (list "@AUXDIC@" (expand-file-name (car dics) SKK_DATADIR)))) (when SKK_SET_JISYO (setq spec (append spec (list "@DIC@" (expand-file-name (car dics) SKK_DATADIR)))))))) (if (not spec) ;; merely copy without setup dictionary information. (copy-file "skk-setup.el.in" "skk-setup.el" 'ok-if-already-exists) (SKK-MK-make-setup-file spec)) (when SKK_DICTIONARIES ;; install dictionaries if the files exist in ./dic directory. (install-files SKK_DICTIONARIES DICDIR SKK_DATADIR nil t nil)) (when running-gnu-emacs (copy-file "./leim-list.el.in" "./leim-list.el" 'overwrite) (install-elisp-modules (list 'leim-list) "." SKK_LISPDIR) (delete-file "./leim-list.el")) ;; install skk-setup.el (install-elisp-modules (list 'skk-setup) "." SKK_LISPDIR) ;; install tutorials. (install-files SKK_TUTORIALS ETCDIR SKK_DATADIR nil t nil) (SKK-MK-detect-shadow-directory))) (defun SKK-MK-detect-shadow-directory () (condition-case nil (progn (require 'shadow) (save-match-data (let ((list (find-emacs-lisp-shadows load-path)) shadowed) (while list (if (and (string-match "skk-autoloads" (car list)) (setq list (cdr list)) (string-match "skk-autoloads" (car list))) (setq shadowed (substring (file-name-directory (car list)) 0 -1) list nil)) (setq list (cdr list))) (when shadowed (princ (format "\ ** WARNING ** %s is shadowed. You might want to remove it " shadowed)))))) (error))) (defun SKK-MK-install-info () (when SKK_INFO (unless (file-exists-p SKK_INFODIR) (make-directory SKK_INFODIR t)) (SKK-MK-compile-info) (install-files (list SKK_INFO) ;defun in install.el DOCDIR SKK_INFODIR nil t nil) (when noninteractive (SKK-MK-install-info-1)))) (defun SKK-MK-install-info-1 () "Updates info/dir entries." (when SKK_INFO ;; updates info/dir entries. (require 'install-info (expand-file-name "install-info.el")) (let ((info-file (expand-file-name SKK_INFO SKK_INFODIR)) (dir-file (cond ((file-exists-p (expand-file-name "dir" SKK_INFODIR)) (expand-file-name "dir" SKK_INFODIR)) ((file-exists-p (expand-file-name "dir.info" SKK_INFODIR)) (expand-file-name "dir.info" SKK_INFODIR)) (t (expand-file-name "dir" SKK_INFODIR))))) (when (file-readable-p dir-file) (install-info info-file dir-file nil nil 'delete)) (install-info info-file dir-file nil nil nil) (setq SKK_INFO_DIR_FILE dir-file)))) (defun SKK-MK-install-package () (unless (featurep 'xemacs) (error "%s" "This directcive is only for XEmacs.")) (let ((dics SKK_DICTIONARIES) delete-target exist spec) ;; make target directories. (unless (file-exists-p PACKAGE_LISPDIR) (make-directory PACKAGE_LISPDIR t)) (unless (file-exists-p PACKAGE_DATADIR) (make-directory PACKAGE_DATADIR t)) (unless (file-exists-p PACKAGE_INFODIR) (make-directory PACKAGE_INFODIR t)) ;; delete already installed unnecessary files. (setq SKK_MODULES (delq 'skk-autoloads (append SKK_MODULES '(auto-autoloads custom-load)))) (while SKK_DAREDEVIL_NOT_USE (setq SKK_MODULES (delq (car SKK_DAREDEVIL_NOT_USE) SKK_MODULES) delete-target (expand-file-name (concat (prin1-to-string (car SKK_DAREDEVIL_NOT_USE)) ".el") PACKAGE_LISPDIR) SKK_DAREDEVIL_NOT_USE (cdr SKK_DAREDEVIL_NOT_USE)) (when (file-exists-p delete-target) (delete-file delete-target)) (setq delete-target (concat delete-target "c")) (when (file-exists-p delete-target) (delete-file delete-target))) ;; install Emacs Lisp programs. (SKK-MK-compile-package) (install-elisp-modules SKK_MODULES "." PACKAGE_LISPDIR) (delete-file "./auto-autoloads.el") (delete-file "./custom-load.el") ;; make skk-setup.el. (when SKK_TUTORIALS (setq spec (list "@TUT@" (expand-file-name (car SKK_TUTORIALS) PACKAGE_DATADIR)))) (while dics (when (file-exists-p (expand-file-name (car dics) DICDIR)) (setq exist (cons (car dics) exist))) (setq dics (cdr dics))) (setq SKK_DICTIONARIES exist) ;; move existing largest dictionay to car of `SKK_DICTIONARIES'. (when (member "SKK-JISYO.M" SKK_DICTIONARIES) (setq SKK_DICTIONARIES (cons "SKK-JISYO.M" (delete "SKK-JISYO.M" SKK_DICTIONARIES)))) (when (member "SKK-JISYO.ML" SKK_DICTIONARIES) (setq SKK_DICTIONARIES (cons "SKK-JISYO.ML" (delete "SKK-JISYO.ML" SKK_DICTIONARIES)))) (when (member "SKK-JISYO.L" SKK_DICTIONARIES) (setq SKK_DICTIONARIES (cons "SKK-JISYO.L" (delete "SKK-JISYO.L" SKK_DICTIONARIES)))) (cond (SKK_DICTIONARIES (setq spec (append spec (list "@AUXDIC@" (expand-file-name (car SKK_DICTIONARIES) PACKAGE_DATADIR)))) (when SKK_SET_JISYO (setq spec (append spec (list "@DIC@" (expand-file-name (car SKK_DICTIONARIES) PACKAGE_DATADIR))))) ;; install dictionaries if the files exist in ./dic directory. (install-files SKK_DICTIONARIES DICDIR PACKAGE_DATADIR nil t nil)) (t ;; when dictionaries do not exist in ./dic subdirectory, check ;; already installed dictionary and detect largest one to setup ;; skk-setup.el.in. (setq dics '("SKK-JISYO.L" "SKK-JISYO.ML" "SKK-JISYO.M" "SKK-JISYO.S")) (while (and dics (not (or (file-exists-p (expand-file-name (car dics) PACKAGE_DATADIR)) (file-exists-p (expand-file-name (car dics) SKK_DATADIR))))) (setq dics (cdr dics))) (when dics (let ((dic (if (file-exists-p (expand-file-name (car dics) PACKAGE_DATADIR)) (expand-file-name (car dics) PACKAGE_DATADIR) (expand-file-name (car dics) SKK_DATADIR)))) (setq spec (nconc spec (list "@AUXDIC@" dic))) (when SKK_SET_JISYO (setq spec (nconc spec (list "@DIC@" dic)))))))) (if (not spec) ;; merely copy without setup dictionary information. (copy-file "skk-setup.el.in" "skk-setup.el" 'ok-if-already-exists) (SKK-MK-make-setup-file spec)) ;; install skk-setup.el (install-elisp-modules (list 'skk-setup) "." PACKAGE_LISPDIR) ;; install infos. (SKK-MK-compile-info) (when SKK_INFO (let ((files (list SKK_INFO)) (i 1) file) (while (file-exists-p (expand-file-name (setq file (format "%s-%d" SKK_INFO i)) DOCDIR)) (setq files (cons file files)) (setq i (1+ i))) (install-files (nreverse files) DOCDIR PACKAGE_INFODIR nil t nil))) ;; install tutorials. (install-files SKK_TUTORIALS ETCDIR PACKAGE_DATADIR nil t nil) (SKK-MK-detect-shadow-directory))) ;;; 2014-12-31, skk.texi を utf-8 としたことに伴い、不要となったが、 ;;; 将来的に pre-format を要することが考えられるため、枠組みは残す。 (defun SKK-MK-texinfo-pre-format () ;; http://mail.ring.gr.jp/skk/201112/msg00023.html ;; (unless (and (featurep 'emacs) ;; (>= emacs-major-version 23)) ;; (dolist (str '("\C-[$(Q\"1\C-[(B" "\C-[$(Q\"Q\C-[(B" "\C-[$(Q\"q\C-[(B")) ;; (goto-char (point-min)) ;; (when (search-forward str nil t) ;; (replace-match " ")))) nil) (defun SKK-MK-texinfo-post-format () (goto-char (point-min)) (when (re-search-forward "-\\*-Text-\\*-" (point-at-eol) t) (replace-match (format "-*- mode: text; coding: %s -*-" SKK-MK-texinfo-coding-system)))) (defun SKK-MK-texinfo-format (targets) (let (;; Emacs20.2's default is 'raw-text-unix. (coding-system-for-write SKK-MK-texinfo-coding-system) x obuf beg standard-output) (require 'ptexinfmt (expand-file-name "./ddskk/ptexinfmt.el")) (while targets (setq x (expand-file-name (car targets) DOCDIR)) (find-file x) (setq obuf (current-buffer)) (SKK-MK-texinfo-pre-format) (texinfo-every-node-update) (texinfo-format-buffer 'nosplit) (SKK-MK-texinfo-post-format) (basic-save-buffer) (kill-buffer (current-buffer)) ; .info buffer (set-buffer-modified-p nil) ; .texi buffer (kill-buffer obuf) ; .texi buffer (setq targets (cdr targets))))) (defun SKK-MK-uninstall () (dolist (f (directory-files SKK_LISPDIR t ".el")) (delete-file f)) (princ (format "Delete files in %s...done\n" SKK_LISPDIR)) (delete-directory SKK_LISPDIR) (princ (format "Delete directory %s...done\n" SKK_LISPDIR)) (delete-file (expand-file-name SKK_INFO SKK_INFODIR)) (princ (format "Delete %s file in %s...done\n" SKK_INFO SKK_INFODIR)) (dolist (f SKK_TUTORIALS) (let ((fullpath (expand-file-name f SKK_DATADIR))) (delete-file fullpath) (princ (format "Delete %s...done\n" fullpath))))) (defun SKK-MK-what-where () (interactive) (let ((dics SKK_DICTIONARIES) exists) (while dics (when (file-exists-p (expand-file-name (car dics) DICDIR)) (setq exists (cons (car dics) exists))) (setq dics (cdr dics))) (setq SKK_DICTIONARIES exists)) (let ((string (format " Running in: %s SKK modules: %s -> %s SKK infos: %s -> %s SKK tutorials: %s -> %s " (version) (mapconcat 'symbol-name SKK_MODULES ", ") SKK_LISPDIR SKK_INFO SKK_INFODIR (mapconcat 'identity SKK_TUTORIALS ", ") SKK_DATADIR))) (when SKK_DICTIONARIES (setq string (concat string (format " SKK dictionaries: %s -> %s " (mapconcat 'identity SKK_DICTIONARIES ", ") SKK_DATADIR)))) (if noninteractive (princ string) (progn (with-output-to-temp-buffer "*What where*" (princ string)) (message ""))))) (defun SKK-MK-what-where-package () (interactive) (unless (featurep 'xemacs) (error "%s" "This directive is only for XEmacs.")) (let ((string (format " Running in: %s SKK modules: %s -> %s SKK infos: %s -> %s SKK tutorials: %s -> %s " (version) (mapconcat 'symbol-name (delq 'skk-autoloads SKK_MODULES) ", ") PACKAGE_LISPDIR SKK_INFO PACKAGE_INFODIR (mapconcat 'identity SKK_TUTORIALS ", ") PACKAGE_DATADIR))) (if (interactive-p) (progn (with-output-to-temp-buffer "*What where*" (princ string)) (message "")) (princ string)))) (defun SKK-MK-generate-autoloads-el () "Generate skk-autoload.el." (let ((modules SKK_MODULES) (buf (get-buffer-create " *SKK-MK-generate-autoloads-el*")) (sort-min) (funcs) standard-output) (save-excursion (set-buffer buf) (erase-buffer) (insert "\ ;;; skk-autoloads.el --- autoload settings for SKK -*- coding: iso-2022-jp -*- ;; This file was generated automatically by SKK-MK at " (current-time-string) ". ;; This file is part of Daredevil SKK. ;; Daredevil SKK 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. ;; Daredevil SKK 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 Daredevil SKK, see the file COPYING. If not, write to the ;; Free Software Foundation Inc., 51 Franklin Street, Fifth Floor, Boston, ;; MA 02110-1301, USA. ;;; Code:\n\n") (require 'autoload) (setq buffer-file-name "skk-autoloads.el") (while modules (let ((file (expand-file-name (format "%s.el" (car modules))))) (when (file-exists-p file) (generate-file-autoloads file))) (setq modules (cdr modules))) (goto-char (point-max)) (insert "(provide 'skk-autoloads) ;;; skk-autoloads.el ends here ") (let ((coding-system-for-write 'iso-2022-jp)) (write-region (point-min) (point-max) "skk-autoloads.el" nil 'quiet)) (set-buffer-modified-p nil) (kill-buffer buf)))) (defun SKK-MK-generate-autoloads-el-package () "Generate auto-autoload.el." (let ((modules SKK_MODULES)) (with-temp-buffer (dolist (module modules) (let ((file (expand-file-name (format "./ddskk/%s.el" module)))) (when (file-exists-p file) (generate-file-autoloads file)))) (let ((generated-autoload-file (expand-file-name "./ddskk/auto-autoloads.el"))) (setq buffer-file-name generated-autoload-file) (if (fboundp 'autoload-featurep-protect-autoloads) ;; XEmacs 21.5 (autoload-featurep-protect-autoloads "skk-autoloads") ;; XEmacs 21.4 (fixup-autoload-buffer "skk-autoloads")) (goto-char (point-max)) (unless (bolp) (insert "\n")) (let ((coding-system-for-write 'iso-2022-jp)) (write-region (point-min) (point-max) generated-autoload-file)))) (add-to-list 'command-line-args-left "./ddskk") (Custom-make-dependencies))) ;;; DDSKK Interactive Installer (Jan 2011) ;;; Lookup の install.el を参考にさせていただきました。 (defun install-check-directory (directory) (and (not (file-exists-p directory)) (y-or-n-p (format "Directory %s is not exist. Create it? " directory)) (make-directory directory t)) (if (not (file-directory-p directory)) (error "%s is not directory" directory)) (directory-file-name (expand-file-name directory))) (defvar VERSION-STRING nil) (if noninteractive nil (setq VERSION-STRING (let (start) (with-temp-buffer (insert-file-contents "skk-version.el") (goto-char (point-min)) (search-forward "ver ") (forward-char) (setq start (point)) (search-forward (char-to-string 34)) (buffer-substring start (1- (point))))))) (if noninteractive nil (switch-to-buffer (generate-new-buffer "*DDSKK Installer*")) (insert (version)) (insert "\n===================\n") (insert "DDSKK インストーラ\n") (insert "===================\n\n") (insert "DDSKK " VERSION-STRING " のインストールを始めます。\n") (insert "C-g をタイプすると、いつでも中断できます。\n\n") (insert "このタイミングで辞書ファイルをダウンロードすることもできます。:\n") (when (yes-or-no-p "ダウンロードしますか？ ") (load-file (expand-file-name "./skk-develop.el")) (skk-get (expand-file-name "./dic")) (insert (format " %s -> %s " (mapconcat #'identity (directory-files (expand-file-name "./dic/") nil "SKK") ", ") (expand-file-name "./dic") ))) (insert "DDSKK のインストール先を入力してください:\n") (setq SKK_LISPDIR (install-check-directory (read-file-name "SKK_LISPDIR: " SKK_LISPDIR SKK_LISPDIR))) (insert " => " SKK_LISPDIR "\n\n") (sit-for 0) (insert "Info ファイルを置くディレクトリを入力してください:\n") (setq SKK_INFODIR (install-check-directory (read-file-name "SKK_INFODIR: " SKK_INFODIR SKK_INFODIR))) (insert " => " SKK_INFODIR "\n\n") (sit-for 0) (insert "チュートリアル・ファイルを置くディレクトリを入力してください:\n") (setq SKK_DATADIR (install-check-directory (read-file-name "SKK_DATADIR: " SKK_DATADIR SKK_DATADIR))) (insert " => " SKK_DATADIR "\n\n") (sit-for 0) (insert "確認してください。\n") (insert (format "SKK modules: %s\n => %s\n\n" (mapconcat 'symbol-name SKK_MODULES ", ") SKK_LISPDIR)) (insert (format "SKK infos: %s\n => %s\n\n" SKK_INFO SKK_INFODIR)) (insert (format "SKK tutorials: %s\n => %s\n\n" (mapconcat 'identity SKK_TUTORIALS ", ") SKK_DATADIR)) (let ((dics SKK_DICTIONARIES) exists) (while dics (when (file-exists-p (expand-file-name (car dics) DICDIR)) (setq exists (cons (car dics) exists))) (setq dics (cdr dics))) (insert (format "SKK dictionaries: %s\n => %s\n\n" (mapconcat 'identity exists ", ") SKK_DATADIR))) (insert "各ディレクトリを訂正するには、このインストーラを中断（C-g をタイプ）して最初からやり直してください（SKK-CFG で設定することも可能です）。\n") (if (yes-or-no-p "インストールを続行しますか？ ") nil (error "インストールを中断しました。"))) ;; SKK-MK-compile (if noninteractive nil (let (enable-local-eval) (insert "skk-autoloads.el を生成中...") (sit-for 0) (SKK-MK-generate-autoloads-el) (insert "done\n") (insert "skk-autoloads.el を読み込み中...") (sit-for 0) (load (expand-file-name "skk-autoloads.el")) (insert "done\n") (insert "skk.el を読み込み中...") (sit-for 0) (require 'skk (expand-file-name "skk.el")) (insert "done\n") (insert "elisp ファイルのコンパイル中...") (sit-for 0) (compile-elisp-modules SKK_MODULES (expand-file-name ".")) (switch-to-buffer (get-buffer "*DDSKK Installer*")) (insert "done\n"))) ;; SKK-MK-install ;; SKK-MK-install-elc (if noninteractive nil (insert "elisp ファイルのインストール中...") (sit-for 0) (SKK-MK-install-elc) (switch-to-buffer (get-buffer "*DDSKK Installer*")) (insert "done\n")) ;; SKK-MK-install-info (if noninteractive nil (insert "info のインストール中...") (sit-for 0) (SKK-MK-install-info) (insert "done\n") (insert "info/dir ノード追加中...") (sit-for 0) (SKK-MK-install-info-1) (insert "done\n")) ;; Congratulations! (if noninteractive nil (insert "\n\nCongratulations!\nDDSKK のインストールが完了しました。 load-path の設定 ---------------- 次のとおり 変数 load-path を設定してください。既にパスが通っているならば 不要です。 (setq load-path (cons \"" SKK_LISPDIR "\" load-path)) info ディレクトリの設定 ----------------------- 次のとおり 変数 Info-default-directory-list を設定してください。既にパス が通っているならば不要です。 (setq Info-default-directory-list (cons \"" SKK_INFODIR "\" Info-default-directory-list)) ディレクトリファイル " SKK_INFO_DIR_FILE " へのノード追加は完了しています。 Emacs の設定 ------------ 上記の設定内容を ~/.emacs に記載して Emacs を再起動すれば DDSKK を使用す ることができるはずです。 もし DDSKK が起動しないようであれば ~/.emacs に (require 'skk-autoloads) と記載して、あらためて Emacs を再起動してください。 DDSKK の設定 ------------ etc/dot.emacs と etc/dot.skk に設定例が挙げられていますので参考にしてください。 Info もお読みください。 ")) (if noninteractive nil (delete-other-windows) (recenter -1) (remove-hook 'kill-emacs-hook 'skk-save-jisyo)) ;;; SKK-MK ends here