renames kernel upgrade initialization event from %vega to %lyra

This commit is contained in:
Joe Bryan 2019-02-01 14:02:33 -05:00
parent e9ee7ce5e3
commit 1dd30334af
4 changed files with 12 additions and 17 deletions

View File

@ -176,9 +176,9 @@
=+ way=?:(zus (welp top /sys/[nam]) (welp top /sys/vane/[nam]))
=+ fil=.^(@ %cx (welp way /hoon))
[%flog /reload [%veer ?:(=('z' tip) %$ tip) way fil]]
:: +poke-reset: send %vega to reboot kernel
:: +poke-reset: send %lyra to initiate kernel upgrade
::
:: And reinstall %zuse and the vanes.
:: And reinstall %zuse and the vanes with %veer.
:: Trigger with |reset.
::
++ poke-reset
@ -189,7 +189,7 @@
=/ top=path /(scot %p our)/home/(scot %da now)/sys
=/ hun .^(@ %cx (welp top /hoon/hoon))
=/ arv .^(@ %cx (welp top /arvo/hoon))
:- [%flog /reset [%vega `@t`hun `@t`arv]]
:- [%flog /reset [%lyra `@t`hun `@t`arv]]
%+ turn
(module-ova:pill top)
|=(a=[wire flog:dill] [%flog a])

View File

@ -667,9 +667,9 @@
|- ^- [(list ovum) *]
?~ ova
[(flop out) +>.^$]
:: upgrade the kernel -- %vega here is an effect from a vane
:: upgrade the kernel
::
?: ?=(%vega -.q.i.ova)
?: ?=(%lyra -.q.i.ova)
%+ fall
(vega now t.ova ({@ @} +.q.i.ova))
[~ +>.^$]

View File

@ -51,9 +51,9 @@
$% {$crud p/@tas q/(list tank)} ::
{$heft $~} ::
{$init p/ship} ::
{$lyra p/@t q/@t} :: upgrade kernel
{$text p/tape} ::
{$veer p/@ta q/path r/@t} :: install vane
{$vega p/@t q/@t} :: reboot by path
{$verb $~} :: verbose mode
== ::
++ note-eyre ::
@ -158,8 +158,8 @@
(crud p.kyz q.kyz)
$blew (send %rez p.p.kyz q.p.kyz)
$heft heft
$lyra (dump kyz)
$veer (dump kyz)
$vega ?>(?=(^ p.kyz) (dump kyz))
$verb (dump kyz)
==
::
@ -533,11 +533,7 @@
[~ ..^$]
:: a %vega notification on kernel upgrade comes in on an unfamiliar duct
::
:: XX note that this is different from the %vega that triggers
:: a kernel upgrade (from lib/hood/helm)
:: XX do something about this naming collision
::
?: ?=([%vega ~] task)
?: ?=(%vega -.task)
[~ ..^$]
::
=/ nus (ax hen)

View File

@ -622,10 +622,10 @@
{$burl p/@t} :: activate url
{$init p/@p} :: set owner
{$logo ~} :: logout
{$lyra p/@t q/@t} :: upgrade kernel
{$mass p/mass} :: memory usage
{$send p/lane:ames q/@} :: transmit packet
{$veer p/@ta q/path r/@t} :: install vane
{$vega p/@t q/@t} :: reboot
{$verb ~} :: verbose mode
== ::
++ task :: in request ->$
@ -640,14 +640,13 @@
{$hook ~} :: this term hung up
{$harm ~} :: all terms hung up
{$init p/ship} :: after gall ready
{$lyra p/@t q/@t} :: upgrade kernel
{$noop ~} :: no operation
{$sunk p=ship q=life} :: report death
{$talk p/tank} ::
{$text p/tape} ::
{$veer p/@ta q/path r/@t} :: install vane
:: XX gross hack to trigger or report upgrade
::
{$vega p/?(~ {p/@t q/@t})} :: reboot
{$vega ~} :: report upgrade
{$verb ~} :: verbose mode
== ::
-- ::able
@ -705,9 +704,9 @@
++ flog :: sent to %dill
$% {$crud p/@tas q/(list tank)} ::
{$heft ~} ::
{$lyra p/@t q/@t} :: upgrade kernel
{$text p/tape} ::
{$veer p/@ta q/path r/@t} :: install vane
{$vega p/@t q/@t} :: reboot
{$verb ~} :: verbose mode
== ::
-- ::dill