2 simple testing function for kind of pseudo states
git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@3188 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
268c540455
commit
85c5d8d406
|
@ -268,6 +268,12 @@ fun state_taggedValue_of (CompositeState{taggedValue,...}) = taggedValue
|
||||||
| state_taggedValue_of (PseudoState{taggedValue,...}) = taggedValue
|
| state_taggedValue_of (PseudoState{taggedValue,...}) = taggedValue
|
||||||
| state_taggedValue_of (SyncState{taggedValue,...}) = taggedValue
|
| state_taggedValue_of (SyncState{taggedValue,...}) = taggedValue
|
||||||
|
|
||||||
|
fun state_is_fork (PseudoState{kind=fork,...}) = true
|
||||||
|
| state_is_fork _ = false
|
||||||
|
|
||||||
|
fun state_is_join (PseudoState{kind=join,...}) = true
|
||||||
|
| state_is_join _ = false
|
||||||
|
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue