arvo: remove $hoof
=> |%
:: $card: tagged, untyped event
:: $ovum: card with cause
- :: $hoof: hoon source
:: $news: collated updates
:: $oped: module updates
:: $seed: next kernel source
::
- +$ hoof @t
+$ news
$: :: sys: installs + replacements
:: use: non-system files
use=(map path (cask))
==
+$ oped
- $: lul=(unit hoof)
- zus=(unit hoof)
- van=(list (cask hoof))
+ $: lul=(unit cord)
+ zus=(unit cord)
+ van=(list (cask cord))
==
- +$ seed [hun=(unit hoof) arv=hoof]
+ +$ seed [hun=(unit cord) arv=cord]
--
::
~% %part ..part ~
=> |%
:: deep file as source
::
- ++ sole |=(a=(cask) `hoof`?>(?=([%hoon @t] a) q.a))
+ ++ sole |=(a=(cask) `cord`?>(?=([%hoon @t] a) q.a))
--
|_ fat=(axal (cask))
::
:: %zuse is the subject of the vanes; force all if we have a new %zuse
::
=. all |(all ?=(^ zus))
- =| nav=(map term hoof)
+ =| nav=(map term cord)
=? nav all
%- ~(gas by nav)
%+ turn
|=([p=path *] ?=([%sys %vane @tas ~] p))
fat
|= [[p=path q=(cask)] taf=_fat]
- ^- (pair (cask hoof) _fat)
+ ^- (pair (cask cord) _fat)
?> ?=([%sys %vane @tas ~] p)
=* nam i.t.t.p
?> ((sane %tas) nam)
%= ..pith
van.mod
%+ roll van.job
- |= [[nam=term txt=hoof] van=_van.mod.sol]
+ |= [[nam=term txt=cord] van=_van.mod.sol]
^+ van
=/ nex (create:va our zus.mod.sol nam /sys/vane/[nam]/hoon txt)
=/ nav (~(get by van) nam)
?. ?=(^ zus)
~|(%larval-need-zuse !!)
%+ roll van.job
- |= [[nam=term txt=hoof:part] =_van]
+ |= [[nam=term txt=cord] =_van]
^+ van
%+ ~(put by van) nam
(smit "vane %{(trip nam)}" u.zus /sys/vane/[nam]/hoon txt)
