ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-16 10:49:26 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fill in stubs and make jael actually act on calls.

Browse Source
This commit is contained in:
Fang 2018-05-10 01:42:37 +02:00
parent a21a8b1224
commit b97b5b4180
2 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
sys/vane/jael.hoon
View File

@ -605,11 +605,12 @@
?~(les ~ `[nut les])
:: :: ++table:dif:ry
++ table :: diff map
|* {nut/@tas new/(map) old/(map)} !!
:: ^- (pair (unit rite) (unit rite))
:: =/ ped (~(dep by old) new)
:: :- ?~(p.ped ~ `[nut p.ped])
:: ?~(q.ped ~ `[nut q.ped])
|* {nut/@tas new/(map) old/(map)}
::TODO (~(dep by old) new)
=/ mor (~(dif by new) old)
=/ les (~(dif by old) new)
:- ?~(mor ~ `[nut mor])
?~(les ~ `[nut les])
-- ::dif
:: :: ++sub:ry
++ sub :: l - r
@ -663,11 +664,11 @@
(~(uni in old) new)
:: :: ++table:uni:ry
++ table :: union map
|* {new/(map) old/(map)} !!
:: ^+ new
:: %- (~(uno by old) new)
:: |= (trel _p.-<.new _q.->.new _q.->.new)
:: ?>(=(q r) r)
|* {new/(map) old/(map)}
^+ new
%- (~(uno by old) new)
|= (trel _p.-<.new _q.->.new _q.->.new)
?>(=(q r) r)
-- ::uni
-- ::ry
:: :: ++up
@ -782,7 +783,7 @@
[%apple (~(run by p.rys) |=(@ (mug +<)))]
::
$final
[%final (mug p.rys)]
[%final (~(run by p.rys) |=(@ (mug +<)))]
::
$login
[%login ~]
@ -1929,7 +1930,7 @@
==
=> .(q.hic ?.(?=($soft -.q.hic) q.hic ((hard task) p.q.hic)))
^- {p/(list move) q/_..^$}
=^ did lex abet:~(call of [now eny] lex)
=^ did lex abet:(~(call of [now eny] lex) hen q.hic)
[did ..^$]
:: :: ++doze
++ doze :: await

2
sys/zuse.hoon
View File

@ -1126,7 +1126,7 @@
$% {$apple p/(map site @)} :: web api key
{$block $~} :: banned
{$email p/(set @t)} :: email addresses
{$final p/@pG} :: recognize by ticket
{$final p/(map ship @pG)} :: ticketed ships
{$fungi p/(map term @ud)} :: fungibles
{$guest $~} :: refugee visa
{$hotel p/(map dorm pile)} :: reserved block