#!/bin/sh # Copyright (C) 2002 Free Software Foundation # # This file is part of GUILE. # # GUILE 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. # # GUILE 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 GUILE; see the file COPYING. If not, write # to the Free Software Foundation, Inc., 59 Temple Place, Suite # 330, Boston, MA 02111-1307 USA # Commentary: # Usage: pre-inst-guile [ARGS] # # This script arranges for the environment to support, and eventaully execs, # the uninstalled binary guile executable located somewhere under libguile/, # passing ARGS to it. In the process, env var GUILE is clobbered, and the # following env vars are modified (but not clobbered): # GUILE_LOAD_PATH # LTDL_LOAD_PATH # # This script can be used as a drop-in replacement for $bindir/guile; # if there is a discrepency in behavior, that's a bug. # Code: # config subdirs_with_ltlibs="srfi guile-readline" # maintain me # env (set by configure) top_srcdir="@top_srcdir@" top_builddir="@top_builddir_absolute@" [ x"$top_srcdir" = x -o ! -d "$top_srcdir" -o \ x"$top_builddir" = x -o ! -d "$top_builddir" ] && { echo $0: bad environment echo top_srcdir=$top_srcdir echo top_builddir=$top_builddir exit 1 } # handle GUILE_LOAD_PATH (no clobber) if [ x"$GUILE_LOAD_PATH" = x ] ; then GUILE_LOAD_PATH="${top_srcdir}" else # This hair prevents double inclusion. # The ":" prevents prefix aliasing. case x"$GUILE_LOAD_PATH" in x*${top_srcdir}:*) ;; *) GUILE_LOAD_PATH="${top_srcdir}:$GUILE_LOAD_PATH" ;; esac fi export GUILE_LOAD_PATH # handle LTDL_LIBRARY_PATH (no clobber) ltdl_prefix="" for dir in $subdirs_with_ltlibs ; do ltdl_prefix="${top_builddir}/${dir}:${ltdl_prefix}" done LTDL_LIBRARY_PATH="${ltdl_prefix}$LTDL_LIBRARY_PATH" export LTDL_LIBRARY_PATH # set GUILE (clobber) GUILE=${top_builddir}/libguile/guile export GUILE # do it exec $GUILE "$@" # never reached exit 1 # pre-inst-guile ends here