Mercurial > hg > jslab

comparison src/scheme/sockets.scm @ 1:5df24c91468d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Oh my what a mess.
author samer
date Fri, 05 Apr 2019 16:26:00 +0100
parents bf79fb79ee13
children
comparison
equal deleted inserted replaced
0:bf79fb79ee13 1:5df24c91468d
1 (load "streams.scm")
2
1 (define (make-server) (java.net.ServerSocket. 2000)) 3 (define (make-server) (java.net.ServerSocket. 2000))
2 (define (accept s) (display "waiting for connection...\n") (.accept s)) 4 (define (accept s) (display "waiting for connection...\n") (.accept s))
3 (define (connect host) (display "connecting...\n") (java.net.Socket. host 2000)) 5 (define (connect host) (display "connecting...\n") (java.net.Socket. host 2000))
4 (define (istream s) (.getInputStream s)) 6 (define (istream s) (.getInputStream s))
5 (define (ostream s) (.getOutputStream s)) 7 (define (ostream s) (.getOutputStream s))
6 (load "streams.scm")
7 8
8 (define-method (send (socket java.net.Socket) (x Vec)) 9 (define-method (send (socket java.net.Socket) (x Vec))
9 (VecToStream. x (buffer (ostream socket)))) 10 (VecToStream. x (buffer (ostream socket))))
10 (define-method (recv (socket java.net.Socket) (x Vec)) 11 (define-method (recv (socket java.net.Socket) (x Vec))
11 (StreamToVec. x (buffer (istream socket)))) 12 (StreamToVec. x (buffer (istream socket))))