Add GDScript disassembler
This commit is contained in:
George Marques
parent
745ca3059d
commit
635c6a0a18
3 changed files with 578 additions and 18 deletions
|
|
@ -34,6 +34,10 @@
|
|||
#include "gdscript.h"
|
||||
#include "gdscript_functions.h"
|
||||
|
||||
#ifdef DEBUG_ENABLED
|
||||
#include "core/string_builder.h"
|
||||
#endif
|
||||
|
||||
Variant *GDScriptFunction::_get_variant(int p_address, GDScriptInstance *p_instance, GDScript *p_script, Variant &self, Variant &static_ref, Variant *p_stack, String &r_error) const {
|
||||
int address = p_address & ADDR_MASK;
|
||||
|
||||
|
|
@ -105,9 +109,9 @@ Variant *GDScriptFunction::_get_variant(int p_address, GDScriptInstance *p_insta
|
|||
#ifdef TOOLS_ENABLED
|
||||
case ADDR_TYPE_NAMED_GLOBAL: {
|
||||
#ifdef DEBUG_ENABLED
|
||||
ERR_FAIL_INDEX_V(address, _named_globals_count, nullptr);
|
||||
ERR_FAIL_INDEX_V(address, _global_names_count, nullptr);
|
||||
#endif
|
||||
StringName id = _named_globals_ptr[address];
|
||||
StringName id = _global_names_ptr[address];
|
||||
|
||||
if (GDScriptLanguage::get_singleton()->get_named_globals_map().has(id)) {
|
||||
return (Variant *)&GDScriptLanguage::get_singleton()->get_named_globals_map()[id];
|
||||
|
|
@ -212,7 +216,6 @@ String GDScriptFunction::_get_call_error(const Callable::CallError &p_err, const
|
|||
&&OPCODE_CALL_RETURN, \
|
||||
&&OPCODE_CALL_ASYNC, \
|
||||
&&OPCODE_CALL_BUILT_IN, \
|
||||
&&OPCODE_CALL_SELF, \
|
||||
&&OPCODE_CALL_SELF_BASE, \
|
||||
&&OPCODE_AWAIT, \
|
||||
&&OPCODE_AWAIT_RESUME, \
|
||||
|
|
@ -1139,10 +1142,6 @@ Variant GDScriptFunction::call(GDScriptInstance *p_instance, const Variant **p_a
|
|||
}
|
||||
DISPATCH_OPCODE;
|
||||
|
||||
OPCODE(OPCODE_CALL_SELF) {
|
||||
OPCODE_BREAK;
|
||||
}
|
||||
|
||||
OPCODE(OPCODE_CALL_SELF_BASE) {
|
||||
CHECK_SPACE(2);
|
||||
int self_fun = _code_ptr[ip + 1];
|
||||
|
|
@ -1214,8 +1213,7 @@ Variant GDScriptFunction::call(GDScriptInstance *p_instance, const Variant **p_a
|
|||
DISPATCH_OPCODE;
|
||||
|
||||
OPCODE(OPCODE_AWAIT) {
|
||||
int ipofs = 2;
|
||||
CHECK_SPACE(3);
|
||||
CHECK_SPACE(2);
|
||||
|
||||
//do the oneshot connect
|
||||
GET_VARIANT_PTR(argobj, 1);
|
||||
|
|
@ -1265,7 +1263,7 @@ Variant GDScriptFunction::call(GDScriptInstance *p_instance, const Variant **p_a
|
|||
gdfs->state.stack_size = _stack_size;
|
||||
gdfs->state.self = self;
|
||||
gdfs->state.alloca_size = alloca_size;
|
||||
gdfs->state.ip = ip + ipofs;
|
||||
gdfs->state.ip = ip + 2;
|
||||
gdfs->state.line = line;
|
||||
gdfs->state.script = _script;
|
||||
{
|
||||
|
|
@ -1884,3 +1882,506 @@ GDScriptFunctionState::~GDScriptFunctionState() {
|
|||
instances_list.remove_from_list();
|
||||
}
|
||||
}
|
||||
|
||||
#ifdef DEBUG_ENABLED
|
||||
static String _get_variant_string(const Variant &p_variant) {
|
||||
String txt;
|
||||
if (p_variant.get_type() == Variant::STRING) {
|
||||
txt = "\"" + String(p_variant) + "\"";
|
||||
} else if (p_variant.get_type() == Variant::STRING_NAME) {
|
||||
txt = "&\"" + String(p_variant) + "\"";
|
||||
} else if (p_variant.get_type() == Variant::NODE_PATH) {
|
||||
txt = "^\"" + String(p_variant) + "\"";
|
||||
} else if (p_variant.get_type() == Variant::OBJECT) {
|
||||
Object *obj = p_variant;
|
||||
if (!obj) {
|
||||
txt = "null";
|
||||
} else {
|
||||
GDScriptNativeClass *cls = Object::cast_to<GDScriptNativeClass>(obj);
|
||||
if (cls) {
|
||||
txt += cls->get_name();
|
||||
txt += " (class)";
|
||||
} else {
|
||||
txt = obj->get_class();
|
||||
if (obj->get_script_instance()) {
|
||||
txt += "(" + obj->get_script_instance()->get_script()->get_path() + ")";
|
||||
}
|
||||
}
|
||||
}
|
||||
} else {
|
||||
txt = p_variant;
|
||||
}
|
||||
return txt;
|
||||
}
|
||||
|
||||
static String _disassemble_address(const GDScript *p_script, const GDScriptFunction &p_function, int p_address) {
|
||||
int addr = p_address & GDScriptFunction::ADDR_MASK;
|
||||
|
||||
switch (p_address >> GDScriptFunction::ADDR_BITS) {
|
||||
case GDScriptFunction::ADDR_TYPE_SELF: {
|
||||
return "self";
|
||||
} break;
|
||||
case GDScriptFunction::ADDR_TYPE_CLASS: {
|
||||
return "class";
|
||||
} break;
|
||||
case GDScriptFunction::ADDR_TYPE_MEMBER: {
|
||||
return "member(" + p_script->debug_get_member_by_index(addr) + ")";
|
||||
} break;
|
||||
case GDScriptFunction::ADDR_TYPE_CLASS_CONSTANT: {
|
||||
return "class_const(" + p_function.get_global_name(addr) + ")";
|
||||
} break;
|
||||
case GDScriptFunction::ADDR_TYPE_LOCAL_CONSTANT: {
|
||||
return "const(" + _get_variant_string(p_function.get_constant(addr)) + ")";
|
||||
} break;
|
||||
case GDScriptFunction::ADDR_TYPE_STACK: {
|
||||
return "stack(" + itos(addr) + ")";
|
||||
} break;
|
||||
case GDScriptFunction::ADDR_TYPE_STACK_VARIABLE: {
|
||||
return "var_stack(" + itos(addr) + ")";
|
||||
} break;
|
||||
case GDScriptFunction::ADDR_TYPE_GLOBAL: {
|
||||
return "global(" + _get_variant_string(GDScriptLanguage::get_singleton()->get_global_array()[addr]) + ")";
|
||||
} break;
|
||||
case GDScriptFunction::ADDR_TYPE_NAMED_GLOBAL: {
|
||||
return "named_global(" + p_function.get_global_name(addr) + ")";
|
||||
} break;
|
||||
case GDScriptFunction::ADDR_TYPE_NIL: {
|
||||
return "nil";
|
||||
} break;
|
||||
}
|
||||
|
||||
return "<err>";
|
||||
}
|
||||
|
||||
void GDScriptFunction::disassemble(const Vector<String> &p_code_lines) const {
|
||||
#define DADDR(m_ip) (_disassemble_address(_script, *this, _code_ptr[ip + m_ip]))
|
||||
|
||||
for (int ip = 0; ip < _code_size;) {
|
||||
StringBuilder text;
|
||||
int incr = 0;
|
||||
|
||||
text += " ";
|
||||
text += itos(ip);
|
||||
text += ": ";
|
||||
|
||||
// This makes the compiler complain if some opcode is unchecked in the switch.
|
||||
Opcode code = Opcode(_code_ptr[ip]);
|
||||
|
||||
switch (code) {
|
||||
case OPCODE_OPERATOR: {
|
||||
int operation = _code_ptr[ip + 1];
|
||||
|
||||
text += "operator ";
|
||||
|
||||
text += DADDR(4);
|
||||
text += " = ";
|
||||
text += DADDR(2);
|
||||
text += " ";
|
||||
text += Variant::get_operator_name(Variant::Operator(operation));
|
||||
text += " ";
|
||||
text += DADDR(3);
|
||||
|
||||
incr += 5;
|
||||
} break;
|
||||
case OPCODE_EXTENDS_TEST: {
|
||||
text += "is object ";
|
||||
text += DADDR(3);
|
||||
text += " = ";
|
||||
text += DADDR(1);
|
||||
text += " is ";
|
||||
text += DADDR(2);
|
||||
|
||||
incr += 4;
|
||||
} break;
|
||||
case OPCODE_IS_BUILTIN: {
|
||||
text += "is builtin ";
|
||||
text += DADDR(3);
|
||||
text += " = ";
|
||||
text += DADDR(1);
|
||||
text += " is ";
|
||||
text += Variant::get_type_name(Variant::Type(_code_ptr[ip + 2]));
|
||||
|
||||
incr += 4;
|
||||
} break;
|
||||
case OPCODE_SET: {
|
||||
text += "set ";
|
||||
text += DADDR(1);
|
||||
text += "[";
|
||||
text += DADDR(2);
|
||||
text += "] = ";
|
||||
text += DADDR(3);
|
||||
|
||||
incr += 4;
|
||||
} break;
|
||||
case OPCODE_GET: {
|
||||
text += "get ";
|
||||
text += DADDR(3);
|
||||
text += " = ";
|
||||
text += DADDR(1);
|
||||
text += "[";
|
||||
text += DADDR(2);
|
||||
text += "]";
|
||||
|
||||
incr += 4;
|
||||
} break;
|
||||
case OPCODE_SET_NAMED: {
|
||||
text += "set_named ";
|
||||
text += DADDR(1);
|
||||
text += "[\"";
|
||||
text += _global_names_ptr[_code_ptr[ip + 2]];
|
||||
text += "\"] = ";
|
||||
text += DADDR(3);
|
||||
|
||||
incr += 4;
|
||||
} break;
|
||||
case OPCODE_GET_NAMED: {
|
||||
text += "get_named ";
|
||||
text += DADDR(3);
|
||||
text += " = ";
|
||||
text += DADDR(1);
|
||||
text += "[\"";
|
||||
text += _global_names_ptr[_code_ptr[ip + 2]];
|
||||
text += "\"]";
|
||||
|
||||
incr += 4;
|
||||
} break;
|
||||
case OPCODE_SET_MEMBER: {
|
||||
text += "set_member ";
|
||||
text += "[\"";
|
||||
text += _global_names_ptr[_code_ptr[ip + 1]];
|
||||
text += "\"] = ";
|
||||
text += DADDR(2);
|
||||
|
||||
incr += 3;
|
||||
} break;
|
||||
case OPCODE_GET_MEMBER: {
|
||||
text += "get_member ";
|
||||
text += DADDR(2);
|
||||
text += " = ";
|
||||
text += "[\"";
|
||||
text += _global_names_ptr[_code_ptr[ip + 1]];
|
||||
text += "\"]";
|
||||
|
||||
incr += 3;
|
||||
} break;
|
||||
case OPCODE_ASSIGN: {
|
||||
text += "assign ";
|
||||
text += DADDR(1);
|
||||
text += " = ";
|
||||
text += DADDR(2);
|
||||
|
||||
incr += 3;
|
||||
} break;
|
||||
case OPCODE_ASSIGN_TRUE: {
|
||||
text += "assign ";
|
||||
text += DADDR(1);
|
||||
text += " = true";
|
||||
|
||||
incr += 2;
|
||||
} break;
|
||||
case OPCODE_ASSIGN_FALSE: {
|
||||
text += "assign ";
|
||||
text += DADDR(1);
|
||||
text += " = false";
|
||||
|
||||
incr += 2;
|
||||
} break;
|
||||
case OPCODE_ASSIGN_TYPED_BUILTIN: {
|
||||
text += "assign typed builtin (";
|
||||
text += Variant::get_type_name((Variant::Type)_code_ptr[ip + 1]);
|
||||
text += ") ";
|
||||
text += DADDR(2);
|
||||
text += " = ";
|
||||
text += DADDR(3);
|
||||
|
||||
incr += 4;
|
||||
} break;
|
||||
case OPCODE_ASSIGN_TYPED_NATIVE: {
|
||||
Variant class_name = _constants_ptr[_code_ptr[ip + 1]];
|
||||
GDScriptNativeClass *nc = Object::cast_to<GDScriptNativeClass>(class_name.operator Object *());
|
||||
|
||||
text += "assign typed native (";
|
||||
text += nc->get_name().operator String();
|
||||
text += ") ";
|
||||
text += DADDR(2);
|
||||
text += " = ";
|
||||
text += DADDR(3);
|
||||
|
||||
incr += 4;
|
||||
} break;
|
||||
case OPCODE_ASSIGN_TYPED_SCRIPT: {
|
||||
Variant script = _constants_ptr[_code_ptr[ip + 1]];
|
||||
Script *sc = Object::cast_to<Script>(script.operator Object *());
|
||||
|
||||
text += "assign typed script (";
|
||||
text += sc->get_path();
|
||||
text += ") ";
|
||||
text += DADDR(2);
|
||||
text += " = ";
|
||||
text += DADDR(3);
|
||||
|
||||
incr += 4;
|
||||
} break;
|
||||
case OPCODE_CAST_TO_BUILTIN: {
|
||||
text += "cast builtin ";
|
||||
text += DADDR(3);
|
||||
text += " = ";
|
||||
text += DADDR(2);
|
||||
text += " as ";
|
||||
text += Variant::get_type_name(Variant::Type(_code_ptr[ip + 1]));
|
||||
|
||||
incr += 4;
|
||||
} break;
|
||||
case OPCODE_CAST_TO_NATIVE: {
|
||||
Variant class_name = _constants_ptr[_code_ptr[ip + 1]];
|
||||
GDScriptNativeClass *nc = Object::cast_to<GDScriptNativeClass>(class_name.operator Object *());
|
||||
|
||||
text += "cast native ";
|
||||
text += DADDR(3);
|
||||
text += " = ";
|
||||
text += DADDR(2);
|
||||
text += " as ";
|
||||
text += nc->get_name();
|
||||
|
||||
incr += 4;
|
||||
} break;
|
||||
case OPCODE_CAST_TO_SCRIPT: {
|
||||
text += "cast ";
|
||||
text += DADDR(3);
|
||||
text += " = ";
|
||||
text += DADDR(2);
|
||||
text += " as ";
|
||||
text += DADDR(1);
|
||||
|
||||
incr += 4;
|
||||
} break;
|
||||
case OPCODE_CONSTRUCT: {
|
||||
Variant::Type t = Variant::Type(_code_ptr[ip + 1]);
|
||||
int argc = _code_ptr[ip + 2];
|
||||
|
||||
text += "construct ";
|
||||
text += DADDR(3 + argc);
|
||||
text += " = ";
|
||||
|
||||
text += Variant::get_type_name(t) + "(";
|
||||
for (int i = 0; i < argc; i++) {
|
||||
if (i > 0)
|
||||
text += ", ";
|
||||
text += DADDR(i + 3);
|
||||
}
|
||||
text += ")";
|
||||
|
||||
incr = 4 + argc;
|
||||
} break;
|
||||
case OPCODE_CONSTRUCT_ARRAY: {
|
||||
int argc = _code_ptr[ip + 1];
|
||||
text += " make_array ";
|
||||
text += DADDR(2 + argc);
|
||||
text += " = [";
|
||||
|
||||
for (int i = 0; i < argc; i++) {
|
||||
if (i > 0)
|
||||
text += ", ";
|
||||
text += DADDR(2 + i);
|
||||
}
|
||||
|
||||
text += "]";
|
||||
|
||||
incr += 3 + argc;
|
||||
} break;
|
||||
case OPCODE_CONSTRUCT_DICTIONARY: {
|
||||
int argc = _code_ptr[ip + 1];
|
||||
text += "make_dict ";
|
||||
text += DADDR(2 + argc * 2);
|
||||
text += " = {";
|
||||
|
||||
for (int i = 0; i < argc; i++) {
|
||||
if (i > 0)
|
||||
text += ", ";
|
||||
text += DADDR(2 + i * 2 + 0);
|
||||
text += ": ";
|
||||
text += DADDR(2 + i * 2 + 1);
|
||||
}
|
||||
|
||||
text += "}";
|
||||
|
||||
incr += 3 + argc * 2;
|
||||
} break;
|
||||
case OPCODE_CALL:
|
||||
case OPCODE_CALL_RETURN:
|
||||
case OPCODE_CALL_ASYNC: {
|
||||
bool ret = _code_ptr[ip] == OPCODE_CALL_RETURN;
|
||||
bool async = _code_ptr[ip] == OPCODE_CALL_ASYNC;
|
||||
|
||||
if (ret) {
|
||||
text += "call-ret ";
|
||||
} else if (async) {
|
||||
text += "call-async ";
|
||||
} else {
|
||||
text += "call ";
|
||||
}
|
||||
|
||||
int argc = _code_ptr[ip + 1];
|
||||
if (ret || async) {
|
||||
text += DADDR(4 + argc) + " = ";
|
||||
}
|
||||
|
||||
text += DADDR(2) + ".";
|
||||
text += String(_global_names_ptr[_code_ptr[ip + 3]]);
|
||||
text += "(";
|
||||
|
||||
for (int i = 0; i < argc; i++) {
|
||||
if (i > 0)
|
||||
text += ", ";
|
||||
text += DADDR(4 + i);
|
||||
}
|
||||
text += ")";
|
||||
|
||||
incr = 5 + argc;
|
||||
} break;
|
||||
case OPCODE_CALL_BUILT_IN: {
|
||||
text += "call-built-in ";
|
||||
|
||||
int argc = _code_ptr[ip + 2];
|
||||
text += DADDR(3 + argc) + " = ";
|
||||
|
||||
text += GDScriptFunctions::get_func_name(GDScriptFunctions::Function(_code_ptr[ip + 1]));
|
||||
text += "(";
|
||||
|
||||
for (int i = 0; i < argc; i++) {
|
||||
if (i > 0)
|
||||
text += ", ";
|
||||
text += DADDR(3 + i);
|
||||
}
|
||||
text += ")";
|
||||
|
||||
incr = 4 + argc;
|
||||
} break;
|
||||
case OPCODE_CALL_SELF_BASE: {
|
||||
text += "call-self-base ";
|
||||
|
||||
int argc = _code_ptr[ip + 2];
|
||||
text += DADDR(3 + argc) + " = ";
|
||||
|
||||
text += _global_names_ptr[_code_ptr[ip + 1]];
|
||||
text += "(";
|
||||
|
||||
for (int i = 0; i < argc; i++) {
|
||||
if (i > 0)
|
||||
text += ", ";
|
||||
text += DADDR(3 + i);
|
||||
}
|
||||
text += ")";
|
||||
|
||||
incr = 4 + argc;
|
||||
} break;
|
||||
case OPCODE_AWAIT: {
|
||||
text += "await ";
|
||||
text += DADDR(1);
|
||||
|
||||
incr += 2;
|
||||
} break;
|
||||
case OPCODE_AWAIT_RESUME: {
|
||||
text += "await resume ";
|
||||
text += DADDR(1);
|
||||
|
||||
incr = 2;
|
||||
} break;
|
||||
case OPCODE_JUMP: {
|
||||
text += "jump ";
|
||||
text += itos(_code_ptr[ip + 1]);
|
||||
|
||||
incr = 2;
|
||||
} break;
|
||||
case OPCODE_JUMP_IF: {
|
||||
text += "jump-if ";
|
||||
text += DADDR(1);
|
||||
text += " to ";
|
||||
text += itos(_code_ptr[ip + 2]);
|
||||
|
||||
incr = 3;
|
||||
} break;
|
||||
case OPCODE_JUMP_IF_NOT: {
|
||||
text += "jump-if-not ";
|
||||
text += DADDR(1);
|
||||
text += " to ";
|
||||
text += itos(_code_ptr[ip + 2]);
|
||||
|
||||
incr = 3;
|
||||
} break;
|
||||
case OPCODE_JUMP_TO_DEF_ARGUMENT: {
|
||||
text += "jump-to-default-argument ";
|
||||
|
||||
incr = 1;
|
||||
} break;
|
||||
case OPCODE_RETURN: {
|
||||
text += "return ";
|
||||
text += DADDR(1);
|
||||
|
||||
incr = 2;
|
||||
} break;
|
||||
case OPCODE_ITERATE_BEGIN: {
|
||||
text += "for-init ";
|
||||
text += DADDR(4);
|
||||
text += " in ";
|
||||
text += DADDR(2);
|
||||
text += " counter ";
|
||||
text += DADDR(1);
|
||||
text += " end ";
|
||||
text += itos(_code_ptr[ip + 3]);
|
||||
|
||||
incr += 5;
|
||||
} break;
|
||||
case OPCODE_ITERATE: {
|
||||
text += "for-loop ";
|
||||
text += DADDR(4);
|
||||
text += " in ";
|
||||
text += DADDR(2);
|
||||
text += " counter ";
|
||||
text += DADDR(1);
|
||||
text += " end ";
|
||||
text += itos(_code_ptr[ip + 3]);
|
||||
|
||||
incr += 5;
|
||||
} break;
|
||||
case OPCODE_LINE: {
|
||||
int line = _code_ptr[ip + 1] - 1;
|
||||
if (line >= 0 && line < p_code_lines.size()) {
|
||||
text += "line ";
|
||||
text += itos(line + 1);
|
||||
text += ": ";
|
||||
text += p_code_lines[line];
|
||||
} else {
|
||||
text += "";
|
||||
}
|
||||
|
||||
incr += 2;
|
||||
} break;
|
||||
case OPCODE_ASSERT: {
|
||||
text += "assert (";
|
||||
text += DADDR(1);
|
||||
text += ", ";
|
||||
text += DADDR(2);
|
||||
text += ")";
|
||||
|
||||
incr += 3;
|
||||
} break;
|
||||
case OPCODE_BREAKPOINT: {
|
||||
text += "breakpoint";
|
||||
|
||||
incr += 1;
|
||||
} break;
|
||||
case OPCODE_END: {
|
||||
text += "== END ==";
|
||||
|
||||
incr += 1;
|
||||
} break;
|
||||
}
|
||||
|
||||
ip += incr;
|
||||
if (text.get_string_length() > 0) {
|
||||
print_line(text.as_string());
|
||||
}
|
||||
}
|
||||
}
|
||||
#endif
|
||||
|
|
|
|||
|
|
@ -182,7 +182,6 @@ public:
|
|||
OPCODE_CALL_RETURN,
|
||||
OPCODE_CALL_ASYNC,
|
||||
OPCODE_CALL_BUILT_IN,
|
||||
OPCODE_CALL_SELF,
|
||||
OPCODE_CALL_SELF_BASE,
|
||||
OPCODE_AWAIT,
|
||||
OPCODE_AWAIT_RESUME,
|
||||
|
|
@ -233,10 +232,6 @@ private:
|
|||
int _constant_count;
|
||||
const StringName *_global_names_ptr;
|
||||
int _global_names_count;
|
||||
#ifdef TOOLS_ENABLED
|
||||
const StringName *_named_globals_ptr;
|
||||
int _named_globals_count;
|
||||
#endif
|
||||
const int *_default_arg_ptr;
|
||||
int _default_arg_count;
|
||||
const int *_code_ptr;
|
||||
|
|
@ -253,9 +248,6 @@ private:
|
|||
StringName name;
|
||||
Vector<Variant> constants;
|
||||
Vector<StringName> global_names;
|
||||
#ifdef TOOLS_ENABLED
|
||||
Vector<StringName> named_globals;
|
||||
#endif
|
||||
Vector<int> default_arguments;
|
||||
Vector<int> code;
|
||||
Vector<GDScriptDataType> argument_types;
|
||||
|
|
@ -345,6 +337,10 @@ public:
|
|||
|
||||
Variant call(GDScriptInstance *p_instance, const Variant **p_args, int p_argcount, Callable::CallError &r_err, CallState *p_state = nullptr);
|
||||
|
||||
#ifdef DEBUG_ENABLED
|
||||
void disassemble(const Vector<String> &p_code_lines) const;
|
||||
#endif
|
||||
|
||||
_FORCE_INLINE_ MultiplayerAPI::RPCMode get_rpc_mode() const { return rpc_mode; }
|
||||
GDScriptFunction();
|
||||
~GDScriptFunction();
|
||||
|
|
|
|||
|
|
@ -36,8 +36,11 @@
|
|||
#include "core/string_builder.h"
|
||||
|
||||
#include "modules/modules_enabled.gen.h"
|
||||
|
||||
#ifdef MODULE_GDSCRIPT_ENABLED
|
||||
|
||||
#include "modules/gdscript/gdscript_analyzer.h"
|
||||
#include "modules/gdscript/gdscript_compiler.h"
|
||||
#include "modules/gdscript/gdscript_parser.h"
|
||||
#include "modules/gdscript/gdscript_tokenizer.h"
|
||||
|
||||
|
|
@ -122,6 +125,64 @@ static void test_parser(const String &p_code, const String &p_script_path, const
|
|||
printer.print_tree(parser);
|
||||
}
|
||||
|
||||
static void test_compiler(const String &p_code, const String &p_script_path, const Vector<String> &p_lines) {
|
||||
GDScriptParser parser;
|
||||
Error err = parser.parse(p_code, p_script_path, false);
|
||||
|
||||
if (err != OK) {
|
||||
print_line("Error in parser:");
|
||||
const List<GDScriptParser::ParserError> &errors = parser.get_errors();
|
||||
for (const List<GDScriptParser::ParserError>::Element *E = errors.front(); E != nullptr; E = E->next()) {
|
||||
const GDScriptParser::ParserError &error = E->get();
|
||||
print_line(vformat("%02d:%02d: %s", error.line, error.column, error.message));
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
GDScriptAnalyzer analyzer(&parser);
|
||||
err = analyzer.analyze();
|
||||
|
||||
if (err != OK) {
|
||||
print_line("Error in analyzer:");
|
||||
const List<GDScriptParser::ParserError> &errors = parser.get_errors();
|
||||
for (const List<GDScriptParser::ParserError>::Element *E = errors.front(); E != nullptr; E = E->next()) {
|
||||
const GDScriptParser::ParserError &error = E->get();
|
||||
print_line(vformat("%02d:%02d: %s", error.line, error.column, error.message));
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
GDScriptCompiler compiler;
|
||||
Ref<GDScript> script;
|
||||
script.instance();
|
||||
script->set_path(p_script_path);
|
||||
|
||||
err = compiler.compile(&parser, script.ptr(), false);
|
||||
|
||||
if (err) {
|
||||
print_line("Error in compiler:");
|
||||
print_line(vformat("%02d:%02d: %s", compiler.get_error_line(), compiler.get_error_column(), compiler.get_error()));
|
||||
return;
|
||||
}
|
||||
|
||||
for (const Map<StringName, GDScriptFunction *>::Element *E = script->get_member_functions().front(); E; E = E->next()) {
|
||||
const GDScriptFunction *func = E->value();
|
||||
|
||||
String signature = "Disassembling " + func->get_name().operator String() + "(";
|
||||
for (int i = 0; i < func->get_argument_count(); i++) {
|
||||
if (i > 0) {
|
||||
signature += ", ";
|
||||
}
|
||||
signature += func->get_argument_name(i);
|
||||
}
|
||||
print_line(signature + ")");
|
||||
|
||||
func->disassemble(p_lines);
|
||||
print_line("");
|
||||
print_line("");
|
||||
}
|
||||
}
|
||||
|
||||
MainLoop *test(TestType p_type) {
|
||||
List<String> cmdlargs = OS::get_singleton()->get_cmdline_args();
|
||||
|
||||
|
|
@ -164,6 +225,8 @@ MainLoop *test(TestType p_type) {
|
|||
test_parser(code, test, lines);
|
||||
break;
|
||||
case TEST_COMPILER:
|
||||
test_compiler(code, test, lines);
|
||||
break;
|
||||
case TEST_BYTECODE:
|
||||
print_line("Not implemented.");
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in a new issue