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

Proxying.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-03-23 14:18:05 -07:00
parent a0737a02e6
commit b0f6d70140
2 changed files with 24 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
arvo/ames.hoon
View File

@ -1524,6 +1524,9 @@
:- ?: =(%c ven)
?> =(%re cak)
[[%c `path`t.t.t.q.q.bon] hen]
?: =(%e ven)
?> =(%pr cak)
[[%e `path`t.t.t.q.q.bon] hen]
[[ven `path`t.t.t.q.q.bon] t.neh]
`card`[%waft q.p.bon r.bon]
==
@ -1538,6 +1541,12 @@
::
%pi :: ping
$(bon [%wine p.bon " sent a ping at {(scow %da now)}"])
::
%pr :: %pr
:_ fox
:~ :- [~ %iron p.p.bon]
[[/e hen] `card`[%wart q.p.bon i.t.q.q.bon t.t.q.q.bon r.bon]]
==
::
%ta
=+ gox=((hard ,[p=@p q=@pG r=gens s=pass]) r.bon)
@ -1549,7 +1558,6 @@
[/a /a hen]
`card`[%want q.p.bon [%r %ta t.t.q.q.bon] `(unit will)`wyl]
==
::
%re :: %re
:_ fox
:~ :- [~ %iron p.p.bon]

25
arvo/eyre.hoon
View File

@ -121,7 +121,7 @@
++ apex
|- ^+ +
?+ -.fav
~|([%ye-bad -.fav] !!)
+.$(mow [[wru hen fav] mow])
::
%born +(ged hen) :: register external
%init :: register ownership
@ -182,8 +182,8 @@
(hell pul +.fav [p.heq mah s.heq])
::
%thou :: remote return
?> ?=([@ ~] tea)
(hajj (need (slaw %p i.tea)) p.fav)
?> ?=([@ *] tea)
(hajj (need (slaw %p i.tea)) t.tea p.fav)
::
%wart :: remote request
?+ q.fav
@ -195,8 +195,12 @@
==
::
%waft
?> ?=([%hork @ ~] tea)
?. ?=([%hork @ ~] tea)
+.$
(gosh p.fav (need (slaw %ud i.t.tea)) ((hard httr) q.fav))
::
%went
+.$
==
::
++ doss :: host to ship
@ -220,18 +224,16 @@
^+ +>
=+ rot=(need (~(get by fon) him))
=+ zer=(need (~(get by q.rem.rot) num))
~& [%gosh-hen hen]
~& [%gosh-zer zer]
%_ +>.$
mow :_(mow [wru zer [%thou har]])
fon (~(put by fon) him rot(q.rem (~(del by q.rem.rot) num)))
==
::
++ hajj :: send %pr response
|= [him=ship har=httr]
|= [him=ship tus=path har=httr]
^+ +>
~& [%hajj him har]
(muff [%waft him har])
+>.$(mow :_(mow [wru [/a hen] [%want him [%r %pr tus] har]]))
::
++ hare :: receive request
|= [tus=path him=ship hor=*]
@ -239,7 +241,7 @@
~& [%hare him tus]
=+ hyx=((hard httx) hor)
~& [%hare-httx hyx]
+>.$(mow :_(mow [wru [/c/(scot %p him) hen] [%this hyx]]))
+>.$(mow :_(mow [wru [/e [%e (scot %p him) tus] hen] [%this hyx]]))
::
++ hell :: request, no ship
|= [pul=purl hyx=httx moh=moth]
@ -277,12 +279,13 @@
?^ rut u.rut
[0 u.sur [0 ~]]
=+ num=p.rem.rot
=+ mun=(scot %ud num)
%_ +>.$
mow
:_ mow
:+ [~ %gold sor.rot]
[/a [%c %hork (scot %ud num) ~] hen]
[%want him [%pr ~] hyx]
[/a [%e %hork mun ~] hen]
[%want him [%q %pr %e %hork mun ~] hyx]
::
fon
%+ ~(put by fon) him