factor/extra/modules/rpc-server/rpc-server.factor

! Copyright (C) 2009 Sam Anklesaria.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs combinators continuations effects
io.encodings.binary io.servers.connection kernel namespaces
sequences serialize sets threads vocabs vocabs.parser init io ;
IN: modules.rpc-server

<PRIVATE
TUPLE: rpc-request args vocabspec wordname ;
SYMBOL: serving-vocabs serving-vocabs [ V{ } clone ] initialize

: getter ( -- ) deserialize dup serving-vocabs get-global index
        [ vocab-words [ stack-effect ] { } assoc-map-as ]
        [ \ no-vocab boa ] if serialize flush ;

: doer ( -- ) deserialize dup vocabspec>> serving-vocabs get-global index
        [ [ args>> ] [ wordname>> ] [ vocabspec>> vocab-words ] tri at [ execute ] curry with-datastack ]
        [ vocabspec>> \ no-vocab boa ] if serialize flush ;

PRIVATE>
SYNTAX: service current-vocab name>> serving-vocabs get-global adjoin ;

: start-rpc-server ( -- )
    binary <threaded-server>
    "rpcs" >>name 9012 >>insecure
    [ deserialize {
      { "getter" [ getter ] }
      {  "doer" [ doer ] }
      { "loader" [ deserialize vocab serialize flush ] } 
    } case ] >>handler
    start-server ;