ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-14 04:19:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Before reactivating gall queue backpressure.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-03-21 14:00:38 -07:00
parent d176884d53
commit 55786d6271
4 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
arvo/dill.hoon
View File

@ -282,6 +282,12 @@
[hen %pass ~ %g %mess [our [ram ~]] our [%dill-belt -:!>(bet) bet]]
==
::
++ took :: send rush ack
%_ .
moz
:_(moz [hen %pass ~ %g %took [our [ram ~]] our])
==
::
++ take :: receive
|= sih=sign
^+ +>
@ -314,8 +320,7 @@
+>
::
[%g %rush %dill-blit *]
=. moz :_(moz `move`[hen %pass ~ %g %took [our [ram ~]] our])
(from +>+.sih)
took:(from +>+.sih)
::
[%t %wake *]
:: ~& %dill-wake
@ -369,7 +374,7 @@
=: ore.all `p.q.hic
dug.all ~
==
=^ moz all abet:(need (ax (need hey.all) [%flow %seat %dojo ~]))
=^ moz all abet:(need (ax (need hey.all) [%flow %seat %dojo %talk ~]))
[moz ..^$]
=+ nus=(ax hen q.hic)
?~ nus

9
arvo/gall.hoon
View File

@ -1160,11 +1160,10 @@
:: ~& [%yawn-told-has ost qol [our hen]]
=+ qul=?~(qol 1 +(u.qol))
=. qel.sat (~(put by qel.sat) ost qul)
:: XX turn me back on!
:: ?: =(10 qul)
:: ~& [%yawn-told-full ost our hen]
:: +>.$(qic.sat ~, vey.sat (~(put to vey.sat) hen %nuke p.kon))
+>.$(qic.sat ~)
?: =(10 qul)
~& [%yawn-told-full ost our hen]
+>.$(qic.sat ~, vey.sat (~(put to vey.sat) hen %nuke p.kon))
:: +>.$(qic.sat ~)
::
%load
=+ [hom=(slot 2 q.p.kon) old=(slot 3 q.p.kon)]

5
main/app/seat/core.hook
View File

@ -212,7 +212,7 @@
+>.$
::
%rush
ta-abet:(ta-fec:(se-tame nam) +>.sil)
ta-abet:ta-rap:(ta-fec:(se-tame nam) +>.sil)
==
::
++ ta :: per target
@ -368,6 +368,9 @@
%txt $(fec [%tan [%leaf p.fec]~])
==
::
++ ta-rap :: send %took
.(+> (se-send nam %took [her ~[nam]] her))
::
++ ta-dog :: change cursor
|= ted=console-edit
%_ +>

16
main/app/talk/core.hook
View File

@ -11,11 +11,11 @@
=> |% :: structures
++ town :: all client state
$: %0 :: version
seat=console-share :: command lines
say=console-share :: command lines
live=(unit span) :: present story
stories=(map span story) :: all stories
== ::
++ grip :: subscription state
++ grip :: synchronized state
|* nub=$+(* *) :: wrapped state
$| $? %warm :: activated
%cool :: activating
@ -131,7 +131,7 @@
|=(tep=tape (hy-display [%leaf tep]~))
::
++ hy-accept :: set prompt
|=(asq=cord (hy-general %pro & %gar (tuba (trip asq))))
|=(asq=cord (hy-general %pro & %gar (trip asq)))
--
::
++ parse :: command parser
@ -598,7 +598,7 @@
=+ nuv=(novel ost ~)
?~ nuv
:_ +>.$
[ost %give %rush %console-effect %pro & %$ (tuba "no story ")]~
[ost %give %rush %console-effect %pro & %$ "no story "]~
sy-abet:sy-awake:u.nuv
::
++ submit
@ -675,11 +675,11 @@
++ poke-console-action
|= [ost=bone her=ship act=console-action]
=+ moz=`(list move)`[ost %give %nice ~]~
?+ -.act [moz +>.$]
%det [moz +>.$(seat abet:(~(receive cs seat) `console-change`+.act))]
%ret =+ sed=buf.seat
?- -.act
%det [moz +>.$(say +:(~(receive cs say) `console-change`+.act))]
%ret =+ sed=buf.say
=^ zom +>.$ (submit ost (crip (tufa sed)))
=^ cal seat =<([- abet:+] (~(transmit cs seat) [%set ~]))
=^ cal say (~(transmit cs say) [%set ~])
:_ +>.$
:* [ost %give %rush %console-effect %nex ~]
[ost %give %rush %console-effect %det cal]