summaryrefslogtreecommitdiff
path: root/setup_guile_test_env.in
blob: ee7e9ea4665f55a38de639d528d0246d819cadee (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
#!/bin/sh

# This is sourced by run_guile_tests to establish the environment
# variables required to run the tests in the build tree.

abs_top_srcdir=@abs_top_srcdir@
abs_top_builddir=@abs_top_builddir@


# FIXME add in OS/X DYLD_LIBRARY_PATH
# FIXME add in cywin*/win*/mingw* PATH
# FIXME add in withdirs


# 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
  [ -n "$1" ] && prepend GUILE_LOAD_PATH "$1"
  [ -n "$2" ] && prepend LTDL_LIBRARY_PATH "$2/.libs"
  [ -n "$3" -a "$2" != "$3" ] && prepend LTDL_LIBRARY_PATH "$3/.libs"
  [ -n "$3" ] && prepend GUILE_LOAD_PATH "$3"
}

# 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"
  #echo "path = $path"
  #echo "dir = $dir"
  #echo "contents = $contents"
  if [ "$dir" != "" ]
  then
    if [ "$contents" = "" ]
    then
      eval "$path=\"$dir\""
    else
      eval "$path=\"$dir:$contents\""
    fi
  fi

  #echo end-of-prepend: $path=${!path}
}

# ------------------------------------------------------------------------
# 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 mylibdir $abs_top_builddir/gruel/src/lib/.libs
prepend mylibdir $abs_top_builddir/gnuradio-core/src/lib/.libs

# Where to search for not yet installed swig generated guile libs
prepend mylibdir $abs_top_builddir/gnuradio-core/src/lib/swig/.libs

# Where to seach for guile code.
prepend guile_load_path $abs_top_srcdir/gnuradio-core/src/guile
prepend guile_load_path $abs_top_builddir/gnuradio-core/src/lib/swig

#echo "mylibdir = $mylibdir"
#echo "guile_load_path = $guile_load_path"

prepend LTDL_LIBRARY_PATH "$mylibdir"
prepend GUILE_LOAD_PATH "$guile_load_path"

export LTDL_LIBRARY_PATH
export GUILE_LOAD_PATH
export GUILE_WARN_DEPRECATED=no