Mercurial > hg > xemacs-beta
annotate lisp/packages.el @ 5490:8861440b1aa4
Remove all autoload cookies from dumped files, they're needless and confusing.
lisp/ChangeLog addition:
2011-05-01 Aidan Kehoe <kehoea@parhasard.net>
* buff-menu.el (list-buffers-directory):
* buff-menu.el (default-list-buffers-identification):
* cus-file.el (custom-file-base):
* cus-file.el (custom-file):
* cus-file.el (make-custom-file-name):
* menubar.el (menu-split-long-menu):
* newcomment.el:
* newcomment.el (indent-for-comment):
* newcomment.el (comment-column):
* newcomment.el (comment-start):
* newcomment.el (comment-start-skip):
* newcomment.el (comment-end-skip):
* newcomment.el (comment-end):
* newcomment.el (comment-indent-function):
* newcomment.el (comment-style):
* newcomment.el (comment-padding):
* newcomment.el (comment-multi-line):
* newcomment.el (comment-normalize-vars):
* newcomment.el (comment-indent):
* newcomment.el (comment-set-column):
* newcomment.el (comment-kill):
* newcomment.el (uncomment-region):
* newcomment.el (comment-region):
* newcomment.el (comment-or-uncomment-region):
* newcomment.el (comment-dwim):
* newcomment.el (comment-indent-new-line):
* x-win-sun.el (x-win-init-sun):
* x-win-xfree86.el (x-win-init-xfree86):
* mule/mule-composite.el:
* mule/mule-composite.el (reference-point-alist):
* mule/mule-composite.el (compose-region):
* mule/mule-composite.el (decompose-region):
* mule/mule-composite.el (compose-string):
* mule/mule-composite.el (decompose-string):
* mule/mule-composite.el (compose-chars):
* mule/mule-composite.el (find-composition):
* mule/mule-composite.el (compose-chars-after):
* mule/mule-composite.el (compose-last-chars):
* mule/mule-composite.el (decompose-composite-char):
Remove all autoload cookies from dumped files, they're needless
and confusing.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 01 May 2011 17:43:14 +0100 |
| parents | 4dee0387b9de |
| children | 10f179710250 |
| rev | line source |
|---|---|
| 428 | 1 ;;; packages.el --- Low level support for XEmacs packages |
| 2 | |
| 3 ;; Copyright (C) 1997 Free Software Foundation, Inc. | |
| 2557 | 4 ;; Copyright (C) 2002, 2003, 2004 Ben Wing. |
| 428 | 5 |
| 6 ;; Author: Steven L Baur <steve@xemacs.org> | |
| 7 ;; Maintainer: Steven L Baur <steve@xemacs.org> | |
| 8 ;; Keywords: internal, lisp, dumped | |
| 9 | |
| 10 ;; This file is part of XEmacs. | |
| 11 | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5264
diff
changeset
|
12 ;; XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5264
diff
changeset
|
13 ;; under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5264
diff
changeset
|
14 ;; Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5264
diff
changeset
|
15 ;; option) any later version. |
| 428 | 16 |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5264
diff
changeset
|
17 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5264
diff
changeset
|
18 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5264
diff
changeset
|
19 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5264
diff
changeset
|
20 ;; for more details. |
| 428 | 21 |
| 22 ;; You should have received a copy of the GNU General Public License | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
5264
diff
changeset
|
23 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 428 | 24 |
| 25 ;;; Synched up with: Not in FSF | |
| 26 | |
| 27 ;;; Commentary: | |
| 28 | |
| 29 ;; This file is dumped with XEmacs. | |
| 30 | |
| 31 ;; This file provides low level facilities for XEmacs startup -- | |
|
5284
d27c1ee1943b
Make the order of preloaded-file-list more sane.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5264
diff
changeset
|
32 ;; particularly regarding the package setup. |
| 428 | 33 |
| 34 ;; This file requires find-paths.el. | |
| 35 | |
| 36 ;;; Code: | |
| 37 | |
| 38 ;;; Package versioning | |
| 39 | |
| 40 (defvar packages-package-list nil | |
| 454 | 41 "Database of installed packages and version numbers") |
| 428 | 42 |
| 2456 | 43 ;;; Directories and paths |
| 44 | |
| 45 ;;; Terminology: | |
| 46 | |
| 47 ;;; A *package hierarchy* is a directory that contains a collection of | |
| 48 ;;; packages; it has lisp/, info/, etc/ etc. subdirectories that | |
| 49 ;;; contain the files constituting the packages. | |
| 50 | |
| 51 ;;; A *package directory* contains package hierarchies---the package | |
| 52 ;;; hierarchies are typically in directories "xemacs-packages", | |
| 53 ;;; "mule-packages", and so on. A package hierarchy might only be | |
| 54 ;;; applicable for specific variants of XEmacs. | |
| 55 | |
| 56 ;;; Package hierarchies come in "early", "late", and "last" variants, | |
| 57 ;;; depending on their relative location in the various paths. | |
| 58 ;;; "Early" hierarchies are typically in the user's home directory, | |
| 59 ;;; "late" hierarchies are typically part of the XEmacs installation, | |
| 60 ;;; and "last" package hierarchies are for special purposes, such as | |
| 61 ;;; making the packages of some previous XEmacs version available. | |
| 428 | 62 |
| 63 (defvar packages-load-path-depth 1 | |
| 64 "Depth of load-path search in package hierarchies.") | |
| 65 | |
| 66 (defvar packages-data-path-depth 1 | |
| 67 "Depth of data-path search in package hierarchies.") | |
| 68 | |
| 2456 | 69 (defvar early-package-hierarchies nil |
| 70 "Package hierarchies early in the load path.") | |
| 428 | 71 |
| 72 (defvar early-package-load-path nil | |
| 73 "Load path for packages early in the load path.") | |
| 74 | |
| 2456 | 75 (defvar late-package-hierarchies nil |
| 76 "Package hierarchies late in the load path.") | |
| 428 | 77 |
| 78 (defvar late-package-load-path nil | |
| 79 "Load path for packages late in the load path.") | |
| 80 | |
| 2456 | 81 (defvar last-package-hierarchies nil |
| 82 "Package hierarchies last in the load path.") | |
| 428 | 83 |
| 84 (defvar last-package-load-path nil | |
| 85 "Load path for packages last in the load path.") | |
| 86 | |
| 2456 | 87 (defun packages-package-hierarchy-directory-names () |
| 88 "Returns a list package hierarchy directory names. | |
| 89 These are the valid immediate directory names of package | |
| 90 directories, directories with higher priority first" | |
|
4919
9c6ea1581159
Remove a couple of XEmacs-specific duplicate functions, find-paths.el
Aidan Kehoe <kehoea@parhasard.net>
parents:
4108
diff
changeset
|
91 (delq nil `("site-packages" |
|
9c6ea1581159
Remove a couple of XEmacs-specific duplicate functions, find-paths.el
Aidan Kehoe <kehoea@parhasard.net>
parents:
4108
diff
changeset
|
92 ,(when (featurep 'mule) "mule-packages") |
|
9c6ea1581159
Remove a couple of XEmacs-specific duplicate functions, find-paths.el
Aidan Kehoe <kehoea@parhasard.net>
parents:
4108
diff
changeset
|
93 "xemacs-packages"))) |
| 428 | 94 |
| 95 (defun package-get-key-1 (info key) | |
| 96 "Locate keyword `key' in list." | |
| 97 (cond ((null info) | |
| 98 nil) | |
| 99 ((eq (car info) key) | |
| 100 (nth 1 info)) | |
| 101 (t (package-get-key-1 (cddr info) key)))) | |
| 102 | |
| 103 (defun package-get-key (name key) | |
| 104 "Get info `key' from package `name'." | |
| 105 (let ((info (assq name packages-package-list))) | |
| 106 (when info | |
| 107 (package-get-key-1 (cdr info) key)))) | |
| 108 | |
| 109 (defun package-provide (name &rest attributes) | |
| 110 (let ((info (if (and attributes (floatp (car attributes))) | |
| 111 (list :version (car attributes)) | |
| 112 attributes))) | |
| 113 (setq packages-package-list | |
| 114 (cons (cons name info) (remassq name packages-package-list))))) | |
| 115 | |
| 2557 | 116 (defun package-suppress (package file form) |
| 117 "Set up a package-suppress condition FORM for FILE in PACKAGE. | |
| 118 When XEmacs searches for a file in the load path, it will ignore FILE | |
| 119 if FORM evaluates to non-nil." | |
| 120 (setq load-suppress-alist | |
| 121 (acons (expand-file-name file load-file-name) form | |
| 122 load-suppress-alist))) | |
| 123 | |
| 428 | 124 (defun package-require (name version) |
| 125 (let ((pkg (assq name packages-package-list))) | |
| 126 (cond ((null pkg) | |
| 1410 | 127 (error 'invalid-state |
| 128 (format "Package %s has not been loaded into this XEmacsen" | |
| 129 name))) | |
| 428 | 130 ((< (package-get-key name :version) version) |
| 1410 | 131 (error 'search-failed |
| 132 (format "Need version %g of package %s, got version %g" | |
| 2252 | 133 version name (package-get-key name :version)))) |
| 428 | 134 (t t)))) |
| 135 | |
| 136 (defun package-delete-name (name) | |
| 137 (let (pkg) | |
| 138 ;; Delete ALL versions of package. | |
| 139 ;; This is pretty memory-intensive, as we use copy-alist when deleting | |
| 140 ;; package entries, to prevent side-effects in functions that call this | |
| 141 ;; one. | |
| 142 (while (setq pkg (assq name packages-package-list)) | |
| 143 (setq packages-package-list (delete pkg (copy-alist | |
| 1365 | 144 packages-package-list)))))) |
| 428 | 145 |
| 146 ;;; Build time stuff | |
| 147 | |
| 148 (defvar autoload-file-name "auto-autoloads.el" | |
| 149 "Filename that autoloads are expected to be found in.") | |
| 150 | |
| 1330 | 151 ;; Moved from help.el. |
| 428 | 152 ;; Unlike the FSF version, our `locate-library' uses the `locate-file' |
| 153 ;; primitive, which should make it lightning-fast. | |
| 154 | |
| 155 (defun locate-library (library &optional nosuffix path interactive-call) | |
| 156 "Show the precise file name of Emacs library LIBRARY. | |
| 157 This command searches the directories in `load-path' like `M-x load-library' | |
| 158 to find the file that `M-x load-library RET LIBRARY RET' would load. | |
| 159 Optional second arg NOSUFFIX non-nil means don't add suffixes `.elc' or `.el' | |
| 160 to the specified name LIBRARY. | |
| 161 | |
| 162 If the optional third arg PATH is specified, that list of directories | |
| 163 is used instead of `load-path'." | |
| 624 | 164 (interactive (list (read-library-name "Locate library: ") |
| 428 | 165 nil nil |
| 166 t)) | |
| 167 (let ((result | |
| 168 (locate-file | |
| 169 library | |
| 170 (or path load-path) | |
| 171 (cond ((or (rassq 'jka-compr-handler file-name-handler-alist) | |
| 172 (and (boundp 'find-file-hooks) | |
| 173 (member 'crypt-find-file-hook find-file-hooks))) | |
| 174 ;; Compression involved. | |
| 175 (if nosuffix | |
| 448 | 176 '("" ".gz" ".Z" ".bz2") |
| 177 '(".elc" ".elc.gz" "elc.Z" ".elc.bz2" | |
| 178 ".el" ".el.gz" ".el.Z" ".el.bz2" | |
| 179 "" ".gz" ".Z" ".bz2"))) | |
| 428 | 180 (t |
| 181 ;; No compression. | |
| 182 (if nosuffix | |
| 183 "" | |
| 184 '(".elc" ".el" ""))))))) | |
| 185 (and interactive-call | |
| 186 (if result | |
| 187 (message "Library is file %s" result) | |
| 188 (message "No library %s in search path" library))) | |
| 189 result)) | |
| 190 | |
| 191 (defun packages-add-suffix (str) | |
| 192 (if (null (string-match "\\.el\\'" str)) | |
| 193 (concat str ".elc") | |
| 194 str)) | |
| 195 | |
| 196 (defun packages-list-autoloads-path () | |
| 197 "List autoloads from precomputed load-path." | |
| 198 (let ((path load-path) | |
| 199 autoloads) | |
| 200 (while path | |
| 201 (if (file-exists-p (concat (car path) | |
| 202 autoload-file-name)) | |
| 203 (setq autoloads (cons (concat (car path) | |
| 204 autoload-file-name) | |
| 205 autoloads))) | |
| 206 (setq path (cdr path))) | |
| 207 autoloads)) | |
| 208 | |
| 209 (defun packages-list-autoloads (source-directory) | |
| 210 "List autoload files in (what will be) the normal lisp search path. | |
| 211 This function is used during build to find where the global symbol files so | |
| 212 they can be perused for their useful information." | |
| 213 (let ((files (directory-files (file-name-as-directory source-directory) | |
| 214 t ".*")) | |
| 215 file autolist) | |
| 216 ;; (print (prin1-to-string source-directory)) | |
| 217 ;; (print (prin1-to-string files)) | |
| 218 (while (setq file (car-safe files)) | |
| 219 (if (and (file-directory-p file) | |
| 220 (file-exists-p (concat (file-name-as-directory file) | |
| 221 autoload-file-name))) | |
| 222 (setq autolist (cons (concat (file-name-as-directory file) | |
| 223 autoload-file-name) | |
| 224 autolist))) | |
| 225 (setq files (cdr files))) | |
| 226 autolist)) | |
| 227 | |
| 228 ;; The following function cannot be called from a bare temacs | |
| 229 (defun packages-new-autoloads () | |
| 230 "Return autoloads files that have been added or modified since XEmacs dump." | |
| 231 (require 'loadhist) | |
| 232 (let ((me (concat invocation-directory invocation-name)) | |
| 233 (path load-path) | |
| 234 result dir) | |
| 235 (while path | |
| 236 (setq dir (file-truename (car path))) | |
| 237 (let ((autoload-file (file-name-sans-extension (concat | |
| 238 dir | |
| 239 autoload-file-name)))) | |
| 240 ;; Check for: | |
| 241 ;; 1. An auto-autoload file that hasn't provided a feature (because | |
| 242 ;; it has been installed since XEmacs was dumped). | |
| 243 ;; 2. auto-autoload.el being newer than the executable | |
| 244 ;; 3. auto-autoload.elc being newer than the executable (the .el | |
| 245 ;; could be missing or compressed) | |
| 246 (when (or (and (null (file-provides autoload-file)) | |
| 247 (or (file-exists-p (concat autoload-file ".elc")) | |
| 248 (file-exists-p (concat autoload-file ".el")))) | |
| 249 (and (file-newer-than-file-p (concat autoload-file ".el") me) | |
| 250 (setq autoload-file (concat autoload-file ".el"))) | |
| 251 (and (file-newer-than-file-p (concat autoload-file | |
| 252 ".elc") | |
| 253 me) | |
| 254 (setq autoload-file (concat autoload-file ".elc")))) | |
| 255 (push autoload-file result))) | |
| 256 (setq path (cdr path))) | |
| 257 result)) | |
| 258 | |
| 259 ;; The following function cannot be called from a bare temacs | |
| 260 (defun packages-reload-autoloads () | |
| 261 "Reload new or updated auto-autoloads files. | |
| 262 This is an extremely dangerous function to call after the user-init-files | |
| 263 is run. Don't call it or you'll be sorry." | |
| 264 (let ((autoload-list (packages-new-autoloads))) | |
| 265 (while autoload-list | |
| 266 (let* ((autoload-file (car autoload-list)) | |
| 267 (feature (car-safe (file-provides autoload-file)))) | |
| 268 (when feature | |
| 269 ;; (message "(unload-feature %S)" feature) | |
| 270 (unload-feature feature)) | |
| 271 (condition-case nil | |
| 272 (load autoload-file) | |
| 273 (t nil))) | |
| 274 (setq autoload-list (cdr autoload-list))))) | |
| 275 | |
| 276 ;; Data-directory is really a list now. Provide something to search it for | |
| 277 ;; directories. | |
| 278 | |
| 279 (defun locate-data-directory-list (name &optional dir-list) | |
| 280 "Locate the matching list of directories in a search path DIR-LIST. | |
| 281 If no DIR-LIST is supplied, it defaults to `data-directory-list'." | |
| 282 (unless dir-list | |
| 283 (setq dir-list data-directory-list)) | |
| 284 (let (found found-dir found-dir-list) | |
| 285 (while dir-list | |
| 286 (setq found (file-name-as-directory (concat (car dir-list) name)) | |
| 287 found-dir (file-directory-p found)) | |
| 288 (and found-dir | |
| 289 (setq found-dir-list (cons found found-dir-list))) | |
| 290 (setq dir-list (cdr dir-list))) | |
| 291 (nreverse found-dir-list))) | |
| 292 | |
| 293 ;; Data-directory is really a list now. Provide something to search it for | |
| 294 ;; a directory. | |
| 295 | |
| 296 (defun locate-data-directory (name &optional dir-list) | |
| 297 "Locate a directory in a search path DIR-LIST (a list of directories). | |
| 298 If no DIR-LIST is supplied, it defaults to `data-directory-list'." | |
| 299 (unless dir-list | |
| 300 (setq dir-list data-directory-list)) | |
| 301 (let (found found-dir) | |
| 302 (while (and (null found-dir) dir-list) | |
| 303 (setq found (file-name-as-directory (concat (car dir-list) name)) | |
| 304 found-dir (file-directory-p found)) | |
| 305 (or found-dir | |
| 306 (setq found nil)) | |
| 307 (setq dir-list (cdr dir-list))) | |
| 308 found)) | |
| 309 | |
| 310 ;; Data-directory is really a list now. Provide something to search it for | |
| 311 ;; files. | |
| 312 | |
| 313 (defun locate-data-file (name &optional dir-list) | |
| 314 "Locate a file in a search path DIR-LIST (a list of directories). | |
| 315 If no DIR-LIST is supplied, it defaults to `data-directory-list'. | |
| 316 This function is basically a wrapper over `locate-file'." | |
| 633 | 317 (locate-file name (or dir-list data-directory-list))) |
| 428 | 318 |
| 319 ;; Path setup | |
| 320 | |
| 2456 | 321 (defun packages-find-package-hierarchies-named (package-directories base) |
| 322 "Find a set of package hierarchies within an XEmacs installation. | |
| 323 PACKAGE-DIRECTORIES is a list of package directories. | |
| 324 BASE is a subdirectory name for the hierarchy. | |
| 325 Returns list of hierarchies." | |
| 326 (paths-directories-which-exist | |
| 327 (mapcar #'(lambda (package-directory) | |
| 3179 | 328 (file-name-as-directory |
| 329 (concat (file-name-as-directory package-directory) | |
| 330 base))) | |
| 2456 | 331 package-directories))) |
| 428 | 332 |
| 333 (defun packages-split-path (path) | |
| 334 "Split PATH at \"\", return pair with two components. | |
| 335 The second component is shared with PATH." | |
| 336 (let ((reverse-tail '()) | |
| 337 (rest path)) | |
| 338 (while (and rest (null (string-equal "" (car rest)))) | |
| 339 (setq reverse-tail (cons (car rest) reverse-tail)) | |
| 340 (setq rest (cdr rest))) | |
| 341 (if (null rest) | |
| 342 (cons path nil) | |
| 343 (cons (nreverse reverse-tail) (cdr rest))))) | |
| 344 | |
| 345 (defun packages-split-package-path (package-path) | |
| 346 "Split up PACKAGE-PATH into early, late and last components. | |
| 347 The separation is by \"\" components. | |
| 2456 | 348 This returns |
| 349 (LIST EARLY-PACKAGE-HIERARCHIES LATE-PACKAGE-HIERARCHIES LAST-PACKAGE-HIERARCHIES)." | |
| 428 | 350 ;; When in doubt, it's late |
| 351 (let* ((stuff (packages-split-path package-path)) | |
| 352 (early (and (cdr stuff) (car stuff))) | |
| 353 (late+last (or (cdr stuff) (car stuff))) | |
| 354 (stuff (packages-split-path late+last)) | |
| 355 (late (car stuff)) | |
| 356 (last (cdr stuff))) | |
| 2456 | 357 (list (mapcar #'file-name-as-directory early) |
| 358 (mapcar #'file-name-as-directory late) | |
| 359 (mapcar #'file-name-as-directory last)))) | |
| 428 | 360 |
| 361 (defun packages-deconstruct (list consumer) | |
| 2456 | 362 "Deconstruct LIST and feed it to CONSUMER. |
| 363 CONSUMER is a function that accepts the elements of LISTS as separate arguments." | |
| 428 | 364 (apply consumer list)) |
| 365 | |
| 2456 | 366 (defun packages-find-installation-package-directories (roots) |
| 367 "Find the package directories in the XEmacs installation. | |
| 368 ROOTS is a list of installation roots." | |
|
5003
6b6b0f8ab749
#'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4919
diff
changeset
|
369 (delete-duplicates |
|
6b6b0f8ab749
#'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4919
diff
changeset
|
370 (nconc (paths-find-version-directories roots (list "") nil nil nil t) |
|
6b6b0f8ab749
#'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4919
diff
changeset
|
371 (paths-find-site-directories roots (list "") nil)) |
|
6b6b0f8ab749
#'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4919
diff
changeset
|
372 :test #'equal)) |
| 428 | 373 |
| 3179 | 374 (defun packages-find-package-hierarchies (package-directories &optional envvar default) |
| 2456 | 375 "Find package hierarchies in a list of package directories. |
| 376 PACKAGE-DIRECTORIES is a list of package directories. | |
| 3179 | 377 DEFAULT is a default list of package hierarchies. |
| 378 ENVVAR is the name of an environment variable that may override | |
| 379 the default." | |
| 380 (let* ((envvar-value (and envvar (getenv envvar))) | |
| 381 (package-directories | |
| 382 (if envvar-value | |
| 383 (split-path envvar-value) | |
| 384 package-directories))) | |
| 385 | |
| 386 (or (and (not envvar-value) default) | |
| 387 (let ((package-hierarchies '()) | |
| 388 (hierarchy-directories (packages-package-hierarchy-directory-names))) | |
| 389 (while hierarchy-directories | |
| 390 (setq package-hierarchies | |
| 391 (nconc package-hierarchies | |
| 392 (packages-find-package-hierarchies-named | |
| 393 package-directories | |
| 394 (car hierarchy-directories)))) | |
| 395 (setq hierarchy-directories (cdr hierarchy-directories))) | |
| 396 package-hierarchies)))) | |
| 2456 | 397 |
| 398 (defun packages-find-all-package-hierarchies (roots) | |
| 3179 | 399 "Find the package hierarchies. |
| 2456 | 400 ROOTS is a list of installation roots. |
| 401 Returns a list of three directory lists, the first being the list of early | |
| 402 hierarchies, the second that of the late hierarchies, and the third the | |
| 403 list of the last hierarchies." | |
| 3179 | 404 ;; EMACSPACKAGEPATH is a historical kludge |
| 428 | 405 (let ((envvar-value (getenv "EMACSPACKAGEPATH"))) |
| 3179 | 406 (cond |
| 407 (envvar-value | |
| 3184 | 408 (packages-deconstruct |
| 409 (packages-split-package-path (paths-decode-directory-path envvar-value)) | |
| 410 ;; we get package *directories* | |
| 411 #'(lambda (early late last) | |
| 412 (list | |
| 413 (packages-find-package-hierarchies early | |
| 414 "EMACSEARLYPACKAGES") | |
| 415 (packages-find-package-hierarchies late | |
| 416 "EMACSLATEPACKAGES") | |
| 417 (packages-find-package-hierarchies last | |
| 418 "EMACSLATEPACKAGES"))))) | |
| 419 ;; --with-package-path is also a historical kludge | |
| 3179 | 420 (configure-package-path |
| 428 | 421 (packages-deconstruct |
| 422 (packages-split-package-path configure-package-path) | |
| 3184 | 423 ;; we get package *hierarchies* |
| 3179 | 424 #'(lambda (early late last) |
| 2456 | 425 (list |
| 426 (packages-find-package-hierarchies (list user-init-directory) | |
| 3179 | 427 "EMACSEARLYPACKAGES" |
| 428 early) | |
| 2456 | 429 (packages-find-package-hierarchies (packages-find-installation-package-directories roots) |
| 3179 | 430 "EMACSLATEPACKAGES" |
| 431 | |
| 432 late) | |
| 2456 | 433 (packages-find-package-hierarchies '() |
| 3179 | 434 "EMACSLASTPACKAGES" |
| 435 last))))) | |
| 436 (t | |
| 437 (list | |
| 438 (packages-find-package-hierarchies (or configure-early-package-directories | |
| 439 (list user-init-directory)) | |
| 440 "EMACSEARLYPACKAGES") | |
| 441 (packages-find-package-hierarchies (or configure-late-package-directories | |
| 442 (packages-find-installation-package-directories roots)) | |
| 443 "EMACSLATEPACKAGES") | |
| 444 (packages-find-package-hierarchies configure-last-package-directories | |
| 445 "EMACSLASTPACKAGES")))))) | |
| 446 | |
| 2456 | 447 (defun packages-find-package-library-path (package-hierarchies suffixes) |
| 428 | 448 "Construct a path into a component of the packages hierarchy. |
| 2456 | 449 PACKAGE-HIERARCHIES is a list of package hierarchies. |
| 450 SUFFIXES is a list of names of hierarchy subdirectories to look for." | |
| 428 | 451 (let ((directories |
|
5264
0d43872986b6
Change (apply 'nconc (mapcar ...)) to (mapcan ...); warn about first form.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5228
diff
changeset
|
452 (mapcan #'(lambda (hierarchy) |
|
0d43872986b6
Change (apply 'nconc (mapcar ...)) to (mapcan ...); warn about first form.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5228
diff
changeset
|
453 (mapcar #'(lambda (suffix) |
|
0d43872986b6
Change (apply 'nconc (mapcar ...)) to (mapcan ...); warn about first form.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5228
diff
changeset
|
454 (file-name-as-directory (concat hierarchy suffix))) |
|
0d43872986b6
Change (apply 'nconc (mapcar ...)) to (mapcan ...); warn about first form.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5228
diff
changeset
|
455 suffixes)) |
|
0d43872986b6
Change (apply 'nconc (mapcar ...)) to (mapcan ...); warn about first form.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5228
diff
changeset
|
456 package-hierarchies))) |
| 428 | 457 (paths-directories-which-exist directories))) |
| 458 | |
| 2456 | 459 (defun packages-find-package-load-path (package-hierarchies) |
| 428 | 460 "Construct the load-path component for packages. |
| 2456 | 461 PACKAGE-HIERARCHIES is a list of package hierarchies." |
| 428 | 462 (paths-find-recursive-load-path |
| 2456 | 463 (packages-find-package-library-path package-hierarchies |
| 428 | 464 '("lisp")) |
| 465 packages-load-path-depth)) | |
| 466 | |
| 2456 | 467 (defun packages-find-package-exec-path (package-hierarchies) |
| 428 | 468 "Construct the exec-path component for packages. |
| 2456 | 469 PACKAGE-HIERARCHIES is a list of package hierarchies." |
| 470 (packages-find-package-library-path package-hierarchies | |
| 428 | 471 (list (paths-construct-path |
| 472 (list "bin" system-configuration)) | |
| 473 "lib-src"))) | |
| 474 | |
| 2456 | 475 (defun packages-find-package-info-path (package-hierarchies) |
| 428 | 476 "Construct the info-path component for packages. |
| 2456 | 477 PACKAGE-HIERARCHIES is a list of package directories." |
| 478 (packages-find-package-library-path package-hierarchies '("info"))) | |
| 428 | 479 |
| 2456 | 480 (defun packages-find-package-data-path (package-hierarchies) |
| 428 | 481 "Construct the data-path component for packages. |
|
5384
3889ef128488
Fix misspelled words, and some grammar, across the entire source tree.
Jerry James <james@xemacs.org>
parents:
5363
diff
changeset
|
482 PACKAGE-HIERARCHIES is a list of package hierarchies." |
| 428 | 483 (paths-find-recursive-load-path |
| 2456 | 484 (packages-find-package-library-path package-hierarchies |
| 428 | 485 '("etc")) |
| 486 packages-data-path-depth)) | |
| 487 | |
| 488 ;; Loading package initialization files | |
| 489 | |
| 490 (defun packages-load-package-lisps (package-load-path base) | |
| 491 "Load all Lisp files of a certain name along a load path. | |
| 492 BASE is the base name of the files." | |
| 493 (mapcar #'(lambda (dir) | |
| 793 | 494 (let ((file-name (expand-file-name base dir))) |
| 495 (with-trapping-errors | |
| 496 :operation (format "Autoload %s" file-name) | |
| 497 :class 'packages | |
| 498 (load file-name t t)))) | |
| 499 package-load-path)) | |
| 428 | 500 |
| 501 (defun packages-load-package-auto-autoloads (package-load-path) | |
| 502 "Load auto-autoload files along a load path." | |
| 503 (packages-load-package-lisps package-load-path | |
| 504 (file-name-sans-extension autoload-file-name))) | |
| 505 | |
| 506 (defun packages-handle-package-dumped-lisps (handle package-load-path) | |
| 507 "Load dumped-lisp.el files along a load path. | |
| 508 Call HANDLE on each file off definitions of PACKAGE-LISP there." | |
| 509 (mapcar #'(lambda (dir) | |
| 510 (let ((file-name (expand-file-name "dumped-lisp.el" dir))) | |
| 511 (if (file-exists-p file-name) | |
| 512 (let (package-lisp | |
| 513 ;; 20.4 packages could set this | |
| 514 preloaded-file-list) | |
| 515 (load file-name) | |
| 516 ;; dumped-lisp.el could have set this ... | |
| 517 (if package-lisp | |
|
5363
311f6817efc2
Remove various redundant wrapper lambdas, core lisp.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5284
diff
changeset
|
518 (mapcar handle package-lisp)))))) |
| 428 | 519 package-load-path)) |
| 520 | |
| 521 (defun packages-load-package-dumped-lisps (package-load-path) | |
| 522 "Load dumped-lisp.el files along a load path. | |
| 444 | 523 Also load files off PACKAGE-LISP definitions there." |
| 428 | 524 (packages-handle-package-dumped-lisps #'load package-load-path)) |
| 525 | |
| 526 (defun packages-collect-package-dumped-lisps (package-load-path) | |
| 527 "Load dumped-lisp.el files along a load path. | |
| 444 | 528 Return list of files off PACKAGE-LISP definitions there." |
| 428 | 529 (let ((*files* '())) |
| 530 (packages-handle-package-dumped-lisps | |
| 531 #'(lambda (file) | |
| 532 (setq *files* (cons file *files*))) | |
| 533 package-load-path) | |
| 534 (reverse *files*))) | |
| 535 | |
| 536 (provide 'packages) | |
| 537 | |
| 538 ;;; packages.el ends here |