tm 7.81.

[elisp/tm.git] / TM-CFG

diff --git a/TM-CFG b/TM-CFG
index 3593e94..3f14b7a 100644 (file)
--- a/TM-CFG
+++ b/TM-CFG
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: TM-CFG,v 7.0 1996/05/20 16:24:30 morioka Exp morioka $
+;;; $Id: TM-CFG,v 7.10 1996/09/02 15:25:45 morioka Exp morioka $
 ;;;
 
 (defvar default-load-path load-path)
@@ -9,11 +9,12 @@
                          (lambda (path)
                            (expand-file-name path (getenv "PWD"))
                            ))
-                        '("." "../tl" "../mel" "mh-e")
+                        '("." "../tl" "../mu" "../mel" "mh-e")
                         )
                 load-path))
 
 (require 'tl-misc)
+(require 'install)
 
 
 ;;; @ Please specify optional package directory if you use them.
@@ -50,6 +51,13 @@
        )) ; install to shared directory (maybe "/usr/local")
 ;;(setq PREFIX "~/")   ; install to your home directory
 
+;; Please specify install path prefix for binaries.
+(setq EXEC_PREFIX
+      (if (or running-emacs-18 running-xemacs)
+         (expand-file-name "../../.." exec-directory)
+       (expand-file-name "../../../.." exec-directory)
+       ))
+
 ;; Please specify tm package prefix [optional]
 (setq TM_PACKAGE_PREFIX "")
 
@@ -60,6 +68,9 @@
          "tl"
        ""))
 
+;; Please specify MU prefix [optional]
+(setq MU_PREFIX "mu")
+
 ;; Please specify MEL prefix [optional]
 (setq MEL_PREFIX "mel")
 
@@ -71,6 +82,7 @@
 ;;     LISPDIR = PREFIX/DATA_PREFIX/LISP_PREFIX/
 ;;     LISPDIR/mime-setup.{el|elc}
 ;;     LISPDIR/TM_PACKAGE_PREFIX/TL_PREFIX/  --- tl  lisp files
+;;     LISPDIR/TM_PACKAGE_PREFIX/MU_PREFIX/  --- MU lisp files
 ;;     LISPDIR/TM_PACKAGE_PREFIX/MEL_PREFIX/ --- MEL lisp files
 ;;     LISPDIR/TM_PACKAGE_PREFIX/TM_PREFIX/  --- tm  lisp files
 ;;
@@ -79,6 +91,7 @@
 ;;     LISPDIR = /usr/local/share/emacs/site-lisp/
 ;;     /usr/local/share/emacs/site-lisp/mime-setup.{el|elc}
 ;;     /usr/local/share/emacs/site-lisp/     --- tl  lisp files
+;;     /usr/local/share/emacs/site-lisp/mu/  --- MU lisp files
 ;;     /usr/local/share/emacs/site-lisp/mel/ --- MEL lisp files
 ;;     /usr/local/share/emacs/site-lisp/tm/  --- tm  lisp files
 ;;
@@ -87,6 +100,7 @@
 ;;     LISPDIR = ~/share/xemacs/site-lisp/
 ;;     ~/share/xemacs/site-lisp/mime-setup.{el|elc}
 ;;     ~/share/xemacs/site-lisp/tl/  --- tl  lisp files
+;;     ~/share/xemacs/site-lisp/mu/  --- MU  lisp files
 ;;     ~/share/xemacs/site-lisp/mel/ --- MEL lisp files
 ;;     ~/share/xemacs/site-lisp/tm/  --- tm  lisp files
 
@@ -95,7 +109,7 @@
 ;;;
 
 ;; Please specify binary path.
-(defvar BIN_DIR (expand-file-name "bin" PREFIX))
+(defvar BIN_DIR (expand-file-name "bin" EXEC_PREFIX))
 
 ;; Please specify binary path. (for external method scripts)
 (setq METHOD_DIR (expand-file-name "share/tm" PREFIX))
@@ -118,13 +132,18 @@
           dir)
        (while (setq dir (car rest))
         (if (string-match
-             (expand-file-name (concat ".*/" LISP_PREFIX) PREFIX) dir)
-            (throw 'tag (substring dir 0 (match-end 0)))
-          )
+             (concat
+              "^" (expand-file-name (concat ".*/" LISP_PREFIX) PREFIX) "$")
+             dir)
+            (or (string-match (format "%d\\.%d"
+                                      emacs-major-version
+                                      emacs-minor-version) dir)
+                (throw 'tag dir)
+                ))
         (setq rest (cdr rest))
         )))
    (expand-file-name (concat
-                     (if running-emacs-19
+                     (if running-emacs-19_29-or-later
                          "share/"
                        "lib/")
                      (cond ((boundp 'NEMACS) "nemacs/")
@@ -143,11 +162,45 @@
 (setq TM_LISPDIR (expand-file-name TM_PACKAGE_PREFIX LISPDIR))
 
 (setq TL_DIR (expand-file-name TL_PREFIX TM_LISPDIR))
+(setq MU_DIR (expand-file-name MU_PREFIX TM_LISPDIR))
 (setq MEL_DIR (expand-file-name MEL_PREFIX TM_LISPDIR))
 (setq TM_KERNEL_DIR (expand-file-name TM_PREFIX TM_LISPDIR))
 (setq TM_MHE_DIR TM_KERNEL_DIR)
 (setq TM_GNUS_DIR TM_KERNEL_DIR)
 
+(cond ((member LISPDIR default-load-path)
+       (if (string-equal TM_PACKAGE_PREFIX "")
+          (setq TL_RELATIVE_DIR TL_PREFIX
+                MU_RELATIVE_DIR MU_PREFIX
+                MEL_RELATIVE_DIR MEL_PREFIX
+                TM_KERNEL_RELATIVE_DIR TM_PREFIX
+                )
+        (setq TL_RELATIVE_DIR
+              (concat (file-name-as-directory TM_PACKAGE_PREFIX) TL_PREFIX))
+        (setq MU_RELATIVE_DIR
+              (concat (file-name-as-directory TM_PACKAGE_PREFIX) MU_PREFIX))
+        (setq MEL_RELATIVE_DIR
+              (concat (file-name-as-directory TM_PACKAGE_PREFIX) MEL_PREFIX))
+        (setq TM_KERNEL_RELATIVE_DIR
+              (concat (file-name-as-directory TM_PACKAGE_PREFIX) TM_PREFIX))
+        ))
+      ((string-match (concat "^" (regexp-quote (expand-file-name "~/")))
+                    LISPDIR)
+       (setq TL_RELATIVE_DIR (concat "~/" (file-relative-name TL_DIR "~/")))
+       (setq MU_RELATIVE_DIR (concat "~/" (file-relative-name MU_DIR "~/")))
+       (setq MEL_RELATIVE_DIR (concat "~/" (file-relative-name MEL_DIR "~/")))
+       (setq TM_KERNEL_RELATIVE_DIR
+            (concat "~/" (file-relative-name TM_KERNEL_DIR "~/")))
+       )
+      (t
+       (setq TL_RELATIVE_DIR TL_DIR)
+       (setq MU_RELATIVE_DIR MU_DIR)
+       (setq MEL_RELATIVE_DIR MEL_DIR)
+       (setq TM_KERNEL_RELATIVE_DIR TM_KERNEL_DIR)
+       ))
+(setq TM_MHE_RELATIVE_DIR TM_KERNEL_RELATIVE_DIR)
+(setq TM_GNUS_RELATIVE_DIR TM_KERNEL_RELATIVE_DIR)
+
 (setq TM_GNUS_INSTALL_FORMAT
       "cd gnus; PWD=`pwd` make install-19 EMACS=%s TMDIR19=%s")
 (setq TM_GNUS_COMPILE ".gnus-compile")
@@ -157,7 +210,7 @@
 
 
 (setq BIN_SRC_DIR "src")
-(setq BINS '("src/ol2" "src/decode-b"))
+(setq BINS '("ol2" "decode-b"))
 (setq METHOD_SRC_DIR "methods")
 (setq METHODS
       '("tm-au" "tm-file" "tm-html" "tm-image" "tm-mpeg" "tm-plain"