view src/scheme/scheme-server.scm @ 0:bf79fb79ee13

Initial Mercurial check in.

(display "Creating remote session server.\n")
(define server (java.net.ServerSocket. 2000))

(define (remote-repl s) 
	(display "Waiting for connection...\n")
	(let ((call (.accept s)))
		(display (string-append "Received connection from " (.toString call) "\n"))
		(.start (Thread. (lambda () (service call))))))


(define (service call)
	(display "Asynchronous REPL initiated.\n")
	(samer.silk.Terminal.REPL call))

(define (serve-for-ever) (remote-repl server) (serve-for-ever))
(.start (Thread. serve-for-ever))