3 ;;; $Id: mk-tm,v 7.0 1995/11/12 13:45:18 morioka Exp morioka $
6 (setq load-path (append
9 (expand-file-name path (getenv "PWD"))
11 '("." "../tl/" "../mel/")
17 ;; Please specify VM path.
18 (add-path "vm-5.95beta/")
23 (cond ((boundp 'NEMACS)
34 "tm-ew-d" "tm-ew-e" "tm-eword"
35 "tm-parse" "tm-view" "tm-play" "tm-partial"
36 "tm-latex" "tm-w3" "tm-tar" "tm-file"
38 "tm-setup" "mime-setup"
41 (if (or (< emacs-major-version 19)(< emacs-minor-version 29))
49 (setq tm-uncompile-el-files '("sc-setup.el"))
52 (let ((paths load-path) path)
54 (setq path (expand-file-name "ange-ftp.el" (car paths)))
55 (if (file-exists-p path)
58 (setq paths (cdr paths))
60 (setq tm-modules (append tm-modules '("tm-ftp")))
61 (setq tm-uncompile-el-files
62 (append tm-uncompile-el-files '("tm-ftp.el")))
66 (let ((paths load-path) path)
68 (setq path (expand-file-name "vm.elc" (car paths)))
69 (if (file-exists-p path)
72 (setq paths (cdr paths))
74 (setq tm-modules (append tm-modules '("tm-vm")))
75 (setq tm-uncompile-el-files
76 (append tm-uncompile-el-files '("tm-vm.el")))
79 (if (and (file-exists-p "tm-evs.el")
83 (setq tm-modules (append tm-modules '("tm-evs")))
87 (mapcar (function (lambda (module)
93 (mapcar (function (lambda (module)
94 (concat module ".elc")
102 (mapcar (function byte-compile-file file) tm-el-files)
105 (defconst el-file-mode (+ (* 64 6)(* 8 4) 4))
107 (defun install-el (path file)
108 (let ((full-path (expand-file-name file path)))
109 (if (file-exists-p full-path)
110 (set-file-modes full-path el-file-mode)
112 (copy-file file full-path t t)
113 (princ (format "%s -> %s\n" file path))
116 (defun install-el-files (path &rest files)
117 (mapcar (function (lambda (file)
118 (if (file-exists-p file)
119 (install-el path file)
123 (defun install-elc (path file)
124 (let ((full-path (expand-file-name file path)))
125 (copy-file file full-path t t)
127 (princ (format "%s -> %s\n" file path))
130 (defun install-elc-files (path &rest files)
131 (mapcar (function (lambda (file)
132 (if (file-exists-p file)
133 (install-elc path file)
138 (let ((path (car command-line-args-left)))
139 (princ (format "%s\n" emacs-version))
140 (if (not (file-exists-p path))
141 (make-directory path t)
143 (apply (function install-el-files) path
144 (append tm-el-files tm-uncompile-el-files)
146 (apply (function install-elc-files) path tm-elc-files)