inst-tm

   1 ;;; -*-Emacs-Lisp-*-
   2 ;;;
   3 ;;; $Id: inst-tm,v 7.23 1996/08/22 14:28:43 morioka Exp morioka $
   4 ;;;
   5
   6 (load-file "TM-CFG")
   7 (load-file "../tl/TL-ELS")
   8 (load-file "../mel/MEL-ELS")
   9 (load-file "TM-ELS")
  10 (load-file "mh-e/TMH-ELS")
  11
  12 (defun make-mime-setup (tl-path mel-path tm-path)
  13   (let ((buf (find-file "mime-setup.el.in")))
  14     (goto-char (point-min))
  15     (re-search-forward "^;;; Code:" nil t)
  16     (setq buffer-read-only nil)
  17     (if (member tl-path default-load-path)
  18         (insert "
  19
  20 \(require \'tl-misc)")
  21       (insert
  22        (format "
  23
  24 \(let ((load-path
  25        (cons \"%s\"
  26              load-path)))
  27   (require \'tl-misc)
  28   )
  29 \(add-path \"%s\")" tl-path tl-path))
  30       )
  31     (or (member mel-path default-load-path)
  32         (insert
  33          (format "
  34 \(add-path \"%s\")" mel-path)))
  35     (or (member tm-path default-load-path)
  36         (insert
  37          (format "
  38 \(add-path \"%s\")" tm-path)))
  39     (insert (format "
  40 (defvar mime-viewer/external-progs \"%s\")" METHOD_DIR))
  41     (write-file "mime-setup.el")
  42     ))
  43
  44 (defun install-tm-gnus ()
  45   (erase-buffer)
  46   (call-process SHELL
  47                 nil t t
  48                 SHELLOPTION
  49                 (format
  50                  TM_GNUS_INSTALL_FORMAT
  51                  (car command-line-args) TM_GNUS_DIR)
  52                 )
  53   (princ (buffer-string))
  54   )
  55
  56 (defun compile-tm ()
  57   (print load-path)
  58   (require 'mel-u)
  59   (require 'tm-edit)
  60   (load "rmailsum")
  61   (require 'tm-mh-e)
  62   (make-mime-setup TL_DIR MEL_DIR TM_KERNEL_DIR)
  63   (compile-elisp-modules tl-modules             "../tl/")
  64   (compile-elisp-modules mel-modules            "../mel/")
  65   (compile-elisp-modules tm-modules-to-compile  ".")
  66   (compile-elisp-modules tm-mh-e-modules        "mh-e/")
  67   (compile-elisp-module  'mime-setup            ".")
  68   (save-excursion
  69     (set-buffer (get-buffer-create TM_GNUS_COMPILE))
  70     (let ((emacs (car command-line-args)))
  71       (insert (format "cd gnus\n%s gnus EMACS=%s PWD=`pwd`\n" MAKE emacs))
  72       (cond (running-xemacs-19_14-or-later
  73              )
  74             (running-xemacs
  75              (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n" MAKE emacs))
  76              )
  77             (t (cond (running-emacs-18
  78                       (insert (format "%s gnus3 EMACS=%s PWD=`pwd`\n"
  79                                       MAKE emacs))
  80                       (insert (format "%s gnus4 EMACS=%s PWD=`pwd`\n"
  81                                       MAKE emacs))
  82                       )
  83                      ((<= emacs-minor-version 29)
  84                       (insert (format "%s gnus4 EMACS=%s PWD=`pwd`\n"
  85                                       MAKE emacs))
  86                       (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n"
  87                                       MAKE emacs))
  88                       )
  89                      (t
  90                       (insert (format "%s gnus5 EMACS=%s PWD=`pwd`\n"
  91                                       MAKE emacs))
  92                       )))))
  93     (write-file TM_GNUS_COMPILE)
  94     ))
  95
  96 (defun install-el-and-elc-files (src dest el-files elc-files)
  97   (install-files el-files src dest nil t)
  98   (install-files elc-files src dest 'move)
  99   )
 100
 101 (defun install-tm ()
 102   (princ (format "%s\n" emacs-version))
 103   (print TL_DIR)
 104   (install-el-and-elc-files "../tl/" TL_DIR tl-el-files tl-elc-files)
 105   (install-elisp-modules mel-modules     "../mel/"      MEL_DIR)
 106   (install-elisp-modules tm-modules      "./"           TM_KERNEL_DIR)
 107   (install-elisp-modules tm-mh-e-modules "mh-e/"        TM_MHE_DIR)
 108   (install-tm-gnus)
 109   (install-el-and-elc-files "./" SETUP_FILE_DIR
 110                             '("mime-setup.el") '("mime-setup.elc"))
 111   )
 112
 113 (defun install-execs ()
 114   (install-files BINS       BIN_SRC_DIR    BIN_DIR)
 115   (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
 116   )
 117
 118 ;;; inst-tm ends here