;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: inst-tm,v 5.0 1996/04/21 19:43:46 morioka Exp morioka $
+;;; $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 "../tl/TL-ELS")
+(load-file "../mel/MEL-ELS")
(load-file "TM-ELS")
-(load-file "mh-e/tmh-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")))
(write-file "mime-setup.el")
))
-(defun compile-el-files (path modules)
- (mapcar (function
- (lambda (module)
- (setq module (expand-file-name module path))
- (let ((el-file (concat module ".el"))
- (elc-file (concat module ".elc"))
- )
- (if (file-newer-than-file-p el-file elc-file)
- (byte-compile-file el-file)
- )
- )))
- modules))
-
(defun install-tm-gnus ()
(erase-buffer)
(call-process SHELL
(defun compile-tm ()
(print load-path)
- (require 'tm-rich)
(require 'mel-u)
(require 'tm-edit)
(load "rmailsum")
(require 'tm-mh-e)
(make-mime-setup TL_DIR MEL_DIR TM_KERNEL_DIR)
- (compile-el-files "../tl/" tl-modules)
- (compile-el-files "../mel/" mel-modules)
- (compile-el-files "./" tm-modules)
- (compile-el-files "mh-e/" tm-mh-e-modules)
- (compile-el-files "./" '("mime-setup"))
+ (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 ".gnus-compile"))
+ (set-buffer (get-buffer-create TM_GNUS_COMPILE))
(let ((emacs (car command-line-args)))
- (insert (format "cd gnus\nmake gnus EMACS=%s PWD=`pwd`\n" emacs))
- (cond ((string-match "XEmacs" emacs-version)
- (insert (format "make sgnus EMACS=%s PWD=`pwd`\n" emacs))
+ (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 ((<= emacs-major-version 18)
- (insert (format "make gnus3 EMACS=%s PWD=`pwd`\n" emacs))
- (insert (format "make gnus4 EMACS=%s PWD=`pwd`\n" 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 30)
- (insert (format "make gnus4 EMACS=%s PWD=`pwd`\n" emacs))
- (insert (format "make gnus5 EMACS=%s PWD=`pwd`\n" 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 "make sgnus EMACS=%s PWD=`pwd`\n" emacs))
+ (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n"
+ MAKE emacs))
)))))
- (write-file ".gnus-compile")
- )
- )
-
-(defun install-el-file (src dest file)
- (let ((src-file (expand-file-name file src)))
- (if (file-exists-p src-file)
- (let ((full-path (expand-file-name file dest)))
- (if (file-exists-p full-path)
- (set-file-modes full-path el-file-mode)
- )
- (copy-file src-file full-path t t)
- (princ (format "%s -> %s\n" file dest))
- ))
+ (write-file TM_GNUS_COMPILE)
))
-(defun install-el-files (src dest &rest files)
- (mapcar (function (lambda (file)
- (install-el-file src dest file)
- ))
- files))
-
-(defun install-elc (src dest file)
- (let ((src-file (expand-file-name file src)))
- (if (file-exists-p src-file)
- (let ((full-path (expand-file-name file dest)))
- (copy-file src-file full-path t t)
- (delete-file src-file)
- (princ (format "%s -> %s\n" file dest))
- ))
- ))
-
-(defun install-elc-files (src dest &rest files)
- (mapcar (function (lambda (file)
- (install-elc src dest file)
- ))
- files))
-
(defun install-el-and-elc-files (src dest el-files elc-files)
- (if (not (file-exists-p dest))
- (make-directory dest t)
- )
- (apply (function install-el-files) src dest el-files)
- (apply (function install-elc-files) src dest 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-el-and-elc-files "../mel/" MEL_DIR mel-el-files mel-elc-files)
- (install-el-and-elc-files "./" TM_KERNEL_DIR tm-el-files tm-elc-files)
- (install-el-and-elc-files "mh-e/" TM_MHE_DIR
- tm-mh-e-el-files tm-mh-e-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 setup-el-files setup-elc-files)
+ (install-el-and-elc-files "./" SETUP_FILE_DIR
+ '("mime-setup.el") '("mime-setup.elc"))
)
(defun install-execs ()
- (apply (function install-el-files) BIN_SRC_DIR BIN_DIR BINS)
- (apply (function install-el-files) METHOD_SRC_DIR METHOD_DIR METHODS)
+ (install-files BINS BIN_SRC_DIR BIN_DIR)
+ (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
)
+
+;;; inst-tm ends here