3 # Copyright (C) 2003, 2006, 2008 Free Software Foundation
5 # This file is part of GUILE.
7 # This script is free software; you can redistribute it and/or
8 # modify it under the terms of the GNU Lesser General Public
9 # License as published by the Free Software Foundation; either
10 # version 2.1 of the License, or (at your option) any later version.
12 # This library is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 # Lesser General Public License for more details.
17 # You should have received a copy of the GNU Lesser General Public
18 # License along with this library; if not, write to the Free Software
19 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
21 # NOTE: If you update this file, please update pre-inst-guile.in as
22 # well, if appropriate.
24 # Usage: pre-inst-guile-env [ARGS]
26 # This script arranges for the environment to support running Guile
27 # from the build tree. The following env vars are modified (but not
28 # clobbered): GUILE_LOAD_PATH, LTDL_LIBRARY_PATH, and PATH.
30 # Example: pre-inst-guile-env guile -c '(display "hello\n")'
31 # Example: ../../pre-inst-guile-env ./guile-test-foo
34 subdirs_with_ltlibs
="srfi guile-readline libguile" # maintain me
36 # env (set by configure)
37 top_srcdir
="@top_srcdir_absolute@"
38 top_builddir
="@top_builddir_absolute@"
40 [ x
"$top_srcdir" = x
-o ! -d "$top_srcdir" -o \
41 x
"$top_builddir" = x
-o ! -d "$top_builddir" ] && {
42 echo $0: bad environment
43 echo top_srcdir
=$top_srcdir
44 echo top_builddir
=$top_builddir
48 if [ x
"$GUILE_LOAD_PATH" = x
]
50 if test "${top_srcdir}" != "${top_builddir}"; then
51 GUILE_LOAD_PATH
="${top_builddir}/guile-readline:${top_srcdir}/guile-readline:${top_builddir}:${top_srcdir}:${top_builddir}/module:${top_srcdir}/module"
53 GUILE_LOAD_PATH
="${top_srcdir}/guile-readline:${top_srcdir}:${top_builddir}/module:${top_srcdir}/module"
56 for d
in "${top_srcdir}" "${top_srcdir}/guile-readline" \
57 "${top_srcdir}/module" "${top_builddir}/module"
59 # This hair prevents double inclusion.
60 # The ":" prevents prefix aliasing.
61 case x
"$GUILE_LOAD_PATH" in
63 *) GUILE_LOAD_PATH
="${d}:$GUILE_LOAD_PATH" ;;
67 export GUILE_LOAD_PATH
69 # Don't look in installed dirs for guile modules
70 if ( env |
grep -v -q -E '^GUILE_SYSTEM_PATH=' ); then
71 export GUILE_SYSTEM_PATH
=
74 # handle LTDL_LIBRARY_PATH (no clobber)
77 for dir
in $subdirs_with_ltlibs ; do
78 ltdl_prefix
="${top_builddir}/${dir}:${ltdl_prefix}"
79 dyld_prefix
="${top_builddir}/${dir}/.libs:${dyld_prefix}"
81 LTDL_LIBRARY_PATH
="${ltdl_prefix}$LTDL_LIBRARY_PATH"
82 export LTDL_LIBRARY_PATH
83 DYLD_LIBRARY_PATH
="${dyld_prefix}${top_builddir}/libguile/.libs:$DYLD_LIBRARY_PATH"
84 export DYLD_LIBRARY_PATH
86 # handle PATH (no clobber)
87 PATH
="${top_builddir}/guile-config:${PATH}"
88 PATH
="${top_builddir}/libguile:${PATH}"