3 # Copyright (C) 2003 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 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" # 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 GUILE_LOAD_PATH
="${top_srcdir}/guile-readline:${top_srcdir}"
52 for d
in "${top_srcdir}" "${top_srcdir}/guile-readline"
54 # This hair prevents double inclusion.
55 # The ":" prevents prefix aliasing.
56 case x
"$GUILE_LOAD_PATH" in
58 *) GUILE_LOAD_PATH
="${d}:$GUILE_LOAD_PATH" ;;
62 export GUILE_LOAD_PATH
64 # handle LTDL_LIBRARY_PATH (no clobber)
66 for dir
in $subdirs_with_ltlibs ; do
67 ltdl_prefix
="${top_builddir}/${dir}:${ltdl_prefix}"
69 LTDL_LIBRARY_PATH
="${ltdl_prefix}$LTDL_LIBRARY_PATH"
70 export LTDL_LIBRARY_PATH
72 # handle PATH (no clobber)
73 PATH
="${top_builddir}/guile-config:${PATH}"
74 PATH
="${top_builddir}/libguile:${PATH}"