steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

modules.rpc-server: don't start server by default

Slava Pestov 2009-08-05 22:56:19 -05:00
parent 9a610a0790
commit 63a5c99582
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/modules/rpc-server/rpc-server.factor
View File

@ -20,12 +20,12 @@ SYMBOL: serving-vocabs serving-vocabs [ V{ } clone ] initialize
PRIVATE> PRIVATE>
SYNTAX: service current-vocab name>> serving-vocabs get-global adjoin ; SYNTAX: service current-vocab name>> serving-vocabs get-global adjoin ;
[ [ binary <threaded-server> : start-rpc-server ( -- )
binary <threaded-server>
"rpcs" >>name 9012 >>insecure "rpcs" >>name 9012 >>insecure
[ deserialize { [ deserialize {
{ "getter" [ getter ] } { "getter" [ getter ] }
{ "doer" [ doer ] } { "doer" [ doer ] }
{ "loader" [ deserialize vocab serialize flush ] } { "loader" [ deserialize vocab serialize flush ] }
} case ] >>handler } case ] >>handler
start-server ] in-thread start-server ;
] "modules.rpc-server" add-init-hook