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

graph-store: mark unmarked graphs

Browse Source
This commit is contained in:
Liam Fitzgerald 2020-10-29 13:11:18 +10:00
parent 829cd509b4
commit fbf505c0d9
2 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
pkg/arvo/app/graph-store.hoon
View File

@ -7,14 +7,17 @@
+$ card card:agent:gall +$ card card:agent:gall
+$ versioned-state +$ versioned-state
$% state-0 $% state-0
state-1
== ==
:: ::
+$ state-0 [%0 network:store] +$ state-0 [%0 network:store]
+$ state-1 [%1 network:store]
::
++ orm orm:store ++ orm orm:store
++ orm-log orm-log:store ++ orm-log orm-log:store
-- --
:: ::
=| state-0 =| state-1
=* state - =* state -
:: ::
%- agent:dbug %- agent:dbug
@ -27,9 +30,27 @@
++ on-init [~ this] ++ on-init [~ this]
++ on-save !>(state) ++ on-save !>(state)
++ on-load ++ on-load
|= old=vase |= =old=vase
^- (quip card _this) ^- (quip card _this)
[~ this(state !<(state-0 old))] =+ !<(old=versioned-state old-vase)
=| cards=(list card)
|-
?- -.old
%0
%_ $
-.old %1
::
graphs.old
%- ~(run by graphs.old)
|= [=graph:store q=(unit mark)]
^- [graph:store (unit mark)]
:- graph
?^ q q
`%graph-validator-link
==
::
%1 [cards this(state old)]
==
:: ::
++ on-watch ++ on-watch
~/ %graph-store-watch ~/ %graph-store-watch

4
pkg/arvo/app/publish.hoon
View File

@ -336,8 +336,10 @@
%^ put:orm:graph-store %^ put:orm:graph-store
*graph:graph-store %1 *graph:graph-store %1
=/ body=@t =/ body=@t
=/ file
(trip file.note)
=/ idx =/ idx
(find ";>" file.note) (find ";>" file)
?~ idx ?~ idx
file.note file.note
%- crip %- crip