removed permission names from ProtectedAction datatype
git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@3240 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
7cedb2def8
commit
103ed6b315
|
@ -29,11 +29,11 @@ datatype Resource = Entity of Rep_OclType.Path
|
||||||
|
|
||||||
datatype ActionName = Create | Read | Update | Delete | FullAccess | Execute
|
datatype ActionName = Create | Read | Update | Delete | FullAccess | Execute
|
||||||
|
|
||||||
datatype ProtectedAction = SimpleAction of ActionName * Resource * string list
|
datatype ProtectedAction = SimpleAction of ActionName * Resource
|
||||||
| CompositeAction of ActionName * Resource * string list
|
| CompositeAction of ActionName * Resource
|
||||||
|
|
||||||
fun subordinated_actions (SimpleAction _) = nil
|
fun subordinated_actions (SimpleAction _) = nil
|
||||||
| subordinated_actions (CompositeAction (Read,Entity c,p)) = nil
|
| subordinated_actions (CompositeAction (Read,Entity c)) = nil
|
||||||
(* let val read_attributes = ...
|
(* let val read_attributes = ...
|
||||||
val read_methods = ...
|
val read_methods = ...
|
||||||
in
|
in
|
||||||
|
|
Loading…
Reference in New Issue