79e8af4f6e
Use OOP to avoid code duplication for eval error tracking. This results in much more robust stack error reporting and 400 LOC less.
98 lines
2.3 KiB
C++
98 lines
2.3 KiB
C++
|
|
#include <chaiscript/chaiscript.hpp>
|
|
#include <chaiscript/utility/utility.hpp>
|
|
#include <string>
|
|
|
|
|
|
// MSVC doesn't like that we are using C++ return types from our C declared module
|
|
// but this is the best way to do it for cross platform compatibility
|
|
#ifdef BOOST_MSVC
|
|
#pragma warning(push)
|
|
#pragma warning(disable : 4190)
|
|
#endif
|
|
|
|
|
|
bool has_parse_tree(const chaiscript::Const_Proxy_Function &t_pf)
|
|
{
|
|
boost::shared_ptr<const chaiscript::dispatch::Dynamic_Proxy_Function> pf
|
|
= boost::dynamic_pointer_cast<const chaiscript::dispatch::Dynamic_Proxy_Function>(t_pf);
|
|
if (pf)
|
|
{
|
|
return pf->get_parse_tree();
|
|
} else {
|
|
return false;
|
|
}
|
|
}
|
|
|
|
chaiscript::AST_NodePtr get_parse_tree(const chaiscript::Const_Proxy_Function &t_pf)
|
|
{
|
|
boost::shared_ptr<const chaiscript::dispatch::Dynamic_Proxy_Function> pf
|
|
= boost::dynamic_pointer_cast<const chaiscript::dispatch::Dynamic_Proxy_Function>(t_pf);
|
|
if (pf)
|
|
{
|
|
if (pf->get_parse_tree())
|
|
{
|
|
return pf->get_parse_tree();
|
|
} else {
|
|
throw std::runtime_error("Function does not have a parse tree");
|
|
}
|
|
} else {
|
|
throw std::runtime_error("Function does not have a parse tree");
|
|
}
|
|
}
|
|
|
|
|
|
CHAISCRIPT_MODULE_EXPORT chaiscript::ModulePtr create_chaiscript_module_reflection()
|
|
{
|
|
chaiscript::ModulePtr m(new chaiscript::Module());
|
|
|
|
m->add(chaiscript::fun(&has_parse_tree), "has_parse_tree");
|
|
m->add(chaiscript::fun(&get_parse_tree), "get_parse_tree");
|
|
|
|
|
|
chaiscript::bootstrap::standard_library::vector_type<std::vector<boost::shared_ptr<chaiscript::AST_Node> > >("AST_NodeVector", m);
|
|
|
|
CHAISCRIPT_CLASS( m,
|
|
chaiscript::exception::eval_error,
|
|
,
|
|
((reason))
|
|
((call_stack))
|
|
);
|
|
|
|
CHAISCRIPT_CLASS( m,
|
|
chaiscript::File_Position,
|
|
(chaiscript::File_Position())
|
|
(chaiscript::File_Position(int,int)),
|
|
((line))
|
|
((column))
|
|
);
|
|
|
|
CHAISCRIPT_CLASS( m,
|
|
chaiscript::AST_Node,
|
|
,
|
|
((text))
|
|
((identifier))
|
|
((filename))
|
|
((start))
|
|
((end))
|
|
((internal_to_string))
|
|
((children))
|
|
((replace_child))
|
|
);
|
|
|
|
CHAISCRIPT_CLASS( m,
|
|
chaiscript::parser::ChaiScript_Parser,
|
|
(chaiscript::parser::ChaiScript_Parser ()),
|
|
((parse))
|
|
((ast))
|
|
);
|
|
|
|
|
|
return m;
|
|
}
|
|
|
|
|
|
#ifdef BOOST_MSVC
|
|
#pragma warning(pop)
|
|
#endif
|