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

Various fixes and improvements.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-06-13 22:47:17 -07:00
parent 4ccea74016
commit c537095a7e
1 changed files with 11 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
arvo/eyre.hoon
View File

@ -116,7 +116,6 @@
[%apg p=term q=ship r=logo s=path] :: app get/start [%apg p=term q=ship r=logo s=path] :: app get/start
[%ape p=term q=ship r=@ud s=term t=@ud] :: subscribe pull [%ape p=term q=ship r=@ud s=term t=@ud] :: subscribe pull
[%apm p=term q=ship r=@ud s=@ud t=json] :: message send [%apm p=term q=ship r=@ud s=@ud t=json] :: message send
[%apr p=term q=ship r=@ud s=@ud] :: response pull
[%aps p=term q=ship r=@ud s=term t=path] :: subscribe [%aps p=term q=ship r=@ud s=term t=path] :: subscribe
[%apu p=term q=ship r=@ud s=term] :: unsubscribe [%apu p=term q=ship r=@ud s=term] :: unsubscribe
[%cog p=@ud q=@ud] :: console get [%cog p=@ud q=@ud] :: console get
@ -1028,19 +1027,6 @@
(need (ecce moh)) (need (ecce moh))
== ==
:: ::
++ fapr :: dispatch %apr
|= [fur=(unit term) you=@p paw=path]
^- (unit seam)
?> ?=(~ fur)
?> ?=([@ @ @ ~] paw)
:- ~
:* %apr
(need ((sand %tas) i.paw))
you
(need (slaw %ui (cat 3 '0i' i.t.paw)))
(need (slaw %ui (cat 3 '0i' i.t.t.paw)))
==
::
++ faps :: dispatch %aps ++ faps :: dispatch %aps
|= [fur=(unit term) you=@p paw=path moh=moth] |= [fur=(unit term) you=@p paw=path moh=moth]
^- (unit seam) ^- (unit seam)
@ -1311,7 +1297,6 @@
%c (flub paw ~) %c (flub paw ~)
%l (fool r.pul) %l (fool r.pul)
%g (fapg p.q.pul yun paw) %g (fapg p.q.pul yun paw)
%r (fapr p.q.pul yun paw)
%e (fape p.q.pul yun paw) %e (fape p.q.pul yun paw)
== ==
:: ::
@ -1453,11 +1438,6 @@
~& [%wink-apm +.som.pip] ~& [%wink-apm +.som.pip]
:- [~ pip(pez %way)] :- [~ pip(pez %way)]
(yokm num +.som.pip) (yokm num +.som.pip)
::
%apr :: response
~& [%wink-apr +.som.pip]
:- [~ pip(pez %way)]
(yokr num +.som.pip)
:: ::
%aps :: subscribe %aps :: subscribe
~& [%wink-aps +.som.pip] ~& [%wink-aps +.som.pip]
@ -1870,11 +1850,7 @@
^+ +> ^+ +>
=+ yon=(yolk nap) =+ yon=(yolk nap)
?~ yon (bust num) ?~ yon (bust num)
abet:(post:u.yon cnt jon) abet:(post:u.yon cnt num jon)
::
++ yokr :: response pull
|= [num=@ud app=term you=ship nap=@ud cnt=@ud]
!!
:: ::
++ yoks :: subscribe ++ yoks :: subscribe
|= [num=@ud app=term you=ship nap=@ud suc=term pax=path] |= [num=@ud app=term you=ship nap=@ud suc=term pax=path]
@ -1921,14 +1897,17 @@
suc suc
== ==
:: ::
++ post ++ post :: transmit
|= [cnt=@ud jon=json] |= [cnt=@ud num=@ud jon=json]
^+ +> ^+ +>
?. =(cnt meg.siq) =. +>.$
~& [%post-num cnt meg.siq] ?. =(cnt meg.siq) +>.$
+>.$ %+ toss(meg.siq +(meg.siq))
=. meg.siq +(meg.siq) %post
(toss %post `note`[%mess [our app] you [%json !>(jon)]]) `note`[%mess [our app] you [%json !>(jon)]]
?. =(+(cnt) meg.siq)
+>.$(..yo (bust num))
abet:(hire:(yule %post) cnt num)
:: ::
++ self :: request main ++ self :: request main
|= pax=path |= pax=path