2019-09-25 23:31:31 +03:00
|
|
|
/+ *permission-json
|
|
|
|
|
=, dejs:format
|
|
|
|
|
|_ act=permission-action
|
2020-05-05 06:21:05 +03:00
|
|
|
++ grad %noun
|
|
|
|
|
++ grow
|
|
|
|
|
|%
|
|
|
|
|
++ noun act
|
|
|
|
|
--
|
2019-09-25 23:31:31 +03:00
|
|
|
++ grab
|
|
|
|
|
|%
|
|
|
|
|
++ noun permission-action
|
2020-01-04 00:06:42 +03:00
|
|
|
++ json
|
2019-09-25 23:31:31 +03:00
|
|
|
|= jon=^json
|
|
|
|
|
=< (parse-permission-action jon)
|
|
|
|
|
|%
|
|
|
|
|
++ parse-permission-action
|
|
|
|
|
%- of
|
|
|
|
|
:~ [%create create]
|
|
|
|
|
[%delete delete]
|
|
|
|
|
[%add add]
|
|
|
|
|
[%remove remove]
|
|
|
|
|
[%allow allow]
|
|
|
|
|
[%deny deny]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ create
|
|
|
|
|
%- ot
|
|
|
|
|
:~ [%path pa]
|
|
|
|
|
[%kind ki]
|
|
|
|
|
[%who (as pa)]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ delete
|
|
|
|
|
(ot [%path pa]~)
|
|
|
|
|
::
|
|
|
|
|
++ add
|
|
|
|
|
%- ot
|
|
|
|
|
:~ [%path pa]
|
|
|
|
|
[%who (as (su ;~(pfix sig fed:ag)))]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ remove
|
|
|
|
|
%- ot
|
|
|
|
|
:~ [%path pa]
|
|
|
|
|
[%who (as (su ;~(pfix sig fed:ag)))]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ allow
|
|
|
|
|
%- ot
|
|
|
|
|
:~ [%path pa]
|
|
|
|
|
[%who (as (su ;~(pfix sig fed:ag)))]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
++ deny
|
|
|
|
|
%- ot
|
|
|
|
|
:~ [%path pa]
|
|
|
|
|
[%who (as (su ;~(pfix sig fed:ag)))]
|
|
|
|
|
==
|
|
|
|
|
::
|
|
|
|
|
--
|
|
|
|
|
--
|
|
|
|
|
--
|
