mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 04:11:49 +03:00
++dear path->tuple parser
This commit is contained in:
parent
b154a69b2e
commit
1a3b562d22
@ -2058,6 +2058,30 @@
|
|||||||
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||||
:: 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
|
||||||
@ -2117,16 +2141,16 @@
|
|||||||
[(cut 3 [d 1] cha) $(pad (rsh 0 6 pad))]
|
[(cut 3 [d 1] cha) $(pad (rsh 0 6 pad))]
|
||||||
(weld (flop (slag poc sif)) (reap poc '='))
|
(weld (flop (slag poc sif)) (reap poc '='))
|
||||||
::
|
::
|
||||||
++ ofis
|
++ ofis :: XX broken
|
||||||
=- |=(a=cord (rash a fel))
|
=- |=(a=cord (rash a fel))
|
||||||
=- fel=;~(sfix (boss 64 (plus siw)) (stun 0^3 tis))
|
=- fel=;~(sfix (boss 64 (plus siw)) (stun 0^2 tis))
|
||||||
^= siw
|
^= siw
|
||||||
;~ pose
|
;~ pose
|
||||||
dit
|
dit
|
||||||
(cook |=(a=@ (sub a (sub 'A' 10))) (shim 'A' 'Z'))
|
(cook |=(a=@ (sub a (sub 'A' 10))) (shim 'A' 'Z'))
|
||||||
(cook |=(a=@ (sub a (sub 'a' 36))) (shim 'a' 'z'))
|
(cook |=(a=@ (sub a (sub 'a' 36))) (shim 'a' 'z'))
|
||||||
(cold 62 (just '-'))
|
(cold 62 (just '+'))
|
||||||
(cold 63 (just '~'))
|
(cold 63 (just '/'))
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ urle :: URL encode
|
++ urle :: URL encode
|
||||||
|
Loading…
Reference in New Issue
Block a user