comparison 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))