184 lines
7.3 KiB
C++
184 lines
7.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
|
|
*/
|
|
#include <utility>
|
|
#include <string>
|
|
#include "util/script_exception.h"
|
|
#include "util/name_set.h"
|
|
#include "kernel/kernel_exception.h"
|
|
#include "kernel/for_each_fn.h"
|
|
#include "library/io_state_stream.h"
|
|
#include "library/unifier.h"
|
|
#include "library/parser_nested_exception.h"
|
|
#include "library/error_handling/error_handling.h"
|
|
|
|
namespace lean {
|
|
flycheck_scope::flycheck_scope(io_state_stream const & ios, char const * kind):
|
|
m_ios(ios),
|
|
m_flycheck(m_ios.get_options().get_bool("flycheck", false)) {
|
|
if (m_flycheck) m_ios << "FLYCHECK_BEGIN " << kind << endl;
|
|
}
|
|
flycheck_scope::~flycheck_scope() {
|
|
if (m_flycheck) m_ios << "FLYCHECK_END" << endl;
|
|
}
|
|
|
|
flyinfo_scope::flyinfo_scope(io_state_stream const & ios):
|
|
m_ios(ios),
|
|
m_flyinfo(m_ios.get_options().get_bool("flyinfo", false)) {
|
|
if (m_flyinfo) m_ios << "FLYCHECK_BEGIN INFO" << endl;
|
|
}
|
|
flyinfo_scope::~flyinfo_scope() {
|
|
if (m_flyinfo) m_ios << "FLYCHECK_END" << endl;
|
|
}
|
|
|
|
void display_pos(io_state_stream const & ios, char const * strm_name, unsigned line, unsigned pos) {
|
|
ios << strm_name << ":";
|
|
if (line != static_cast<unsigned>(-1))
|
|
ios << line << ":";
|
|
if (pos != static_cast<unsigned>(-1))
|
|
ios << pos << ":";
|
|
}
|
|
|
|
void display_error_pos(io_state_stream const & ios, char const * strm_name, unsigned line, unsigned pos) {
|
|
display_pos(ios, strm_name, line, pos);
|
|
ios << " error:";
|
|
}
|
|
|
|
void display_warning_pos(io_state_stream const & ios, char const * strm_name, unsigned line, unsigned pos) {
|
|
display_pos(ios, strm_name, line, pos);
|
|
ios << " warning:";
|
|
}
|
|
|
|
void display_error_pos(io_state_stream const & ios, pos_info_provider const * p, expr const & e) {
|
|
if (p) {
|
|
auto pos = p->get_pos_info_or_some(e);
|
|
display_error_pos(ios, p->get_file_name(), pos.first, pos.second);
|
|
} else {
|
|
ios << "error:";
|
|
}
|
|
}
|
|
|
|
void display_error_pos(io_state_stream const & ios, pos_info_provider const * p, optional<expr> const & e) {
|
|
if (e) {
|
|
display_error_pos(ios, p, *e);
|
|
} else if (p) {
|
|
auto pos = p->get_some_pos();
|
|
display_error_pos(ios, p->get_file_name(), pos.first, pos.second);
|
|
} else {
|
|
ios << "error:";
|
|
}
|
|
}
|
|
|
|
void display_error(io_state_stream const & ios, pos_info_provider const * p, exception const & ex);
|
|
|
|
static void display_error(io_state_stream const & ios, pos_info_provider const * p, kernel_exception const & ex) {
|
|
display_error_pos(ios, p, ex.get_main_expr());
|
|
ios << " " << ex << endl;
|
|
}
|
|
|
|
static void display_error(io_state_stream const & ios, pos_info_provider const * p, unifier_exception const & ex) {
|
|
formatter fmt = ios.get_formatter();
|
|
options opts = ios.get_options();
|
|
auto j = ex.get_justification();
|
|
display_error_pos(ios, p, j.get_main_expr());
|
|
ios << " " << mk_pair(j.pp(fmt, p, ex.get_substitution()), opts) << endl;
|
|
}
|
|
|
|
// struct delta_pos_info_provider : public pos_info_provider {
|
|
// unsigned m_delta;
|
|
// std::string m_file_name;
|
|
// pos_info_provider const & m_provider;
|
|
// delta_pos_info_provider(unsigned d, char const * fname, pos_info_provider const & p):m_delta(d), m_file_name(fname), m_provider(p) {}
|
|
// virtual std::pair<unsigned, unsigned> get_pos_info(expr const & e) const {
|
|
// auto r = m_provider.get_pos_info(e);
|
|
// return mk_pair(r.first + m_delta, r.second);
|
|
// }
|
|
// virtual char const * get_file_name() const { return m_file_name.c_str(); }
|
|
// virtual std::pair<unsigned, unsigned> get_some_pos() const {
|
|
// auto r = m_provider.get_some_pos();
|
|
// return mk_pair(r.first + m_delta, r.second);
|
|
// }
|
|
// };
|
|
|
|
|
|
static void display_error(io_state_stream const & ios, pos_info_provider const * p, script_exception const & ex) {
|
|
if (p) {
|
|
char const * msg = ex.get_msg();
|
|
char const * space = msg && *msg == ' ' ? "" : " ";
|
|
switch (ex.get_source()) {
|
|
case script_exception::source::String:
|
|
display_error_pos(ios, p->get_file_name(), ex.get_line() + p->get_some_pos().first - 1, static_cast<unsigned>(-1));
|
|
ios << " executing script," << space << msg << endl;
|
|
break;
|
|
case script_exception::source::File:
|
|
display_error_pos(ios, p->get_file_name(), p->get_some_pos().first, p->get_some_pos().second);
|
|
ios << " executing external script (" << ex.get_file_name() << ":" << ex.get_line() << ")," << space << msg << endl;
|
|
break;
|
|
case script_exception::source::Unknown:
|
|
display_error_pos(ios, p->get_file_name(), p->get_some_pos().first, p->get_some_pos().second);
|
|
ios << " executing script, exact error position is not available, " << ex.what() << endl;
|
|
break;
|
|
}
|
|
} else {
|
|
ios << ex.what() << endl;
|
|
}
|
|
}
|
|
|
|
static void display_error(io_state_stream const & ios, pos_info_provider const * p, script_nested_exception const & ex) {
|
|
switch (ex.get_source()) {
|
|
case script_exception::source::String:
|
|
if (p) {
|
|
display_error_pos(ios, p->get_file_name(), ex.get_line() + p->get_some_pos().first - 1, static_cast<unsigned>(-1));
|
|
ios << " executing script" << endl;
|
|
}
|
|
display_error(ios, nullptr, ex.get_exception());
|
|
break;
|
|
case script_exception::source::File:
|
|
if (p) {
|
|
display_error_pos(ios, p->get_file_name(), p->get_some_pos().first, p->get_some_pos().second);
|
|
ios << " executing external script (" << ex.get_file_name() << ":" << ex.get_line() << ")" << endl;
|
|
} else {
|
|
display_error_pos(ios, ex.get_file_name(), ex.get_line(), -1);
|
|
ios << " executing script" << endl;
|
|
}
|
|
display_error(ios, nullptr, ex.get_exception());
|
|
break;
|
|
case script_exception::source::Unknown:
|
|
display_error(ios, nullptr, ex.get_exception());
|
|
break;
|
|
}
|
|
}
|
|
|
|
// static void display_error(io_state_stream const & ios, pos_info_provider const *, parser_nested_exception const & ex) {
|
|
// display_error(ios, &(ex.get_provider()), ex.get_exception());
|
|
// }
|
|
|
|
// static void display_error(io_state_stream const & ios, pos_info_provider const *, parser_exception const & ex) {
|
|
// ios << ex.what() << endl;
|
|
// }
|
|
|
|
void display_error(io_state_stream const & ios, pos_info_provider const * p, exception const & ex) {
|
|
flycheck_error err(ios);
|
|
if (auto k_ex = dynamic_cast<kernel_exception const *>(&ex)) {
|
|
display_error(ios, p, *k_ex);
|
|
} else if (auto e_ex = dynamic_cast<unifier_exception const *>(&ex)) {
|
|
display_error(ios, p, *e_ex);
|
|
} else if (auto ls_ex = dynamic_cast<script_nested_exception const *>(&ex)) {
|
|
display_error(ios, p, *ls_ex);
|
|
} else if (auto s_ex = dynamic_cast<script_exception const *>(&ex)) {
|
|
display_error(ios, p, *s_ex);
|
|
// } else if (auto n_ex = dynamic_cast<parser_nested_exception const *>(&ex)) {
|
|
// display_error(ios, p, *n_ex);
|
|
// } else if (auto n_ex = dynamic_cast<parser_exception const *>(&ex)) {
|
|
// display_error(ios, p, *n_ex);
|
|
} else if (p) {
|
|
display_error_pos(ios, p->get_file_name(), p->get_some_pos().first, p->get_some_pos().second);
|
|
ios << " " << ex.what() << endl;
|
|
} else {
|
|
ios << "error: " << ex.what() << endl;
|
|
}
|
|
}
|
|
}
|