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: %node-siblings fixed

Browse Source
This commit is contained in:
Liam Fitzgerald 2020-12-11 13:05:40 +10:00
parent d27a26ec31
commit 82b668cf3a
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -281,7 +281,8 @@
(~(put in validators) u.mark)
==
%- zing
:~ (give [/updates /keys ~] [%add-graph resource graph mark overwrite])
:~ (give [/keys ~] %keys ~(key by graphs))
(give [/updates ~] %add-graph resource *graph:store mark overwrite)
clay-backup
?~ mark ~
?: (~(has in validators) u.mark) ~
@ -887,8 +888,10 @@
:+ %add-nodes
[ship term]
%- ~(gas by *(map index:store node:store))
%+ turn
=- ?:(older (slag (sub (lent -) count) -) (scag count -))
:: TODO time complexity not desirable
:: replace with custom ordered map functions
%+ turn
=- ?.(older (slag (safe-sub (lent -) count) -) (scag count -))
%- tap:orm
%+ subset:orm u.graph
=/ idx
@ -978,6 +981,14 @@
(peek:orm-log:store update-log)
(bind result |=([=time update:store] time))
==
::
++ safe-sub
|= [a=@ b=@]
^- @
?: (gte b a)
0
(sub a b)
::
++ get-node-children
|= [=ship =term =index:store]
^- (unit graph:store)