65 lines
2.3 KiB
C++
65 lines
2.3 KiB
C++
/*
|
|
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 <string>
|
|
#include "frontends/lean/module_parser.h"
|
|
#include "frontends/lean/parser.h"
|
|
#include "api/string.h"
|
|
#include "api/exception.h"
|
|
#include "api/decl.h"
|
|
#include "api/ios.h"
|
|
#include "api/lean_parser.h"
|
|
using namespace lean; // NOLINT
|
|
|
|
lean_bool lean_parse_file(lean_env env, lean_ios ios, char const * fname, lean_env * new_env, lean_ios * new_ios, lean_exception * ex) {
|
|
LEAN_TRY;
|
|
check_nonnull(env);
|
|
check_nonnull(ios);
|
|
check_nonnull(fname);
|
|
environment _env = to_env_ref(env);
|
|
io_state _ios = to_io_state_ref(ios);
|
|
parse_commands(_env, _ios, fname);
|
|
*new_env = of_env(new environment(_env));
|
|
*new_ios = of_io_state(new io_state(_ios));
|
|
LEAN_CATCH;
|
|
}
|
|
|
|
lean_bool lean_parse_commands(lean_env env, lean_ios ios, char const * str, lean_env * new_env, lean_ios * new_ios, lean_exception * ex) {
|
|
LEAN_TRY;
|
|
check_nonnull(env);
|
|
check_nonnull(ios);
|
|
check_nonnull(str);
|
|
char const * strname = "[string]";
|
|
environment _env = to_env_ref(env);
|
|
io_state _ios = to_io_state_ref(ios);
|
|
// bool use_exceptions = true; TODO(gabriel)
|
|
auto p = std::make_shared<module_parser>(strname, str, _env, mk_dummy_loader());
|
|
p->use_separate_tasks(false);
|
|
auto res = p->parse({});
|
|
while (res.m_next) res = get(res.m_next);
|
|
*new_env = of_env(new environment(res.m_snapshot_at_end->m_env));
|
|
*new_ios = of_io_state(new io_state(_ios, res.m_snapshot_at_end->m_options));
|
|
LEAN_CATCH;
|
|
}
|
|
|
|
lean_bool lean_parse_expr(lean_env env, lean_ios ios, char const * str, lean_expr * new_expr, lean_list_name * new_ps, lean_exception * ex) {
|
|
LEAN_TRY;
|
|
check_nonnull(env);
|
|
check_nonnull(ios);
|
|
check_nonnull(str);
|
|
std::istringstream in(str);
|
|
char const * strname = "[string]";
|
|
environment _env = to_env_ref(env);
|
|
io_state _ios = to_io_state_ref(ios);
|
|
bool use_exceptions = true;
|
|
parser p(_env, _ios, mk_dummy_loader(), in, strname, use_exceptions);
|
|
expr e = p.parse_expr();
|
|
expr _e; level_param_names _ps;
|
|
std::tie(_e, _ps) = p.elaborate(strname, list<expr>(), e);
|
|
*new_expr = of_expr(new expr(_e));
|
|
*new_ps = of_list_name(new list<name>(_ps));
|
|
LEAN_CATCH;
|
|
}
|