3 # Copyright (C) 2002 Free Software Foundation
5 # This file is part of GUILE.
7 # GUILE is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as
9 # published by the Free Software Foundation; either version 2, or
10 # (at your option) any later version.
12 # GUILE is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public
18 # License along with GUILE; see the file COPYING. If not, write
19 # to the Free Software Foundation, Inc., 59 Temple Place, Suite
20 # 330, Boston, MA 02111-1307 USA
24 # Usage: pre-inst-guile [ARGS]
26 # This script arranges for the environment to support, and eventaully execs,
27 # the uninstalled binary guile executable located somewhere under libguile/,
28 # passing ARGS to it. In the process, env var GUILE is clobbered, and the
29 # following env vars are modified (but not clobbered):
33 # This script can be used as a drop-in replacement for $bindir/guile;
34 # if there is a discrepency in behavior, that's a bug.
39 subdirs_with_ltlibs
="srfi guile-readline" # maintain me
41 # env (set by configure)
42 top_srcdir
="@top_srcdir_absolute@"
43 top_builddir
="@top_builddir_absolute@"
45 [ x
"$top_srcdir" = x
-o ! -d "$top_srcdir" -o \
46 x
"$top_builddir" = x
-o ! -d "$top_builddir" ] && {
47 echo $0: bad environment
48 echo top_srcdir
=$top_srcdir
49 echo top_builddir
=$top_builddir
53 # handle GUILE_LOAD_PATH (no clobber)
54 if [ x
"$GUILE_LOAD_PATH" = x
] ; then
55 GUILE_LOAD_PATH
="${top_srcdir}"
57 # This hair prevents double inclusion.
58 # The ":" prevents prefix aliasing.
59 case x
"$GUILE_LOAD_PATH" in x
*${top_srcdir}:*) ;;
60 *) GUILE_LOAD_PATH
="${top_srcdir}:$GUILE_LOAD_PATH" ;;
63 export GUILE_LOAD_PATH
65 # handle LTDL_LIBRARY_PATH (no clobber)
67 for dir
in $subdirs_with_ltlibs ; do
68 ltdl_prefix
="${top_builddir}/${dir}:${ltdl_prefix}"
70 LTDL_LIBRARY_PATH
="${ltdl_prefix}$LTDL_LIBRARY_PATH"
71 export LTDL_LIBRARY_PATH
74 GUILE
=${top_builddir}/libguile
/guile
83 # pre-inst-guile ends here