diff options
Diffstat (limited to 'setup_guile_test_env.in')
| -rw-r--r-- | setup_guile_test_env.in | 152 |
1 files changed, 0 insertions, 152 deletions
diff --git a/setup_guile_test_env.in b/setup_guile_test_env.in deleted file mode 100644 index 1a73d337d..000000000 --- a/setup_guile_test_env.in +++ /dev/null @@ -1,152 +0,0 @@ -# -# Copyright 2010 Free Software Foundation, Inc. -# -# This file is part of GNU Radio -# -# GNU Radio 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 3, or (at your option) -# any later version. -# -# GNU Radio 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 this program. If not, see <http://www.gnu.org/licenses/>. -# - -# This is sourced by run_guile_tests to establish the environment -# variables required to run the tests in the build tree. - -# add_local_paths is the only "public" function in this file - -# 1st argument is absolute path to hand coded guile source directory -# 2nd argument is absolute path to component C++ shared library build directory -# 3nd argument is absolute path to component SWIG build directory - -add_local_paths() { - if [ $# -ne 3 ] - then - echo "$0: requires 3 args" 1>&2 - exit 1 - fi - - # Add local dirs to the front - prepend_to_guile_load_path "$1" - prepend_to_libpath "$2/.libs" - [ "$2" != "$3" ] && prepend_to_libpath "$3/.libs" - prepend_to_guile_load_path "$3" - - # Add withdirs to the end - append_to_guile_load_path "@with_GUILE_LOAD_PATH@" - append_to_libpath "@with_LIBDIRPATH@" -} - -# ------------------------------------------------------------------------ - -abs_top_srcdir=@abs_top_srcdir@ -abs_top_builddir=@abs_top_builddir@ - -# usage: prepend <path-varname> <dir> -prepend() { - if [ $# -ne 2 ] - then - echo "$0: prepend needs 2 args" 1>&2 - exit 1 - fi - local path="$1" dir="$2" contents="" - eval "contents=\$$path" - if [ "$dir" != "" ] - then - if [ "$contents" = "" ] - then - eval "$path=\"$dir\"" - else - eval "$path=\"$dir:$contents\"" - fi - fi - #echo end-of-prepend: $path=${!path} -} - -# usage: append <path-varname> <dir> -append() { - if [ $# -ne 2 ] - then - echo "$0: append needs 2 args" 1>&2 - exit 1 - fi - local path="$1" dir="$2" contents="" - eval "contents=\$$path" - if [ "$dir" != "" ] - then - if [ "$contents" = "" ] - then - eval "$path=\"$dir\"" - else - eval "$path=\"$contents:$dir\"" - fi - fi - #echo end-of-append: $path=${!path} -} - -prepend_to_guile_load_path() { - prepend GUILE_LOAD_PATH "$1" - export GUILE_LOAD_PATH -} - -append_to_guile_load_path() { - append GUILE_LOAD_PATH "$1" - export GUILE_LOAD_PATH -} - -prepend_to_libpath() { - prepend LTDL_LIBRARY_PATH "$1" - export LTDL_LIBRARY_PATH - case "@host_os@" in - darwin*) - prepend DYLD_LIBRARY_PATH "$1" - export DYLD_LIBRARY_PATH - ;; - cygwin*|win*|mingw*) - prepend PATH "$1" - export PATH - ;; - esac -} - -append_to_libpath() { - append LTDL_LIBRARY_PATH "$1" - export LTDL_LIBRARY_PATH - case "@host_os@" in - darwin*) - append DYLD_LIBRARY_PATH "$1" - export DYLD_LIBRARY_PATH - ;; - cygwin*|win*|mingw*) - append PATH "$1" - export PATH - ;; - esac -} - -# ------------------------------------------------------------------------ -# Everybody gets gruel and gnuradio-core for free. -# FIXME Eventually this should be gruel and gnuradio-runtime. -# ------------------------------------------------------------------------ - -# Where to search for not yet installed C++ shared libraries -prepend_to_libpath $abs_top_builddir/gruel/src/lib/.libs -prepend_to_libpath $abs_top_builddir/gnuradio-core/src/lib/.libs -prepend_to_libpath $abs_top_builddir/gnuradio-core/src/guile/.libs - -# Where to search for not yet installed swig generated guile libs -prepend_to_libpath $abs_top_builddir/gnuradio-core/src/lib/swig/.libs - -# Where to seach for guile code. -prepend_to_guile_load_path $abs_top_srcdir/gnuradio-core/src/guile -prepend_to_guile_load_path $abs_top_builddir/gnuradio-core/src/lib/swig - - -export GUILE_WARN_DEPRECATED=no |