ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-14 17:41:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

WIP: +graph-export

Browse Source
This commit is contained in:
Ted Blackman 2020-09-18 15:50:54 -04:00
parent 0211cdd73c
commit f334854318
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -473,6 +473,20 @@
:+ %0 :+ %0
now.bowl now.bowl
[%add-graph [ship term] `graph:store`p.u.result q.u.result] [%add-graph [ship term] `graph:store`p.u.result q.u.result]
::
:: note: near-duplicate of /x/graph
::
[%x %archive @ @ ~]
=/ =ship (slav %p i.t.t.path)
=/ =term i.t.t.t.path
=/ result=(unit marked-graph:store)
(~(get by archive) [ship term])
?~ result [~ ~]
:- ~ :- ~ :- %graph-update
!> ^- update:store
:+ %0
now.bowl
[%add-graph [ship term] `graph:store`p.u.result q.u.result]
:: ::
[%x %graph-subset @ @ @ @ ~] [%x %graph-subset @ @ @ @ ~]
=/ =ship (slav %p i.t.t.path) =/ =ship (slav %p i.t.t.path)

11
pkg/arvo/gen/graph-store/export-graph.hoon Normal file
View File

@ -0,0 +1,11 @@
/+ graph-store
::
:- %say
|= $: [now=@da eny=@uvJ bec=beak]
[=ship graph=term ~]
==
:- %noun
=/ our (scot %p p.bec)
=/ wen (scot %da now)
=/ who (scot %p ship)
.^(update:graph-store /gx/[our]/graph-store/[wen]/[who]/[graph])