2016-10-22 02:44:39 +03:00
|
|
|
:: Compile arvo as a pill noun, usage .urbit/pill +solid
|
2015-06-18 04:08:47 +03:00
|
|
|
::
|
2016-02-11 03:41:28 +03:00
|
|
|
:::: /hoon/solid/gen
|
2015-06-18 04:08:47 +03:00
|
|
|
::
|
2016-02-17 04:40:32 +03:00
|
|
|
/? 310
|
2015-06-18 04:08:47 +03:00
|
|
|
::
|
|
|
|
|
::::
|
2016-11-17 04:42:58 +03:00
|
|
|
::
|
2015-09-12 03:24:51 +03:00
|
|
|
:- %say
|
2016-08-11 21:15:06 +03:00
|
|
|
|= $: {now/@da eny/@uvJ bec/beak}
|
2015-12-10 12:17:19 +03:00
|
|
|
{$~ $~}
|
2015-06-18 04:08:47 +03:00
|
|
|
==
|
|
|
|
|
:- %noun
|
2015-11-11 01:40:52 +03:00
|
|
|
=+ top=`path`/(scot %p p.bec)/[q.bec]/(scot %da now)/arvo
|
2015-06-18 04:08:47 +03:00
|
|
|
=+ 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)
|
2015-12-20 23:50:45 +03:00
|
|
|
=+ ^= vay ^- (list {p/@tas q/@tas})
|
2015-06-18 04:08:47 +03:00
|
|
|
:~ [%$ %zuse]
|
2016-02-01 09:16:26 +03:00
|
|
|
[%c %clay]
|
2015-06-18 04:08:47 +03:00
|
|
|
[%g %gall]
|
|
|
|
|
[%f %ford]
|
|
|
|
|
[%a %ames]
|
2015-06-24 22:50:30 +03:00
|
|
|
[%b %behn]
|
2015-06-18 04:08:47 +03:00
|
|
|
[%d %dill]
|
|
|
|
|
[%e %eyre]
|
|
|
|
|
==
|
|
|
|
|
|- ^+ all
|
|
|
|
|
?~ vay all
|
|
|
|
|
=+ pax=(weld top `path`[q.i.vay ~])
|
2016-01-26 03:47:58 +03:00
|
|
|
=+ txt=.^(@ %cx (weld pax `path`[%hoon ~]))
|
2015-06-18 04:08:47 +03:00
|
|
|
=+ 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)
|
