;;; -*-Emacs-Lisp-*-
;;;
;;; $Id: inst-tm,v 7.23 1996/08/22 14:28:43 morioka Exp morioka $
;;;

(load-file "TM-CFG")
(load-file "../tl/TL-ELS")
(load-file "../mel/MEL-ELS")
(load-file "TM-ELS")
(load-file "mh-e/TMH-ELS")

(defun make-mime-setup (tl-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)
    (if (member tl-path default-load-path)
	(insert "

\(require \'tl-misc)")
      (insert
       (format "

\(let ((load-path
       (cons \"%s\"
             load-path)))
  (require \'tl-misc)
  )
\(add-path \"%s\")" tl-path tl-path))
      )
    (or (member mel-path default-load-path)
	(insert
	 (format "
\(add-path \"%s\")" mel-path)))
    (or (member tm-path default-load-path)
	(insert
	 (format "
\(add-path \"%s\")" tm-path)))
    (insert (format "
(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 MEL_DIR TM_KERNEL_DIR)
  (compile-elisp-modules tl-modules		"../tl/")
  (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-el-and-elc-files (src dest el-files elc-files)
  (install-files el-files src dest nil t)
  (install-files elc-files src dest 'move)
  )

(defun install-tm ()
  (princ (format "%s\n" emacs-version))
  (print TL_DIR)
  (install-el-and-elc-files "../tl/" TL_DIR tl-el-files tl-elc-files)
  (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-el-and-elc-files "./" SETUP_FILE_DIR
			    '("mime-setup.el") '("mime-setup.elc"))
  )

(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