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

simple network evaluator example

Browse Source 
svn: r8737
This commit is contained in:
Eli Barzilay 2008-02-20 00:26:05 +00:00
parent f851905ba1
commit 40bbadeaee
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/scribblings/reference/sandbox.scrbl
View File

@ -186,12 +186,20 @@ catch syntax errors.
Finally, the fact that a sandboxed evaluator accept syntax objects
makes it usable as the value for @scheme{current-eval}, which means
that you can easily start a sandboxed read-eval-print-loop:
that you can easily start a sandboxed read-eval-print-loop. For
example, here is a quick implementation of a networked REPL:
@schemeblock[
(define e
(make-module-evaluator '(module m scheme/base (define x 1))))
(parameterize ([current-eval e]) (read-eval-print-loop))
(make-module-evaluator '(module m scheme/base)))
(let-values ([(i o) (tcp-accept (tcp-listen 9999))])
(parameterize ([current-input-port i]
[current-output-port o]
[current-error-port o]
[current-eval a])
(read-eval-print-loop)
(fprintf o "\nBye...\n")
(close-output-port o)))
]
}