Spezifikationsmodule - Software and Systems Engineering - TUM

5.4 Umsetzung der Dialogführung in ODL
Nachdem wir nun den Ablauf der Dialogführung illustriert und beschrieben,
und die für das Ablaufdesign relevanten Fragen skizziert haben, wenden wir uns
nun der technischen Seite zu. In diesem Abschnitt werden wir die Dialogschritte
als ODL Ausdrücke formulieren. Dabei konzentrieren wir uns hier nur auf die
Besonderheiten ausgewählter Schrittes. Das komplette Programmlisting findet
sich im Anhang A. Es ist gegenüber den hier gemachten Ausführungen noch
erweitert worden, damit es zu dem Beispiel aus Kapitel 2 passt.
5.4.1 Komponentendialog
Der Komponentendialog ist durch einen sehr einfachen ODL-Ausdruck definiert:
context component_pair:(one:Component, two:Component) .
Wir erhalten vom Benutzer ein 2-Tupel von Komponenten, dessen Elemente
wir über die Tupelselektoren one und two erreichen. Diese Konvention für Tupelselektoren
werden wir im Folgenden auch für die anderen Datenstrukturen
beibehalten.
5.4.2 Vorberechnung für Schnittstellendialog
Für den Dialog zur Vereinigung der Schnittstellen (Port-Elemente) führen wir
eine Vorberechnung durch. Dazu definieren wir zunächst ein Prädikat, das die
externe Abhängigkeit von Port zu Component und die interne Abhängigkeit in
Bezug auf das Direction-Attribut, wie in Kapitel 4 gezeigt, kapselt.
define Consistent_Component_Port(
component_pair:(one:Component, two:Component),
pm_elem:(one:Port, two:Port)
) := (
pm_elem.one.Direction.IsEntry =
pm_elem.two.Direction.IsEntry and
component_pair.one = pm_elem.one.Component and
component_pair.two = pm_elem.two.Component
) .
Mit diesem Prädikat können wir nun alle Kombinationen von Port-Elementen
der zwei gewählten Komponenten auf Vereinbarkeit mit den Abhängigkeiten
prüfen. Wir setzen hier den Fixpunktoperator ein, um die entsprechenden Tupel
in der Menge port map possible aufzusammeln.
exists port_map_possible: lfp FP1 set
fp1_it:(one:(component_pair.one.Ports),
two:(component_pair.two.Ports)
) with (
call Consistent_Component_Port(component_pair, fp1_it)
) .
48