annotate lisp/setup-paths.el @ 5050:6f2158fa75ed

Fix quick-build, use asserts() in place of ABORT() -------------------- ChangeLog entries follow: -------------------- ChangeLog addition: 2010-02-20 Ben Wing <ben@xemacs.org> * configure.ac (XE_COMPLEX_ARG): Correct doc of --quick-build: It also doesn't check for Lisp shadows. src/ChangeLog addition: 2010-02-20 Ben Wing <ben@xemacs.org> * EmacsFrame.c: * EmacsFrame.c (EmacsFrameRecomputeCellSize): * alloca.c (i00afunc): * buffer.c: * buffer.c (MARKED_SLOT): * buffer.c (complex_vars_of_buffer): * cm.c: * cm.c (cmcheckmagic): * console.c: * console.c (MARKED_SLOT): * device-x.c: * device-x.c (x_get_visual_depth): * emacs.c (sort_args): * eval.c (throw_or_bomb_out): * event-stream.c: * event-stream.c (Fadd_timeout): * event-stream.c (Fadd_async_timeout): * event-stream.c (Frecent_keys): * events.c: * events.c (Fdeallocate_event): * events.c (event_pixel_translation): * extents.c: * extents.c (process_extents_for_insertion_mapper): * fns.c (Fbase64_encode_region): * fns.c (Fbase64_encode_string): * fns.c (Fbase64_decode_region): * fns.c (Fbase64_decode_string): * font-lock.c: * font-lock.c (find_context): * frame-x.c: * frame-x.c (x_wm_mark_shell_size_user_specified): * frame-x.c (x_wm_mark_shell_position_user_specified): * frame-x.c (x_wm_set_shell_iconic_p): * frame-x.c (x_wm_set_cell_size): * frame-x.c (x_wm_set_variable_size): * frame-x.c (x_wm_store_class_hints): * frame-x.c (x_wm_maybe_store_wm_command): * frame-x.c (x_initialize_frame_size): * frame.c (delete_frame_internal): * frame.c (change_frame_size_1): * free-hook.c (check_free): * free-hook.c (note_block_input): * free-hook.c (log_gcpro): * gccache-gtk.c (gc_cache_lookup): * gccache-x.c: * gccache-x.c (gc_cache_lookup): * glyphs-gtk.c: * glyphs-gtk.c (init_image_instance_from_gdk_pixmap): * glyphs-x.c: * glyphs-x.c (extract_xpm_color_names): * insdel.c: * insdel.c (move_gap): * keymap.c: * keymap.c (keymap_lookup_directly): * keymap.c (keymap_delete_inverse_internal): * keymap.c (accessible_keymaps_mapper_1): * keymap.c (where_is_recursive_mapper): * lisp.h: * lstream.c (make_lisp_buffer_stream_1): * macros.c: * macros.c (pop_kbd_macro_event): * mc-alloc.c (remove_page_from_used_list): * menubar-x.c: * menubar-x.c (set_frame_menubar): * ralloc.c: * ralloc.c (obtain): * ralloc.c (relinquish): * ralloc.c (relocate_blocs): * ralloc.c (resize_bloc): * ralloc.c (r_alloc_free): * ralloc.c (r_re_alloc): * ralloc.c (r_alloc_thaw): * ralloc.c (init_ralloc): * ralloc.c (Free_Addr_Block): * scrollbar-x.c: * scrollbar-x.c (x_update_scrollbar_instance_status): * sunplay.c (init_device): * unexnt.c: * unexnt.c (read_in_bss): * unexnt.c (map_in_heap): * window.c: * window.c (real_window): * window.c (window_display_lines): * window.c (window_display_buffer): * window.c (set_window_display_buffer): * window.c (unshow_buffer): * window.c (Fget_lru_window): if (...) ABORT(); ---> assert(); More specifically: if (x == y) ABORT (); --> assert (x != y); if (x != y) ABORT (); --> assert (x == y); if (x > y) ABORT (); --> assert (x <= y); etc. if (!x) ABORT (); --> assert (x); if (x) ABORT (); --> assert (!x); DeMorgan's Law's applied and manually simplified: if (x && !y) ABORT (); --> assert (!x || y); if (!x || y >= z) ABORT (); --> assert (x && y < z); Checked to make sure that assert() of an expression with side effects ensures that the side effects get executed even when asserts are disabled, and add a comment about this being a requirement of any "disabled assert" expression. * depend: * make-src-depend: * make-src-depend (PrintDeps): Fix broken code in make-src-depend so it does what it was always supposed to do, which was separate out config.h and lisp.h and all the files they include into separate variables in the depend part of Makefile so that quick-build can turn off the lisp.h/config.h/text.h/etc. dependencies of the source files, to speed up recompilation.
author Ben Wing <ben@xemacs.org>
date Sat, 20 Feb 2010 05:05:54 -0600
parents 6b6b0f8ab749
children 54700d784be9
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 ;;; setup-paths.el --- setup various XEmacs paths
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, 1990, 1992-1997 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 ;; Copyright (c) 1993, 1994 Sun Microsystems, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 ;; Copyright (C) 1995 Board of Trustees, University of Illinois
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
6 ;; Copyright (C) 2003 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
8 ;; Author: Mike Sperber <mike@xemacs.orgx>
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 ;; Maintainer: XEmacs Development Team
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 ;; Keywords: internal, dumped
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 ;; XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 ;; under the terms of the GNU General Public License as published by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 ;; the Free Software Foundation; either version 2, or (at your option)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 ;; any later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 ;; XEmacs is distributed in the hope that it will be useful, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 ;; General Public License for more details.
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 ;; You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 ;; along with XEmacs; see the file COPYING. If not, write to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 ;; Free Software Foundation, 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 ;; Boston, MA 02111-1307, USA.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 ;;; Synched up with: Not in FSF.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 ;;; Commentary:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 ;; This file is dumped with XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
35 ;; This file contains functions and variables that describe and construct
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 460
diff changeset
36 ;; the various paths into the XEmacs hierarchy from a global viewpoint.
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
37
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
38 ;; This file doesn't actually set any global variable, and doesn't
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
39 ;; contain any state---it just contains the functionality for
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
40 ;; searching directories and constructing paths.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 ;; It requires find-paths.el and packages.el.
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
43
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
44 ;;; Code:
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
45
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
46 ;(setq debug-paths t)
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
47
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
49 (defvar paths-core-load-path-depth 0
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 "Depth of load-path searches in core Lisp paths.")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 442
diff changeset
52 (defvar paths-site-load-path-depth 1
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 442
diff changeset
53 "Depth of load-path searches in site Lisp paths.")
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 442
diff changeset
54
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
55 (defvar paths-mule-load-path-depth 0
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
56 "Depth of load-path searches in Mule Lisp paths.")
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
57
3813
ccceded4ee72 [xemacs-hg @ 2007-02-05 15:19:17 by michaels]
michaels
parents: 3281
diff changeset
58 (defvar paths-module-load-path-depth 1
ccceded4ee72 [xemacs-hg @ 2007-02-05 15:19:17 by michaels]
michaels
parents: 3281
diff changeset
59 "Depth of load-path searches in module paths.")
ccceded4ee72 [xemacs-hg @ 2007-02-05 15:19:17 by michaels]
michaels
parents: 3281
diff changeset
60
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 (defvar paths-default-info-directories
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 (mapcar (function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 (lambda (dirlist)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 (paths-construct-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 dirlist (char-to-string directory-sep-char))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 '(("usr" "local" "info")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 ("usr" "info")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 ("usr" "local" "share" "info")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 ("usr" "share" "info")))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 "Directories appended to the end of the info path by default.")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
72
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
73 ;;; Basic utility functions.
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
74
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
75 (defun paths-emacs-root-p (directory)
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
76 "Check if DIRECTORY is a plausible installation root."
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
77 (or
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
78 ;; installed
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
79 (paths-file-readable-directory-p (paths-construct-path (list directory
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
80 "lib"
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
81 (construct-emacs-version-name))))
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
82 ;; in-place or windows-nt. windows-nt equivalent of --srcdir is
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
83 ;; BUILD_DIR in config.inc, and has no lisp/ or etc/ since symlinks
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
84 ;; don't exist. instead, xemacs.mak points configure-lisp-directory and
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
85 ;; configure-data-directory at the right places.
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
86 (and
1526
8b284a83dd90 [xemacs-hg @ 2003-06-13 00:11:16 by adrian]
adrian
parents: 1330
diff changeset
87 (or configure-exec-directory (paths-file-readable-directory-p (paths-construct-path (list directory "lib-src"))) (eq system-type 'windows-nt))
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
88 (or configure-lisp-directory (paths-file-readable-directory-p (paths-construct-path (list directory "lisp"))))
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
89 (or configure-data-directory (paths-file-readable-directory-p (paths-construct-path (list directory "etc")))))))
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
90
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
91 (defun paths-emacs-data-root-p (directory)
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
92 "Check if DIRECTORY is a plausible data installation root.
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
93 A data installation root is one containing data files that may be shared
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
94 among multiple different versions of XEmacs, the packages in particular.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
95 This serves as an additional filter to narrow down the list of plausible
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
96 installation roots."
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
97 (or
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
98 ;; installed
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
99 (paths-file-readable-directory-p (paths-construct-path (list directory
4154
09c3d30b5d4e [xemacs-hg @ 2007-08-30 07:32:34 by michaels]
michaels
parents: 4108
diff changeset
100 "share"
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
101 emacs-program-name)))
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
102 (paths-file-readable-directory-p (paths-construct-path (list directory
4154
09c3d30b5d4e [xemacs-hg @ 2007-08-30 07:32:34 by michaels]
michaels
parents: 4108
diff changeset
103 "share"
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
104 (construct-emacs-version-name))))
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
105 ;; in-place or windows-nt
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
106 (and
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
107 (paths-file-readable-directory-p (paths-construct-path (list directory "lisp")))
3281
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
108 (paths-file-readable-directory-p (paths-construct-path (list directory "etc"))))
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
109
3281
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
110 ;; searching for a package directory
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
111 (and
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
112 (string-match "win32" system-configuration)
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
113 (paths-file-readable-directory-p (paths-construct-path (list directory
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
114 "xemacs-packages"))))))
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
115
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
116 (defun paths-find-invocation-roots (invocation-directory invocation-name root-p)
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
117 "Find the list of run-time roots of XEmacs.
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
118 INVOCATION-DIRECTORY is a directory containing the XEmacs executable.
3281
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
119 INVOCATION-NAME is the name of the executable itself
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
120 ROOT-P is a function that tests whether a root is plausible."
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
121 (let* ((executable-file-name (paths-chase-symlink
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
122 (concat invocation-directory
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
123 invocation-name)))
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
124 (executable-directory (file-name-directory executable-file-name))
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
125 (maybe-root-1 (file-name-as-directory
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
126 (paths-construct-path '("..") executable-directory)))
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
127 (maybe-root-2 (file-name-as-directory
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
128 (paths-construct-path '(".." "..") executable-directory))))
3281
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
129
4919
9c6ea1581159 Remove a couple of XEmacs-specific duplicate functions, find-paths.el
Aidan Kehoe <kehoea@parhasard.net>
parents: 4154
diff changeset
130 (delete-if-not root-p (list maybe-root-1 maybe-root-2))))
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
131
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
132 (defun paths-find-emacs-roots (invocation-directory
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
133 invocation-name
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
134 root-p)
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
135 "Find all plausible installation roots for XEmacs.
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
136 This is a list of plausible directories in which to search for the important
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
137 directories used by XEmacs at run-time, for example `exec-directory',
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
138 `data-directory' and `lisp-directory'.
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
139 ROOT-P is a function that tests whether a root is plausible."
3281
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
140 (let* ((invocation-roots
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
141 (paths-find-invocation-roots invocation-directory
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
142 invocation-name
57711e9aac15 [xemacs-hg @ 2006-03-14 00:09:02 by vins]
vins
parents: 2456
diff changeset
143 root-p))
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
144 (potential-installation-roots
5003
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
145 (delete-duplicates
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
146 (append
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
147 (and configure-exec-prefix-directory
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
148 (list (file-name-as-directory
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
149 configure-exec-prefix-directory)))
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
150 (and configure-prefix-directory
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
151 (list (file-name-as-directory
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
152 configure-prefix-directory))))
4919
9c6ea1581159 Remove a couple of XEmacs-specific duplicate functions, find-paths.el
Aidan Kehoe <kehoea@parhasard.net>
parents: 4154
diff changeset
153 :test #'equal))
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
154 (installation-roots
4919
9c6ea1581159 Remove a couple of XEmacs-specific duplicate functions, find-paths.el
Aidan Kehoe <kehoea@parhasard.net>
parents: 4154
diff changeset
155 (remove-if-not root-p potential-installation-roots)))
5003
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
156 (delete-duplicates (nconc invocation-roots installation-roots)
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
157 :test #'equal)))
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
158
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 (defun paths-find-site-lisp-directory (roots)
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
160 "Find the site Lisp directory of the XEmacs hierarchy.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
161 ROOTS is a list of installation roots."
4108
5da4cc7d5968 [xemacs-hg @ 2007-08-09 06:22:51 by michaels]
michaels
parents: 4092
diff changeset
162 (paths-find-site-directory roots (list "site-lisp")
4092
9c0151d05116 [xemacs-hg @ 2007-08-02 06:33:04 by michaels]
michaels
parents: 3813
diff changeset
163 nil nil
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 configure-site-directory))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 (defun paths-find-site-module-directory (roots)
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
167 "Find the site modules directory of the XEmacs hierarchy.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
168 ROOTS is a list of installation roots."
4108
5da4cc7d5968 [xemacs-hg @ 2007-08-09 06:22:51 by michaels]
michaels
parents: 4092
diff changeset
169 (paths-find-site-directory roots (list "site-modules")
4092
9c0151d05116 [xemacs-hg @ 2007-08-02 06:33:04 by michaels]
michaels
parents: 3813
diff changeset
170 t nil
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 configure-site-module-directory))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 (defun paths-find-lisp-directory (roots)
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
174 "Find the main Lisp directory of the XEmacs hierarchy.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
175 ROOTS is a list of installation roots."
4108
5da4cc7d5968 [xemacs-hg @ 2007-08-09 06:22:51 by michaels]
michaels
parents: 4092
diff changeset
176 (paths-find-version-directory roots (list "lisp")
4092
9c0151d05116 [xemacs-hg @ 2007-08-02 06:33:04 by michaels]
michaels
parents: 3813
diff changeset
177 nil nil
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 configure-lisp-directory))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
180 (defun paths-find-mule-lisp-directory (roots &optional lisp-directory)
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
181 "Find the Mule Lisp directory of the XEmacs hierarchy.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
182 ROOTS is a list of installation roots."
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
183 ;; #### kludge
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
184 (if lisp-directory
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
185 (let ((guess
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
186 (file-name-as-directory
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
187 (paths-construct-path (list lisp-directory "mule")))))
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
188 (if (paths-file-readable-directory-p guess)
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
189 guess
4108
5da4cc7d5968 [xemacs-hg @ 2007-08-09 06:22:51 by michaels]
michaels
parents: 4092
diff changeset
190 (paths-find-version-directory roots (list "mule-lisp")
4092
9c0151d05116 [xemacs-hg @ 2007-08-02 06:33:04 by michaels]
michaels
parents: 3813
diff changeset
191 nil nil
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
192 configure-mule-lisp-directory)))))
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
193
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 (defun paths-find-module-directory (roots)
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
195 "Find the main modules directory of the XEmacs hierarchy.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
196 ROOTS is a list of installation roots."
4108
5da4cc7d5968 [xemacs-hg @ 2007-08-09 06:22:51 by michaels]
michaels
parents: 4092
diff changeset
197 (paths-find-architecture-directory roots (list "modules")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 nil configure-module-directory))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 (defun paths-construct-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 (roots early-package-load-path late-package-load-path last-package-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 lisp-directory
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
203 &optional site-lisp-directory mule-lisp-directory)
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
204 "Construct the complete load path.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
205 ROOTS is the list of installation roots.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
206 EARLY-PACKAGE-LOAD-PATH, LATE-PACKAGE-LOAD-PATH, and LAST-PACKAGE-LOAD-PATH
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
207 are the load paths for the package hierarchies.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
208 SITE-LISP-DIRECTORY and MULE-LISP-DIRECTORY are optional directories to be
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
209 included in the load path---SITE-LISP-DIRECTORY for the obsolete site-specific
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
210 Lisp files, and MULE-LISP-DIRECTORY for the Mule Lisp files, which exist
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
211 only in Mule installations."
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 (let* ((envvar-value (getenv "EMACSLOADPATH"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 (env-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 (and envvar-value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 (paths-decode-directory-path envvar-value 'drop-empties)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 (site-lisp-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 (and site-lisp-directory
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 (paths-find-recursive-load-path (list site-lisp-directory)
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 442
diff changeset
219 paths-site-load-path-depth)))
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
220 (mule-lisp-load-path
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
221 (and mule-lisp-directory
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
222 (paths-find-recursive-load-path (list mule-lisp-directory)
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
223 paths-mule-load-path-depth)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 (lisp-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 (and lisp-directory
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 (paths-find-recursive-load-path (list lisp-directory)
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 442
diff changeset
227 paths-core-load-path-depth))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 (append env-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 early-package-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 site-lisp-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 late-package-load-path
460
223736d75acb Import from CVS: tag r21-2-45
cvs
parents: 452
diff changeset
232 mule-lisp-load-path
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 lisp-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 last-package-load-path)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 (defun paths-construct-module-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 (root module-directory &optional site-module-directory)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 "Construct the modules load path."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 (let* ((envvar-value (getenv "EMACSMODULEPATH"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 (env-module-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 (and envvar-value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 (paths-decode-directory-path envvar-value 'drop-empties)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 (site-module-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 (and site-module-directory
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 (paths-find-recursive-load-path (list site-module-directory)
452
3d3049ae1304 Import from CVS: tag r21-2-41
cvs
parents: 442
diff changeset
246 paths-site-load-path-depth)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 (module-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 (and module-directory
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 (paths-find-recursive-load-path (list module-directory)
3813
ccceded4ee72 [xemacs-hg @ 2007-02-05 15:19:17 by michaels]
michaels
parents: 3281
diff changeset
250 paths-module-load-path-depth))))
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
251 (append env-module-path
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 site-module-load-path
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 module-load-path)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
255 (defun paths-construct-info-path (roots
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
256 early-package-hierarchies
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
257 late-package-hierarchies
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
258 last-package-hierarchies)
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
259 "Construct the info path.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
260 ROOTS is the list of installation roots.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
261 EARLY-PACKAGE-HIERARCHIES, LATE-PACKAGE-HIERARCHIES, and
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
262 LAST-PACKAGE-HIERARCHIES are lists of package hierarchy roots,
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
263 respectively."
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 (let ((info-path-envval (getenv "INFOPATH")))
5003
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
265 (delete-duplicates
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
266 (nconc
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
267 (append
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
268 (let ((info-directory
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
269 (paths-find-version-directory roots (list "info")
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
270 nil nil
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
271 configure-info-directory)))
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
272 (and info-directory
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
273 (list info-directory)))
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
274 (packages-find-package-info-path early-package-hierarchies)
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
275 (packages-find-package-info-path late-package-hierarchies)
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
276 (packages-find-package-info-path last-package-hierarchies)
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
277 (and info-path-envval
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
278 (paths-decode-directory-path info-path-envval 'drop-empties)))
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
279 (and (null info-path-envval)
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
280 (delete-duplicates
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
281 (nconc
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
282 (paths-directories-which-exist configure-info-path)
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
283 (paths-directories-which-exist paths-default-info-directories))
6b6b0f8ab749 #'union doesn't preserve relative order; use #'delete-duplicates instead.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4919
diff changeset
284 :test #'equal)))
4919
9c6ea1581159 Remove a couple of XEmacs-specific duplicate functions, find-paths.el
Aidan Kehoe <kehoea@parhasard.net>
parents: 4154
diff changeset
285 :test #'equal)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 (defun paths-find-doc-directory (roots)
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
288 "Find the documentation directory.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
289 ROOTS is the list of installation roots."
4108
5da4cc7d5968 [xemacs-hg @ 2007-08-09 06:22:51 by michaels]
michaels
parents: 4092
diff changeset
290 (paths-find-architecture-directory roots (list "lib-src") nil configure-doc-directory))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 (defun paths-find-exec-directory (roots)
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
293 "Find the binary directory.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
294 ROOTS is the list of installation roots."
4108
5da4cc7d5968 [xemacs-hg @ 2007-08-09 06:22:51 by michaels]
michaels
parents: 4092
diff changeset
295 (paths-find-architecture-directory roots (list "lib-src")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 nil configure-exec-directory))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 (defun paths-construct-exec-path (roots exec-directory
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
299 early-package-hierarchies
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
300 late-package-hierarchies
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
301 last-package-hierarchies)
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
302 "Find the binary path.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
303 ROOTS is the list of installation roots.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
304 EARLY-PACKAGE-HIERARCHIES, LATE-PACKAGE-HIERARCHIES, and
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
305 LAST-PACKAGE-HIERARCHIES are lists of package hierarchy roots,
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
306 respectively.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
307 EXEC-DIRECTORY is the directory of architecture-dependent files that
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
308 come with XEmacs.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
309 EARLY-PACKAGES, LATE-PACKAGES, and LAST-PACKAGES are lists of
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
310 package hierarchy roots, respectively."
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 (append
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 (let ((path-envval (getenv "PATH")))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 (if path-envval
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314 (paths-decode-directory-path path-envval 'drop-empties)))
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
315 (packages-find-package-exec-path early-package-hierarchies)
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
316 (packages-find-package-exec-path late-package-hierarchies)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 (let ((emacspath-envval (getenv "EMACSPATH")))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 (and emacspath-envval
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 (split-path emacspath-envval)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 (and exec-directory
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 (list exec-directory))
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
322 (packages-find-package-exec-path last-package-hierarchies)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 (defun paths-find-data-directory (roots)
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
325 "Find the data directory.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
326 ROOTS is the list of installation roots."
4108
5da4cc7d5968 [xemacs-hg @ 2007-08-09 06:22:51 by michaels]
michaels
parents: 4092
diff changeset
327 (paths-find-version-directory roots (list "etc") nil "EMACSDATA" configure-data-directory))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 (defun paths-construct-data-directory-list (data-directory
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
330 early-package-hierarchies
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
331 late-package-hierarchies
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
332 last-package-hierarchies)
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
333 "Construct the data path.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
334 DATA-DIRECTORY is the data directory of the XEmacs installation.
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
335 EARLY-PACKAGE-HIERARCHIES, LATE-PACKAGE-HIERARCHIES, and
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
336 LAST-PACKAGE-HIERARCHIES are lists of package hierarchy roots,
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
337 respectively."
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 (append
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
339 (packages-find-package-data-path early-package-hierarchies)
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
340 (packages-find-package-data-path late-package-hierarchies)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 (list data-directory)
2456
f4e405a9d18d [xemacs-hg @ 2004-12-27 12:25:14 by michaels]
michaels
parents: 1526
diff changeset
342 (packages-find-package-data-path last-package-hierarchies)))
1330
4542b72c005e [xemacs-hg @ 2003-03-01 07:25:26 by ben]
ben
parents: 776
diff changeset
343
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344 ;;; setup-paths.el ends here