for(std::vector<AtomicType*>::iterator i = ns->types.begin();
i != ns->types.end(); ++i) {
AtomicType* type = *i;
- Class* _class = dynamic_cast<Class*> (type);
+ Class* _class = dynamic_cast<Class*> (type);
if(_class == 0)
continue;
hppout <<"\n"
<< "}\n"
<< "\n"
- << "#endif\n"
- << "\n";
-
+ << "#endif\n";
+
// cpp header
out << "/**\n"
<< " * WARNING: This file is automatically generated from:\n"
}
out << "} // end of namespace Wrapper\n";
- out << "\n";
for(std::vector<AtomicType*>::iterator i = ns->types.begin();
- i != ns->types.end(); ++i) {
+ i != ns->types.end(); ++i) {
AtomicType* type = *i;
Class* _class = dynamic_cast<Class*> (type);
if(_class != 0)
create_squirrel_instance(_class);
}
-
+
out << "void register_" << modulename << "_wrapper(HSQUIRRELVM v)\n"
<< "{\n"
<< ind << "using namespace Wrapper;\n"
out << "}\n"
<< "\n"
- << "} // end of namespace Scripting\n"
- << "\n";
+ << "} // end of namespace Scripting\n";
}
void
{
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<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";
+ out << "\n";
}
void
for(std::vector<AtomicType*>::iterator i = ns->types.begin();
i != ns->types.end(); ++i) {
AtomicType* type = *i;
- Class* _class = dynamic_cast<Class*> (type);
+ Class* _class = dynamic_cast<Class*> (type);
if(_class == 0)
continue;
if(_class->super_classes.size() > 0)
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;
<< _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";
<< (_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";
create_register_slot_code("class", _class->name);
out << "\n";
-
+
for(std::vector<Class*>::iterator i = _class->sub_classes.begin();
i != _class->sub_classes.end(); ++i) {
Class* _class = *i;
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 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) vm;\n";
}
-
+
// retrieve pointer to class instance
if(_class != 0 && function->type != Function::CONSTRUCTOR) {
- out << ind << ns_prefix << _class->name << "* _this;\n";
- out << ind << "if(SQ_FAILED(sq_getinstanceup(vm, 1, reinterpret_cast<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)
+ if(function->type != Function::FUNCTION)
throw std::runtime_error(
"custom not allow constructor+destructor yet");
- if(function->return_type.atomic_type != &BasicType::INT)
- throw std::runtime_error("custom function has to return int");
+ 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 must have 1 HSQUIRRELVM parameter");
+ "custom function '" + function->name + "' must have 1 HSQUIRRELVM parameter");
out << ind << "return ";
if(_class != 0)
out << "\n";
return;
}
-
+
// declare and retrieve arguments
int i = 0;
int arg_offset = 2;
}
++i;
}
-
+
// call function
- out << ind << "\n";
+ out << "\n";
out << ind << "try {\n";
out << ind << ind;
if(!function->return_type.is_void()) {
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, "
+ 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()) {
out << ind << ind << "return 1;\n";
}
- out << ind << "\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 << ind << "sq_throwerror(vm, _SC(\"Unexpected exception while executing function '" << function->name << "'\"));\n";
out << ind << ind << "return SQ_ERROR;\n";
out << ind << "}\n";
- out << ind << "\n";
-
+ out << "\n";
+
out << "}\n";
out << "\n";
}
} else if(type.atomic_type == &BasicType::BOOL) {
out << "sq_pushbool(vm, " << var << ");\n";
} else if(type.atomic_type == StringType::instance()) {
- out << "sq_pushstring(vm, " << var << ".c_str(), "
+ out << "sq_pushstring(vm, " << var << ".c_str(), "
<< var << ".size());\n";
} else {
std::ostringstream msg;
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"
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";
}
-
projects / supertux.git / blobdiff