diff options
Diffstat (limited to 'pre-inst-guile.in')
-rw-r--r-- | pre-inst-guile.in | 99 |
1 files changed, 0 insertions, 99 deletions
diff --git a/pre-inst-guile.in b/pre-inst-guile.in deleted file mode 100644 index d210fdebc..000000000 --- a/pre-inst-guile.in +++ /dev/null @@ -1,99 +0,0 @@ -#!/bin/sh - -# Copyright (C) 2002, 2006, 2008 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., 51 Franklin Street, Fifth -# Floor, Boston, MA 02110-1301 USA - -# NOTE: at some point we might consider invoking this under -# pre-inst-guile-env. If this will work, then most of the code below -# can be removed. - -# NOTE: If you update this file, please update pre-inst-guile-env.in -# as well, if appropriate. - -# 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_LIBRARY_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 libguile" # maintain me - -# env (set by configure) -top_srcdir="@top_srcdir_absolute@" -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}/guile-readline:${top_srcdir}" -else - for d in "${top_srcdir}" "${top_srcdir}/guile-readline" - do - # This hair prevents double inclusion. - # The ":" prevents prefix aliasing. - case x"$GUILE_LOAD_PATH" in - x*${d}:*) ;; - *) GUILE_LOAD_PATH="${d}:$GUILE_LOAD_PATH" ;; - esac - done -fi -export GUILE_LOAD_PATH - -# handle LTDL_LIBRARY_PATH (no clobber) -ltdl_prefix="" -dyld_prefix="" -for dir in $subdirs_with_ltlibs ; do - ltdl_prefix="${top_builddir}/${dir}:${ltdl_prefix}" - dyld_prefix="${top_builddir}/${dir}/.libs:${dyld_prefix}" -done -LTDL_LIBRARY_PATH="${ltdl_prefix}$LTDL_LIBRARY_PATH" -export LTDL_LIBRARY_PATH -DYLD_LIBRARY_PATH="${dyld_prefix}${top_builddir}/libguile/.libs:$DYLD_LIBRARY_PATH" -export DYLD_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 |