tm 7.87.

[elisp/tm.git] / inst-tm

diff --git a/inst-tm b/inst-tm
index 1e0009e..9c2f796 100644 (file)
--- a/inst-tm
+++ b/inst-tm
@@ -1,14 +1,32 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: inst-tm,v 7.34 1996/09/04 15:43:19 morioka Exp $
+;;; $Id: inst-tm,v 7.39 1996/09/06 16:18:21 morioka Exp $
 ;;;
 
-(load-file "TM-CFG")
-(load-file "../tl/TL-ELS")
-(load-file "../mu/MU-ELS")
-(load-file "../mel/MEL-ELS")
-(load-file "TM-ELS")
-(load-file "../tm-mh-e/TMH-ELS")
+(defun config-tm ()
+  (let (prefix exec-prefix)
+    (setq prefix (car command-line-args-left))
+    (and prefix
+        (not (string-equal "NONE" prefix))
+        (progn
+          (defvar PREFIX prefix)
+          (setq command-line-args-left (cdr command-line-args-left))
+          )
+        (setq exec-prefix (car command-line-args-left))
+        (progn
+          (defvar EXEC_PREFIX exec-prefix)
+          ;;(setq command-line-args-left (cdr command-line-args-left))
+          )))
+  (load-file "TM-CFG")
+  (load-file "../tl/TL-ELS")
+  (load-file "../mu/MU-ELS")
+  (load-file "../mel/MEL-ELS")
+  (load-file "TM-ELS")
+  (load-file "../tm-mh-e/TMH-ELS")
+  (load-file "../tm-mail/TMAIL-ELS")
+  (load-file "../tm-vm/TM-VM-ELS")
+  (princ (format "PREFIX=%s\tEXEC_PREFIX=%s\n" PREFIX EXEC_PREFIX))
+  )
 
 (defun make-mime-setup (tl-absolute-path tl-path mu-path mel-path tm-path)
   (let ((buf (find-file "mime-setup.el.in")))
@@ -49,6 +67,7 @@
     ))
 
 (defun compile-tm ()
+  (config-tm)
   (print load-path)
   (require 'mel-u)
   (require 'tm-edit)
@@ -57,7 +76,7 @@
   (make-mime-setup TL_DIR TL_RELATIVE_DIR MU_RELATIVE_DIR
                   MEL_RELATIVE_DIR TM_KERNEL_RELATIVE_DIR)
   (compile-elisp-modules tl-modules            "../tl")
-  (compile-elisp-modules mu-modules            "../mu")
+  (compile-elisp-modules mu-modules-to-compile "../mu")
   (compile-elisp-modules mel-modules           "../mel")
   (compile-elisp-modules tm-modules-to-compile ".")
   (compile-elisp-modules tm-mh-e-modules       "../tm-mh-e")
@@ -71,9 +90,12 @@
          (load "../tm-gnus/TGNUS-ELS")
         (compile-elisp-modules tm-gnus-modules-to-compile "../tm-gnus")
         ))
+  (compile-elisp-modules tm-mail-modules       "../tm-mail")
+  (compile-elisp-modules tm-vm-modules-to-compile "../tm-vm")
   )
 
 (defun install-tm ()
+  (config-tm)
   (princ (format "%s\n" emacs-version))
   (print TL_DIR)
   (install-elisp-modules tl-modules     "../tl"        TL_DIR)
@@ -92,10 +114,13 @@
         (load "../tm-gnus/TGNUS-ELS")
         (install-elisp-modules tm-gnus-modules "../tm-gnus" TM_GNUS_DIR)
         ))
+  (install-elisp-modules tm-mail-modules "../tm-mail"  TM_MAIL_DIR)
+  (install-elisp-modules tm-vm-modules  "../tm-vm"     TM_VM_DIR)
   (install-elisp-modules '(mime-setup)  "."    SETUP_FILE_DIR)
   )
 
 (defun install-execs ()
+  (config-tm)
   (install-files BINS      BIN_SRC_DIR    BIN_DIR)
   (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
   )