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

ames stubbery

Browse Source
This commit is contained in:
Anton Dyudin 2016-09-12 15:17:22 -07:00
parent 0f466b061e
commit 5037a2a4f0
2 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
arvo/eyre.hoon
View File

@ -688,10 +688,10 @@
$went
:: this won't happen until we send responses.
=+ [him=*ship wir=*wire] :: XX from ames
=/ mez/$%({$hat {ses/hole pul/purl} hat/hart})
(parse-went-wire=_!! wir wen=!!)
=/ mez/?({{$lon ses/hole pul/purl} hat/hart})
!! ::(parse-went-wire wir +.kyz)
?- -<.mez
$hat
$lon
(foreign-hat:(ses-ya ses.mez) pul.mez him hat.mez)
==
::
@ -703,7 +703,7 @@
~|(%strange-west !!)
?- -<.u.mez
$aut abet:(logon:(ses-ya p.u.mez) q.p.kyz)
:: $hat (foreign-hat:(ses-ya p.u.mez) q.p.kyz q.u.mez)
$hat !! :: (foreign-hat:(ses-ya p.u.mez) q.p.kyz q.u.mez)
$gib (pass-note ay+(dray p+uv+~ q.p.kyz p.u.mez) [%e %thud ~])
$get (pass-note ay+(dray p+uv+~ q.p.kyz p.u.mez) [%e %this q.u.mez])
$got
@ -1434,7 +1434,7 @@
(new-ya (rsh 3 1 (scot %p (end 6 1 ney))))
~(. ya u.lig u.cyz(cug ~))
::
++ new-ya |=(ses/hole (new:ya ses new-cred))
++ new-ya |=(ses/hole (new:ya ses new-cred [(set-cookie cookie-prefix ses)]~))
++ new-cred
%* . *cred
hut hat
@ -1453,27 +1453,23 @@
=| {ses/hole cyst}
=* cyz ->
|%
++ new |=({a/hole b/cred} init(ses a, ced b))
++ new |=({a/hole b/cred c/(list @t)} init(ses a, ced b, cug c))
++ abet ..ya(wup (~(put by wup) ses cyz))
++ abut ..ya(wup (~(del by wup) ses))
++ init
%_ .
him `@p`(mix anon (lsh 5 1 (rsh 5 1 (shaf %ship ses))))
cug [(set-cookie cookie-prefix ses)]~
lax now
==
::
++ foreign-auth
|= {him/ship pul/purl} ^+ ..ya
=. way (~(put by way) him pul hen)
~& asking-foreign+him
(ames-gram:abet him [lon+~ ses])
!!
:: (ames-gram:abet him [lon+[ses (crip (earn pul)) ~] ~])
::
++ foreign-hat
|= {pul/purl him/ship hat/hart} ^+ ..ya
~| way
?. (~(has by way) him) :: XX crashes should be handled by ames
~&(strange-auth+[way him hat] ..ya)
=: dop (~(put by dop) r.hat him)
q.q.pul ['~' %am ses q.q.pul]
==
@ -1499,7 +1495,6 @@
++ new-view
^+ [*oryx ..ya]
=+ orx=`@t`(rsh 3 1 (scot %p (shaf %orx eny)))
=. vew (~(put in vew) orx)
=+ ire=(oryx-to-ixor orx)
=. ..ix ~(init ix ire %*(. *stem ses ses, him him, p.eve 1))
:: ~& stat-ire+`@t`ire

2
arvo/zuse.hoon
View File

@ -3754,7 +3754,7 @@
::
++ gram :: inter-ship message
=+ fuz={path @ud *} :: ames format
$? {{$lon $~} p/hole} :: login request
$? {{$lon p/hole q/@t:purl $~} $~} :: login request
{{$aut $~} p/hole} :: login reply
{{$hat $~} p/hole q/hart} :: login redirect
{{$get $~} p/@uvH q/{? clip httq}} :: remote request