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

Better queue management.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-01-19 14:02:00 -08:00
parent 5658b03245
commit 17c020d0de
3 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
arvo/gall.hoon
View File

@ -537,6 +537,8 @@
^- [(list move) _..^^$] ^- [(list move) _..^^$]
=+ mut=(~(get by pol.all) our) =+ mut=(~(get by pol.all) our)
?^ mut ?^ mut
?: &(?=([@ @ *] imp) !(~(has by bum.u.mut) imp)) :: %took for dead imps
[~ ..^^$]
abet:work:(quem:(boar:(gent our imp u.mut) hen law) kon) abet:work:(quem:(boar:(gent our imp u.mut) hen law) kon)
((gape hen law) our imp kon) ((gape hen law) our imp kon)
:: ::
@ -1163,9 +1165,9 @@
=+ 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 qul)) +>.$(qic.sat ~, qel.sat (~(put by qel.sat) ost qul))
:: ::
%load %load

8
main/app/begin/core.hook
View File

@ -396,8 +396,8 @@
== ==
%+ welp %+ welp
?~(pot.res ~ (spam %rush %prompt u.pot.res)) ?~(pot.res ~ (spam %rush %prompt u.pot.res))
%- zing %^ spam %rush %tang
(turn (flop tak.res) |=(a=cord (spam %rush %txt a))) (turn (flop tak.res) |=(a=cord [%leaf (trip a)]))
:: ::
++ pour ++ pour
|= [ost=bone pax=path sih=*] |= [ost=bone pax=path sih=*]
@ -414,8 +414,8 @@
:_ +>.$ :_ +>.$
%+ welp %+ welp
?~(pot.res ~ (spam %rush %prompt u.pot.res)) ?~(pot.res ~ (spam %rush %prompt u.pot.res))
%- zing %^ spam %rush %tang
(turn (flop tak.res) |=(a=cord (spam %rush %txt a))) (turn (flop tak.res) |=(a=cord [%leaf (trip a)]))
:_ +>.$ :_ +>.$
:- [ost %give +.sih] :- [ost %give +.sih]
?+ +<.sih ~ ?+ +<.sih ~

7
main/app/shell/core.hook
View File

@ -51,6 +51,7 @@
[%mess p=hapt q=ship r=cage] :: [%mess p=hapt q=ship r=cage] ::
[%meta p=vase] :: [%meta p=vase] ::
[%nuke p=hapt q=ship] :: [%nuke p=hapt q=ship] ::
[%took p=hapt q=ship] ::
== == == :: == == == ::
++ mand ,[p=term q=(list twig)] :: name and arguments ++ mand ,[p=term q=(list twig)] :: name and arguments
++ coma :: ++ coma ::
@ -530,6 +531,8 @@
[[ost %give +.sih]~ +>.$] [[ost %give +.sih]~ +>.$]
?~ pax ~& %no-path !! ?~ pax ~& %no-path !!
?> ?=([%child span ?(%fork %out %main) ~] pax) ?> ?=([%child span ?(%fork %out %main) ~] pax)
=+ abet:(purr:(ve hid ost vat) i.t.pax i.t.t.pax typ sih) =^ moz vat abet:(purr:(ve hid ost vat) i.t.pax i.t.t.pax typ sih)
[-< +>.$(vat ->)] :_ +>.$
?. ?=(%rush +<.sih) moz
[[ost %pass pax %g %took [our.hid i.t.pax imp.hid] our.hid] moz]
-- --