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

fixed +cleanup, +start-build; test build removal

Browse Source
This commit is contained in:
Ted Blackman 2018-03-19 11:23:04 -07:00
parent 1594b6ff81
commit 2049bcd68e
2 changed files with 60 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
gen/ford-turbo.hoon
View File

@ -18,15 +18,22 @@
::
++ test-call
~& %test-call
=/ ford (ford-turbo now=~1234.5.6 eny=0xdead.beef scry=*sley)
=^ moves ford
%- call:ford
:* duct=~
type=~
%make
~nul
plan=[%$ %noun !>(**)]
date=`~1234.5.6
==
:: %+ welp
:: %- expect-eq !>
:: :- moves
:: [duct=~ %give %made now %complete %result %$ %noun !>(**)]~
::
%- expect-eq !>
:- [duct=~ %give %made now %complete %result %$ %noun !>(**)]~
=- -.-
%- call:(ford-turbo)
:* duct=~
type=~
%make
our
plan=[%$ %noun !>(**)]
date=`now
==
:- state-by-ship.+>+<.ford
(~(gas by `(map ship ford-state:ford-turbo)`~) [~nul *ford-state:ford-turbo]~)
--

46
lib/ford-turbo.hoon
View File

@ -1,3 +1,4 @@
!:
::
:: sys/zuse/hoon
::
@ -857,13 +858,45 @@
=< finalize
::
=+ [live when]=?~(date [& now] [| u.date])
=/ build [when schematic]
=/ build=build [when schematic]
:: add :build to our state
::
=: listeners.state
(~(put ju listeners.state) build [duct live])
::
builds-by-listener.state
(~(put by builds-by-listener.state) duct build)
::
builds-by-schematic.state
%+ ~(put by builds-by-schematic.state)
schematic
:: insert :date.build into :builds-by-schematic at the correct index
::
:: The :dates in :build-by-schematic are sorted in reverse
:: chronological order.
::
=| newer-dates=(list @da)
=| older-dates=(list @da)
=/ exists |
::
=; res=[newer-dates=(list @da) exists=? older-dates=(list @da)]
;: welp
(flop newer-dates.res)
?:(exists.res ~ ~[date.build])
(flop older-dates.res)
==
::
=/ dates (fall (~(get by builds-by-schematic.state) schematic) ~)
|- ^+ [newer-dates exists older-dates]
?~ dates [newer-dates exists older-dates]
::
?: (gte i.dates date.build)
$(dates t.dates, newer-dates [i.dates newer-dates])
::
?: =(i.dates date.build)
$(dates t.dates, exists &)
::
$(dates t.dates, older-dates [i.dates older-dates])
==
::
?~ date
@ -987,6 +1020,8 @@
|= [=move mapping=_builds-by-listener.state]
=* duct -.move
(~(del by mapping) duct)
::
=. listeners.state (~(del by listeners.state) build)
:: try to delete this build entirely if nothing depends on it
::
=. state (cleanup build)
@ -1033,6 +1068,10 @@
?: =(i.dates date.build)
$(dates t.dates)
$(dates t.dates, new-dates [i.dates new-dates])
::
=? builds-by-schematic.state
=([~ ~] (~(get by builds-by-schematic.state) schematic.build))
(~(del by builds-by-schematic.state) schematic.build)
:: remove :build from :builds-by-state
::
=. builds-by-date.state
@ -1042,13 +1081,14 @@
=? dependency-updates.state
!(~(has by builds-by-date.state) date.build)
(~(del by dependency-updates.state) date.build)
:: direct-deps: dependencies of :build itself, not :kids
::
=/ direct-deps (fall (~(get by dependencies.state) build) ~)
:: kids: :build's sub-builds
::
=/ kids ~(tap in (~(get ju sub-builds) build))
:: gather :dependencies from :build and its :kids
::
=/ direct-deps (fall (~(get by dependencies.state) build) ~)
::
=/ dependencies=(jug disc dependency) direct-deps
=. dependencies
|- ^+ dependencies