ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-24 18:44:07 +03:00
Code Issues Packages Projects Releases Wiki Activity

adds comments

Browse Source 
comments
This commit is contained in:
Joseph Bryan 2016-09-07 00:54:25 -04:00
parent abbe997d7d
commit 021bfc213e
1 changed files with 23 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
lib/drum.hoon
View File

@ -92,6 +92,7 @@
~ :: fur ~ :: fur
~ :: bin ~ :: bin
== :: == ::
::
++ drum-port ++ drum-port
|= old/?(drum-part drum-part-old) ^- drum-part |= old/?(drum-part drum-part-old) ^- drum-part
?- &2.old ?- &2.old
@ -131,7 +132,7 @@
++ move (pair bone card) :: user-level move ++ move (pair bone card) :: user-level move
-- --
|_ {moz/(list move) biz/(list dill-blit)} |_ {moz/(list move) biz/(list dill-blit)}
++ diff-sole-effect-phat :: ++ 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=(drum-phat way)
@ -145,34 +146,34 @@
=< se-abet =< se-view =< se-abet =< se-view
(se-text "[{<src>}, driving {<our>}]") (se-text "[{<src>}, driving {<our>}]")
:: ::
++ poke-dill-belt :: ++ poke-dill-belt :: terminal event
|= bet/dill-belt |= bet/dill-belt
=< se-abet =< se-view =< se-abet =< se-view
(se-belt bet) (se-belt bet)
:: ::
++ poke-start :: ++ poke-start :: start app
|= wel/well |= wel/well
=< se-abet =< se-view =< se-abet =< se-view
(se-born wel) (se-born wel)
:: ::
++ poke-link :: ++ poke-link :: connect app
|= gyl/gill |= gyl/gill
=< se-abet =< se-view =< se-abet =< se-view
(se-link gyl) (se-link gyl)
:: ::
++ poke-unlink :: ++ poke-unlink :: disconnect app
|= gyl/gill |= gyl/gill
=< se-abet =< se-view =< se-abet =< se-view
(se-klin gyl) (se-klin gyl)
:: ::
++ poke-exit :: ++ poke-exit :: shutdown
|=($~ se-abet:(se-blit-sys `dill-blit`[%qit ~])) :: |=($~ se-abet:(se-blit-sys `dill-blit`[%qit ~])) ::
:: ::
++ poke-put :: ++ poke-put :: write file
|= {pax/path txt/@} |= {pax/path txt/@}
se-abet:(se-blit-sys [%sav pax txt]) :: se-abet:(se-blit-sys [%sav pax txt]) ::
:: ::
++ reap-phat :: ++ 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=(drum-phat way)
@ -180,7 +181,7 @@
(se-join gyl) (se-join gyl)
(se-dump:(se-drop & gyl) u.saw) (se-dump:(se-drop & gyl) u.saw)
:: ::
++ take-coup-phat :: ++ take-coup-phat :: ack poke
|= {way/wire saw/(unit tang)} |= {way/wire saw/(unit tang)}
=< se-abet =< se-view =< se-abet =< se-view
?~ saw +> ?~ saw +>
@ -190,7 +191,7 @@
:_ u.saw :_ u.saw
>[%drum-coup-fail src ost gyl]< >[%drum-coup-fail src ost gyl]<
:: ::
++ take-onto :: ++ take-onto :: ack start
|= {way/wire saw/(each suss tang)} |= {way/wire saw/(each suss tang)}
=< se-abet =< se-view =< se-abet =< se-view
?> ?=({@ @ $~} way) ?> ?=({@ @ $~} way)
@ -228,6 +229,7 @@
[ost %diff %dill-blit ?~(t.biz i.biz [%mor (flop biz)])] [ost %diff %dill-blit ?~(t.biz i.biz [%mor (flop biz)])]
:: ::
++ se-ably (~(has by sup) ost) :: caused by console ++ se-ably (~(has by sup) ost) :: caused by console
::
++ se-adit :: update servers ++ se-adit :: update servers
^+ . ^+ .
%+ roll (~(tap in ray)) %+ roll (~(tap in ray))
@ -359,7 +361,7 @@
?> ?=($~ (~(got by fug) gyl)) ?> ?=($~ (~(got by fug) gyl))
(se-alas(fug (~(put by fug) gyl `*target)) gyl) (se-alas(fug (~(put by fug) gyl `*target)) gyl)
:: ::
++ se-nuke :: teardown ++ se-nuke :: teardown connection
|= gyl/gill |= gyl/gill
^+ +> ^+ +>
(se-drop:(se-pull gyl) & gyl) (se-drop:(se-pull gyl) & gyl)
@ -675,41 +677,41 @@
^+ +> ^+ +>
=. ris ~ =. ris ~
?+ key ta-bel ?+ key ta-bel
$dot ?. &(?=(^ old.hit) ?=(^ i.old.hit)) $dot ?. &(?=(^ old.hit) ?=(^ i.old.hit)) :: last "arg" from hist
ta-bel ta-bel
=+ old=`(list @c)`i.old.hit =+ old=`(list @c)`i.old.hit
=+ sop=(ta-jump(buf.say.inp old) %l %ace (lent old)) =+ sop=(ta-jump(buf.say.inp old) %l %ace (lent old))
(ta-hom (cat:edit pos.inp (slag sop old))) (ta-hom (cat:edit pos.inp (slag sop old)))
:: ::
$bac ?: =(0 pos.inp) $bac ?: =(0 pos.inp) :: kill left-word
ta-bel ta-bel
=+ sop=(ta-off %l %edg pos.inp) =+ sop=(ta-off %l %edg pos.inp)
(ta-kil %l [(sub pos.inp sop) sop]) (ta-kil %l [(sub pos.inp sop) sop])
:: ::
$b ?: =(0 pos.inp) $b ?: =(0 pos.inp) :: jump left-word
ta-bel ta-bel
+>(pos.inp (ta-jump %l %edg pos.inp)) +>(pos.inp (ta-jump %l %edg pos.inp))
:: ::
$c ?: =(pos.inp (lent buf.say.inp)) $c ?: =(pos.inp (lent buf.say.inp)) :: capitalize
ta-bel ta-bel
=+ sop=(ta-jump %r %wrd pos.inp) =+ sop=(ta-jump %r %wrd pos.inp)
%- ta-hom(pos.inp (ta-jump %r %edg sop)) %- ta-hom(pos.inp (ta-jump %r %edg sop))
(rep:edit [sop 1] (ucas (swag [sop 1] buf.say.inp))) (rep:edit [sop 1] (ucas (swag [sop 1] buf.say.inp)))
:: ::
$d ?: =(pos.inp (lent buf.say.inp)) $d ?: =(pos.inp (lent buf.say.inp)) :: kill right-word
ta-bel ta-bel
(ta-kil %r [pos.inp (ta-off %r %edg pos.inp)]) (ta-kil %r [pos.inp (ta-off %r %edg pos.inp)])
:: ::
$f ?: =(pos.inp (lent buf.say.inp)) $f ?: =(pos.inp (lent buf.say.inp)) :: jump right-word
ta-bel ta-bel
+>(pos.inp (ta-jump %r %edg pos.inp)) +>(pos.inp (ta-jump %r %edg pos.inp))
:: ::
$r %- ta-hom(lay.hit (~(put by lay.hit) pos.hit ~)) $r %- ta-hom(lay.hit (~(put by lay.hit) pos.hit ~))
:- %set :- %set :: revert hist edit
?: =(pos.hit num.hit) ~ ?: =(pos.hit num.hit) ~
(snag (sub num.hit +(pos.hit)) old.hit) (snag (sub num.hit +(pos.hit)) old.hit)
:: ::
$t =+ a=(ta-jump %r %edg pos.inp) $t =+ a=(ta-jump %r %edg pos.inp) :: transpose words
=+ b=(ta-jump %l %edg a) =+ b=(ta-jump %l %edg a)
=+ c=(ta-jump %l %edg b) =+ c=(ta-jump %l %edg b)
?: =(b c) ?: =(b c)
@ -722,7 +724,7 @@
(rep:edit prev (swag next buf.say.inp)) (rep:edit prev (swag next buf.say.inp))
== ==
:: ::
?($u $l) ?($u $l) :: upper/lower case
?: =(pos.inp (lent buf.say.inp)) ?: =(pos.inp (lent buf.say.inp))
ta-bel ta-bel
=+ case=?:(?=($u key) ucas lcas) =+ case=?:(?=($u key) ucas lcas)
@ -730,7 +732,7 @@
=+ sel=[sop (ta-off %r %edg sop)] =+ sel=[sop (ta-off %r %edg sop)]
(ta-hom (rep:edit sel (case (swag sel buf.say.inp)))) (ta-hom (rep:edit sel (case (swag sel buf.say.inp))))
:: ::
$y ?. ?& (gth num.kil 0) $y ?. ?& (gth num.kil 0) :: rotate & yank
?=(^ p.blt) ?=(^ p.blt)
?| ?=({$ctl $y} u.p.blt) ?| ?=({$ctl $y} u.p.blt)
?=({$met $y} u.p.blt) ?=({$met $y} u.p.blt)