suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

got the sandbox to start working.

Browse Source
This commit is contained in:
Danny Yoo 2013-04-05 14:13:55 -06:00
parent 1dfa615d5f
commit 54bc7c45ce
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
whalesong/repl-prototype/server.rkt
View File

@ -16,6 +16,8 @@
"../js-assembler/assemble.rkt"
(for-syntax racket/base))
(provide start-server)
(define-runtime-path htdocs (build-path "htdocs"))
(define language
@ -75,6 +77,7 @@
[else #f]))
;; Compile the program here...
(with-handlers ([exn:fail? (lambda (exn)
(printf "Error: ~s\n" (exn-message exn))
(write-json (hash 'type "error"
'message (exn-message exn))
op))])
@ -119,10 +122,12 @@
(define (start-server #:port [port 8000])
(define (start-server #:port [port 8000]
#:listen-ip [listen-ip "127.0.0.1"])
(thread (lambda ()
(printf "starting web server on port ~s\n" port)
(serve/servlet start
#:listen-ip listen-ip
#:servlet-path "/compile"
#:extra-files-paths (list htdocs)
#:launch-browser? #f
@ -133,7 +138,7 @@
(require racket/cmdline)
(void (command-line
#:once-each
[("-p" "--port") p "Port (default 8080)"
[("-p" "--port") p "Port (default 8000)"
(current-port (string->number p))]))
(start-server #:port (current-port)))