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

gall: simplify sofa

Browse Source
This commit is contained in:
Jared Tobin 2019-04-26 17:16:46 +12:00 committed by Jared Tobin
parent 59455b38ac
commit ca20beb37f
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pkg/arvo/sys/vane/gall.hoon
View File

@ -96,9 +96,7 @@
pyl=(map bone mark) :: req'd translations
zam=scar :: opaque ducts
== ::
++ sofa :: queue for blocked
$: kys=(qeu (trel duct prey club)) :: queued kisses
== ::
++ sofa (qeu (trel duct prey club)) :: blocked kisses
++ stic :: statistics
$: act=@ud :: change number
eny=@uvJ :: entropy
@ -683,12 +681,12 @@
|-
^+ mo-state
::
?: =(~ kys.u.suf)
?: =(~ u.suf)
%_ mo-state
wub.mas (~(del by wub.mas) dude)
==
::
=^ lep kys.u.suf [p q]:~(get to kys.u.suf)
=^ lep u.suf [p q]:~(get to u.suf)
::
=/ move [p.lep %slip %g %deal [q.q.q.lep our] dude r.lep]
$(moves [move moves])
@ -756,12 +754,17 @@
=/ =dude p.cush
=/ =club q.cush
::
?: |(!(~(has by bum.mas) dude) (~(has by wub.mas) dude))
~& >> [%mo-not-running dude -.club]
=/ is-running (~(has by bum.mas) dude)
=/ is-waiting (~(has by wub.mas) dude)
::
?: |(!is-running is-waiting)
~& >> [%mo-not-running dude -.club] :: FIXME remove?
::
=/ =sofa
=/ kisses (fall (~(get by wub.mas) dude) default-sofa)
=/ waiting (~(get by wub.mas) dude)
=/ kisses (fall waiting default-sofa)
=/ kiss [hen prey club]
kisses(kys (~(put to kys.kisses) kiss))
(~(put to kisses) kiss)
::
%_ mo-state
wub.mas (~(put by wub.mas) dude sofa)