1 ;;; install.el --- Emacs Lisp package install utility
3 ;; Copyright (C) 1996,97,98,99,2001 Free Software Foundation, Inc.
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
8 ;; Keywords: install, byte-compile, directory detection
10 ;; This file is part of APEL (A Portable Emacs Library).
12 ;; This program is free software; you can redistribute it and/or
13 ;; modify it under the terms of the GNU General Public License as
14 ;; published by the Free Software Foundation; either version 2, or (at
15 ;; your option) any later version.
17 ;; This program is distributed in the hope that it will be useful, but
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;; General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs; see the file COPYING. If not, write to
24 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA.
29 (require 'poe) ; make-directory for v18
30 (require 'path-util) ; default-load-path
33 ;;; @ compile Emacs Lisp files
36 (defun compile-elisp-module (module &optional dir force)
38 MODULE is a symbol of emacs-lisp source file name without suffix.
39 Optional 2nd argument DIR is a directory where MODULE resides in.
40 Unless optional 3rd argument FORCE is non-nil, MODULE is byte-compiled
41 only when MODULE is newer than compiled file."
42 (setq module (expand-file-name (symbol-name module) dir))
43 (let ((el-file (concat module ".el"))
44 (elc-file (concat module ".elc")))
45 (if (or force (file-newer-than-file-p el-file elc-file))
46 (byte-compile-file el-file))))
48 (defun compile-elisp-modules (modules &optional dir force)
49 "Byte-compile MODULES.
50 See `compile-elisp-module' for more information."
52 (compile-elisp-module (car modules) dir force)
53 (setq modules (cdr modules))))
59 (defvar install-overwritten-file-modes (+ (* 64 6)(* 8 4) 4) ; 0644
60 "Default file modes for files installed by `install-file'.")
62 (defun install-file (file src dst &optional move overwrite dry-run)
63 "Install FILE in SRC directory to DST directory.
64 If optional 4th argument MOVE is non-nil, remove SRC/FILE.
65 If optional 5th argument OVERWRITE is non-nil, remove DST/FILE first.
66 If optional 6th argument DRY-RUN is non-nil, just show what would have
69 (princ (format "%s -> %s\n" file dst))
70 (let ((src-file (expand-file-name file src))
71 (dst-file (expand-file-name file dst)))
72 (if (file-exists-p src-file)
73 (let ((current-file-modes (default-file-modes)))
77 (set-default-file-modes install-overwritten-file-modes)
80 (rename-file src-file dst-file overwrite)
81 (set-file-modes dst-file
82 install-overwritten-file-modes))
83 (copy-file src-file dst-file overwrite t))
84 (princ (format "%s -> %s\n" file dst)))
86 (princ (format "%s: %s\n" file (nth 1 err)))))
87 (set-default-file-modes current-file-modes)))
88 (princ (format "%s: No such file or directory\n" src-file))))))
90 (defun install-files (files src dst &optional move overwrite dry-run)
92 See `install-file' for more information."
93 (or (file-exists-p dst)
94 (make-directory dst t))
96 (install-file (car files) src dst move overwrite dry-run)
97 (setq files (cdr files))))
100 ;;; @@ install Emacs Lisp files
103 (defun install-elisp-module (module src dst &optional dry-run)
105 MODULE is a symbol of emacs-lisp source file name without suffix.
106 See `install-file' for information of the rest of arguments."
107 (let* ((name (symbol-name module))
108 (el-file (concat name ".el"))
109 (elc-file (concat name ".elc")))
110 (install-file el-file src dst nil 'overwrite dry-run)
111 (install-file elc-file src dst 'move 'overwrite dry-run)))
113 (defun install-elisp-modules (modules src dst &optional dry-run)
115 See `install-elisp-modules' for more information."
116 (or (file-exists-p dst)
117 (make-directory dst t))
119 (install-elisp-module (car modules) src dst dry-run)
120 (setq modules (cdr modules))))
123 ;;; @ detect install path
126 ;; install to shared directory (maybe "/usr/local")
127 (defvar install-prefix
128 (if (or (<= emacs-major-version 18)
130 (and (boundp 'system-configuration-options) ; 19.29 or later
131 (string= system-configuration-options "NT"))) ; for Meadow
132 (expand-file-name "../../.." exec-directory)
133 (expand-file-name "../../../.." data-directory)))
135 (defvar install-elisp-prefix
136 (if (>= emacs-major-version 19)
138 ;; v18 does not have standard site directory.
141 (defun install-detect-elisp-directory (&optional prefix elisp-prefix
142 allow-version-specific)
144 (setq prefix install-prefix))
146 (setq elisp-prefix install-elisp-prefix))
148 (let ((rest default-load-path)
150 (expand-file-name (concat ".*/" elisp-prefix)
154 (if (string-match regexp (car rest))
155 (if (or allow-version-specific
156 (not (string-match (format "/%d\\.%d"
160 (throw 'tag (car rest))))
161 (setq rest (cdr rest)))))
162 (expand-file-name (concat (if (and (not (featurep 'xemacs))
163 (or (>= emacs-major-version 20)
164 (and (= emacs-major-version 19)
165 (> emacs-minor-version 28))))
173 ;; unfortunately, unofficial mule based on
174 ;; 19.29 and later use "emacs/" by default.
175 ((boundp 'MULE) "mule/")
176 ((boundp 'NEMACS) "nemacs/")
181 (defvar install-default-elisp-directory
182 (install-detect-elisp-directory))
185 ;;; @ for XEmacs package system
188 (defun install-update-package-files (package dir &optional dry-run)
191 (princ (format "Updating autoloads in directory %s..\n\n" dir))
193 (princ (format "Processing %s\n" dir))
194 (princ "Generating custom-load.el...\n\n")
196 (princ (format "Compiling %s...\n"
197 (expand-file-name "auto-autoloads.el" dir)))
198 (princ (format "Wrote %s\n"
199 (expand-file-name "auto-autoloads.elc" dir)))
201 (princ (format "Compiling %s...\n"
202 (expand-file-name "custom-load.el" dir)))
203 (princ (format "Wrote %s\n"
204 (expand-file-name "custom-load.elc" dir))))
206 (setq autoload-package-name package)
208 (let ((command-line-args-left (list dir)))
209 (batch-update-directory))
211 (let ((command-line-args-left (list dir)))
212 (Custom-make-dependencies))
214 (byte-compile-file (expand-file-name "auto-autoloads.el" dir))
215 (byte-compile-file (expand-file-name "custom-load.el" dir)))))
218 ;;; @ Other Utilities
221 (defun install-just-print-p ()
222 (let ((flag (getenv "MAKEFLAGS"))
223 (case-fold-search nil))
224 (princ (format "%s\n" flag))
226 (string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag))))
233 (product-provide (provide 'install) (require 'apel-ver))
235 ;;; install.el ends here