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>
47 lines
1.4 KiB
C++
47 lines
1.4 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
|
|
*/
|
|
#include <iostream>
|
|
#include <sstream>
|
|
#include "util/test.h"
|
|
#include "kernel/environment.h"
|
|
#include "kernel/abstract.h"
|
|
#include "kernel/formatter.h"
|
|
using namespace lean;
|
|
|
|
static void check(format const & f, char const * expected) {
|
|
std::ostringstream strm;
|
|
strm << f;
|
|
std::cout << strm.str() << "\n";
|
|
lean_assert_eq(strm.str(), expected);
|
|
}
|
|
|
|
static void tst1() {
|
|
environment env;
|
|
env.add_var("N", Type());
|
|
formatter fmt = mk_simple_formatter();
|
|
check(fmt(env), "Variable N : Type\n");
|
|
expr f = Const("f");
|
|
expr a = Const("a");
|
|
expr x = Const("x");
|
|
expr y = Const("y");
|
|
expr N = Const("N");
|
|
expr F = Fun({x, Pi({x, N}, x >> x)}, Let({y, f(a)}, f(Eq(x, f(y, a)))));
|
|
check(fmt(F), "fun x : (Pi x : N, (x -> x)), (let y := f a in (f (x == (f y a))))");
|
|
check(fmt(env.get_object("N")), "Variable N : Type");
|
|
context ctx;
|
|
ctx = extend(ctx, "x", f(a));
|
|
ctx = extend(ctx, "y", f(Var(0), N >> N));
|
|
ctx = extend(ctx, "z", N, Eq(Var(0), Var(1)));
|
|
check(fmt(ctx), "[x : f a; y : f x (N -> N); z : N := y == x]");
|
|
check(fmt(ctx, f(Var(0), Var(2))), "f z x");
|
|
check(fmt(ctx, f(Var(0), Var(2)), true), "[x : f a; y : f x (N -> N); z : N := y == x] |- f z x");
|
|
}
|
|
|
|
int main() {
|
|
tst1();
|
|
return has_violations() ? 1 : 0;
|
|
}
|