mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 12:43:31 +03:00
dd0716eb72
Conflicts: n/t.c urb/urbit.pill urb/zod/main/app/reload/core.hook urb/zod/main/app/shell/core.hook urb/zod/main/app/solid/core.hook urb/zod/main/arvo/dill.hoon urb/zod/main/arvo/eyre.hoon urb/zod/main/arvo/ford.hoon urb/zod/main/arvo/gall.hoon urb/zod/main/arvo/hoon.hoon urb/zod/main/mar/json/door.hook urb/zod/main/mar/md/door.hook urb/zod/main/mar/txt/door.hook v/raft.c v/unix.c
41 lines
869 B
Plaintext
41 lines
869 B
Plaintext
::
|
|
:::: /hook/gate/solid/gun
|
|
::
|
|
/? 314
|
|
/- *sole
|
|
::
|
|
::::
|
|
!:
|
|
|= $: [now=@da eny=@uvI bec=beak]
|
|
[~ ~]
|
|
==
|
|
%+ sole-so %noun
|
|
=+ top=`path`/(scot %p p.bec)/main/(scot %da now)/arvo
|
|
=+ pax=`path`(weld top `path`[%hoon ~])
|
|
~& %solid-start
|
|
=+ gen=(reck pax)
|
|
~& %solid-parsed
|
|
=+ ken=q:(~(mint ut %noun) %noun gen)
|
|
~& %solid-compiled
|
|
:- ken
|
|
=+ all=.*(0 ken)
|
|
=+ ^= vay ^- (list ,[p=@tas q=@tas])
|
|
:~ [%$ %zuse]
|
|
[%g %gall]
|
|
[%f %ford]
|
|
[%a %ames]
|
|
[%c %clay]
|
|
[%d %dill]
|
|
[%e %eyre]
|
|
[%t %time]
|
|
==
|
|
|- ^+ all
|
|
?~ vay all
|
|
=+ pax=(weld top `path`[q.i.vay ~])
|
|
=+ txt=((hard ,@) .^(%cx (weld pax `path`[%hoon ~])))
|
|
=+ sam=[now `ovum`[[%gold ~] [%veer p.i.vay pax txt]]]
|
|
~& [%solid-veer i.vay]
|
|
=+ gat=.*(all .*(all [0 42]))
|
|
=+ nex=+:.*([-.gat [sam +>.gat]] -.gat)
|
|
$(vay t.vay, all nex)
|