added helper function to check whether a class has a given stereotype
git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@3141 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
f915c4e4e2
commit
5fa0463fc6
|
@ -343,6 +343,12 @@ fun class_taggedvalue_of table tag (XMI.Class c) =
|
|||
| class_taggedvalue_of table tag _ = raise IllFormed "class_taggedvalues_of called on an argument that doesn't support tagged values yet..."
|
||||
|
||||
|
||||
(* check whether a class has the given stereotype *)
|
||||
fun classifier_has_stereotype t st c =
|
||||
List.exists (fn x => (find_stereotype t x) = st)
|
||||
(XMI.classifier_stereotype_of c)
|
||||
|
||||
|
||||
|
||||
(* split an association into association ends, and put the association ends *)
|
||||
(* ends into the xmi.id table under the corresponding (i.e., opposite) *)
|
||||
|
|
Loading…
Reference in New Issue