blob: 651b387e9c7b0d43a536c70cb2e7afa9f4c6514f (
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
|
#!/bin/sh
# 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}
}
prefix="@prefix@"
exec_prefix="@exec_prefix@"
prepend GUILE_LOAD_PATH "${prefix}/share/guile/site"
prepend LTDL_LIBRARY_PATH "@libdir@"
prepend DYLD_LIBRARY_PATH "@libdir@"
export GUILE_LOAD_PATH LTDL_LIBRARY_PATH DYLD_LIBRARY_PATH
export GUILE_WARN_DEPRECATED="no"
exec @GUILE@ -e main -s $0 "$@"
!#
;;; Load and run a waveform defined with define-waveform
;;;
;;; usage: gr-run-waveform filename.wfd [args...]
(load-from-path "gnuradio/run-waveform")
(define (main args)
(if (not (>= (length args) 2))
(let ((port (current-error-port)))
(display "usage: " port)
(display (car args) port)
(display " filename.wfd [args...]\n" port)
(exit 1)))
(apply run-waveform (cdr args)))
|
