shrub/pkg/arvo/gen/solid.hoon

50 lines
1.1 KiB
Plaintext
Raw Normal View History

:: Compile arvo as a pill noun, without compiler changes.
2019-01-18 08:37:34 +03:00
:: 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
::
/? 310
/+ pill
2015-06-18 04:08:47 +03:00
::
::::
!:
2015-09-12 03:24:51 +03:00
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
::
:: arg: desks to build pill from
::
:: list of desks. defaults to [%base]~.
:: the first desk in this list will become the pill's base desk.
:: optionally, the first desk may be replaced with a fully
:: qualified path to the new boot system (typically in sys).
:: the rest of the desks will be installed through kiln.
::
$= arg
$@ ~
$: base=$@(desk [@ta @ta @ta path])
rest=(list desk)
==
::
dub=_|
prime=_|
2015-06-18 04:08:47 +03:00
==
:- %pill
2021-07-26 08:26:49 +03:00
^- pill:pill
::
=/ sys=path
?: ?=([^ *] arg)
`path`base.arg
=/ =desk
?~ arg %base
?>(?=(@ base.arg) base.arg)
/(scot %p p.bec)/[desk]/(scot %da now)/sys
=/ dez=(list [desk path])
?~ arg ~
%+ turn rest.arg
|= =desk
[desk /(scot %p p.bec)/[desk]/(scot %da now)]
::
(solid:pill sys dez dub now prime)