From 9d91d36c7e509928705f093935024d08d2c019c8 Mon Sep 17 00:00:00 2001
From: Eric Blossom
Date: Thu, 2 Dec 2010 17:27:36 -0800
Subject: Move guts of gr-run-waveform into gnuradio/run-waveform.scm

---
 gr-guile/apps/gr-run-waveform | 40 ++++++++--------------------------------
 1 file changed, 8 insertions(+), 32 deletions(-)

(limited to 'gr-guile')

diff --git a/gr-guile/apps/gr-run-waveform b/gr-guile/apps/gr-run-waveform
index a8d1d0389..555956c70 100755
--- a/gr-guile/apps/gr-run-waveform
+++ b/gr-guile/apps/gr-run-waveform
@@ -22,42 +22,18 @@
 
 ;;; Load and run a waveform defined with define-waveform
 ;;;
-;;; usage: gr-run-waveform filename.wfd
+;;; usage: gr-run-waveform filename.wfd [args...]
 
-
-(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)))
-    
+(load-from-path "gnuradio/run-waveform")
 
 (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))))))
-
+      (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)))
 
 ;;; Local Variables:
 ;;; mode: scheme
-- 
cgit