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 ProtectedAction = SimpleAction of ActionName * Resource * string list
|
||||
| CompositeAction of ActionName * Resource * string list
|
||||
datatype ProtectedAction = SimpleAction of ActionName * Resource
|
||||
| CompositeAction of ActionName * Resource
|
||||
|
||||
fun subordinated_actions (SimpleAction _) = nil
|
||||
| subordinated_actions (CompositeAction (Read,Entity c,p)) = nil
|
||||
| subordinated_actions (CompositeAction (Read,Entity c)) = nil
|
||||
(* let val read_attributes = ...
|
||||
val read_methods = ...
|
||||
in
|
||||
|
|
Loading…
Reference in New Issue