Spezifikationsmodule - Software and Systems Engineering - TUM

Abschließend erzeugen wir die Konstruktoren, wobei wir hier darauf verzichten
die nicht-unifizierten Konstruktoren in den neuen Datentyp zu kopieren und
die Änderungen im Modell vorzunehmen.
)
exists newConMap: map orig:constructorMap
to copy:new Constructor . (
forall ncm1:newConMap . forall ncm2:newConMap . (
ncm1.orig = ncm2.orig equiv ncm1.copy = ncm2.copy
) and
forall nc:newConMap . (
/* create new constructors */
result has Name(nc.copy,
concat(nc.orig.one.Name, nc.orig.two.Name)) and
result has DataDef(nc.copy, nd) and
/* replace old constructors with the unified ones */
...
)
) and
/* copy constructors not unified and replace old references */
...
Im Folgenden wollen wir nun noch die Selektoren mitberücksichtigen. In
diesem Fall muss es möglich sein mehrere Datendefinitionen gleichzeitig zu unifizieren,
da Selektoren nur unifziert werden können, wenn sie den selben Ergebnistyp
haben oder die Ergebnistypen ebenfalls vereinigt werden. Letzteres
bedeutet, dass die entsprechenden Datendefinitionen vereinigt werden müssen.
context datadefTupel:{
tupel:(datadefMap : set (one:DataDef, two:DataDef),
constructorMap : set (one:Constructor, two:Constructor),
selectorMap : set (one:Selector, two:Selector)
) |
forall sme:(tupel.selectorMap) . (
/* constructor dependency */
exists sme_con:(tupel.constructorMap) . (
sme.one.Constructor = sme_con.one and
sme.two.Constructor = sme_con.two
) and (
/* selector types are equal */
call selectorTypeEqual(sme.one, sme.two) or
/* their datadefs are unified */
exists sme_dd:(tupel.datadefMap) . (
call testSelectorType(sme.one, sme_dd.one.TConst) and
call testSelectorType(sme.two, sme_dd.two.TConst)
)
)
) and
forall cme:(tupel.constructorMap) . (
/* datadef dependency */
exists cme_dd:(tupel.datadefMap) . (
28