#include <config.h>
#include "tree.hpp"
+#include "create_wrapper.hpp"
+#include "globals.hpp"
+
#include <iostream>
#include <sstream>
#include <stdexcept>
-#include "create_wrapper.hpp"
-#include "globals.hpp"
+#include <stdio.h>
void
WrapperCreator::create_wrapper(Namespace* ns)
<< " * '" << fromfile << "'\n"
<< " * DO NOT CHANGE\n"
<< " */\n"
- << "#ifndef __" << modulename << "_WRAPPER_H__\n"
- << "#define __" << modulename << "_WRAPPER_H__\n"
+ << "#ifndef HEADER_SUPERTUX_SCRIPTING_WRAPPER_HPP\n" //TODO avoid hardcoding
+ << "#define HEADER_SUPERTUX_SCRIPTING_WRAPPER_HPP\n"
<< "\n"
- << "#include <squirrel.h>\n"
- << "#include \"wrapper.interface.hpp\"\n"
- << "\n"
- << "namespace Scripting\n"
- << "{\n"
+ << "namespace Scripting {\n"
<< "\n";
hppout << "void register_" << modulename << "_wrapper(HSQUIRRELVM v);\n"
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";
<< "}\n"
<< "\n"
<< "#endif\n"
- << "\n";
+ << "\n"
+ << "/* EOF */\n";
// cpp header
out << "/**\n"
<< " * '" << fromfile << "'\n"
<< " * DO NOT CHANGE\n"
<< " */\n"
- << "#include <config.h>\n"
<< "\n"
- << "#include <new>\n"
- << "#include <assert.h>\n"
- << "#include <string>\n"
<< "#include <sstream>\n"
- << "#include <squirrel.h>\n"
- << "#include \"squirrel_error.hpp\"\n"
- << "#include \"wrapper.interface.hpp\"\n"
<< "\n"
- << "namespace Scripting\n"
- << "{\n"
- << "namespace Wrapper\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<AtomicType*>::iterator i = ns->types.begin();
out << "}\n"
<< "\n"
- << "} // end of namespace Scripting\n";
+ << "} // end of namespace Scripting\n"
+ << "\n"
+ << "/* EOF */\n";
}
void
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<Parameter>::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";
}
// retrieve pointer to class instance
if(_class != 0 && function->type != Function::CONSTRUCTOR) {
out << ind << "SQUserPointer data;\n";
- out << ind << "if(SQ_FAILED(sq_getinstanceup(vm, 1, &data, 0))) {\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";
// custom function?
if(function->custom) {
- if(function->type != Function::FUNCTION)
+ 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 has to return SQInteger");
+ throw std::runtime_error("custom function '" + function->name + "' has to return SQInteger");
if(function->parameters.size() != 1)
throw std::runtime_error(
- "custom function must have 1 HSQUIRRELVM parameter");
+ "custom function '" + function->name + "' must have 1 HSQUIRRELVM parameter");
out << ind << "return ";
if(_class != 0)