urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-02 08:55:07 +03:00
Code Issues Packages Projects Releases Wiki Activity

better made-* naming in ++vi

Browse Source
This commit is contained in:
Anton Dyudin 2016-08-09 14:23:30 -07:00 committed by Raymond Pasco
parent 7cb741b0fc
commit 09c037079d
1 changed files with 35 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
arvo/eyre.hoon
View File

@ -1786,16 +1786,16 @@
::
++ get-made
|= {wir/whir-se dep/@uvH res/(each cage tang)} ^+ abet
?: ?=($core wir) (update dep res)
?: ?=($core wir) (made-core dep res)
%. res
?- wir
?($filter-request $out) res-out
?($filter-response $res) res-res
?($receive-auth-response $bak) res-bak
?($receive-auth-query-string $in) res-in
?($filter-request $out) made-filter-request
?($filter-response $res) made-filter-response
?($receive-auth-response $bak) made-receive-auth-response
?($receive-auth-query-string $in) made-receive-auth-query-string
==
::
++ update
++ made-core
|= {dep/@uvH gag/(each cage tang)}
:: ~& got-update/dep
=. ..vi (pass-note %core [%f [%wasp our dep &]])
@ -1805,6 +1805,35 @@
pump ::(cor `~) :: userless %hiss defaults to "nop" driver
(warn p.gag)
::
++ made-filter-request
%+ on-ford-fail dead-hiss
%+ on-error warn |.
%- handle-moves :~
give+do-give
send+(do-send %filter-request)
show+do-show
==
::
++ made-filter-response
%+ on-error dead-hiss |.
%- handle-moves :~
give+do-give
send+(do-send %filter-request)
redo+_pump
==
::
++ made-receive-auth-query-string
%+ on-error dead-this |.
(handle-moves send+(do-send %receive-auth-query-string) ~)
::
++ made-receive-auth-response
%+ on-error dead-this |.
%- handle-moves :~
give+do-give
send+(do-send %receive-auth-query-string)
redo+_pump(..vi (give-html 200 ~ exit:xml))
==
::
:: Result handling
::
:: XX formal dill-blit %url via hood
@ -1861,36 +1890,6 @@
=+ typ=cor-type
~| %core-mismatch
?>((~(nest ut typ) & p.roc) ~)
::
::
++ res-in
%+ on-error dead-this |.
(handle-moves send+(do-send %receive-auth-query-string) ~)
::
++ res-res
%+ on-error dead-hiss |.
%- handle-moves :~
give+do-give
send+(do-send %filter-request)
redo+_pump
==
::
++ res-bak
%+ on-error dead-this |.
%- handle-moves :~
give+do-give
send+(do-send %receive-auth-query-string)
redo+_pump(..vi (give-html 200 ~ exit:xml))
==
::
++ res-out
%+ on-ford-fail dead-hiss
%+ on-error warn |.
%- handle-moves :~
give+do-give
send+(do-send %filter-request)
show+do-show
==
-- --
--
. ==