X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=TM-CFG;h=5cb2d4fd016334d2fde66958048b1d07e3293bfd;hb=cd47eed235f4258380f6d9b401c2fb1fc884931c;hp=1290100c852e4e1705d1e4886ae6d3e18333cde3;hpb=5830bcc734c50f0ba421a0b8d7f4a1271e3145b0;p=elisp%2Ftm.git

diff --git a/TM-CFG b/TM-CFG
index 1290100..5cb2d4f 100644
--- a/TM-CFG
+++ b/TM-CFG
@@ -1,14 +1,15 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: TM-CFG,v 3.0 1996/03/27 19:38:12 morioka Exp $
+;;; $Id: TM-CFG,v 7.1 1996/05/27 15:09:09 morioka Exp morioka $
 ;;;
 
+(defvar default-load-path load-path)
 (setq load-path (append
 		 (mapcar (function
 			  (lambda (path)
 			    (expand-file-name path (getenv "PWD"))
 			    ))
-			 '("." "../tl/" "../mel/" "mh-e/")
+			 '("." "../tl" "../mel" "mh-e")
 			 )
 		 load-path))
 
@@ -19,13 +20,13 @@
 ;;;
 
 ;; Please specify VM path.
-(add-path "vm-5.95beta/" 'all-paths)
+(add-path "vm-5.95beta" 'all-paths)
 
 ;; Please specify Mailcrypt path.
-(add-path "mailcrypt-3.4/" 'all-paths)
+(add-path "mailcrypt-3.4" 'all-paths)
 
 ;; Please specify BBDB path.
-(add-path "bbdb-1.50/" 'all-paths)
+(add-path "bbdb-1.50" 'all-paths)
 
 
 ;;; @ shell
@@ -42,24 +43,36 @@
 ;;;
 
 ;; Please specify install path prefix.
-;;(setq PREFIX "~/")		; install to you home directory
-(setq PREFIX "/usr/local/")	; install to shared directory
+(setq PREFIX
+      (if (or running-emacs-18 running-xemacs)
+	  (expand-file-name "../../.." exec-directory)
+	(expand-file-name "../../../.." data-directory)
+	)) ; 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)
+	))
+;;(setq EXEC_PREFIX "~/")	; install to your home directory
 
 ;; Please specify tm package prefix [optional]
 (setq TM_PACKAGE_PREFIX "")
 
 ;; Please specify tl prefix [optional]
-;;(setq TL_PREFIX "tl/")
+;;(setq TL_PREFIX "tl")
 (setq TL_PREFIX
       (if (string-match "XEmacs" emacs-version)
-	  "tl/"
+	  "tl"
 	""))
 
 ;; Please specify MEL prefix [optional]
-(setq MEL_PREFIX "mel/")
+(setq MEL_PREFIX "mel")
 
 ;; Please specify tm prefix [optional]
-(setq TM_PREFIX "tm/")
+(setq TM_PREFIX "tm")
 
 ;; lisp files of tm are installed into following directory tree:
 ;;
@@ -90,10 +103,10 @@
 ;;;
 
 ;; 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 BIN_DIR)
+(setq METHOD_DIR (expand-file-name "share/tm" PREFIX))
 
 
 
@@ -101,36 +114,45 @@
 ;;; @ optional settings
 ;;;
 
-(setq EMACS_PREFIX
-      (cond ((boundp 'NEMACS) "nemacs/")
-	    ((boundp 'MULE)   "mule/")
-	    ((string-match "XEmacs" emacs-version) "xemacs/")
-	    (t "emacs/")
-	    ))
-
-(setq DATA_PREFIX
-      (if (or (< emacs-major-version 19)
-	      (< emacs-minor-version 29)
-	      )
-	  "lib/"
-	"share/"))
-
-(setq DATADIR (expand-file-name DATA_PREFIX PREFIX))
-
 (setq LISP_PREFIX
       (if (>= emacs-major-version 19)
-	  "site-lisp/"
-	"local.lisp/"))
-
-(setq EMACS_DATADIR (expand-file-name EMACS_PREFIX DATADIR))
-
-(defvar LISPDIR (expand-file-name LISP_PREFIX EMACS_DATADIR))
-
+	  "site-lisp"
+	"local.lisp"))
+
+(setq PATTERN-TO-INSTALL
+      (expand-file-name (concat ".*/" LISP_PREFIX) PREFIX))
+(setq PATTERN-TO-AVOID
+      (format "%d\\.%s" emacs-major-version emacs-minor-version))
+
+(defvar LISPDIR
+  (or
+   (catch 'tag
+     (let ((rest default-load-path)
+	   dir)
+       (while (setq dir (car rest))
+	 (or (string-match PATTERN-TO-AVOID dir)
+	     (if (string-match PATTERN-TO-INSTALL dir)
+		 (throw 'tag (substring dir 0 (match-end 0)))
+	       ))
+	 (setq rest (cdr rest))
+	 )))
+   (expand-file-name (concat
+		      (if running-emacs-19
+			  "share/"
+			"lib/")
+		      (cond ((boundp 'NEMACS) "nemacs/")
+			    ((boundp 'MULE)   "mule/")
+			    (running-xemacs
+			     (if (featurep 'mule)
+				 "xmule/"
+			       "xemacs/"))
+			    (t "emacs/"))
+		      LISP_PREFIX) PREFIX)
+   ))
 
 ;; Please specify mime-setup.{el|elc} install path.
 (setq SETUP_FILE_DIR LISPDIR)
 
-
 (setq TM_LISPDIR (expand-file-name TM_PACKAGE_PREFIX LISPDIR))
 
 (setq TL_DIR (expand-file-name TL_PREFIX TM_LISPDIR))
@@ -139,15 +161,17 @@
 (setq TM_MHE_DIR TM_KERNEL_DIR)
 (setq TM_GNUS_DIR TM_KERNEL_DIR)
 
-(setq TM_GNUS_COMPILE_FORMAT "cd gnus; PWD=`pwd` make %s EMACS=%s")
-(setq TM_GNUS_INSTALL_FORMAT "cd gnus; PWD=`pwd` make install-19 EMACS=%s TMDIR19=%s")
+(setq TM_GNUS_INSTALL_FORMAT
+      "cd gnus; PWD=`pwd` make install-19 EMACS=%s TMDIR19=%s")
+(setq TM_GNUS_COMPILE ".gnus-compile")
+(setq MAKE "make")
 
 (setq el-file-mode (+ (* 64 6)(* 8 4) 4))
 
 
-(setq BIN_SRC_DIR "src/")
-(setq BINS '("src/ol2" "src/decode-b"))
-(setq METHOD_SRC_DIR "methods/")
+(setq BIN_SRC_DIR "src")
+(setq BINS '("ol2" "decode-b"))
+(setq METHOD_SRC_DIR "methods")
 (setq METHODS
       '("tm-au" "tm-file" "tm-html" "tm-image" "tm-mpeg" "tm-plain"
 	"tmdecode"))