lean2/src/frontends/lean/parser_config.cpp

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

Author: Leonardo de Moura
*/
#include <string>
#include "util/sstream.h"
#include "util/list_fn.h"
#include "library/scoped_ext.h"
#include "library/kernel_serializer.h"
#include "frontends/lean/parser_config.h"
#include "frontends/lean/builtin_exprs.h"
#include "frontends/lean/builtin_cmds.h"

namespace lean {
using notation::transition;
using notation::action;
using notation::action_kind;

notation_entry replace(notation_entry const & e, std::function<expr(expr const &)> const & f) {
    return notation_entry(e.m_is_nud,
                          map(e.m_transitions, [&](transition const & t) { return notation::replace(t, f); }),
                          f(e.m_expr),
                          e.m_overload);
}

struct token_state {
    token_table m_table;
    token_state() { m_table = mk_default_token_table(); }
};

struct token_config {
    typedef token_state  state;
    typedef token_entry  entry;
    static name * g_class_name;
    static std::string * g_key;

    static void add_entry(environment const &, io_state const &, state & s, entry const & e) {
        s.m_table = add_token(s.m_table, e.m_token.c_str(), e.m_prec);
    }
    static name const & get_class_name() {
        return *g_class_name;
    }
    static std::string const & get_serialization_key() {
        return *g_key;
    }
    static void  write_entry(serializer & s, entry const & e) {
        s << e.m_token.c_str() << e.m_prec;
    }
    static entry read_entry(deserializer & d) {
        std::string tk = d.read_string();
        unsigned prec  = d.read_unsigned();
        return entry(tk, prec);
    }
};
name * token_config::g_class_name = nullptr;
std::string * token_config::g_key = nullptr;

template class scoped_ext<token_config>;
typedef scoped_ext<token_config> token_ext;

environment add_token(environment const & env, token_entry const & e) {
    return token_ext::add_entry(env, get_dummy_ios(), e);
}

environment add_token(environment const & env, char const * val, unsigned prec) {
    return add_token(env, token_entry(val, prec));
}

token_table const & get_token_table(environment const & env) {
    return token_ext::get_state(env).m_table;
}

serializer & operator<<(serializer & s, action const & a) {
    s << static_cast<char>(a.kind());
    switch (a.kind()) {
    case action_kind::Skip: case action_kind::Binder: case action_kind::Binders:
        break;
    case action_kind::Expr:
        s << a.rbp();
        break;
    case action_kind::Exprs:
        s << a.get_sep() << a.get_rec() << a.get_initial() << a.is_fold_right() << a.rbp();
        if (auto t = a.get_terminator()) {
            s << true << *t;
        } else {
            s << false;
        }
        break;
    case action_kind::ScopedExpr:
        s << a.get_rec() << a.rbp() << a.use_lambda_abstraction();
        break;
    case action_kind::LuaExt:
        s << a.get_lua_fn();
        break;
    case action_kind::Ext:
        lean_unreachable();
    }
    return s;
}

action read_action(deserializer & d) {
    action_kind k = static_cast<action_kind>(d.read_char());
    unsigned rbp;
    switch (k) {
    case action_kind::Skip:
        return notation::mk_skip_action();
    case action_kind::Binder:
        return notation::mk_binder_action();
    case action_kind::Binders:
        return notation::mk_binders_action();
    case action_kind::Expr:
        d >> rbp;
        return notation::mk_expr_action(rbp);
    case action_kind::Exprs: {
        name sep; expr rec, ini; bool is_fold_right;
        d >> sep >> rec >> ini >> is_fold_right >> rbp;
        optional<name> terminator;
        if (d.read_bool())
            terminator = read_name(d);
        return notation::mk_exprs_action(sep, rec, ini, terminator, is_fold_right, rbp);
    }
    case action_kind::ScopedExpr: {
        expr rec; bool use_lambda_abstraction;
        d >> rec >> rbp >> use_lambda_abstraction;
        return notation::mk_scoped_expr_action(rec, rbp, use_lambda_abstraction);
    }
    case action_kind::LuaExt:
        return notation::mk_ext_lua_action(d.read_string().c_str());
    case action_kind::Ext:
        break;
    }
    lean_unreachable();
}

serializer & operator<<(serializer & s, transition const & t) {
    s << t.get_token() << t.get_action();
    return s;
}

transition read_transition(deserializer & d) {
    name   n = read_name(d);
    action a = read_action(d);
    return transition(n, a);
}

struct notation_state {
    parse_table      m_nud;
    parse_table      m_led;
    notation_state() {
        m_nud = get_builtin_nud_table();
        m_led = get_builtin_led_table();
    }
};

struct notation_config {
    typedef notation_state  state;
    typedef notation_entry  entry;
    static name * g_class_name;
    static std::string * g_key;

    static void add_entry(environment const &, io_state const &, state & s, entry const & e) {
        buffer<transition> ts;
        to_buffer(e.m_transitions, ts);
        if (e.m_is_nud)
            s.m_nud = s.m_nud.add(ts.size(), ts.data(), e.m_expr, e.m_overload);
        else
            s.m_led = s.m_led.add(ts.size(), ts.data(), e.m_expr, e.m_overload);
    }
    static name const & get_class_name() {
        return *g_class_name;
    }
    static std::string const & get_serialization_key() {
        return *g_key;
    }
    static void  write_entry(serializer & s, entry const & e) {
        s << e.m_is_nud << e.m_overload << e.m_expr;
        s << length(e.m_transitions);
        for (auto const & t : e.m_transitions)
            s << t;
    }
    static entry read_entry(deserializer & d) {
        bool is_nud, overload; expr e;
        d >> is_nud >> overload >> e;
        unsigned sz;
        d >> sz;
        buffer<transition> ts;
        for (unsigned i = 0; i < sz; i++)
            ts.push_back(read_transition(d));
        return entry(is_nud, to_list(ts.begin(), ts.end()), e, overload);
    }
};
name * notation_config::g_class_name = nullptr;
std::string * notation_config::g_key = nullptr;

template class scoped_ext<notation_config>;
typedef scoped_ext<notation_config> notation_ext;

environment add_notation(environment const & env, notation_entry const & e) {
    return notation_ext::add_entry(env, get_dummy_ios(), e);
}

environment add_nud_notation(environment const & env, unsigned num, notation::transition const * ts, expr const & a, bool overload) {
    return add_notation(env, notation_entry(true, to_list(ts, ts+num), a, overload));
}

environment add_led_notation(environment const & env, unsigned num, notation::transition const * ts, expr const & a, bool overload) {
    return add_notation(env, notation_entry(false, to_list(ts, ts+num), a, overload));
}

environment add_nud_notation(environment const & env, std::initializer_list<notation::transition> const & ts, expr const & a, bool overload) {
    return add_nud_notation(env, ts.size(), ts.begin(), a, overload);
}

environment add_led_notation(environment const & env, std::initializer_list<notation::transition> const & ts, expr const & a, bool overload) {
    return add_led_notation(env, ts.size(), ts.begin(), a, overload);
}

parse_table const & get_nud_table(environment const & env) {
    return notation_ext::get_state(env).m_nud;
}

parse_table const & get_led_table(environment const & env) {
    return notation_ext::get_state(env).m_led;
}

struct cmd_ext : public environment_extension {
    cmd_table m_cmds;
    cmd_ext() {
        m_cmds        = get_builtin_cmds();
    }
};

struct cmd_ext_reg {
    unsigned m_ext_id;
    cmd_ext_reg() { m_ext_id = environment::register_extension(std::make_shared<cmd_ext>()); }
};
static cmd_ext_reg * g_ext = nullptr;
static cmd_ext const & get_extension(environment const & env) {
    return static_cast<cmd_ext const &>(env.get_extension(g_ext->m_ext_id));
}
cmd_table const & get_cmd_table(environment const & env) {
    return get_extension(env).m_cmds;
}

struct mpz_notation_entry {
    mpz  m_num;
    expr m_expr;
    bool m_overload;
    mpz_notation_entry():m_overload(false) {}
    mpz_notation_entry(mpz const & n, expr const & e, bool o):m_num(n), m_expr(e), m_overload(o) {}
};

struct mpz_notation_state {
    typedef rb_map<mpz, list<expr>, mpz_cmp_fn> map;
    map m_map;
};

struct mpz_notation_config {
    typedef mpz_notation_state  state;
    typedef mpz_notation_entry  entry;
    static name * g_class_name;
    static std::string * g_key;

    static void add_entry(environment const &, io_state const &, state & s, entry const & e) {
        if (!e.m_overload) {
            s.m_map.insert(e.m_num, list<expr>(e.m_expr));
        } else if (auto it = s.m_map.find(e.m_num)) {
            list<expr> new_exprs = cons(e.m_expr, filter(*it, [&](expr const & n) { return n != e.m_expr; }));
            s.m_map.insert(e.m_num, new_exprs);
        } else {
            s.m_map.insert(e.m_num, list<expr>(e.m_expr));
        }
    }
    static name const & get_class_name() {
        return *g_class_name;
    }
    static std::string const & get_serialization_key() {
        return *g_key;
    }
    static void  write_entry(serializer & s, entry const & e) {
        s << e.m_num << e.m_expr << e.m_overload;
    }
    static entry read_entry(deserializer & d) {
        entry e;
        d >> e.m_num >> e.m_expr >> e.m_overload;
        return e;
    }
};

name * mpz_notation_config::g_class_name = nullptr;
std::string * mpz_notation_config::g_key = nullptr;

template class scoped_ext<mpz_notation_config>;
typedef scoped_ext<mpz_notation_config> mpz_notation_ext;

environment add_mpz_notation(environment const & env, mpz_notation_entry const & e) {
    return mpz_notation_ext::add_entry(env, get_dummy_ios(), e);
}

environment add_mpz_notation(environment const & env, mpz const & n, expr const & e, bool overload) {
    return add_mpz_notation(env, mpz_notation_entry(n, e, overload));
}

list<expr> get_mpz_notation(environment const & env, mpz const & n) {
    if (auto it = mpz_notation_ext::get_state(env).m_map.find(n)) {
        return *it;
    } else {
        return list<expr>();
    }
}

environment overwrite_notation(environment const & env, name const & n) {
    environment r = env;
    bool found = false;
    if (auto it = token_ext::get_entries(r, n)) {
        found = true;
        for (token_entry e : *it) {
            r = add_token(r, e);
        }
    }
    if (auto it = notation_ext::get_entries(env, n)) {
        found = true;
        for (notation_entry e : *it) {
            e.m_overload = false;
            r = add_notation(r, e);
        }
    }
    if (auto it = mpz_notation_ext::get_entries(env, n)) {
        found = true;
        for (mpz_notation_entry e : *it) {
            e.m_overload = false;
            r = add_mpz_notation(r, e);
        }
    }
    if (!found)
        throw exception(sstream() << "unknown namespace '" << n << "'");
    return r;
}

void initialize_parser_config() {
    token_config::g_class_name = new name("notation");
    token_config::g_key        = new std::string("tk");
    token_ext::initialize();
    notation_config::g_class_name = new name("notation");
    notation_config::g_key        = new std::string("nota");
    notation_ext::initialize();
    g_ext = new cmd_ext_reg();
    mpz_notation_config::g_class_name = new name("notation");
    mpz_notation_config::g_key        = new std::string("numnota");
    mpz_notation_ext::initialize();
}
void finalize_parser_config() {
    mpz_notation_ext::finalize();
    delete mpz_notation_config::g_key;
    delete mpz_notation_config::g_class_name;
    delete g_ext;
    notation_ext::finalize();
    delete notation_config::g_key;
    delete notation_config::g_class_name;
    token_ext::finalize();
    delete token_config::g_key;
    delete token_config::g_class_name;
}
}