1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
|
/*****************************************************************************
* Copyright (c) 2016 CEA LIST.
*
* All rights reserved. This program and the accompanying materials
* are made available under the terms of the Eclipse Public License v1.0
* which accompanies this distribution, and is available at
* http://www.eclipse.org/legal/epl-v10.html
*
* Contributors:
* Vincent Lorenzo (CEA LIST) vincent.lorenzo@cea.fr - Initial API and implementation
*****************************************************************************/
import RhapsodyUtils;
import RhapsodyToPapyrusUtils;
modeltype umlrhapsody "strict" uses 'http://www.eclipse.org/Papyrus/UMLRhapsody/1.0.0';
modeltype notation "strict" uses 'http://www.eclipse.org/gmf/runtime/1.0.2/notation';
modeltype ecore "strict" uses 'http://www.eclipse.org/emf/2002/Ecore';
/**
*
* This file provides useful method to manage SysML Rhapsody Model
*/
library RhapsodyToPapyrusDiagamCommon;
/**
* Create and initialize the diagram. These fields are initialized:
* <ul>
*<li>name</li>
*<li>type</li>
*<li>measurementUnit</li>
*</ul>
* These styles are added to the diagrams:
*<li>diagram style</li>
*<li>papyrus view style</li>
*<li>diagram_compatibility_version</li>
*In additional we add a EAnnotation (the same that for the UMl Model) indicating that the diagram has been imported from a Rhapsody Model
*</ul>
*
* In addition we add a named style to know that the diagram has been imported from Rhapsody. It will be useful if we need to create specific DiagramReconciler to fix bugs due to the import from Rhapsody model
*/
mapping rhapsodymetamodel::IDiagram::createAndInitDiagram(rpyProject:IProject,newDiagramType:String, diagramElement:EObject, diagramOwner:EObject):Diagram{
name:=self.name;
measurementUnit:= MeasurementUnit::Pixel;
type:= newDiagramType;
element:=diagramElement;
eAnnotations+=rpyProject.createEAnnotationForVersioning();
styles+= object DiagramStyle{};
// styles+= object PapyrusViewStyle {owner:=diagramOwner};
styles+= object StringValueStyle {name:=getDiagramCompatibilityVersionKey(); stringValue:=getDiagramCompatibilityVersion()};
}
/**
*
* Map a CGI Annotation to a UML Comment Shape CN
* @param
* cgiClassChart : the class chart of the diagram, it is useful to find child to create for the created element
* @param
* rpyAllowedParent : the list of the allowed Rhapsody parent to manage the object.
* if the Rhapsody parent is not in this list, the object won't be mapped
*
*/
mapping rhapsodymetamodel::CGIAnnotation::CGIAnnotationToCommentCN(cgiClassChart:CGIClassChart, rpyAllowedParent:Sequence(GraphElementsType)):Shape when {self.m_pModelObject.oclIsTypeOf(IComment) and self.m_pParent.oclIsKindOf(GraphElementsType) and rpyAllowedParent->includes(self.m_pParent.oclAsType(GraphElementsType))}{
type:="Comment_Shape_CN";
children+= object DecorationNode{
type:="Comment_BodyLabel_CN";
};
layoutConstraint:= object Bounds{ x:=getX(self); y:=getY(self); width :=getRectangleWidth(self); height := getRectangleHeight(self)};
element:=self.m_pModelObject.resolveone().oclAsType(EObject);
}
/**
* Create a list compartment with the given name, hide it if the rhapsody compartment doesn't have name and force the compartment title to hidden if required
*
* if comparmtent are visible when they mustn't be visible, the problem comes from the arg rhapsodyCompartmentName which is probably wrong
*
*/
mapping umlrhapsody::CGIGenericElement::toListCompartment(papyrusCompartmentName:String, rhapsodyCompartmentName:String) : notation::ListCompartment{
type:=papyrusCompartmentName;
styles := object DrawerStyle{};
styles += object TitleStyle{};
styles += object SortingStyle{};
styles += object FilteringStyle{};
//we hide the compartment by default. We show it only if it the equivalent compartment is shown in Rhapsody
visible:=false;
var cptList:Set(umlrhapsody::IProperty) :=self[CGIGenericElement].properties.Subjects->select(subject | subject.Name="ObjectModelGe").Metaclasses->select(metaclass | metaclass.Name="DataType").Properties->select(p | p.Name="Compartments")->asSet();
cptList->forEach(curr){
var isContaining:Boolean:=contains(curr.Value,rhapsodyCompartmentName);
if(isContaining){
visible:=isContaining;
break;
};
};
if(visible){
var showCompartmentTitleProperty:umlrhapsody::IProperty :=self[CGIGenericElement].properties.Subjects->select(subject | subject.Name="General").Metaclasses->select(metaclass | metaclass.Name="Graphics").Properties->select(p | p.Name="ShowCompartmentsTitle")->any(true);
if((not showCompartmentTitleProperty.oclIsUndefined()) and showCompartmentTitleProperty.Value="False"){
eAnnotations+= object EAnnotation { source:="PapyrusCSSForceValue" ; details+=object EStringToStringMapEntry { key:="showTitle"; value:="false"}};
};
};
//force value to avoid impact of CSS and get the same display between Rhapsody and Papyrus
eAnnotations+=createCSSForceValue("visible");
}
/**
* Create a list compartment with the given name, hide it if the rhapsody compartment doesn't have name and force the compartment title to hidden if required
*
* if comparmtent are visible when they mustn't be visible, the problem comes from the arg rhapsodyCompartmentName which is probably wrong
*
*/
//TODO : merge me with previous one
mapping umlrhapsody::CGIClass::toListCompartment(papyrusCompartmentName:String, rhapsodyCompartmentName:String) : notation::ListCompartment{
type:=papyrusCompartmentName;
styles := object DrawerStyle{};
styles += object TitleStyle{};
styles += object SortingStyle{};
styles += object FilteringStyle{};
//we hide the compartment by default. We show it only if it the equivalent compartment is shown in Rhapsody
visible:=false;
// var cptList:Set(umlrhapsody::IProperty) :=self[CGIClass].properties.Subjects->select(subject | subject.Name="ObjectModelGe").Metaclasses->select(metaclass | metaclass.Name="Block").Properties->select(p | p.Name="Compartments")->asSet();
// cptList->forEach(curr){
// log("currValue=" + curr.Value.toString());
// var isContaining:Boolean:=contains(curr.Value,rhapsodyCompartmentName);
// if(isContaining){
// visible:=isContaining;
// break;
// };
// };
if(rhapsodyCompartmentName<>null){
visible:=self.Compartments->selectByKind(CGICompartment)->select(cpt | cpt.m_name=rhapsodyCompartmentName)->notEmpty();
};
if(visible){
var showCompartmentTitleProperty:umlrhapsody::IProperty :=self[CGIClass].properties.Subjects->select(subject | subject.Name="General").Metaclasses->select(metaclass | metaclass.Name="Graphics").Properties->select(p | p.Name="ShowCompartmentsTitle")->any(true);
if((not showCompartmentTitleProperty.oclIsUndefined()) and showCompartmentTitleProperty.Value="False"){
eAnnotations+= object EAnnotation { source:="PapyrusCSSForceValue" ; details+=object EStringToStringMapEntry { key:="showTitle"; value:="false"}};
};
};
//force value to avoid impact of CSS and get the same display between Rhapsody and Papyrus
eAnnotations+=createCSSForceValue("visible");
}
//TODO : merge me with previous one
mapping umlrhapsody::CGIBasicClass::toListCompartment(papyrusCompartmentName:String, rhapsodyCompartmentName:String) : notation::ListCompartment{
type:=papyrusCompartmentName;
styles := object DrawerStyle{};
styles += object TitleStyle{};
styles += object SortingStyle{};
styles += object FilteringStyle{};
//we hide the compartment by default. We show it only if it the equivalent compartment is shown in Rhapsody
visible:=false;
if(rhapsodyCompartmentName<>null){
visible:=self.Compartments->selectByKind(CGICompartment)->select(cpt | cpt.m_name=rhapsodyCompartmentName)->notEmpty();
};
if(visible){
var showCompartmentTitleProperty:umlrhapsody::IProperty :=self[CGIBasicClass].properties.Subjects->select(subject | subject.Name="General").Metaclasses->select(metaclass | metaclass.Name="Graphics").Properties->select(p | p.Name="ShowCompartmentsTitle")->any(true);
if((not showCompartmentTitleProperty.oclIsUndefined()) and showCompartmentTitleProperty.Value="False"){
eAnnotations+= object EAnnotation { source:="PapyrusCSSForceValue" ; details+=object EStringToStringMapEntry { key:="showTitle"; value:="false"}};
};
};
//force value to avoid impact of CSS and get the same display between Rhapsody and Papyrus
eAnnotations+=createCSSForceValue("visible");
}
/**
* Helper to create an EAnnotation to force a value and ignore CSS. It is used to get the same diaply between Rhapsody model and Papyrus model, ignoring CSS applied on the model
*/
helper createCSSForceValue(detailKey:String):EAnnotation{
var eAnnotation:EAnnotation:= object EAnnotation { source:="PapyrusCSSForceValue" ; details+=object EStringToStringMapEntry { key:=detailKey; value:="true"}};
return eAnnotation;
}
/**
* Return the routing to use for the given connector.
* The current implementations returns always Manual routing to avoid problems with anchors, bendopints and snapToGrid
*/
query umlrhapsody::GraphElementsType::getConnectorRouting():notation::Routing{
var routing:Routing:=Routing::Manual;
var rpyValue:String;
if(self.oclIsKindOf(CGIObjectLink)){
rpyValue:=self.oclAsType(CGIObjectLink).m_line_style;
}elif(self.oclIsTypeOf(CGIAnchor)){
rpyValue:=self.oclAsType(CGIAnchor).m_line_style;
}elif(self.oclIsTypeOf(CGIAssociationEnd)){
rpyValue:=self.oclAsType(CGIAssociationEnd).m_line_style;
}else{
log("The object " + self.toString() + " is not yet managed to get its routing")
};
routing:=switch{
case (rpyValue="0") Routing::Manual;
case (rpyValue="1") Routing::Manual; //spline in Rhapsody
case (rpyValue="2") Routing::Rectilinear;
};
//as we currently get trouble with anchos, bendpoints and snap to grid, we always return Manual
routing:=Routing::Manual;
return routing;
}
|
