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

forgive non-building drivers for null-authenticated requests

Browse Source
This commit is contained in:
Anton Dyudin 2016-01-28 14:26:13 -08:00
parent a8f78941c9
commit a1a6fb80c9
1 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
arvo/eyre.hoon
View File

@ -92,7 +92,7 @@
sec=(map ,[iden (list ,@t)] driv) :: security drivers sec=(map ,[iden (list ,@t)] driv) :: security drivers
== :: == ::
:: ::
++ driv %+ pair (unit vase) :: driver state ++ driv %+ pair (unit $|(~ vase)) :: driver state
(qeu (trel duct mark vase:hiss)) :: waiting requests (qeu (trel duct mark vase:hiss)) :: waiting requests
:: ::
++ live :: in flight ++ live :: in flight
@ -1614,7 +1614,7 @@
-- --
++ vi :: auth engine ++ vi :: auth engine
|_ $: [usr=iden dom=path] |_ $: [usr=iden dom=path]
cor=(unit vase) cor=(unit $|(~ vase))
req=(qeu ,[p=duct q=mark r=vase:hiss]) req=(qeu ,[p=duct q=mark r=vase:hiss])
== ==
++ self . ++ self .
@ -1632,10 +1632,13 @@
=+ ole=~(top to req) =+ ole=~(top to req)
?~ ole abet ?~ ole abet
:: process hiss :: process hiss
(call(hen p.u.ole) %out hiss/r.u.ole) =. hen p.u.ole
?~ u.cor (eyre-them %out r.u.ole) :: don't process
(call %out hiss/r.u.ole)
:: ::
++ prep-cor ^- silk ++ prep-cor ^- silk
?~ cor ~|(%no-core !!) ?~ cor ~|(%no-core !!)
?~ u.cor ~|(%nil-driver !!)
:+ ~ %core :+ ~ %core
%_ u.cor %_ u.cor
+12.q +12.q
@ -1653,7 +1656,10 @@
|= [dep=@uvH gag=(each cage tang)] |= [dep=@uvH gag=(each cage tang)]
~& got-upd/dep ~& got-upd/dep
=. ..vi (pass-note %core [%f [%wasp our dep &]]) =. ..vi (pass-note %core [%f [%wasp our dep &]])
?-(-.gag %| (warn p.gag), %& pump(cor `q.p.gag)) ?~ -.gag pump(cor `q.p.gag)
?: &(?=(~ cor) ?=(~ usr))
pump(cor `~) :: userless %hiss defaults to "nop" driver
(warn p.gag)
:: ::
++ get-made ++ get-made
|= [wir=whir-se dep=@uvH res=(each cage tang)] ^+ abet |= [wir=whir-se dep=@uvH res=(each cage tang)] ^+ abet
@ -1671,15 +1677,15 @@
?+ wir !! ?+ wir !!
%in (call %bak httr/!>(hit)) %in (call %bak httr/!>(hit))
%out %out
?: (has-arm %res) ?. (has-arm %res) (do-httr !>(hit))
(call %res httr/!>(hit)) (call %res httr/!>(hit))
(do-give !>([%give hit]))
== ==
:: ::
++ has-arm ~(has in (sa (sloe ?~(cor %void p.u.cor)))) ++ has-arm ~(has in (sa (sloe cor-type)))
++ do-give ++ cor-type ?~(cor %void ?~(u.cor %void p.u.cor))
|= vax=vase ++ do-give |=(vax=vase (do-httr (slam !>(|=([%give a=httr] a)) vax)))
=. vax (slam !>(|=([%give a=httr] a)) vax) ++ do-httr
|= vax=vase:httr
=^ ole req ~(get to req) =^ ole req ~(get to req)
=> .(ole `[p=duct q=mark *]`ole) :: XX types => .(ole `[p=duct q=mark *]`ole) :: XX types
=. ..vi (cast-thou(hen p.ole) q.ole httr/vax) :: error? =. ..vi (cast-thou(hen p.ole) q.ole httr/vax) :: error?
@ -1709,10 +1715,9 @@
=. p.res (~(fuse ut p.res) p:!>(*[[@ *] *])) =. p.res (~(fuse ut p.res) p:!>(*[[@ *] *]))
=+ [mow=(slot 2 res) roc=(slot 3 res)] =+ [mow=(slot 2 res) roc=(slot 3 res)]
=- ((han self(cor (some roc))) mow):+ :: XX better stateless asserts =- ((han self(cor (some roc))) mow):+ :: XX better stateless asserts
?~ cor ~|(%lost-core !!) =+ typ=cor-type
~| %core-mismatch ~| %core-mismatch
?> (~(nest ut p.u.cor) & p.roc) ?>((~(nest ut typ) & p.roc) ~)
~
:: ::
++ allow ++ allow
|= a=(list ,[p=term q=$+(vase _abet)]) |= a=(list ,[p=term q=$+(vase _abet)])
@ -1775,8 +1780,6 @@
:: ::
++ get-quay ++ get-quay
|= quy=quay ^+ abet |= quy=quay ^+ abet
?~ cor
~|(%no-core !!)
(call %in quay/!>(quy)) (call %in quay/!>(quy))
:: ::
++ rebuild build(cor ~) ++ rebuild build(cor ~)
@ -1786,6 +1789,7 @@
:^ %mute core/[root-beak (flop %_(dom . sec/dom))] :^ %mute core/[root-beak (flop %_(dom . sec/dom))]
[~[`12] `bale/!>(*(bale ,@))] :: XX specify on type? [~[`12] `bale/!>(*(bale ,@))] :: XX specify on type?
?~ cor ~ ?~ cor ~
?~ u.cor ~
?: (has-arm %wyp) ~ ?: (has-arm %wyp) ~
?: (has-arm %upd) ?: (has-arm %upd)
[~[`13] ride/[cnzy/%upd prep-cor]]~ [~[`13] ride/[cnzy/%upd prep-cor]]~