3 ;; TM-MK: installer for tm.
8 (let (prefix exec-prefix)
9 (setq prefix (car command-line-args-left))
11 (not (string-equal "NONE" prefix))
13 (defvar PREFIX prefix)
14 (setq command-line-args-left (cdr command-line-args-left))
16 (setq exec-prefix (car command-line-args-left))
18 (defvar EXEC_PREFIX exec-prefix)
19 ;;(setq command-line-args-left (cdr command-line-args-left))
22 (load-file "../apel/EMU-ELS")
23 (load-file "../apel/APEL-ELS")
24 (load-file "../tl/TL-ELS")
25 (load-file "../bitmap-mule/BITMAP-ELS")
26 (load-file "../mu/MU-ELS")
27 (load-file "../flim/FLIM-ELS")
29 (load-file "../tm-mh-e/TMH-ELS")
30 (load-file "../tm-mail/TMAIL-ELS")
31 (load-file "../tm-vm/TM-VM-ELS")
32 (princ (format "PREFIX=%s\tEXEC_PREFIX=%s\n" PREFIX EXEC_PREFIX))
35 (defun directory= (dir1 dir2)
36 (string= (file-name-as-directory dir1)(file-name-as-directory dir2))
39 (defun make-mime-setup (lisp-dir
40 tl-path bitmap-path mu-path mel-path tm-path)
41 (if (file-exists-p "mime-setup.el")
42 (delete-file "mime-setup.el")
44 (let ((buf (let (vc-follow-symlinks)
45 (find-file "mime-setup.el.in")
47 (goto-char (point-min))
48 (re-search-forward "^;;; Code:\n" nil t)
49 (setq buffer-read-only nil)
51 ;; generate tl setting
52 (let ((tl-absolute-path (expand-file-name tl-path lisp-dir)))
53 (if (MEMBER tl-absolute-path default-load-path
54 :test (function directory=))
55 (insert "\n(require \'tl-misc)")
64 \(add-path \"%s\")" tl-absolute-path tl-path))
67 ;; generate MU load-path setting
69 (or (MEMBER (expand-file-name bitmap-path lisp-dir)
71 :test (function directory=))
72 (insert (format "\n(add-path \"%s\")" bitmap-path))
75 ;; generate MU load-path setting
76 (or (MEMBER (expand-file-name mu-path lisp-dir)
78 :test (function directory=))
79 (insert (format "\n(add-path \"%s\")" mu-path))
82 ;; generate MEL load-path setting
83 (or (MEMBER (expand-file-name mel-path lisp-dir)
85 :test (function directory=))
86 (insert (format "\n(add-path \"%s\")" mel-path))
89 ;; generate tm load-path setting
90 (or (MEMBER (expand-file-name tm-path lisp-dir)
92 :test (function directory=))
93 (insert (format "\n(add-path \"%s\")" tm-path))
96 ;; generate tm external-methods path setting
97 (or (string= METHOD_DIR exec-directory)
100 (defvar mime-viewer/external-progs%s
101 \"*Directory containing tm external methods.\")
103 (add-to-list 'exec-path mime-viewer/external-progs)
105 (let ((paths (parse-colon-path (getenv \"PATH\"))))
106 (or (member mime-viewer/external-progs paths)
108 (mapconcat (function identity)
109 (append paths (list mime-viewer/external-progs))
113 (let ((dir (file-relative-name METHOD_DIR data-directory)))
114 (if (< (length dir) (length METHOD_DIR))
115 (concat "\n (expand-file-name \""
116 dir "\" data-directory)")
117 (setq dir (file-relative-name METHOD_DIR
118 (expand-file-name "~/")))
119 (if (< (length dir) (length METHOD_DIR))
120 (concat "\n (expand-file-name \"~/"
122 (concat " \"" METHOD_DIR "\"")
126 (write-file "mime-setup.el")
136 (make-mime-setup LISPDIR
137 TL_RELATIVE_DIR BITMAP_RELATIVE_DIR
138 MU_RELATIVE_DIR FLIM_RELATIVE_DIR
139 TM_KERNEL_RELATIVE_DIR)
140 (compile-elisp-modules emu-modules "../apel")
141 (compile-elisp-modules apel-modules "../apel")
142 (compile-elisp-modules tl-modules "../tl")
143 (compile-elisp-modules bitmap-modules "../bitmap-mule")
144 (compile-elisp-modules mu-modules-to-compile "../mu")
145 (compile-elisp-modules flim-modules "../flim")
146 (compile-elisp-modules tm-modules-to-compile ".")
147 (compile-elisp-modules tm-mh-e-modules "../tm-mh-e")
148 (compile-elisp-module 'mime-setup ".")
152 (cond ((featurep 'gnus-ems)
153 (load "../gnus-mime/Gnus-MIME-ELS")
154 (compile-elisp-modules gnus-mime-modules-to-compile
158 (load "../tm-gnus/TGNUS-ELS")
159 (compile-elisp-modules tm-gnus-modules-to-compile "../tm-gnus")
162 (compile-elisp-modules tm-mail-modules "../tm-mail")
163 (compile-elisp-modules tm-vm-modules-to-compile "../tm-vm")
168 (princ (format "%s\n" emacs-version))
169 (install-elisp-modules emu-modules "../apel" EMU_DIR)
170 (install-elisp-modules apel-modules "../apel" APEL_DIR)
171 (install-elisp-modules tl-modules "../tl" TL_DIR)
172 (install-elisp-modules bitmap-modules "../bitmap-mule" BITMAP_DIR)
173 (install-elisp-modules mu-modules "../mu" MU_DIR)
174 (install-elisp-modules flim-modules "../flim" FLIM_DIR)
175 (install-elisp-modules tm-modules "." TM_KERNEL_DIR)
176 (install-elisp-modules tm-mh-e-modules "../tm-mh-e" TM_MHE_DIR)
181 (cond ((featurep 'gnus-ems)
182 (load "../gnus-mime/Gnus-MIME-ELS")
183 (install-elisp-modules gnus-mime-modules
184 "../gnus-mime" Gnus_MIME_DIR)
187 (load "../tm-gnus/TGNUS-ELS")
188 (install-elisp-modules tm-gnus-modules "../tm-gnus" TM_GNUS_DIR)
191 (install-elisp-modules tm-mail-modules "../tm-mail" TM_MAIL_DIR)
192 (install-elisp-modules tm-vm-modules "../tm-vm" TM_VM_DIR)
193 (install-elisp-modules '(mime-setup) "." SETUP_FILE_DIR)
196 (defun install-execs ()
198 (install-files BINS BIN_SRC_DIR BIN_DIR)
199 (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
203 (defun update-xemacs-source ()
204 (setq LISPDIR (expand-file-name "../lisp" data-directory))
206 (setq EMU_DIR TL_DIR)
207 (setq SETUP_FILE_DIR TM_KERNEL_DIR)
208 (load-file "../emu/EMU-ELS")
209 (load-file "../tl/TL-ELS")
210 (load-file "../mu/MU-ELS")
211 (load-file "../mel/MEL-ELS")
213 (load-file "../tm-mh-e/TMH-ELS")
214 (load-file "../tm-mail/TMAIL-ELS")
215 (load-file "../tm-vm/TM-VM-ELS")
217 (copy-file "mime-setup.el.in" "mime-setup.el" t t)
218 (set-file-modes "mime-setup.el" (+ (* 6 64) (* 4 8) 4))
219 (compile-elisp-modules emu-modules "../apel")
220 (compile-elisp-modules tl-modules "../tl")
221 (compile-elisp-modules mu-modules-to-compile "../mu")
222 (compile-elisp-modules mel-modules "../mel")
223 (compile-elisp-modules tm-modules-to-compile ".")
224 (compile-elisp-modules tm-mh-e-modules "../tm-mh-e")
225 (compile-elisp-module 'mime-setup ".")
227 (load "../gnus-mime/Gnus-MIME-ELS")
228 (compile-elisp-modules gnus-mime-modules-to-compile "../gnus-mime")
229 (compile-elisp-modules tm-mail-modules "../tm-mail")
230 (compile-elisp-modules tm-vm-modules-to-compile "../tm-vm")
232 (install-elisp-modules emu-modules "../apel" EMU_DIR)
233 (install-elisp-modules tl-modules "../tl" TL_DIR)
234 (install-elisp-modules mu-modules "../mu" MU_DIR)
235 (install-elisp-modules mel-modules "../mel" MEL_DIR)
236 (install-elisp-modules tm-modules "." TM_KERNEL_DIR)
237 (install-elisp-modules tm-mh-e-modules "../tm-mh-e" TM_MHE_DIR)
238 (install-elisp-modules gnus-mime-modules "../gnus-mime" Gnus_MIME_DIR)
239 (install-elisp-modules tm-mail-modules "../tm-mail" TM_MAIL_DIR)
240 (install-elisp-modules tm-vm-modules "../tm-vm" TM_VM_DIR)
241 (install-elisp-modules '(mime-setup) "." SETUP_FILE_DIR)
243 (setq METHOD_DIR (expand-file-name "../lib-src" data-directory))
244 (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
246 (install-file "sinfo.dtd" "../sinfo"
247 (expand-file-name "../etc/sgml" data-directory)
250 (install-files '("tm-edit-en.sgml" "tm-edit-en.texi"
251 "tm-edit-ja.sgml" "tm-edit-ja.texi"
252 "tm-en.sgml" "tm-en.texi"
253 "tm-ja.sgml" "tm-ja.texi"
254 "tm-view-en.sgml" "tm-view-en.texi"
255 "tm-view-ja.sgml" "tm-view-ja.texi"
258 (expand-file-name "../man/tm" data-directory)
260 (install-files '("tm-edit-en.info" "tm-edit-ja.info"
261 "tm-en.info" "tm-ja.info"
262 "tm-view-en.info" "tm-view-ja.info"
265 (expand-file-name "../info" data-directory)
267 (install-files '("gnus-mime-en.sgml" "gnus-mime-en.texi"
268 "gnus-mime-ja.sgml" "gnus-mime-ja.texi"
271 (expand-file-name "../man/tm" data-directory)
273 (install-files '("gnus-mime-en.info" "gnus-mime-ja.info")
275 (expand-file-name "../info" data-directory)
277 (install-files '("tm-mh-e-en.sgml" "tm-mh-e-en.texi"
278 "tm-mh-e-ja.sgml" "tm-mh-e-ja.texi"
281 (expand-file-name "../man/tm" data-directory)
283 (install-files '("tm-mh-e-en.info" "tm-mh-e-ja.info")
285 (expand-file-name "../info" data-directory)
287 (install-files '("tm-vm_en.texi")
289 (expand-file-name "../man/tm" data-directory)
291 (install-files '("tm-vm_en.info")
293 (expand-file-name "../info" data-directory)