mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 08:32:39 +03:00
81 lines
1.6 KiB
Plaintext
81 lines
1.6 KiB
Plaintext
:: json-rpc: protocol utilities
|
|
::
|
|
/- *json-rpc
|
|
|%
|
|
++ request-to-hiss
|
|
|= [url=purl:eyre req=request]
|
|
^- hiss:eyre
|
|
:- url
|
|
:+ %post
|
|
%- ~(gas in *math:eyre)
|
|
~['Content-Type'^['application/json']~]
|
|
%- some
|
|
%- as-octt:mimes:html
|
|
(en-json:html (request-to-json req))
|
|
::
|
|
++ request-to-json
|
|
|= request
|
|
^- json
|
|
%- pairs:enjs:format
|
|
:~ jsonrpc+s+'0.2'
|
|
id+s+id
|
|
method+s+method
|
|
::
|
|
:- %params
|
|
^- json
|
|
?- -.params
|
|
%list [%a +.params]
|
|
%object [%o (~(gas by *(map @t json)) +.params)]
|
|
==
|
|
==
|
|
::
|
|
++ response-to-json
|
|
|= =response
|
|
^- json
|
|
:: TODO: consider all cases
|
|
::
|
|
?+ -.response ~|([%unsupported-rpc-response response] !!)
|
|
%result
|
|
:- %o
|
|
%- molt
|
|
^- (list [@t json])
|
|
~[['id' s+id.response] ['res' res.response]]
|
|
::
|
|
%error
|
|
:- %o
|
|
%- molt
|
|
^- (list [@t json])
|
|
:~ ['id' s+id.response]
|
|
['code' s+code.response]
|
|
['message' s+message.response]
|
|
==
|
|
==
|
|
::
|
|
++ validate-request
|
|
|= [body=(unit octs) parse-method=$-(@t term)]
|
|
^- (unit request)
|
|
?~ body ~
|
|
?~ jon=(de-json:html q.u.body) ~
|
|
:: ignores non-object responses
|
|
::
|
|
:: ?. ?=([%o *] json) ~|([%format-not-valid json] !!)
|
|
?. ?=([%o *] u.jon) ~
|
|
%- some
|
|
%. u.jon
|
|
=, dejs:format
|
|
%- ot
|
|
:~ ['id' no]
|
|
['jsonrpc' so]
|
|
['method' (cu parse-method so)]
|
|
::
|
|
:- 'params'
|
|
|= =json
|
|
^- request-params
|
|
?: =(%a -.json)
|
|
[%list ((ar same) json)]
|
|
?. =(%o -.json)
|
|
!!
|
|
[%object ~(tap by ((om same) json))]
|
|
==
|
|
--
|