2015-05-07 05:31:54 +03:00
|
|
|
:: :: ::
|
|
|
|
|
:::: /hook/core/helm/ape :: ::
|
|
|
|
|
:: :: ::
|
|
|
|
|
/? 314 :: zuse version
|
|
|
|
|
/- *sole :: structures
|
|
|
|
|
/+ sole :: libraries
|
|
|
|
|
:: :: ::
|
|
|
|
|
:::: :: ::
|
|
|
|
|
!: :: ::
|
|
|
|
|
=> |% :: principal structures
|
|
|
|
|
++ helm-house :: all state
|
|
|
|
|
$: %0 :: state version
|
|
|
|
|
bur=(unit (pair ship mace)) :: requesting ticket
|
|
|
|
|
hoc=(map bone helm-session) :: consoles
|
|
|
|
|
== ::
|
|
|
|
|
++ helm-session ::
|
|
|
|
|
$: say=sole-share ::
|
|
|
|
|
mud=(unit (sole-dialog ,@ud)) ::
|
|
|
|
|
== ::
|
2015-05-10 01:35:57 +03:00
|
|
|
++ funk (pair ,@ ,@) ::
|
2015-05-07 05:31:54 +03:00
|
|
|
++ begs ,[his=@p tic=@p eny=@t ges=gens] :: begin data
|
|
|
|
|
++ helm-wish ::
|
|
|
|
|
$| $? %reset :: reset kernel
|
|
|
|
|
%verb :: verbose mode
|
|
|
|
|
== ::
|
|
|
|
|
$% [%reload p=(list term)] :: reload vanes
|
|
|
|
|
== ::
|
2015-05-11 20:53:47 +03:00
|
|
|
++ suss ,[term @tas @da] :: config report
|
2015-05-07 05:31:54 +03:00
|
|
|
++ dill :: sent to %dill
|
|
|
|
|
$% [%crud p=term q=(list tank)] :: fat report
|
|
|
|
|
[%text p=tape] :: thin report
|
|
|
|
|
[%veer p=@ta q=path r=@t] :: install vane
|
|
|
|
|
[%vega p=path] :: reboot by path
|
|
|
|
|
[%verb ~] :: verbose mode
|
|
|
|
|
== ::
|
|
|
|
|
++ card ::
|
|
|
|
|
$% [%cash wire p=@p q=buck] ::
|
|
|
|
|
[%conf wire dock %load ship term] ::
|
|
|
|
|
[%flog wire dill] ::
|
|
|
|
|
[%plug wire @p @tas @p @tas] ::
|
|
|
|
|
[%want wire sock path *] :: send message
|
|
|
|
|
== ::
|
|
|
|
|
++ move (pair bone card) :: user-level move
|
|
|
|
|
-- ::
|
|
|
|
|
:: ::
|
|
|
|
|
:::: ::
|
|
|
|
|
:: ::
|
|
|
|
|
|_ $: hid=hide :: system state
|
|
|
|
|
helm-house :: program state
|
|
|
|
|
== ::
|
|
|
|
|
++ he :: per session
|
|
|
|
|
|_ [[ost=bone moz=(list move)] helm-session] ::
|
|
|
|
|
++ he-abet :: resolve
|
|
|
|
|
[(flop moz) %_(+> hoc (~(put by hoc) ost +<+))] ::
|
|
|
|
|
:: ::
|
|
|
|
|
++ he-wish-start
|
2015-05-10 01:35:57 +03:00
|
|
|
|= dap=term
|
|
|
|
|
%_(+> moz :_(moz [ost %conf /start [our.hid dap] %load our.hid %main]))
|
2015-05-07 05:31:54 +03:00
|
|
|
::
|
|
|
|
|
++ he-wish-reset
|
|
|
|
|
^+ .
|
|
|
|
|
=- %_(+ moz (weld zum moz))
|
|
|
|
|
^= zum %- flop ^- (list move)
|
2015-05-08 22:43:11 +03:00
|
|
|
=+ top=`path`/(scot %p our.hid)/base/arvo/(scot %da lat.hid)
|
2015-05-07 05:31:54 +03:00
|
|
|
:- [ost %flog /reset %vega (weld top `path`/hoon)]
|
|
|
|
|
%+ turn
|
|
|
|
|
^- (list ,[p=@tas q=@tas])
|
|
|
|
|
:~ [%$ %zuse]
|
|
|
|
|
[%a %ames]
|
|
|
|
|
[%c %clay]
|
|
|
|
|
[%d %dill]
|
|
|
|
|
[%e %eyre]
|
|
|
|
|
[%f %ford]
|
|
|
|
|
[%g %gall]
|
|
|
|
|
[%t %time]
|
|
|
|
|
==
|
|
|
|
|
|= [p=@tas q=@tas]
|
|
|
|
|
=+ way=`path`(welp top /[q])
|
|
|
|
|
=+ txt=((hard ,@) .^(%cx (welp way /hoon)))
|
|
|
|
|
[ost %flog /reset %veer p way txt]
|
|
|
|
|
::
|
|
|
|
|
++ he-wish-reload
|
|
|
|
|
|= all=(list term)
|
|
|
|
|
%_ +>.$
|
|
|
|
|
moz
|
|
|
|
|
%- weld
|
|
|
|
|
:_ moz
|
|
|
|
|
%+ turn all
|
2015-05-08 22:43:11 +03:00
|
|
|
=+ ark=(arch .^(%cy /(scot %p our.hid)/base/(scot %da lat.hid)/arvo))
|
2015-05-07 05:31:54 +03:00
|
|
|
=+ van=(~(tap by r.ark))
|
|
|
|
|
|= nam=@tas
|
|
|
|
|
=. nam
|
|
|
|
|
?. =(1 (met 3 nam))
|
|
|
|
|
nam
|
|
|
|
|
=+ ^- zaz=(list ,[p=span ~])
|
|
|
|
|
(skim van |=([a=term ~] =(nam (end 3 1 a))))
|
|
|
|
|
?> ?=([[@ ~] ~] zaz)
|
|
|
|
|
`term`p.i.zaz
|
|
|
|
|
=+ tip=(end 3 1 nam)
|
2015-05-08 22:43:11 +03:00
|
|
|
=+ way=[(scot %p our.hid) %base (scot %da lat.hid) %arvo nam %hoon ~]
|
2015-05-07 05:31:54 +03:00
|
|
|
=+ fil=(,@ .^(%cx way))
|
|
|
|
|
:* ost
|
|
|
|
|
%flog
|
|
|
|
|
/reload
|
|
|
|
|
[%veer ?:(=('z' tip) %$ tip) way (,@ .^(%cx way))]
|
|
|
|
|
==
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ he-wish-verb
|
|
|
|
|
%_ .
|
|
|
|
|
moz
|
|
|
|
|
:_ moz
|
|
|
|
|
[ost %flog /verb %verb ~]
|
|
|
|
|
==
|
|
|
|
|
++ he-wish-init
|
|
|
|
|
|= him=ship
|
|
|
|
|
%_ +>.$
|
|
|
|
|
moz
|
|
|
|
|
:_ moz
|
|
|
|
|
[ost %flog /init %crud %hax-init leaf/(scow %p him) ~]
|
|
|
|
|
==
|
|
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
++ hake :: poke core
|
|
|
|
|
|= [ost=bone src=ship]
|
|
|
|
|
?> =(src our.hid)
|
|
|
|
|
~(. he [ost ~] (fall (~(get by hoc) ost) *helm-session))
|
|
|
|
|
::
|
|
|
|
|
++ poke-helm-reset
|
|
|
|
|
|= [from ~]
|
|
|
|
|
~& %poke-helm-reset
|
|
|
|
|
he-abet:he-wish-reset:(hake ost src)
|
|
|
|
|
::
|
|
|
|
|
++ poke-helm-verb
|
|
|
|
|
|= [from ~]
|
|
|
|
|
~& %poke-helm-verb
|
|
|
|
|
he-abet:he-wish-verb:(hake ost src)
|
|
|
|
|
::
|
|
|
|
|
++ poke-helm-init
|
|
|
|
|
|= [from him=ship]
|
|
|
|
|
~& %poke-helm-init
|
|
|
|
|
he-abet:(he-wish-init:(hake ost src) him)
|
|
|
|
|
::
|
|
|
|
|
++ poke-helm-reload
|
|
|
|
|
|= [from all=(list term)]
|
|
|
|
|
he-abet:(he-wish-reload:(hake ost src) all)
|
|
|
|
|
::
|
|
|
|
|
++ poke-helm-start
|
2015-05-10 01:35:57 +03:00
|
|
|
|= [from dap=term]
|
|
|
|
|
he-abet:(he-wish-start:(hake ost src) dap)
|
2015-05-07 05:31:54 +03:00
|
|
|
::
|
|
|
|
|
++ poke-helm-begin
|
|
|
|
|
|= [from begs]
|
|
|
|
|
~& %behn-helm-begin
|
|
|
|
|
?> ?=(~ bur)
|
|
|
|
|
=+ buz=(shax :(mix (jam ges) eny))
|
|
|
|
|
=+ loy=(bruw 2.048 buz)
|
|
|
|
|
:_ +>.$(bur `[his [0 sec:ex:loy]~])
|
|
|
|
|
:~ :* ost %want /ticketing [our.hid (sein his)] /q/ta
|
|
|
|
|
his tic ges pub:ex:loy
|
|
|
|
|
==
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ poke-will
|
|
|
|
|
|= [from wil=(unit will)]
|
|
|
|
|
?> ?=(^ bur)
|
|
|
|
|
:_ +>.$(bur ~)
|
|
|
|
|
?~ wil
|
|
|
|
|
!!
|
|
|
|
|
:~ [ost %cash ~ p.u.bur q.u.bur u.wil]
|
|
|
|
|
[ost %plug ~ our.hid %main (sein our.hid) %main]
|
|
|
|
|
[ost %plug ~ our.hid %arvo (sein our.hid) %arvo]
|
|
|
|
|
[ost %plug ~ our.hid %try (sein our.hid) %try]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ onto
|
|
|
|
|
|= [then saw=(each suss tang)]
|
|
|
|
|
:_ +> :_ ~
|
|
|
|
|
?- -.saw
|
2015-05-10 01:35:57 +03:00
|
|
|
%| [ost %pass ~ %flog %crud `@tas`-.way `tang`p.saw]
|
|
|
|
|
%& [ost %pass ~ %flog %text "<{<p.saw>}>"]
|
2015-05-07 05:31:54 +03:00
|
|
|
==
|
|
|
|
|
--
|
