;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: TM-MK,v 7.43 1996/11/27 11:48:53 morioka Exp morioka $
-;;;
+
+;; TM-MK: installer for tm.
+
+;;; Code:
(defun config-tm ()
(let (prefix exec-prefix)
;;(setq command-line-args-left (cdr command-line-args-left))
)))
(load-file "TM-CFG")
- (load-file "../emu/EMU-ELS")
+ (load-file "../apel/EMU-ELS")
+ (load-file "../apel/APEL-ELS")
(load-file "../tl/TL-ELS")
(load-file "../bitmap-mule/BITMAP-ELS")
(load-file "../mu/MU-ELS")
- (load-file "../mel/MEL-ELS")
+ (load-file "../flim/FLIM-ELS")
(load-file "TM-ELS")
(load-file "../tm-mh-e/TMH-ELS")
(load-file "../tm-mail/TMAIL-ELS")
(defun make-mime-setup (lisp-dir
tl-path bitmap-path mu-path mel-path tm-path)
- (let ((buf (find-file "mime-setup.el.in")))
+ (if (file-exists-p "mime-setup.el")
+ (delete-file "mime-setup.el")
+ )
+ (let ((buf (let (vc-follow-symlinks)
+ (find-file "mime-setup.el.in")
+ )))
(goto-char (point-min))
(re-search-forward "^;;; Code:\n" nil t)
(setq buffer-read-only nil)
;; generate tm external-methods path setting
(or (string= METHOD_DIR exec-directory)
(insert
- (format "\n(defvar mime-viewer/external-progs %s)"
+ (format "\n
+(defvar mime-viewer/external-progs%s
+ \"*Directory containing tm external methods.\")
+
+(add-to-list 'exec-path mime-viewer/external-progs)
+
+(let ((paths (parse-colon-path (getenv \"PATH\"))))
+ (or (member mime-viewer/external-progs paths)
+ (setenv \"PATH\"
+ (mapconcat (function identity)
+ (append paths (list mime-viewer/external-progs))
+ path-separator))
+ ))
+"
(let ((dir (file-relative-name METHOD_DIR data-directory)))
(if (< (length dir) (length METHOD_DIR))
(concat "\n (expand-file-name \""
(if (< (length dir) (length METHOD_DIR))
(concat "\n (expand-file-name \"~/"
dir "\")")
- (concat "\"" METHOD_DIR "\"")
+ (concat " \"" METHOD_DIR "\"")
)))
))
)
(require 'tm-mh-e)
(make-mime-setup LISPDIR
TL_RELATIVE_DIR BITMAP_RELATIVE_DIR
- MU_RELATIVE_DIR MEL_RELATIVE_DIR
+ MU_RELATIVE_DIR FLIM_RELATIVE_DIR
TM_KERNEL_RELATIVE_DIR)
- (compile-elisp-modules emu-modules "../emu")
+ (compile-elisp-modules emu-modules "../apel")
+ (compile-elisp-modules apel-modules "../apel")
(compile-elisp-modules tl-modules "../tl")
(compile-elisp-modules bitmap-modules "../bitmap-mule")
(compile-elisp-modules mu-modules-to-compile "../mu")
- (compile-elisp-modules mel-modules "../mel")
+ (compile-elisp-modules flim-modules "../flim")
(compile-elisp-modules tm-modules-to-compile ".")
(compile-elisp-modules tm-mh-e-modules "../tm-mh-e")
(compile-elisp-module 'mime-setup ".")
- (require 'gnus)
- (cond ((featurep 'gnus-ems)
- (load "../gnus-mime/Gnus-MIME-ELS")
- (compile-elisp-modules gnus-mime-modules-to-compile "../gnus-mime")
- )
- (t
- (load "../tm-gnus/TGNUS-ELS")
- (compile-elisp-modules tm-gnus-modules-to-compile "../tm-gnus")
- ))
+ (condition-case nil
+ (progn
+ (require 'gnus)
+ (cond ((featurep 'gnus-ems)
+ (load "../gnus-mime/Gnus-MIME-ELS")
+ (compile-elisp-modules gnus-mime-modules-to-compile
+ "../gnus-mime")
+ )
+ (t
+ (load "../tm-gnus/TGNUS-ELS")
+ (compile-elisp-modules tm-gnus-modules-to-compile "../tm-gnus")
+ )))
+ (error nil))
(compile-elisp-modules tm-mail-modules "../tm-mail")
(compile-elisp-modules tm-vm-modules-to-compile "../tm-vm")
)
(config-tm)
(princ (format "%s\n" emacs-version))
(install-elisp-modules emu-modules "../emu" EMU_DIR)
+ (install-elisp-modules apel-modules "../apel" APEL_DIR)
(install-elisp-modules tl-modules "../tl" TL_DIR)
(install-elisp-modules bitmap-modules "../bitmap-mule" BITMAP_DIR)
(install-elisp-modules mu-modules "../mu" MU_DIR)
- (install-elisp-modules mel-modules "../mel" MEL_DIR)
+ (install-elisp-modules flim-modules "../flim" FLIM_DIR)
(install-elisp-modules tm-modules "." TM_KERNEL_DIR)
(install-elisp-modules tm-mh-e-modules "../tm-mh-e" TM_MHE_DIR)
;;(install-tm-gnus)
- (require 'gnus)
- (cond ((featurep 'gnus-ems)
- (load "../gnus-mime/Gnus-MIME-ELS")
- (install-elisp-modules gnus-mime-modules
- "../gnus-mime" Gnus_MIME_DIR)
- )
- (t
- (load "../tm-gnus/TGNUS-ELS")
- (install-elisp-modules tm-gnus-modules "../tm-gnus" TM_GNUS_DIR)
- ))
+ (condition-case nil
+ (progn
+ (require 'gnus)
+ (cond ((featurep 'gnus-ems)
+ (load "../gnus-mime/Gnus-MIME-ELS")
+ (install-elisp-modules gnus-mime-modules
+ "../gnus-mime" Gnus_MIME_DIR)
+ )
+ (t
+ (load "../tm-gnus/TGNUS-ELS")
+ (install-elisp-modules tm-gnus-modules "../tm-gnus" TM_GNUS_DIR)
+ )))
+ (error nil))
(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)
(install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
)
+
+(defun update-xemacs-source ()
+ (setq LISPDIR (expand-file-name "../lisp" data-directory))
+ (load-file "TM-CFG")
+ (setq EMU_DIR TL_DIR)
+ (setq SETUP_FILE_DIR TM_KERNEL_DIR)
+ (load-file "../emu/EMU-ELS")
+ (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")
+
+ (copy-file "mime-setup.el.in" "mime-setup.el" t t)
+ (set-file-modes "mime-setup.el" (+ (* 6 64) (* 4 8) 4))
+ (compile-elisp-modules emu-modules "../emu")
+ (compile-elisp-modules tl-modules "../tl")
+ (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")
+ (compile-elisp-module 'mime-setup ".")
+ (require 'gnus)
+ (load "../gnus-mime/Gnus-MIME-ELS")
+ (compile-elisp-modules gnus-mime-modules-to-compile "../gnus-mime")
+ (compile-elisp-modules tm-mail-modules "../tm-mail")
+ (compile-elisp-modules tm-vm-modules-to-compile "../tm-vm")
+
+ (install-elisp-modules emu-modules "../emu" EMU_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 "../tm-mh-e" TM_MHE_DIR)
+ (install-elisp-modules gnus-mime-modules "../gnus-mime" Gnus_MIME_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)
+
+ (setq METHOD_DIR (expand-file-name "../lib-src" data-directory))
+ (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
+
+ (install-file "sinfo.dtd" "../sinfo"
+ (expand-file-name "../etc/sgml" data-directory)
+ nil t)
+
+ (install-files '("tm-edit-en.sgml" "tm-edit-en.texi"
+ "tm-edit-ja.sgml" "tm-edit-ja.texi"
+ "tm-en.sgml" "tm-en.texi"
+ "tm-ja.sgml" "tm-ja.texi"
+ "tm-view-en.sgml" "tm-view-en.texi"
+ "tm-view-ja.sgml" "tm-view-ja.texi"
+ )
+ "doc"
+ (expand-file-name "../man/tm" data-directory)
+ nil t)
+ (install-files '("tm-edit-en.info" "tm-edit-ja.info"
+ "tm-en.info" "tm-ja.info"
+ "tm-view-en.info" "tm-view-ja.info"
+ )
+ "doc"
+ (expand-file-name "../info" data-directory)
+ nil t)
+ (install-files '("gnus-mime-en.sgml" "gnus-mime-en.texi"
+ "gnus-mime-ja.sgml" "gnus-mime-ja.texi"
+ )
+ "../gnus-mime"
+ (expand-file-name "../man/tm" data-directory)
+ nil t)
+ (install-files '("gnus-mime-en.info" "gnus-mime-ja.info")
+ "../gnus-mime"
+ (expand-file-name "../info" data-directory)
+ nil t)
+ (install-files '("tm-mh-e-en.sgml" "tm-mh-e-en.texi"
+ "tm-mh-e-ja.sgml" "tm-mh-e-ja.texi"
+ )
+ "../tm-mh-e"
+ (expand-file-name "../man/tm" data-directory)
+ nil t)
+ (install-files '("tm-mh-e-en.info" "tm-mh-e-ja.info")
+ "../tm-mh-e"
+ (expand-file-name "../info" data-directory)
+ nil t)
+ (install-files '("tm-vm_en.texi")
+ "../tm-vm"
+ (expand-file-name "../man/tm" data-directory)
+ nil t)
+ (install-files '("tm-vm_en.info")
+ "../tm-vm"
+ (expand-file-name "../info" data-directory)
+ nil t)
+ )
+
;;; TM-MK ends here