mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 18:31:44 +03:00
350 lines
9.5 KiB
Plaintext
350 lines
9.5 KiB
Plaintext
:: metadata-store: data store for application metadata and mappings
|
|
:: between groups and resources within applications
|
|
::
|
|
:: group-paths are expected to be an existing group path
|
|
:: resources are expected to correspond to existing app paths
|
|
::
|
|
:: note: when scrying for metadata, to make the arguments safe in paths,
|
|
:: encode group-path and app-path using (scot %t (spat group-path))
|
|
::
|
|
:: +watch paths:
|
|
:: /all assocations + updates
|
|
:: /updates just updates
|
|
:: /app-name/%app-name specific app's associations + updates
|
|
::
|
|
:: +peek paths:
|
|
:: /associations all associations
|
|
:: /group-indices all group indices
|
|
:: /app-indices all app indices
|
|
:: /resource-indices all resource indices
|
|
:: /metadata/%group-path/%app-name/%app-path specific metadatum
|
|
:: /app-name/%app-name associations for app
|
|
:: /group/%group-path associations for group
|
|
::
|
|
/- *metadata-store, *metadata-hook
|
|
/+ *metadata-json, default-agent, verb, dbug, resource
|
|
|%
|
|
+$ card card:agent:gall
|
|
::
|
|
::
|
|
+$ state-base
|
|
$: =associations
|
|
group-indices=(jug group-path md-resource)
|
|
app-indices=(jug app-name [group-path app-path])
|
|
resource-indices=(jug md-resource group-path)
|
|
==
|
|
::
|
|
+$ state-zero
|
|
$: %0
|
|
state-base
|
|
==
|
|
::
|
|
+$ state-one
|
|
$: %1
|
|
state-base
|
|
==
|
|
::
|
|
+$ state-two
|
|
$: %2
|
|
state-base
|
|
==
|
|
::
|
|
+$ versioned-state
|
|
$% state-zero
|
|
state-one
|
|
state-two
|
|
==
|
|
--
|
|
::
|
|
=| state-two
|
|
=* state -
|
|
%+ verb |
|
|
%- agent:dbug
|
|
^- agent:gall
|
|
=<
|
|
|_ =bowl:gall
|
|
+* this .
|
|
metadata-core +>
|
|
mc ~(. metadata-core bowl)
|
|
def ~(. (default-agent this %|) bowl)
|
|
::
|
|
++ on-init on-init:def
|
|
++ on-save !>(state)
|
|
++ on-load
|
|
|= =vase
|
|
^- (quip card _this)
|
|
=/ old
|
|
!<(versioned-state vase)
|
|
=| cards=(list card)
|
|
|-
|
|
|^
|
|
?: ?=(%2 -.old)
|
|
[cards this(state old)]
|
|
?: ?=(%1 -.old)
|
|
%_ $
|
|
old [%2 +.old]
|
|
::
|
|
cards
|
|
%+ turn
|
|
~(tap in ~(key by group-indices.old))
|
|
|= =group-path
|
|
^- card
|
|
=/ rid=resource
|
|
(de-path:resource group-path)
|
|
?: =(our.bowl entity.rid)
|
|
(poke-md-hook %add-owned group-path)
|
|
(poke-md-hook %add-synced entity.rid group-path)
|
|
==
|
|
=/ new-state=state-one
|
|
%* . *state-one
|
|
associations (migrate-associations associations.old)
|
|
group-indices (migrate-group-indices group-indices.old)
|
|
app-indices (migrate-app-indices app-indices.old)
|
|
resource-indices (migrate-resource-indices resource-indices.old)
|
|
==
|
|
$(old new-state)
|
|
::
|
|
++ poke-md-hook
|
|
|= act=metadata-hook-action
|
|
^- card
|
|
=/ =cage
|
|
:_ !>(act)
|
|
%metadata-hook-action
|
|
[%pass / %agent [our.bowl %metadata-hook] %poke cage]
|
|
::
|
|
++ new-group-path
|
|
|= =group-path
|
|
ship+(new-app-path group-path)
|
|
|
|
++ new-app-path
|
|
|= =app-path
|
|
^- path
|
|
?> ?=(^ app-path)
|
|
?: =('~' i.app-path)
|
|
t.app-path
|
|
app-path
|
|
::
|
|
++ migrate-md-resource
|
|
|= md-resource
|
|
^- md-resource
|
|
?: =(%chat app-name)
|
|
[%chat (new-app-path app-path)]
|
|
?: =(%contacts app-name)
|
|
[%contacts ship+app-path]
|
|
[app-name app-path]
|
|
::
|
|
++ migrate-resource-indices
|
|
|= resource-indices=(jug md-resource group-path)
|
|
^- (jug md-resource group-path)
|
|
%- malt
|
|
%+ turn
|
|
~(tap by resource-indices)
|
|
|= [=md-resource paths=(set group-path)]
|
|
:_ (~(run in paths) new-group-path)
|
|
(migrate-md-resource md-resource)
|
|
::
|
|
++ migrate-app-indices
|
|
|= app-indices=(jug app-name [group-path app-path])
|
|
%- malt
|
|
%+ turn
|
|
~(tap by app-indices)
|
|
|= [app=term indices=(set [=group-path =app-path])]
|
|
:- app
|
|
%- ~(run in indices)
|
|
|= [=group-path =app-path]
|
|
:- (new-group-path group-path)
|
|
?: =(%chat app)
|
|
(new-app-path app-path)
|
|
?: =(%contacts app)
|
|
ship+app-path
|
|
app-path
|
|
::
|
|
++ migrate-group-indices
|
|
|= group-indices=(jug group-path md-resource)
|
|
%- malt
|
|
%+ turn
|
|
~(tap by group-indices)
|
|
|= [=group-path resources=(set md-resource)]
|
|
:- (new-group-path group-path)
|
|
%- sy
|
|
%+ turn
|
|
~(tap in resources)
|
|
migrate-md-resource
|
|
::
|
|
++ migrate-associations
|
|
|= =^associations
|
|
%- malt
|
|
%+ turn
|
|
~(tap by associations)
|
|
|= [[=group-path =md-resource] =metadata]
|
|
:_ metadata
|
|
:_ (migrate-md-resource md-resource)
|
|
(new-group-path group-path)
|
|
--
|
|
::
|
|
++ on-poke
|
|
|= [=mark =vase]
|
|
^- (quip card _this)
|
|
?> (team:title our.bowl src.bowl)
|
|
=^ cards state
|
|
?+ mark (on-poke:def mark vase)
|
|
%metadata-action
|
|
(poke-metadata-action:mc !<(metadata-action vase))
|
|
%noun
|
|
=/ val=(each [%cleanup path] tang)
|
|
(mule |.(!<([%cleanup path] vase)))
|
|
?. ?=(%& -.val)
|
|
(on-poke:def mark vase)
|
|
=/ group=path +.p.val
|
|
=/ res=(set md-resource) (~(get ju group-indices) group)
|
|
=. group-indices (~(del by group-indices) group)
|
|
:- ~
|
|
%+ roll ~(tap in res)
|
|
|= [r=md-resource out=_state]
|
|
=. resource-indices.out (~(del by resource-indices.out) r)
|
|
=. app-indices.out
|
|
%- ~(del ju app-indices.out)
|
|
[app-name.r group app-path.r]
|
|
=. associations.out (~(del by associations.out) group r)
|
|
out
|
|
==
|
|
[cards this]
|
|
::
|
|
++ on-watch
|
|
|= =path
|
|
^- (quip card _this)
|
|
?> (team:title our.bowl src.bowl)
|
|
|^
|
|
=/ cards=(list card)
|
|
?+ path (on-watch:def path)
|
|
[%all ~] (give %metadata-update !>([%associations associations]))
|
|
[%updates ~] ~
|
|
[%app-name @ ~]
|
|
=/ =app-name i.t.path
|
|
=/ app-indices (metadata-for-app:mc app-name)
|
|
(give %metadata-update !>([%associations app-indices]))
|
|
==
|
|
[cards this]
|
|
::
|
|
++ give
|
|
|= =cage
|
|
^- (list card)
|
|
[%give %fact ~ cage]~
|
|
--
|
|
::
|
|
++ on-leave on-leave:def
|
|
::
|
|
++ on-peek
|
|
|= =path
|
|
^- (unit (unit cage))
|
|
?+ path (on-peek:def path)
|
|
[%y %group-indices ~] ``noun+!>(group-indices)
|
|
[%y %app-indices ~] ``noun+!>(app-indices)
|
|
[%y %resource-indices ~] ``noun+!>(resource-indices)
|
|
[%x %associations ~] ``noun+!>(associations)
|
|
[%x %app-name @ ~]
|
|
=/ =app-name i.t.t.path
|
|
``noun+!>((metadata-for-app:mc app-name))
|
|
::
|
|
[%x %group *]
|
|
=/ =group-path t.t.path
|
|
``noun+!>((metadata-for-group:mc group-path))
|
|
::
|
|
[%x %metadata @ @ @ ~]
|
|
=/ =group-path (stab (slav %t i.t.t.path))
|
|
=/ =md-resource [`@tas`i.t.t.t.path (stab (slav %t i.t.t.t.t.path))]
|
|
``noun+!>((~(get by associations) [group-path md-resource]))
|
|
==
|
|
::
|
|
++ on-agent on-agent:def
|
|
++ on-arvo on-arvo:def
|
|
++ on-fail on-fail:def
|
|
--
|
|
::
|
|
|_ =bowl:gall
|
|
++ poke-metadata-action
|
|
|= act=metadata-action
|
|
^- (quip card _state)
|
|
?> (team:title our.bowl src.bowl)
|
|
?- -.act
|
|
%add
|
|
(handle-add group-path.act resource.act metadata.act)
|
|
::
|
|
%remove
|
|
(handle-remove group-path.act resource.act)
|
|
==
|
|
::
|
|
++ handle-add
|
|
|= [=group-path =md-resource =metadata]
|
|
^- (quip card _state)
|
|
:- %+ send-diff app-name.md-resource
|
|
?. (~(has by resource-indices) md-resource)
|
|
[%add group-path md-resource metadata]
|
|
[%update-metadata group-path md-resource metadata]
|
|
%= state
|
|
associations
|
|
(~(put by associations) [group-path md-resource] metadata)
|
|
::
|
|
group-indices
|
|
(~(put ju group-indices) group-path md-resource)
|
|
::
|
|
app-indices
|
|
(~(put ju app-indices) app-name.md-resource [group-path app-path.md-resource])
|
|
::
|
|
resource-indices
|
|
(~(put ju resource-indices) md-resource group-path)
|
|
==
|
|
::
|
|
++ handle-remove
|
|
|= [=group-path =md-resource]
|
|
^- (quip card _state)
|
|
:- (send-diff app-name.md-resource [%remove group-path md-resource])
|
|
%= state
|
|
associations
|
|
(~(del by associations) [group-path md-resource])
|
|
::
|
|
group-indices
|
|
(~(del ju group-indices) group-path md-resource)
|
|
::
|
|
app-indices
|
|
(~(del ju app-indices) app-name.md-resource [group-path app-path.md-resource])
|
|
::
|
|
resource-indices
|
|
(~(del ju resource-indices) md-resource group-path)
|
|
==
|
|
::
|
|
++ metadata-for-app
|
|
|= =app-name
|
|
^- ^associations
|
|
%- ~(gas by *^associations)
|
|
%+ turn ~(tap in (~(gut by app-indices) app-name ~))
|
|
|= [=group-path =app-path]
|
|
:- [group-path [app-name app-path]]
|
|
(~(got by associations) [group-path [app-name app-path]])
|
|
::
|
|
++ metadata-for-group
|
|
|= =group-path
|
|
^- ^associations
|
|
%- ~(gas by *^associations)
|
|
%+ turn ~(tap in (~(gut by group-indices) group-path ~))
|
|
|= =md-resource
|
|
:- [group-path md-resource]
|
|
(~(got by associations) [group-path md-resource])
|
|
::
|
|
++ send-diff
|
|
|= [=app-name upd=metadata-update]
|
|
^- (list card)
|
|
|^
|
|
%- zing
|
|
:~ (update-subscribers /all upd)
|
|
(update-subscribers /updates upd)
|
|
(update-subscribers [%app-name app-name ~] upd)
|
|
==
|
|
::
|
|
++ update-subscribers
|
|
|= [pax=path upd=metadata-update]
|
|
^- (list card)
|
|
[%give %fact ~[pax] %metadata-update !>(upd)]~
|
|
--
|
|
--
|