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

landscape: migration scripts for heap & dms

Browse Source
This commit is contained in:
Liam Fitzgerald 2022-10-25 15:20:40 +10:00
parent 5e89835c5d
commit 53621ecb98
2 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
pkg/landscape/sur/migrate.hoon
View File

@ -8,6 +8,21 @@
[writers=(set ship) =association:met =update-log:gra =graph:gra]
+$ imports (map flag import)
--
::
++ diary
|%
+$ import
[writers=(set ship) =association:met =update-log:gra =graph:gra]
+$ imports (map flag import)
--
::
++ heap
|%
+$ import
[writers=(set ship) =association:met =update-log:gra =graph:gra]
+$ imports (map flag import)
--
++ groups
|%
+$ import [=association:met =group]

40
pkg/landscape/ted/migrate.hoon
View File

@ -46,4 +46,44 @@
~
`[flag writers u.assoc u.log graph]
;< ~ bind:m (poke-our:strandio %chat %graph-imports !>(imports))
=/ =imports:diary:i
%- ~(gas by *imports:diary:i)
%+ murn ~(tap by graphs.network)
|= [=flag:i graph=graph:gra mar=(unit mark)]
?. =(mar `%graph-validator-publish) :: XX: correct detection?
~
?~ assoc=(~(get by associations) [%graph flag])
~& missing-assoc/flag
~
?~ group=(~(get by groups) group.u.assoc)
~& missing-group/[flag group.u.assoc]
~
=/ writers=(set ship) (~(get ju tags.u.group) %graph flag %writers)
?~ log=(~(get by update-logs.network) flag)
~& missing-log/flag :: XX: doesn't need to fail, but suspect case
~
`[flag writers u.assoc u.log graph]
;< ~ bind:m (poke-our:strandio %diary %graph-imports !>(imports))
=/ =imports:heap:i
%- ~(gas by *imports:heap:i)
%+ murn ~(tap by graphs.network)
|= [=flag:i graph=graph:gra mar=(unit mark)]
?. =(mar `%graph-validator-link) :: XX: correct detection?
~
?~ assoc=(~(get by associations) [%graph flag])
~& missing-assoc/flag
~
?~ group=(~(get by groups) group.u.assoc)
~& missing-group/[flag group.u.assoc]
~
=/ writers=(set ship) (~(get ju tags.u.group) %graph flag %writers)
?~ log=(~(get by update-logs.network) flag)
~& missing-log/flag :: XX: doesn't need to fail, but suspect case
~
`[flag writers u.assoc u.log graph]
;< ~ bind:m (poke-our:strandio %link %graph-imports !>(imports))
;< ~ bind:m
?~ dms=(~(get by graphs.network) [our.bowl %dm-inbox])
(pure:(strand ,~) ~)
(poke-our:strandio %chat %dm-imports !>(p.u.dms))
(pure:m *vase)