Update state structures and related code.

This commit is contained in:
Fang 2018-01-25 16:15:01 +01:00
parent c1dda042a8
commit a6a6081b0b

View File

@ -61,13 +61,15 @@
:: Domestic desk state. :: Domestic desk state.
:: ::
:: Includes subscriber list, dome (desk content), possible commit state (for :: Includes subscriber list, dome (desk content), possible commit state (for
:: local changes), and possible merge state (for incoming merges). :: local changes), possible merge state (for incoming merges), and permissions.
:: ::
++ dojo ++ dojo
$: qyx/cult :: subscribers $: qyx/cult :: subscribers
dom/dome :: desk state dom/dome :: desk state
dok/(unit dork) :: commit state dok/(unit dork) :: commit state
mer/(unit mery) :: merge state mer/(unit mery) :: merge state
per/(map path rule) :: read perms per path
pew/(map path rule) :: write perms per path
== ==
:: ::
:: Desk state. :: Desk state.
@ -78,8 +80,6 @@
:: ::
++ dome ++ dome
$: ank/ankh :: state $: ank/ankh :: state
per/(map path rule) :: read perms per path
pew/(map path rule) :: write perms per path
let/aeon :: top id let/aeon :: top id
hit/(map aeon tako) :: versions by id hit/(map aeon tako) :: versions by id
lab/(map @tas aeon) :: labels lab/(map @tas aeon) :: labels
@ -242,6 +242,8 @@
dom/dome :: revision state dom/dome :: revision state
dok/(unit dork) :: outstanding diffs dok/(unit dork) :: outstanding diffs
mer/(unit mery) :: outstanding merges mer/(unit mery) :: outstanding merges
per/(map path rule) :: read perms per path
pew/(map path rule) :: write perms per path
== :: == ::
:: ::
:: Foreign request manager. :: Foreign request manager.
@ -425,6 +427,8 @@
dom=*dome dom=*dome
dok=~ dok=~
mer=~ mer=~
per=~
pew=~
== ==
:- `hun.u.rom :- `hun.u.rom
=+ jod=(fall (~(get by dos.u.rom) syd) *dojo) =+ jod=(fall (~(get by dos.u.rom) syd) *dojo)
@ -434,6 +438,8 @@
dom=dom.jod dom=dom.jod
dok=dok.jod dok=dok.jod
mer=mer.jod mer=mer.jod
per=per.jod
pew=pew.jod
== ==
=* red -> =* red ->
=| mow/(list move) =| mow/(list move)
@ -444,7 +450,7 @@
?~ rom ?~ rom
=+ rug=(~(put by rus:(fall (~(get by hoy.ruf) her) *rung)) syd red) =+ rug=(~(put by rus:(fall (~(get by hoy.ruf) her) *rung)) syd red)
ruf(hoy (~(put by hoy.ruf) her rug)) ruf(hoy (~(put by hoy.ruf) her rug))
=+ dos=(~(put by dos.u.rom) syd [qyx dom dok mer]) =+ dos=(~(put by dos.u.rom) syd [qyx dom dok mer per pew])
ruf(fat (~(put by fat.ruf) her [(need hun) dos])) ruf(fat (~(put by fat.ruf) her [(need hun) dos]))
(flop mow) (flop mow)
:: ::