X-Git-Url: https://git.verplant.org/?a=blobdiff_plain;f=tools%2Fminiswig%2Fcreate_wrapper.cpp;h=826a9aba88138a079fb8d92ce8a2f43aaa28283e;hb=2b318b2284a78ae34a6752a807c4eb7b5632299c;hp=1fba6e7bc1ab3555f1b35954e97bbd96ca652eac;hpb=8f82a8e619346be81a3c1bf943baf68953f1f4e7;p=supertux.git diff --git a/tools/miniswig/create_wrapper.cpp b/tools/miniswig/create_wrapper.cpp index 1fba6e7bc..826a9aba8 100644 --- a/tools/miniswig/create_wrapper.cpp +++ b/tools/miniswig/create_wrapper.cpp @@ -1,9 +1,13 @@ +#include + #include "tree.hpp" +#include "create_wrapper.hpp" +#include "globals.hpp" + #include #include #include -#include "create_wrapper.hpp" -#include "globals.hpp" +#include void WrapperCreator::create_wrapper(Namespace* ns) @@ -22,14 +26,10 @@ WrapperCreator::create_wrapper(Namespace* ns) << " * '" << fromfile << "'\n" << " * DO NOT CHANGE\n" << " */\n" - << "#ifndef __" << modulename << "_WRAPPER_H__\n" - << "#define __" << modulename << "_WRAPPER_H__\n" - << "\n" - << "#include \n" - << "#include \"wrapper.interface.hpp\"\n" + << "#ifndef HEADER_SUPERTUX_SCRIPTING_WRAPPER_HPP\n" //TODO avoid hardcoding + << "#define HEADER_SUPERTUX_SCRIPTING_WRAPPER_HPP\n" << "\n" - << "namespace SquirrelWrapper\n" - << "{\n" + << "namespace Scripting {\n" << "\n"; hppout << "void register_" << modulename << "_wrapper(HSQUIRRELVM v);\n" @@ -38,10 +38,11 @@ WrapperCreator::create_wrapper(Namespace* ns) for(std::vector::iterator i = ns->types.begin(); i != ns->types.end(); ++i) { AtomicType* type = *i; - Class* _class = dynamic_cast (type); + 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"; @@ -50,25 +51,23 @@ WrapperCreator::create_wrapper(Namespace* ns) << "}\n" << "\n" << "#endif\n" - << "\n"; - + << "\n" + << "/* EOF */\n"; + // cpp header out << "/**\n" << " * WARNING: This file is automatically generated from:\n" << " * '" << fromfile << "'\n" << " * DO NOT CHANGE\n" << " */\n" - << "#include \n" << "\n" - << "#include \n" - << "#include \n" - << "#include \n" - << "#include \n" - << "#include \"wrapper_util.hpp\"\n" - << "#include \"wrapper.interface.hpp\"\n" + << "#include \n" << "\n" - << "namespace SquirrelWrapper\n" - << "{\n" + << "#include \"scripting/squirrel_error.hpp\"\n" + << "#include \"scripting/wrapper.interface.hpp\"\n" + << "\n" + << "namespace Scripting {\n" + << "namespace Wrapper {\n" << "\n"; for(std::vector::iterator i = ns->types.begin(); @@ -83,19 +82,30 @@ WrapperCreator::create_wrapper(Namespace* ns) create_function_wrapper(0, *i); } + 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 << "sq_pushroottable(v);\n"; + << ind << "using namespace Wrapper;\n" + << "\n"; create_register_constants_code(ns); create_register_functions_code(ns); create_register_classes_code(ns); - out << ind << "sq_pop(v, 1);\n" - << "}\n" + out << "}\n" << "\n" - << "}\n" - << "\n"; + << "} // end of namespace Scripting\n" + << "\n" + << "/* EOF */\n"; } void @@ -103,13 +113,50 @@ 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 + 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"; + out << "\n"; } void @@ -128,7 +175,7 @@ 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); + Class* _class = dynamic_cast (type); if(_class == 0) continue; if(_class->super_classes.size() > 0) @@ -142,9 +189,9 @@ void WrapperCreator::create_register_class_code(Class* _class) { out << ind << "// Register class " << _class->name << "\n"; - out << ind << "sq_pushstring(v, \"" - << _class->name << "\", -1);\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; @@ -152,7 +199,7 @@ WrapperCreator::create_register_class_code(Class* _class) << _class->name << "')"; throw std::runtime_error(msg.str()); } - + out << ind << "sq_pushstring(v, \"" << _class->super_classes[0]->name << "\", -1);\n"; out << ind << "sq_get(v, -3);\n"; @@ -161,7 +208,7 @@ WrapperCreator::create_register_class_code(Class* _class) << (_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 '" + out << ind << ind << "msg << \"Couldn't create new class '" << _class->name << "'\";\n"; out << ind << ind << "throw SquirrelError(v, msg.str());\n"; out << ind << "}\n"; @@ -183,7 +230,7 @@ WrapperCreator::create_register_class_code(Class* _class) 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; @@ -225,11 +272,9 @@ void WrapperCreator::create_register_slot_code(const std::string& what, const std::string& name) { - out << ind << "if(sq_createslot(v, -3) < 0) {\n"; - out << ind << ind << "std::ostringstream msg;\n"; - out << ind << ind << "msg << \"Couldn't register " << what << "'" - << name << "'\";\n"; - out << ind << ind << "throw SquirrelError(v, msg.str());\n"; + 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"; } @@ -245,32 +290,58 @@ 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"; + out << ind << "HSQUIRRELVM arg0 = vm;\n"; arg_offset--; } else { char argname[64]; @@ -279,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 = "; @@ -304,15 +376,30 @@ 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->suspend) { if(!function->return_type.is_void()) { @@ -321,13 +408,24 @@ WrapperCreator::create_function_wrapper(Class* _class, Function* function) << " but has a return value."; throw std::runtime_error(msg.str()); } - out << ind << "return sq_suspendvm(v);\n"; + out << ind << ind << "return sq_suspendvm(vm);\n"; } else if(function->return_type.is_void()) { - out << ind << "return 0;\n"; + 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"; } @@ -341,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."; @@ -366,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; @@ -387,7 +497,6 @@ void WrapperCreator::create_class_wrapper(Class* _class) { create_class_release_hook(_class); - create_squirrel_instance(_class); for(std::vector::iterator i = _class->members.begin(); i != _class->members.end(); ++i) { ClassMember* member = *i; @@ -407,44 +516,49 @@ void WrapperCreator::create_squirrel_instance(Class* _class) { out << "void create_squirrel_instance(HSQUIRRELVM v, " - << ns_prefix << _class->name + << 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_get(v, -2) < 0) {\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_createinstance(v, -1) < 0 || " - << "sq_setinstanceup(v, -1, object) < 0) {\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);\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"; + << "\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 << ns_prefix << _class->name - << "* _this = reinterpret_cast<" << ns_prefix << _class->name + << ind << ns_prefix << _class->name + << "* _this = reinterpret_cast<" << ns_prefix << _class->name << "*> (ptr);\n" << ind << "delete _this;\n" << ind << "return 0;\n" << "}\n" << "\n"; } -