path: root/plugins/uml/diagram/org.eclipse.papyrus.uml.diagram.sequence/model/seqd_constraints.ocl

/*
 * Copyright (c) 2018 Christian W. Damus and others.
 * 
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License 2.0
 * which accompanies this distribution, and is available at
 * https://www.eclipse.org/legal/epl-2.0/
 *
 * SPDX-License-Identifier: EPL-2.0
 *
 * Contributors:
 *   Christian W. Damus - Initial API and implementation
 *   
 */

import 'http://www.eclipse.org/uml2/5.0.0/UML'

package UML

context Element

-- A helper operation that reports a problem as error severity instead of warning.
def: asError(ok: Boolean): Boolean = if ok then ok else null endif

-- Helper to render collections of strings as lists 
def: asString(list : Collection(String)) : String =
	list->iterate(i; l : String = '' |
		i + (if l.size() > 0 then ', ' else '' endif) + l)

-- Helper to put single quotes are strings in a collection 
def: quote(list : Collection(String)) : Sequence(String) =
	list->collect(i | '\'' + i + '\'')->asSequence()

context Message

--
-- The ends of a message that are not Gates are all owned by the same
-- Interaction or InteractionOperand.
--
inv crosses_no_boundaries('Message crosses an interaction operand boundary.'):
	let ends = Set{sendEvent, receiveEvent}->excluding(null)->reject(oclIsKindOf(Gate)) in
	asError(ends->notEmpty() implies ends.owner->asSet()->size() = 1)


context ExecutionSpecification

--
-- The start and finish events if an execution specification are both owned
-- by the same Interaction or InteractionOperand.
--
inv crosses_no_boundaries('Execution specification crosses an interaction operand boundary.'):
	let events = Set{start, finish}->excluding(null) in
	asError(events->notEmpty() implies events.owner->asSet()->size() = 1)

context CombinedFragment

--
-- An combined fragment covers all of the lifelines that are covered by the
-- fragments of its operands.
--
inv lifeline_coverage:
	let uncovered = operand.fragment.covered->asSet()->excludingAll(self.covered)->sortedBy(name) in
	Tuple {
		status = uncovered->isEmpty(),
		message = if uncovered->size() = 1 then
				'Lifeline \'' + uncovered.name->first() + '\' not covered that is covered by fragments of the operands.'
			else
				'Lifelines ' + asString(quote(uncovered.name)) + ' not covered that are covered by fragments of the operands.'
			endif
	}
		
context InteractionOperand

--
-- An interaction operand covers all of the lifelines that are covered by the
-- fragments that it owns.
--
inv lifeline_coverage:
	let uncovered = fragment.covered->asSet()->excludingAll(self.covered)->sortedBy(name) in
	Tuple {
		status = uncovered->isEmpty(),
		message = if uncovered->size() = 1 then
				'Lifeline \'' + uncovered.name->first() + '\' not covered that is covered by owned fragments.'
			else
				'Lifelines ' + asString(quote(uncovered.name)) + ' not covered that are covered by owned fragments.'
			endif
	}

endpackage