Mercurial > hg > xemacs-beta
comparison lisp/find-paths.el @ 1330:4542b72c005e
[xemacs-hg @ 2003-03-01 07:25:26 by ben]
build patch
Makefile.in.in: Move src deletions to src/Makefile.in.in.
dump-paths.el, dumped-lisp.el: Delete. Combine stuff into setup-paths.el.
find-paths.el: Removed.
Make this file contain generic routines only. Move stuff to
compute Emacs roots to setup-paths.el.
startup.el: Removed.
Move these variables into setup-paths.el.
setup-paths.el, startup.el: Removed.
Combine all high-level code for computing the paths into
setup-paths.el. Create new function startup-find-load-path to
encapsulate all logic for computing `load-path'. Eliminate
invocation-directory and invocation-name parameters since
there is no point (false generality) -- the code references
other globals, which cannot be specified. Eliminate some code
duplicated between setup-paths.el and startup.el. Clean up
the debug-paths code and output load-path in addition.
Add logic to paths-emacs-root-p to support separated source
and build trees.
loadup.el, make-docfile.el, update-elc-2.el, update-elc.el: Rewrite to allow for separated source and build trees, as may occur
in MS Windows.
NOTE TO BUILD HACKERS:
loadup.el, make-docfile.el, update-elc.el and update-elc-2.el made two
assumptions that are no longer correct:
(1) The source and build trees are in the same place.
(2) They can make assumptions about where `.' is.
These files now compute the locations of the source and build
roots at the top of the file. *ALL* constant file names or path
snippets must now be made absolute using expand-file-name and one
of these roots.
dumped-lisp.el, packages.el: Removed.
Remove some unused lists of Lisp files. packages-hardcoded-lisp
(empty, in any case) moved to dumped-lisp.el.
startup.el: When a compiled init file is out-of-date wrt the uncompiled
version, load the uncompiled version and issue a nasty warning.
update-elc-2.el: Force touching of auto-autoloads files when REBUILD_AUTOLOADS
was set.
update-elc.el: Fix code that checks whether dumping is necessary to check against
xemacs.dmp, not xemacs.exe, when Unix and pdump.
lwlib-Xm.c: Fix compile warning.
README, config.inc.samp, xemacs.mak: -- Major reorganization and cleanup.
-- Add support for separated build tree and source tree.
-- Delete all support for X Windows building, since it's
totally bit-rotten and will never be fixed up. Instruct
people to use Cygwin if they want such support.
make-build-dir: New script to create a skeleton build tree for use with
separated build and source tree compilation.
m/acorn.h, m/alliant-2800.h, m/alliant.h, m/altos.h, m/amdahl.h, m/arm.h, m/att3b.h, m/aviion.h, m/clipper.h, m/cnvrgnt.h, m/convex.h, m/cydra5.h, m/delta.h, m/delta88k.h, m/dpx2.h, m/elxsi.h, m/ews4800r.h, m/gould.h, m/hp800.h, m/hp9000s300.h, m/i860.h, m/ibmps2-aix.h, m/ibmrs6000.h, m/ibmrt-aix.h, m/ibmrt.h, m/intel386.h, m/iris4d.h, m/iris5d.h, m/iris6d.h, m/irist.h, m/m68k.h, m/masscomp.h, m/mg1.h, m/mips-nec.h, m/mips-siemens.h, m/mips.h, m/nh3000.h, m/nh4000.h, m/ns32000.h, m/plexus.h, m/powerpc.h, m/sequent-ptx.h, m/sequent.h, m/sgi-challenge.h, m/stride.h, m/tad68k.h, m/targon31.h, m/tekxd88.h, m/template.h, m/tower32.h, m/tower32v3.h, m/ustation.h, m/wicat.h, m/xps100.h, data.c, doc.c, editfns.c, emacs.c, lrecord.h, ntheap.c, process-unix.c, sysdep.c, unexec.c: Delete all support for bit-rotten CANNOT_DUMP. Just use pdump.
Makefile.in.in: Lots o' cleanup. Use names like LISP, SRC instead of
lispdir, srcdir, for consistency with xemacs.mak and the
conventions in the rest of the file. Eliminate use of ${...}
in favor of $(...), to make it easier to move code between
this file and xemacs.mak. Fix dependency handling wrt
NEEDTODUMP to eliminate problems some people (e.g. Vin) have
been seeing with non-GNU makes. Write a long section about
the subtle but oh-so-important differences in dependency
processing between nmake, make, and GNU make. Add
unicode-encapsulate target, from xemacs.mak.
chartab.c, lrecord.h: Fix crash due to attempt to free objects across dump/undump.
author | ben |
---|---|
date | Sat, 01 Mar 2003 07:25:56 +0000 |
parents | 5636ae1c0234 |
children | 13a418960a88 |
comparison
equal
deleted
inserted
replaced
1329:389741884c65 | 1330:4542b72c005e |
---|---|
1 ;;; find-paths.el --- setup various XEmacs paths | 1 ;;; find-paths.el --- setup various XEmacs paths |
2 | 2 |
3 ;; Copyright (C) 1985-1986, 1990, 1992-1997 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1985-1986, 1990, 1992-1997 Free Software Foundation, Inc. |
4 ;; Copyright (c) 1993, 1994 Sun Microsystems, Inc. | 4 ;; Copyright (c) 1993, 1994 Sun Microsystems, Inc. |
5 ;; Copyright (C) 1995 Board of Trustees, University of Illinois | 5 ;; Copyright (C) 1995 Board of Trustees, University of Illinois |
6 ;; Copyright (C) 2003 Ben Wing. | |
6 | 7 |
7 ;; Author: Mike Sperber <sperber@informatik.uni-tuebingen.de> | 8 ;; Author: Mike Sperber <sperber@informatik.uni-tuebingen.de> |
8 ;; Maintainer: XEmacs Development Team | 9 ;; Maintainer: XEmacs Development Team |
9 ;; Keywords: internal, dumped | 10 ;; Keywords: internal, dumped |
10 | 11 |
97 (defun paths-find-recursive-load-path (directories &optional max-depth) | 98 (defun paths-find-recursive-load-path (directories &optional max-depth) |
98 "Construct a recursive load path underneath DIRECTORIES." | 99 "Construct a recursive load path underneath DIRECTORIES." |
99 (paths-find-recursive-path directories | 100 (paths-find-recursive-path directories |
100 max-depth paths-no-lisp-directory-regexp)) | 101 max-depth paths-no-lisp-directory-regexp)) |
101 | 102 |
102 (defun paths-emacs-root-p (directory) | |
103 "Check if DIRECTORY is a plausible installation root." | |
104 (or | |
105 ;; installed | |
106 (paths-file-readable-directory-p (paths-construct-path (list directory | |
107 "lib" | |
108 (construct-emacs-version-name)))) | |
109 ;; in-place or windows-nt | |
110 (and | |
111 (paths-file-readable-directory-p (paths-construct-path (list directory "lisp"))) | |
112 (paths-file-readable-directory-p (paths-construct-path (list directory "etc")))))) | |
113 | |
114 (defun paths-emacs-data-root-p (directory) | |
115 "Check if DIRECTORY is a plausible data installation root. | |
116 A data installation root is one containing data files that may be shared | |
117 among multiple different versions of XEmacs, the packages in particular." | |
118 (or | |
119 ;; installed | |
120 (paths-file-readable-directory-p (paths-construct-path (list directory | |
121 "lib" | |
122 emacs-program-name))) | |
123 (paths-file-readable-directory-p (paths-construct-path (list directory | |
124 "lib" | |
125 (construct-emacs-version-name)))) | |
126 ;; in-place or windows-nt | |
127 (and | |
128 (paths-file-readable-directory-p (paths-construct-path (list directory "lisp"))) | |
129 (paths-file-readable-directory-p (paths-construct-path (list directory "etc")))))) | |
130 | |
131 (defun paths-chase-symlink (file-name) | 103 (defun paths-chase-symlink (file-name) |
132 "Chase a symlink until the bitter end." | 104 "Chase a symlink until the bitter end." |
133 (let ((maybe-symlink (file-symlink-p file-name))) | 105 (let ((maybe-symlink (file-symlink-p file-name))) |
134 (if maybe-symlink | 106 (if maybe-symlink |
135 (let* ((directory (file-name-directory file-name)) | 107 (let* ((directory (file-name-directory file-name)) |
136 (destination (expand-file-name maybe-symlink directory))) | 108 (destination (expand-file-name maybe-symlink directory))) |
137 (paths-chase-symlink destination)) | 109 (paths-chase-symlink destination)) |
138 file-name))) | 110 file-name))) |
139 | |
140 (defun paths-find-emacs-root | |
141 (invocation-directory invocation-name) | |
142 "Find the run-time root of XEmacs." | |
143 (let* ((executable-file-name (paths-chase-symlink | |
144 (concat invocation-directory | |
145 invocation-name))) | |
146 (executable-directory (file-name-directory executable-file-name)) | |
147 (maybe-root-1 (file-name-as-directory | |
148 (paths-construct-path '("..") executable-directory))) | |
149 (maybe-root-2 (file-name-as-directory | |
150 (paths-construct-path '(".." "..") executable-directory)))) | |
151 (or (and (paths-emacs-root-p maybe-root-1) | |
152 maybe-root-1) | |
153 (and (paths-emacs-root-p maybe-root-2) | |
154 maybe-root-2)))) | |
155 | 111 |
156 (defun paths-construct-path (components &optional expand-directory) | 112 (defun paths-construct-path (components &optional expand-directory) |
157 "Convert list of path components COMPONENTS into a path. | 113 "Convert list of path components COMPONENTS into a path. |
158 If EXPAND-DIRECTORY is non-NIL, use it as a directory to feed | 114 If EXPAND-DIRECTORY is non-NIL, use it as a directory to feed |
159 to EXPAND-FILE-NAME." | 115 to EXPAND-FILE-NAME." |
296 (paths-filter #'(lambda (component) | 252 (paths-filter #'(lambda (component) |
297 (null (string-equal "" component))) | 253 (null (string-equal "" component))) |
298 directories) | 254 directories) |
299 directories))) | 255 directories))) |
300 | 256 |
301 (defun paths-find-emacs-roots (invocation-directory | |
302 invocation-name | |
303 root-p) | |
304 "Find all plausible installation roots for XEmacs. | |
305 INVOCATION-DIRECTORY is the directory from which XEmacs was started. | |
306 INVOCATION-NAME is the name of the XEmacs executable that was originally | |
307 started. | |
308 ROOT-P is a function that tests whether a root is plausible." | |
309 (let* ((potential-invocation-root | |
310 (paths-find-emacs-root invocation-directory invocation-name)) | |
311 (invocation-roots | |
312 (and potential-invocation-root | |
313 (list potential-invocation-root))) | |
314 (potential-installation-roots | |
315 (paths-uniq-append | |
316 (and configure-exec-prefix-directory | |
317 (list (file-name-as-directory | |
318 configure-exec-prefix-directory))) | |
319 (and configure-prefix-directory | |
320 (list (file-name-as-directory | |
321 configure-prefix-directory))))) | |
322 (installation-roots | |
323 (paths-filter root-p potential-installation-roots))) | |
324 (paths-uniq-append invocation-roots | |
325 installation-roots))) | |
326 | |
327 ;;; find-paths.el ends here | 257 ;;; find-paths.el ends here |