64 lines
1.4 KiB
C++
64 lines
1.4 KiB
C++
/*
|
|
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/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 {
|
|
LEAN_THREAD_VALUE(bool, g_trace, false);
|
|
|
|
bool is_trace_enabled() {
|
|
return g_trace;
|
|
}
|
|
|
|
void trace_curr_state() {
|
|
if (g_trace) {
|
|
auto out = diagnostic(env(), ios());
|
|
out << "state [" << curr_state().get_proof_depth() << "], #choice: " << get_num_choice_points() << "\n";
|
|
display_curr_state();
|
|
}
|
|
}
|
|
|
|
void trace(char const * msg) {
|
|
if (g_trace) {
|
|
ios().get_diagnostic_channel() << msg << "\n\n";
|
|
}
|
|
}
|
|
|
|
void trace_action(char const * a) {
|
|
if (g_trace) {
|
|
ios().get_diagnostic_channel() << "== action: " << a << " ==>\n\n";
|
|
}
|
|
}
|
|
|
|
void trace_curr_state_if(action_result r) {
|
|
if (g_trace && !failed(r))
|
|
trace_curr_state();
|
|
}
|
|
|
|
scope_trace::scope_trace(bool enable):
|
|
m_old(g_trace) {
|
|
g_trace = enable;
|
|
}
|
|
|
|
scope_trace::scope_trace():
|
|
scope_trace(get_config().m_trace) {
|
|
}
|
|
|
|
scope_trace::~scope_trace() {
|
|
g_trace = m_old;
|
|
}
|
|
|
|
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;
|
|
}
|
|
}}
|