2019-09-25 23:31:31 +03:00
|
|
|
|%
|
|
|
|
|
+$ kind ?(%black %white)
|
|
|
|
|
::
|
|
|
|
|
+$ permission
|
|
|
|
|
$: =kind
|
|
|
|
|
who=(set ship)
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
+$ permission-map (map path permission)
|
|
|
|
|
::
|
|
|
|
|
+$ permission-update
|
|
|
|
|
$% [%create =path =permission] :: create perm at path
|
|
|
|
|
[%delete =path] :: delete perm at path
|
|
|
|
|
[%add =path who=(set ship)] :: add ships to perm path
|
|
|
|
|
[%remove =path who=(set ship)] :: remove ships from perm path
|
2020-05-26 23:43:27 +03:00
|
|
|
[%initial permissions=permission-map]
|
2019-09-25 23:31:31 +03:00
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
+$ permission-action
|
|
|
|
|
$% permission-update
|
|
|
|
|
[%allow =path who=(set ship)] :: if %black, remove
|
|
|
|
|
:: if %white, add
|
|
|
|
|
[%deny =path who=(set ship)] :: if %black, add
|
|
|
|
|
:: if %white, remove
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
--
|
|
|
|
|
|
