2015-01-11 11:00:36 +03:00
|
|
|
:: Reload kernel vanes, specified by name or letter
|
|
|
|
|
::
|
|
|
|
|
:::: /hook/core/reload/app
|
|
|
|
|
::
|
2015-01-12 04:13:34 +03:00
|
|
|
/+ sh-utils
|
2014-10-04 02:31:16 +04:00
|
|
|
!:
|
2015-01-12 04:13:34 +03:00
|
|
|
::::
|
|
|
|
|
::
|
2014-10-04 02:31:16 +04:00
|
|
|
|_ [hid=hide ~]
|
2015-01-10 05:21:25 +03:00
|
|
|
++ peer ,_`.
|
2015-01-11 11:00:36 +03:00
|
|
|
++ poke--args
|
|
|
|
|
%^ add-output .
|
|
|
|
|
rush/tang/[leaf/"done"]~
|
2015-01-13 00:25:06 +03:00
|
|
|
%+ args-into-resp .
|
|
|
|
|
|= all=(list ,@tas)
|
2015-01-11 11:00:36 +03:00
|
|
|
%+ 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 ~]
|
2015-01-13 00:25:06 +03:00
|
|
|
[%veer ?:(=('z' tip) %$ tip) pax (,@ .^(%cx pax))]
|
2014-10-04 02:31:16 +04:00
|
|
|
--
|
