5 #include "wrapper_util.hpp"
7 static void register_function(HSQUIRRELVM v, SQFUNCTION func, const char* name)
9 sq_pushstring(v, name, -1);
10 sq_newclosure(v, func, 0); //create a new function
11 if(sq_createslot(v, -3) < 0) {
12 std::stringstream msg;
13 msg << "Couldn't register function '" << name << "'";
14 throw SquirrelError(v, msg.str());
18 static void register_class(HSQUIRRELVM v, WrappedClass* wclass)
20 sq_pushstring(v, wclass->name, -1);
21 sq_newclass(v, false);
22 register_functions(v, wclass->functions);
23 register_constants(v, wclass->int_consts);
24 register_constants(v, wclass->float_consts);
25 register_constants(v, wclass->string_consts);
27 if(sq_createslot(v, -3) < 0) {
28 std::stringstream msg;
29 msg << "Couldn't register function '" << wclass->name << "'";
30 throw SquirrelError(v, msg.str());
34 void register_functions(HSQUIRRELVM v, WrappedFunction* functions)
37 for(WrappedFunction* func = functions; func->name != 0; ++func) {
38 register_function(v, func->f, func->name);
43 void register_classes(HSQUIRRELVM v, WrappedClass* classes)
46 for(WrappedClass* wclass = classes; wclass->name != 0; ++wclass) {
47 register_class(v, wclass);
53 void print_squirrel_stack(HSQUIRRELVM v)
55 printf("--------------------------------------------------------------\n");
56 int count = sq_gettop(v);
57 for(int i = 1; i <= count; ++i) {
59 switch(sq_gettype(v, i))
66 sq_getinteger(v, i, &val);
67 printf("integer (%d)", val);
72 sq_getfloat(v, i, &val);
73 printf("float (%f)", val);
78 sq_getstring(v, i, &val);
79 printf("string (%s)", val);
92 printf("closure(function)");
94 case OT_NATIVECLOSURE:
95 printf("native closure(C function)");
101 printf("userpointer");
113 printf("unknown?!?");
118 printf("--------------------------------------------------------------\n");
121 //----------------------------------------------------------------------------
123 SquirrelError::SquirrelError(HSQUIRRELVM v, const std::string& message) throw()
125 std::ostringstream msg;
126 msg << "SQuirrel error: " << message << " (";
129 if(sq_gettype(v, -1) != OT_STRING) {
130 lasterr = "no error info";
132 sq_getstring(v, -1, &lasterr);
135 msg << lasterr << ")";
136 this->message = msg.str();
139 SquirrelError::~SquirrelError() throw()
143 SquirrelError::what() const throw()
145 return message.c_str();