annotate lisp/dump-paths.el @ 1280:7b40ca6d2195

[xemacs-hg @ 2003-02-09 14:49:15 by youngs] Revert this (Steve T beat me to it with a better patch) 2003-02-09 Steve Youngs <youngs@xemacs.org> * s/darwin.h (DLSYM_NEEDS_UNDERSCORE): Define it. From Andrew Begel <abegel@cs.berkeley.edu>
author youngs
date Sun, 09 Feb 2003 14:49:20 +0000
parents 5636ae1c0234
children 4542b72c005e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 ;; dump-paths.el --- set up XEmacs paths for dumping
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) 1985, 1986, 1992, 1994, 1997 Free Software Foundation, Inc.
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
4 ;; Copyright (C) 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 ;; Maintainer: XEmacs Development Team
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 ;; XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 ;; under the terms of the GNU General Public License as published by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 ;; any later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 ;; XEmacs is distributed in the hope that it will be useful, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 ;; General Public License for more details.
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 ;; 02111-1307, USA.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 ;;; Synched up with: Not in FSF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27
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
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
30 ;; This sets up the various paths for continuing loading files for dumping.
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
31 ;; This is the only file of the basic path/package files (find-paths.el,
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
32 ;; package.el, setup-paths.el, dump-paths.el) that actually does stuff.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33
1227
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
34 (defun startup-setup-paths (roots data-roots user-init-directory
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
35 &optional
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
36 inhibit-packages inhibit-site-lisp
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
37 debug-paths called-early)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
38 "Setup all the various paths.
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
39 ROOTS is a list of plausible roots of the XEmacs directory hierarchy.
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
40 If INHIBIT-PACKAGES is non-NIL, don't do packages.
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
41 If INHIBIT-SITE-LISP is non-NIL, don't do site-lisp.
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
42 If DEBUG-PATHS is non-NIL, print paths as they are detected.
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
43 It's idempotent, so call this as often as you like!"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
45 (if (eq inhibit-packages t)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
46 (setq inhibit-packages '(early late last)))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
47 (if (not (listp inhibit-packages))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
48 (setq inhibit-packages (list inhibit-packages)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
50 (apply #'(lambda (early late last)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
51 (setq early-packages (and (not (memq 'early inhibit-packages))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
52 early))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
53 (setq late-packages (and (not (memq 'late inhibit-packages))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
54 late))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
55 (setq last-packages (and (not (memq 'last inhibit-packages))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
56 last))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
57 )
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
58 (packages-find-packages
1227
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
59 data-roots
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
60 (packages-compute-package-locations user-init-directory)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61
1227
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
62 (setq early-package-load-path (packages-find-package-load-path early-packages))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 (setq late-package-load-path (packages-find-package-load-path late-packages))
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
64 (setq last-package-load-path (packages-find-package-load-path last-packages))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 (if debug-paths
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 (progn
1227
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
68 (princ (format "arguments:\nroots: %S\ndata-roots: %S\nuser-init-directory: %S\n"
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
69 roots data-roots user-init-directory)
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
70 'external-debugging-output)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
71 (princ (format "inhibit-packages: %S\ninhibit-site-lisp: %S\n"
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
72 inhibit-packages inhibit-site-lisp)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
73 'external-debugging-output)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
74 (princ (format "debug-paths: %S\ncalled-early: %S\n\n"
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
75 debug-paths called-early)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
76 'external-debugging-output)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 (princ (format "configure-package-path:\n%S\n" configure-package-path)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 'external-debugging-output)
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
79 (princ (format "early-packages and early-package-load-path:\n%S\n%S\n"
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
80 early-packages early-package-load-path)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
81 'external-debugging-output)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 (princ (format "late-packages and late-package-load-path:\n%S\n%S\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 late-packages late-package-load-path)
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
84 'external-debugging-output)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
85 (princ (format "last-packages and last-package-load-path:\n%S\n%S\n"
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
86 last-packages last-package-load-path)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 'external-debugging-output)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 (setq lisp-directory (paths-find-lisp-directory roots))
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
90
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 (if debug-paths
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 (princ (format "lisp-directory:\n%S\n" lisp-directory)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 'external-debugging-output))
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
94
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 450
diff changeset
95 (if (featurep 'mule)
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 450
diff changeset
96 (progn
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 450
diff changeset
97 (setq mule-lisp-directory
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 450
diff changeset
98 (paths-find-mule-lisp-directory roots
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 450
diff changeset
99 lisp-directory))
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 450
diff changeset
100 (if debug-paths
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 450
diff changeset
101 (princ (format "mule-lisp-directory:\n%S\n"
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 450
diff changeset
102 mule-lisp-directory)
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 450
diff changeset
103 'external-debugging-output)))
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 450
diff changeset
104 (setq mule-lisp-directory '()))
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
105
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 (setq site-directory (and (null inhibit-site-lisp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 (paths-find-site-lisp-directory roots)))
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
108
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 (if (and debug-paths (null inhibit-site-lisp))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 (princ (format "site-directory:\n%S\n" site-directory)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 'external-debugging-output))
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 (setq load-path (paths-construct-load-path roots
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
114 early-package-load-path
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 late-package-load-path
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
116 last-package-load-path
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 lisp-directory
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 450
diff changeset
118 site-directory
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 450
diff changeset
119 mule-lisp-directory))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120
1048
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
121 (setq module-directory (paths-find-module-directory roots))
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
122 (if debug-paths
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
123 (princ (format "module-directory:\n%S\n" module-directory)
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
124 'external-debugging-output))
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
125 (setq site-module-directory (and (null inhibit-site-modules)
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
126 (paths-find-site-module-directory
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
127 roots)))
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
128 (if (and debug-paths (null inhibit-site-modules))
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
129 (princ (format "site-module-directory:\n%S\n"
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
130 site-module-directory)
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
131 'external-debugging-output))
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
132
1048
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
133 (setq module-load-path (paths-construct-module-load-path
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
134 roots
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
135 module-directory
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
136 site-module-directory))
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
137
edc95b5fe4cb [xemacs-hg @ 2002-10-11 14:09:46 by james]
james
parents: 776
diff changeset
138 (unless called-early
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
139 (setq Info-directory-list
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
140 (paths-construct-info-path
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
141 roots early-packages late-packages last-packages))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
142
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
143 (if debug-paths
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
144 (princ (format "Info-directory-list:\n%S\n" Info-directory-list)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
145 'external-debugging-output))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
146
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
147 (setq exec-directory (paths-find-exec-directory roots))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
148
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
149 (if debug-paths
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
150 (princ (format "exec-directory:\n%s\n" exec-directory)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
151 'external-debugging-output))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
152
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
153 (setq exec-path
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
154 (paths-construct-exec-path roots exec-directory
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
155 early-packages late-packages
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
156 last-packages))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
157
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
158 (if debug-paths
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
159 (princ (format "exec-path:\n%S\n" exec-path)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
160 'external-debugging-output))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
161
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
162 (setq doc-directory (paths-find-doc-directory roots))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
163
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
164 (if debug-paths
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
165 (princ (format "doc-directory:\n%S\n" doc-directory)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
166 'external-debugging-output))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
167
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
168 (setq data-directory (paths-find-data-directory roots))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
169
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
170 (if debug-paths
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
171 (princ (format "data-directory:\n%S\n" data-directory)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
172 'external-debugging-output))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
173
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
174 (setq data-directory-list (paths-construct-data-directory-list
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
175 data-directory early-packages
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
176 late-packages last-packages))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
177 (if debug-paths
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
178 (princ (format "data-directory-list:\n%S\n" data-directory-list)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
179 'external-debugging-output))))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
180
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
181 ;;; Now actually do something.
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
182
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
183 (let ((debug-paths (or debug-paths
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
184 (and (getenv "EMACSDEBUGPATHS")
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
185 t)))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
186 (roots (paths-find-emacs-roots invocation-directory
1227
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
187 invocation-name
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
188 #'paths-emacs-root-p))
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
189 (data-roots (paths-find-emacs-roots invocation-directory
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
190 invocation-name
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
191 #'paths-emacs-data-root-p)))
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
192
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 (if debug-paths
1227
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
194 (progn
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
195 (princ (format "XEmacs thinks the roots of its hierarchy are:\n%S\n"
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
196 roots)
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
197 'external-debugging-output)
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
198 (princ (format "XEmacs thinks the data roots of its hierarchy are:\n%S\n"
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
199 data-roots)
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
200 'external-debugging-output)))
5636ae1c0234 [xemacs-hg @ 2003-01-22 20:31:52 by michaels]
michaels
parents: 1048
diff changeset
201 (startup-setup-paths roots data-roots
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
202 (paths-construct-path '("~" ".xemacs"))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
203 (if inhibit-all-packages t
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
204 '(early last))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
205 inhibit-site-lisp
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
206 debug-paths
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
207 t))
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 ;;; dump-paths.el ends here