diff --git a/main/app/reboot/core.hook b/main/app/reboot/core.hook new file mode 100644 index 0000000000..167eec3439 --- /dev/null +++ b/main/app/reboot/core.hook @@ -0,0 +1,38 @@ +:: Reboot %zuse and all kernel vanes +:: +:::: /hook/core/reboot/app + :: +/+ sh-utils +!: +:::: + :: +|_ [hid=hide ~] +++ peer ,_`. +++ poke--args + %^ add-output . + rush/tang/[leaf/"done"]~ + %+ args-into-resp . + |= arg=~ + %- turn + :_ |= [tip=@tasD nam=@tas] + =+ pax=[(scot %p our.hid) %arvo (scot %da lat.hid) nam %hoon ~] + [%veer tip pax (,@ .^(%cx pax))] + %- flop + ^- (list ,[p=@tas q=@tas]) + :~ [%$ %zuse] + [%a %ames] + [%c %clay] + [%d %dill] + [%e %eyre] + [%f %ford] + [%g %gall] + [%t %time] + == +++ pour + %+ gate-bang + =+ pax=/(scot %p our.hid)/=/(scot %da lat.hid)/==count/txt + =+ nuf=(file pax) + =+ num=?~(nuf 0 +((fall (slaw %ud (,@t u.nuf)) 0))) + ,_[%c %info our.hid (foal pax num)] :: touch clay to reload apps + ,_`. +-- diff --git a/main/app/reload/core.hook b/main/app/reload/core.hook index 9f389f0740..bb76d99451 100644 --- a/main/app/reload/core.hook +++ b/main/app/reload/core.hook @@ -9,11 +9,10 @@ |_ [hid=hide ~] ++ peer ,_`. ++ poke--args - %- args-done %^ add-output . rush/tang/[leaf/"done"]~ - |= [ost=bone you=ship all=(list ,@tas)] - :_ +>.$ + %+ args-into-resp . + |= all=(list ,@tas) %+ turn (flop all) =+ ark=(arch .^(%cy /(scot %p our.hid)/arvo/(scot %da lat.hid))) =+ van=(~(tap by r.ark)) @@ -27,5 +26,5 @@ `term`p.i.zaz =+ tip=(end 3 1 nam) =+ pax=[(scot %p our.hid) %arvo (scot %da lat.hid) nam %hoon ~] - [ost %give %veer ?:(=('z' tip) %$ tip) pax (,@ .^(%cx pax))] + [%veer ?:(=('z' tip) %$ tip) pax (,@ .^(%cx pax))] -- diff --git a/main/app/reset/core.hook b/main/app/reset/core.hook index 813e7a2f8b..e3424e739e 100644 --- a/main/app/reset/core.hook +++ b/main/app/reset/core.hook @@ -8,10 +8,9 @@ |= [ost=bone you=ship ~] :_ +>.$ =+ top=`path`/(scot %p our.hid)/arvo/(scot %da lat.hid) - =+ pax=`path`(weld top `path`[%hoon ~]) :+ [ost %give %nice ~] [ost %pass / %t %wait lat.hid] - %- welp :_ [ost %give %vega pax]~ + %- welp :_ [ost %give %vega (weld top `path`/hoon)]~ %+ turn %- flop ^- (list ,[p=@tas q=@tas]) @@ -25,13 +24,13 @@ [%t %time] == |= [p=@tas q=@tas] - =+ pax=(weld top `path`[q ~]) - =+ txt=((hard ,@) .^(%cx (weld pax `path`[%hoon ~]))) + =+ pax=`path`(welp top /[q]) + =+ txt=((hard ,@) .^(%cx (welp pax /hoon))) [ost %give %veer p pax txt] ++ pour |= [ost=bone pax=path *] :_ +>.$ :_ ~ - =+ paf=/(scot %p our.hid)/main/(scot %da lat.hid)/app/reset/count/txt + =+ paf=/(scot %p our.hid)/=/(scot %da lat.hid)/==count/txt =+ nuf=(file paf) =+ num=?~(nuf 0 +((fall (slaw %ud (,@t u.nuf)) 0))) [ost %pass /touch %c %info our.hid (foal paf num)]