mirror of
https://github.com/urbit/shrub.git
synced 2024-12-12 18:48:14 +03:00
45 lines
994 B
Plaintext
45 lines
994 B
Plaintext
|
::
|
||
|
|
:::: /hoon/plastic/gen
|
||
|
|
::
|
||
|
|
/? 310
|
||
|
|
::
|
||
|
|
::::
|
||
|
|
!:
|
||
|
|
:- %say
|
||
|
|
|= $: {now/@da eny/@uvI bec/beak}
|
||
|
|
{{who/@p $~} $~}
|
||
|
|
==
|
||
|
|
:- %noun
|
||
|
|
=+ top=`path`/(scot %p p.bec)/[q.bec]/(scot %da now)/arvo
|
||
|
|
=+ pax=`path`(weld top `path`[%hoon ~])
|
||
|
|
~& %plastic-start
|
||
|
|
=+ gen=(reck pax)
|
||
|
|
~& %plastic-parsed
|
||
|
|
=+ ken=q:(~(mint ut %noun) %noun gen)
|
||
|
|
~& %plastic-compiled
|
||
|
|
:- ken
|
||
|
|
=+ all=.*(0 ken)
|
||
|
|
=+ ^= vent
|
||
|
|
|= {abr/term nam/term}
|
||
|
|
=+ pax=(weld top `path`[nam ~])
|
||
|
|
=+ txt=.^(@ %cx (weld pax `path`[%hoon ~]))
|
||
|
|
`ovum`[[%vane nam ~] [%veer abr pax txt]]
|
||
|
|
=+ ^= evo
|
||
|
|
^- (list ovum)
|
||
|
|
:~ (vent %$ %zuse)
|
||
|
|
[[%name (scot %p who) ~] [%veal who]]
|
||
|
|
(vent %c %clay)
|
||
|
|
(vent %g %gall)
|
||
|
|
(vent %f %ford)
|
||
|
|
(vent %a %ames)
|
||
|
|
(vent %b %behn)
|
||
|
|
(vent %d %dill)
|
||
|
|
(vent %e %eyre)
|
||
|
|
==
|
||
|
|
|- ^+ all
|
||
|
|
?~ evo all
|
||
|
|
~& [%plastic-step p.i.evo]
|
||
|
|
=+ gat=.*(all .*(all [0 42]))
|
||
|
|
=+ nex=+:.*([-.gat [[now i.evo] +>.gat]] -.gat)
|
||
|
|
$(evo t.evo, all nex)
|