ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-29 23:12:08 +03:00
Code Issues Packages Projects Releases Wiki Activity

Forgot a file.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-05-11 11:05:14 -07:00
parent 66f7b16d5e
commit 1a7b72fbe9
1 changed files with 99 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
base/ape/hood/core.hook Normal file
View File

@ -0,0 +1,99 @@
:: :: ::
:::: /hook/core/hood/ape :: ::
:: :: ::
/? 314 :: zuse version
/- *sole :: structures
/+ sole, helm :: libraries
:: :: ::
:::: :: ::
!: :: ::
=> |% :: gall boilerplate
++ suss ,[term @tas @da] :: config report
++ dill :: sent to %dill
$% [%crud p=term q=tang] :: 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
--
=> |% :: module boilerplate
++ hood-good ::
|* hed=hood-head ::
|= paw=hood-part ::
?- hed ::
%helm ?>(?=(%helm -.paw) `helm-part`paw) ::
== ::
++ hood-head ,_-:*hood-part ::
++ hood-mold ::
|= hed=hood-head ::
?- hed ::
%helm helm-part ::
== ::
++ hood-part ::
$? helm-part ::
== ::
-- ::
:: :: ::
:::: :: ::
:: :: ::
|_ $: hid=hide :: system state
moz=(list move) :: transient moves
lac=(map ,@tas hood-part) :: part system
== ::
++ abet [(flop moz) .(moz ~)] :: resolve core
++ able :: find/make part
|* hed=hood-head
=+ rep=(~(get by lac) hed)
((hood-good hed) ?^(rep u.rep `hood-part`*(hood-mold hed)))
::
++ ably :: save part
|= [moz=(list move) rep=hood-part]
%_ +>
moz (weld moz ^moz)
lac (~(put by lac) -.rep rep)
==
:: :: ::
:::: :: ::
:: :: ::
++ poke-helm-begin ::
|= [from helm-begin]
abet:(ably (poke-begin:(helm-work [hid +<-] (able %helm)) +<+))
::
++ poke-helm-init ::
|= [from helm-init]
abet:(ably (poke-init:(helm-work [hid +<-] (able %helm)) +<+))
::
++ poke-helm-reload ::
|= [from helm-reload]
abet:(ably (poke-reload:(helm-work [hid +<-] (able %helm)) +<+))
::
++ poke-helm-reset ::
|= [from ~]
abet:(ably (poke-reset:(helm-work [hid +<-] (able %helm)) +<+))
::
++ poke-helm-verb ::
|= [from ~]
abet:(ably (poke-verb:(helm-work [hid +<-] (able %helm)) +<+))
::
++ poke-helm-start ::
|= [from helm-start]
abet:(ably (poke-start:(helm-work [hid +<-] (able %helm)) +<+))
::
++ poke-will ::
|= [from (unit will)]
abet:(ably (poke-will:(helm-work [hid +<-] (able %helm)) +<+))
::
++ onto-helm ::
|= [then saw=(each suss tang)]
^- (quip move +>)
abet:(ably (take-onto:(helm-work [hid ost src] (able %helm)) +<+))
--