urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-13 16:03:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

ability to sire

Browse Source
This commit is contained in:
Ubuntu 2014-09-11 20:44:46 +00:00
parent ba92dee46b
commit c2e05b0e2f
2 changed files with 39 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
arvo/gall.hoon
View File

@ -211,6 +211,7 @@
(gawd hen p.q.hic q.q.hic ((hard ,[@ud roon]) r.q.hic))
?: ?=(%wipe -.q.hic)
=+ mat=(~(got by pol.all) p.p.q.hic)
~? !(~(has by bum.mat) q.p.q.hic) [%wipe-lost 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)
[p=~ q=..^$]
@ -1004,7 +1005,19 @@
(give(qic.sat ~) %dumb ~)
::
%sire
~& [%sirens-lost kon]
=. qic.sat ~
?: (~(has by bum.mat) [q.kon imp])
~& %sire-redundant +>.$
=. bum.mat
%+ ~(put by bum.mat) [q.kon imp]
%* . *seat
app p.kon
zam
^- scar
:+ 1
[[hun.mat 0 ~] ~ ~]
[[0 hun.mat] ~ ~]
==
+>.$
::
%take

30
main/app/test/core.hook
View File

@ -32,6 +32,7 @@
++ note :: system request
$% $: %g :: to %gall
$% [%mess p=hapt q=ship r=cage] ::
[%show p=hapt q=ship r=path] ::
[%sire p=term q=span] ::
== == == ::
++ test :: test template
@ -70,18 +71,36 @@
--
++ sire
^- test
=> |%
++ sign
$% $: %g
$% [%nice ~]
[%rust %hymn p=manx]
== == ==
--
|%
++ poke
|+ [ost=bone you=ship]
^- [(list move) _+>]
:_ +>.$
:~ [ost %pass /hi %g %sire %demo %baby]
[ost %give %nice ~]
:~
[ost %pass /sire/hi %g %sire %demo %baby]
[ost %pass /sire/ho %g %mess our.hid^baby/imp.hid you %json !>(*json)]
[ost %pass /sire/ho %g %mess our.hid^baby/imp.hid you %json !>(*json)]
[ost %pass /sire/ho %g %mess our.hid^baby/imp.hid you %json !>(*json)]
[ost %pass /sire/ho %g %mess our.hid^baby/imp.hid you %json !>(*json)]
[ost %pass /sire/ho %g %mess our.hid^baby/imp.hid you %json !>(*json)]
[ost %pass /sire/ho %g %mess our.hid^baby/imp.hid you %json !>(*json)]
[ost %pass /sire/ho %g %mess our.hid^baby/imp.hid you %json !>(*json)]
[ost %pass /sire/ho %g %show our.hid^baby/imp.hid you /]
==
++ pour
|+ [ost=bone pax=path sih=*]
^- [(list move) _+>]
!!
=+ sih=((hard sign) sih)
~& [%sire-pour pax sih]
:_ +>.$
[ost %give %nice ~]~
--
++ poke-local
^- test
@ -242,12 +261,13 @@
++ pour :: response
|= [ost=bone pax=path sih=*]
^- [(list move) _+>]
~& [%test-pour ost pax -.sih +<.sih]
?~ pax ~& %test-strange-path [~ +>.$]
=+ tst=(~(get by tests) -.pax)
?: ?=(%automagic -.pax)
(spec-pour ost pax sih)
=+ tst=(~(get by tests) -.pax)
?~ tst
~& %test-bad-path [~ +>.$]
~& [%test-bad-path pax] [~ +>.$]
=+ res=(pour:u.tst ost +.pax sih)
:- -.res
+>.$(tests (~(put by tests) -.pax +.res))