lean2/src/library/token_set.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 "library/token_set.h"

namespace lean {
token_set add_command_token(token_set const & s, char const * token) {
    return insert(s, token, token_info(token));
}
token_set add_token(token_set const & s, char const * token, unsigned prec) {
    return insert(s, token, token_info(token, prec));
}
token_set add_token(token_set const & s, char const * token, char const * val, unsigned prec) {
    return insert(s, token, token_info(val, prec));
}
token_set merge(token_set const & s1, token_set const & s2) {
    return merge(s1, s2);
}
token_set const * find(token_set const & s, char c) {
    return s.find(c);
}
token_info const * value_of(token_set const & s) {
    return s.value();
}
static char const * g_lambda_unicode = "\u03BB";
static char const * g_pi_unicode     = "\u03A0";
static char const * g_forall_unicode = "\u2200";
static char const * g_arrow_unicode  = "\u2192";

// Auxiliary class for creating the initial token set
class init_token_set_fn {
public:
    token_set m_token_set;
    init_token_set_fn() {
        char const * builtin[] = {"fun", "forall", "let", "in", "have", "show", "by", "from", "(", ")", "{", "}",
                                  ".{", "Type", "...", ",", ".", ":", "calc", ":=", "--", "(*", "(--", "->", 0};
        char const ** it = builtin;
        while (*it) {
            m_token_set = add_token(m_token_set, *it);
            it++;
        }
        m_token_set = add_token(m_token_set, g_lambda_unicode, "fun");
        m_token_set = add_token(m_token_set, g_forall_unicode, "forall");
        m_token_set = add_token(m_token_set, g_pi_unicode,     "forall");
        m_token_set = add_token(m_token_set, g_arrow_unicode,  "->");
    }
};
static init_token_set_fn g_init;
token_set mk_default_token_set() { return g_init.m_token_set; }
}