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

renamed dear to raid

Browse Source
This commit is contained in:
Anton Dyudin 2015-03-11 16:25:07 -07:00
parent 1a3b562d22
commit 2382c8c863
1 changed files with 28 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
arvo/zuse.hoon
View File

@ -2058,30 +2058,6 @@
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 3bG, URL handling :: :: section 3bG, URL handling ::
:: ::
:: .= [p=%ack q=~sarnel r=&]
:: (dear /ack/~sarnel/.y p=%tas q=%p r=%f ~)
++ dear :: parse odored path
=+ ^= odo
|* a=@tas
|= b=*
=< a(. (. b)) :: preserve face
?+ a ,@
%c ,@c %da ,@da %dr ,@dr %f ,@f %if ,@if %is ,@is %p ,@p
%u ,@u %uc ,@uc %ub ,@ub %ui ,@ui %ux ,@ux %uv ,@uv %uw ,@uw
%s ,@s %t ,@t %ta ,@ta %tas ,@tas
==
|* [a=path b=[@tas (pole ,@tas)]]
%. a %. b
|* b=[@tas (pole ,@tas)]
|= a=path
?~ a ~
=+ hed=(slaw -.b i.a)
?~ +.b
^- (unit (odo -.b))
?^(+.a ~ hed)
^- (unit ,[(odo -.b) _(need *(..^$ +.b))])
(both hed ((..^$ +.b) +.a))
::
++ deft :: parse url extension ++ deft :: parse url extension
|= rax=(list ,@t) |= rax=(list ,@t)
|- ^- pork |- ^- pork
@ -2153,6 +2129,34 @@
(cold 63 (just '/')) (cold 63 (just '/'))
== ==
:: ::
:: .= [p=%ack q=~sarnel r=&]
:: (raid /ack/~sarnel/.y p=%tas q=%p r=%f ~)
++ raid :: demand path odors
=- |* [a=path b=[@tas (pole ,@tas)]]
?~ +.b `(odo -.b)`(slav -.b -.a)
[`(odo -.b)`(slav -.b -.a) (..$ +.a +.b)]
^= odo
|* a=@tas
|= b=*
=< a(. (. b)) :: preserve face
?+ a ,@
%c ,@c %da ,@da %dr ,@dr %f ,@f %if ,@if %is ,@is %p ,@p
%u ,@u %uc ,@uc %ub ,@ub %ui ,@ui %ux ,@ux %uv ,@uv %uw ,@uw
%s ,@s %t ,@t %ta ,@ta %tas ,@tas
==
::
++ read :: parse odored path
=< |*([a=path b=[@tas (pole ,@tas)]] ((+> b) a))
|* b=[@tas (pole ,@tas)]
|= a=path
?~ a ~
=+ hed=(slaw -.b i.a)
?~ +.b
^- (unit (odo:raid -.b))
?^(+.a ~ hed)
^- (unit ,[(odo:raid -.b) _(need *(..^$ +.b))])
(both hed ((..^$ +.b) +.a))
::
++ urle :: URL encode ++ urle :: URL encode
|= tep=tape |= tep=tape
^- tape ^- tape