urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-06 04:07:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

Now with subscription queue tracking.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-01-19 06:25:52 -08:00
parent bdfc0b692e
commit cf35697ac4
3 changed files with 25 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
arvo/gall.hoon
View File

@ -1057,10 +1057,15 @@
[%meta (spec (slot 15 caq))] [%meta (spec (slot 15 caq))]
:: ::
[%give p=[p=@tas q=*]] [%give p=[p=@tas q=*]]
~? =(%meta p.p.q.caq) %sump-meta
?: ?=(%mean p.p.q.caq) ?: ?=(%mean p.p.q.caq)
:- `[hon %nuke our] :- `[hon %nuke our]
`[hon %give %mean (ares q.p.q.caq)] `[hon %give %mean (ares q.p.q.caq)]
:- ?. ?=(?(%rush %rust) p.p.q.caq) ~ :- ?. ?| ?=(?(%rush %rust) p.p.q.caq)
?& ?=(%meta p.p.q.caq)
?=([* ?(%rush %rust) *] q.p.q.caq)
== ==
~
`[hon %told our] `[hon %told our]
:+ ~ hon :+ ~ hon
:- %give :- %give
@ -1141,18 +1146,27 @@
+>.$(qic.sat ~) +>.$(qic.sat ~)
:: ::
%took %took
=+ qul=(~(got by qel.sat) ost) =+ qol=(~(get by qel.sat) ost)
~& [%yawn-took-has qul [our hen]] :: ~& [%yawn-took-has qol [our hen]]
+>.$(qic.sat ~, qel.sat (~(put by qel.sat) ost (dec qul))) %= +>.$
qic.sat ~
qel.sat
?~ qol
~& [%took-underflow our hen]
qel.sat
?: =(`1 qol)
(~(del by qel.sat) ost)
(~(put by qel.sat) ost (dec u.qol))
==
:: ::
%told %told
=+ qol=(~(get by qel.sat) ost) =+ qol=(~(get by qel.sat) ost)
~& [%yawn-told-has qol [our hen]] :: ~& [%yawn-told-has qol [our hen]]
=+ qul=?~(qol 1 +(u.qol)) =+ qul=?~(qol 1 +(u.qol))
:: ?: =(10 qul) ?: =(10 qul)
:: ~& [%yawn-told-full our hen] ~& [%yawn-told-full our hen]
:: +>.$(qic.sat `[hen %nuke p.kon]) +>.$(qic.sat `[hen %nuke p.kon])
+>.$(qic.sat ~, qel.sat (~(put by qel.sat) ost ?~(qol 1 +(u.qol)))) +>.$(qic.sat ~, qel.sat (~(put by qel.sat) ost qul))
:: ::
%load %load
=+ [hom=(slot 2 q.p.kon) old=(slot 3 q.p.kon)] =+ [hom=(slot 2 q.p.kon) old=(slot 3 q.p.kon)]

2
arvo/hoon.hoon
View File

@ -10136,7 +10136,7 @@
++ jack :: dispatch card ++ jack :: dispatch card
|= [lac=? gum=muse] |= [lac=? gum=muse]
^- [[p=(list ovum) q=(list muse)] _niz] ^- [[p=(list ovum) q=(list muse)] _niz]
=. lac |(lac ?=(?(%g %f) p.gum)) :: =. lac |(lac ?=(?(%g %f) p.gum))
%+ fire %+ fire
p.gum p.gum
?- -.r.gum ?- -.r.gum

1
main/app/terminal/core.hook
View File

@ -175,6 +175,7 @@
?+ +<.sih !! ?+ +<.sih !!
%nice +>.$ %nice +>.$
?(%rust %rush) ?(%rust %rush)
~& [%terminal-pour-rush pax [our.hid [auc imp.hid]]]
=. p.q.sih ?^(q.q.sih p.tel p.q.sih) :: XX prompt hack =. p.q.sih ?^(q.q.sih p.tel p.q.sih) :: XX prompt hack
%_ +>.$ %_ +>.$
mow :- [ost %pass [%resp pax] %g %took [our.hid [auc imp.hid]] you] mow :- [ost %pass [%resp pax] %g %took [our.hid [auc imp.hid]] you]