lean2/src/library/blast/trace.cpp

/*
Copyright (c) 2015 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.

Author: Leonardo de Moura
*/
#include "library/trace.h"
#include "library/io_state_stream.h"
#include "library/blast/blast.h"
#include "library/blast/choice_point.h"
#include "library/blast/trace.h"
#include "library/blast/options.h"

namespace lean {
namespace blast {
MK_THREAD_LOCAL_GET_DEF(expr, get_last_target);

void trace_target() {
    if (lean_is_trace_enabled(name({"blast", "search"})) &&
        curr_state().get_target() != get_last_target()) {
        lean_trace(name({"blast", "search"}), tout() << "target " << ppb(curr_state().get_target()) << "\n";);
        get_last_target() = curr_state().get_target();
    }
}

void trace_curr_state() {
    lean_trace(name({"blast", "state"}), tout() << "\n"; curr_state().display(tout()););
}

void trace_search(char const * msg) {
    lean_trace(name({"blast", "search"}), tout() << msg << "\n";);
}

void trace_action(char const * a) {
    lean_trace(name({"blast", "action"}), tout() << a << "\n";);
}

void trace_curr_state_if(action_result r) {
    if (!failed(r) && !solved(r))
        trace_curr_state();
}

io_state_stream const & operator<<(io_state_stream const & out, ppb const & e) {
    expr tmp = curr_state().to_kernel_expr(e.m_expr);
    out << tmp;
    return out;
}
}}