Spezifikationsmodule - Software and Systems Engineering - TUM

Haben wir namensgleiche Konstruktoren gefunden, müssen wir überprüfen,
ob diese namensgleiche Selektoren besitzen.
forall sel1:(con1.Selectors) .
forall sel2:(con2.Selectors) . (
(sel1.Name = sel2.Name) implies (
Sollten auch namensgleiche Selektoren existieren, ist für diese nun zu prüfen,
ob deren Typen vereinbar sind, d.h. wir müssen nachsehen, ob unsere Fixpunktmenge
ein entsprechendes Tupel enthält.
exists fp1_elem:fp1 . (
call testSelectorType(sel1, fp1_elem.mod1Type) and
call testSelectorType(sel2, fp1_elem.mod2Type)
)
or (
call testSelectorType(sel1, fp1_it.mod1Type) and
call testSelectorType(sel2, fp2_it.mod2Type)
)
... /* lots of ) */
) .
Das Disjunktionsglied benötigen wir für den Fall, der sich ergibt, wenn wir
rekursive Datentypen untersuchen, wenn also die Selektoren den in der Fixpunktiteration
gerade betrachteten Typ besitzen. In diesem Fall muss die Überprüfung
der Vereinbarkeit der Selektortypen dahingehend erweitert werden, dass
auch das aktuell betrachtete Typtupel überprüft wird.
Nachdem nun die Fixpunktmenge der vereinbaren Typen konstruiert ist (Variable
eqTypeSet), lassen wir an dieser Stelle den Benutzer ein Element der Menge
auswählen, um das Ergebnis in einem entsprechenden Dialog darzustellen.
context elem:eqTypeSet . true
3.4 Interaktive Typvereinigung
Bisher haben wir die Unifikation von Typdefinitionen auf die Namensgleichheit
bei Konstruktoren und Selektoren gestützt. Für die Praxis ist dieses Vorgehen
meist unzureichend, da wir mehr an der Struktur, die durch die Typdefinition
festgelegt wird, interessiert sind als an den Bezeichnern in der Definition. Oft
kommt es sogar vor, dass Typdefinitionen strukturell identisch sind, während
der Entwicklungsarbeit allerdings mit unterschiedlichen Bezeichnern versehen
wurden.
Beispielsweise kann man
data Command = Start | Stop | Reset;
und
data State = On | Off | Init;
26