ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-30 19:11:59 +03:00
Code Issues Packages Projects Releases Wiki Activity

claz: convert to iris

Browse Source
This commit is contained in:
Philip Monk 2019-09-18 17:12:13 -07:00
parent 940ec12910
commit 2e56034cfc
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
pkg/arvo/app/claz.hoon
View File

@ -2,6 +2,8 @@
:: ::
/- sole-sur=sole /- sole-sur=sole
/+ sole-lib=sole /+ sole-lib=sole
/= response-mark /: /===/mar/json/rpc/response
/!noun/
:: ::
=, azimuth =, azimuth
=, ethereum =, ethereum
@ -214,7 +216,7 @@
:: ::
++ move (pair bone card) ++ move (pair bone card)
++ card ++ card
$% [%hiss wire ~ mark %hiss hiss:eyre] $% [%request wire =request:http =outbound-config:iris]
[%info wire desk nori:clay] [%info wire desk nori:clay]
[%rest wire @da] [%rest wire @da]
[%wait wire @da] [%wait wire @da]
@ -260,6 +262,24 @@
^- (quip move _this) ^- (quip move _this)
(take-command-sigh wire `response) (take-command-sigh wire `response)
:: ::
++ http-response-command
|= [=wire =client-response:iris]
^- (quip move _this)
?. ?=(%finished -.client-response)
~& 'downloading...'
`this
?~ full-file.client-response
~& 'no data'
`this
=/ jon=(unit json)
(de-json:html q.data.u.full-file.client-response)
?~ jon
~& 'failed to parse response as json'
`this
=/ =response:rpc:jstd
(json:grab:response-mark u.jon)
(take-command-sigh wire `response)
::
++ take-command-sigh ++ take-command-sigh
|= [=wire response=glad-input] |= [=wire response=glad-input]
^- (quip move _this) ^- (quip move _this)
@ -349,7 +369,7 @@
^- output:null-glad ^- output:null-glad
=- [[[ost.bowl -] ~] %done ~] =- [[[ost.bowl -] ~] %done ~]
::TODO wire in sample? ::TODO wire in sample?
[%hiss /command ~ %json-rpc-response %hiss hiss] [%request /command (hiss-to-request:html hiss) *outbound-config:iris]
:: ::
++ expect-response ++ expect-response
=/ m (glad response:rpc:jstd) =/ m (glad response:rpc:jstd)