dail-tone.wfd example waveform can be loaded and run by gr-run-waveform.

Write new app, gr-run-waveform, that reads waveforms and runs them.
We'll need to turn this into a small piece of C/C++ code that embeds
guile, but the guts of it is working.

3 files changed, 72 insertions, 0 deletions

diff --git a/gr-guile/example-waveforms/.gitignore b/gr-guile/example-waveforms/.gitignore
new file mode 100644
index 000000000..16c984055
--- /dev/null
+++ b/gr-guile/example-waveforms/.gitignore
@@ -0,0 +1,6 @@
+/Makefile
+/Makefile.in
+/.deps
+/.libs
+/*.la
+/*.lo
diff --git a/gr-guile/example-waveforms/Makefile.am b/gr-guile/example-waveforms/Makefile.am
new file mode 100644
index 000000000..cda4172de
--- /dev/null
+++ b/gr-guile/example-waveforms/Makefile.am
@@ -0,0 +1,25 @@
+#
+# 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/>.
+#
+
+include $(top_srcdir)/Makefile.common
+
+waveformdir=$(datarootdir)/gnuradio/example-waveforms
+
+waveform_DATA = \
+	dial-tone.wfd
diff --git a/gr-guile/example-waveforms/dial-tone.wfd b/gr-guile/example-waveforms/dial-tone.wfd
new file mode 100644
index 000000000..75091ad36
--- /dev/null
+++ b/gr-guile/example-waveforms/dial-tone.wfd
@@ -0,0 +1,41 @@
+;;; Emacs, format this using -*-scheme-*- mode.
+;;;
+;;; 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 example waveform outputs a signal to an audio_alsa_sink
+;;; that sounds like North American dial tone.
+
+(use-modules (gnuradio audio_alsa))
+
+
+(define-waveform (dial-tone cmd-line-args)
+  (vars
+   (sample-rate 48000)
+   (ampl 0.1))
+
+  (blocks
+   (src0 (gr:sig-source-f sample-rate (gr:GR-SIN-WAVE) 350 ampl))
+   (src1 (gr:sig-source-f sample-rate (gr:GR-SIN-WAVE) 440 ampl))
+   ;;(sink (gr:audio-alsa-sink sample-rate "plughw:0,0"))
+   (sink (gr:sink sample-rate "plughw:0,0"))
+   )
+
+  (connections
+   (src0 (list sink 0))		; src0 to left input
+   (src1 (list sink 1))))	; src1 to right input