;;; -*-Emacs-Lisp-*-
;;;
;;; $Id: inst-tm,v 7.30 1996/09/02 15:33:00 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 "mh-e/TMH-ELS")

(defun make-mime-setup (tl-absolute-path tl-path mu-path mel-path tm-path)
  (let ((buf (find-file "mime-setup.el.in")))
    (goto-char (point-min))
    (re-search-forward "^;;; Code:" nil t)
    (setq buffer-read-only nil)

    ;; generate tl setting
    (if (member tl-absolute-path default-load-path)
	(insert "\n(require \'tl-misc)")
      (insert
       (format "

\(let ((load-path
       (cons \"%s\"
             load-path)))
  (require \'tl-misc)
  )
\(add-path \"%s\")" tl-absolute-path tl-path))
      )
    
    ;; generate MU load-path setting
    (or (member mu-path default-load-path)
	(insert (format "\n(add-path \"%s\")" mu-path)))
    
    ;; generate MEL load-path setting
    (or (member mel-path default-load-path)
	(insert (format "\n(add-path \"%s\")" mel-path)))
    
    ;; generate tm load-path setting
    (or (member tm-path default-load-path)
	(insert (format "\n(add-path \"%s\")" tm-path)))
    
    ;; generate tm external-methods path setting
    (insert
     (format "\n(defvar mime-viewer/external-progs \"%s\")" METHOD_DIR))
    (write-file "mime-setup.el")
    ))

(defun install-tm-gnus ()
  (erase-buffer)
  (call-process SHELL
		nil t t
		SHELLOPTION
		(format
		 TM_GNUS_INSTALL_FORMAT
		 (car command-line-args) TM_GNUS_DIR)
		)
  (princ (buffer-string))
  )

(defun compile-tm ()
  (print load-path)
  (require 'mel-u)
  (require 'tm-edit)
  (load "rmailsum")
  (require 'tm-mh-e)
  (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 mel-modules		"../mel/")
  (compile-elisp-modules tm-modules-to-compile	".")
  (compile-elisp-modules tm-mh-e-modules	"mh-e/")
  (compile-elisp-module  'mime-setup		".")
  (save-excursion
    (set-buffer (get-buffer-create TM_GNUS_COMPILE))
    (let ((emacs (car command-line-args)))
      (insert (format "cd gnus\n%s gnus EMACS=%s PWD=`pwd`\n" MAKE emacs))
      (cond (running-xemacs-19_14-or-later
	     )
	    (running-xemacs
	     (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n" MAKE emacs))
	     )
	    (t (cond (running-emacs-18
		      (insert (format "%s gnus3 EMACS=%s PWD=`pwd`\n"
				      MAKE emacs))
		      (insert (format "%s gnus4 EMACS=%s PWD=`pwd`\n"
				      MAKE emacs))
		      )
		     ((<= emacs-minor-version 29)
		      (insert (format "%s gnus4 EMACS=%s PWD=`pwd`\n"
				      MAKE emacs))
		      (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n" 
				      MAKE emacs))
		      )
		     (t
		      (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n" 
				      MAKE emacs))
		      )))))
    (write-file TM_GNUS_COMPILE)
    ))

(defun install-tm ()
  (princ (format "%s\n" emacs-version))
  (print TL_DIR)
  (install-elisp-modules tl-modules	 "../tl/"	TL_DIR)
  (install-elisp-modules mu-modules	 "../mu/"	MU_DIR)
  (install-elisp-modules mel-modules	 "../mel/"	MEL_DIR)
  (install-elisp-modules tm-modules	 "./"		TM_KERNEL_DIR)
  (install-elisp-modules tm-mh-e-modules "mh-e/"	TM_MHE_DIR)
  (install-tm-gnus)
  (install-elisp-modules '(mime-setup)	 "./"	SETUP_FILE_DIR)
  )

(defun install-execs ()
  (install-files BINS	    BIN_SRC_DIR    BIN_DIR)
  (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
  )

;;; inst-tm ends here