3 ;;; $Id: TM-MK,v 7.48 1997/02/06 18:30:30 morioka Exp $
7 (let (prefix exec-prefix)
8 (setq prefix (car command-line-args-left))
10 (not (string-equal "NONE" prefix))
12 (defvar PREFIX prefix)
13 (setq command-line-args-left (cdr command-line-args-left))
15 (setq exec-prefix (car command-line-args-left))
17 (defvar EXEC_PREFIX exec-prefix)
18 ;;(setq command-line-args-left (cdr command-line-args-left))
21 (load-file "../emu/EMU-ELS")
22 (load-file "../tl/TL-ELS")
23 (load-file "../bitmap-mule/BITMAP-ELS")
24 (load-file "../mu/MU-ELS")
25 (load-file "../mel/MEL-ELS")
27 (load-file "../tm-mh-e/TMH-ELS")
28 (load-file "../tm-mail/TMAIL-ELS")
29 (load-file "../tm-vm/TM-VM-ELS")
30 (princ (format "PREFIX=%s\tEXEC_PREFIX=%s\n" PREFIX EXEC_PREFIX))
33 (defun directory= (dir1 dir2)
34 (string= (file-name-as-directory dir1)(file-name-as-directory dir2))
37 (defun make-mime-setup (lisp-dir
38 tl-path bitmap-path mu-path mel-path tm-path)
40 (let (vc-follow-symlinks)
41 (find-file "mime-setup.el.in")
43 (goto-char (point-min))
44 (re-search-forward "^;;; Code:\n" nil t)
45 (setq buffer-read-only nil)
47 ;; generate tl setting
48 (let ((tl-absolute-path (expand-file-name tl-path lisp-dir)))
49 (if (MEMBER tl-absolute-path default-load-path
50 :test (function directory=))
51 (insert "\n(require \'tl-misc)")
60 \(add-path \"%s\")" tl-absolute-path tl-path))
63 ;; generate MU load-path setting
65 (or (MEMBER (expand-file-name bitmap-path lisp-dir)
67 :test (function directory=))
68 (insert (format "\n(add-path \"%s\")" bitmap-path))
71 ;; generate MU load-path setting
72 (or (MEMBER (expand-file-name mu-path lisp-dir)
74 :test (function directory=))
75 (insert (format "\n(add-path \"%s\")" mu-path))
78 ;; generate MEL load-path setting
79 (or (MEMBER (expand-file-name mel-path lisp-dir)
81 :test (function directory=))
82 (insert (format "\n(add-path \"%s\")" mel-path))
85 ;; generate tm load-path setting
86 (or (MEMBER (expand-file-name tm-path lisp-dir)
88 :test (function directory=))
89 (insert (format "\n(add-path \"%s\")" tm-path))
92 ;; generate tm external-methods path setting
93 (or (string= METHOD_DIR exec-directory)
96 (defvar mime-viewer/external-progs%s
97 \"*Directory containing tm external methods.\")
99 (add-to-list 'exec-path mime-viewer/external-progs)
101 (let ((paths (parse-colon-path (getenv \"PATH\"))))
102 (or (member mime-viewer/external-progs paths)
104 (mapconcat (function identity)
105 (append paths (list mime-viewer/external-progs))
109 (let ((dir (file-relative-name METHOD_DIR data-directory)))
110 (if (< (length dir) (length METHOD_DIR))
111 (concat "\n (expand-file-name \""
112 dir "\" data-directory)")
113 (setq dir (file-relative-name METHOD_DIR
114 (expand-file-name "~/")))
115 (if (< (length dir) (length METHOD_DIR))
116 (concat "\n (expand-file-name \"~/"
118 (concat " \"" METHOD_DIR "\"")
122 (write-file "mime-setup.el")
132 (make-mime-setup LISPDIR
133 TL_RELATIVE_DIR BITMAP_RELATIVE_DIR
134 MU_RELATIVE_DIR MEL_RELATIVE_DIR
135 TM_KERNEL_RELATIVE_DIR)
136 (compile-elisp-modules emu-modules "../emu")
137 (compile-elisp-modules tl-modules "../tl")
138 (compile-elisp-modules bitmap-modules "../bitmap-mule")
139 (compile-elisp-modules mu-modules-to-compile "../mu")
140 (compile-elisp-modules mel-modules "../mel")
141 (compile-elisp-modules tm-modules-to-compile ".")
142 (compile-elisp-modules tm-mh-e-modules "../tm-mh-e")
143 (compile-elisp-module 'mime-setup ".")
145 (cond ((featurep 'gnus-ems)
146 (load "../gnus-mime/Gnus-MIME-ELS")
147 (compile-elisp-modules gnus-mime-modules-to-compile "../gnus-mime")
150 (load "../tm-gnus/TGNUS-ELS")
151 (compile-elisp-modules tm-gnus-modules-to-compile "../tm-gnus")
153 (compile-elisp-modules tm-mail-modules "../tm-mail")
154 (compile-elisp-modules tm-vm-modules-to-compile "../tm-vm")
159 (princ (format "%s\n" emacs-version))
160 (install-elisp-modules emu-modules "../emu" EMU_DIR)
161 (install-elisp-modules tl-modules "../tl" TL_DIR)
162 (install-elisp-modules bitmap-modules "../bitmap-mule" BITMAP_DIR)
163 (install-elisp-modules mu-modules "../mu" MU_DIR)
164 (install-elisp-modules mel-modules "../mel" MEL_DIR)
165 (install-elisp-modules tm-modules "." TM_KERNEL_DIR)
166 (install-elisp-modules tm-mh-e-modules "../tm-mh-e" TM_MHE_DIR)
169 (cond ((featurep 'gnus-ems)
170 (load "../gnus-mime/Gnus-MIME-ELS")
171 (install-elisp-modules gnus-mime-modules
172 "../gnus-mime" Gnus_MIME_DIR)
175 (load "../tm-gnus/TGNUS-ELS")
176 (install-elisp-modules tm-gnus-modules "../tm-gnus" TM_GNUS_DIR)
178 (install-elisp-modules tm-mail-modules "../tm-mail" TM_MAIL_DIR)
179 (install-elisp-modules tm-vm-modules "../tm-vm" TM_VM_DIR)
180 (install-elisp-modules '(mime-setup) "." SETUP_FILE_DIR)
183 (defun install-execs ()
185 (install-files BINS BIN_SRC_DIR BIN_DIR)
186 (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
190 (defun update-xemacs-source ()
191 (setq LISPDIR (expand-file-name "../lisp" data-directory))
193 (setq EMU_DIR TL_DIR)
194 (setq SETUP_FILE_DIR TM_KERNEL_DIR)
195 (load-file "../emu/EMU-ELS")
196 (load-file "../tl/TL-ELS")
197 (load-file "../mu/MU-ELS")
198 (load-file "../mel/MEL-ELS")
200 (load-file "../tm-mh-e/TMH-ELS")
201 (load-file "../tm-mail/TMAIL-ELS")
202 (load-file "../tm-vm/TM-VM-ELS")
204 (copy-file "mime-setup.el.in" "mime-setup.el" t t)
205 (set-file-modes "mime-setup.el" (+ (* 6 64) (* 4 8) 4))
206 (compile-elisp-modules emu-modules "../emu")
207 (compile-elisp-modules tl-modules "../tl")
208 (compile-elisp-modules mu-modules-to-compile "../mu")
209 (compile-elisp-modules mel-modules "../mel")
210 (compile-elisp-modules tm-modules-to-compile ".")
211 (compile-elisp-modules tm-mh-e-modules "../tm-mh-e")
212 (compile-elisp-module 'mime-setup ".")
214 (load "../gnus-mime/Gnus-MIME-ELS")
215 (compile-elisp-modules gnus-mime-modules-to-compile "../gnus-mime")
216 (compile-elisp-modules tm-mail-modules "../tm-mail")
217 (compile-elisp-modules tm-vm-modules-to-compile "../tm-vm")
219 (install-elisp-modules emu-modules "../emu" EMU_DIR)
220 (install-elisp-modules tl-modules "../tl" TL_DIR)
221 (install-elisp-modules mu-modules "../mu" MU_DIR)
222 (install-elisp-modules mel-modules "../mel" MEL_DIR)
223 (install-elisp-modules tm-modules "." TM_KERNEL_DIR)
224 (install-elisp-modules tm-mh-e-modules "../tm-mh-e" TM_MHE_DIR)
225 (install-elisp-modules gnus-mime-modules "../gnus-mime" Gnus_MIME_DIR)
226 (install-elisp-modules tm-mail-modules "../tm-mail" TM_MAIL_DIR)
227 (install-elisp-modules tm-vm-modules "../tm-vm" TM_VM_DIR)
228 (install-elisp-modules '(mime-setup) "." SETUP_FILE_DIR)
230 (setq METHOD_DIR (expand-file-name "../lib-src" data-directory))
231 (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
233 (install-file "sinfo.dtd" "../sinfo"
234 (expand-file-name "../etc/sgml" data-directory)
237 (install-files '("tm-edit-en.sgml" "tm-edit-en.texi"
238 "tm-edit-ja.sgml" "tm-edit-ja.texi"
239 "tm-en.sgml" "tm-en.texi"
240 "tm-ja.sgml" "tm-ja.texi"
241 "tm-view-en.sgml" "tm-view-en.texi"
242 "tm-view-ja.sgml" "tm-view-ja.texi"
245 (expand-file-name "../man/tm" data-directory)
247 (install-files '("tm-edit-en.info" "tm-edit-ja.info"
248 "tm-en.info" "tm-ja.info"
249 "tm-view-en.info" "tm-view-ja.info"
252 (expand-file-name "../info" data-directory)
254 (install-files '("gnus-mime-en.sgml" "gnus-mime-en.texi"
255 "gnus-mime-ja.sgml" "gnus-mime-ja.texi"
258 (expand-file-name "../man/tm" data-directory)
260 (install-files '("gnus-mime-en.info" "gnus-mime-ja.info")
262 (expand-file-name "../info" data-directory)
264 (install-files '("tm-mh-e-en.sgml" "tm-mh-e-en.texi"
265 "tm-mh-e-ja.sgml" "tm-mh-e-ja.texi"
268 (expand-file-name "../man/tm" data-directory)
270 (install-files '("tm-mh-e-en.info" "tm-mh-e-ja.info")
272 (expand-file-name "../info" data-directory)
274 (install-files '("tm-vm_en.texi")
276 (expand-file-name "../man/tm" data-directory)
278 (install-files '("tm-vm_en.info")
280 (expand-file-name "../info" data-directory)