2023-09-11 10:14:01 +00:00
|
|
|
#include "../src/Loader.hpp"
|
2023-09-11 11:46:41 +00:00
|
|
|
#include "src/Logger.hpp"
|
|
|
|
|
|
|
|
GRINO_ERROR(assertion_error);
|
2023-09-11 10:14:01 +00:00
|
|
|
|
2023-09-11 12:05:10 +00:00
|
|
|
extern "C" void lib_assert(grino::Loader& loader)
|
|
|
|
{
|
|
|
|
loader.add_native("assert", [](auto args){
|
|
|
|
|
|
|
|
for (auto value: args)
|
|
|
|
{
|
|
|
|
if (!value->as_bool())
|
|
|
|
{
|
|
|
|
grino::Logger logger;
|
|
|
|
logger.log<assertion_error>(grino::LOG_ASSERT,
|
|
|
|
value->loc(),
|
|
|
|
"assertion failed");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return grino::Value::make_bool(args.front()->loc(), true);
|
|
|
|
});
|
|
|
|
|
|
|
|
loader.add_native("assert-eq?", [](auto args){
|
|
|
|
auto lhs = args.front();
|
|
|
|
|
|
|
|
for (size_t i=1; i<args.size(); i++)
|
|
|
|
{
|
|
|
|
auto rhs = args[i];
|
|
|
|
|
|
|
|
if (!lhs->equals(*rhs))
|
|
|
|
{
|
|
|
|
grino::Logger logger;
|
|
|
|
std::stringstream ss;
|
|
|
|
|
|
|
|
ss << "'" << lhs->string() << "' is not equals to '"
|
|
|
|
<< rhs->string() << "'";
|
|
|
|
|
|
|
|
logger.log<assertion_error>(grino::LOG_ASSERT,
|
|
|
|
lhs->loc(),
|
|
|
|
ss.str());
|
|
|
|
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return grino::Value::make_bool(args.front()->loc(), true);
|
|
|
|
});
|
|
|
|
}
|
|
|
|
|
2023-09-11 10:14:01 +00:00
|
|
|
extern "C" void lib(grino::Loader& loader)
|
|
|
|
{
|
2023-09-11 12:05:10 +00:00
|
|
|
lib_assert(loader);
|
|
|
|
|
2023-09-11 10:14:01 +00:00
|
|
|
loader.add_native("dump", [](auto args){
|
|
|
|
std::string sep;
|
|
|
|
std::stringstream ss;
|
|
|
|
|
|
|
|
for (auto arg: args)
|
|
|
|
{
|
|
|
|
ss << sep << arg->string();
|
|
|
|
sep = " ";
|
|
|
|
}
|
|
|
|
|
|
|
|
std::cout << ss.str() << std::endl;
|
|
|
|
|
2023-09-11 11:46:41 +00:00
|
|
|
return grino::Value::make_nil(args.back()->loc());
|
|
|
|
});
|
|
|
|
|
2023-09-11 12:05:10 +00:00
|
|
|
loader.add_native("eq?", [](auto args){
|
|
|
|
auto lhs = args.front();
|
2023-09-11 11:46:41 +00:00
|
|
|
|
2023-09-11 12:05:10 +00:00
|
|
|
for (size_t i=1; i<args.size(); i++)
|
2023-09-11 11:46:41 +00:00
|
|
|
{
|
2023-09-11 12:05:10 +00:00
|
|
|
auto rhs = args[i];
|
|
|
|
|
|
|
|
if (!lhs->equals(*rhs))
|
2023-09-11 11:46:41 +00:00
|
|
|
{
|
2023-09-11 12:05:10 +00:00
|
|
|
return grino::Value::make_bool(rhs->loc(), false);
|
2023-09-11 11:46:41 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return grino::Value::make_bool(args.front()->loc(), true);
|
2023-09-11 10:14:01 +00:00
|
|
|
});
|
|
|
|
}
|