urbit/main/app/reload/core.hook
2015-01-11 17:13:34 -08:00

32 lines
758 B
Plaintext

:: Reload kernel vanes, specified by name or letter
::
:::: /hook/core/reload/app
::
/+ sh-utils
!:
::::
::
|_ [hid=hide ~]
++ peer ,_`.
++ poke--args
%- args-done
%^ add-output .
rush/tang/[leaf/"done"]~
|= [ost=bone you=ship all=(list ,@tas)]
:_ +>.$
%+ turn (flop all)
=+ ark=(arch .^(%cy /(scot %p our.hid)/arvo/(scot %da lat.hid)))
=+ van=(~(tap by r.ark))
|= nam=@tas
=. nam
?. =(1 (met 3 nam))
nam
=+ ^- zaz=(list ,[p=span ~])
(murn van (flit |=([a=term ~] =(nam (end 3 1 a)))))
?> ?=([[@ ~] ~] zaz)
`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))]
--