1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
|
;;; setup-paths.el --- setup various XEmacs paths
;; Copyright (C) 1985-1986, 1990, 1992-1997 Free Software Foundation, Inc.
;; Copyright (c) 1993, 1994 Sun Microsystems, Inc.
;; Copyright (C) 1995 Board of Trustees, University of Illinois
;; Author: Mike Sperber <sperber@informatik.uni-tuebingen.de>
;; Maintainer: XEmacs Development Team
;; Keywords: internal, dumped
;; This file is part of XEmacs.
;; XEmacs is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; XEmacs is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with XEmacs; see the file COPYING. If not, write to the
;; Free Software Foundation, 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Synched up with: Not in FSF.
;;; Commentary:
;; This file is dumped with XEmacs.
;; This file describes and constructs the various paths into the
;; XEmacs hierarchy from a global viewpoint.
;; It requires find-paths.el and packages.el.
;;; Code:
(defvar paths-core-load-path-depth 0
"Depth of load-path searches in core Lisp paths.")
(defvar paths-site-load-path-depth 1
"Depth of load-path searches in site Lisp paths.")
(defvar paths-mule-load-path-depth 0
"Depth of load-path searches in Mule Lisp paths.")
(defvar paths-default-info-directories
(mapcar (function
(lambda (dirlist)
(paths-construct-path
dirlist (char-to-string directory-sep-char))))
'(("usr" "local" "info")
("usr" "info")
("usr" "local" "share" "info")
("usr" "share" "info")))
"Directories appended to the end of the info path by default.")
(defun paths-find-site-lisp-directory (roots)
"Find the site Lisp directory of the XEmacs hierarchy."
(paths-find-site-directory roots "site-lisp"
nil
configure-site-directory))
(defun paths-find-site-module-directory (roots)
"Find the site modules directory of the XEmacs hierarchy."
(paths-find-site-directory roots "site-modules"
nil
configure-site-module-directory))
(defun paths-find-lisp-directory (roots)
"Find the main Lisp directory of the XEmacs hierarchy."
(paths-find-version-directory roots "lisp"
nil
configure-lisp-directory))
(defun paths-find-mule-lisp-directory (roots &optional lisp-directory)
"Find the Mule Lisp directory of the XEmacs hierarchy."
;; #### kludge
(if lisp-directory
(let ((guess
(file-name-as-directory
(paths-construct-path (list lisp-directory "mule")))))
(if (paths-file-readable-directory-p guess)
guess
(paths-find-version-directory roots "mule-lisp"
nil
configure-mule-lisp-directory)))))
(defun paths-find-module-directory (roots)
"Find the main modules directory of the XEmacs hierarchy."
(paths-find-architecture-directory roots "modules"
nil configure-module-directory))
(defun paths-construct-load-path
(roots early-package-load-path late-package-load-path last-package-load-path
lisp-directory
&optional site-lisp-directory mule-lisp-directory)
"Construct the load path."
(let* ((envvar-value (getenv "EMACSLOADPATH"))
(env-load-path
(and envvar-value
(paths-decode-directory-path envvar-value 'drop-empties)))
(site-lisp-load-path
(and site-lisp-directory
(paths-find-recursive-load-path (list site-lisp-directory)
paths-site-load-path-depth)))
(mule-lisp-load-path
(and mule-lisp-directory
(paths-find-recursive-load-path (list mule-lisp-directory)
paths-mule-load-path-depth)))
(lisp-load-path
(and lisp-directory
(paths-find-recursive-load-path (list lisp-directory)
paths-core-load-path-depth))))
(append env-load-path
early-package-load-path
site-lisp-load-path
late-package-load-path
mule-lisp-load-path
lisp-load-path
last-package-load-path)))
(defun paths-construct-module-load-path
(root module-directory &optional site-module-directory)
"Construct the modules load path."
(let* ((envvar-value (getenv "EMACSMODULEPATH"))
(env-module-path
(and envvar-value
(paths-decode-directory-path envvar-value 'drop-empties)))
(site-module-load-path
(and site-module-directory
(paths-find-recursive-load-path (list site-module-directory)
paths-site-load-path-depth)))
(module-load-path
(and module-directory
(paths-find-recursive-load-path (list module-directory)
paths-core-load-path-depth))))
(append env-module-path
site-module-load-path
module-load-path)))
(defun paths-construct-info-path (roots early-packages late-packages last-packages)
"Construct the info path."
(let ((info-path-envval (getenv "INFOPATH")))
(paths-uniq-append
(append
(let ((info-directory
(paths-find-version-directory roots "info"
nil
configure-info-directory)))
(and info-directory
(list info-directory)))
(packages-find-package-info-path early-packages)
(packages-find-package-info-path late-packages)
(packages-find-package-info-path last-packages)
(and info-path-envval
(paths-decode-directory-path info-path-envval 'drop-empties)))
(and (null info-path-envval)
(paths-uniq-append
(paths-directories-which-exist configure-info-path)
(paths-directories-which-exist paths-default-info-directories))))))
(defun paths-find-doc-directory (roots)
"Find the documentation directory."
(paths-find-architecture-directory roots "lib-src" nil configure-doc-directory))
(defun paths-find-exec-directory (roots)
"Find the binary directory."
(paths-find-architecture-directory roots "lib-src"
nil configure-exec-directory))
(defun paths-construct-exec-path (roots exec-directory
early-packages late-packages last-packages)
"Find the binary path."
(append
(let ((path-envval (getenv "PATH")))
(if path-envval
(paths-decode-directory-path path-envval 'drop-empties)))
(packages-find-package-exec-path early-packages)
(packages-find-package-exec-path late-packages)
(let ((emacspath-envval (getenv "EMACSPATH")))
(and emacspath-envval
(split-path emacspath-envval)))
(and exec-directory
(list exec-directory))
(packages-find-package-exec-path last-packages)))
(defun paths-find-data-directory (roots)
"Find the data directory."
(paths-find-version-directory roots "etc" "EMACSDATA" configure-data-directory))
(defun paths-construct-data-directory-list (data-directory
early-packages late-packages last-packages)
"Find the data path."
(append
(packages-find-package-data-path early-packages)
(packages-find-package-data-path late-packages)
(list data-directory)
(packages-find-package-data-path last-packages)))
;;; setup-paths.el ends here
|
