aboutsummaryrefslogtreecommitdiffstats
path: root/Solvers/Alloy-Solver/hu.bme.mit.inf.dlsreasoner.alloy.reasoner/src/hu/bme/mit/inf/dlsreasoner/alloy/reasoner/builder/Logic2AlloyLanguageMapper_TypeScopeMapping.xtend
blob: 378c95532a8c82dfd14afabc1f81b234d833ac8f (plain) (blame)
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
<<<<<<< HEAD
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]
			]
		]
	}
=======
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]
			]
		]
	}
>>>>>>> 25a4b1b5... VAMPIRE: post-submission push
}