c4c548dc5d
Instead of having m_interrupted flags in several components. We use a thread_local global variable.
The new approach is much simpler to get right since there is no risk of "forgetting" to propagate
the set_interrupt method to sub-components.
The plan is to support set_interrupt methods and m_interrupted flags only in tactic objects.
We need to support them in tactics and tacticals because we want to implement combinators/tacticals such as (try_for T M) that fails if tactic T does not finish in M ms.
For example, consider the tactic:
try-for (T1 ORELSE T2) 5
It tries the tactic (T1 ORELSE T2) for 5ms.
Thus, if T1 does not finish after 5ms an interrupt request is sent, and T1 is interrupted.
Now, if you do not have a m_interrupted flag marking each tactic, the ORELSE combinator will try T2.
The set_interrupt method for ORELSE tactical should turn on the m_interrupted flag.
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
40 lines
1.3 KiB
C++
40 lines
1.3 KiB
C++
/*
|
|
Copyright (c) 2013 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
Author: Leonardo de Moura
|
|
*/
|
|
#pragma once
|
|
#include <memory>
|
|
#include <utility>
|
|
#include "util/list.h"
|
|
#include "kernel/environment.h"
|
|
#include "kernel/context.h"
|
|
#include "kernel/unification_constraint.h"
|
|
|
|
namespace lean {
|
|
class elaborator_plugin {
|
|
public:
|
|
virtual ~elaborator_plugin() {}
|
|
|
|
/** \brief The plugin produces a "result" object that can generates the sequence of possible solutions. */
|
|
class result {
|
|
public:
|
|
virtual ~result() {}
|
|
/**
|
|
\brief Return the next possible solution. An elaborator_exception is throw in case of failure.
|
|
|
|
Each result is represented by a pair: the new metavariable
|
|
environment and a new list of constraints to be solved.
|
|
*/
|
|
virtual std::pair<metavar_env, list<unification_constraint>> next(justification const & assumption) = 0;
|
|
/** \brief Interrupt the computation for the next solution. */
|
|
};
|
|
|
|
/**
|
|
\brief Ask plugin to solve the constraint \c cnstr in the given
|
|
environment and metavar environment.
|
|
*/
|
|
virtual std::unique_ptr<result> operator()(environment const & env, metavar_env const & menv, unification_constraint const & cnstr) = 0;
|
|
};
|
|
}
|