diff options
| author | Johnathan Corgan | 2011-12-08 13:48:48 -0800 |
|---|---|---|
| committer | Johnathan Corgan | 2011-12-08 13:48:48 -0800 |
| commit | 00420d32081d8252bb37142b2be19a8a7c4dc4c4 (patch) | |
| tree | 12c6bf83f01ffc4eff010102090bb687a1233558 /gr-run-waveform/guile/cat.scm | |
| parent | f52be4a8f0fa203ed206d0e0afc099856eb5bd03 (diff) | |
| download | gnuradio-00420d32081d8252bb37142b2be19a8a7c4dc4c4.tar.gz gnuradio-00420d32081d8252bb37142b2be19a8a7c4dc4c4.tar.bz2 gnuradio-00420d32081d8252bb37142b2be19a8a7c4dc4c4.zip | |
Removed autotools, gr-waveform, some cleanup
Nick Foster owes Nick Corgan a six-pack of beer!
Diffstat (limited to 'gr-run-waveform/guile/cat.scm')
| -rw-r--r-- | gr-run-waveform/guile/cat.scm | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/gr-run-waveform/guile/cat.scm b/gr-run-waveform/guile/cat.scm deleted file mode 100644 index 6a5a38acf..000000000 --- a/gr-run-waveform/guile/cat.scm +++ /dev/null @@ -1,15 +0,0 @@ -;;; This is non-idiomatic, but will exercise the port... -(define (cat input-port) - (let loop ((ch (read-char input-port))) - (if (not (eof-object? ch)) - (begin - (write-char ch (current-output-port)) - (loop (read-char input-port)))))) - -(define foo (make-gnuradio-port "ice-9/boot-9.scm")) -;;(define foo (cat (make-gnuradio-port "ice-9/boot-9.scm"))) - -;; # Then start guile and use it -;; guile> (load "/tmp/cat.scm") -;; guile> (cat (open-file "/etc/passwd" "r")) - |