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

added read logic and more printfs

Browse Source
This commit is contained in:
Isaac Visintainer 2019-01-03 18:04:49 -08:00
parent 10a150d5c2
commit 75c2ccf6ed
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
app/collections.hoon
View File

@ -138,6 +138,7 @@
++ peer ++ peer
|= wir=wire |= wir=wire
^- (quip move _this) ^- (quip move _this)
~& peer-prize+str.sta
:_ this :_ this
[ost.bol %diff %collections-prize str.sta]~ [ost.bol %diff %collections-prize str.sta]~
:: ::
@ -384,6 +385,17 @@
%= this %= this
circles.str.sta (~(put by circles.str.sta) circ `conf) circles.str.sta (~(put by circles.str.sta) circ `conf)
== ==
::
:: %read: recieved a read reciept
::
%read
?. =([our.bol %inbox] cir.rum.rum)
[~ this]
?> ?=(^ con.inbox.str.sta)
:- ~
%= this
red.u.con.inbox.str.sta red.dif.rum.rum
==
== ==
== ==
:: ::
@ -428,6 +440,16 @@
%= this %= this
circles.str.sta (~(put by circles.str.sta) circ `conf) circles.str.sta (~(put by circles.str.sta) circ `conf)
== ==
::
:: %read: recieved a read reciept
::
%read
=/ conf (need (~(got by circles.str.sta) circ))
=. red.conf red.dif.rum.rum
:- ~
%= this
circles.str.sta (~(put by circles.str.sta) circ `conf)
==
== ==
== ==
== ==

3
sys/vane/gall.hoon
View File

@ -729,6 +729,9 @@
^- {? _.} ^- {? _.}
=+ suy=(fall (~(get by qel.ged) ost) 0) =+ suy=(fall (~(get by qel.ged) ost) 0)
?: =(20 suy) ?: =(20 suy)
~& %'----------------------------------------------------------------'
~& %'AP-FILL-FULL'
~& %'----------------------------------------------------------------'
:: ~& [%ap-fill-full [our dap] q.q.pry ost] :: ~& [%ap-fill-full [our dap] q.q.pry ost]
[%| +] [%| +]
:: ~? !=(20 suy) [%ap-fill-add [[our dap] q.q.pry ost] +(suy)] :: ~? !=(20 suy) [%ap-fill-add [[our dap] q.q.pry ost] +(suy)]