75 lines
1.6 KiB
C++
75 lines
1.6 KiB
C++
/* a rudimentary test runner for cubescript files */
|
|
|
|
#ifdef _MSC_VER
|
|
/* avoid silly complaints about fopen */
|
|
# define _CRT_SECURE_NO_WARNINGS 1
|
|
#endif
|
|
|
|
#include <cstdio>
|
|
#include <string>
|
|
#include <string_view>
|
|
|
|
#include <cubescript/cubescript.hh>
|
|
|
|
namespace cs = cubescript;
|
|
|
|
struct skip_test {};
|
|
|
|
static bool do_exec_file(cs::state &cs, char const *fname) {
|
|
FILE *f = std::fopen(fname, "rb");
|
|
if (!f) {
|
|
return false;
|
|
}
|
|
|
|
std::fseek(f, 0, SEEK_END);
|
|
auto len = std::ftell(f);
|
|
std::fseek(f, 0, SEEK_SET);
|
|
|
|
auto buf = std::make_unique<char[]>(len + 1);
|
|
if (!buf) {
|
|
std::fclose(f);
|
|
return false;
|
|
}
|
|
|
|
if (std::fread(buf.get(), 1, len, f) != std::size_t(len)) {
|
|
std::fclose(f);
|
|
return false;
|
|
}
|
|
|
|
buf[len] = '\0';
|
|
|
|
cs.compile(std::string_view{buf.get(), std::size_t(len)}, fname).call(cs);
|
|
return true;
|
|
}
|
|
|
|
int main(int argc, char **argv) {
|
|
if (argc != 2) {
|
|
std::fprintf(stderr, "error: incorrect number of arguments\n");
|
|
}
|
|
|
|
cs::state gcs;
|
|
cs::std_init_all(gcs);
|
|
|
|
gcs.new_command("echo", "...", [](auto &s, auto args, auto &) {
|
|
std::printf("%s\n", cs::concat_values(s, args, " ").data());
|
|
});
|
|
|
|
gcs.new_command("skip_test", "", [](auto &, auto, auto &) {
|
|
throw skip_test{};
|
|
});
|
|
|
|
try {
|
|
do_exec_file(gcs, argv[1]);
|
|
} catch (skip_test) {
|
|
return 77;
|
|
} catch (cs::error const &e) {
|
|
std::fprintf(stderr, "error: %s", e.what().data());
|
|
return 1;
|
|
} catch (...) {
|
|
std::fprintf(stderr, "error: unknown error");
|
|
return 1;
|
|
}
|
|
|
|
return 0;
|
|
}
|