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
81
82
|
#!/bin/bash
FILES=""
IMP=false
RAMP=false
PULSE=false
PERIOD=false
DISPLAY=44100
while [ $1 ]
do
p=$1
if [ $p = "-help" ] || [ $p = "-h" ]; then
echo "faust-tester [-imp] [-pulse <num (in samples)] [-display <num>] foo.dsp"
echo "Use '-imp' to test with an dirac impulse"
echo "Use '-pulse <num (in samples)>' to test with a periodic pulse generated every 'num' samples"
echo "Use '-display <num>' to diplay <num> samples (default 44100)"
exit
fi
if [ "$p" = "-imp" ]; then
IMP=true
elif [ "$p" = "-ramp" ]; then
RMP=true
elif [ "$p" = "-pulse" ]; then
PULSE=true
shift
PERIOD=$1
elif [ "$p" = "-display" ]; then
shift
DISPLAY=$1
elif [[ -f "$p" ]]; then
FILES="$FILES $p"
elif [ ${p:0:1} = "-" ]; then
OPTIONS="$OPTIONS $p"
else
OPTIONS="$OPTIONS $p"
fi
shift
done
for p in $FILES; do
CUR=$(pwd)
f=$(basename "$p")
SRCDIR=$(dirname "$p")
dspName="${f%.dsp}"
# creates a temporary dir
TMP="${f%.dsp}_tester"
mkdir "$TMP"
cp "$SRCDIR/$f" "$TMP"
# generate and run 'impulse' test
if [ $IMP == true ]; then
cat > $TMP/imp.dsp << EndOfCode
test = 1 - 1';
process = test <: library("$SRCDIR/$f").process;
EndOfCode
faust2plot $TMP/imp.dsp || echo "ERROR in faust2plot"
./$TMP/imp -n $DISPLAY > $TMP/imp.plot
octave $TMP/imp.plot
fi
# generate and run 'pulse' test
if [ $PULSE == true ]; then
cat > $TMP/pulse.dsp << EndOfCode
import("stdfaust.lib");
test = ba.pulsen(30, $PERIOD);
process = test <: library("$SRCDIR/$f").process;
EndOfCode
faust2plot $TMP/pulse.dsp || echo "ERROR in faust2plot"
./$TMP/pulse -n $DISPLAY > $TMP/pulse.plot
octave $TMP/pulse.plot
fi
done
|
