2020-07-07 02:31:57 +03:00
|
|
|
/- *resource
|
|
|
|
|
/+ store=graph-store
|
|
|
|
|
|_ =bowl:gall
|
2020-06-27 00:13:12 +03:00
|
|
|
++ scry-for
|
|
|
|
|
|* [=mold =path]
|
|
|
|
|
.^ mold
|
|
|
|
|
%gx
|
|
|
|
|
(scot %p our.bowl)
|
|
|
|
|
%graph-store
|
|
|
|
|
(scot %da now.bowl)
|
|
|
|
|
(snoc `^path`path %noun)
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ get-graph
|
|
|
|
|
|= res=resource
|
2020-09-04 10:42:20 +03:00
|
|
|
^- update:store
|
|
|
|
|
%+ scry-for update:store
|
2020-07-07 03:02:15 +03:00
|
|
|
/graph/(scot %p entity.res)/[name.res]
|
2020-06-27 00:36:57 +03:00
|
|
|
::
|
2020-12-17 04:59:35 +03:00
|
|
|
++ get-graph-mop
|
|
|
|
|
|= res=resource
|
|
|
|
|
^- graph:store
|
|
|
|
|
=/ =update:store
|
|
|
|
|
(get-graph res)
|
2020-12-17 09:10:26 +03:00
|
|
|
?> ?=(%0 -.update)
|
2020-12-17 04:59:35 +03:00
|
|
|
?> ?=(%add-graph -.q.update)
|
|
|
|
|
graph.q.update
|
|
|
|
|
::
|
2020-12-01 08:46:28 +03:00
|
|
|
++ gut-younger-node-siblings
|
|
|
|
|
|= [res=resource =index:store]
|
|
|
|
|
^- (map index:store node:store)
|
|
|
|
|
=+ %+ scry-for ,=update:store
|
|
|
|
|
%+ weld
|
|
|
|
|
/node-siblings/younger/(scot %p entity.res)/[name.res]/all
|
|
|
|
|
(turn index (cury scot %ud))
|
|
|
|
|
?> ?=(%0 -.update)
|
|
|
|
|
?> ?=(%add-nodes -.q.update)
|
|
|
|
|
nodes.q.update
|
|
|
|
|
::
|
2020-11-03 21:10:57 +03:00
|
|
|
++ got-node
|
2020-11-03 03:19:58 +03:00
|
|
|
|= [res=resource =index:store]
|
|
|
|
|
^- node:store
|
|
|
|
|
=+ %+ scry-for ,=update:store
|
|
|
|
|
%+ weld
|
|
|
|
|
/node/(scot %p entity.res)/[name.res]
|
|
|
|
|
(turn index (cury scot %ud))
|
|
|
|
|
?> ?=(%0 -.update)
|
|
|
|
|
?> ?=(%add-nodes -.q.update)
|
|
|
|
|
?> ?=(^ nodes.q.update)
|
|
|
|
|
q.n.nodes.q.update
|
|
|
|
|
::
|
2021-01-11 02:51:36 +03:00
|
|
|
++ check-node-existence
|
|
|
|
|
|= [res=resource =index:store]
|
|
|
|
|
^- ?
|
|
|
|
|
%+ scry-for ,?
|
|
|
|
|
%+ weld
|
|
|
|
|
/node-exists/(scot %p entity.res)/[name.res]
|
|
|
|
|
(turn index (cury scot %ud))
|
|
|
|
|
::
|
2020-09-04 10:42:20 +03:00
|
|
|
++ get-update-log
|
|
|
|
|
|= rid=resource
|
|
|
|
|
^- update-log:store
|
|
|
|
|
%+ scry-for update-log:store
|
|
|
|
|
/update-log/(scot %p entity.rid)/[name.rid]
|
|
|
|
|
::
|
2020-08-19 22:22:20 +03:00
|
|
|
++ peek-update-log
|
2020-06-27 00:36:57 +03:00
|
|
|
|= res=resource
|
|
|
|
|
^- (unit time)
|
2020-06-30 04:14:55 +03:00
|
|
|
(scry-for (unit time) /peek-update-log/(scot %p entity.res)/[name.res])
|
2020-08-19 22:22:20 +03:00
|
|
|
::
|
|
|
|
|
++ get-update-log-subset
|
|
|
|
|
|= [res=resource start=@da]
|
|
|
|
|
^- update-log:store
|
|
|
|
|
%+ scry-for update-log:store
|
|
|
|
|
/update-log-subset/(scot %p entity.res)/[name.res]/(scot %da start)/'~'
|
2020-11-03 10:20:01 +03:00
|
|
|
::
|
|
|
|
|
++ get-keys
|
|
|
|
|
^- resources
|
|
|
|
|
=+ %+ scry-for ,=update:store
|
|
|
|
|
/keys
|
|
|
|
|
?> ?=(%0 -.update)
|
|
|
|
|
?> ?=(%keys -.q.update)
|
|
|
|
|
resources.q.update
|
2020-12-01 08:46:28 +03:00
|
|
|
::
|
|
|
|
|
++ tap-deep
|
|
|
|
|
|= =graph:store
|
|
|
|
|
^- (list [index:store node:store])
|
|
|
|
|
=| =index:store
|
|
|
|
|
=/ nodes=(list [atom node:store])
|
|
|
|
|
(tap:orm:store graph)
|
|
|
|
|
|- =* tap-nodes $
|
|
|
|
|
^- (list [index:store node:store])
|
|
|
|
|
%- zing
|
|
|
|
|
%+ turn
|
|
|
|
|
nodes
|
|
|
|
|
|= [=atom =node:store]
|
|
|
|
|
^- (list [index:store node:store])
|
|
|
|
|
%+ welp
|
|
|
|
|
^- (list [index:store node:store])
|
|
|
|
|
[(snoc index atom) node]~
|
|
|
|
|
?. ?=(%graph -.children.node)
|
|
|
|
|
~
|
|
|
|
|
%_ tap-nodes
|
|
|
|
|
index (snoc index atom)
|
|
|
|
|
nodes (tap:orm:store p.children.node)
|
|
|
|
|
==
|
2020-06-27 00:13:12 +03:00
|
|
|
--
|
