mirror of
https://github.com/urbit/shrub.git
synced 2024-12-12 10:29:01 +03:00
fully namespace drum/helm/kiln
This commit is contained in:
Anton Dyudin
parent
3f06652142
commit
760ae2f114
@ -4,11 +4,7 @@
|
|||||||
/? 310 :: zuse version
|
/? 310 :: zuse version
|
||||||
/+ sole, talk, :: libraries
|
/+ sole, talk, :: libraries
|
||||||
hood-helm, hood-kiln, hood-drum, hood-write, hood-womb :: "libraries"
|
hood-helm, hood-kiln, hood-drum, hood-write, hood-womb :: "libraries"
|
||||||
[. hood-helm hood-kiln hood-drum]
|
|
||||||
|%
|
|%
|
||||||
++ womb hood-womb
|
|
||||||
++ write hood-write
|
|
||||||
::
|
|
||||||
++ hood-sample
|
++ hood-sample
|
||||||
=> |%
|
=> |%
|
||||||
+= part [%sample %0 pith]
|
+= part [%sample %0 pith]
|
||||||
@ -36,21 +32,21 @@
|
|||||||
|* hed/hood-head ::
|
|* hed/hood-head ::
|
||||||
|= paw/hood-part ::
|
|= paw/hood-part ::
|
||||||
?- hed ::
|
?- hed ::
|
||||||
$drum ?>(?=($drum -.paw) `drum-part`paw) ::
|
$drum ?>(?=($drum -.paw) `part:hood-drum`paw) ::
|
||||||
$helm ?>(?=($helm -.paw) `helm-part`paw) ::
|
$helm ?>(?=($helm -.paw) `part:hood-helm`paw) ::
|
||||||
$kiln ?>(?=($kiln -.paw) `kiln-part`paw) ::
|
$kiln ?>(?=($kiln -.paw) `part:hood-kiln`paw) ::
|
||||||
$womb ?>(?=($womb -.paw) `part:womb`paw) ::
|
$womb ?>(?=($womb -.paw) `part:hood-womb`paw) ::
|
||||||
$write ?>(?=($write -.paw) `part:write`paw) ::
|
$write ?>(?=($write -.paw) `part:hood-write`paw) ::
|
||||||
== ::
|
== ::
|
||||||
++ hood-head _-:*hood-part ::
|
++ hood-head _-:*hood-part ::
|
||||||
++ hood-make ::
|
++ hood-make ::
|
||||||
|* {our/@p hed/hood-head} ::
|
|* {our/@p hed/hood-head} ::
|
||||||
?- hed ::
|
?- hed ::
|
||||||
$drum (drum-make our) ::
|
$drum (make:hood-drum our) ::
|
||||||
$helm *helm-part ::
|
$helm *part:hood-helm ::
|
||||||
$kiln *kiln-part ::
|
$kiln *part:hood-kiln ::
|
||||||
$womb *part:womb ::
|
$womb *part:hood-womb ::
|
||||||
$write *part:write ::
|
$write *part:hood-write ::
|
||||||
== ::
|
== ::
|
||||||
++ hood-part-old hood-part ::
|
++ hood-part-old hood-part ::
|
||||||
++ hood-port ::
|
++ hood-port ::
|
||||||
@ -58,11 +54,11 @@
|
|||||||
paw ::
|
paw ::
|
||||||
:: ::
|
:: ::
|
||||||
++ hood-part ::
|
++ hood-part ::
|
||||||
$% {$drum $2 drum-pith-2} ::
|
$% {$drum $2 pith-2:hood-drum} ::
|
||||||
{$helm $0 helm-pith} ::
|
{$helm $0 pith:hood-helm} ::
|
||||||
{$kiln $0 kiln-pith} ::
|
{$kiln $0 pith:hood-kiln} ::
|
||||||
{$womb $1 pith:womb} ::
|
{$womb $1 pith:hood-womb} ::
|
||||||
{$write $0 pith:write} ::
|
{$write $0 pith:hood-write} ::
|
||||||
== ::
|
== ::
|
||||||
-- ::
|
-- ::
|
||||||
:: :: ::
|
:: :: ::
|
||||||
@ -108,7 +104,7 @@
|
|||||||
::
|
::
|
||||||
++ poke-hood-load
|
++ poke-hood-load
|
||||||
|= dat/hood-part
|
|= dat/hood-part
|
||||||
?> =(our src)
|
?> =(our.hid src.hid)
|
||||||
~& loaded+-.dat
|
~& loaded+-.dat
|
||||||
[~ %_(+> lac (~(put by lac) -.dat dat))]
|
[~ %_(+> lac (~(put by lac) -.dat dat))]
|
||||||
::
|
::
|
||||||
@ -140,7 +136,7 @@
|
|||||||
++ note-helm (wrap take-note):from-helm
|
++ note-helm (wrap take-note):from-helm
|
||||||
++ onto-drum (wrap take-onto):from-drum
|
++ onto-drum (wrap take-onto):from-drum
|
||||||
++ peer-drum (wrap peer):from-drum
|
++ peer-drum (wrap peer):from-drum
|
||||||
++ peek-x-womb peek-x:(womb hid (able %womb))
|
++ peek-x-womb peek-x:(hood-womb hid (able %womb))
|
||||||
++ peer-scry-x-womb (wrap peer-scry-x):from-womb
|
++ peer-scry-x-womb (wrap peer-scry-x):from-womb
|
||||||
++ poke-atom (wrap poke-atom):from-helm
|
++ poke-atom (wrap poke-atom):from-helm
|
||||||
++ poke-dill-belt (wrap poke-dill-belt):from-drum
|
++ poke-dill-belt (wrap poke-dill-belt):from-drum
|
||||||
|
|||||||
@ -9,18 +9,18 @@
|
|||||||
:::: :: ::
|
:::: :: ::
|
||||||
:: :: ::
|
:: :: ::
|
||||||
|% :: ::
|
|% :: ::
|
||||||
++ drum-part {$drum $2 drum-pith-2} ::
|
++ part {$drum $2 pith-2} ::
|
||||||
++ drum-part-old {$drum $1 drum-pith-1} ::
|
++ part-old {$drum $1 pith-1} ::
|
||||||
:: ::
|
:: ::
|
||||||
++ drum-pith-1 :: pre-style
|
++ pith-1 :: pre-style
|
||||||
%+ cork drum-pith-2 ::
|
%+ cork pith-2 ::
|
||||||
|=(drum-pith-2 +<(bin *(map bone source-1))) ::
|
|=(pith-2 +<(bin *(map bone source-1))) ::
|
||||||
:: ::
|
:: ::
|
||||||
++ source-1 ::
|
++ source-1 ::
|
||||||
%+ cork source ::
|
%+ cork source ::
|
||||||
|=(source +<(mir *(pair @ud (list @c)))) :: style-less mir
|
|=(source +<(mir *(pair @ud (list @c)))) :: style-less mir
|
||||||
:: ::
|
:: ::
|
||||||
++ drum-pith-2 ::
|
++ pith-2 ::
|
||||||
$: sys/(unit bone) :: local console
|
$: sys/(unit bone) :: local console
|
||||||
eel/(set gill:gall) :: connect to
|
eel/(set gill:gall) :: connect to
|
||||||
ray/(set well:gall) ::
|
ray/(set well:gall) ::
|
||||||
@ -92,9 +92,9 @@
|
|||||||
[[(sein:title our) %talk] [our %dojo] ~]
|
[[(sein:title our) %talk] [our %dojo] ~]
|
||||||
[[our %talk] [our %dojo] ~]
|
[[our %talk] [our %dojo] ~]
|
||||||
::
|
::
|
||||||
++ drum-make :: initial part
|
++ make :: initial part
|
||||||
|= our/ship
|
|= our/ship
|
||||||
^- drum-part
|
^- part
|
||||||
:* %drum
|
:* %drum
|
||||||
%2
|
%2
|
||||||
~ :: sys
|
~ :: sys
|
||||||
@ -104,19 +104,20 @@
|
|||||||
~ :: bin
|
~ :: bin
|
||||||
== ::
|
== ::
|
||||||
::
|
::
|
||||||
++ drum-path :: encode path
|
::
|
||||||
|
++ en-gill :: gill to wire
|
||||||
|= gyl/gill:gall
|
|= gyl/gill:gall
|
||||||
^- wire
|
^- wire
|
||||||
[%drum %phat (scot %p p.gyl) q.gyl ~]
|
[%drum %phat (scot %p p.gyl) q.gyl ~]
|
||||||
::
|
::
|
||||||
++ drum-phat :: decode path
|
++ de-gill :: gill from wire
|
||||||
|= way/wire ^- gill:gall
|
|= way/wire ^- gill:gall
|
||||||
?>(?=({@ @ $~} way) [(slav %p i.way) i.t.way])
|
?>(?=({@ @ $~} way) [(slav %p i.way) i.t.way])
|
||||||
--
|
--
|
||||||
::
|
::
|
||||||
::::
|
::::
|
||||||
::
|
::
|
||||||
|= {hid/bowl:gall drum-part} :: main drum work
|
|= {hid/bowl:gall part} :: main drum work
|
||||||
=+ (fall (~(get by bin) ost.hid) *source)
|
=+ (fall (~(get by bin) ost.hid) *source)
|
||||||
=* dev -
|
=* dev -
|
||||||
=> |% :: arvo structures
|
=> |% :: arvo structures
|
||||||
@ -140,7 +141,7 @@
|
|||||||
++ diff-sole-effect-phat :: app event
|
++ diff-sole-effect-phat :: app event
|
||||||
|= {way/wire fec/sole-effect}
|
|= {way/wire fec/sole-effect}
|
||||||
=< se-abet =< se-view
|
=< se-abet =< se-view
|
||||||
=+ gyl=(drum-phat way)
|
=+ gyl=(de-gill way)
|
||||||
?: (se-aint gyl) +>.$
|
?: (se-aint gyl) +>.$
|
||||||
(se-diff gyl fec)
|
(se-diff gyl fec)
|
||||||
::
|
::
|
||||||
@ -182,7 +183,7 @@
|
|||||||
++ reap-phat :: ack connect
|
++ reap-phat :: ack connect
|
||||||
|= {way/wire saw/(unit tang)}
|
|= {way/wire saw/(unit tang)}
|
||||||
=< se-abet =< se-view
|
=< se-abet =< se-view
|
||||||
=+ gyl=(drum-phat way)
|
=+ gyl=(de-gill way)
|
||||||
?~ saw
|
?~ saw
|
||||||
(se-join gyl)
|
(se-join gyl)
|
||||||
(se-dump:(se-drop & gyl) u.saw)
|
(se-dump:(se-drop & gyl) u.saw)
|
||||||
@ -191,7 +192,7 @@
|
|||||||
|= {way/wire saw/(unit tang)}
|
|= {way/wire saw/(unit tang)}
|
||||||
=< se-abet =< se-view
|
=< se-abet =< se-view
|
||||||
?~ saw +>
|
?~ saw +>
|
||||||
=+ gyl=(drum-phat way)
|
=+ gyl=(de-gill way)
|
||||||
?: (se-aint gyl) +>.$
|
?: (se-aint gyl) +>.$
|
||||||
%- se-dump:(se-drop & gyl)
|
%- se-dump:(se-drop & gyl)
|
||||||
:_ u.saw
|
:_ u.saw
|
||||||
@ -213,15 +214,15 @@
|
|||||||
++ quit-phat ::
|
++ quit-phat ::
|
||||||
|= way/wire
|
|= way/wire
|
||||||
=< se-abet =< se-view
|
=< se-abet =< se-view
|
||||||
=+ gyl=(drum-phat way)
|
=+ gyl=(de-gill way)
|
||||||
~& [%drum-quit src.hid ost.hid gyl]
|
~& [%drum-quit src.hid ost.hid gyl]
|
||||||
(se-drop %| gyl)
|
(se-drop %| gyl)
|
||||||
:: :: ::
|
:: :: ::
|
||||||
:::: :: ::
|
:::: :: ::
|
||||||
:: :: ::
|
:: :: ::
|
||||||
++ se-abet :: resolve
|
++ se-abet :: resolve
|
||||||
^- (quip move drum-part)
|
^- (quip move part)
|
||||||
=* pith +>+>+<+
|
=* pith +<+.$
|
||||||
?. se-ably
|
?. se-ably
|
||||||
=. . se-adit
|
=. . se-adit
|
||||||
[(flop moz) pith]
|
[(flop moz) pith]
|
||||||
@ -449,16 +450,16 @@
|
|||||||
::
|
::
|
||||||
++ se-poke :: send a poke
|
++ se-poke :: send a poke
|
||||||
|= {gyl/gill:gall par/pear}
|
|= {gyl/gill:gall par/pear}
|
||||||
(se-emit [ost.hid %poke (drum-path gyl) gyl par])
|
(se-emit [ost.hid %poke (en-gill gyl) gyl par])
|
||||||
::
|
::
|
||||||
++ se-peer :: send a peer
|
++ se-peer :: send a peer
|
||||||
|= gyl/gill:gall
|
|= gyl/gill:gall
|
||||||
%- se-emit(fug (~(put by fug) gyl ~))
|
%- se-emit(fug (~(put by fug) gyl ~))
|
||||||
[ost.hid %peer (drum-path gyl) gyl /sole]
|
[ost.hid %peer (en-gill gyl) gyl /sole]
|
||||||
::
|
::
|
||||||
++ se-pull :: cancel subscription
|
++ se-pull :: cancel subscription
|
||||||
|= gyl/gill:gall
|
|= gyl/gill:gall
|
||||||
(se-emit [ost.hid %pull (drum-path gyl) gyl ~])
|
(se-emit [ost.hid %pull (en-gill gyl) gyl ~])
|
||||||
::
|
::
|
||||||
++ se-tame :: switch connection
|
++ se-tame :: switch connection
|
||||||
|= gyl/gill:gall
|
|= gyl/gill:gall
|
||||||
|
|||||||
@ -9,12 +9,12 @@
|
|||||||
:::: :: ::
|
:::: :: ::
|
||||||
:: :: ::
|
:: :: ::
|
||||||
|% :: ::
|
|% :: ::
|
||||||
++ helm-part {$helm $0 helm-pith} :: helm state
|
++ part {$helm $0 pith} :: helm state
|
||||||
++ helm-pith :: helm content
|
++ pith :: helm content
|
||||||
$: bur/(unit (pair ship mace:ames)) :: requesting ticket
|
$: bur/(unit (pair ship mace:ames)) :: requesting ticket
|
||||||
hoc/(map bone helm-session) :: consoles
|
hoc/(map bone session) :: consoles
|
||||||
== ::
|
== ::
|
||||||
++ helm-session ::
|
++ session ::
|
||||||
$: say/sole-share :: console state
|
$: say/sole-share :: console state
|
||||||
mud/(unit (sole-dialog @ud)) :: console dialog
|
mud/(unit (sole-dialog @ud)) :: console dialog
|
||||||
== ::
|
== ::
|
||||||
@ -43,8 +43,8 @@
|
|||||||
:: :: ::
|
:: :: ::
|
||||||
:::: :: ::
|
:::: :: ::
|
||||||
:: :: ::
|
:: :: ::
|
||||||
|= {bowl:gall helm-part} :: main helm work
|
|= {bowl:gall part} :: main helm work
|
||||||
=+ sez=(fall (~(get by hoc) ost) *helm-session)
|
=+ sez=(fall (~(get by hoc) ost) *session)
|
||||||
=> |% :: arvo structures
|
=> |% :: arvo structures
|
||||||
++ card ::
|
++ card ::
|
||||||
$% {$cash wire p/@p q/buck:ames} ::
|
$% {$cash wire p/@p q/buck:ames} ::
|
||||||
@ -66,7 +66,7 @@
|
|||||||
--
|
--
|
||||||
|_ moz/(list move)
|
|_ moz/(list move)
|
||||||
++ abet :: resolve
|
++ abet :: resolve
|
||||||
[(flop moz) %_(+>+>+<+ hoc (~(put by hoc) ost sez))]
|
[(flop moz) %_(+<+.$ hoc (~(put by hoc) ost sez))]
|
||||||
::
|
::
|
||||||
++ emit |=(card %_(+> moz [[ost +<] moz])) :: return card
|
++ emit |=(card %_(+> moz [[ost +<] moz])) :: return card
|
||||||
++ emil :: return cards
|
++ emil :: return cards
|
||||||
|
|||||||
@ -9,9 +9,9 @@
|
|||||||
=, space:userlib
|
=, space:userlib
|
||||||
=, format
|
=, format
|
||||||
|% :: ::
|
|% :: ::
|
||||||
++ kiln-part {$kiln $0 kiln-pith} :: kiln state
|
++ part {$kiln $0 pith} :: kiln state
|
||||||
++ kiln-pith ::
|
++ pith :: ::
|
||||||
$: rem/(map desk kiln-desk) ::
|
$: rem/(map desk per-desk) ::
|
||||||
syn/(map kiln-sync {let/@ud ust/bone}) ::
|
syn/(map kiln-sync {let/@ud ust/bone}) ::
|
||||||
autoload-on/? ::
|
autoload-on/? ::
|
||||||
cur-hoon/@uvI ::
|
cur-hoon/@uvI ::
|
||||||
@ -19,7 +19,7 @@
|
|||||||
cur-zuse/@uvI ::
|
cur-zuse/@uvI ::
|
||||||
cur-vanes/(map @tas @uvI) ::
|
cur-vanes/(map @tas @uvI) ::
|
||||||
== ::
|
== ::
|
||||||
++ kiln-desk :: per-desk state
|
++ per-desk :: per-desk state
|
||||||
$: auto/? :: escalate on failure
|
$: auto/? :: escalate on failure
|
||||||
gem/germ :: strategy
|
gem/germ :: strategy
|
||||||
her/@p :: from ship
|
her/@p :: from ship
|
||||||
@ -56,7 +56,7 @@
|
|||||||
:: :: ::
|
:: :: ::
|
||||||
:::: :: ::
|
:::: :: ::
|
||||||
:: :: ::
|
:: :: ::
|
||||||
|= {bowl:gall kiln-part} :: main kiln work
|
|= {bowl:gall part} :: main kiln work
|
||||||
?> =(src our)
|
?> =(src our)
|
||||||
=> |% :: arvo structures
|
=> |% :: arvo structures
|
||||||
++ card ::
|
++ card ::
|
||||||
@ -82,7 +82,7 @@
|
|||||||
--
|
--
|
||||||
|_ moz/(list move)
|
|_ moz/(list move)
|
||||||
++ abet :: resolve
|
++ abet :: resolve
|
||||||
[(flop moz) `kiln-part`+>+>->]
|
[(flop moz) `part`+<+.$]
|
||||||
::
|
::
|
||||||
++ emit |=(card %_(+> moz [[ost +<] moz])) :: return card
|
++ emit |=(card %_(+> moz [[ost +<] moz])) :: return card
|
||||||
++ emil :: return cards
|
++ emil :: return cards
|
||||||
@ -406,9 +406,9 @@
|
|||||||
::
|
::
|
||||||
++ work :: state machine
|
++ work :: state machine
|
||||||
|= syd/desk
|
|= syd/desk
|
||||||
=+ ^- kiln-desk
|
=+ ^- per-desk
|
||||||
%+ fall (~(get by rem) syd)
|
%+ fall (~(get by rem) syd)
|
||||||
=+ *kiln-desk
|
=+ *per-desk
|
||||||
%_(- cas [%da now])
|
%_(- cas [%da now])
|
||||||
|%
|
|%
|
||||||
++ abet :: resolve
|
++ abet :: resolve
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user