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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
package hu.bme.mit.inf.dlsreasoner.alloy.reasoner.builder
import hu.bme.mit.inf.dlsreasoner.alloy.reasoner.AlloySolverConfiguration
import hu.bme.mit.inf.dslreasoner.alloyLanguage.ALSDocument
import hu.bme.mit.inf.dslreasoner.alloyLanguage.ALSInt
import hu.bme.mit.inf.dslreasoner.alloyLanguage.ALSTerm
import hu.bme.mit.inf.dslreasoner.alloyLanguage.AlloyLanguageFactory
import hu.bme.mit.inf.dslreasoner.logic.model.builder.LogicSolverConfiguration
import hu.bme.mit.inf.dslreasoner.logic.model.logiclanguage.TypeDefinition
import java.util.LinkedList
import java.util.List
import static extension hu.bme.mit.inf.dslreasoner.util.CollectionsUtil.*
class RunCommandMapper {
private val extension AlloyLanguageFactory factory = AlloyLanguageFactory.eINSTANCE
private val Logic2AlloyLanguageMapper_Support support = new Logic2AlloyLanguageMapper_Support;
private val Logic2AlloyLanguageMapper_TypeMapper typeMapper;
public new(Logic2AlloyLanguageMapper_TypeMapper typeMapper) {
this.typeMapper = typeMapper
}
def public transformRunCommand(Logic2AlloyLanguageMapper mapper, ALSDocument specification, Logic2AlloyLanguageMapperTrace trace, AlloySolverConfiguration config)
{
//val knownStringNumber = specification.eAllContents.filter(ALSStringLiteral).map[it.value].toSet.size
// add fact to ensure the existence of all literals in the scope
if(!config.typeScopes.knownStrings.empty) {
specification.factDeclarations += createALSFactDeclaration => [
it.name = "EnsureAllStrings"
val List<? extends ALSTerm> equals = config.typeScopes.knownStrings.map[x|createALSEquals => [
it.leftOperand =createALSStringLiteral => [it.value = x]
it.rightOperand =createALSStringLiteral => [it.value = x]
]].toList
it.term = support.unfoldAnd(equals)
]
}
val typeScopes = new LinkedList
for(definedScope : config.typeScopes.maxNewElementsByType.entrySet) {
val key = definedScope.key
val amount = definedScope.value
val exactly = config.typeScopes.minNewElementsByType.containsKey(key) && config.typeScopes.minNewElementsByType.get(key) === amount
val existing = key.transitiveClosureStar[it.subtypes].filter(TypeDefinition).map[elements].flatten.toSet
if(amount == 0 && exactly) {
specification.factDeclarations += createALSFactDeclaration => [
it.term = createALSEquals => [
it.leftOperand = support.unfoldPlus(typeMapper.transformTypeReference(key,mapper,trace).map[t|createALSReference => [it.referred = t]].toList)
it.rightOperand = support.unfoldPlus( existing.map[typeMapper.transformReference(it,trace)].toList )
]
]
}
val int n = existing.size-amount
typeScopes += createALSSigScope => [
it.type = typeMapper.transformTypeReference(key,mapper,trace).head
it.number = n
it.exactly =exactly
]
}
specification.runCommand = createALSRunCommand => [
it.typeScopes+= createALSSigScope => [
it.type= typeMapper.getUndefinedSupertype(trace)
it.number = typeMapper.getUndefinedSupertypeScope(config.typeScopes.maxNewElements,trace)
it.exactly = (config.typeScopes.maxNewElements == config.typeScopes.minNewElements)
]
if(config.typeScopes.maxNewIntegers == LogicSolverConfiguration::Unlimited) {
val integersUsed = specification.eAllContents.filter(ALSInt)
if(integersUsed.empty) {
// If no integer scope is defined, but the problem has no integers
// => scope can be empty
it.typeScopes+= createALSIntScope => [
it.number = 0
]
} else {
// If no integer scope is defined, and the problem has integers
// => error
throw new UnsupportedOperationException('''An integer scope have to be specified for Alloy!''')
}
} else {
it.typeScopes += createALSIntScope => [
if(config.typeScopes.knownIntegers.empty) {
number = Integer.SIZE-Integer.numberOfLeadingZeros(config.typeScopes.maxNewIntegers+1/2)
} else {
var scope = Math.max(
Math.abs(config.typeScopes.knownIntegers.max),
Math.abs(config.typeScopes.knownIntegers.min))
if(scope*2+1 < config.typeScopes.knownIntegers.size + config.typeScopes.maxNewIntegers) {
scope += ((config.typeScopes.knownIntegers.size + config.typeScopes.maxNewIntegers) - (scope*2))/2
}
number = Integer.SIZE-Integer.numberOfLeadingZeros(scope)+1
}
]
}
if(config.typeScopes.maxNewStrings === LogicSolverConfiguration::Unlimited) {
throw new UnsupportedOperationException('''An string scope have to be specified for Alloy!''')
} else {
if(config.typeScopes.maxNewStrings != 0) {
it.typeScopes += createALSStringScope => [it.number = 0]
}
}
]
}
}
|