Mercurial > hg > jslab
annotate src/scheme/scheme-server.scm @ 0:bf79fb79ee13
Initial Mercurial check in.
| author | samer |
|---|---|
| date | Tue, 17 Jan 2012 17:50:20 +0000 |
| parents | |
| children |
| rev | line source |
|---|---|
| samer@0 | 1 (display "Creating remote session server.\n") |
| samer@0 | 2 (define server (java.net.ServerSocket. 2000)) |
| samer@0 | 3 |
| samer@0 | 4 (define (remote-repl s) |
| samer@0 | 5 (display "Waiting for connection...\n") |
| samer@0 | 6 (let ((call (.accept s))) |
| samer@0 | 7 (display (string-append "Received connection from " (.toString call) "\n")) |
| samer@0 | 8 (.start (Thread. (lambda () (service call)))))) |
| samer@0 | 9 |
| samer@0 | 10 |
| samer@0 | 11 (define (service call) |
| samer@0 | 12 (display "Asynchronous REPL initiated.\n") |
| samer@0 | 13 (samer.silk.Terminal.REPL call)) |
| samer@0 | 14 |
| samer@0 | 15 (define (serve-for-ever) (remote-repl server) (serve-for-ever)) |
| samer@0 | 16 (.start (Thread. serve-for-ever)) |