ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

Working pill.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-01-18 20:52:43 -08:00
parent ad2e0bcf05
commit bdfc0b692e
3 changed files with 40 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/dill.hoon
View File

@ -51,6 +51,7 @@
$% [%mess p=[p=ship q=path] q=ship r=mess] :: $% [%mess p=[p=ship q=path] q=ship r=mess] ::
[%nuke p=[p=ship q=path] q=ship] :: [%nuke p=[p=ship q=path] q=ship] ::
[%show p=[p=ship q=path] q=ship r=path] :: [%show p=[p=ship q=path] q=ship r=path] ::
[%took p=[p=ship q=path] q=ship] ::
== == :: == == ::
$: %t :: $: %t ::
$% [%wait p=@da] :: $% [%wait p=@da] ::
@ -322,6 +323,7 @@
%nice +>.$ %nice +>.$
%note ?.(p.yar +>.$ (fume p.+.sih q.+.sih)) :: debug message %note ?.(p.yar +>.$ (fume p.+.sih q.+.sih)) :: debug message
?(%rush %rust) :: XX reset prompt ?(%rush %rust) :: XX reset prompt
=. mos :_(mos [hen %pass tea %g %took [our /terminal] our])
?> ?=(%term-line +>-.sih) ?> ?=(%term-line +>-.sih)
=. +>.$ =. +>.$
=+ lis=?-(-.+.sih %rust (scag 1.000 r.q.sih), %rush r.q.sih) =+ lis=?-(-.+.sih %rust (scag 1.000 r.q.sih), %rush r.q.sih)

41
arvo/gall.hoon
View File

@ -31,6 +31,7 @@
[%nuke p=hapt q=ship] :: clear duct [%nuke p=hapt q=ship] :: clear duct
[%rote p=sack q=path r=*] :: remote request [%rote p=sack q=path r=*] :: remote request
[%roth p=sack q=path r=*] :: remote response [%roth p=sack q=path r=*] :: remote response
[%took p=hapt q=ship] :: remote acknowledge
[%wipe p=hapt] :: forget app [%wipe p=hapt] :: forget app
== :: == ::
++ knob :: pending action ++ knob :: pending action
@ -45,6 +46,8 @@
[%sire p=term q=span] :: spawn subprocess [%sire p=term q=span] :: spawn subprocess
[%nuke p=ship] :: clear duct [%nuke p=ship] :: clear duct
[%take p=path q=vase] :: user result [%take p=path q=vase] :: user result
[%took p=ship] :: rush queue drained
[%told p=ship] :: rush queue filled
== :: == ::
++ mast :: apps by ship ++ mast :: apps by ship
$: hun=duct :: control duct $: hun=duct :: control duct
@ -67,6 +70,7 @@
[%sire p=term q=hapt] :: [%sire p=term q=hapt] ::
[%mess p=hapt q=ship r=cage] :: [%mess p=hapt q=ship r=cage] ::
[%nuke p=hapt q=ship] :: [%nuke p=hapt q=ship] ::
[%took p=hapt q=ship] ::
== == :: == == ::
$: @tas :: to any $: @tas :: to any
$% [%meta p=vase] :: $% [%meta p=vase] ::
@ -113,6 +117,7 @@
sup=(map bone (pair ship path)) :: subscribers sup=(map bone (pair ship path)) :: subscribers
pus=(jug path bone) :: srebircsbus pus=(jug path bone) :: srebircsbus
peq=(map bone ,@uvI) :: peekers peq=(map bone ,@uvI) :: peekers
qel=(map bone ,@ud) :: rush queue length
ped=(set (pair ship desk)) :: active depends ped=(set (pair ship desk)) :: active depends
zam=scar :: opaque ducts zam=scar :: opaque ducts
== :: == ::
@ -226,7 +231,8 @@
=. bum.mat (~(del by bum.mat) q.p.q.hic) =. bum.mat (~(del by bum.mat) q.p.q.hic)
=. pol.all (~(put by pol.all) p.p.q.hic mat) =. pol.all (~(put by pol.all) p.p.q.hic mat)
[p=~ q=..^$] [p=~ q=..^$]
?(%mess %show %nuke %sire) ::
?(%mess %show %nuke %took %sire)
|- ^- [p=(list move) q=_..^^$] |- ^- [p=(list move) q=_..^^$]
=+ =| law=(unit cuff) =+ =| law=(unit cuff)
|- ^- $: law=(unit cuff) |- ^- $: law=(unit cuff)
@ -239,6 +245,7 @@
%mess [p %mess q r]:q.hic %mess [p %mess q r]:q.hic
%show [p %show q r]:q.hic %show [p %show q r]:q.hic
%nuke [p %nuke q]:q.hic %nuke [p %nuke q]:q.hic
%took [p %took q]:q.hic
%sire [[p.q +.q.q] %sire p -.q.q]:q.hic %sire [[p.q +.q.q] %sire p -.q.q]:q.hic
== ==
((goad hen law) p.hap q.hap kon) ((goad hen law) p.hap q.hap kon)
@ -386,6 +393,7 @@
?~ q.sih ?~ q.sih
[hen %give %nice ~] [hen %give %nice ~]
[hen %give %mean u.q.sih] [hen %give %mean u.q.sih]
::
%f %f
:_ ..^$ :_ ..^$
:_ ~ :_ ~
@ -411,7 +419,7 @@
num=(slav %ud i.t.t.t.pax) num=(slav %ud i.t.t.t.pax)
imp=`path`t.t.t.t.pax imp=`path`t.t.t.t.pax
== ==
~& [%gall-gave hen [our you num imp] sih] :: ~& [%gall-gave hen -.pax [our you num imp]]
:_ ..^$ :_ ..^$
=+ rod=|=(ron=roon `note`[%a %wont [our you] [%q %gh imp] num ron]) =+ rod=|=(ron=roon `note`[%a %wont [our you] [%q %gh imp] num ron])
?+ -.pax !! ?+ -.pax !!
@ -443,7 +451,10 @@
== ==
== ==
%s ?+ -.sih !! %s ?+ -.sih !!
%a ~ %a ~& [%gave-a [our you num imp] -.+.sih]
~& [%gave-a-hen hen]
:_ ~ :- hen
[%pass [%r pax] %g %took [our imp] you]
%g %g
:_ ~ :- hen :_ ~ :- hen
?- -.+.sih ?- -.+.sih
@ -455,7 +466,8 @@
%mean [%pass [%r pax] (rod %e p.+.sih)] %mean [%pass [%r pax] (rod %e p.+.sih)]
%nice [%give %nice ~] %nice [%give %nice ~]
%rush [%pass [%r pax] (rod %d p.+.sih q.+.sih)] %rush [%pass [%r pax] (rod %d p.+.sih q.+.sih)]
%rust [%pass [%r pax] (rod %f p.+.sih q.+.sih)] %rust ~& [%gave-rust [our you num imp] hen]
[%pass [%r pax] (rod %f p.+.sih q.+.sih)]
%sage !! %sage !!
%verb !! %verb !!
%veer !! %veer !!
@ -658,6 +670,7 @@
sup.sat (~(del by sup.sat) ost) sup.sat (~(del by sup.sat) ost)
pus.sat (~(del ju pus.sat) pax ost) pus.sat (~(del ju pus.sat) pax ost)
peq.sat (~(del by peq.sat) ost) peq.sat (~(del by peq.sat) ost)
qel.sat (~(del by qel.sat) ost)
== ==
:: ::
++ cave :: vase as silk ++ cave :: vase as silk
@ -992,7 +1005,7 @@
:: ::
++ said :: sayz, done wrong ++ said :: sayz, done wrong
|= vud=vase |= vud=vase
:: =- [(flop p.fob) (weld (flop q.fob) mow)] :: =- [p.fob (weld (flop q.fob) mow)]
:: ^= fob :: ^= fob
|- ^- (pair (list toil) (list move)) |- ^- (pair (list toil) (list move))
?: =(~ q.vud) [~ ~] ?: =(~ q.vud) [~ ~]
@ -1047,7 +1060,9 @@
?: ?=(%mean p.p.q.caq) ?: ?=(%mean p.p.q.caq)
:- `[hon %nuke our] :- `[hon %nuke our]
`[hon %give %mean (ares q.p.q.caq)] `[hon %give %mean (ares q.p.q.caq)]
:^ ~ ~ hon :- ?. ?=(?(%rush %rust) p.p.q.caq) ~
`[hon %told our]
:+ ~ hon
:- %give :- %give
?: ?=(%nice p.p.q.caq) [%nice ~] ?: ?=(%nice p.p.q.caq) [%nice ~]
(sumo (spec (slot 3 caq))) (sumo (spec (slot 3 caq)))
@ -1124,6 +1139,20 @@
:: ::
%feel %feel
+>.$(qic.sat ~) +>.$(qic.sat ~)
::
%took
=+ qul=(~(got by qel.sat) ost)
~& [%yawn-took-has qul [our hen]]
+>.$(qic.sat ~, qel.sat (~(put by qel.sat) ost (dec qul)))
::
%told
=+ qol=(~(get by qel.sat) ost)
~& [%yawn-told-has qol [our hen]]
=+ qul=?~(qol 1 +(u.qol))
:: ?: =(10 qul)
:: ~& [%yawn-told-full our hen]
:: +>.$(qic.sat `[hen %nuke p.kon])
+>.$(qic.sat ~, qel.sat (~(put by qel.sat) ost ?~(qol 1 +(u.qol))))
:: ::
%load %load
=+ [hom=(slot 2 q.p.kon) old=(slot 3 q.p.kon)] =+ [hom=(slot 2 q.p.kon) old=(slot 3 q.p.kon)]

4
main/app/terminal/core.hook
View File

@ -42,6 +42,7 @@
[%show p=hapt q=ship r=path] :: [%show p=hapt q=ship r=path] ::
[%sire p=term q=span] :: [%sire p=term q=span] ::
[%mess p=hapt q=ship r=mess] :: [%mess p=hapt q=ship r=mess] ::
[%took p=hapt q=ship] ::
== == == :: == == == ::
++ sign :: ++ sign ::
$% $: %g :: $% $: %g ::
@ -176,7 +177,8 @@
?(%rust %rush) ?(%rust %rush)
=. p.q.sih ?^(q.q.sih p.tel p.q.sih) :: XX prompt hack =. p.q.sih ?^(q.q.sih p.tel p.q.sih) :: XX prompt hack
%_ +>.$ %_ +>.$
mow (welp (spam q.sih) mow) mow :- [ost %pass [%resp pax] %g %took [our.hid [auc imp.hid]] you]
(welp (spam q.sih) mow)
tel [p.q.sih (weld q.q.sih q.tel) (weld r.q.sih r.tel)] tel [p.q.sih (weld q.q.sih q.tel) (weld r.q.sih r.tel)]
== ==
== ==