5e4bfb8d9b30ab0515eaba20a7c9de88604e0c8d
[satune.git] / src / ASTTransform / integerencoding.cc
1 #include "integerencoding.h"
2 #include "set.h"
3 #include "order.h"
4 #include "satencoder.h"
5 #include "csolver.h"
6 #include "integerencodingrecord.h"
7 #include "integerencorderresolver.h"
8 #include "tunable.h"
9 #include "polarityassignment.h"
10
11 IntegerEncodingTransform::IntegerEncodingTransform(CSolver *_solver)
12         : Transform(_solver)
13 {
14 }
15
16 IntegerEncodingTransform::~IntegerEncodingTransform() {
17 }
18
19 void IntegerEncodingTransform::doTransform() {
20         HashsetOrder *orders = solver->getActiveOrders()->copy();
21         SetIteratorOrder *orderit = orders->iterator();
22         while (orderit->hasNext()) {
23                 Order *order = orderit->next();
24                 if (GETVARTUNABLE(solver->getTuner(), order->type, ORDERINTEGERENCODING, &offon))
25                         integerEncode(order);
26         }
27         delete orders;
28         delete orderit;
29 }
30
31 void IntegerEncodingTransform::integerEncode(Order *currOrder) {
32         IntegerEncodingRecord *encodingRecord =  new IntegerEncodingRecord(
33                 solver->createRangeSet(currOrder->set->getType(), 0, (uint64_t) currOrder->set->getSize() - 1));
34         currOrder->setOrderEncodingType( INTEGERENCODING );
35         uint size = currOrder->constraints.getSize();
36         for (uint i = 0; i < size; i++) {
37                 orderIntegerEncodingSATEncoder(currOrder->constraints.get(i), encodingRecord);
38         }
39         currOrder->setOrderResolver(new IntegerEncOrderResolver(solver, encodingRecord));
40         solver->getActiveOrders()->remove(currOrder);
41 }
42
43
44 void IntegerEncodingTransform::orderIntegerEncodingSATEncoder(BooleanOrder *boolOrder, IntegerEncodingRecord *ierec) {
45         //getting two elements and using LT predicate ...
46         Element *elem1 = ierec->getOrderIntegerElement(solver, boolOrder->first);
47         Element *elem2 = ierec->getOrderIntegerElement(solver, boolOrder->second);
48         Set *sarray[] = {ierec->getSecondarySet(), ierec->getSecondarySet()};
49         Predicate *predicate = solver->createPredicateOperator(SATC_LT, sarray, 2);
50         Element *parray[] = {elem1, elem2};
51         BooleanEdge boolean = solver->applyPredicate(predicate, parray, 2);
52         updateEdgePolarity(boolean, boolOrder);
53         solver->replaceBooleanWithBoolean(boolOrder, boolean);
54 }
55