diff options
| author | Eric Blossom <eb@comsec.com> | 2010-11-25 20:51:54 -0800 |
|---|---|---|
| committer | Eric Blossom <eb@comsec.com> | 2010-11-25 20:51:54 -0800 |
| commit | 06f49339578b048b6a2f9d892ba61081e96a4186 (patch) | |
| tree | 2bbfc41962df36df604a35897d5bb9247a2de28a /gr-run-waveform | |
| parent | c0c8a88a6fc6e23213b86fac1de06966a7c4f698 (diff) | |
Add run_waveform.scm, main scheme code to load by run_waveform.cc
Diffstat (limited to 'gr-run-waveform')
| -rwxr-xr-x | gr-run-waveform/run_waveform.scm | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/gr-run-waveform/run_waveform.scm b/gr-run-waveform/run_waveform.scm new file mode 100755 index 0000000000..a8d1d03895 --- /dev/null +++ b/gr-run-waveform/run_waveform.scm @@ -0,0 +1,64 @@ +#!/usr/bin/guile \ +-e main -s +!# +;;; +;;; 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/>. +;;; + +;;; Load and run a waveform defined with define-waveform +;;; +;;; usage: gr-run-waveform filename.wfd + + +(use-modules (oop goops) + (gnuradio core) + (gnuradio waveform)) + + +(define (enable-debug-mode) + (display %load-path) + (newline) + (set! %load-verbosely #t) + (debug-enable 'backtrace 'debug)) + +(define (usage args) + (let ((port (current-error-port))) + (display "usage: " port) + (display (car args) port) + (newline port) + (exit 1))) + + +(define (main args) + (if (not (>= (length args) 2)) + (usage args)) + (enable-debug-mode) + (let ((filename (cadr args))) + ;; Probably ought to handle errors here + (load filename) + (let ((f (waveform-last-registered))) + (if (not f) + (begin + (format 1 "No define-waveform found in file '~A'\n" filename) + (exit 1))) + (gr:run (f (cdr args)))))) + + +;;; Local Variables: +;;; mode: scheme +;;; End: |