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

Tied in ++pour in %gall

Browse Source
This commit is contained in:
pcmonk 2014-06-25 18:20:49 -07:00
parent 53658de351
commit 5af53bdc9f
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
arvo/gall.hoon
View File

@ -76,12 +76,9 @@
zam=scar :: opaque ducts zam=scar :: opaque ducts
== :: == ::
++ sign :: in result $-< ++ sign :: in result $-<
$% $: %c :: by %clay $? [?(%a %b %c %d %e %g) @tas *]
$% [%writ p=riot] :: [%f %made p=(each bead (list tank))]
== == :: ==
$: %f :: by %ford
$% [%made p=(each bead (list tank))] ::
== == == ::
++ toil (pair duct knob) :: work in progress ++ toil (pair duct knob) :: work in progress
-- :::::::::::::::::::::::::::::::::::::::::::::::::::::: -- ::::::::::::::::::::::::::::::::::::::::::::::::::::::
|% :::::::::::::::::::::::::::::::::::::::::::::::::::::: functions |% :::::::::::::::::::::::::::::::::::::::::::::::::::::: functions
@ -428,7 +425,7 @@
:: ::
++ mack :: apply standard ++ mack :: apply standard
|= sih=sign |= sih=sign
?> ?=(%made -.+.sih) ?> ?=(%f -.sih)
^- [(unit (list tank)) _+>] ^- [(unit (list tank)) _+>]
?- -.p.+.sih ?- -.p.+.sih
& :- ~ & :- ~
@ -440,7 +437,7 @@
++ meek :: apply peek ++ meek :: apply peek
|= sih=sign |= sih=sign
^- [(unit cage) _+>] ^- [(unit cage) _+>]
?> ?=(%made -.+.sih) ?> ?=(%f -.sih)
?- -.p.+.sih ?- -.p.+.sih
& =+ vax=`vase`q.q.p.p.+.sih & =+ vax=`vase`q.q.p.p.+.sih
?. &(?=(^ q.vax) ?=(@ -.q.vax)) ?. &(?=(^ q.vax) ?=(@ -.q.vax))
@ -453,7 +450,7 @@
:: ::
++ mick :: apply w/depends ++ mick :: apply w/depends
|= sih=sign |= sih=sign
?> ?=(%made -.+.sih) ?> ?=(%f -.sih)
^- [(unit (set beam)) _+>] ^- [(unit (set beam)) _+>]
?- -.p.+.sih ?- -.p.+.sih
& :- `p.p.p.+.sih & :- `p.p.p.+.sih
@ -465,7 +462,7 @@
++ murk :: apply park ++ murk :: apply park
|= sih=sign |= sih=sign
^- [(unit cage) _+>] ^- [(unit cage) _+>]
?> ?=(%made -.+.sih) ?> ?=(%f -.sih)
?- -.p.+.sih ?- -.p.+.sih
& [`q.p.p.+.sih +>.$] & [`q.p.p.+.sih +>.$]
| [~ (give %crud %made p.p.+.sih)] | [~ (give %crud %made p.p.+.sih)]
@ -524,6 +521,11 @@
=^ gud +>.$ (mack q.hin) =^ gud +>.$ (mack q.hin)
?^ gud (give %rasp ~) ?^ gud (give %rasp ~)
+>.$ +>.$
::
%pour
=^ gud +>.$ (mack q.hin)
?^ gud ~& -.gud +>.$
+>.$
:: ::
%prep %prep
=^ gad +>.$ (mick q.hin) =^ gad +>.$ (mick q.hin)
@ -543,14 +545,13 @@
== ==
:: ::
%w :: autoboot %w :: autoboot
?> ?& ?=([%drug @ @ ~] t.pax) ?> ?=([%drug @ @ ~] t.pax)
?=(%writ -.+.q.hin) =+ :* sin=((hard ,[%c %writ p=riot]) q.hin)
== our=(need (slaw %p i.t.t.pax))
=+ :* our=(need (slaw %p i.t.t.pax))
syd=(need ((sand %tas) i.t.t.t.pax)) syd=(need ((sand %tas) i.t.t.t.pax))
== ==
=. ped.sat (~(del by ped.sat) [our syd]) =. ped.sat (~(del by ped.sat) [our syd])
?~ p.+.q.hin ?~ p.+.sin
+>.$ +>.$
+>.$(vey.sat (~(put to vey.sat) hen %boot ~)) +>.$(vey.sat (~(put to vey.sat) hen %boot ~))
== ==
@ -627,7 +628,7 @@
?+ q.caq ~&(%sump-bad !!) ?+ q.caq ~&(%sump-bad !!)
:: ::
[%pass p=* q=@tas r=[p=@tas q=*]] [%pass p=* q=@tas r=[p=@tas q=*]]
:^ %pass [%u ((hard path) p.q.caq)] :^ %pass (away %u ((hard path) p.q.caq))
(need ((sand %tas) ((hard ,@) q.q.caq))) (need ((sand %tas) ((hard ,@) q.q.caq)))
[%meta (spec (slot 15 caq))] [%meta (spec (slot 15 caq))]
:: ::
@ -723,7 +724,7 @@
+>.$(qic.sat ~) +>.$(qic.sat ~)
?> ?=(^ huv.sat) ?> ?=(^ huv.sat)
=+ sam=(slop !>(p.kon) q.kon) =+ sam=(slop !>(p.kon) q.kon)
%+ ford /s/take %+ ford /s/pour
[%call (harm %pour (conf (core u.huv.sat))) (cove %$ sam)] [%call (harm %pour (conf (core u.huv.sat))) (cove %$ sam)]
== ==
-- --