;;; -*-Emacs-Lisp-*-
;;;
;;; $Id: mk-tmh,v 3.0 1996/03/04 09:22:37 morioka Exp morioka $
;;;

(setq load-path (append
		 (mapcar (function
			  (lambda (path)
			    (expand-file-name path (getenv "PWD"))
			    ))
			 '("." ".." "../../tl/" "../../mel/")
			 )
		 load-path))

(require 'mh-e)
(require 'emu)

(load-file "tmh-els")

(defun compile-tm-mh-e ()
  (require 'tm-mh-e)
  (require 'mh-comp)
  (require 'tm-edit)
  (mapcar (function byte-compile-file) tm-mh-e-el-files)
  )

(defconst el-file-mode (+ (* 64 6)(* 8 4) 4))

(defun install-el (path file)
  (let ((full-path (expand-file-name file path)))
    (if (file-exists-p full-path)
	(set-file-modes full-path el-file-mode)
      )
    (copy-file file full-path t t)
    (princ (format "%s -> %s\n" file path))
    ))

(defun install-el-files (path &rest files)
  (mapcar (function (lambda (file)
		      (if (file-exists-p file)
			  (install-el path file)
			)))
	  files))

(defun install-elc (path file)
  (let ((full-path (expand-file-name file path)))
    (copy-file file full-path t t)
    (delete-file file)
    (princ (format "%s -> %s\n" file path))
    ))

(defun install-elc-files (path &rest files)
  (mapcar (function (lambda (file)
		      (if (file-exists-p file)
			  (install-elc path file)
			)))
	  files))

(defun install-tm-mh-e ()
  (let ((path (car command-line-args-left)))
    (princ (format "%s\n" emacs-version))
    (if (not (file-exists-p path))
	(make-directory path t)
      )
    (apply (function install-el-files) path tm-mh-e-el-files)
    (apply (function install-elc-files) path tm-mh-e-elc-files)
    (setq command-line-args-left (cdr command-line-args-left))
    ))