TM-CFG

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