From f23940669cb73c63560f2ede9ee677c50a8a3e27 Mon Sep 17 00:00:00 2001
From: Daniel Dunbar <daniel@zuster.org>
Date: Fri, 5 Jun 2009 10:21:21 +0000
Subject: Support counter example queries (at least, the restricted set that we
 use).  - Arrays don't have sizes yet, so we don't get initial values
 correctly.

git-svn-id: https://llvm.org/svn/llvm-project/klee/trunk@72939 91177308-0d34-0410-b5e6-96231b3b80d8
---
 tools/kleaver/main.cpp | 53 ++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 47 insertions(+), 6 deletions(-)

(limited to 'tools/kleaver')

diff --git a/tools/kleaver/main.cpp b/tools/kleaver/main.cpp
index 7525eb7a..9699dcfd 100644
--- a/tools/kleaver/main.cpp
+++ b/tools/kleaver/main.cpp
@@ -132,14 +132,55 @@ static bool EvaluateInputAST(const char *Filename,
     if (QueryCommand *QC = dyn_cast<QueryCommand>(D)) {
       llvm::cout << "Query " << Index << ":\t";
 
-      assert(QC->Values.empty() && QC->Objects.empty() && 
-             "FIXME: Support counterexample query commands!");
-      bool result;
-      if (S->mustBeTrue(Query(ConstraintManager(QC->Constraints), QC->Query),
+      assert("FIXME: Support counterexample query commands!");
+      if (QC->Values.empty() && QC->Objects.empty()) {
+        bool result;
+        if (S->mustBeTrue(Query(ConstraintManager(QC->Constraints), QC->Query),
+                          result)) {
+          llvm::cout << (result ? "VALID" : "INVALID");
+        } else {
+          llvm::cout << "FAIL";
+        }
+      } else if (!QC->Values.empty()) {
+        assert(QC->Objects.empty() && 
+               "FIXME: Support counterexamples for values and objects!");
+        assert(QC->Values.size() == 1 &&
+               "FIXME: Support counterexamples for multiple values!");
+        assert(QC->Query->isFalse() &&
+               "FIXME: Support counterexamples with non-trivial query!");
+        ref<ConstantExpr> result;
+        if (S->getValue(Query(ConstraintManager(QC->Constraints), 
+                              QC->Values[0]),
                         result)) {
-        llvm::cout << (result ? "VALID" : "INVALID");
+          llvm::cout << "INVALID\n";
+          llvm::cout << "\tExpr 0:\t" << result;
+        } else {
+          llvm::cout << "FAIL";
+        }
       } else {
-        llvm::cout << "FAIL";
+        std::vector< std::vector<unsigned char> > result;
+        
+        if (S->getInitialValues(Query(ConstraintManager(QC->Constraints), 
+                                      QC->Query),
+                                QC->Objects, result)) {
+          llvm::cout << "INVALID\n";
+
+          for (unsigned i = 0, e = result.size(); i != e; ++i) {
+            llvm::cout << "\tArray " << i << ":\t"
+                       << "arr" << QC->Objects[i]->id
+                       << "[";
+            for (unsigned j = 0; j != QC->Objects[i]->size; ++j) {
+              llvm::cout << (unsigned) result[i][j];
+              if (j + 1 != QC->Objects[i]->size)
+                llvm::cout << ", ";
+            }
+            llvm::cout << "]";
+            if (i + 1 != e)
+              llvm::cout << "\n";
+          }
+        } else {
+          llvm::cout << "FAIL";
+        }
       }
 
       llvm::cout << "\n";
-- 
cgit 1.4.1