urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-13 16:03:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

More http fixes.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-03-23 12:42:18 -07:00
parent 8619e957a7
commit a0737a02e6
2 changed files with 38 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
arvo/ames.hoon
View File

@ -1491,6 +1491,7 @@
:* [[~ %gold p.bon] [/c hen] [%init p.bon]] :* [[~ %gold p.bon] [/c hen] [%init p.bon]]
[[~ %gold p.bon] hen [%init p.bon]] [[~ %gold p.bon] hen [%init p.bon]]
[[~ %gold p.bon] [/a hen] [%kick now]] [[~ %gold p.bon] [/a hen] [%kick now]]
[[~ %gold p.bon] [/e hen] [%init p.bon]]
~ ~
:: =+ bos=(sein p.bon) :: =+ bos=(sein p.bon)
:: =. bos ?.(=(bos p.bon) bos ~zod) :: =. bos ?.(=(bos p.bon) bos ~zod)

56
arvo/eyre.hoon
View File

@ -7,6 +7,7 @@
|% :: structures |% :: structures
++ bolo :: eyre state ++ bolo :: eyre state
$: gub=@t :: random identity $: gub=@t :: random identity
hov=(unit ,@p) :: master for remote
ged=duct :: client interface ged=duct :: client interface
ney=@uvI :: rolling entropy ney=@uvI :: rolling entropy
dop=(map host ship) :: host aliasing dop=(map host ship) :: host aliasing
@ -38,6 +39,7 @@
== :: == ::
++ rote :: remote server ++ rote :: remote server
$: cnt=@ud :: number served $: cnt=@ud :: number served
sor=@p :: home sponsor
rem=[p=@ud q=(map ,@ud duct)] :: active requests rem=[p=@ud q=(map ,@ud duct)] :: active requests
== :: == ::
++ serf :: local server ++ serf :: local server
@ -122,6 +124,19 @@
~|([%ye-bad -.fav] !!) ~|([%ye-bad -.fav] !!)
:: ::
%born +(ged hen) :: register external %born +(ged hen) :: register external
%init :: register ownership
%_ +.$
hov ?~(hov [~ p.fav] [~ (min u.hov p.fav)])
own
%+ ~(put by own)
p.fav
^- serf
:* (cat 3 gub (rsh 3 1 (scot %p p.fav)))
~
~
==
==
::
%that :: outbound response %that :: outbound response
?> ?=([@ @ @ ~] tea) :: ?> ?=([@ @ @ ~] tea) ::
=+ :* our=(slaw %p i.tea) :: ship =+ :* our=(slaw %p i.tea) :: ship
@ -252,28 +267,31 @@
++ hork :: remote request ++ hork :: remote request
|= [him=ship hyx=httx] |= [him=ship hyx=httx]
^+ +> ^+ +>
=+ ^= sur ^- (unit ship)
?^ hov hov
?^ own [~ p.n.own]
~
?~ sur (fail 500 "no vessel available to proxy {<him>}")
=+ ^= rot ^- rote =+ ^= rot ^- rote
=+ rut=(~(get by fon) him) =+ rut=(~(get by fon) him)
?^(rut u.rut *rote) ?^ rut u.rut
[0 u.sur [0 ~]]
=+ num=p.rem.rot =+ num=p.rem.rot
=. +>.$ %_ +>.$
%_ +>.$ mow
mow :_ mow
:_ mow :+ [~ %gold sor.rot]
:+ wru [/a [%c %hork (scot %ud num) ~] hen]
[/a [%c %hork (scot %ud num) ~] hen] [%want him [%pr ~] hyx]
[%want him [%pr ~] hyx] ::
:: fon
fon %+ ~(put by fon) him
%+ ~(put by fon) him %_ rot
%_ rot cnt +(cnt.rot)
cnt +(cnt.rot) p.rem +(p.rem.rot)
p.rem +(p.rem.rot) q.rem (~(put by q.rem.rot) num hen)
q.rem (~(put by q.rem.rot) num hen)
==
== ==
~& [%hork him] ==
!!
:: ::
++ horn :: irregular request ++ horn :: irregular request
|= [pul=purl cip=clip moh=moth] |= [pul=purl cip=clip moh=moth]
@ -369,7 +387,7 @@
=+ suf=(~(get by own) our) =+ suf=(~(get by own) our)
?^ suf u.suf ?^ suf u.suf
=+ sef=*serf =+ sef=*serf
sef(pef (cat 3 gub (rsh 3 1 (scot %p our)))) sef(pef (cat 3 gub (rsh 3 1 (scot %p our)))) :: XX transitional
=+ ^= saw ^- [p=hole q=cyst] =+ ^= saw ^- [p=hole q=cyst]
=+ lig=(coss pef.sef q.moh) =+ lig=(coss pef.sef q.moh)
?^ lig ?^ lig