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

adding an infinite loop to try to restart the server internally.

Browse Source
This commit is contained in:
Danny Yoo 2013-04-05 14:16:36 -06:00
parent 54bc7c45ce
commit 90851d27c6
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
whalesong/repl-prototype/sandboxed-server.rkt
View File

@ -22,15 +22,19 @@
#t)
(define eval
(parameterize ([sandbox-memory-limit 256]
[sandbox-output (current-output-port)]
[sandbox-network-guard my-network-guard])
(printf "memory limit: ~s mb\n" (sandbox-memory-limit))
(make-module-evaluator server-path
#:allow-read (list (build-path "/")))))
(printf "starting server thread\n")
(define server-thread (eval `(start-server #:port ,(current-port))))
(printf "thread started\n")
(sync server-thread)
(let loop ()
(define eval
(parameterize ([sandbox-memory-limit 256]
[sandbox-output (current-output-port)]
[sandbox-network-guard my-network-guard])
(printf "memory limit: ~s mb\n" (sandbox-memory-limit))
(make-module-evaluator server-path
#:allow-read (list (build-path "/")))))
(printf "starting server thread\n")
(define server-thread (eval `(start-server #:port ,(current-port))))
(printf "thread started\n")
(with-handlers ([exn:fail? (lambda (exn)
(printf "server died prematurely? ~s\n" (exn-message exn)))])
(sync server-thread))
(printf "restarting server\n")
(loop))