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

dojo: re-add support for /=, /% runes

Browse Source
This commit is contained in:
Sidnym Ladrut 2022-07-06 05:29:23 +00:00
parent 3e22ee68e9
commit 13b8b337a0
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pkg/arvo/app/dojo.hoon
View File

@ -174,8 +174,10 @@
:: ::
;~ pfix fas ;~ pfix fas
;~ pose ;~ pose
(parse-variable (cold %sur hep) ;~(pfix gap (parse-ford %sur))) (parse-variable (cold %sur hep) ;~(pfix gap (parse-cables %sur)))
(parse-variable (cold %lib lus) ;~(pfix gap (parse-ford %lib))) (parse-variable (cold %lib lus) ;~(pfix gap (parse-cables %lib)))
;~(pfix tis gap (parse-variable sym ;~(pfix gap parse-path)))
;~(pfix cen gap (parse-variable sym ;~(pfix gap parse-mark)))
== ==
== ==
:: ::
@ -193,7 +195,7 @@
(stag %show (cook $?(%1 %2 %3 %4 %5) (cook lent (stun [1 5] wut)))) (stag %show (cook $?(%1 %2 %3 %4 %5) (cook lent (stun [1 5] wut))))
== ==
:: ::
++ parse-ford ++ parse-cables
|= base-path=@ta |= base-path=@ta
%- cook :_ (most ;~(plug com gaw) parse-cable) %- cook :_ (most ;~(plug com gaw) parse-cable)
|= cables=(list cable:clay) |= cables=(list cable:clay)
@ -213,6 +215,16 @@
(cook |=([face=term tis=@ file=term] [`face file]) ;~(plug sym tis sym)) (cook |=([face=term tis=@ file=term] [`face file]) ;~(plug sym tis sym))
(cook |=(a=term [`a a]) sym) (cook |=(a=term [`a a]) sym)
== ==
::
++ parse-mark
%- cook :_ ;~(pfix cen sym)
|= mark=@tas
[0 %dv -.dir `path`[~.mar mark ~]]
::
++ parse-path
%+ cook |=(=path [0 %dv -.dir path])
;~(pfix fas (more fas sym))
::
++ parse-source (stag 0 parse-build) ++ parse-source (stag 0 parse-build)
++ parse-build ++ parse-build
%+ knee *dojo-build |. ~+ %+ knee *dojo-build |. ~+