lean2/src/library/blast/options.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 "util/sexpr/option_declarations.h"
#include "library/blast/options.h"
#include "library/blast/forward/pattern.h"

#ifndef LEAN_DEFAULT_BLAST_MAX_DEPTH
#define LEAN_DEFAULT_BLAST_MAX_DEPTH 128
#endif
#ifndef LEAN_DEFAULT_BLAST_INIT_DEPTH
#define LEAN_DEFAULT_BLAST_INIT_DEPTH 1
#endif
#ifndef LEAN_DEFAULT_BLAST_INC_DEPTH
#define LEAN_DEFAULT_BLAST_INC_DEPTH 5
#endif
#ifndef LEAN_DEFAULT_BLAST_TRACE
#define LEAN_DEFAULT_BLAST_TRACE false
#endif
#ifndef LEAN_DEFAULT_BLAST_SHOW_FAILURE
#define LEAN_DEFAULT_BLAST_SHOW_FAILURE true
#endif
#ifndef LEAN_DEFAULT_BLAST_SUBST
#define LEAN_DEFAULT_BLAST_SUBST true
#endif
#ifndef LEAN_DEFAULT_BLAST_SIMP
#define LEAN_DEFAULT_BLAST_SIMP true
#endif
#ifndef LEAN_DEFAULT_BLAST_CC
#define LEAN_DEFAULT_BLAST_CC true
#endif
#ifndef LEAN_DEFAULT_BLAST_TRACE_CC
#define LEAN_DEFAULT_BLAST_TRACE_CC false
#endif
#ifndef LEAN_DEFAULT_BLAST_RECURSOR
#define LEAN_DEFAULT_BLAST_RECURSOR true
#endif
#ifndef LEAN_DEFAULT_BLAST_EMATCH
#define LEAN_DEFAULT_BLAST_EMATCH false
#endif
#ifndef LEAN_DEFAULT_BLAST_BACKWARD
#define LEAN_DEFAULT_BLAST_BACKWARD true
#endif


namespace lean {
namespace blast {
/* Options */
static name * g_blast_max_depth    = nullptr;
static name * g_blast_init_depth   = nullptr;
static name * g_blast_inc_depth    = nullptr;
static name * g_blast_trace        = nullptr;
static name * g_blast_subst        = nullptr;
static name * g_blast_simp         = nullptr;
static name * g_blast_cc           = nullptr;
static name * g_blast_trace_cc     = nullptr;
static name * g_blast_recursor     = nullptr;
static name * g_blast_ematch       = nullptr;
static name * g_blast_backward     = nullptr;
static name * g_blast_show_failure = nullptr;

unsigned get_blast_max_depth(options const & o) {
    return o.get_unsigned(*g_blast_max_depth, LEAN_DEFAULT_BLAST_MAX_DEPTH);
}
unsigned get_blast_init_depth(options const & o) {
    return o.get_unsigned(*g_blast_init_depth, LEAN_DEFAULT_BLAST_INIT_DEPTH);
}
unsigned get_blast_inc_depth(options const & o) {
    return o.get_unsigned(*g_blast_inc_depth, LEAN_DEFAULT_BLAST_INC_DEPTH);
}
bool get_blast_trace(options const & o) {
    return o.get_bool(*g_blast_trace, LEAN_DEFAULT_BLAST_TRACE);
}
bool get_blast_subst(options const & o) {
    return o.get_bool(*g_blast_subst, LEAN_DEFAULT_BLAST_SUBST);
}
bool get_blast_simp(options const & o) {
    return o.get_bool(*g_blast_simp, LEAN_DEFAULT_BLAST_SIMP);
}
bool get_blast_cc(options const & o) {
    return o.get_bool(*g_blast_cc, LEAN_DEFAULT_BLAST_CC);
}
bool get_blast_trace_cc(options const & o) {
    return o.get_bool(*g_blast_trace_cc, LEAN_DEFAULT_BLAST_TRACE_CC);
}
bool get_blast_recursor(options const & o) {
    return o.get_bool(*g_blast_recursor, LEAN_DEFAULT_BLAST_RECURSOR);
}
bool get_blast_ematch(options const & o) {
    return o.get_bool(*g_blast_ematch, LEAN_DEFAULT_BLAST_EMATCH);
}
bool get_blast_backward(options const & o) {
    return o.get_bool(*g_blast_backward, LEAN_DEFAULT_BLAST_BACKWARD);
}
bool get_blast_show_failure(options const & o) {
    return o.get_bool(*g_blast_show_failure, LEAN_DEFAULT_BLAST_SHOW_FAILURE);
}

config::config(options const & o) {
    m_max_depth         = get_blast_max_depth(o);
    m_init_depth        = get_blast_init_depth(o);
    m_inc_depth         = get_blast_inc_depth(o);
    m_trace             = get_blast_trace(o);
    m_subst             = get_blast_subst(o);
    m_simp              = get_blast_simp(o);
    m_cc                = get_blast_cc(o);
    m_trace_cc          = get_blast_trace_cc(o);
    m_recursor          = get_blast_recursor(o);
    m_ematch            = get_blast_ematch(o);
    m_backward          = get_blast_backward(o);
    m_show_failure      = get_blast_show_failure(o);
    m_pattern_max_steps = get_pattern_max_steps(o);
}

LEAN_THREAD_PTR(config, g_config);

scope_config::scope_config(options const & o):
    m_old(g_config),
    m_config(o) {
    g_config = &m_config;
}

scope_config::~scope_config() {
    g_config = m_old;
}

config & get_config() {
    lean_assert(g_config);
    return *g_config;
}

void initialize_options() {
    g_blast_max_depth    = new name{"blast", "max_depth"};
    g_blast_init_depth   = new name{"blast", "init_depth"};
    g_blast_inc_depth    = new name{"blast", "inc_depth"};
    g_blast_trace        = new name{"blast", "trace"};
    g_blast_subst        = new name{"blast", "subst"};
    g_blast_simp         = new name{"blast", "simp"};
    g_blast_cc           = new name{"blast", "cc"};
    g_blast_trace_cc     = new name{"blast", "trace_cc"};
    g_blast_recursor     = new name{"blast", "recursor"};
    g_blast_ematch       = new name{"blast", "ematch"};
    g_blast_backward     = new name{"blast", "backward"};
    g_blast_show_failure = new name{"blast", "show_failure"};

    register_unsigned_option(*blast::g_blast_max_depth, LEAN_DEFAULT_BLAST_MAX_DEPTH,
                             "(blast) max search depth for blast");
    register_unsigned_option(*blast::g_blast_init_depth, LEAN_DEFAULT_BLAST_INIT_DEPTH,
                             "(blast) initial search depth for blast (remark: blast uses iteration deepening)");
    register_unsigned_option(*blast::g_blast_inc_depth, LEAN_DEFAULT_BLAST_INC_DEPTH,
                             "(blast) search depth increment for blast (remark: blast uses iteration deepening)");
    register_bool_option(*blast::g_blast_trace, LEAN_DEFAULT_BLAST_TRACE,
                         "(blast) trace");
    register_bool_option(*blast::g_blast_subst, LEAN_DEFAULT_BLAST_SUBST,
                         "(blast) enable subst action");
    register_bool_option(*blast::g_blast_simp, LEAN_DEFAULT_BLAST_SIMP,
                         "(blast) enable simplier actions");
    register_bool_option(*blast::g_blast_cc, LEAN_DEFAULT_BLAST_CC,
                         "(blast) enable congruence closure");
    register_bool_option(*blast::g_blast_trace_cc, LEAN_DEFAULT_BLAST_TRACE_CC,
                         "(blast) (for debugging purposes) trace congruence closure");
    register_bool_option(*blast::g_blast_recursor, LEAN_DEFAULT_BLAST_RECURSOR,
                         "(blast) enable recursor action");
    register_bool_option(*blast::g_blast_ematch, LEAN_DEFAULT_BLAST_EMATCH,
                         "(blast) enable heuristic instantiation based on e-matching");
    register_bool_option(*blast::g_blast_ematch, LEAN_DEFAULT_BLAST_BACKWARD,
                         "(blast) enable backward chaining");
    register_bool_option(*blast::g_blast_show_failure, LEAN_DEFAULT_BLAST_SHOW_FAILURE,
                         "(blast) show failure state");
}
void finalize_options() {
    delete g_blast_max_depth;
    delete g_blast_init_depth;
    delete g_blast_inc_depth;
    delete g_blast_trace;
    delete g_blast_subst;
    delete g_blast_simp;
    delete g_blast_cc;
    delete g_blast_trace_cc;
    delete g_blast_recursor;
    delete g_blast_ematch;
    delete g_blast_backward;
    delete g_blast_show_failure;
}
}}