X-Git-Url: https://git.verplant.org/?a=blobdiff_plain;f=tools%2Fminiswig%2Fcreate_wrapper.cpp;h=826a9aba88138a079fb8d92ce8a2f43aaa28283e;hb=2b318b2284a78ae34a6752a807c4eb7b5632299c;hp=2233f8334308e12d2c0020d898fa979fd435ea63;hpb=f1e15f44f709d6b4fa45e858dc12d7d701ae8ddc;p=supertux.git diff --git a/tools/miniswig/create_wrapper.cpp b/tools/miniswig/create_wrapper.cpp index 2233f8334..826a9aba8 100644 --- a/tools/miniswig/create_wrapper.cpp +++ b/tools/miniswig/create_wrapper.cpp @@ -1,49 +1,75 @@ -#include "tree.h" +#include + +#include "tree.hpp" +#include "create_wrapper.hpp" +#include "globals.hpp" + #include #include #include -#include "create_wrapper.h" -#include "globals.h" +#include void WrapperCreator::create_wrapper(Namespace* ns) { + std::string fromfile = original_file != "" ? original_file : inputfile; + + if(selected_namespace != "") { + ns_prefix = selected_namespace; + ns_prefix += "::"; + } + // hpp file hppout << "/**\n" - << " * WARNING: This file is automatically generated from '" - << inputfile << "' - do not change\n" + << " * WARNING: This file is automatically generated from:\n" + << " * '" << fromfile << "'\n" + << " * DO NOT CHANGE\n" << " */\n" - << "#ifndef __" << modulename << "_WRAPPER_H__\n" - << "#define __" << modulename << "_WRAPPER_H__\n" - << "\n" - << "#include \"wrapper_util.h\"\n" + << "#ifndef HEADER_SUPERTUX_SCRIPTING_WRAPPER_HPP\n" //TODO avoid hardcoding + << "#define HEADER_SUPERTUX_SCRIPTING_WRAPPER_HPP\n" << "\n" - << "extern WrappedFunction " << modulename << "_global_functions[];\n" - << "extern WrappedClass " << modulename << "_classes[];\n" - << "\n" - << "#endif\n" + << "namespace Scripting {\n" << "\n"; - + + hppout << "void register_" << modulename << "_wrapper(HSQUIRRELVM v);\n" + << "\n"; + + for(std::vector::iterator i = ns->types.begin(); + i != ns->types.end(); ++i) { + AtomicType* type = *i; + Class* _class = dynamic_cast (type); + if(_class == 0) + continue; + + hppout << "class " << _class->name << ";\n"; + hppout << "void create_squirrel_instance(HSQUIRRELVM v, " + << ns_prefix << _class->name + << "* object, bool setup_releasehook = false);\n"; + } + hppout <<"\n" + << "}\n" + << "\n" + << "#endif\n" + << "\n" + << "/* EOF */\n"; + // cpp header out << "/**\n" - << " * WARNING: This file is automatically generated from '" - << inputfile << "' - do not change\n" + << " * WARNING: This file is automatically generated from:\n" + << " * '" << fromfile << "'\n" + << " * DO NOT CHANGE\n" << " */\n" << "\n" - << "#include \n" - << "#include \n" - << "#include \n" - << "#include \n" - << "#include \n" - << "#include \"wrapper_util.h\"\n" - << "#include \"wrapper.interface.h\"\n" + << "#include \n" + << "\n" + << "#include \"scripting/squirrel_error.hpp\"\n" + << "#include \"scripting/wrapper.interface.hpp\"\n" + << "\n" + << "namespace Scripting {\n" + << "namespace Wrapper {\n" << "\n"; - if(selected_namespace != "") { - out << "using namespace " << selected_namespace << ";\n"; - out << "\n"; - } - + for(std::vector::iterator i = ns->types.begin(); i != ns->types.end(); ++i) { AtomicType* type = *i; @@ -56,57 +82,203 @@ WrapperCreator::create_wrapper(Namespace* ns) create_function_wrapper(0, *i); } - // create function list... - out << "WrappedFunction " << modulename << "_global_functions[] = {\n"; + out << "} // end of namespace Wrapper\n"; + + for(std::vector::iterator i = ns->types.begin(); + i != ns->types.end(); ++i) { + AtomicType* type = *i; + Class* _class = dynamic_cast (type); + if(_class != 0) + create_squirrel_instance(_class); + } + + out << "void register_" << modulename << "_wrapper(HSQUIRRELVM v)\n" + << "{\n" + << ind << "using namespace Wrapper;\n" + << "\n"; + + create_register_constants_code(ns); + create_register_functions_code(ns); + create_register_classes_code(ns); + + out << "}\n" + << "\n" + << "} // end of namespace Scripting\n" + << "\n" + << "/* EOF */\n"; +} + +void +WrapperCreator::create_register_function_code(Function* function, Class* _class) +{ + if(function->type == Function::DESTRUCTOR) + return; + + out << ind << "sq_pushstring(v, \"" << function->name << "\", -1);\n"; + out << ind << "sq_newclosure(v, &" + << (_class != 0 ? _class->name + "_" : "") << function->name + << "_wrapper, 0);\n"; + + if(function->custom) { + out << ind << "sq_setparamscheck(v, SQ_MATCHTYPEMASKSTRING, " << function->parameter_spec << ");\n"; + } else { + out << ind << "sq_setparamscheck(v, SQ_MATCHTYPEMASKSTRING, \""; + + out << "x|t"; + + if(!function->parameters.empty()) + { + std::vector::iterator p = function->parameters.begin(); + + // Skip the first parameter since its a HSQUIRRELVM that is + // handled internally + if (function->suspend) { + ++p; + } else if (p->type.atomic_type == HSQUIRRELVMType::instance()) { + ++p; + } + + for(; p != function->parameters.end(); ++p) { + if(p->type.atomic_type == &BasicType::INT) { + out << "i"; + } else if(p->type.atomic_type == &BasicType::FLOAT) { + out << "n"; + } else if(p->type.atomic_type == &BasicType::BOOL) { + out << "b"; + } else if(p->type.atomic_type == StringType::instance()) { + out << "s"; + } else { + out << "."; + } + } + } + out << "\");\n"; + } + + create_register_slot_code("function", function->name); + out << "\n"; +} + +void +WrapperCreator::create_register_functions_code(Namespace* ns) +{ for(std::vector::iterator i = ns->functions.begin(); i != ns->functions.end(); ++i) { Function* function = *i; - out << ind << "{ \"" << function->name << "\", &" - << function->name << "_wrapper },\n"; + create_register_function_code(function, 0); } - out << ind << "{ 0, 0 }\n" - << "};\n" - << "\n"; - - // create class list... - std::ostringstream classlist; - classlist << "WrappedClass " << modulename << "_classes[] = {\n"; +} +void +WrapperCreator::create_register_classes_code(Namespace* ns) +{ for(std::vector::iterator i = ns->types.begin(); i != ns->types.end(); ++i) { AtomicType* type = *i; Class* _class = dynamic_cast (type); if(_class == 0) continue; - - classlist << ind << "{ \"" << _class->name << "\", " - << modulename << "_" << _class->name - << "_methods },\n"; - - out << "static WrappedFunction " << modulename << "_" - << _class->name << "_methods[] = {\n"; - for(std::vector::iterator i = _class->members.begin(); - i != _class->members.end(); ++i) { - ClassMember* member = *i; - if(member->visibility != ClassMember::PUBLIC) - continue; - Function* function = dynamic_cast (member); - if(!function || function->type == Function::DESTRUCTOR) - continue; - - out << ind << "{ \"" << function->name << "\", &" - << _class->name << "_" << function->name << "_wrapper },\n"; + if(_class->super_classes.size() > 0) + continue; + + create_register_class_code(_class); + } +} + +void +WrapperCreator::create_register_class_code(Class* _class) +{ + out << ind << "// Register class " << _class->name << "\n"; + out << ind << "sq_pushstring(v, \"" + << _class->name << "\", -1);\n"; + + if(_class->super_classes.size() > 0) { + if(_class->super_classes.size() > 1) { + std::ostringstream msg; + msg << "Multiple inheritance not supported (at class '" + << _class->name << "')"; + throw std::runtime_error(msg.str()); } - out << "};\n" - << "\n"; + + out << ind << "sq_pushstring(v, \"" + << _class->super_classes[0]->name << "\", -1);\n"; + out << ind << "sq_get(v, -3);\n"; } - classlist << ind << "{ 0, 0 }\n"; - classlist << "};\n"; - out << classlist.str(); + out << ind << "if(sq_newclass(v, " + << (_class->super_classes.size() > 0 ? "SQTrue" : "SQFalse") + << ") < 0) {\n"; + out << ind << ind << "std::ostringstream msg;\n"; + out << ind << ind << "msg << \"Couldn't create new class '" + << _class->name << "'\";\n"; + out << ind << ind << "throw SquirrelError(v, msg.str());\n"; + out << ind << "}\n"; + + for(std::vector::iterator i = _class->members.begin(); + i != _class->members.end(); ++i) { + ClassMember* member = *i; + if(member->visibility != ClassMember::PUBLIC) + continue; + Function* function = dynamic_cast (member); + if(function) { + create_register_function_code(function, _class); + } + Field* field = dynamic_cast (member); + if(field) { + create_register_constant_code(field); + } + } + + create_register_slot_code("class", _class->name); + out << "\n"; + + for(std::vector::iterator i = _class->sub_classes.begin(); + i != _class->sub_classes.end(); ++i) { + Class* _class = *i; + create_register_class_code(_class); + } +} + +void +WrapperCreator::create_register_constants_code(Namespace* ns) +{ + for(std::vector::iterator i = ns->fields.begin(); + i != ns->fields.end(); ++i) { + Field* field = *i; + create_register_constant_code(field); + } +} + +void +WrapperCreator::create_register_constant_code(Field* field) +{ + if(!field->has_const_value) + return; + out << ind << "sq_pushstring(v, \"" << field->name << "\", -1);\n"; + if(field->type->atomic_type == &BasicType::INT) { + out << ind << "sq_pushinteger(v, " << field->const_int_value << ");\n"; + } else if(field->type->atomic_type == &BasicType::FLOAT) { + out << ind << "sq_pushfloat(v, " << field->const_float_value << ");\n"; + } else if(field->type->atomic_type == StringType::instance()) { + out << ind << "sq_pushstring(v, \"" + << field->const_string_value << "\", -1);\n"; + } else { + throw std::runtime_error("Constant is not int, float or string"); + } + create_register_slot_code("constant", field->name); out << "\n"; } void +WrapperCreator::create_register_slot_code(const std::string& what, + const std::string& name) +{ + out << ind << "if(SQ_FAILED(sq_createslot(v, -3))) {\n"; + out << ind << ind << "throw SquirrelError(v, \"" + << "Couldn't register " << what << " '" << name << "'\");\n"; + out << ind << "}\n"; +} + +void WrapperCreator::create_function_wrapper(Class* _class, Function* function) { if(function->type == Function::DESTRUCTOR) @@ -118,33 +290,59 @@ WrapperCreator::create_function_wrapper(Class* _class, Function* function) if(function->type == Function::CONSTRUCTOR) function->name = "constructor"; - out << "static int "; + out << "static SQInteger "; if(_class != 0) { out << _class->name << "_"; } - out << function->name << "_wrapper(HSQUIRRELVM v)\n" + out << function->name << "_wrapper(HSQUIRRELVM vm)\n" << "{\n"; // avoid warning... - if(_class == 0 && function->parameters.empty() + if(_class == 0 && function->parameters.empty() && function->return_type.is_void() && function->type != Function::CONSTRUCTOR) { - out << ind << "(void) v;\n"; + out << ind << "(void) vm;\n"; } - - // eventually retrieve pointer to class instance + + // retrieve pointer to class instance if(_class != 0 && function->type != Function::CONSTRUCTOR) { - out << ind << ns_prefix << _class->name << "* _this;\n"; - out << ind << "sq_getinstanceup(v, 1, (SQUserPointer*) &_this, 0);\n"; + out << ind << "SQUserPointer data;\n"; + out << ind << "if(SQ_FAILED(sq_getinstanceup(vm, 1, &data, 0)) || !data) {\n"; + out << ind << ind << "sq_throwerror(vm, _SC(\"'" << function->name << "' called without instance\"));\n"; + out << ind << ind << "return SQ_ERROR;\n"; + out << ind << "}\n"; + out << ind << ns_prefix << _class->name << "* _this = reinterpret_cast<" << ns_prefix << _class->name << "*> (data);\n"; + } + + // custom function? + if(function->custom) { + if(function->type != Function::FUNCTION) + throw std::runtime_error( + "custom not allow constructor+destructor yet"); + if(function->return_type.atomic_type != SQIntegerType::instance()) + throw std::runtime_error("custom function '" + function->name + "' has to return SQInteger"); + if(function->parameters.size() != 1) + throw std::runtime_error( + "custom function '" + function->name + "' must have 1 HSQUIRRELVM parameter"); + + out << ind << "return "; + if(_class != 0) + out << "_this->"; + else + out << ns_prefix; + out << function->name << "(vm);\n"; + out << "}\n"; + out << "\n"; + return; } - + // declare and retrieve arguments int i = 0; int arg_offset = 2; for(std::vector::iterator p = function->parameters.begin(); p != function->parameters.end(); ++p) { if(i == 0 && p->type.atomic_type == HSQUIRRELVMType::instance()) { - out << ind << "HSQUIRRELVM arg0 = v;\n"; - arg_offset++; + out << ind << "HSQUIRRELVM arg0 = vm;\n"; + arg_offset--; } else { char argname[64]; snprintf(argname, sizeof(argname), "arg%d", i); @@ -152,10 +350,11 @@ WrapperCreator::create_function_wrapper(Class* _class, Function* function) } ++i; } - + // call function - out << ind << "\n"; - out << ind; + out << "\n"; + out << ind << "try {\n"; + out << ind << ind; if(!function->return_type.is_void()) { function->return_type.write_c_type(out); out << " return_value = "; @@ -177,22 +376,56 @@ WrapperCreator::create_function_wrapper(Class* _class, Function* function) for(size_t i = 0; i < function->parameters.size(); ++i) { if(i != 0) out << ", "; - out << "arg" << i; + const Parameter param = function->parameters[i]; + if(param.type.ref == 0 && param.type.pointer == 0) { + if(param.type.atomic_type == &BasicType::INT) + out << "static_cast (arg" << i << ")"; + else if(param.type.atomic_type == &BasicType::FLOAT) + out << "static_cast (arg" << i << ")"; + else if(param.type.atomic_type == &BasicType::BOOL) + out << "arg" << i << " == SQTrue"; + else + out << "arg" << i; + } else { + out << "arg" << i; + } } out << ");\n"; if(function->type == Function::CONSTRUCTOR) { - out << ind << "sq_setinstanceup(v, 1, _this);\n"; - out << ind << "sq_setreleasehook(v, 1, " + out << ind << "if(SQ_FAILED(sq_setinstanceup(vm, 1, _this))) {\n"; + out << ind << ind << "sq_throwerror(vm, _SC(\"Couldn't setup instance of '" << _class->name << "' class\"));\n"; + out << ind << ind << "return SQ_ERROR;\n"; + out << ind << "}\n"; + out << ind << "sq_setreleasehook(vm, 1, " << _class->name << "_release_hook);\n"; } - out << ind << "\n"; + out << "\n"; // push return value back on stack and return - if(function->return_type.is_void()) { - out << ind << "return 0;\n"; + if(function->suspend) { + if(!function->return_type.is_void()) { + std::stringstream msg; + msg << "Function '" << function->name << "' declared as suspend" + << " but has a return value."; + throw std::runtime_error(msg.str()); + } + out << ind << ind << "return sq_suspendvm(vm);\n"; + } else if(function->return_type.is_void()) { + out << ind << ind << "return 0;\n"; } else { push_to_stack(function->return_type, "return_value"); - out << ind << "return 1;\n"; + out << ind << ind << "return 1;\n"; } + + out << "\n"; + out << ind << "} catch(std::exception& e) {\n"; + out << ind << ind << "sq_throwerror(vm, e.what());\n"; + out << ind << ind << "return SQ_ERROR;\n"; + out << ind << "} catch(...) {\n"; + out << ind << ind << "sq_throwerror(vm, _SC(\"Unexpected exception while executing function '" << function->name << "'\"));\n"; + out << ind << ind << "return SQ_ERROR;\n"; + out << ind << "}\n"; + out << "\n"; + out << "}\n"; out << "\n"; } @@ -206,17 +439,29 @@ WrapperCreator::prepare_argument(const Type& type, size_t index, if(type.pointer > 0) throw std::runtime_error("Pointers not handled yet"); if(type.atomic_type == &BasicType::INT) { - out << ind << "int " << var << ";\n"; - out << ind << "sq_getinteger(v, " << index << ", &" << var << ");\n"; + out << ind << "SQInteger " << var << ";\n"; + out << ind << "if(SQ_FAILED(sq_getinteger(vm, " << index << ", &" << var << "))) {\n"; + out << ind << ind << "sq_throwerror(vm, _SC(\"Argument " << (index-1) << " not an integer\"));\n"; + out << ind << ind << "return SQ_ERROR;\n"; + out << ind << "}\n"; } else if(type.atomic_type == &BasicType::FLOAT) { - out << ind << "float " << var << ";\n"; - out << ind << "sq_getfloat(v, " << index << ", &" << var << ");\n"; + out << ind << "SQFloat " << var << ";\n"; + out << ind << "if(SQ_FAILED(sq_getfloat(vm, " << index << ", &" << var << "))) {\n"; + out << ind << ind << "sq_throwerror(vm, _SC(\"Argument " << (index-1) << " not a float\"));\n"; + out << ind << ind << "return SQ_ERROR;\n"; + out << ind << "}\n"; } else if(type.atomic_type == &BasicType::BOOL) { out << ind << "SQBool " << var << ";\n"; - out << ind << "sq_getbool(v, " << index << ", &" << var << ");\n"; + out << ind << "if(SQ_FAILED(sq_getbool(vm, " << index << ", &" << var << "))) {\n"; + out << ind << ind << "sq_throwerror(vm, _SC(\"Argument " << (index-1) << " not a bool\"));\n"; + out << ind << ind << "return SQ_ERROR;\n"; + out << ind << "}\n"; } else if(type.atomic_type == StringType::instance()) { - out << ind << "const char* " << var << ";\n"; - out << ind << "sq_getstring(v, " << index << ", &" << var << ");\n"; + out << ind << "const SQChar* " << var << ";\n"; + out << ind << "if(SQ_FAILED(sq_getstring(vm, " << index << ", &" << var << "))) {\n"; + out << ind << ind << "sq_throwerror(vm, _SC(\"Argument " << (index-1) << " not a string\"));\n"; + out << ind << ind << "return SQ_ERROR;\n"; + out << ind << "}\n"; } else { std::ostringstream msg; msg << "Type '" << type.atomic_type->name << "' not supported yet."; @@ -231,15 +476,15 @@ WrapperCreator::push_to_stack(const Type& type, const std::string& var) throw std::runtime_error("References not handled yet"); if(type.pointer > 0) throw std::runtime_error("Pointers not handled yet"); - out << ind; + out << ind << ind; if(type.atomic_type == &BasicType::INT) { - out << "sq_pushinteger(v, " << var << ");\n"; + out << "sq_pushinteger(vm, " << var << ");\n"; } else if(type.atomic_type == &BasicType::FLOAT) { - out << "sq_pushfloat(v, " << var << ");\n"; + out << "sq_pushfloat(vm, " << var << ");\n"; } else if(type.atomic_type == &BasicType::BOOL) { - out << "sq_pushbool(v, " << var << ");\n"; + out << "sq_pushbool(vm, " << var << ");\n"; } else if(type.atomic_type == StringType::instance()) { - out << "sq_pushstring(v, " << var << ".c_str(), " + out << "sq_pushstring(vm, " << var << ".c_str(), " << var << ".size());\n"; } else { std::ostringstream msg; @@ -251,7 +496,7 @@ WrapperCreator::push_to_stack(const Type& type, const std::string& var) void WrapperCreator::create_class_wrapper(Class* _class) { - bool release_hook_created = false; + create_class_release_hook(_class); for(std::vector::iterator i = _class->members.begin(); i != _class->members.end(); ++i) { ClassMember* member = *i; @@ -260,11 +505,6 @@ WrapperCreator::create_class_wrapper(Class* _class) Function* function = dynamic_cast (member); if(!function) continue; - if(function->type == Function::CONSTRUCTOR - && !release_hook_created) { - create_class_release_hook(_class); - release_hook_created = true; - } // don't wrap destructors if(function->type == Function::DESTRUCTOR) continue; @@ -273,15 +513,52 @@ WrapperCreator::create_class_wrapper(Class* _class) } void +WrapperCreator::create_squirrel_instance(Class* _class) +{ + out << "void create_squirrel_instance(HSQUIRRELVM v, " + << ns_prefix << _class->name + << "* object, bool setup_releasehook)\n" + << "{\n" + << ind << "using namespace Wrapper;\n" + << "\n" + << ind << "sq_pushroottable(v);\n" + << ind << "sq_pushstring(v, \"" << _class->name << "\", -1);\n" + << ind << "if(SQ_FAILED(sq_get(v, -2))) {\n" + << ind << ind << "std::ostringstream msg;\n" + << ind << ind << "msg << \"Couldn't resolved squirrel type '" + << _class->name << "'\";\n" + << ind << ind << "throw SquirrelError(v, msg.str());\n" + << ind << "}\n" + << "\n" + << ind << "if(SQ_FAILED(sq_createinstance(v, -1)) || " + << "SQ_FAILED(sq_setinstanceup(v, -1, object))) {\n" + << ind << ind << "std::ostringstream msg;\n" + << ind << ind << "msg << \"Couldn't setup squirrel instance for " + << "object of type '" << _class->name << "'\";\n" + << ind << ind << "throw SquirrelError(v, msg.str());\n" + << ind << "}\n" + << ind << "sq_remove(v, -2); // remove object name\n" + << "\n" + << ind << "if(setup_releasehook) {\n" + << ind << ind << "sq_setreleasehook(v, -1, " + << _class->name << "_release_hook);\n" + << ind << "}\n" + << "\n" + << ind << "sq_remove(v, -2); // remove root table\n" + << "}\n" + << "\n"; +} + +void WrapperCreator::create_class_release_hook(Class* _class) { - out << "static int " << _class->name << "_release_hook(SQUserPointer ptr, int )\n" + out << "static SQInteger " << _class->name << "_release_hook(SQUserPointer ptr, SQInteger )\n" << "{\n" - << ind << _class->name - << "* _this = reinterpret_cast<" << _class->name << "*> (ptr);\n" + << ind << ns_prefix << _class->name + << "* _this = reinterpret_cast<" << ns_prefix << _class->name + << "*> (ptr);\n" << ind << "delete _this;\n" << ind << "return 0;\n" << "}\n" << "\n"; } -