/*++
Copyright (c) 2012 Microsoft Corporation

Module Name:

    expr_safe_replace.cpp

Abstract:

    Version of expr_replace/expr_substitution that is safe for quantifiers.

Author:

    Nikolaj Bjorner (nbjorner) 2012-11-30

Revision History:


--*/

#include "ast/rewriter/expr_safe_replace.h"
#include "ast/rewriter/var_subst.h"
#include "ast/ast_pp.h"


void expr_safe_replace::insert(expr* src, expr* dst) {
    SASSERT(src->get_sort() == dst->get_sort());
    m_src.push_back(src);
    m_dst.push_back(dst);
    m_cache.clear();
}

void expr_safe_replace::operator()(expr_ref_vector& es) {
    if (empty())
        return;
    expr_ref val(m);
    for (unsigned i = 0; i < es.size(); ++i) {
        (*this)(es.get(i), val);
        es[i] = val;
    }
}

void expr_safe_replace::operator()(expr* e, expr_ref& res) {
    if (empty()) {
        res = e;
        return;
    }

    if (m_cache.empty()) {
        for (unsigned i = 0, e = m_src.size(); i < e; ++i) 
            m_cache.emplace(m_src.get(i), m_dst.get(i));
    }
    
    m_todo.push_back(e);
    expr* a, *b;

    m_refs.push_back(e);
    while (!m_todo.empty()) {
        a = m_todo.back();
        auto &cached = m_cache[a];
        if (cached) {
            m_todo.pop_back();
        }
        else if (is_var(a)) {
            cached = a;
            m_todo.pop_back();
        }
        else if (is_app(a)) {
            app* c = to_app(a);
            m_args.reset();
            bool arg_differs = false, has_all_args = true;
            for (expr* arg : *c) {
                if (has_all_args) {
                    if (expr* d = m_cache[arg]) {
                        m_args.push_back(d);
                        arg_differs |= arg != d;
                        SASSERT(arg->get_sort() == d->get_sort());
                        continue;
                    }
                }
                m_todo.push_back(arg);
                has_all_args = false;
            }
            if (has_all_args) {
                if (arg_differs) {
                    b = m.mk_app(c->get_decl(), m_args);
                    m_refs.push_back(b);
                    SASSERT(a->get_sort() == b->get_sort());
                } else {
                    b = a;
                }
                cached = b;
                m_todo.pop_back();
            }
        }
        else {
            SASSERT(is_quantifier(a));
            quantifier* q = to_quantifier(a);
            expr_ref new_body(m);
            expr_ref_vector pats(m), nopats(m);

            // fast-path for when all src/dst rewrite patterns are ground
            bool all_repls_ground = true;
            for (unsigned i = 0, e = m_src.size(); all_repls_ground && i < e; ++i) {
                all_repls_ground &= is_ground(m_src.get(i));
                all_repls_ground &= is_ground(m_dst.get(i));
            }

            if (all_repls_ground) {
                bool has_all_data = true;
                new_body = m_cache[q->get_expr()];
                if (!new_body) {
                    m_todo.push_back(q->get_expr());
                    has_all_data = false;
                }

                unsigned np = q->get_num_patterns();
                for (unsigned i = 0; i < np; ++i) {
                    if (has_all_data) {
                        if (expr * p = m_cache[q->get_pattern(i)]) {
                            pats.push_back(p);
                            continue;
                        }
                    }
                    m_todo.push_back(q->get_pattern(i));
                    has_all_data = false;
                }
                np = q->get_num_no_patterns();
                for (unsigned i = 0; i < np; ++i) {
                    if (has_all_data) {
                        if (expr * p = m_cache[q->get_no_pattern(i)]) {
                            nopats.push_back(p);
                            continue;
                        }
                    }
                    m_todo.push_back(q->get_no_pattern(i));
                    has_all_data = false;
                }

                if (!has_all_data)
                    continue;
            }
            else {
                expr_safe_replace replace(m);
                var_shifter shift(m);
                expr_ref src(m), dst(m), tmp(m);
                unsigned num_decls = q->get_num_decls();
                for (unsigned i = 0; i < m_src.size(); ++i) {
                    shift(m_src.get(i), num_decls, src);
                    shift(m_dst.get(i), num_decls, dst);
                    replace.insert(src, dst);
                }
                unsigned np = q->get_num_patterns();
                for (unsigned i = 0; i < np; ++i) {
                    replace(q->get_pattern(i), tmp);
                    pats.push_back(tmp);
                }
                np = q->get_num_no_patterns();
                for (unsigned i = 0; i < np; ++i) {
                    replace(q->get_no_pattern(i), tmp);
                    nopats.push_back(tmp);
                }
                replace(q->get_expr(), new_body);
            }
            b = m.update_quantifier(q, pats.size(), pats.data(), nopats.size(), nopats.data(), new_body);
            m_refs.push_back(b);
            cached = b;
            m_todo.pop_back();
        }        
    }
    res = m_cache.at(e);
    if (m_refs.size() > 1 << 20) {
        m_cache.clear();
        m_refs.reset();
    }
    m_todo.reset();
    m_args.reset();
}

void expr_safe_replace::reset() {
    m_src.reset();
    m_dst.reset();
    m_refs.finalize();
    m_cache.clear();
}

void expr_safe_replace::apply_substitution(expr* s, expr* def, expr_ref& t) {
    reset();
    insert(s, def);
    (*this)(t, t);
    reset();
}

void expr_safe_replace::push_scope() {
    m_limit.push_back(m_src.size());
}

void expr_safe_replace::pop_scope(unsigned n) {
    unsigned old_sz = m_limit[m_limit.size() - n];
    if (old_sz != m_src.size()) {
        m_cache.clear();
        m_src.shrink(old_sz);
        m_dst.shrink(old_sz);
    }
    m_limit.shrink(m_limit.size() - n);
}
