urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-04 10:32:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix |reset.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-10-18 20:50:48 -07:00
parent 6df5e754fa
commit 8b727d48ca
4 changed files with 45 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lib/helm.hoon
View File

@ -170,6 +170,29 @@
(said:talk our %helm now eny [%leaf "invited: {<who>} at {(trip myl)}"]~) (said:talk our %helm now eny [%leaf "invited: {<who>} at {(trip myl)}"]~)
:: ::
++ poke-reset :: reset system ++ poke-reset :: reset system
|= hood-reset =< abet
%- emil
%- flop ^- (list card)
=+ top=`path`/(scot %p our)/home/(scot %da now)/sys
:- [%flog /reset %vega (weld top /hoon) (weld top /ovra)]
%+ turn
^- (list {p/@tas q/path})
:~ [%$ /zuse]
[%a /vane/ames]
[%b /vane/behn]
[%c /vane/clay]
[%d /vane/dill]
[%e /vane/eyre]
[%f /vane/ford]
[%g /vane/gall]
==
|= {p/@tas q/path}
=+ way=`path`(welp top q)
=+ txt=.^(@ %cx (welp way /hoon))
~& [%reset-veer p way]
[%flog /reset %veer p way txt]
::
++ poke-meset :: reset system (new)
|= hood-reset =< abet |= hood-reset =< abet
%- emil %- emil
%- flop ^- (list card) %- flop ^- (list card)
@ -188,7 +211,7 @@
[%e %eyre] [%e %eyre]
[%f %ford] [%f %ford]
[%g %gall] [%g %gall]
:: [%j %jael] [%j %jael]
== ==
|= {p/@tas q/@tas} |= {p/@tas q/@tas}
=+ way=`path`(welp top /vane/[q]) =+ way=`path`(welp top /vane/[q])

22
sys/ovra.hoon
View File

@ -486,7 +486,9 @@
?: ?=($veer -.q.i.ova) ?: ?=($veer -.q.i.ova)
$(ova t.ova, +>+.^$ (veer now q.i.ova)) $(ova t.ova, +>+.^$ (veer now q.i.ova))
?: ?=($vega -.q.i.ova) ?: ?=($vega -.q.i.ova)
(fall (vega now t.ova (path +.q.i.ova)) [~ +>.^$]) %+ fall
(vega now t.ova (path +<.q.i.ova) (path +>.q.i.ova))
[~ +>.^$]
?: ?=($mass -.q.i.ova) ?: ?=($mass -.q.i.ova)
=+ avo=$(ova t.ova) =+ avo=$(ova t.ova)
:_ +.avo :_ +.avo
@ -550,17 +552,24 @@
[zef +>.$] [zef +>.$]
:: ::
++ vega :: reboot kernel ++ vega :: reboot kernel
|= {now/@da ova/(list ovum) hap/path} |= {now/@da ova/(list ovum) hap/path zup/path}
^- (unit {p/(list ovum) q/*}) ^- (unit {p/(list ovum) q/*})
=- ?:(?=($| -.res) ((slog p.res) ~) `p.res) =- ?:(?=($| -.res) ((slog p.res) ~) `p.res)
^= res %- mule |. ^= res %- mule |.
=+ pax=(weld hap `path`[%hoon ~]) =+ pax=(weld hap `path`[%hoon ~])
~& [%vega-start hap] =+ wax=(weld zup `path`[%hoon ~])
~& [%vega-start-hoon hap]
=+ src=((hard @t) (need (peek now cx+pax))) =+ src=((hard @t) (need (peek now cx+pax)))
=+ saz=(shax src) =+ arv=((hard @t) (need (peek now cx+wax)))
=+ gen=(rain hap src) =+ gen=(rain hap src)
~& %vega-parsed ~& %vega-parsed
=+ ken=.*(0 q:(~(mint ut %noun) %noun gen)) =+ one=(~(mint ut %noun) %noun gen)
~& %vega-compiled
~& [%vega-arvo zup]
=+ two=(~(mint ut p.one) %noun (rain zup arv))
~& %vega-minted
=+ ken=.*(0 [7 q.one q.two])
~& [%vega-kernel `@ux`(mug ken)]
=+ ^= nex =+ ^= nex
=+ gat=.*(ken .*(ken [0 87])) =+ gat=.*(ken .*(ken [0 87]))
(need ((hard (unit @)) .*([-.gat [[now ~] +>.gat]] -.gat))) (need ((hard (unit @)) .*([-.gat [[now ~] +>.gat]] -.gat)))
@ -569,7 +578,8 @@
=+ gat=.*(ken .*(ken [0 ?:(=(nex hoon) 86 11)])) =+ gat=.*(ken .*(ken [0 ?:(=(nex hoon) 86 11)]))
=+ sam=[eny ova q.niz] =+ sam=[eny ova q.niz]
=+ raw=.*([-.gat [sam +>.gat]] -.gat) =+ raw=.*([-.gat [sam +>.gat]] -.gat)
[[[~ %vega hap] ((list ovum) -.raw)] +.raw] =+ yep=((list ovum) -.raw)
[[[~ %vega hap] yep] +.raw]
:: ::
++ veer :: install vane/tang ++ veer :: install vane/tang
|= {now/@da fav/curd} |= {now/@da fav/curd}

2
sys/vane/dill.hoon
View File

@ -56,7 +56,7 @@
{$init p/ship} :: {$init p/ship} ::
{$text p/tape} :: {$text p/tape} ::
{$veer p/@ta q/path r/@t} :: install vane {$veer p/@ta q/path r/@t} :: install vane
{$vega p/path} :: reboot by path {$vega p/path q/path} :: reboot by path
{$velo p/@t q/@t} :: reboot by path {$velo p/@t q/@t} :: reboot by path
{$verb $~} :: verbose mode {$verb $~} :: verbose mode
== :: == ::

8
sys/zuse.hoon
View File

@ -511,7 +511,7 @@
{$mass p/mass} :: memory usage {$mass p/mass} :: memory usage
{$send p/lane:ames q/@} :: transmit packet {$send p/lane:ames q/@} :: transmit packet
{$veer p/@ta q/path r/@t} :: install vane {$veer p/@ta q/path r/@t} :: install vane
{$vega p/path} :: old reboot {$vega p/path q/path} :: old reboot
{$velo p/@t q/@t} :: reboot {$velo p/@t q/@t} :: reboot
{$verb $~} :: verbose mode {$verb $~} :: verbose mode
== :: == ::
@ -532,7 +532,7 @@
{$talk p/tank} :: {$talk p/tank} ::
{$text p/tape} :: {$text p/tape} ::
{$veer p/@ta q/path r/@t} :: install vane {$veer p/@ta q/path r/@t} :: install vane
{$vega p/path} :: old reboot {$vega p/path q/path} :: old reboot
{$velo p/@t q/@t} :: reboot {$velo p/@t q/@t} :: reboot
{$verb $~} :: verbose mode {$verb $~} :: verbose mode
== :: == ::
@ -593,7 +593,7 @@
{$heft $~} :: {$heft $~} ::
{$text p/tape} :: {$text p/tape} ::
{$veer p/@ta q/path r/@t} :: install vane {$veer p/@ta q/path r/@t} :: install vane
{$vega p/path} :: old reboot {$vega p/path q/path} :: old reboot
{$velo p/@t q/@t} :: reboot {$velo p/@t q/@t} :: reboot
{$verb $~} :: verbose mode {$verb $~} :: verbose mode
== :: == ::
@ -623,7 +623,7 @@
{$thou p/httr} :: raw http response {$thou p/httr} :: raw http response
{$thus p/@ud q/(unit hiss)} :: http request+cancel {$thus p/@ud q/(unit hiss)} :: http request+cancel
{$veer p/@ta q/path r/@t} :: drop-through {$veer p/@ta q/path r/@t} :: drop-through
{$vega p/path} :: drop-through {$vega p/path q/path} :: drop-through
{$velo p/@t q/@t} :: drop-through {$velo p/@t q/@t} :: drop-through
{$mini-jael-gift *} {$mini-jael-gift *}
== :: == ::