helper function state_name_of
git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@3159 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
af79670266
commit
098d84ef77
|
@ -205,6 +205,15 @@ fun state_xmiid_of (CompositeState{xmiid,...}) = xmiid
|
|||
| state_xmiid_of (PseudoState{xmiid,...}) = xmiid
|
||||
| state_xmiid_of (SyncState{xmiid,...}) = xmiid
|
||||
|
||||
fun state_name_of (CompositeState{name,...}) = name
|
||||
| state_name_of (SubactivityState{name,...}) = name
|
||||
| state_name_of (SimpleState{name,...}) = name
|
||||
| state_name_of (ActionState{name,...}) = name
|
||||
| state_name_of (ObjectFlowState{name,...}) = name
|
||||
| state_name_of (FinalState{name,...}) = name
|
||||
| state_name_of (PseudoState{name,...}) = name
|
||||
| state_name_of (SyncState{name,...}) = name
|
||||
|
||||
fun state_subvertices_of (CompositeState{subvertex,...}) = subvertex
|
||||
| state_subvertices_of (SubactivityState{subvertex,...}) = subvertex
|
||||
| state_subvertices_of _ = raise IllFormed "state_subvertices_of called on a non-composite state"
|
||||
|
|
Loading…
Reference in New Issue