mirror of
https://github.com/urbit/shrub.git
synced 2024-12-12 18:48:14 +03:00
Add a live=? bit to %build.
This commit is contained in:
Elliot Glaysher
parent
e986337c9c
commit
2279fd8649
@ -19,8 +19,6 @@
|
|||||||
^- tang
|
^- tang
|
||||||
;: weld
|
;: weld
|
||||||
test-tear
|
test-tear
|
||||||
test-is-schematic-live
|
|
||||||
test-date-from-schematic
|
|
||||||
test-unify-jugs
|
test-unify-jugs
|
||||||
test-resource-wire-encoding
|
test-resource-wire-encoding
|
||||||
test-parse-scaffold
|
test-parse-scaffold
|
||||||
@ -141,58 +139,6 @@
|
|||||||
(tear:ford-gate 'ab/c')
|
(tear:ford-gate 'ab/c')
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ test-is-schematic-live
|
|
||||||
:- `tank`leaf+"test-is-schematic-live"
|
|
||||||
::
|
|
||||||
=/ ford (ford-gate now=~1234.5.6 eny=0xdead.beef scry=scry-is-forbidden)
|
|
||||||
:: pinned-schematic shows a once build
|
|
||||||
::
|
|
||||||
=/ pinned-schematic=schematic:ford
|
|
||||||
[%pin now [%scry [%c care=%x bel=[[~nul %desk] /foo/bar]]]]
|
|
||||||
:: live-schematic shows a live build
|
|
||||||
::
|
|
||||||
=/ live-schematic=schematic:ford
|
|
||||||
[%scry [%c care=%x bel=[[~nul %desk] /baz/doo]]]
|
|
||||||
:: eternal-schematic shows a trivial live build
|
|
||||||
::
|
|
||||||
=/ eternal-schematic=schematic:ford
|
|
||||||
[head=[%$ %noun !>(42)] tail=[%$ %noun !>(43)]]
|
|
||||||
::
|
|
||||||
^- tang
|
|
||||||
;: welp
|
|
||||||
::
|
|
||||||
%- expect-eq !>
|
|
||||||
[%.y (is-schematic-live:ford live-schematic)]
|
|
||||||
::
|
|
||||||
%- expect-eq !>
|
|
||||||
[%.n (is-schematic-live:ford pinned-schematic)]
|
|
||||||
::
|
|
||||||
%- expect-eq !>
|
|
||||||
[%.y (is-schematic-live:ford [%alts ~[live-schematic pinned-schematic]])]
|
|
||||||
::
|
|
||||||
%- expect-eq !>
|
|
||||||
[%.y (is-schematic-live:ford eternal-schematic)]
|
|
||||||
==
|
|
||||||
::
|
|
||||||
++ test-date-from-schematic
|
|
||||||
:- `tank`leaf+"test-date-from-schematic"
|
|
||||||
::
|
|
||||||
=/ ford (ford-gate now=~1234.5.6 eny=0xdead.beef scry=scry-is-forbidden)
|
|
||||||
::
|
|
||||||
=/ six-schematic=schematic:ford
|
|
||||||
[%pin ~1234.5.6 [%scry [%c care=%x bel=[[~nul %desk] /foo/bar]]]]
|
|
||||||
=/ nine-schematic=schematic:ford
|
|
||||||
[%pin ~1234.5.9 [%scry [%c care=%x bel=[[~nul %desk] /baz/doo]]]]
|
|
||||||
=/ three-schematic=schematic:ford
|
|
||||||
[%pin ~1234.5.3 [%scry [%c care=%x bel=[[~nul %desk] /car/dor]]]]
|
|
||||||
%+ welp
|
|
||||||
%- expect-eq !>
|
|
||||||
[~1234.5.9 (date-from-schematic:ford [three-schematic nine-schematic])]
|
|
||||||
%- expect-eq !>
|
|
||||||
:- ~1234.5.9
|
|
||||||
%- date-from-schematic:ford
|
|
||||||
[six-schematic [%alts ~[three-schematic nine-schematic]]]
|
|
||||||
::
|
|
||||||
++ test-unify-jugs
|
++ test-unify-jugs
|
||||||
:- `tank`leaf+"test-unify-jugs"
|
:- `tank`leaf+"test-unify-jugs"
|
||||||
::
|
::
|
||||||
@ -731,7 +677,7 @@
|
|||||||
:: send a pinned literal, expects a %made response with pinned literal
|
:: send a pinned literal, expects a %made response with pinned literal
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
[duct=~ type=~ %build ~nul [%pin ~1234.5.6 [%$ %noun !>(**)]]]
|
[duct=~ type=~ %build ~nul live=%.n [%$ %noun !>(**)]]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~ %give %made ~1234.5.6
|
:~ :* duct=~ %give %made ~1234.5.6
|
||||||
@ -754,8 +700,8 @@
|
|||||||
:: if we autocons the same schematic, we should get two of it as a result
|
:: if we autocons the same schematic, we should get two of it as a result
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~ type=~ %build ~nul
|
:* duct=~ type=~ %build ~nul live=%.n
|
||||||
[%pin ~1234.5.6 [%$ %noun !>(**)] [%$ %noun !>(**)]]
|
[[%$ %noun !>(**)] [%$ %noun !>(**)]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
@ -780,8 +726,8 @@
|
|||||||
:: if we autocons different schematics, we get different values
|
:: if we autocons different schematics, we get different values
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~ type=~ %build ~nul
|
:* duct=~ type=~ %build ~nul live=%.n
|
||||||
[%pin ~1234.5.6 [%$ %noun !>(42)] [%$ %noun !>(43)]]
|
[[%$ %noun !>(42)] [%$ %noun !>(43)]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
@ -806,8 +752,8 @@
|
|||||||
:: test a pinned scry which succeeds
|
:: test a pinned scry which succeeds
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~ type=~ %build ~nul
|
:* duct=~ type=~ %build ~nul live=%.n
|
||||||
[%pin ~1234.5.6 [%scry %c ren=%x rail=[[~nul %desk] /bar/foo]]]
|
[%scry %c ren=%x rail=[[~nul %desk] /bar/foo]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
@ -830,8 +776,8 @@
|
|||||||
:: attempting to scry a path which fails should produce an error
|
:: attempting to scry a path which fails should produce an error
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~ type=~ %build ~nul
|
:* duct=~ type=~ %build ~nul live=%.n
|
||||||
[%pin ~1234.5.6 [%scry %c ren=%x rail=[[~nul %desk] /bar/foo]]]
|
[%scry %c ren=%x rail=[[~nul %desk] /bar/foo]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
@ -856,8 +802,8 @@
|
|||||||
:: when we scry on a blocked path, expect a subscription move
|
:: when we scry on a blocked path, expect a subscription move
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~ type=~ %build ~nul
|
:* duct=~ type=~ %build ~nul live=%.n
|
||||||
[%pin ~1234.5.6 [%scry %c ren=%x rail=[[~nul %desk] /bar/foo]]]
|
[%scry %c ren=%x rail=[[~nul %desk] /bar/foo]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
@ -901,7 +847,7 @@
|
|||||||
scry=(scry-succeed ~1234.5.6 [%noun !>(42)])
|
scry=(scry-succeed ~1234.5.6 [%noun !>(42)])
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/first] type=~ %build ~nul
|
:* duct=~[/first] type=~ %build ~nul live=%.y
|
||||||
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -966,7 +912,7 @@
|
|||||||
:: perform a live scry, we should get a %made and a clay subscription
|
:: perform a live scry, we should get a %made and a clay subscription
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/first] type=~ %build ~nul
|
:* duct=~[/first] type=~ %build ~nul live=%.y
|
||||||
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -986,7 +932,7 @@
|
|||||||
scry=(scry-succeed ~1234.5.7 [%noun !>(42)])
|
scry=(scry-succeed ~1234.5.7 [%noun !>(42)])
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/second] type=~ %build ~nul
|
:* duct=~[/second] type=~ %build ~nul live=%.y
|
||||||
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -1055,7 +1001,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=(scry-blocks blocks)
|
scry=(scry-blocks blocks)
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/first] type=~ %build ~nul autocons]
|
call-args=[duct=~[/first] type=~ %build ~nul live=%.y autocons]
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
|= moves=(list move:ford-gate)
|
|= moves=(list move:ford-gate)
|
||||||
@ -1143,10 +1089,10 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry-is-forbidden
|
scry=scry-is-forbidden
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/pin] type=~ %build ~nul schematic]
|
call-args=[duct=~[/pin] type=~ %build ~nul live=%.n schematic]
|
||||||
::
|
::
|
||||||
^= expected-moves
|
^= expected-moves
|
||||||
:~ :* duct=~[/pin] %give %made ~1234.5.5 %complete
|
:~ :* duct=~[/pin] %give %made ~1234.5.6 %complete
|
||||||
%success %$ %noun !>(42)
|
%success %$ %noun !>(42)
|
||||||
== == ==
|
== == ==
|
||||||
results1
|
results1
|
||||||
@ -1162,10 +1108,10 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry-is-forbidden
|
scry=scry-is-forbidden
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/pin] type=~ %build ~nul schematic]
|
call-args=[duct=~[/pin] type=~ %build ~nul live=%.n schematic]
|
||||||
::
|
::
|
||||||
^= expected-moves
|
^= expected-moves
|
||||||
:~ :* duct=~[/pin] %give %made ~1234.5.7 %complete
|
:~ :* duct=~[/pin] %give %made ~1234.5.6 %complete
|
||||||
%success %$ %noun !>(42)
|
%success %$ %noun !>(42)
|
||||||
== == ==
|
== == ==
|
||||||
results1
|
results1
|
||||||
@ -1180,7 +1126,7 @@
|
|||||||
scry=(scry-succeed ~1234.5.6 [%noun !>(42)])
|
scry=(scry-succeed ~1234.5.6 [%noun !>(42)])
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/pinned-in-pin] type=~ %build ~nul
|
:* duct=~[/pinned-in-pin] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.7
|
%pin ~1234.5.7
|
||||||
%pin ~1234.5.6
|
%pin ~1234.5.6
|
||||||
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
||||||
@ -1188,7 +1134,7 @@
|
|||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/pinned-in-pin]
|
:~ :* duct=~[/pinned-in-pin]
|
||||||
%give %made ~1234.5.7 %complete
|
%give %made ~1234.5.8 %complete
|
||||||
[%success %scry %noun !>(42)]
|
[%success %scry %noun !>(42)]
|
||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
@ -1218,7 +1164,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry-42
|
scry=scry-42
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/live] type=~ %build ~nul schematic]
|
call-args=[duct=~[/live] type=~ %build ~nul live=%.y schematic]
|
||||||
moves=[duct=~[/live] %give %made ~1234.5.6 %complete result]~
|
moves=[duct=~[/live] %give %made ~1234.5.6 %complete result]~
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -1252,7 +1198,7 @@
|
|||||||
scry=scry-blocked
|
scry=scry-blocked
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/live] type=~ %build ~nul
|
:* duct=~[/live] type=~ %build ~nul live=%.y
|
||||||
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -1339,7 +1285,7 @@
|
|||||||
scry=scry-blocked
|
scry=scry-blocked
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/live] type=~ %build ~nul
|
:* duct=~[/live] type=~ %build ~nul live=%.y
|
||||||
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -1357,7 +1303,7 @@
|
|||||||
scry=scry-blocked
|
scry=scry-blocked
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/once] type=~ %build ~nul
|
:* duct=~[/once] type=~ %build ~nul live=%.n
|
||||||
[%pin ~1234.5.6 [%scry %c ren=%x rail=[[~nul %desk] /bar/foo]]]
|
[%pin ~1234.5.6 [%scry %c ren=%x rail=[[~nul %desk] /bar/foo]]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -1384,7 +1330,7 @@
|
|||||||
%c %warp [~nul ~nul] %desk
|
%c %warp [~nul ~nul] %desk
|
||||||
`[%mult [%da ~1234.5.6] (sy [%x /foo/bar]~)]
|
`[%mult [%da ~1234.5.6] (sy [%x /foo/bar]~)]
|
||||||
==
|
==
|
||||||
:* duct=~[/once] %give %made ~1234.5.6 %complete
|
:* duct=~[/once] %give %made ~1234.5.7 %complete
|
||||||
[%success [%scry %noun !>(42)]]
|
[%success [%scry %noun !>(42)]]
|
||||||
== == ==
|
== == ==
|
||||||
::
|
::
|
||||||
@ -1422,7 +1368,7 @@
|
|||||||
scry=scry-42
|
scry=scry-42
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/two-deep-4u] type=~ %build ~nul
|
:* duct=~[/two-deep-4u] type=~ %build ~nul live=%.y
|
||||||
[%same [%scry %c care=%x rail=[[~nul %desk] /bar/foo]]]
|
[%same [%scry %c care=%x rail=[[~nul %desk] /bar/foo]]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -1508,7 +1454,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/ride] type=~ %build ~nul same]
|
call-args=[duct=~[/ride] type=~ %build ~nul live=%.y same]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/ride] %give %made ~1234.5.6 %complete
|
:~ :* duct=~[/ride] %give %made ~1234.5.6 %complete
|
||||||
@ -1585,7 +1531,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/ride] type=~ %build ~nul autocons]
|
call-args=[duct=~[/ride] type=~ %build ~nul live=%.y autocons]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/ride] %give %made ~1234.5.6 %complete %success
|
:~ :* duct=~[/ride] %give %made ~1234.5.6 %complete %success
|
||||||
@ -1674,7 +1620,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/static] type=~ %build ~nul static]
|
call-args=[duct=~[/static] type=~ %build ~nul live=%.y static]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/static] %give %made ~1234.5.6 %complete %success
|
:~ :* duct=~[/static] %give %made ~1234.5.6 %complete %success
|
||||||
@ -1688,7 +1634,7 @@
|
|||||||
now=~1234.5.7
|
now=~1234.5.7
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/autocons] type=~ %build ~nul autocons]
|
call-args=[duct=~[/autocons] type=~ %build ~nul live=%.y autocons]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/autocons] %give %made ~1234.5.7 %complete %success
|
:~ :* duct=~[/autocons] %give %made ~1234.5.7 %complete %success
|
||||||
@ -1746,7 +1692,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry-is-forbidden
|
scry=scry-is-forbidden
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/call] type=~ %build ~nul call-schematic]
|
call-args=[duct=~[/call] type=~ %build ~nul live=%.y call-schematic]
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
|= moves=(list move:ford-gate)
|
|= moves=(list move:ford-gate)
|
||||||
@ -1801,7 +1747,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry-42
|
scry=scry-42
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/call] type=~ %build ~nul call-schematic]
|
call-args=[duct=~[/call] type=~ %build ~nul live=%.y call-schematic]
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
|= moves=(list move:ford-gate)
|
|= moves=(list move:ford-gate)
|
||||||
@ -1856,7 +1802,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry-failed
|
scry=scry-failed
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/dead] type=~ %build ~nul call-schematic]
|
call-args=[duct=~[/dead] type=~ %build ~nul live=%.y call-schematic]
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
|= moves=(list move:ford-gate)
|
|= moves=(list move:ford-gate)
|
||||||
@ -1909,7 +1855,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry-blocked
|
scry=scry-blocked
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/live] type=~ %build ~nul call-schematic]
|
call-args=[duct=~[/live] type=~ %build ~nul live=%.y call-schematic]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/live] %pass
|
:~ :* duct=~[/live] %pass
|
||||||
@ -2015,7 +1961,7 @@
|
|||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
[duct=~[/call] type=~ %build ~nul call-schematic]
|
[duct=~[/call] type=~ %build ~nul live=%.y call-schematic]
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
|= moves=(list move:ford-gate)
|
|= moves=(list move:ford-gate)
|
||||||
@ -2111,8 +2057,7 @@
|
|||||||
:- `tank`leaf+"test-dude"
|
:- `tank`leaf+"test-dude"
|
||||||
::
|
::
|
||||||
=/ schematic=schematic:ford-gate
|
=/ schematic=schematic:ford-gate
|
||||||
:* %pin ~1234.5.6
|
:* %dude |.(>%test-no-error<)
|
||||||
%dude |.(>%test-no-error<)
|
|
||||||
[%scry [%c care=%x bel=[[~nul %desk] /bar/foo]]]
|
[%scry [%c care=%x bel=[[~nul %desk] /bar/foo]]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -2124,7 +2069,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry-42
|
scry=scry-42
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/once] type=~ %build ~nul schematic]
|
call-args=[duct=~[/once] type=~ %build ~nul live=%.n schematic]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/once] %give %made ~1234.5.6 %complete %success
|
:~ :* duct=~[/once] %give %made ~1234.5.6 %complete %success
|
||||||
@ -2140,8 +2085,7 @@
|
|||||||
:- `tank`leaf+"test-dude-error"
|
:- `tank`leaf+"test-dude-error"
|
||||||
::
|
::
|
||||||
=/ schematic=schematic:ford-gate
|
=/ schematic=schematic:ford-gate
|
||||||
:* %pin ~1234.5.6
|
:* %dude |.(>%in-the-error-message<)
|
||||||
%dude |.(>%in-the-error-message<)
|
|
||||||
[%scry [%c care=%x bel=[[~nul %desk] /bar/foo]]]
|
[%scry [%c care=%x bel=[[~nul %desk] /bar/foo]]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -2153,7 +2097,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry-42
|
scry=scry-42
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/once] type=~ %build ~nul schematic]
|
call-args=[duct=~[/once] type=~ %build ~nul live=%.n schematic]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/once] %give %made ~1234.5.6 %complete
|
:~ :* duct=~[/once] %give %made ~1234.5.6 %complete
|
||||||
@ -2190,7 +2134,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/hood] type=~ %build ~nul schematic]
|
call-args=[duct=~[/hood] type=~ %build ~nul live=%.y schematic]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/hood] %give %made ~1234.5.6
|
:~ :* duct=~[/hood] %give %made ~1234.5.6
|
||||||
@ -2209,9 +2153,25 @@
|
|||||||
%c %warp [~nul ~nul] %desk
|
%c %warp [~nul ~nul] %desk
|
||||||
`[%mult [%da ~1234.5.6] (sy [%x /foo/bar/hoon] ~)]
|
`[%mult [%da ~1234.5.6] (sy [%x /foo/bar/hoon] ~)]
|
||||||
== == ==
|
== == ==
|
||||||
:: TODO: We never test cleanup here?
|
|
||||||
::
|
::
|
||||||
results1
|
=^ results2 ford-gate
|
||||||
|
%- test-ford-call :*
|
||||||
|
ford-gate
|
||||||
|
now=~1234.5.8
|
||||||
|
scry=scry-is-forbidden
|
||||||
|
::
|
||||||
|
call-args=[duct=~[/hood] type=~ %kill ~nul]
|
||||||
|
::
|
||||||
|
^= moves
|
||||||
|
:~ :* duct=~[/hood] %pass wire=/~nul/clay-sub/~nul/desk/~1234.5.6
|
||||||
|
%c %warp [~nul ~nul] %desk ~
|
||||||
|
== == ==
|
||||||
|
::
|
||||||
|
;: weld
|
||||||
|
results1
|
||||||
|
results2
|
||||||
|
(expect-ford-empty ford-gate ~nul)
|
||||||
|
==
|
||||||
::
|
::
|
||||||
++ test-slim
|
++ test-slim
|
||||||
:- `tank`leaf+"test-slim"
|
:- `tank`leaf+"test-slim"
|
||||||
@ -2225,7 +2185,8 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry-is-forbidden
|
scry=scry-is-forbidden
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/dead] type=~ %build ~nul [%slim subject-type formula]]
|
^= call-args
|
||||||
|
[duct=~[/dead] type=~ %build ~nul live=%.y [%slim subject-type formula]]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/dead] %give %made ~1234.5.6 %complete
|
:~ :* duct=~[/dead] %give %made ~1234.5.6 %complete
|
||||||
@ -2261,7 +2222,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry-is-forbidden
|
scry=scry-is-forbidden
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/slit] type=~ %build ~nul [%slit gate sample]]
|
call-args=[duct=~[/slit] type=~ %build ~nul live=%.y [%slit gate sample]]
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
|= moves=(list move:ford-gate)
|
|= moves=(list move:ford-gate)
|
||||||
@ -2309,7 +2270,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry-is-forbidden
|
scry=scry-is-forbidden
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/slit] type=~ %build ~nul [%slit gate sample]]
|
call-args=[duct=~[/slit] type=~ %build ~nul live=%.y [%slit gate sample]]
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
|= moves=(list move:ford-gate)
|
|= moves=(list move:ford-gate)
|
||||||
@ -2365,7 +2326,7 @@
|
|||||||
scry=scry-is-forbidden
|
scry=scry-is-forbidden
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/dead] type=~ %build ~nul
|
:* duct=~[/dead] type=~ %build ~nul live=%.y
|
||||||
[%ride formula subject-schematic]
|
[%ride formula subject-schematic]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -2426,7 +2387,7 @@
|
|||||||
scry=scry-42
|
scry=scry-42
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/dead] type=~ %build ~nul
|
:* duct=~[/dead] type=~ %build ~nul live=%.y
|
||||||
[%ride formula subject-schematic]
|
[%ride formula subject-schematic]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -2486,7 +2447,7 @@
|
|||||||
scry=scry-failed
|
scry=scry-failed
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/dead] type=~ %build ~nul
|
:* duct=~[/dead] type=~ %build ~nul live=%.y
|
||||||
[%ride formula subject-schematic]
|
[%ride formula subject-schematic]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -2537,7 +2498,7 @@
|
|||||||
scry=scry-blocked
|
scry=scry-blocked
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/live] type=~ %build ~nul
|
:* duct=~[/live] type=~ %build ~nul live=%.y
|
||||||
[%ride formula subject-schematic]
|
[%ride formula subject-schematic]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -2632,7 +2593,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/ride] type=~ %build ~nul ride]
|
call-args=[duct=~[/ride] type=~ %build ~nul live=%.y ride]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/ride] %give %made ~1234.5.6 %complete
|
:~ :* duct=~[/ride] %give %made ~1234.5.6 %complete
|
||||||
@ -2725,7 +2686,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/post-a] type=~ %build ~nul rendered-a]
|
call-args=[duct=~[/post-a] type=~ %build ~nul live=%.y rendered-a]
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
|= moves=(list move:ford-gate)
|
|= moves=(list move:ford-gate)
|
||||||
@ -2754,7 +2715,7 @@
|
|||||||
now=~1234.5.7
|
now=~1234.5.7
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/post-b] type=~ %build ~nul rendered-b]
|
call-args=[duct=~[/post-b] type=~ %build ~nul live=%.y rendered-b]
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
|= moves=(list move:ford-gate)
|
|= moves=(list move:ford-gate)
|
||||||
@ -2894,7 +2855,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/alts] type=~ %build ~nul alts]
|
call-args=[duct=~[/alts] type=~ %build ~nul live=%.y alts]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/alts] %give %made ~1234.5.6 %complete
|
:~ :* duct=~[/alts] %give %made ~1234.5.6 %complete
|
||||||
@ -3003,7 +2964,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/same] type=~ %build ~nul same]
|
call-args=[duct=~[/same] type=~ %build ~nul live=%.y same]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/same] %give %made ~1234.5.6 %complete
|
:~ :* duct=~[/same] %give %made ~1234.5.6 %complete
|
||||||
@ -3027,7 +2988,7 @@
|
|||||||
now=~1234.5.7
|
now=~1234.5.7
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/alts] type=~ %build ~nul alts]
|
call-args=[duct=~[/alts] type=~ %build ~nul live=%.y alts]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/alts] %give %made ~1234.5.7 %complete
|
:~ :* duct=~[/alts] %give %made ~1234.5.7 %complete
|
||||||
@ -3154,7 +3115,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/first] type=~ %build ~nul alts1]
|
call-args=[duct=~[/first] type=~ %build ~nul live=%.y alts1]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/first] %give %made ~1234.5.6 %complete
|
:~ :* duct=~[/first] %give %made ~1234.5.6 %complete
|
||||||
@ -3172,7 +3133,7 @@
|
|||||||
now=~1234.5.7
|
now=~1234.5.7
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/second] type=~ %build ~nul alts2]
|
call-args=[duct=~[/second] type=~ %build ~nul live=%.y alts2]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/second] %give %made ~1234.5.7 %complete
|
:~ :* duct=~[/second] %give %made ~1234.5.7 %complete
|
||||||
@ -3275,7 +3236,7 @@
|
|||||||
:: send a pinned literal, expects a %made response with pinned literal
|
:: send a pinned literal, expects a %made response with pinned literal
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
[duct=~[/trivial] type=~ %build ~nul [%pin ~1234.5.6 [%$ %noun !>(**)]]]
|
[duct=~[/trivial] type=~ %build ~nul live=%.n [%$ %noun !>(**)]]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/trivial] %give %made ~1234.5.6
|
:~ :* duct=~[/trivial] %give %made ~1234.5.6
|
||||||
@ -3312,7 +3273,7 @@
|
|||||||
scry=(scry-succeed ~1234.5.6 [%noun !>(42)])
|
scry=(scry-succeed ~1234.5.6 [%noun !>(42)])
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/build] type=~ %build ~nul
|
:* duct=~[/build] type=~ %build ~nul live=%.y
|
||||||
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
[%scry %c care=%x rail=[[~nul %desk] /bar/foo]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -3409,11 +3370,11 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/ride] type=~ %build ~nul same]
|
call-args=[duct=~[/ride] type=~ %build ~nul live=%.y same]
|
||||||
::
|
::
|
||||||
^= moves
|
^= moves
|
||||||
:~ :* duct=~[/ride] %give %made ~1234.5.6 %complete
|
:~ :* duct=~[/ride] %give %made ~1234.5.6 %complete
|
||||||
[%success [%same [%success [%ride scry-type %constant]]]]
|
[%success [%ride scry-type %constant]]
|
||||||
==
|
==
|
||||||
:* duct=~[/ride] %pass wire=/~nul/clay-sub/~nul/desk
|
:* duct=~[/ride] %pass wire=/~nul/clay-sub/~nul/desk
|
||||||
%c %warp [~nul ~nul] %desk
|
%c %warp [~nul ~nul] %desk
|
||||||
@ -3516,7 +3477,7 @@
|
|||||||
now=~1234.5.6
|
now=~1234.5.6
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/post-a] type=~ %build ~nul rendered-a]
|
call-args=[duct=~[/post-a] type=~ %build ~nul live=%.y rendered-a]
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
|= moves=(list move:ford-gate)
|
|= moves=(list move:ford-gate)
|
||||||
@ -3545,7 +3506,7 @@
|
|||||||
now=~1234.5.7
|
now=~1234.5.7
|
||||||
scry=scry
|
scry=scry
|
||||||
::
|
::
|
||||||
call-args=[duct=~[/post-b] type=~ %build ~nul rendered-b]
|
call-args=[duct=~[/post-b] type=~ %build ~nul live=%.y rendered-b]
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
|= moves=(list move:ford-gate)
|
|= moves=(list move:ford-gate)
|
||||||
@ -3739,8 +3700,8 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/reef] type=~ %build ~nul
|
:* duct=~[/reef] type=~ %build ~nul live=%.n
|
||||||
[%pin ~1234.5.6 [%reef [~nul %base]]]
|
[%reef [~nul %base]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
@ -3789,8 +3750,8 @@
|
|||||||
``[%cass !>(`cass:clay`[ud=1 da=~1234.5.6])]
|
``[%cass !>(`cass:clay`[ud=1 da=~1234.5.6])]
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/reef] type=~ %build ~nul
|
:* duct=~[/reef] type=~ %build ~nul live=%.n
|
||||||
[%pin ~1234.5.6 [%reef [~nul %home]]]
|
[%reef [~nul %home]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
^= comparator
|
^= comparator
|
||||||
@ -3840,8 +3801,7 @@
|
|||||||
scry=(scry-with-results-and-failures scry-results)
|
scry=(scry-with-results-and-failures scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%path disc=[~nul %desk] prefix='lib' raw-path='foo-bar']
|
[%path disc=[~nul %desk] prefix='lib' raw-path='foo-bar']
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -3867,8 +3827,7 @@
|
|||||||
scry=scry-is-forbidden
|
scry=scry-is-forbidden
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/plan] type=~ %build ~nul
|
:* duct=~[/plan] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
%plan
|
%plan
|
||||||
source-path=[[~nul %home] /bar/foo]
|
source-path=[[~nul %home] /bar/foo]
|
||||||
query-string=`coin`[%$ *dime]
|
query-string=`coin`[%$ *dime]
|
||||||
@ -3926,8 +3885,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/foo-bar/lib]]
|
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/foo-bar/lib]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -3987,8 +3945,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4048,8 +4005,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4102,8 +4058,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4159,8 +4114,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4213,8 +4167,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4253,8 +4206,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4311,8 +4263,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4369,8 +4320,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4414,8 +4364,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
:* %plan [[~nul %home] /other/lib] *coin
|
:* %plan [[~nul %home] /other/lib] *coin
|
||||||
:* source-rail=[[~nul %desk] /bar/foo]
|
:* source-rail=[[~nul %desk] /bar/foo]
|
||||||
zuse-version=309
|
zuse-version=309
|
||||||
@ -4493,8 +4442,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
%core [[~nul %home] /hoon/program/gen]
|
%core [[~nul %home] /hoon/program/gen]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4555,8 +4503,7 @@
|
|||||||
::
|
::
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4623,8 +4570,7 @@
|
|||||||
::
|
::
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4678,8 +4624,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
:* %plan [[~nul %home] /other/lib]
|
:* %plan [[~nul %home] /other/lib]
|
||||||
:~ %many
|
:~ %many
|
||||||
[%blob *cred:eyre]
|
[%blob *cred:eyre]
|
||||||
@ -4786,8 +4731,7 @@
|
|||||||
::
|
::
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
[%core source-path=`rail:ford-gate`[[~nul %home] /hoon/program/gen]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4870,8 +4814,7 @@
|
|||||||
scry=(scry-with-results-and-failures scry-results)
|
scry=(scry-with-results-and-failures scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
%core [[~nul %home] /hoon/program/gen]
|
%core [[~nul %home] /hoon/program/gen]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4940,8 +4883,7 @@
|
|||||||
::
|
::
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
%core [[~nul %home] /hoon/program/gen]
|
%core [[~nul %home] /hoon/program/gen]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -4996,8 +4938,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%bunt [~nul %home] %foo]
|
[%bunt [~nul %home] %foo]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -5053,8 +4994,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%volt [~nul %home] %foo [12 13]]
|
[%volt [~nul %home] %foo [12 13]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -5110,8 +5050,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%vale [~nul %home] %foo [12 13]]
|
[%vale [~nul %home] %foo [12 13]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -5167,8 +5106,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%vale [~nul %home] %foo 42]
|
[%vale [~nul %home] %foo 42]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -5231,8 +5169,7 @@
|
|||||||
scry=(scry-with-results-and-failures scry-results)
|
scry=(scry-with-results-and-failures scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%cast [~nul %home] %foo [%vale [~nul %home] %bar [12 13]]]
|
[%cast [~nul %home] %foo [%vale [~nul %home] %bar [12 13]]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -5316,8 +5253,7 @@
|
|||||||
scry=(scry-with-results-and-failures scry-results)
|
scry=(scry-with-results-and-failures scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%cast [~nul %home] %foo [%vale [~nul %home] %bar [12 13]]]
|
[%cast [~nul %home] %foo [%vale [~nul %home] %bar [12 13]]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -5364,8 +5300,7 @@
|
|||||||
scry=scry-is-forbidden
|
scry=scry-is-forbidden
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
%mute subject=[%$ %foo !>([a=42 b=[43 c=44]])]
|
%mute subject=[%$ %foo !>([a=42 b=[43 c=44]])]
|
||||||
^= mutations ^- (list [wing schematic:ford-gate])
|
^= mutations ^- (list [wing schematic:ford-gate])
|
||||||
:~
|
:~
|
||||||
@ -5434,8 +5369,7 @@
|
|||||||
::
|
::
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%bake %foo *coin `rail:ford-gate`[[~nul %home] /data]]
|
[%bake %foo *coin `rail:ford-gate`[[~nul %home] /data]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -5524,8 +5458,7 @@
|
|||||||
::
|
::
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%bake %foo *coin `rail:ford-gate`[[~nul %home] /data]]
|
[%bake %foo *coin `rail:ford-gate`[[~nul %home] /data]]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -5593,8 +5526,7 @@
|
|||||||
::
|
::
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
:^ %diff [~nul %home]
|
:^ %diff [~nul %home]
|
||||||
[%$ %foo !>([12 13])]
|
[%$ %foo !>([12 13])]
|
||||||
[%$ %foo !>([17 18])]
|
[%$ %foo !>([17 18])]
|
||||||
@ -5681,8 +5613,7 @@
|
|||||||
scry=(scry-with-results-and-failures scry-results)
|
scry=(scry-with-results-and-failures scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
:^ %diff [~nul %home]
|
:^ %diff [~nul %home]
|
||||||
[%$ %txt !>(~[%a %b])]
|
[%$ %txt !>(~[%a %b])]
|
||||||
[%$ %txt !>(~[%a %d])]
|
[%$ %txt !>(~[%a %d])]
|
||||||
@ -5774,8 +5705,7 @@
|
|||||||
scry=(scry-with-results-and-failures scry-results)
|
scry=(scry-with-results-and-failures scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
:^ %pact [~nul %home]
|
:^ %pact [~nul %home]
|
||||||
[%$ %txt !>(~[%a %b])]
|
[%$ %txt !>(~[%a %b])]
|
||||||
[%$ %txt-diff !>(~[[%& 1] [%| ~[%b] ~[%d]]])]
|
[%$ %txt-diff !>(~[[%& 1] [%| ~[%b] ~[%d]]])]
|
||||||
@ -5887,8 +5817,7 @@
|
|||||||
scry=(scry-with-results-and-failures scry-results)
|
scry=(scry-with-results-and-failures scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
:^ %pact [~nul %home]
|
:^ %pact [~nul %home]
|
||||||
:+ %$ %foo !>
|
:+ %$ %foo !>
|
||||||
'''
|
'''
|
||||||
@ -5958,8 +5887,7 @@
|
|||||||
scry=(scry-with-results-and-failures scry-results)
|
scry=(scry-with-results-and-failures scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
:^ %join [~nul %home] %txt
|
:^ %join [~nul %home] %txt
|
||||||
:: replace %a with %c on the first line
|
:: replace %a with %c on the first line
|
||||||
::
|
::
|
||||||
@ -6012,8 +5940,8 @@
|
|||||||
scry=scry-is-forbidden
|
scry=scry-is-forbidden
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/count] type=~ %build ~nul
|
:* duct=~[/count] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6 %list
|
%list
|
||||||
:~ [%$ %noun ud-type 1]
|
:~ [%$ %noun ud-type 1]
|
||||||
[%$ %noun ud-type 2]
|
[%$ %noun ud-type 2]
|
||||||
[%$ %noun ud-type 3]
|
[%$ %noun ud-type 3]
|
||||||
@ -6058,8 +5986,7 @@
|
|||||||
scry=(scry-with-results-and-failures scry-results)
|
scry=(scry-with-results-and-failures scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/path] type=~ %build ~nul
|
:* duct=~[/path] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
^- schematic:ford-gate
|
^- schematic:ford-gate
|
||||||
:- %mash
|
:- %mash
|
||||||
:^ [~nul %home] %txt
|
:^ [~nul %home] %txt
|
||||||
@ -6193,7 +6120,7 @@
|
|||||||
scry=(scry-with-results-and-failures scry-results)
|
scry=(scry-with-results-and-failures scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/gh] type=~ %build ~nul
|
:* duct=~[/gh] type=~ %build ~nul live=%.y
|
||||||
%core [[~nul %home] /hoon/gh/app]
|
%core [[~nul %home] /hoon/gh/app]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -6329,7 +6256,7 @@
|
|||||||
scry=(scry-with-results-and-failures scry-results)
|
scry=(scry-with-results-and-failures scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/gh2] type=~ %build ~nul
|
:* duct=~[/gh2] type=~ %build ~nul live=%.y
|
||||||
%core [[~nul %home] /hoon/gh2/app]
|
%core [[~nul %home] /hoon/gh2/app]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -6478,7 +6405,7 @@
|
|||||||
scry=(scry-with-results-and-failures scry-results)
|
scry=(scry-with-results-and-failures scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/gh3] type=~ %build ~nul
|
:* duct=~[/gh3] type=~ %build ~nul live=%.y
|
||||||
%core [[~nul %home] /hoon/gh3/app]
|
%core [[~nul %home] /hoon/gh3/app]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -6863,7 +6790,7 @@
|
|||||||
scry=(scry-with-results scry-results)
|
scry=(scry-with-results scry-results)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/walk] type=~ %build ~nul
|
:* duct=~[/walk] type=~ %build ~nul live=%.y
|
||||||
%walk [~nul %home] %one %two
|
%walk [~nul %home] %one %two
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -6909,7 +6836,7 @@
|
|||||||
scry=(scry-with-results large-mark-graph)
|
scry=(scry-with-results large-mark-graph)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/walk] type=~ %build ~nul
|
:* duct=~[/walk] type=~ %build ~nul live=%.y
|
||||||
%walk [~nul %home] %one %four
|
%walk [~nul %home] %one %four
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
@ -6957,8 +6884,7 @@
|
|||||||
scry=(scry-with-results large-mark-graph)
|
scry=(scry-with-results large-mark-graph)
|
||||||
::
|
::
|
||||||
^= call-args
|
^= call-args
|
||||||
:* duct=~[/large] type=~ %build ~nul
|
:* duct=~[/large] type=~ %build ~nul live=%.n
|
||||||
%pin ~1234.5.6
|
|
||||||
[%cast [~nul %home] %four [%volt [~nul %home] %one ["one" 1]]]
|
[%cast [~nul %home] %four [%volt [~nul %home] %one ["one" 1]]]
|
||||||
==
|
==
|
||||||
^= comparator
|
^= comparator
|
||||||
|
|||||||
@ -559,25 +559,6 @@
|
|||||||
%volt ~
|
%volt ~
|
||||||
%walk ~
|
%walk ~
|
||||||
==
|
==
|
||||||
:: +date-from-schematic: finds the latest pin date from this schematic tree.
|
|
||||||
::
|
|
||||||
++ date-from-schematic
|
|
||||||
|= =schematic
|
|
||||||
^- @da
|
|
||||||
=+ children=(get-sub-schematics schematic)
|
|
||||||
=/ dates (turn children date-from-schematic)
|
|
||||||
=+ children-latest=(roll dates max)
|
|
||||||
?. ?=(%pin -.schematic)
|
|
||||||
children-latest
|
|
||||||
(max date.schematic children-latest)
|
|
||||||
:: +is-schematic-live:
|
|
||||||
::
|
|
||||||
:: A schematic is live if it is not pinned.
|
|
||||||
::
|
|
||||||
++ is-schematic-live
|
|
||||||
|= =schematic
|
|
||||||
^- ?
|
|
||||||
!?=(%pin -.schematic)
|
|
||||||
:: +by-schematic: door for manipulating :by-schematic.builds.ford-state
|
:: +by-schematic: door for manipulating :by-schematic.builds.ford-state
|
||||||
::
|
::
|
||||||
:: The :dates list for each key in :builds is sorted in reverse
|
:: The :dates list for each key in :builds is sorted in reverse
|
||||||
@ -5110,15 +5091,10 @@
|
|||||||
:: with the new :ship-state and produce it along with :moves.
|
:: with the new :ship-state and produce it along with :moves.
|
||||||
::
|
::
|
||||||
=^ ship-state state-by-ship.ax (find-or-create-ship-state our.task)
|
=^ ship-state state-by-ship.ax (find-or-create-ship-state our.task)
|
||||||
=/ live=? (is-schematic-live schematic.task)
|
=/ =build [now schematic.task]
|
||||||
=/ =build
|
|
||||||
:_ schematic.task
|
|
||||||
?: live
|
|
||||||
now
|
|
||||||
(date-from-schematic schematic.task)
|
|
||||||
=* event-args [[our.task duct now scry-gate] ship-state]
|
=* event-args [[our.task duct now scry-gate] ship-state]
|
||||||
=* start-build start-build:(per-event event-args)
|
=* start-build start-build:(per-event event-args)
|
||||||
=^ moves ship-state (start-build build live)
|
=^ moves ship-state (start-build build live.task)
|
||||||
=. state-by-ship.ax (~(put by state-by-ship.ax) our.task ship-state)
|
=. state-by-ship.ax (~(put by state-by-ship.ax) our.task ship-state)
|
||||||
::
|
::
|
||||||
[moves ford-gate]
|
[moves ford-gate]
|
||||||
|
|||||||
@ -872,6 +872,7 @@
|
|||||||
{$volt p/(cask *)} :: unsafe add type
|
{$volt p/(cask *)} :: unsafe add type
|
||||||
== ::
|
== ::
|
||||||
-- ::ford
|
-- ::ford
|
||||||
|
|
||||||
:: |ford: build system vane interface
|
:: |ford: build system vane interface
|
||||||
::
|
::
|
||||||
++ ford-api ^?
|
++ ford-api ^?
|
||||||
@ -889,6 +890,12 @@
|
|||||||
:: our: who our ship is (remove after cc-release)
|
:: our: who our ship is (remove after cc-release)
|
||||||
::
|
::
|
||||||
our=@p
|
our=@p
|
||||||
|
:: live: whether we run this build live
|
||||||
|
::
|
||||||
|
:: A live build will subscribe to further updates and keep the
|
||||||
|
:: build around.
|
||||||
|
::
|
||||||
|
live=?
|
||||||
:: plan: the schematic to build
|
:: plan: the schematic to build
|
||||||
::
|
::
|
||||||
=schematic
|
=schematic
|
||||||
@ -1529,7 +1536,6 @@
|
|||||||
?- -.+.result
|
?- -.+.result
|
||||||
^ [%noun (slop q:$(result head.result) q:$(result tail.result))]
|
^ [%noun (slop q:$(result head.result) q:$(result tail.result))]
|
||||||
%$ cage.result
|
%$ cage.result
|
||||||
%pin $(result build-result.result)
|
|
||||||
%alts $(result build-result.result)
|
%alts $(result build-result.result)
|
||||||
%bake cage.result
|
%bake cage.result
|
||||||
%bunt cage.result
|
%bunt cage.result
|
||||||
@ -1537,7 +1543,6 @@
|
|||||||
%cast cage.result
|
%cast cage.result
|
||||||
%core [%noun vase.result]
|
%core [%noun vase.result]
|
||||||
%diff cage.result
|
%diff cage.result
|
||||||
%dude $(result build-result.result)
|
|
||||||
%hood [%noun !>(scaffold.result)]
|
%hood [%noun !>(scaffold.result)]
|
||||||
%join cage.result
|
%join cage.result
|
||||||
%list [%noun -:!>(*(list cage)) (turn results.result result-to-cage)]
|
%list [%noun -:!>(*(list cage)) (turn results.result result-to-cage)]
|
||||||
@ -1548,7 +1553,6 @@
|
|||||||
%plan [%noun vase.result]
|
%plan [%noun vase.result]
|
||||||
%reef [%noun vase.result]
|
%reef [%noun vase.result]
|
||||||
%ride [%noun vase.result]
|
%ride [%noun vase.result]
|
||||||
%same $(result build-result.result)
|
|
||||||
%scry cage.result
|
%scry cage.result
|
||||||
%slim [%noun !>([type nock]:result)]
|
%slim [%noun !>([type nock]:result)]
|
||||||
%slit [%noun !>(type.result)]
|
%slit [%noun !>(type.result)]
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user