TM-CFG

   1 ;;; -*-Emacs-Lisp-*-
   2 ;;;
   3 ;;; $Id: TM-CFG,v 7.2 1996/08/16 03:55:42 morioka Exp morioka $
   4 ;;;
   5
   6 (defvar default-load-path load-path)
   7 (setq load-path (append
   8                  (mapcar (function
   9                           (lambda (path)
  10                             (expand-file-name path (getenv "PWD"))
  11                             ))
  12                          '("." "../tl" "../mel" "mh-e")
  13                          )
  14                  load-path))
  15
  16 (require 'tl-misc)
  17 (require 'install)
  18
  19
  20 ;;; @ Please specify optional package directory if you use them.
  21 ;;;
  22
  23 ;; Please specify VM path.
  24 (add-path "vm-5.95beta" 'all-paths)
  25
  26 ;; Please specify Mailcrypt path.
  27 (add-path "mailcrypt-3.4" 'all-paths)
  28
  29 ;; Please specify BBDB path.
  30 (add-path "bbdb-1.50" 'all-paths)
  31
  32
  33 ;;; @ shell
  34 ;;;
  35
  36 ;; Please specify shell command path.
  37 (setq SHELL "/bin/sh")
  38
  39 ;; Please specify shell command option.
  40 (setq SHELLOPTION "-c")
  41
  42
  43 ;;; @ Please specify prefix of install directory.
  44 ;;;
  45
  46 ;; Please specify install path prefix.
  47 (setq PREFIX
  48       (if (or running-emacs-18 running-xemacs)
  49           (expand-file-name "../../.." exec-directory)
  50         (expand-file-name "../../../.." data-directory)
  51         )) ; install to shared directory (maybe "/usr/local")
  52 ;;(setq PREFIX "~/")    ; install to your home directory
  53
  54 ;; Please specify install path prefix for binaries.
  55 (setq EXEC_PREFIX
  56       (if (or running-emacs-18 running-xemacs)
  57           (expand-file-name "../../.." exec-directory)
  58         (expand-file-name "../../../.." exec-directory)
  59         ))
  60
  61 ;; Please specify tm package prefix [optional]
  62 (setq TM_PACKAGE_PREFIX "")
  63
  64 ;; Please specify tl prefix [optional]
  65 ;;(setq TL_PREFIX "tl")
  66 (setq TL_PREFIX
  67       (if (string-match "XEmacs" emacs-version)
  68           "tl"
  69         ""))
  70
  71 ;; Please specify MEL prefix [optional]
  72 (setq MEL_PREFIX "mel")
  73
  74 ;; Please specify tm prefix [optional]
  75 (setq TM_PREFIX "tm")
  76
  77 ;; lisp files of tm are installed into following directory tree:
  78 ;;
  79 ;;      LISPDIR = PREFIX/DATA_PREFIX/LISP_PREFIX/
  80 ;;      LISPDIR/mime-setup.{el|elc}
  81 ;;      LISPDIR/TM_PACKAGE_PREFIX/TL_PREFIX/  --- tl  lisp files
  82 ;;      LISPDIR/TM_PACKAGE_PREFIX/MEL_PREFIX/ --- MEL lisp files
  83 ;;      LISPDIR/TM_PACKAGE_PREFIX/TM_PREFIX/  --- tm  lisp files
  84 ;;
  85 ;; For example, if PREFIX = "/usr/local/" and you use Emacs 19.30,
  86 ;;
  87 ;;      LISPDIR = /usr/local/share/emacs/site-lisp/
  88 ;;      /usr/local/share/emacs/site-lisp/mime-setup.{el|elc}
  89 ;;      /usr/local/share/emacs/site-lisp/     --- tl  lisp files
  90 ;;      /usr/local/share/emacs/site-lisp/mel/ --- MEL lisp files
  91 ;;      /usr/local/share/emacs/site-lisp/tm/  --- tm  lisp files
  92 ;;
  93 ;; For example, if PREFIX = "~/" and you use XEmacs,
  94 ;;
  95 ;;      LISPDIR = ~/share/xemacs/site-lisp/
  96 ;;      ~/share/xemacs/site-lisp/mime-setup.{el|elc}
  97 ;;      ~/share/xemacs/site-lisp/tl/  --- tl  lisp files
  98 ;;      ~/share/xemacs/site-lisp/mel/ --- MEL lisp files
  99 ;;      ~/share/xemacs/site-lisp/tm/  --- tm  lisp files
 100
 101
 102 ;;; @ executables
 103 ;;;
 104
 105 ;; Please specify binary path.
 106 (defvar BIN_DIR (expand-file-name "bin" EXEC_PREFIX))
 107
 108 ;; Please specify binary path. (for external method scripts)
 109 (setq METHOD_DIR (expand-file-name "share/tm" PREFIX))
 110
 111
 112 \f
 113
 114 ;;; @ optional settings
 115 ;;;
 116
 117 (setq LISP_PREFIX
 118       (if (>= emacs-major-version 19)
 119           "site-lisp"
 120         "local.lisp"))
 121
 122 (defvar LISPDIR
 123   (or
 124    (catch 'tag
 125      (let ((rest default-load-path)
 126            dir)
 127        (while (setq dir (car rest))
 128          (if (string-match
 129               (concat
 130                "^" (expand-file-name (concat ".*/" LISP_PREFIX) PREFIX) "$")
 131               dir)
 132              (or (string-match (format "%d\\.%d"
 133                                        emacs-major-version
 134                                        emacs-minor-version) dir)
 135                  (throw 'tag dir)
 136                  ))
 137          (setq rest (cdr rest))
 138          )))
 139    (expand-file-name (concat
 140                       (if running-emacs-19
 141                           "share/"
 142                         "lib/")
 143                       (cond ((boundp 'NEMACS) "nemacs/")
 144                             ((boundp 'MULE)   "mule/")
 145                             (running-xemacs
 146                              (if (featurep 'mule)
 147                                  "xmule/"
 148                                "xemacs/"))
 149                             (t "emacs/"))
 150                       LISP_PREFIX) PREFIX)
 151    ))
 152
 153 ;; Please specify mime-setup.{el|elc} install path.
 154 (setq SETUP_FILE_DIR LISPDIR)
 155
 156 (setq TM_LISPDIR (expand-file-name TM_PACKAGE_PREFIX LISPDIR))
 157
 158 (setq TL_DIR (expand-file-name TL_PREFIX TM_LISPDIR))
 159 (setq MEL_DIR (expand-file-name MEL_PREFIX TM_LISPDIR))
 160 (setq TM_KERNEL_DIR (expand-file-name TM_PREFIX TM_LISPDIR))
 161 (setq TM_MHE_DIR TM_KERNEL_DIR)
 162 (setq TM_GNUS_DIR TM_KERNEL_DIR)
 163
 164 (setq TM_GNUS_INSTALL_FORMAT
 165       "cd gnus; PWD=`pwd` make install-19 EMACS=%s TMDIR19=%s")
 166 (setq TM_GNUS_COMPILE ".gnus-compile")
 167 (setq MAKE "make")
 168
 169 (setq el-file-mode (+ (* 64 6)(* 8 4) 4))
 170
 171
 172 (setq BIN_SRC_DIR "src")
 173 (setq BINS '("ol2" "decode-b"))
 174 (setq METHOD_SRC_DIR "methods")
 175 (setq METHODS
 176       '("tm-au" "tm-file" "tm-html" "tm-image" "tm-mpeg" "tm-plain"
 177         "tmdecode"))