mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 12:22:10 +03:00
36 lines
939 B
Plaintext
36 lines
939 B
Plaintext
::
|
|
:::: /hoon/merge/hood/gen
|
|
::
|
|
/? 314
|
|
!:
|
|
|%
|
|
++ beaky ,[span span span ~]
|
|
++ sorc ?([bek=beaky ~] [her=@p sud=@tas ~])
|
|
--
|
|
::
|
|
::::
|
|
!:
|
|
:- %say
|
|
|= $: [now=@da eny=@uvI bek=beak]
|
|
[arg=[?(sorc [syd=$|(desk beaky) sorc])] cas=case gem=?(%auto germ)]
|
|
==
|
|
=. cas ?:(=(*case cas) da/now cas)
|
|
=* our p.bek
|
|
|^ :- %kiln-merge
|
|
^- [syd=desk her=ship sud=desk cas=case gem=?(%auto germ)]
|
|
?- arg
|
|
[@ @ ~] =+(arg [sud ?.(=(our her) her (sein her)) sud cas gem])
|
|
[^ ~] =+ (pars bek.arg)
|
|
[dez ?.(=(our who) who (sein who)) dez cas gem]
|
|
[* @ @ ~] [(pars-src syd.arg) =+(arg [her sud cas gem])]
|
|
[* ^ ~] [(pars-src syd.arg) =+((pars bek.arg) [who dez cas gem])]
|
|
==
|
|
++ pars |=(a=beaky =+((need (tome a)) `[who=ship dez=desk]`[p q]))
|
|
++ pars-src
|
|
|= syd=$|(desk beaky)
|
|
?@ syd syd
|
|
=+ (pars syd)
|
|
~| [%into-foreign who `path`syd]
|
|
?>(=(our who) dez)
|
|
--
|