urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

more informative |mass for ford and gall

Browse Source
This commit is contained in:
Anton Dyudin 2015-09-01 13:06:15 -07:00 committed by Philip C Monk
parent a2d2d54f13
commit 31e6e4cb80
2 changed files with 36 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
arvo/ford.hoon
View File

@ -1850,7 +1850,28 @@
:^ hen %give %mass
:- %ford
:- %|
:~ lex/`lex
%- |= a=(list (list mass)) ^- (list mass) :: XX single-home
=+ a2=a
?~ a !!
?~ i.a ~
:_ $(a (turn a2 tail))
:- p.i.i.a
?~ -.q.i.i.a
[%& (turn (turn a2 head) |=(b=mass ?~(-.q.b p.q.b !!)))]
[%| $(a (turn (turn a2 head) |=(b=mass ?~(-.q.b !! p.q.b))))]
%+ turn (~(tap by pol))
|= [@ baby]
:~ =< cache/[%| (turn `(list term)`/hood/bake/lilt/slit/slim/slap/slam .)]
=- |=(a=term [a `(~(get ja dep) a)])
=< `dep=(jar term ,*)`(~(rep by jav) .)
|=([[* a=[term *]] b=(jar term ,*)] (~(add ja b) a))
::
=< depends/[%| (turn `(list term)`/init/sent/done .)]
=- |=(a=term [a `(~(get ja dep) a)])
=< `dep=(jar term ,*)`(~(rep by deh) .)
|=([[@ a=[term *]] b=(jar term ,*)] (~(add ja b) a))
::
tasks/`[dym tad]
==
=+ our=p.q.hic
=+ ^= bay ^- baby

15
arvo/gall.hoon
View File

@ -1177,7 +1177,20 @@
:^ hen %give %mass
:- %gall
:- %|
:~ all/`all
%- |= a=(list (list mass)) ^- (list mass) :: XX single-home
=+ a2=a
?~ a !!
?~ i.a ~
:_ $(a (turn a2 tail))
:- p.i.i.a
?~ -.q.i.i.a
[%& (turn (turn a2 head) |=(b=mass ?~(-.q.b p.q.b !!)))]
[%| $(a (turn (turn a2 head) |=(b=mass ?~(-.q.b !! p.q.b))))]
%+ turn (~(tap by pol.all))
|= [@ mast]
:~ foreign/`sap
blocked/[%| (sort :_(aor (~(tap by (~(run by wub) |=(sofa `+<))))))]
active/[%| (sort :_(aor (~(tap by (~(run by bum) |=(seat `+<))))))]
==
==
::