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

replace empty variable names with "anonIterVar_<xmiid>" 

git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@3343 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
Jürgen Doser 2005-11-11 11:43:22 +00:00
parent 998ef457cd
commit 9429803f72
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/xmi2rep.sml
View File

@ -85,8 +85,12 @@ fun transform_expression t (XMI.LiteralExp {symbol,expression_type}) =
find_classifier_type t expression_type)
| transform_expression t (XMI.VariableExp {referredVariable,expression_type})=
let val var_dec = find_variable_dec t referredVariable
val name = #name var_dec
val var_name = if name = ""
then "anonIterVar_"^ (#xmiid var_dec)
else name
in
Rep_OclTerm.Variable (#name var_dec,find_classifier_type t expression_type)
Rep_OclTerm.Variable (var_name,find_classifier_type t expression_type)
end
| transform_expression t (XMI.AssociationEndCallExp {source, referredAssociationEnd, expression_type}) =
Rep_OclTerm.AssociationEndCall (transform_expression t source,
@ -98,7 +102,10 @@ fun transform_expression t (XMI.LiteralExp {symbol,expression_type}) =
let val _ = map (insert_variable_dec t) iterators
in
Rep_OclTerm.Iterator (name,
map (fn x => (#name x, find_classifier_type t (#declaration_type x))) iterators,
map (fn x => (if #name x = ""
then "anonIterVar_" ^ (#xmiid x)
else #name x,
find_classifier_type t (#declaration_type x))) iterators,
transform_expression t source, find_classifier_type t (XMI.expression_type_of source),
transform_expression t body, find_classifier_type t (XMI.expression_type_of body),
find_classifier_type t expression_type