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

put in eyre mini-jael skeleton

Browse Source
This commit is contained in:
Anton Dyudin 2016-09-14 16:52:12 -07:00
parent b9f7367512
commit 0bd65f1e6c
2 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
arvo/eyre.hoon
View File

@ -22,6 +22,7 @@
$% {$thud $~} :: proxied death
{$this p/? q/clip r/httq} :: proxied request
{$meta vase} :: type check
{$mini-jael-kiss *} :: XX types
== == ::
$: $f :: to %ford
$% {$exec p/@p q/(unit {beak silk})} ::
@ -43,6 +44,7 @@
== == ::
$: $e :: by self
$% {$thou p/httr} :: response for proxy
{$mini-jael-gift *} :: XX types
== == ::
$: $f :: by %ford
$% {$made p/@uvH q/gage} ::
@ -51,6 +53,23 @@
$: @tas :: by any
$% {$crud p/@tas q/(list tank)} ::
== == == ::
++ mini-jael-kiss
$% {$save-cookie ses/hole own/?}
{$kill-cookie ses/hole}
{$save-token ses/hole tok/oryx}
{$live-token ses/hole tok/oryx}
==
++ mini-jael-gift
$% {$cookie-ack him/@p}
{$token-ack $~}
{$token-beat $~}
{$token-dead $~}
==
++ mini-jael-scry
$% {$pass him/ship pas/@t} :: ?
{$cook ses/hole} :: (unit ship)
{$oryx ses/hole tok/oryx} :: ?
==
++ ixor @t :: oryx hash
++ mend ?($get $head) :: amend after building
++ whir $@ $~ :: wire subset
@ -95,8 +114,17 @@
wup/(map hole cyst) :: secure sessions
wix/(map ixor stem) :: open views
sec/(map {iden (list @t)} driv) :: security drivers
jel/mini-jael-state
== ::
::
++ je-per-ship
$: cok/(map hole die/@da)
tok/(map oryx {hen/duct ses/hole die/@da liv/(unit @da)})
==
++ mini-jael-state
$: primary/(map ship je-per-ship)
secondary/(map hole ship)
==
++ driv :: driver state
%+ pair (unit $@($~ vase)) :: main core
{liv/? req/(qeu (trel duct mark vase:hiss))} :: waiting requests
@ -570,6 +598,7 @@
=. our ?~(hov our u.hov) :: XX
=. p.top our :: XX necessary?
?- -.kyz
$mini-jael-kiss !!
$born +>.$(ged hen) :: register external
$serv
=< ~&([%serving (tope top)] .)
@ -707,6 +736,7 @@
?: &(?=({?($of $ow) ^} tee) !(~(has by wix) p.tee))
~&(dead-ire+[`whir`tee ({term term $~} +.sih)] +>)
?- &2.sih
$mini-jael-gift !!
$crud +>.$(mow [[hen %slip %d %flog +.sih] mow])
:: $dumb
:: =. +> ?+(tee +> [%of ^] pop-duct:(ire-ix p.tee))

2
arvo/zuse.hoon
View File

@ -3773,6 +3773,7 @@
{$wegh $~} :: report memory
{$went p/sack q/path r/@ud s/coop} :: response confirm
{$west p/sack q/fuz:gram} :: network request
{$mini-jael-kiss *}
== ::
++ gift-eyre :: out result <-$
$% {$mass p/mass} :: memory usage
@ -3782,6 +3783,7 @@
{$thus p/@ud q/(unit hiss)} :: http request+cancel
{$veer p/@ta q/path r/@t} :: drop-through
{$vega p/path} :: drop-through
{$mini-jael-gift *}
== ::
::
:::: %ford