cleanup:
- added .gitignore - moved sine-play into examples - changed require paths to collection-relative - a few comments
This commit is contained in:
parent
443f0f34fa
commit
16fc19ee8e
6 changed files with 16 additions and 10 deletions
2
.gitignore
vendored
Normal file
2
.gitignore
vendored
Normal file
|
@ -0,0 +1,2 @@
|
||||||
|
compiled/
|
||||||
|
*~
|
|
@ -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 ;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
|
@ -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))
|
||||||
|
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue