view src/scheme/sockets.scm @ 0:bf79fb79ee13

Initial Mercurial check in.
author samer
date Tue, 17 Jan 2012 17:50:20 +0000
parents
children 5df24c91468d
line wrap: on
line source
(define (make-server) (java.net.ServerSocket. 2000))
(define (accept s) (display "waiting for connection...\n") (.accept s))
(define (connect host) (display "connecting...\n") (java.net.Socket. host 2000))
(define (istream s) (.getInputStream s))
(define (ostream s) (.getOutputStream s))
(load "streams.scm")

(define-method (send (socket java.net.Socket) (x Vec))
	(VecToStream. x (buffer (ostream socket))))
(define-method (recv (socket java.net.Socket) (x Vec))
	(StreamToVec. x (buffer (istream socket))))
	
(define-method (send (socket java.net.Socket) (x DoubleModel))
	(SignalToStream. x (buffer (ostream socket))))
(define-method (recv (socket java.net.Socket) (x DoubleModel))
	(StreamToDouble. x (buffer (istream socket))))