| [comment |
| /********************************************************************* |
| * Copyright (c) 2019 Intecs Solutions SpA |
| * |
| * This program and the accompanying materials are made |
| * available under the terms of the Eclipse Public License 2.0 |
| * which is available at https://www.eclipse.org/legal/epl-2.0/ |
| * |
| * SPDX-License-Identifier: EPL-2.0 |
| * |
| * Contributors: |
| * Intecs Solutions - Initial API and implementation |
| * |
| **********************************************************************/ |
| /] |
| [comment encoding = UTF-8 /] |
| [module DelayTemplate('http://www.eclipse.org/uml2/3.0.0/UML')/] |
| [import org::polarsys::chess::mobius::templates::projectFileTemplate /] |
| |
| [template public DelayTemplate(durConstr : DurationConstraint, index : Integer, globalvars : Set(String), startPlace : String, startX : Integer, startY : Integer)] |
| [let delayName : String = durConstr.name] |
| [let x : Integer = 50] |
| [let y : Integer = 250*index] |
| [comment places and activities /] |
| [comment this is the end place /] |
| <class id="Mobius.AtomicModels.San.PlacePanelObject"> |
| <int id="ClassVersion">1</int> |
| <class id="Mobius.BaseClasses.BaseVertexClass"> |
| <int id="ClassVersion">3</int> |
| <class id="Mobius.BaseClasses.BasePanelObjectClass"> |
| <int id="ClassVersion">5</int> |
| <string id="Name">End[delayName/]</string>[setStartPlace('End'.concat(delayName))/] |
| <boolean id="ContainsLabel">true</boolean> |
| <boolean id="IsLabelShown">true</boolean> |
| </class> |
| <point id="CenterPoint"> |
| <int id="x">[x+300/]</int>[setStartX(x+300)/] |
| <int id="y">[y/]</int>[setStartX(y)/] |
| </point> |
| </class> |
| <boolean id="ReadOnly">false</boolean> |
| <boolean id="ConstantMarking">true</boolean> |
| <int id="InitialState">0</int> |
| </class> |
| <class id="Mobius.AtomicModels.San.TimedActivityPanelObject"> |
| <int id="ClassVersion">2</int> |
| <class id="Mobius.AtomicModels.San.ActivityPanelObject"> |
| <int id="ClassVersion">1</int> |
| <class id="Mobius.BaseClasses.ExtendedBaseVertexClass"> |
| <int id="ClassVersion">1</int> |
| <class id="Mobius.BaseClasses.BaseVertexClass"> |
| <int id="ClassVersion">3</int> |
| <class id="Mobius.BaseClasses.BasePanelObjectClass"> |
| <int id="ClassVersion">5</int> |
| <string id="Name">[delayName/]Activity</string> |
| <boolean id="ContainsLabel">true</boolean> |
| <boolean id="IsLabelShown">true</boolean> |
| </class> |
| <point id="CenterPoint"> |
| <int id="x">[x+150/]</int> |
| <int id="y">[y/]</int> |
| </point> |
| </class> |
| </class> |
| <int id="NumberOfCases">1</int> |
| <vector id="CaseDistributions"> |
| <string id="0"></string> |
| </vector> |
| </class> |
| <class id="Mobius.BaseClasses.Distributions.DistributionFunction"> |
| <int id="ClassVersion">1</int> |
| <string id="Name">Exponential</string> |
| <vector id="MetaParameters"> |
| </vector> |
| <vector id="Parameters"> |
| [let delay_rate : String = getDelay(durConstr)] |
| <string id="0">return([delay_rate/]);</string>[addToGlobalVars(delay_rate, globalvars)/] |
| [/let] |
| </vector> |
| </class> |
| <string id="Activation"></string> |
| <string id="Reactivation"></string> |
| </class> |
| <class id="Mobius.BaseClasses.BaseEdgeClass"> |
| <int id="ClassVersion">3</int> |
| <int id="LineType">0</int> |
| <string id="StartVertex">[delayName/]Activity</string> |
| <string id="FinishVertex">End[delayName/]</string> |
| <boolean id="Arrows">true</boolean> |
| <vector id="PointList"> |
| <point id="0"> |
| <int id="x">[x+150/]</int> |
| <int id="y">[y/]</int> |
| </point> |
| <point id="1"> |
| <int id="x">[x+300/]</int> |
| <int id="y">[y/]</int> |
| </point> |
| </vector> |
| </class> |
| [comment: start place is previous fragment end place/] |
| <class id="Mobius.BaseClasses.BaseEdgeClass"> |
| <int id="ClassVersion">3</int> |
| <int id="LineType">0</int> |
| <string id="StartVertex">[startPlace/]</string> |
| <string id="FinishVertex">[delayName/]Activity</string> |
| <boolean id="Arrows">true</boolean> |
| <vector id="PointList"> |
| <point id="0"> |
| <int id="x">[startX/]</int> |
| <int id="y">[startY/]</int> |
| </point> |
| <point id="1"> |
| <int id="x">[x+150/]</int> |
| <int id="y">[y/]</int> |
| </point> |
| </vector> |
| </class> |
| [/let] |
| [/let] |
| [/let] |
| [/template] |
| |
| [query public getDelay(durConstr : DurationConstraint) : String = |
| invoke('org.polarsys.chess.mobius.utils.TransformationUtil', 'getDelay(org.eclipse.uml2.uml.DurationConstraint)', Sequence{durConstr})/] |