- added .gitignore
- moved sine-play into examples
- changed require paths to collection-relative
- a few comments
This commit is contained in:
John Clements 2014-02-18 11:39:04 -08:00
parent 443f0f34fa
commit 16fc19ee8e
6 changed files with 16 additions and 10 deletions

2
.gitignore vendored Normal file
View file

@ -0,0 +1,2 @@
compiled/
*~

View file

@ -28,6 +28,9 @@ Licensed under GPL (2 or 3? FIXME)
(define mod remainder) (define mod remainder)
|# |#
;; JBC, 2014-- looks like most of these library functions have
;; equivalents in Racket....
;; prelude.scm ;;;;;;;;;;;;;;;;;;;;;; ;; prelude.scm ;;;;;;;;;;;;;;;;;;;;;;

View file

@ -1,12 +1,11 @@
#lang racket #lang racket
(require (require
rnrs rnrs
"../rhs/rhs.rkt" rhs/rhs
"../sosc/bytevector.rkt" sosc/bytevector
"../sosc/transport.rkt" sosc/transport
"../sosc/sosc.rkt" sosc/sosc
(prefix-in srfi: srfi/27) (prefix-in srfi: srfi/27)
(prefix-in srfi: srfi/19)) (prefix-in srfi: srfi/19))

View file

@ -1,15 +1,18 @@
#lang racket #lang racket
(require rnrs (require rnrs
"../rhs/rhs.rkt" rhs/rhs
rnrs/bytevectors-6 rnrs/bytevectors-6
rnrs/io/ports-6) rnrs/io/ports-6)
(provide (all-defined-out) (provide (all-defined-out)
put-bytevector put-bytevector
get-bytevector-n get-bytevector-n
bytevector-length) bytevector-length)
;; JBC-2014 -- looks like all of these have
;; equivalents in Racket...
;; bytevector -> (port -> any) -> any ;; bytevector -> (port -> any) -> any
(define with-input-from-bytevector (define with-input-from-bytevector
(lambda (b f) (lambda (b f)

View file

@ -4,13 +4,12 @@
(require (require
rnrs rnrs
"../rhs/rhs.rkt" rhs/rhs
"bytevector.rkt" "bytevector.rkt"
rnrs/bytevectors-6 ;; TODO - should be provided by bytevector.rkt rnrs/bytevectors-6 ;; TODO - should be provided by bytevector.rkt
rnrs/io/ports-6 rnrs/io/ports-6
) )
(provide message (provide message
bundle bundle
encode-osc encode-osc