mirror of
https://github.com/Z3Prover/z3
synced 2026-06-02 15:17:54 +00:00
refactor: move nielsen graph display/to_dot routines into seq_nielsen_pp.cpp (#9090)
Agent-Logs-Url: https://github.com/Z3Prover/z3/sessions/c2457bcf-85f0-4ad7-9ff1-d394f4315698 Co-authored-by: copilot-swe-agent[bot] <198982749+Copilot@users.noreply.github.com> Co-authored-by: NikolajBjorner <3085284+NikolajBjorner@users.noreply.github.com>
This commit is contained in:
Copilot
GitHub
parent
00aac9a6a4
commit
e0ca916e23
3 changed files with 629 additions and 601 deletions
|
|
@ -4,6 +4,7 @@ z3_add_component(smt_seq
|
||||||
seq_state.cpp
|
seq_state.cpp
|
||||||
seq_parikh.cpp
|
seq_parikh.cpp
|
||||||
seq_nielsen.cpp
|
seq_nielsen.cpp
|
||||||
|
seq_nielsen_pp.cpp
|
||||||
COMPONENT_DEPENDENCIES
|
COMPONENT_DEPENDENCIES
|
||||||
euf
|
euf
|
||||||
rewriter
|
rewriter
|
||||||
|
|
|
||||||
|
|
@ -642,607 +642,6 @@ namespace seq {
|
||||||
m_solver.reset();
|
m_solver.reset();
|
||||||
}
|
}
|
||||||
|
|
||||||
std::ostream& nielsen_graph::display(std::ostream& out, nielsen_node* n) const {
|
|
||||||
out << " node[" << n->id() << "]";
|
|
||||||
if (n == m_root)
|
|
||||||
out << " (root)";
|
|
||||||
if (n->is_general_conflict())
|
|
||||||
out << " CONFLICT";
|
|
||||||
if (n->is_extended())
|
|
||||||
out << " EXTENDED";
|
|
||||||
out << "\n";
|
|
||||||
|
|
||||||
// display string equalities
|
|
||||||
for (auto const &eq : n->str_eqs()) {
|
|
||||||
out << " str_eq: ";
|
|
||||||
if (eq.m_lhs)
|
|
||||||
out << "lhs[id=" << eq.m_lhs->id() << ",len=" << eq.m_lhs->length() << "]";
|
|
||||||
else
|
|
||||||
out << "null";
|
|
||||||
out << " = ";
|
|
||||||
if (eq.m_rhs)
|
|
||||||
out << "rhs[id=" << eq.m_rhs->id() << ",len=" << eq.m_rhs->length() << "]";
|
|
||||||
else
|
|
||||||
out << "null";
|
|
||||||
out << "\n";
|
|
||||||
out << mk_pp(eq.m_lhs->get_expr(), m) << " = " << mk_pp(eq.m_rhs->get_expr(), m) << "\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
// display regex memberships
|
|
||||||
for (auto const &mem : n->str_mems()) {
|
|
||||||
out << " str_mem[" << mem.m_id << "]: ";
|
|
||||||
if (mem.m_str)
|
|
||||||
out << "str[id=" << mem.m_str->id() << ",len=" << mem.m_str->length() << "]";
|
|
||||||
else
|
|
||||||
out << "null";
|
|
||||||
out << " in ";
|
|
||||||
if (mem.m_regex)
|
|
||||||
out << "re[id=" << mem.m_regex->id() << "]";
|
|
||||||
else
|
|
||||||
out << "null";
|
|
||||||
out << "\n";
|
|
||||||
out << mk_pp(mem.m_str->get_expr(), m) << " in " << mk_pp(mem.m_regex->get_expr(), m) << "\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
// display outgoing edges
|
|
||||||
for (nielsen_edge const *e : n->outgoing()) {
|
|
||||||
out << " -> node[" << e->tgt()->id() << "]";
|
|
||||||
if (e->is_progress())
|
|
||||||
out << " (progress)";
|
|
||||||
for (auto const &s : e->subst()) {
|
|
||||||
out << " {";
|
|
||||||
if (s.m_var)
|
|
||||||
out << "var[" << s.m_var->id() << "]";
|
|
||||||
out << " -> ";
|
|
||||||
if (s.m_replacement)
|
|
||||||
out << "repl[" << s.m_replacement->id() << ",len=" << s.m_replacement->length() << "]";
|
|
||||||
else
|
|
||||||
out << "eps";
|
|
||||||
out << "}";
|
|
||||||
}
|
|
||||||
out << "\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
if (n->backedge())
|
|
||||||
out << " backedge -> node[" << n->backedge()->id() << "]\n";
|
|
||||||
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
|
|
||||||
std::ostream& nielsen_graph::display(std::ostream& out) const {
|
|
||||||
out << "nielsen_graph with " << m_nodes.size() << " nodes, "
|
|
||||||
<< m_edges.size() << " edges\n";
|
|
||||||
|
|
||||||
for (nielsen_node* n : m_nodes)
|
|
||||||
display(out, n);
|
|
||||||
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
|
|
||||||
// -----------------------------------------------------------------------
|
|
||||||
// nielsen_node: display_html
|
|
||||||
// Render constraint set as an HTML fragment for DOT labels.
|
|
||||||
// Mirrors ZIPT's NielsenNode.ToHtmlString().
|
|
||||||
// -----------------------------------------------------------------------
|
|
||||||
|
|
||||||
// Helper: HTML-escape a string and replace literal \n with <br/>.
|
|
||||||
static std::string dot_html_escape(std::string const& s) {
|
|
||||||
std::string r;
|
|
||||||
r.reserve(s.size());
|
|
||||||
for (char c : s) {
|
|
||||||
switch (c) {
|
|
||||||
case '&': r += "&"; break;
|
|
||||||
case '<': r += "<"; break;
|
|
||||||
case '>': r += ">"; break;
|
|
||||||
default: r += c; break;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
// replace literal "\n" two-char sequence with <br/>
|
|
||||||
std::string result;
|
|
||||||
result.reserve(r.size());
|
|
||||||
for (std::size_t i = 0; i < r.size(); ) {
|
|
||||||
if (i + 1 < r.size() && r[i] == '\\' && r[i+1] == 'n') {
|
|
||||||
result += "<br/>";
|
|
||||||
i += 2;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
result += r[i++];
|
|
||||||
}
|
|
||||||
return result;
|
|
||||||
}
|
|
||||||
|
|
||||||
// Helper: render an arithmetic/integer expression in infix HTML notation.
|
|
||||||
// Recognises +, -, *, unary minus, numerals, str.len, and named constants;
|
|
||||||
// falls back to HTML-escaped mk_pp for anything else.
|
|
||||||
static std::string arith_expr_html(expr* e, ast_manager& m) {
|
|
||||||
if (!e) return "null";
|
|
||||||
arith_util arith(m);
|
|
||||||
seq_util seq(m);
|
|
||||||
rational val;
|
|
||||||
if (arith.is_numeral(e, val))
|
|
||||||
return val.to_string();
|
|
||||||
if (!is_app(e)) {
|
|
||||||
std::ostringstream os;
|
|
||||||
os << mk_pp(e, m);
|
|
||||||
return dot_html_escape(os.str());
|
|
||||||
}
|
|
||||||
app* a = to_app(e);
|
|
||||||
expr* x, * y;
|
|
||||||
if (arith.is_add(e)) {
|
|
||||||
std::string r = arith_expr_html(a->get_arg(0), m);
|
|
||||||
for (unsigned i = 1; i < a->get_num_args(); ++i) {
|
|
||||||
expr* arg = a->get_arg(i);
|
|
||||||
// render (+ x (- y)) as "x - y" and (+ x (- n)) as "x - n"
|
|
||||||
expr* neg_inner;
|
|
||||||
rational neg_val;
|
|
||||||
if (arith.is_uminus(arg, neg_inner)) {
|
|
||||||
r += " − "; // minus sign
|
|
||||||
r += arith_expr_html(neg_inner, m);
|
|
||||||
} else if (arith.is_numeral(arg, neg_val) && neg_val.is_neg()) {
|
|
||||||
r += " − "; // minus sign
|
|
||||||
r += (-neg_val).to_string();
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
r += " + ";
|
|
||||||
r += arith_expr_html(arg, m);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return r;
|
|
||||||
}
|
|
||||||
if (arith.is_sub(e, x, y))
|
|
||||||
return arith_expr_html(x, m) + " − " + arith_expr_html(y, m);
|
|
||||||
if (arith.is_uminus(e, x))
|
|
||||||
return "−" + arith_expr_html(x, m);
|
|
||||||
if (arith.is_mul(e)) {
|
|
||||||
std::string r;
|
|
||||||
for (unsigned i = 0; i < a->get_num_args(); ++i) {
|
|
||||||
if (i > 0) r += " · "; // middle dot
|
|
||||||
r += arith_expr_html(a->get_arg(i), m);
|
|
||||||
}
|
|
||||||
return r;
|
|
||||||
}
|
|
||||||
if (seq.str.is_length(e, x)) {
|
|
||||||
return "|" + dot_html_escape(to_app(x)->get_decl()->get_name().str()) + "|";
|
|
||||||
}
|
|
||||||
// named constant (fresh variable like n!0)
|
|
||||||
if (a->get_num_args() == 0)
|
|
||||||
return dot_html_escape(a->get_decl()->get_name().str());
|
|
||||||
// fallback
|
|
||||||
std::ostringstream os;
|
|
||||||
os << mk_pp(e, m);
|
|
||||||
return dot_html_escape(os.str());
|
|
||||||
}
|
|
||||||
|
|
||||||
// Helper: render an int_constraint as an HTML string for DOT edge labels.
|
|
||||||
static std::string int_constraint_html(int_constraint const& ic, ast_manager& m) {
|
|
||||||
std::string r = arith_expr_html(ic.m_lhs, m);
|
|
||||||
switch (ic.m_kind) {
|
|
||||||
case int_constraint_kind::eq: r += " = "; break;
|
|
||||||
case int_constraint_kind::le: r += " ≤ "; break; // ≤
|
|
||||||
case int_constraint_kind::ge: r += " ≥ "; break; // ≥
|
|
||||||
}
|
|
||||||
r += arith_expr_html(ic.m_rhs, m);
|
|
||||||
return r;
|
|
||||||
}
|
|
||||||
|
|
||||||
static std::string regex_expr_html(expr* e, ast_manager& m, seq_util& seq) {
|
|
||||||
if (!e)
|
|
||||||
return "null";
|
|
||||||
expr* a = nullptr, * b = nullptr;
|
|
||||||
|
|
||||||
if (seq.re.is_to_re(e, a)) {
|
|
||||||
zstring s;
|
|
||||||
bool first = true;
|
|
||||||
svector<expr*> args;
|
|
||||||
args.push_back(a);
|
|
||||||
// flatten concatenations
|
|
||||||
std::ostringstream os;
|
|
||||||
while (!args.empty()) {
|
|
||||||
expr* arg = args.back();
|
|
||||||
args.pop_back();
|
|
||||||
if (seq.str.is_concat(arg)) {
|
|
||||||
args.push_back(to_app(arg)->get_arg(1));
|
|
||||||
args.push_back(to_app(arg)->get_arg(0));
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if (seq.str.is_string(arg, s)) {
|
|
||||||
if (!first) os << " ";
|
|
||||||
os << "\"" + dot_html_escape(s.encode()) + "\"";
|
|
||||||
first = false;
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
unsigned ch_val = 0;
|
|
||||||
if (seq.str.is_unit(arg) && seq.is_const_char(to_app(arg)->get_arg(0), ch_val)) {
|
|
||||||
if (!first) os << " ";
|
|
||||||
os << "\"" + dot_html_escape(zstring(ch_val).encode()) + "\"";
|
|
||||||
first = false;
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
if (!first) os << " ";
|
|
||||||
os << mk_pp(arg, m);
|
|
||||||
first = false;
|
|
||||||
}
|
|
||||||
return dot_html_escape(os.str());
|
|
||||||
}
|
|
||||||
if (seq.re.is_concat(e)) {
|
|
||||||
app* ap = to_app(e);
|
|
||||||
std::string res;
|
|
||||||
if (ap->get_num_args() == 0) return "()";
|
|
||||||
for (unsigned i = 0; i < ap->get_num_args(); ++i) {
|
|
||||||
if (i > 0) res += " ";
|
|
||||||
bool needs_parens = seq.re.is_union(ap->get_arg(i));
|
|
||||||
if (needs_parens) res += "(";
|
|
||||||
res += regex_expr_html(ap->get_arg(i), m, seq);
|
|
||||||
if (needs_parens) res += ")";
|
|
||||||
}
|
|
||||||
return res;
|
|
||||||
}
|
|
||||||
if (seq.re.is_union(e)) {
|
|
||||||
app* ap = to_app(e);
|
|
||||||
std::string res;
|
|
||||||
if (ap->get_num_args() == 0)
|
|
||||||
return "∅";
|
|
||||||
res = regex_expr_html(ap->get_arg(1), m, seq);
|
|
||||||
for (unsigned i = 1; i < ap->get_num_args(); ++i) {
|
|
||||||
res += " | ";
|
|
||||||
res += regex_expr_html(ap->get_arg(i), m, seq);
|
|
||||||
}
|
|
||||||
return res;
|
|
||||||
}
|
|
||||||
if (seq.re.is_intersection(e)) {
|
|
||||||
app* ap = to_app(e);
|
|
||||||
std::string res;
|
|
||||||
for (unsigned i = 0; i < ap->get_num_args(); ++i) {
|
|
||||||
if (i > 0) res += " & ";
|
|
||||||
bool needs_parens = seq.re.is_union(ap->get_arg(i)) || seq.re.is_concat(ap->get_arg(i));
|
|
||||||
if (needs_parens) res += "(";
|
|
||||||
res += regex_expr_html(ap->get_arg(i), m, seq);
|
|
||||||
if (needs_parens) res += ")";
|
|
||||||
}
|
|
||||||
return res;
|
|
||||||
}
|
|
||||||
if (seq.re.is_star(e, a)) {
|
|
||||||
bool needs_parens = seq.re.is_union(a) || seq.re.is_concat(a) || seq.re.is_intersection(a);
|
|
||||||
std::string res = needs_parens ? "(" : "";
|
|
||||||
res += regex_expr_html(a, m, seq);
|
|
||||||
res += needs_parens ? ")<SUP>*</SUP>" : "<SUP>*</SUP>";
|
|
||||||
return res;
|
|
||||||
}
|
|
||||||
if (seq.re.is_plus(e, a)) {
|
|
||||||
bool needs_parens = seq.re.is_union(a) || seq.re.is_concat(a) || seq.re.is_intersection(a);
|
|
||||||
std::string res = needs_parens ? "(" : "";
|
|
||||||
res += regex_expr_html(a, m, seq);
|
|
||||||
res += needs_parens ? ")<SUP>+</SUP>" : "<SUP>+</SUP>";
|
|
||||||
return res;
|
|
||||||
}
|
|
||||||
if (seq.re.is_opt(e, a)) {
|
|
||||||
bool needs_parens = seq.re.is_union(a) || seq.re.is_concat(a) || seq.re.is_intersection(a);
|
|
||||||
std::string res = needs_parens ? "(" : "";
|
|
||||||
res += regex_expr_html(a, m, seq);
|
|
||||||
res += needs_parens ? ")?" : "?";
|
|
||||||
return res;
|
|
||||||
}
|
|
||||||
if (seq.re.is_complement(e, a)) {
|
|
||||||
bool needs_parens = seq.re.is_union(a) || seq.re.is_concat(a) || seq.re.is_intersection(a);
|
|
||||||
std::string res = "~";
|
|
||||||
res += needs_parens ? "(" : "";
|
|
||||||
res += regex_expr_html(a, m, seq);
|
|
||||||
res += needs_parens ? ")" : "";
|
|
||||||
return res;
|
|
||||||
}
|
|
||||||
if (seq.re.is_range(e, a, b)) {
|
|
||||||
zstring s1, s2;
|
|
||||||
std::string c1 = seq.str.is_string(a, s1) ? dot_html_escape(s1.encode()) : arith_expr_html(a, m);
|
|
||||||
std::string c2 = seq.str.is_string(b, s2) ? dot_html_escape(s2.encode()) : arith_expr_html(b, m);
|
|
||||||
return "[" + c1 + "-" + c2 + "]";
|
|
||||||
}
|
|
||||||
if (seq.re.is_full_char(e)) {
|
|
||||||
return "Σ"; // Sigma
|
|
||||||
}
|
|
||||||
if (seq.re.is_full_seq(e)) {
|
|
||||||
return "Σ<SUP>*</SUP>"; // Sigma*
|
|
||||||
}
|
|
||||||
if (seq.re.is_empty(e)) {
|
|
||||||
return "∅"; // empty set
|
|
||||||
}
|
|
||||||
|
|
||||||
std::ostringstream os;
|
|
||||||
os << mk_pp(e, m);
|
|
||||||
return dot_html_escape(os.str());
|
|
||||||
}
|
|
||||||
|
|
||||||
// Helper: render a snode as an HTML label for DOT output.
|
|
||||||
// Groups consecutive s_char tokens into quoted strings, renders s_var by name,
|
|
||||||
// shows s_power with superscripts, s_unit by its inner expression,
|
|
||||||
// and falls back to mk_pp (HTML-escaped) for other token kinds.
|
|
||||||
|
|
||||||
std::string snode_label_html(euf::snode const* n, ast_manager& m) {
|
|
||||||
if (!n) return "null";
|
|
||||||
seq_util seq(m);
|
|
||||||
|
|
||||||
// collect all leaf tokens left-to-right
|
|
||||||
euf::snode_vector tokens;
|
|
||||||
n->collect_tokens(tokens);
|
|
||||||
|
|
||||||
if (tokens.empty())
|
|
||||||
return "\"\""; // empty string
|
|
||||||
|
|
||||||
std::string result;
|
|
||||||
std::string char_acc; // accumulator for consecutive printable chars
|
|
||||||
bool first = true;
|
|
||||||
|
|
||||||
// flush accumulated chars as a quoted string
|
|
||||||
auto flush_chars = [&]() {
|
|
||||||
if (char_acc.empty()) return;
|
|
||||||
if (!first) result += " + ";
|
|
||||||
result += "\"" + dot_html_escape(char_acc) + "\"";
|
|
||||||
first = false;
|
|
||||||
char_acc.clear();
|
|
||||||
};
|
|
||||||
|
|
||||||
for (euf::snode const* tok : tokens) {
|
|
||||||
expr* e = tok->get_expr();
|
|
||||||
|
|
||||||
// s_char: seq.unit(const_char) – extract char code and accumulate
|
|
||||||
if (tok->is_char() && e) {
|
|
||||||
expr* ch_expr = to_app(e)->get_arg(0);
|
|
||||||
unsigned code = 0;
|
|
||||||
if (seq.is_const_char(ch_expr, code)) {
|
|
||||||
if (code >= 32 && code < 127 && code != '"' && code != '\\') {
|
|
||||||
char_acc += static_cast<char>(code);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
flush_chars();
|
|
||||||
char buf[16];
|
|
||||||
snprintf(buf, sizeof(buf), "'\\x%x'", code);
|
|
||||||
if (!first)
|
|
||||||
result += " + ";
|
|
||||||
result += buf;
|
|
||||||
first = false;
|
|
||||||
}
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
flush_chars();
|
|
||||||
if (!first) result += " + ";
|
|
||||||
first = false;
|
|
||||||
|
|
||||||
if (!e) {
|
|
||||||
result += "#" + std::to_string(tok->id());
|
|
||||||
} else if (tok->is_var()) {
|
|
||||||
result += dot_html_escape(to_app(e)->get_decl()->get_name().str());
|
|
||||||
} else if (tok->is_unit()) {
|
|
||||||
// seq.unit with non-literal character: show the character expression
|
|
||||||
expr* ch = to_app(e)->get_arg(0);
|
|
||||||
if (is_app(ch) && to_app(ch)->get_num_args() == 0)
|
|
||||||
result += "[" + dot_html_escape(to_app(ch)->get_decl()->get_name().str()) + "]";
|
|
||||||
else {
|
|
||||||
std::ostringstream os;
|
|
||||||
os << mk_pp(ch, m);
|
|
||||||
result += "[" + dot_html_escape(os.str()) + "]";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else if (tok->is_power()) {
|
|
||||||
// seq.power(base, n): render as base<SUP>n</SUP>
|
|
||||||
std::string base_html = snode_label_html(tok->arg(0), m);
|
|
||||||
if (tok->arg(0)->length() > 1)
|
|
||||||
base_html = "(" + base_html + ")";
|
|
||||||
result += base_html;
|
|
||||||
result += "<SUP>";
|
|
||||||
expr* exp_expr = to_app(e)->get_arg(1);
|
|
||||||
result += arith_expr_html(exp_expr, m);
|
|
||||||
result += "</SUP>";
|
|
||||||
}
|
|
||||||
else if (e && seq.is_re(e))
|
|
||||||
result += regex_expr_html(e, m, seq);
|
|
||||||
else {
|
|
||||||
std::ostringstream os;
|
|
||||||
os << mk_pp(e, m);
|
|
||||||
result += dot_html_escape(os.str());
|
|
||||||
}
|
|
||||||
}
|
|
||||||
flush_chars();
|
|
||||||
return result;
|
|
||||||
}
|
|
||||||
|
|
||||||
std::ostream& nielsen_node::display_html(std::ostream& out, ast_manager& m) const {
|
|
||||||
bool any = false;
|
|
||||||
|
|
||||||
// string equalities
|
|
||||||
for (auto const& eq : m_str_eq) {
|
|
||||||
if (!any) { out << "Cnstr:<br/>"; any = true; }
|
|
||||||
out << snode_label_html(eq.m_lhs, m)
|
|
||||||
<< " = "
|
|
||||||
<< snode_label_html(eq.m_rhs, m)
|
|
||||||
<< "<br/>";
|
|
||||||
}
|
|
||||||
// regex memberships
|
|
||||||
for (auto const& mem : m_str_mem) {
|
|
||||||
if (!any) { out << "Cnstr:<br/>"; any = true; }
|
|
||||||
out << snode_label_html(mem.m_str, m)
|
|
||||||
<< " ∈ "
|
|
||||||
<< snode_label_html(mem.m_regex, m)
|
|
||||||
<< "<br/>";
|
|
||||||
}
|
|
||||||
// character ranges
|
|
||||||
for (auto const& kv : m_char_ranges) {
|
|
||||||
if (!any) { out << "Cnstr:<br/>"; any = true; }
|
|
||||||
out << "?" << kv.m_key << " ∈ ";
|
|
||||||
kv.m_value.display(out);
|
|
||||||
out << "<br/>";
|
|
||||||
}
|
|
||||||
// character disequalities
|
|
||||||
for (auto const& kv : m_char_diseqs) {
|
|
||||||
if (!any) { out << "Cnstr:<br/>"; any = true; }
|
|
||||||
for (euf::snode* d : kv.m_value) {
|
|
||||||
out << "?" << kv.m_key << " ≠ ?" << d->id() << "<br/>";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
// integer constraints
|
|
||||||
for (auto const& ic : m_int_constraints) {
|
|
||||||
if (!any) { out << "Cnstr:<br/>"; any = true; }
|
|
||||||
out << int_constraint_html(ic, m) << "<br/>";
|
|
||||||
}
|
|
||||||
|
|
||||||
if (!any)
|
|
||||||
out << "⊤"; // ⊤ (trivially satisfied)
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
|
|
||||||
// -----------------------------------------------------------------------
|
|
||||||
// nielsen_graph: to_dot
|
|
||||||
// Output the graph in graphviz DOT format, optionally colour-highlighting
|
|
||||||
// the satisfying path. Mirrors ZIPT's NielsenGraph.ToDot().
|
|
||||||
// -----------------------------------------------------------------------
|
|
||||||
|
|
||||||
// Convert a backtrack_reason to a short display string.
|
|
||||||
static char const* reason_to_str(backtrack_reason r) {
|
|
||||||
switch (r) {
|
|
||||||
case backtrack_reason::unevaluated: return "Unevaluated";
|
|
||||||
case backtrack_reason::extended: return "Extended";
|
|
||||||
case backtrack_reason::symbol_clash: return "Symbol Clash";
|
|
||||||
case backtrack_reason::parikh_image: return "Parikh Image";
|
|
||||||
case backtrack_reason::subsumption: return "Subsumption";
|
|
||||||
case backtrack_reason::arithmetic: return "Arithmetic";
|
|
||||||
case backtrack_reason::regex: return "Regex";
|
|
||||||
case backtrack_reason::regex_widening: return "RegexWidening";
|
|
||||||
case backtrack_reason::character_range: return "Character Range";
|
|
||||||
case backtrack_reason::smt: return "SMT";
|
|
||||||
case backtrack_reason::children_failed: return "Children Failed";
|
|
||||||
default: return "?";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
// Returns true when the reason is a direct (non-propagated) conflict.
|
|
||||||
// Mirrors ZIPT's NielsenNode.IsActualConflict(): all conflicts except ChildrenFailed.
|
|
||||||
static bool is_actual_conflict(backtrack_reason r) {
|
|
||||||
return r == backtrack_reason::symbol_clash
|
|
||||||
|| r == backtrack_reason::parikh_image
|
|
||||||
|| r == backtrack_reason::subsumption
|
|
||||||
|| r == backtrack_reason::arithmetic
|
|
||||||
|| r == backtrack_reason::regex
|
|
||||||
|| r == backtrack_reason::regex_widening
|
|
||||||
|| r == backtrack_reason::character_range
|
|
||||||
|| r == backtrack_reason::smt;
|
|
||||||
}
|
|
||||||
|
|
||||||
// gives a graphviz graph representation of the Nielsen graph (for debugging)
|
|
||||||
std::ostream& nielsen_graph::to_dot(std::ostream& out) const {
|
|
||||||
ast_manager& m = m_sg.get_manager();
|
|
||||||
|
|
||||||
// collect sat-path nodes and edges for green highlighting
|
|
||||||
ptr_addr_hashtable<nielsen_node> sat_nodes;
|
|
||||||
ptr_addr_hashtable<nielsen_edge> sat_edges;
|
|
||||||
for (nielsen_edge* e : m_sat_path) {
|
|
||||||
if (e->src()) sat_nodes.insert(e->src());
|
|
||||||
if (e->tgt()) sat_nodes.insert(e->tgt());
|
|
||||||
sat_edges.insert(e);
|
|
||||||
}
|
|
||||||
|
|
||||||
out << "digraph G {\n";
|
|
||||||
|
|
||||||
// --- nodes ---
|
|
||||||
for (nielsen_node const* n : m_nodes) {
|
|
||||||
out << " " << n->id() << " [label=<"
|
|
||||||
<< n->id() << ": ";
|
|
||||||
n->display_html(out, m);
|
|
||||||
// append conflict reason if this is a direct conflict
|
|
||||||
if (is_actual_conflict(n->reason()))
|
|
||||||
out << "<br/>" << reason_to_str(n->reason());
|
|
||||||
out << ">";
|
|
||||||
|
|
||||||
// colour
|
|
||||||
if (sat_nodes.contains(const_cast<nielsen_node*>(n)))
|
|
||||||
out << ", color=green";
|
|
||||||
else if (n->is_general_conflict())
|
|
||||||
out << ", color=darkred";
|
|
||||||
else if (n->eval_idx() != m_run_idx) // inactive (not visited this run)
|
|
||||||
out << ", color=blue";
|
|
||||||
else if (n->is_currently_conflict())
|
|
||||||
out << ", color=red";
|
|
||||||
|
|
||||||
out << "];\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
// --- edges ---
|
|
||||||
for (nielsen_node const* n : m_nodes) {
|
|
||||||
for (nielsen_edge const* e : n->outgoing()) {
|
|
||||||
out << " " << n->id() << " -> " << e->tgt()->id() << " [label=<";
|
|
||||||
|
|
||||||
// edge label: substitutions joined by <br/>
|
|
||||||
bool first = true;
|
|
||||||
for (auto const& s : e->subst()) {
|
|
||||||
if (!first) out << "<br/>";
|
|
||||||
first = false;
|
|
||||||
out << snode_label_html(s.m_var, m)
|
|
||||||
<< " → " // mapping arrow
|
|
||||||
<< snode_label_html(s.m_replacement, m);
|
|
||||||
}
|
|
||||||
for (auto const& cs : e->char_substs()) {
|
|
||||||
if (!first) out << "<br/>";
|
|
||||||
first = false;
|
|
||||||
out << "?" << cs.m_var->id()
|
|
||||||
<< " → ?" << cs.m_val->id();
|
|
||||||
}
|
|
||||||
// side constraints: string equalities
|
|
||||||
for (auto const* eq : e->side_str_eq()) {
|
|
||||||
if (!first) out << "<br/>";
|
|
||||||
first = false;
|
|
||||||
out << "<font color=\"gray\">"
|
|
||||||
<< snode_label_html(eq->m_lhs, m)
|
|
||||||
<< " = "
|
|
||||||
<< snode_label_html(eq->m_rhs, m)
|
|
||||||
<< "</font>";
|
|
||||||
}
|
|
||||||
// side constraints: regex memberships
|
|
||||||
for (auto const* mem : e->side_str_mem()) {
|
|
||||||
if (!first) out << "<br/>";
|
|
||||||
first = false;
|
|
||||||
out << "<font color=\"gray\">"
|
|
||||||
<< snode_label_html(mem->m_str, m)
|
|
||||||
<< " ∈ "
|
|
||||||
<< snode_label_html(mem->m_regex, m)
|
|
||||||
<< "</font>";
|
|
||||||
}
|
|
||||||
// side constraints: integer equalities/inequalities
|
|
||||||
for (auto const& ic : e->side_int()) {
|
|
||||||
if (!first) out << "<br/>";
|
|
||||||
first = false;
|
|
||||||
out << "<font color=\"gray\">"
|
|
||||||
<< int_constraint_html(ic, m)
|
|
||||||
<< "</font>";
|
|
||||||
}
|
|
||||||
out << ">";
|
|
||||||
|
|
||||||
// colour
|
|
||||||
nielsen_edge* ep = const_cast<nielsen_edge*>(e);
|
|
||||||
if (sat_edges.contains(ep))
|
|
||||||
out << ", color=green";
|
|
||||||
else if (e->tgt()->eval_idx() != m_run_idx)
|
|
||||||
out << ", color=blue";
|
|
||||||
else if (e->tgt()->is_currently_conflict())
|
|
||||||
out << ", color=red";
|
|
||||||
|
|
||||||
out << "];\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
// backedge as dotted arrow
|
|
||||||
if (n->backedge())
|
|
||||||
out << " " << n->id() << " -> " << n->backedge()->id()
|
|
||||||
<< " [style=dotted];\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
out << "}\n";
|
|
||||||
return out;
|
|
||||||
}
|
|
||||||
|
|
||||||
std::string nielsen_graph::to_dot() const {
|
|
||||||
std::stringstream ss;
|
|
||||||
to_dot(ss);
|
|
||||||
return ss.str();
|
|
||||||
}
|
|
||||||
|
|
||||||
// -----------------------------------------------------------------------
|
// -----------------------------------------------------------------------
|
||||||
// nielsen_node: simplify_and_init
|
// nielsen_node: simplify_and_init
|
||||||
// -----------------------------------------------------------------------
|
// -----------------------------------------------------------------------
|
||||||
|
|
|
||||||
628
src/smt/seq/seq_nielsen_pp.cpp
Normal file
628
src/smt/seq/seq_nielsen_pp.cpp
Normal file
|
|
@ -0,0 +1,628 @@
|
||||||
|
/*++
|
||||||
|
Copyright (c) 2026 Microsoft Corporation
|
||||||
|
|
||||||
|
Module Name:
|
||||||
|
|
||||||
|
seq_nielsen_pp.cpp
|
||||||
|
|
||||||
|
Abstract:
|
||||||
|
|
||||||
|
Display and DOT output routines for the Nielsen graph.
|
||||||
|
|
||||||
|
Author:
|
||||||
|
|
||||||
|
Clemens Eisenhofer 2026-03-02
|
||||||
|
Nikolaj Bjorner (nbjorner) 2026-03-02
|
||||||
|
|
||||||
|
--*/
|
||||||
|
|
||||||
|
#include "smt/seq/seq_nielsen.h"
|
||||||
|
#include "ast/arith_decl_plugin.h"
|
||||||
|
#include "ast/ast_pp.h"
|
||||||
|
#include "ast/rewriter/seq_rewriter.h"
|
||||||
|
#include <sstream>
|
||||||
|
|
||||||
|
namespace seq {
|
||||||
|
|
||||||
|
std::ostream& nielsen_graph::display(std::ostream& out, nielsen_node* n) const {
|
||||||
|
out << " node[" << n->id() << "]";
|
||||||
|
if (n == m_root)
|
||||||
|
out << " (root)";
|
||||||
|
if (n->is_general_conflict())
|
||||||
|
out << " CONFLICT";
|
||||||
|
if (n->is_extended())
|
||||||
|
out << " EXTENDED";
|
||||||
|
out << "\n";
|
||||||
|
|
||||||
|
// display string equalities
|
||||||
|
for (auto const &eq : n->str_eqs()) {
|
||||||
|
out << " str_eq: ";
|
||||||
|
if (eq.m_lhs)
|
||||||
|
out << "lhs[id=" << eq.m_lhs->id() << ",len=" << eq.m_lhs->length() << "]";
|
||||||
|
else
|
||||||
|
out << "null";
|
||||||
|
out << " = ";
|
||||||
|
if (eq.m_rhs)
|
||||||
|
out << "rhs[id=" << eq.m_rhs->id() << ",len=" << eq.m_rhs->length() << "]";
|
||||||
|
else
|
||||||
|
out << "null";
|
||||||
|
out << "\n";
|
||||||
|
out << mk_pp(eq.m_lhs->get_expr(), m) << " = " << mk_pp(eq.m_rhs->get_expr(), m) << "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
// display regex memberships
|
||||||
|
for (auto const &mem : n->str_mems()) {
|
||||||
|
out << " str_mem[" << mem.m_id << "]: ";
|
||||||
|
if (mem.m_str)
|
||||||
|
out << "str[id=" << mem.m_str->id() << ",len=" << mem.m_str->length() << "]";
|
||||||
|
else
|
||||||
|
out << "null";
|
||||||
|
out << " in ";
|
||||||
|
if (mem.m_regex)
|
||||||
|
out << "re[id=" << mem.m_regex->id() << "]";
|
||||||
|
else
|
||||||
|
out << "null";
|
||||||
|
out << "\n";
|
||||||
|
out << mk_pp(mem.m_str->get_expr(), m) << " in " << mk_pp(mem.m_regex->get_expr(), m) << "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
// display outgoing edges
|
||||||
|
for (nielsen_edge const *e : n->outgoing()) {
|
||||||
|
out << " -> node[" << e->tgt()->id() << "]";
|
||||||
|
if (e->is_progress())
|
||||||
|
out << " (progress)";
|
||||||
|
for (auto const &s : e->subst()) {
|
||||||
|
out << " {";
|
||||||
|
if (s.m_var)
|
||||||
|
out << "var[" << s.m_var->id() << "]";
|
||||||
|
out << " -> ";
|
||||||
|
if (s.m_replacement)
|
||||||
|
out << "repl[" << s.m_replacement->id() << ",len=" << s.m_replacement->length() << "]";
|
||||||
|
else
|
||||||
|
out << "eps";
|
||||||
|
out << "}";
|
||||||
|
}
|
||||||
|
out << "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
if (n->backedge())
|
||||||
|
out << " backedge -> node[" << n->backedge()->id() << "]\n";
|
||||||
|
|
||||||
|
return out;
|
||||||
|
}
|
||||||
|
|
||||||
|
std::ostream& nielsen_graph::display(std::ostream& out) const {
|
||||||
|
out << "nielsen_graph with " << m_nodes.size() << " nodes, "
|
||||||
|
<< m_edges.size() << " edges\n";
|
||||||
|
|
||||||
|
for (nielsen_node* n : m_nodes)
|
||||||
|
display(out, n);
|
||||||
|
|
||||||
|
return out;
|
||||||
|
}
|
||||||
|
|
||||||
|
// -----------------------------------------------------------------------
|
||||||
|
// nielsen_node: display_html
|
||||||
|
// Render constraint set as an HTML fragment for DOT labels.
|
||||||
|
// Mirrors ZIPT's NielsenNode.ToHtmlString().
|
||||||
|
// -----------------------------------------------------------------------
|
||||||
|
|
||||||
|
// Helper: HTML-escape a string and replace literal \n with <br/>.
|
||||||
|
static std::string dot_html_escape(std::string const& s) {
|
||||||
|
std::string r;
|
||||||
|
r.reserve(s.size());
|
||||||
|
for (char c : s) {
|
||||||
|
switch (c) {
|
||||||
|
case '&': r += "&"; break;
|
||||||
|
case '<': r += "<"; break;
|
||||||
|
case '>': r += ">"; break;
|
||||||
|
default: r += c; break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// replace literal "\n" two-char sequence with <br/>
|
||||||
|
std::string result;
|
||||||
|
result.reserve(r.size());
|
||||||
|
for (std::size_t i = 0; i < r.size(); ) {
|
||||||
|
if (i + 1 < r.size() && r[i] == '\\' && r[i+1] == 'n') {
|
||||||
|
result += "<br/>";
|
||||||
|
i += 2;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
result += r[i++];
|
||||||
|
}
|
||||||
|
return result;
|
||||||
|
}
|
||||||
|
|
||||||
|
// Helper: render an arithmetic/integer expression in infix HTML notation.
|
||||||
|
// Recognises +, -, *, unary minus, numerals, str.len, and named constants;
|
||||||
|
// falls back to HTML-escaped mk_pp for anything else.
|
||||||
|
static std::string arith_expr_html(expr* e, ast_manager& m) {
|
||||||
|
if (!e) return "null";
|
||||||
|
arith_util arith(m);
|
||||||
|
seq_util seq(m);
|
||||||
|
rational val;
|
||||||
|
if (arith.is_numeral(e, val))
|
||||||
|
return val.to_string();
|
||||||
|
if (!is_app(e)) {
|
||||||
|
std::ostringstream os;
|
||||||
|
os << mk_pp(e, m);
|
||||||
|
return dot_html_escape(os.str());
|
||||||
|
}
|
||||||
|
app* a = to_app(e);
|
||||||
|
expr* x, * y;
|
||||||
|
if (arith.is_add(e)) {
|
||||||
|
std::string r = arith_expr_html(a->get_arg(0), m);
|
||||||
|
for (unsigned i = 1; i < a->get_num_args(); ++i) {
|
||||||
|
expr* arg = a->get_arg(i);
|
||||||
|
// render (+ x (- y)) as "x - y" and (+ x (- n)) as "x - n"
|
||||||
|
expr* neg_inner;
|
||||||
|
rational neg_val;
|
||||||
|
if (arith.is_uminus(arg, neg_inner)) {
|
||||||
|
r += " − "; // minus sign
|
||||||
|
r += arith_expr_html(neg_inner, m);
|
||||||
|
} else if (arith.is_numeral(arg, neg_val) && neg_val.is_neg()) {
|
||||||
|
r += " − "; // minus sign
|
||||||
|
r += (-neg_val).to_string();
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
r += " + ";
|
||||||
|
r += arith_expr_html(arg, m);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return r;
|
||||||
|
}
|
||||||
|
if (arith.is_sub(e, x, y))
|
||||||
|
return arith_expr_html(x, m) + " − " + arith_expr_html(y, m);
|
||||||
|
if (arith.is_uminus(e, x))
|
||||||
|
return "−" + arith_expr_html(x, m);
|
||||||
|
if (arith.is_mul(e)) {
|
||||||
|
std::string r;
|
||||||
|
for (unsigned i = 0; i < a->get_num_args(); ++i) {
|
||||||
|
if (i > 0) r += " · "; // middle dot
|
||||||
|
r += arith_expr_html(a->get_arg(i), m);
|
||||||
|
}
|
||||||
|
return r;
|
||||||
|
}
|
||||||
|
if (seq.str.is_length(e, x)) {
|
||||||
|
return "|" + dot_html_escape(to_app(x)->get_decl()->get_name().str()) + "|";
|
||||||
|
}
|
||||||
|
// named constant, fresh variable like n!0
|
||||||
|
if (a->get_num_args() == 0)
|
||||||
|
return dot_html_escape(a->get_decl()->get_name().str());
|
||||||
|
// fallback
|
||||||
|
std::ostringstream os;
|
||||||
|
os << mk_pp(e, m);
|
||||||
|
return dot_html_escape(os.str());
|
||||||
|
}
|
||||||
|
|
||||||
|
// Helper: render an int_constraint as an HTML string for DOT edge labels.
|
||||||
|
static std::string int_constraint_html(int_constraint const& ic, ast_manager& m) {
|
||||||
|
std::string r = arith_expr_html(ic.m_lhs, m);
|
||||||
|
switch (ic.m_kind) {
|
||||||
|
case int_constraint_kind::eq: r += " = "; break;
|
||||||
|
case int_constraint_kind::le: r += " ≤ "; break; // ≤
|
||||||
|
case int_constraint_kind::ge: r += " ≥ "; break; // ≥
|
||||||
|
}
|
||||||
|
r += arith_expr_html(ic.m_rhs, m);
|
||||||
|
return r;
|
||||||
|
}
|
||||||
|
|
||||||
|
static std::string regex_expr_html(expr* e, ast_manager& m, seq_util& seq) {
|
||||||
|
if (!e)
|
||||||
|
return "null";
|
||||||
|
expr* a = nullptr, * b = nullptr;
|
||||||
|
|
||||||
|
if (seq.re.is_to_re(e, a)) {
|
||||||
|
zstring s;
|
||||||
|
bool first = true;
|
||||||
|
svector<expr*> args;
|
||||||
|
args.push_back(a);
|
||||||
|
// flatten concatenations
|
||||||
|
std::ostringstream os;
|
||||||
|
while (!args.empty()) {
|
||||||
|
expr* arg = args.back();
|
||||||
|
args.pop_back();
|
||||||
|
if (seq.str.is_concat(arg)) {
|
||||||
|
args.push_back(to_app(arg)->get_arg(1));
|
||||||
|
args.push_back(to_app(arg)->get_arg(0));
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if (seq.str.is_string(arg, s)) {
|
||||||
|
if (!first) os << " ";
|
||||||
|
os << "\"" + dot_html_escape(s.encode()) + "\"";
|
||||||
|
first = false;
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
unsigned ch_val = 0;
|
||||||
|
if (seq.str.is_unit(arg) && seq.is_const_char(to_app(arg)->get_arg(0), ch_val)) {
|
||||||
|
if (!first) os << " ";
|
||||||
|
os << "\"" + dot_html_escape(zstring(ch_val).encode()) + "\"";
|
||||||
|
first = false;
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if (!first) os << " ";
|
||||||
|
os << mk_pp(arg, m);
|
||||||
|
first = false;
|
||||||
|
}
|
||||||
|
return dot_html_escape(os.str());
|
||||||
|
}
|
||||||
|
if (seq.re.is_concat(e)) {
|
||||||
|
app* ap = to_app(e);
|
||||||
|
std::string res;
|
||||||
|
if (ap->get_num_args() == 0) return "()";
|
||||||
|
for (unsigned i = 0; i < ap->get_num_args(); ++i) {
|
||||||
|
if (i > 0) res += " ";
|
||||||
|
bool needs_parens = seq.re.is_union(ap->get_arg(i));
|
||||||
|
if (needs_parens) res += "(";
|
||||||
|
res += regex_expr_html(ap->get_arg(i), m, seq);
|
||||||
|
if (needs_parens) res += ")";
|
||||||
|
}
|
||||||
|
return res;
|
||||||
|
}
|
||||||
|
if (seq.re.is_union(e)) {
|
||||||
|
app* ap = to_app(e);
|
||||||
|
std::string res;
|
||||||
|
if (ap->get_num_args() == 0)
|
||||||
|
return "∅";
|
||||||
|
res = regex_expr_html(ap->get_arg(1), m, seq);
|
||||||
|
for (unsigned i = 1; i < ap->get_num_args(); ++i) {
|
||||||
|
res += " | ";
|
||||||
|
res += regex_expr_html(ap->get_arg(i), m, seq);
|
||||||
|
}
|
||||||
|
return res;
|
||||||
|
}
|
||||||
|
if (seq.re.is_intersection(e)) {
|
||||||
|
app* ap = to_app(e);
|
||||||
|
std::string res;
|
||||||
|
for (unsigned i = 0; i < ap->get_num_args(); ++i) {
|
||||||
|
if (i > 0) res += " & ";
|
||||||
|
bool needs_parens = seq.re.is_union(ap->get_arg(i)) || seq.re.is_concat(ap->get_arg(i));
|
||||||
|
if (needs_parens) res += "(";
|
||||||
|
res += regex_expr_html(ap->get_arg(i), m, seq);
|
||||||
|
if (needs_parens) res += ")";
|
||||||
|
}
|
||||||
|
return res;
|
||||||
|
}
|
||||||
|
if (seq.re.is_star(e, a)) {
|
||||||
|
bool needs_parens = seq.re.is_union(a) || seq.re.is_concat(a) || seq.re.is_intersection(a);
|
||||||
|
std::string res = needs_parens ? "(" : "";
|
||||||
|
res += regex_expr_html(a, m, seq);
|
||||||
|
res += needs_parens ? ")<SUP>*</SUP>" : "<SUP>*</SUP>";
|
||||||
|
return res;
|
||||||
|
}
|
||||||
|
if (seq.re.is_plus(e, a)) {
|
||||||
|
bool needs_parens = seq.re.is_union(a) || seq.re.is_concat(a) || seq.re.is_intersection(a);
|
||||||
|
std::string res = needs_parens ? "(" : "";
|
||||||
|
res += regex_expr_html(a, m, seq);
|
||||||
|
res += needs_parens ? ")<SUP>+</SUP>" : "<SUP>+</SUP>";
|
||||||
|
return res;
|
||||||
|
}
|
||||||
|
if (seq.re.is_opt(e, a)) {
|
||||||
|
bool needs_parens = seq.re.is_union(a) || seq.re.is_concat(a) || seq.re.is_intersection(a);
|
||||||
|
std::string res = needs_parens ? "(" : "";
|
||||||
|
res += regex_expr_html(a, m, seq);
|
||||||
|
res += needs_parens ? ")?" : "?";
|
||||||
|
return res;
|
||||||
|
}
|
||||||
|
if (seq.re.is_complement(e, a)) {
|
||||||
|
bool needs_parens = seq.re.is_union(a) || seq.re.is_concat(a) || seq.re.is_intersection(a);
|
||||||
|
std::string res = "~";
|
||||||
|
res += needs_parens ? "(" : "";
|
||||||
|
res += regex_expr_html(a, m, seq);
|
||||||
|
res += needs_parens ? ")" : "";
|
||||||
|
return res;
|
||||||
|
}
|
||||||
|
if (seq.re.is_range(e, a, b)) {
|
||||||
|
zstring s1, s2;
|
||||||
|
std::string c1 = seq.str.is_string(a, s1) ? dot_html_escape(s1.encode()) : arith_expr_html(a, m);
|
||||||
|
std::string c2 = seq.str.is_string(b, s2) ? dot_html_escape(s2.encode()) : arith_expr_html(b, m);
|
||||||
|
return "[" + c1 + "-" + c2 + "]";
|
||||||
|
}
|
||||||
|
if (seq.re.is_full_char(e)) {
|
||||||
|
return "Σ"; // Sigma
|
||||||
|
}
|
||||||
|
if (seq.re.is_full_seq(e)) {
|
||||||
|
return "Σ<SUP>*</SUP>"; // Sigma*
|
||||||
|
}
|
||||||
|
if (seq.re.is_empty(e)) {
|
||||||
|
return "∅"; // empty set
|
||||||
|
}
|
||||||
|
|
||||||
|
std::ostringstream os;
|
||||||
|
os << mk_pp(e, m);
|
||||||
|
return dot_html_escape(os.str());
|
||||||
|
}
|
||||||
|
|
||||||
|
// Helper: render a snode as an HTML label for DOT output.
|
||||||
|
// Groups consecutive s_char tokens into quoted strings, renders s_var by name,
|
||||||
|
// shows s_power with superscripts, s_unit by its inner expression,
|
||||||
|
// and falls back to mk_pp, HTML-escaped, for other token kinds.
|
||||||
|
|
||||||
|
std::string snode_label_html(euf::snode const* n, ast_manager& m) {
|
||||||
|
if (!n) return "null";
|
||||||
|
seq_util seq(m);
|
||||||
|
|
||||||
|
// collect all leaf tokens left-to-right
|
||||||
|
euf::snode_vector tokens;
|
||||||
|
n->collect_tokens(tokens);
|
||||||
|
|
||||||
|
if (tokens.empty())
|
||||||
|
return "\"\""; // empty string
|
||||||
|
|
||||||
|
std::string result;
|
||||||
|
std::string char_acc; // accumulator for consecutive printable chars
|
||||||
|
bool first = true;
|
||||||
|
|
||||||
|
// flush accumulated chars as a quoted string
|
||||||
|
auto flush_chars = [&]() {
|
||||||
|
if (char_acc.empty()) return;
|
||||||
|
if (!first) result += " + ";
|
||||||
|
result += "\"" + dot_html_escape(char_acc) + "\"";
|
||||||
|
first = false;
|
||||||
|
char_acc.clear();
|
||||||
|
};
|
||||||
|
|
||||||
|
for (euf::snode const* tok : tokens) {
|
||||||
|
expr* e = tok->get_expr();
|
||||||
|
|
||||||
|
// s_char: seq.unit(const_char) - extract char code and accumulate
|
||||||
|
if (tok->is_char() && e) {
|
||||||
|
expr* ch_expr = to_app(e)->get_arg(0);
|
||||||
|
unsigned code = 0;
|
||||||
|
if (seq.is_const_char(ch_expr, code)) {
|
||||||
|
if (code >= 32 && code < 127 && code != '"' && code != '\\') {
|
||||||
|
char_acc += static_cast<char>(code);
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
flush_chars();
|
||||||
|
char buf[16];
|
||||||
|
snprintf(buf, sizeof(buf), "'\\x%x'", code);
|
||||||
|
if (!first)
|
||||||
|
result += " + ";
|
||||||
|
result += buf;
|
||||||
|
first = false;
|
||||||
|
}
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
flush_chars();
|
||||||
|
if (!first) result += " + ";
|
||||||
|
first = false;
|
||||||
|
|
||||||
|
if (!e) {
|
||||||
|
result += "#" + std::to_string(tok->id());
|
||||||
|
} else if (tok->is_var()) {
|
||||||
|
result += dot_html_escape(to_app(e)->get_decl()->get_name().str());
|
||||||
|
} else if (tok->is_unit()) {
|
||||||
|
// seq.unit with non-literal character: show the character expression
|
||||||
|
expr* ch = to_app(e)->get_arg(0);
|
||||||
|
if (is_app(ch) && to_app(ch)->get_num_args() == 0)
|
||||||
|
result += "[" + dot_html_escape(to_app(ch)->get_decl()->get_name().str()) + "]";
|
||||||
|
else {
|
||||||
|
std::ostringstream os;
|
||||||
|
os << mk_pp(ch, m);
|
||||||
|
result += "[" + dot_html_escape(os.str()) + "]";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if (tok->is_power()) {
|
||||||
|
// seq.power(base, n): render as base<SUP>n</SUP>
|
||||||
|
std::string base_html = snode_label_html(tok->arg(0), m);
|
||||||
|
if (tok->arg(0)->length() > 1)
|
||||||
|
base_html = "(" + base_html + ")";
|
||||||
|
result += base_html;
|
||||||
|
result += "<SUP>";
|
||||||
|
expr* exp_expr = to_app(e)->get_arg(1);
|
||||||
|
result += arith_expr_html(exp_expr, m);
|
||||||
|
result += "</SUP>";
|
||||||
|
}
|
||||||
|
else if (e && seq.is_re(e))
|
||||||
|
result += regex_expr_html(e, m, seq);
|
||||||
|
else {
|
||||||
|
std::ostringstream os;
|
||||||
|
os << mk_pp(e, m);
|
||||||
|
result += dot_html_escape(os.str());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
flush_chars();
|
||||||
|
return result;
|
||||||
|
}
|
||||||
|
|
||||||
|
std::ostream& nielsen_node::display_html(std::ostream& out, ast_manager& m) const {
|
||||||
|
bool any = false;
|
||||||
|
|
||||||
|
// string equalities
|
||||||
|
for (auto const& eq : m_str_eq) {
|
||||||
|
if (!any) { out << "Cnstr:<br/>"; any = true; }
|
||||||
|
out << snode_label_html(eq.m_lhs, m)
|
||||||
|
<< " = "
|
||||||
|
<< snode_label_html(eq.m_rhs, m)
|
||||||
|
<< "<br/>";
|
||||||
|
}
|
||||||
|
// regex memberships
|
||||||
|
for (auto const& mem : m_str_mem) {
|
||||||
|
if (!any) { out << "Cnstr:<br/>"; any = true; }
|
||||||
|
out << snode_label_html(mem.m_str, m)
|
||||||
|
<< " ∈ "
|
||||||
|
<< snode_label_html(mem.m_regex, m)
|
||||||
|
<< "<br/>";
|
||||||
|
}
|
||||||
|
// character ranges
|
||||||
|
for (auto const& kv : m_char_ranges) {
|
||||||
|
if (!any) { out << "Cnstr:<br/>"; any = true; }
|
||||||
|
out << "?" << kv.m_key << " ∈ ";
|
||||||
|
kv.m_value.display(out);
|
||||||
|
out << "<br/>";
|
||||||
|
}
|
||||||
|
// character disequalities
|
||||||
|
for (auto const& kv : m_char_diseqs) {
|
||||||
|
if (!any) { out << "Cnstr:<br/>"; any = true; }
|
||||||
|
for (euf::snode* d : kv.m_value) {
|
||||||
|
out << "?" << kv.m_key << " ≠ ?" << d->id() << "<br/>";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// integer constraints
|
||||||
|
for (auto const& ic : m_int_constraints) {
|
||||||
|
if (!any) { out << "Cnstr:<br/>"; any = true; }
|
||||||
|
out << int_constraint_html(ic, m) << "<br/>";
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!any)
|
||||||
|
out << "⊤"; // top, trivially satisfied
|
||||||
|
return out;
|
||||||
|
}
|
||||||
|
|
||||||
|
// -----------------------------------------------------------------------
|
||||||
|
// nielsen_graph: to_dot
|
||||||
|
// Output the graph in graphviz DOT format, optionally colour-highlighting
|
||||||
|
// the satisfying path. Mirrors ZIPT's NielsenGraph.ToDot().
|
||||||
|
// -----------------------------------------------------------------------
|
||||||
|
|
||||||
|
// Convert a backtrack_reason to a short display string.
|
||||||
|
static char const* reason_to_str(backtrack_reason r) {
|
||||||
|
switch (r) {
|
||||||
|
case backtrack_reason::unevaluated: return "Unevaluated";
|
||||||
|
case backtrack_reason::extended: return "Extended";
|
||||||
|
case backtrack_reason::symbol_clash: return "Symbol Clash";
|
||||||
|
case backtrack_reason::parikh_image: return "Parikh Image";
|
||||||
|
case backtrack_reason::subsumption: return "Subsumption";
|
||||||
|
case backtrack_reason::arithmetic: return "Arithmetic";
|
||||||
|
case backtrack_reason::regex: return "Regex";
|
||||||
|
case backtrack_reason::regex_widening: return "RegexWidening";
|
||||||
|
case backtrack_reason::character_range: return "Character Range";
|
||||||
|
case backtrack_reason::smt: return "SMT";
|
||||||
|
case backtrack_reason::children_failed: return "Children Failed";
|
||||||
|
default: return "?";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// Returns true when the reason is a direct, non-propagated, conflict.
|
||||||
|
// Mirrors ZIPT's NielsenNode.IsActualConflict(): all conflicts except ChildrenFailed.
|
||||||
|
static bool is_actual_conflict(backtrack_reason r) {
|
||||||
|
return r == backtrack_reason::symbol_clash
|
||||||
|
|| r == backtrack_reason::parikh_image
|
||||||
|
|| r == backtrack_reason::subsumption
|
||||||
|
|| r == backtrack_reason::arithmetic
|
||||||
|
|| r == backtrack_reason::regex
|
||||||
|
|| r == backtrack_reason::regex_widening
|
||||||
|
|| r == backtrack_reason::character_range
|
||||||
|
|| r == backtrack_reason::smt;
|
||||||
|
}
|
||||||
|
|
||||||
|
// gives a graphviz graph representation of the Nielsen graph, for debugging
|
||||||
|
std::ostream& nielsen_graph::to_dot(std::ostream& out) const {
|
||||||
|
ast_manager& m = m_sg.get_manager();
|
||||||
|
|
||||||
|
// collect sat-path nodes and edges for green highlighting
|
||||||
|
ptr_addr_hashtable<nielsen_node> sat_nodes;
|
||||||
|
ptr_addr_hashtable<nielsen_edge> sat_edges;
|
||||||
|
for (nielsen_edge* e : m_sat_path) {
|
||||||
|
if (e->src()) sat_nodes.insert(e->src());
|
||||||
|
if (e->tgt()) sat_nodes.insert(e->tgt());
|
||||||
|
sat_edges.insert(e);
|
||||||
|
}
|
||||||
|
|
||||||
|
out << "digraph G {\n";
|
||||||
|
|
||||||
|
// --- nodes ---
|
||||||
|
for (nielsen_node const* n : m_nodes) {
|
||||||
|
out << " " << n->id() << " [label=<"
|
||||||
|
<< n->id() << ": ";
|
||||||
|
n->display_html(out, m);
|
||||||
|
// append conflict reason if this is a direct conflict
|
||||||
|
if (is_actual_conflict(n->reason()))
|
||||||
|
out << "<br/>" << reason_to_str(n->reason());
|
||||||
|
out << ">";
|
||||||
|
|
||||||
|
// colour
|
||||||
|
if (sat_nodes.contains(const_cast<nielsen_node*>(n)))
|
||||||
|
out << ", color=green";
|
||||||
|
else if (n->is_general_conflict())
|
||||||
|
out << ", color=darkred";
|
||||||
|
else if (n->eval_idx() != m_run_idx) // inactive, not visited this run
|
||||||
|
out << ", color=blue";
|
||||||
|
else if (n->is_currently_conflict())
|
||||||
|
out << ", color=red";
|
||||||
|
|
||||||
|
out << "];\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
// --- edges ---
|
||||||
|
for (nielsen_node const* n : m_nodes) {
|
||||||
|
for (nielsen_edge const* e : n->outgoing()) {
|
||||||
|
out << " " << n->id() << " -> " << e->tgt()->id() << " [label=<";
|
||||||
|
|
||||||
|
// edge label: substitutions joined by <br/>
|
||||||
|
bool first = true;
|
||||||
|
for (auto const& s : e->subst()) {
|
||||||
|
if (!first) out << "<br/>";
|
||||||
|
first = false;
|
||||||
|
out << snode_label_html(s.m_var, m)
|
||||||
|
<< " → " // mapping arrow
|
||||||
|
<< snode_label_html(s.m_replacement, m);
|
||||||
|
}
|
||||||
|
for (auto const& cs : e->char_substs()) {
|
||||||
|
if (!first) out << "<br/>";
|
||||||
|
first = false;
|
||||||
|
out << "?" << cs.m_var->id()
|
||||||
|
<< " → ?" << cs.m_val->id();
|
||||||
|
}
|
||||||
|
// side constraints: string equalities
|
||||||
|
for (auto const* eq : e->side_str_eq()) {
|
||||||
|
if (!first) out << "<br/>";
|
||||||
|
first = false;
|
||||||
|
out << "<font color=\"gray\">"
|
||||||
|
<< snode_label_html(eq->m_lhs, m)
|
||||||
|
<< " = "
|
||||||
|
<< snode_label_html(eq->m_rhs, m)
|
||||||
|
<< "</font>";
|
||||||
|
}
|
||||||
|
// side constraints: regex memberships
|
||||||
|
for (auto const* mem : e->side_str_mem()) {
|
||||||
|
if (!first) out << "<br/>";
|
||||||
|
first = false;
|
||||||
|
out << "<font color=\"gray\">"
|
||||||
|
<< snode_label_html(mem->m_str, m)
|
||||||
|
<< " ∈ "
|
||||||
|
<< snode_label_html(mem->m_regex, m)
|
||||||
|
<< "</font>";
|
||||||
|
}
|
||||||
|
// side constraints: integer equalities/inequalities
|
||||||
|
for (auto const& ic : e->side_int()) {
|
||||||
|
if (!first) out << "<br/>";
|
||||||
|
first = false;
|
||||||
|
out << "<font color=\"gray\">"
|
||||||
|
<< int_constraint_html(ic, m)
|
||||||
|
<< "</font>";
|
||||||
|
}
|
||||||
|
out << ">";
|
||||||
|
|
||||||
|
// colour
|
||||||
|
nielsen_edge* ep = const_cast<nielsen_edge*>(e);
|
||||||
|
if (sat_edges.contains(ep))
|
||||||
|
out << ", color=green";
|
||||||
|
else if (e->tgt()->eval_idx() != m_run_idx)
|
||||||
|
out << ", color=blue";
|
||||||
|
else if (e->tgt()->is_currently_conflict())
|
||||||
|
out << ", color=red";
|
||||||
|
|
||||||
|
out << "];\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
// backedge as dotted arrow
|
||||||
|
if (n->backedge())
|
||||||
|
out << " " << n->id() << " -> " << n->backedge()->id()
|
||||||
|
<< " [style=dotted];\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
out << "}\n";
|
||||||
|
return out;
|
||||||
|
}
|
||||||
|
|
||||||
|
std::string nielsen_graph::to_dot() const {
|
||||||
|
std::stringstream ss;
|
||||||
|
to_dot(ss);
|
||||||
|
return ss.str();
|
||||||
|
}
|
||||||
|
|
||||||
|
} // namespace seq
|
||||||
Loading…
Add table
Add a link
Reference in a new issue