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

stub out unsubscription checking

Browse Source
This commit is contained in:
Anton Dyudin 2015-04-29 12:43:14 -07:00
parent 171a42cf5b
commit d6f18401c6
2 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
main/arvo/clay.hoon
View File

@ -306,10 +306,9 @@
:: ::
++ ease :: release request ++ ease :: release request
^+ . ^+ .
~& ease/hen
?~ ref ?~ ref
=+ rov=(~(get by qyx) hen) =+ rov=(~(get by qyx) hen)
?~ rov ~&(ease-lost/(~(run by qyx) ,~) +) ?~ rov + :: XX handle?
=. qyx (~(del by qyx) hen) =. qyx (~(del by qyx) hen)
(mabe u.rov (cury best hen)) (mabe u.rov (cury best hen))
=. qyx (~(del by qyx) hen) =. qyx (~(del by qyx) hen)

11
main/arvo/ford.hoon
View File

@ -269,12 +269,10 @@
?~ p.sih +>.$ ?~ p.sih +>.$
=+ ark=;;(arch |2.r.u.p.sih) =+ ark=;;(arch |2.r.u.p.sih)
=+ [dap=(~(got by deh.bay) dep) bem=`beam`[bek sup] new=p.ark] =+ [dap=(~(got by deh.bay) dep) bem=`beam`[bek sup] new=p.ark]
~& got-writ/[dep (tope bem) ark u.p.sih(r ~) -.dap]
=- ?~(dop con con(deh.bay (~(put by deh.bay) dep dop))) =- ?~(dop con con(deh.bay (~(put by deh.bay) dep dop)))
^- [dop=$|(~ _dap) con=_+>.$] ^- [dop=$|(~ _dap) con=_+>.$]
?- -.dap ?- -.dap
%done %done `+>.$ :: writ redundant
~&(%writ-redundant `+>.$)
%init ~|(never-subscribed/dep !!) %init ~|(never-subscribed/dep !!)
%sent %sent
=+ old=(~(got by q.dap) bem) =+ old=(~(got by q.dap) bem)
@ -282,7 +280,6 @@
:- dap(q (~(put by q.dap) bem `new)) :- dap(q (~(put by q.dap) bem `new))
=. r.bem q.p.u.p.sih =. r.bem q.p.u.p.sih
?> ?=(%ud -.r.bem) ?> ?=(%ud -.r.bem)
~& hey/[(tope bem(p.r +(p.r.bem))) hen]
=- +>.$(mow :_(mow [hen %pass tea noe])) =- +>.$(mow :_(mow [hen %pass tea noe]))
^- noe=note ^- noe=note
[%c [%warp [our p.bem] q.bem ~ [%sing %y ud/+(p.r.bem) (flop s.bem)]]] [%c [%warp [our p.bem] q.bem ~ [%sing %y ud/+(p.r.bem) (flop s.bem)]]]
@ -292,7 +289,6 @@
=. q.dap (~(del by q.dap) bem) =. q.dap (~(del by q.dap) bem)
%+ turn (~(tap by q.dap)) :: cancel outstanding %+ turn (~(tap by q.dap)) :: cancel outstanding
|= [bem=beam *] |= [bem=beam *]
~& bye/[(tope bem) hen]
=. tea [(scot %p our) (scot %uv dep) (tope bem)] =. tea [(scot %p our) (scot %uv dep) (tope bem)]
[hen %pass tea %c %warp [our p.bem] q.bem ~] [hen %pass tea %c %warp [our p.bem] q.bem ~]
== ==
@ -311,14 +307,13 @@
+>.$(deh.bay (~(put by deh.bay) dep dap)) +>.$(deh.bay (~(put by deh.bay) dep dap))
%init %init
%_ +>.$ %_ +>.$
deh.bay deh.bay
=+ (turn (~(tap in p.dap)) |=(a=beam [a ~])) =+ (turn (~(tap in p.dap)) |=(a=beam [a ~]))
(~(put by deh.bay) dep [%sent [hen ~ ~] (mo `(list ,[beam ~])`-)]) (~(put by deh.bay) dep [%sent [hen ~ ~] (mo `(list ,[beam ~])`-)])
:: ::
mow mow
=< (welp :_(mow (turn (~(tap in p.dap)) .))) =< (welp :_(mow (turn (~(tap in p.dap)) .)))
|= bem=beam |= bem=beam
~& hi/[(tope bem) hen]
:^ hen %pass [(scot %p our) (scot %uv dep) (tope bem)] :^ hen %pass [(scot %p our) (scot %uv dep) (tope bem)]
=- [%c [%warp [our p.bem] q.bem ~ [%sing %y ud/- (flop s.bem)]]] =- [%c [%warp [our p.bem] q.bem ~ [%sing %y ud/- (flop s.bem)]]]
?. ?=(%ud -.r.bem) ?. ?=(%ud -.r.bem)
@ -329,7 +324,7 @@
== == == ==
:: ::
++ zo ++ zo
~% %ford-z ~% %ford-z
..is ..is
== ==
%fade fade %fade fade