annotate src/scheme/sockets.scm @ 0:bf79fb79ee13
Initial Mercurial check in.
| author |
samer |
| date |
Tue, 17 Jan 2012 17:50:20 +0000 |
| parents |
|
| children |
5df24c91468d |
| rev |
line source |
|
samer@0
|
1 (define (make-server) (java.net.ServerSocket. 2000))
|
|
samer@0
|
2 (define (accept s) (display "waiting for connection...\n") (.accept s))
|
|
samer@0
|
3 (define (connect host) (display "connecting...\n") (java.net.Socket. host 2000))
|
|
samer@0
|
4 (define (istream s) (.getInputStream s))
|
|
samer@0
|
5 (define (ostream s) (.getOutputStream s))
|
|
samer@0
|
6 (load "streams.scm")
|
|
samer@0
|
7
|
|
samer@0
|
8 (define-method (send (socket java.net.Socket) (x Vec))
|
|
samer@0
|
9 (VecToStream. x (buffer (ostream socket))))
|
|
samer@0
|
10 (define-method (recv (socket java.net.Socket) (x Vec))
|
|
samer@0
|
11 (StreamToVec. x (buffer (istream socket))))
|
|
samer@0
|
12
|
|
samer@0
|
13 (define-method (send (socket java.net.Socket) (x DoubleModel))
|
|
samer@0
|
14 (SignalToStream. x (buffer (ostream socket))))
|
|
samer@0
|
15 (define-method (recv (socket java.net.Socket) (x DoubleModel))
|
|
samer@0
|
16 (StreamToDouble. x (buffer (istream socket))))
|
|
samer@0
|
17
|
