130 lines
3.5 KiB
C++
130 lines
3.5 KiB
C++
#include "coders/commons.hpp"
|
|
#include "engine/Engine.hpp"
|
|
#include "logic/CommandsInterpreter.hpp"
|
|
#include "api_lua.hpp"
|
|
|
|
using namespace scripting;
|
|
|
|
static int l_add_command(lua::State* L) {
|
|
if (!lua::isfunction(L, 3)) {
|
|
throw std::runtime_error("invalid callback");
|
|
}
|
|
auto scheme = lua::require_string(L, 1);
|
|
auto description = lua::require_string(L, 2);
|
|
lua::pushvalue(L, 3);
|
|
auto func = lua::create_lambda(L);
|
|
try {
|
|
engine->getCmd().getRepository()->add(
|
|
scheme,
|
|
description,
|
|
[func](auto, auto args, auto kwargs) {
|
|
return func({args, kwargs});
|
|
}
|
|
);
|
|
} catch (const parsing_error& err) {
|
|
throw std::runtime_error(
|
|
("command scheme error:\n" + err.errorLog()).c_str()
|
|
);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int l_execute(lua::State* L) {
|
|
auto prompt = lua::require_string(L, 1);
|
|
try {
|
|
auto result = engine->getCmd().execute(prompt);
|
|
lua::pushvalue(L, result);
|
|
return 1;
|
|
} catch (const parsing_error& err) {
|
|
if (std::string(err.what()).find("unknown command ") == 0) {
|
|
throw;
|
|
}
|
|
throw std::runtime_error(err.errorLog());
|
|
}
|
|
}
|
|
|
|
static int l_get(lua::State* L) {
|
|
auto name = lua::require_string(L, 1);
|
|
return lua::pushvalue(L, engine->getCmd()[name]);
|
|
}
|
|
|
|
static int l_set(lua::State* L) {
|
|
auto name = lua::require_string(L, 1);
|
|
auto value = lua::tovalue(L, 2);
|
|
engine->getCmd()[name] = value;
|
|
return 0;
|
|
}
|
|
|
|
static int l_get_commands_list(lua::State* L) {
|
|
auto repo = engine->getCmd().getRepository();
|
|
const auto& commands = repo->getCommands();
|
|
|
|
lua::createtable(L, commands.size(), 0);
|
|
size_t index = 1;
|
|
for (const auto& entry : commands) {
|
|
lua::pushstring(L, entry.first);
|
|
lua::rawseti(L, index++);
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
static int l_get_command_info(lua::State* L) {
|
|
auto name = lua::require_string(L, 1);
|
|
auto repo = engine->getCmd().getRepository();
|
|
auto command = repo->get(name);
|
|
if (command == nullptr) {
|
|
return 0;
|
|
}
|
|
const auto& args = command->getArgs();
|
|
const auto& kwargs = command->getKwArgs();
|
|
|
|
lua::createtable(L, 0, 4);
|
|
|
|
lua::pushstring(L, name);
|
|
lua::setfield(L, "name");
|
|
|
|
lua::pushstring(L, command->getDescription());
|
|
lua::setfield(L, "description");
|
|
|
|
lua::createtable(L, args.size(), 0);
|
|
for (size_t i = 0; i < args.size(); i++) {
|
|
auto& arg = args[i];
|
|
lua::createtable(L, 0, 2);
|
|
|
|
lua::pushstring(L, arg.name);
|
|
lua::setfield(L, "name");
|
|
|
|
lua::pushstring(L, cmd::argtype_name(arg.type));
|
|
lua::setfield(L, "type");
|
|
|
|
if (arg.optional) {
|
|
lua::pushboolean(L, true);
|
|
lua::setfield(L, "optional");
|
|
}
|
|
lua::rawseti(L, i + 1);
|
|
}
|
|
lua::setfield(L, "args");
|
|
|
|
lua::createtable(L, 0, kwargs.size());
|
|
for (auto& entry : kwargs) {
|
|
auto& arg = entry.second;
|
|
lua::createtable(L, 0, 1);
|
|
|
|
lua::pushstring(L, cmd::argtype_name(arg.type));
|
|
lua::setfield(L, "type");
|
|
|
|
lua::setfield(L, arg.name);
|
|
}
|
|
lua::setfield(L, "kwargs");
|
|
return 1;
|
|
}
|
|
|
|
const luaL_Reg consolelib[] = {
|
|
{"add_command", lua::wrap<l_add_command>},
|
|
{"execute", lua::wrap<l_execute>},
|
|
{"get", lua::wrap<l_get>},
|
|
{"set", lua::wrap<l_set>},
|
|
{"get_commands_list", lua::wrap<l_get_commands_list>},
|
|
{"get_command_info", lua::wrap<l_get_command_info>},
|
|
{NULL, NULL}};
|