mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-24 07:26:51 +03:00
38e4e06e0b
Because this updates +validate-request, we must update azimuth-rpc to match. Naming of $batch-requests is admittedly a bit questionable...
101 lines
2.4 KiB
Plaintext
101 lines
2.4 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+'2.0'
|
|
id+s+id
|
|
method+s+method
|
|
::
|
|
:- %params
|
|
^- json
|
|
?- -.params
|
|
%list [%a +.params]
|
|
:: FIXME: support either %map or %object (also in /sur/json/rpc)
|
|
::
|
|
%map [%o +.params]
|
|
%object [%o (~(gas by *(map @t json)) +.params)]
|
|
== ==
|
|
::
|
|
++ response-to-json
|
|
|= =response
|
|
^- json
|
|
:: TODO: consider all cases
|
|
::
|
|
?+ -.response ~|([%unsupported-rpc-response response] !!)
|
|
%batch a+(turn bas.response response-to-json)
|
|
::
|
|
%result
|
|
:- %o
|
|
%- molt
|
|
^- (list [@t json])
|
|
:: FIXME: return 'id' as string, number or NULL
|
|
::
|
|
:~ ['jsonrpc' s+'2.0']
|
|
['id' s+id.response]
|
|
['result' res.response]
|
|
==
|
|
::
|
|
%error
|
|
:- %o
|
|
%- molt
|
|
^- (list [@t json])
|
|
:~ ['jsonrpc' s+'2.0']
|
|
['id' ?~(id.response ~ s+id.response)]
|
|
['code' n+code.response]
|
|
['message' s+message.response]
|
|
==
|
|
==
|
|
::
|
|
++ validate-request
|
|
|= [body=(unit octs) parse-method=$-(@t term)]
|
|
^- (unit batch-request)
|
|
?~ body ~
|
|
?~ jon=(de-json:html q.u.body) ~
|
|
=, dejs-soft:format
|
|
=; reparser
|
|
?: ?=([%a *] u.jon)
|
|
(bind ((ar reparser) u.jon) (lead %a))
|
|
(bind (reparser u.jon) (lead %o))
|
|
%- ot
|
|
:~ :: FIXME: parse 'id' as string, number or NULL
|
|
::
|
|
['id' so]
|
|
['jsonrpc' (su (jest '2.0'))]
|
|
['method' (cu parse-method so)]
|
|
::
|
|
:- 'params'
|
|
|= =json
|
|
^- (unit request-params)
|
|
?+ -.json ~
|
|
%a `[%list ((ar:dejs:format same) json)]
|
|
%o `[%map ((om:dejs:format same) json)]
|
|
== ==
|
|
::
|
|
++ error
|
|
|_ id=@t
|
|
:: https://www.jsonrpc.org/specification#error_object
|
|
::
|
|
++ parse [%error id '-32700' 'Failed to parsed']
|
|
++ request [%error id '-32600' 'Invalid Request']
|
|
++ method [%error id '-32601' 'Method not found']
|
|
++ params [%error id '-32602' 'Invalid params']
|
|
++ internal [%error id '-32603' 'Internal error']
|
|
++ not-found [%error id '-32000' 'Resource not found']
|
|
--
|
|
--
|