1 #include "satencoder.h"
5 #include "constraint.h"
9 #include "tableentry.h"
12 #include "predicate.h"
14 #include "satfuncopencoder.h"
16 //TODO: Should handle sharing of AST Nodes without recoding them a second time
18 SATEncoder *allocSATEncoder(CSolver *solver) {
19 SATEncoder *This = ourmalloc(sizeof (SATEncoder));
20 This->solver = solver;
22 This->cnf = createCNF();
26 void deleteSATEncoder(SATEncoder *This) {
31 void encodeAllSATEncoder(CSolver *csolver, SATEncoder *This) {
32 HSIteratorBoolean *iterator=iteratorBoolean(csolver->constraints);
33 while(hasNextBoolean(iterator)) {
34 Boolean *constraint = nextBoolean(iterator);
35 model_print("Encoding All ...\n\n");
36 Edge c = encodeConstraintSATEncoder(This, constraint);
37 model_print("Returned Constraint in EncodingAll:\n");
38 addConstraintCNF(This->cnf, c);
40 deleteIterBoolean(iterator);
43 Edge encodeConstraintSATEncoder(SATEncoder *This, Boolean *constraint) {
44 switch (GETBOOLEANTYPE(constraint)) {
46 return encodeOrderSATEncoder(This, (BooleanOrder *) constraint);
48 return encodeVarSATEncoder(This, (BooleanVar *) constraint);
50 return encodeLogicSATEncoder(This, (BooleanLogic *) constraint);
52 return encodePredicateSATEncoder(This, (BooleanPredicate *) constraint);
54 model_print("Unhandled case in encodeConstraintSATEncoder %u", GETBOOLEANTYPE(constraint));
59 void getArrayNewVarsSATEncoder(SATEncoder *encoder, uint num, Edge *carray) {
60 for (uint i = 0; i < num; i++)
61 carray[i] = getNewVarSATEncoder(encoder);
64 Edge getNewVarSATEncoder(SATEncoder *This) {
65 return constraintNewVar(This->cnf);
68 Edge encodeVarSATEncoder(SATEncoder *This, BooleanVar *constraint) {
69 if (edgeIsNull(constraint->var)) {
70 constraint->var = getNewVarSATEncoder(This);
72 return constraint->var;
75 Edge encodeLogicSATEncoder(SATEncoder *This, BooleanLogic *constraint) {
76 Edge array[getSizeArrayBoolean(&constraint->inputs)];
77 for (uint i = 0; i < getSizeArrayBoolean(&constraint->inputs); i++)
78 array[i] = encodeConstraintSATEncoder(This, getArrayBoolean(&constraint->inputs, i));
80 switch (constraint->op) {
82 return constraintAND(This->cnf, getSizeArrayBoolean(&constraint->inputs), array);
84 return constraintOR(This->cnf, getSizeArrayBoolean(&constraint->inputs), array);
86 ASSERT( getSizeArrayBoolean(&constraint->inputs) == 1);
87 return constraintNegate(array[0]);
89 ASSERT( getSizeArrayBoolean(&constraint->inputs) == 2);
90 return constraintXOR(This->cnf, array[0], array[1]);
92 ASSERT( getSizeArrayBoolean( &constraint->inputs) == 2);
93 return constraintIMPLIES(This->cnf, array[0], array[1]);
95 model_print("Unhandled case in encodeLogicSATEncoder %u", constraint->op);
100 Edge encodePredicateSATEncoder(SATEncoder *This, BooleanPredicate *constraint) {
101 switch (GETPREDICATETYPE(constraint->predicate) ) {
103 return encodeTablePredicateSATEncoder(This, constraint);
105 return encodeOperatorPredicateSATEncoder(This, constraint);
112 Edge encodeTablePredicateSATEncoder(SATEncoder *This, BooleanPredicate *constraint) {
113 switch (constraint->encoding.type) {
114 case ENUMERATEIMPLICATIONS:
115 case ENUMERATEIMPLICATIONSNEGATE:
116 return encodeEnumTablePredicateSATEncoder(This, constraint);
126 void encodeElementSATEncoder(SATEncoder *encoder, Element *This) {
127 switch ( GETELEMENTTYPE(This) ) {
129 generateElementEncoding(encoder, This);
130 encodeElementFunctionSATEncoder(encoder, (ElementFunction *) This);
133 generateElementEncoding(encoder, This);
142 void encodeElementFunctionSATEncoder(SATEncoder *encoder, ElementFunction *This) {
143 switch (GETFUNCTIONTYPE(This->function)) {
145 encodeTableElementFunctionSATEncoder(encoder, This);
148 encodeOperatorElementFunctionSATEncoder(encoder, This);
155 void encodeTableElementFunctionSATEncoder(SATEncoder *encoder, ElementFunction *This) {
156 switch (getElementFunctionEncoding(This)->type) {
157 case ENUMERATEIMPLICATIONS:
158 encodeEnumTableElemFunctionSATEncoder(encoder, This);