relaxed recognition of typename in UML_OCL package
git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@3961 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
5ad94a91bf
commit
ed0d9fbc3a
|
@ -280,6 +280,8 @@ fun insert_classifier table package_prefix class =
|
|||
else if name = "String" then Rep_OclType.String
|
||||
else if name = "Real" then Rep_OclType.Real
|
||||
else if name = "OclVoid" then Rep_OclType.OclVoid
|
||||
(* this shouldn't be necessary: *)
|
||||
else if name = "Void" then Rep_OclType.OclVoid
|
||||
else if name = "OclAny" then Rep_OclType.OclAny
|
||||
(* now this is really ugly... *)
|
||||
else if String.isPrefix "Collection(" name then Rep_OclType.Collection (Rep_OclType.Classifier [XMI.classifier_elementtype_of class])
|
||||
|
@ -310,7 +312,7 @@ fun insert_classifier table package_prefix class =
|
|||
| XMI.OrderedSet c => (List.app (insert_operation table path) (#operations c); ())
|
||||
| _ => ()
|
||||
end
|
||||
|
||||
|
||||
|
||||
|
||||
(* recursively insert mapping of xmi.id's to model elements into Hashtable *)
|
||||
|
|
Loading…
Reference in New Issue