propt::resultt satcheck_lingelingt::prop_solve()
{
assert(status!=ERROR);
{
std::string msg=
i2string(_no_variables)+" variables, "+
i2string(clause_counter)+" clauses";
messaget::status(msg);
}
std::string msg;
forall_literals(it, assumptions)
lglassume(solver, it->dimacs());
const int res=lglsat(solver);
if(res==10)
{
msg="SAT checker: negated claim is SATISFIABLE, i.e., does not hold";
messaget::status(msg);
status=SAT;
return P_SATISFIABLE;
}
else
{
assert(res==20);
msg="SAT checker: negated claim is UNSATISFIABLE, i.e., holds";
messaget::status(msg);
}
status=UNSAT;
return P_UNSATISFIABLE;
}
propt::resultt satcheck_lingelingt::prop_solve()
{
assert(status!=ERROR);
// We start counting at 1, thus there is one variable fewer.
{
std::string msg=
std::to_string(no_variables()-1)+" variables, "+
std::to_string(clause_counter)+" clauses";
messaget::status() << msg << messaget::eom;
}
std::string msg;
forall_literals(it, assumptions)
lglassume(solver, it->dimacs());
const int res=lglsat(solver);
if(res==10)
{
msg="SAT checker: instance is SATISFIABLE";
messaget::status() << msg << messaget::eom;
status=SAT;
return P_SATISFIABLE;
}
else
{
assert(res==20);
msg="SAT checker: instance is UNSATISFIABLE";
messaget::status() << msg << messaget::eom;
}
status=UNSAT;
return P_UNSATISFIABLE;
}
int main (int argc, char ** argv) {
int i, len, ch, close = 0, res, arg;
char buffer[80], * tok, * opt;
FILE * file;
char * cmd;
LGL * lgl;
for (i = 1; i < argc; i++) {
if (!strcmp (argv[i], "-h")) {
printf ("usage: lgluntrace [-h][-v][-e][<trace>[.gz]]\n");
exit (0);
} else if (!strcmp (argv[i], "-v")) verbose = 1;
else if (!strcmp (argv[i], "-e")) exitonabort = 1;
else if (argv[i][0] == '-')
die ("invalid command line option '%s' (try '-h')", argv[i]);
else if (name)
die ("two traces '%s' and '%s' specified (try '-h')", name, argv[i]);
else name = argv[i];
}
if(name) {
len = strlen (name);
if (len >= 3 && !strcmp (name + len - 3, ".gz")) {
cmd = malloc (len + 20);
sprintf (cmd, "gunzip -c %s", name);
file = popen (cmd, "r");
free (cmd);
if (file) close = 2;
} else {
file = fopen (name, "r");
if (file) close = 1;
}
if (!file) die ("can not read '%s'", name);
} else name = "<stdin>", file = stdin;
if (exitonabort) {
msg ("setting signal handlers since '-e' specified");
signal (SIGINT, exitonsig);
signal (SIGSEGV, exitonsig);
signal (SIGABRT, exitonsig);
signal (SIGTERM, exitonsig);
}
msg ("reading %s", name);
buffer[len = 0] = 0;
lineno = 1;
res = 0;
lgl = 0;
NEXT:
ch = getc (file);
if (ch == EOF) goto DONE;
if (ch == '\r') goto NEXT;
if (ch != '\n') {
if (len + 1 >= sizeof (buffer)) perr ("line buffer exceeded");
buffer[len++] = ch;
buffer[len] = 0;
goto NEXT;
}
msg ("line %d : %s", lineno, buffer);
if (!(tok = strtok (buffer, " "))) perr ("empty line");
else if (!strcmp (tok, "add")) lgladd (lgl, intarg ("add"));
else if (!strcmp (tok, "return")) {
arg = intarg ("return");
if (arg != res)
die ("expected return value %d but got %d", arg, res);
} else if (!strcmp (tok, "deref")) res = lglderef (lgl, intarg ("deref"));
else if (!strcmp (tok, "failed")) res = lglfailed (lgl, intarg ("failed"));
else if (!strcmp (tok, "fixed")) res = lglfixed (lgl, intarg ("fixed"));
else if (!strcmp (tok, "repr")) res = lglrepr (lgl, intarg ("repr"));
else if (noarg (tok, "incvar")) res = lglincvar (lgl);
else if (noarg (tok, "maxvar")) res = lglmaxvar (lgl);
else if (noarg (tok, "changed")) res = lglchanged (lgl);
else if (noarg (tok, "inconsistent")) res = lglinconsistent (lgl);
else if (noarg (tok, "lkhd")) res = lglookahead (lgl);
else if (noarg (tok, "fixate")) lglfixate (lgl);
else if (noarg (tok, "reduce")) lglreducecache (lgl);
else if (noarg (tok, "flush")) lglflushcache (lgl);
else if (noarg (tok, "chkclone")) lglchkclone (lgl);
else if (!strcmp (tok, "assume")) lglassume (lgl, intarg ("assume"));
else if (noarg (tok, "init")) lgl = lglinit ();
else if (noarg (tok, "sat")) res = lglsat (lgl);
else if (!strcmp (tok, "simp")) res = lglsimp (lgl, intarg ("simp"));
else if (noarg (tok, "stats")) lglstats (lgl);
else if (!strcmp (tok, "freeze")) lglfreeze (lgl, intarg ("freeze"));
else if (!strcmp (tok, "melt")) lglmelt (lgl, intarg ("melt"));
else if (!strcmp (tok, "reuse")) lglreuse (lgl, intarg ("reuse"));
else if (!strcmp (tok, "frozen")) res = lglfrozen (lgl, intarg ("frozen"));
else if (!strcmp (tok, "usable")) res = lglusable (lgl, intarg ("usable"));
else if (!strcmp (tok, "reusable"))
res = lglreusable (lgl, intarg ("reusable"));
else if (noarg (tok, "setphases")) lglsetphases (lgl);
else if (!strcmp (tok, "setphase")) lglsetphase (lgl, intarg ("setphase"));
else if (!strcmp (tok, "resetphase"))
lglresetphase (lgl, intarg ("resetphase"));
else if (!strcmp (tok, "option")) {
if (!(opt = strtok (0, " "))) perr ("option name missing");
lglsetopt (lgl, opt, intarg ("option"));
} else if (noarg (tok, "release")) lglrelease (lgl);
else perr ("invalid command '%s'", tok);
lineno++;
len = 0;
goto NEXT;
DONE:
if(close == 1) fclose (file);
if(close == 2) pclose (file);
msg ("done %s", name);
return 0;
}
static void
btor_lingeling_assume (BtorSATMgr * smgr, int lit)
{
BtorLGL * blgl = smgr->solver;
lglassume (blgl->lgl, lit);
}
