#

# 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

function 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>

function 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>

function 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}

}

function prepend_to_guile_load_path(){

    prepend GUILE_LOAD_PATH "$1"

    export GUILE_LOAD_PATH

}

function append_to_guile_load_path(){

    append GUILE_LOAD_PATH "$1"

    export GUILE_LOAD_PATH

}

function 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

}

function 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

# 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