xemacs-beta: lisp/loadhist.el annotate

annotate lisp/loadhist.el @ 5576:071b810ceb18

Declare labels as line where appropriate; use #'labels, not #'flet, tests. lisp/ChangeLog addition: 2011-10-03 Aidan Kehoe <kehoea@parhasard.net> * simple.el (handle-pre-motion-command-current-command-is-motion): Implement #'keysyms-equal with #'labels + (declare (inline ...)), instead of abusing macrolet to the same end. * specifier.el (let-specifier): * mule/mule-cmds.el (describe-language-environment): * mule/mule-cmds.el (set-language-environment-coding-systems): * mule/mule-x-init.el (x-use-halfwidth-roman-font): * faces.el (Face-frob-property): * keymap.el (key-sequence-list-description): * lisp-mode.el (construct-lisp-mode-menu): * loadhist.el (unload-feature): * mouse.el (default-mouse-track-check-for-activation): Declare various labels inline in dumped files when that reduces the size of the dumped image. Declaring labels inline is normally only worthwhile for inner loops and so on, but it's reasonable exercise of the related code to have these changes in core. tests/ChangeLog addition: 2011-10-03 Aidan Kehoe <kehoea@parhasard.net> * automated/case-tests.el (uni-mappings): * automated/database-tests.el (delete-database-files): * automated/hash-table-tests.el (iterations): * automated/lisp-tests.el (test1): * automated/lisp-tests.el (a): * automated/lisp-tests.el (cl-floor): * automated/lisp-tests.el (foo): * automated/lisp-tests.el (list-nreverse): * automated/lisp-tests.el (needs-lexical-context): * automated/mule-tests.el (featurep): * automated/os-tests.el (original-string): * automated/os-tests.el (with): * automated/symbol-tests.el (check-weak-list-unique): Replace #'flet with #'labels where appropriate in these tests, following my own advice on style in the docstrings of those functions.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Mon, 03 Oct 2011 20:16:14 +0100
parents	3bc58dc9d688
children	cc6f0266bc36

rev	line source
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1 ;;; loadhist.el --- lisp functions for working with feature groups
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6 ;; Version: 1.0
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	7 ;; Keywords: internal, dumped
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	8
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	9 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	10
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5206 diff changeset	11 ;; 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: 5206 diff changeset	12 ;; 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: 5206 diff changeset	13 ;; 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: 5206 diff changeset	14 ;; option) any later version.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	15
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5206 diff changeset	16 ;; 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: 5206 diff changeset	17 ;; 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: 5206 diff changeset	18 ;; 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: 5206 diff changeset	19 ;; for more details.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	20
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	21 ;; 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: 5206 diff changeset	22 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	23
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	24 ;;; Synched up with: FSF 20.2.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	25
4367 69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	26 ;; #### Sync this file!
69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	27
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	28 ;;; Commentary:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	29
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	30 ;; This file is dumped with XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	31
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	32 ;; These functions exploit the load-history system variable.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	33 ;; Entry points include `unload-feature', `symbol-file', and `feature-file'.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	34
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	35 ;;; Code:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	36
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	37 ;; load-history is a list of entries that look like this:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	38 ;; ("outline" outline-regexp ... (require . wid-edit) ... (provide . outline) ...)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	39
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	40 ;; XEmacs; this function is in subr.el in GNU, and does not deal with
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	41 ;; built-in symbols.
4540 7e01763ea656 Correct a misunderstanding of the semantics of #'return in #'symbol-file. Aidan Kehoe <kehoea@parhasard.net> parents: 4539 diff changeset	42 (defun* symbol-file (sym &optional type)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	43 "Return the input source from which SYM was loaded.
4367 69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	44 This is a file name, or nil if the source was a buffer with no associated file.
69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	45
69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	46 If TYPE is nil or omitted, any kind of definition is acceptable.
4905 755ae5b97edb Change "special form" to "special operator" in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 4783 diff changeset	47 If TYPE is `defun', then function, subr, special operator or macro definitions
4367 69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	48 are acceptable.
69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	49 If TYPE is `defvar', then variable definitions are acceptable.
69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	50
4535 69a1eda3da06 Distinguish vars and functions in #'symbol-file, #'describe-{function,variable} Aidan Kehoe <kehoea@parhasard.net> parents: 4367 diff changeset	51 `defface' specifies a face definition only, and for the moment, it won't
69a1eda3da06 Distinguish vars and functions in #'symbol-file, #'describe-{function,variable} Aidan Kehoe <kehoea@parhasard.net> parents: 4367 diff changeset	52 return faces created with `make-face' or `copy-face', just those created
69a1eda3da06 Distinguish vars and functions in #'symbol-file, #'describe-{function,variable} Aidan Kehoe <kehoea@parhasard.net> parents: 4367 diff changeset	53 with `defface' and `custom-declare-face'."
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	54 (interactive "SFind source file for symbol: ") ; XEmacs
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	55 (let (built-in-file autoload-cons symbol-details)
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	56 (cond ((and (eq 'autoload
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	57 (car-safe
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	58 (setq autoload-cons
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	59 (and (fboundp sym) (symbol-function sym)))))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	60 (or (and (or (null type) (eq 'defvar type))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	61 (eq (fifth autoload-cons) 'keymap))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	62 (and (or (null type) (eq 'defun type))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	63 (memq (fifth autoload-cons) '(nil macro)))))
4540 7e01763ea656 Correct a misunderstanding of the semantics of #'return in #'symbol-file. Aidan Kehoe <kehoea@parhasard.net> parents: 4539 diff changeset	64 (return-from symbol-file (locate-library (second autoload-cons))))
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	65 ((eq 'defvar type)
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	66 ;; Load history entries corresponding to variables are just
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	67 ;; symbols.
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	68 (dolist (entry load-history)
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	69 (when (memq sym (cdr entry))
4540 7e01763ea656 Correct a misunderstanding of the semantics of #'return in #'symbol-file. Aidan Kehoe <kehoea@parhasard.net> parents: 4539 diff changeset	70 (return-from symbol-file (car entry)))))
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	71 ((not (null type))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	72 ;; Non-variables have the type stored as the car of the entry.
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	73 (dolist (entry load-history)
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	74 (when (and (setq symbol-details (rassq sym (cdr entry)))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	75 (eq type (car symbol-details)))
4540 7e01763ea656 Correct a misunderstanding of the semantics of #'return in #'symbol-file. Aidan Kehoe <kehoea@parhasard.net> parents: 4539 diff changeset	76 (return-from symbol-file (car entry)))))
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	77 (t
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	78 ;; If TYPE hasn't been specified, we need to check both for
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	79 ;; variables and other symbols.
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	80 (dolist (entry load-history)
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	81 (when (or (memq sym (cdr entry))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	82 (rassq sym (cdr entry)))
4540 7e01763ea656 Correct a misunderstanding of the semantics of #'return in #'symbol-file. Aidan Kehoe <kehoea@parhasard.net> parents: 4539 diff changeset	83 (return-from symbol-file (car entry))))))
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	84 (when (setq built-in-file (built-in-symbol-file sym type))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	85 (if (equal built-in-file (file-truename built-in-file))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	86 ;; Probably a full path name:
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	87 built-in-file
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	88 ;; This is a bit heuristic, but shouldn't realistically be a
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	89 ;; problem:
5206 39d74978fd32 Keep around file info for dumped functions and variables without docstrings. Aidan Kehoe <kehoea@parhasard.net> parents: 4915 diff changeset	90 (if (string-match #r"\.elc?$" built-in-file)
4915 bedf3747a6d7 Use DOC for dumped Lisp file names; Xref to source-lisp if readable, symbol-file Aidan Kehoe <kehoea@parhasard.net> parents: 4905 diff changeset	91 (concat (if (file-readable-p source-lisp)
bedf3747a6d7 Use DOC for dumped Lisp file names; Xref to source-lisp if readable, symbol-file Aidan Kehoe <kehoea@parhasard.net> parents: 4905 diff changeset	92 source-lisp
bedf3747a6d7 Use DOC for dumped Lisp file names; Xref to source-lisp if readable, symbol-file Aidan Kehoe <kehoea@parhasard.net> parents: 4905 diff changeset	93 lisp-directory)
bedf3747a6d7 Use DOC for dumped Lisp file names; Xref to source-lisp if readable, symbol-file Aidan Kehoe <kehoea@parhasard.net> parents: 4905 diff changeset	94 built-in-file)
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	95 (concat source-directory "/src/" built-in-file))))))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	96
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	97 (defun feature-symbols (feature)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	98 "Return the file and list of symbols associated with a given FEATURE."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	99 (let ((pair `(provide . ,feature)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	100 (dolist (entry load-history)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	101 (when (member pair (cdr entry))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	102 (return entry)))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	103
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	104 (defun feature-file (feature)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	105 "Return the file name from which a given FEATURE was loaded.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	106 Actually, return the load argument, if any; this is sometimes the name of a
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	107 Lisp file without an extension. If the feature came from an eval-buffer on
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	108 a buffer with no associated file, or an eval-region, return nil."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	109 (unless (featurep feature)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	110 (error "%s is not a currently loaded feature" (symbol-name feature)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	111 (car (feature-symbols feature)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	112
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	113 (defun file-symbols (file)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	114 "Return the file and list of symbols associated with FILE.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	115 The file name in the returned list is the string used to load the file,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	116 and may not be the same string as FILE, but it will be equivalent."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	117 (or (assoc file load-history)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	118 (assoc (file-name-sans-extension file) load-history)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	119 (assoc (concat file ".el") load-history)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	120 (assoc (concat file ".elc") load-history)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	121
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	122 (defun file-provides (file)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	123 "Return the list of features provided by FILE."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	124 (let ((provides nil))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	125 (dolist (x (cdr (file-symbols file)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	126 (when (eq (car-safe x) 'provide)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	127 (push (cdr x) provides)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	128 provides))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	129
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	130 (defun file-requires (file)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	131 "Return the list of features required by FILE."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	132 (let ((requires nil))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	133 (dolist (x (cdr (file-symbols file)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	134 (when (eq (car-safe x) 'require)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	135 (push (cdr x) requires)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	136 requires))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	137
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	138 (defun file-dependents (file)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	139 "Return the list of loaded libraries that depend on FILE.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	140 This can include FILE itself."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	141 (let ((provides (file-provides file))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	142 (dependents nil))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	143 (dolist (entry load-history)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	144 (dolist (x (cdr entry))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	145 (when (and (eq (car-safe x) 'require)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	146 (memq (cdr-safe x) provides))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	147 (push (car entry) dependents))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	148 dependents))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	149
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	150 ;; FSFmacs
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	151 ;(defun read-feature (prompt)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	152 ; "Read a feature name $string$ from the minibuffer,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	153 ;prompting with PROMPT and completing from `features', and
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	154 ;return the feature $symbol$."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	155 ; (intern (completing-read prompt
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	156 ; (mapcar #'(lambda (feature)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	157 ; (list (symbol-name feature)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	158 ; features)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	159 ; nil t)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	160
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	161 ;; ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	162 (defun unload-feature (feature &optional force)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	163 "Unload the library that provided FEATURE, restoring all its autoloads.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	164 If the feature is required by any other loaded code, and optional FORCE
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	165 is nil, raise an error."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	166 (interactive "SFeature: ")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	167 (unless (featurep feature)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	168 (error "%s is not a currently loaded feature" (symbol-name feature)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	169 (when (not force)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	170 (let* ((file (feature-file feature))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	171 (dependents (delete file (copy-sequence (file-dependents file)))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	172 (when dependents
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	173 (error "Loaded libraries %s depend on %s"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	174 (prin1-to-string dependents) file))))
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 428 diff changeset	175 (let* ((flist (feature-symbols feature))
996 25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 442 diff changeset	176 (file (car flist))
25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 442 diff changeset	177 (unloading-module nil))
5567 3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	178 (labels ((reset-aload (x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	179 (let ((aload (get x 'autoload)))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	180 (if aload (fset x (cons 'autoload aload))))))
5576 071b810ceb18 Declare labels as line where appropriate; use #'labels, not #'flet, tests. Aidan Kehoe <kehoea@parhasard.net> parents: 5567 diff changeset	181 (declare (inline reset-aload))
5567 3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	182 (mapc
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	183 #'(lambda (x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	184 (cond ((stringp x) nil)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	185 ((consp x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	186 ;; Remove any feature names that this file provided.
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	187 (if (eq (car x) 'provide)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	188 (setq features (delq (cdr x) features))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	189 (if (eq (car x) 'module)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	190 (setq unloading-module t))))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	191 ((and (boundp x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	192 (fboundp x))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	193 (makunbound x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	194 (fmakunbound x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	195 (reset-aload x))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	196 ((boundp x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	197 (makunbound x))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	198 ((fboundp x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	199 (fmakunbound x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	200 (reset-aload x))))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	201 (cdr flist)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	202 ;; Delete the load-history element for this file.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	203 (let ((elt (assoc file load-history)))
996 25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 442 diff changeset	204 (setq load-history (delq elt load-history)))
25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 442 diff changeset	205 ;; If it is a module, really unload it.
25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 442 diff changeset	206 (if unloading-module
1111 184461bc8de4 [xemacs-hg @ 2002-11-18 06:52:23 by ben] ben parents: 996 diff changeset	207 (declare-fboundp (unload-module (symbol-name feature))))))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	208
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	209 (provide 'loadhist)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	210
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	211 ;;; loadhist.el ends here

Mercurial > hg > xemacs-beta

annotate lisp/loadhist.el @ 5576:071b810ceb18