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

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

db4
Slava Pestov 2009-08-05 22:56:19 -05:00
parent 926797d485
commit 311774cb68
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>
SYNTAX: service current-vocab name>> serving-vocabs get-global adjoin ;
[ [ binary <threaded-server>
: start-rpc-server ( -- )
binary <threaded-server>
"rpcs" >>name 9012 >>insecure
[ deserialize {
{ "getter" [ getter ] }
{ "doer" [ doer ] }
{ "loader" [ deserialize vocab serialize flush ] }
} case ] >>handler
start-server ] in-thread
] "modules.rpc-server" add-init-hook
start-server ;