diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..38a4087 --- /dev/null +++ b/.gitignore @@ -0,0 +1,2 @@ +compiled/ +*~ diff --git a/rhs/rhs.rkt b/rhs/rhs.rkt index a2ef23f..66a0739 100644 --- a/rhs/rhs.rkt +++ b/rhs/rhs.rkt @@ -28,6 +28,9 @@ Licensed under GPL (2 or 3? FIXME) (define mod remainder) |# +;; JBC, 2014-- looks like most of these library functions have +;; equivalents in Racket.... + ;; prelude.scm ;;;;;;;;;;;;;;;;;;;;;; diff --git a/rsc3-sine-play.rkt b/rsc3/examples/rsc3-sine-play.rkt similarity index 100% rename from rsc3-sine-play.rkt rename to rsc3/examples/rsc3-sine-play.rkt diff --git a/rsc3/main.rkt b/rsc3/main.rkt index 99262f5..00a4bae 100644 --- a/rsc3/main.rkt +++ b/rsc3/main.rkt @@ -1,12 +1,11 @@ #lang racket - (require rnrs - "../rhs/rhs.rkt" - "../sosc/bytevector.rkt" - "../sosc/transport.rkt" - "../sosc/sosc.rkt" + rhs/rhs + sosc/bytevector + sosc/transport + sosc/sosc (prefix-in srfi: srfi/27) (prefix-in srfi: srfi/19)) diff --git a/sosc/bytevector.rkt b/sosc/bytevector.rkt index 843c942..6537311 100644 --- a/sosc/bytevector.rkt +++ b/sosc/bytevector.rkt @@ -1,15 +1,18 @@ #lang racket (require rnrs - "../rhs/rhs.rkt" - rnrs/bytevectors-6 - rnrs/io/ports-6) + rhs/rhs + rnrs/bytevectors-6 + rnrs/io/ports-6) (provide (all-defined-out) put-bytevector get-bytevector-n bytevector-length) +;; JBC-2014 -- looks like all of these have +;; equivalents in Racket... + ;; bytevector -> (port -> any) -> any (define with-input-from-bytevector (lambda (b f) diff --git a/sosc/sosc.rkt b/sosc/sosc.rkt index 7579d67..5efd182 100644 --- a/sosc/sosc.rkt +++ b/sosc/sosc.rkt @@ -4,13 +4,12 @@ (require rnrs - "../rhs/rhs.rkt" + rhs/rhs "bytevector.rkt" rnrs/bytevectors-6 ;; TODO - should be provided by bytevector.rkt rnrs/io/ports-6 ) - (provide message bundle encode-osc