1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
package hu.bme.mit.inf.dlsreasoner.alloy.reasoner.builder
import hu.bme.mit.inf.dslreasoner.logic.model.logiclanguage.Type
import hu.bme.mit.inf.dslreasoner.alloyLanguage.ALSDocument
import hu.bme.mit.inf.dslreasoner.alloyLanguage.AlloyLanguageFactory
interface Logic2AlloyLanguageMapper_TypeScopeMapping {
def void addLowerMultiplicity(ALSDocument document, Type type, int lowerMultiplicty, Logic2AlloyLanguageMapper mapper, Logic2AlloyLanguageMapperTrace trace)
def void addUpperMultiplicity(ALSDocument document, Type type, int upperMultiplicty, Logic2AlloyLanguageMapper mapper, Logic2AlloyLanguageMapperTrace trace)
}
class Logic2AlloyLanguageMapper_AsConstraint implements Logic2AlloyLanguageMapper_TypeScopeMapping {
val extension AlloyLanguageFactory factory = AlloyLanguageFactory.eINSTANCE
val Logic2AlloyLanguageMapper_Support support = new Logic2AlloyLanguageMapper_Support;
val Logic2AlloyLanguageMapper_TypeMapper typeMapper
new(Logic2AlloyLanguageMapper_TypeMapper mapper) {
this.typeMapper = mapper
}
override addLowerMultiplicity(ALSDocument document, Type type, int lowerMultiplicty, Logic2AlloyLanguageMapper mapper, Logic2AlloyLanguageMapperTrace trace) {
document.factDeclarations += createALSFactDeclaration => [
it.name = support.toID(#["LowerMultiplicity",support.toID(type.name),lowerMultiplicty.toString])
it.term = createALSLeq => [
it.leftOperand = createALSCardinality => [
it.operand = support.unfoldPlus(typeMapper.transformTypeReference(type,mapper,trace).map[t|createALSReference => [it.referred = t]].toList)
]
it.rightOperand = createALSNumberLiteral => [it.value = lowerMultiplicty]
]
]
}
override addUpperMultiplicity(ALSDocument document, Type type, int upperMultiplicty, Logic2AlloyLanguageMapper mapper, Logic2AlloyLanguageMapperTrace trace) {
document.factDeclarations += createALSFactDeclaration => [
it.name = support.toID(#["UpperMultiplicity",support.toID(type.name),upperMultiplicty.toString])
it.term = createALSMeq => [
it.leftOperand = createALSCardinality => [
it.operand = support.unfoldPlus(typeMapper.transformTypeReference(type,mapper,trace).map[t|createALSReference => [it.referred = t]].toList)
]
it.rightOperand = createALSNumberLiteral => [it.value = upperMultiplicty]
]
]
}
}
|