HOL-OCL
/
su4sml
1
0
Fork 0
Code Issues Pull Requests Releases Activity

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:
Jürgen Doser 2006-02-13 12:11:44 +00:00
parent 5ad94a91bf
commit ed0d9fbc3a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/xmi_idtable.sml
View File

@ -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 *)