5 #include "wrapper_util.h"
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
14 static void register_class(HSQUIRRELVM v, WrappedClass* wclass)
16 sq_pushstring(v, wclass->name, -1);
17 sq_newclass(v, false);
18 for(WrappedFunction* func = wclass->functions; func->name != 0; ++func) {
19 register_function(v, func->f, func->name);
24 void register_functions(HSQUIRRELVM v, WrappedFunction* functions)
27 for(WrappedFunction* func = functions; func->name != 0; ++func) {
28 register_function(v, func->f, func->name);
33 void register_classes(HSQUIRRELVM v, WrappedClass* classes)
36 for(WrappedClass* wclass = classes; wclass->name != 0; ++wclass) {
37 register_class(v, wclass);
42 static void print_stack(HSQUIRRELVM v)
44 printf("--------------------------------------------------------------\n");
45 int count = sq_gettop(v);
46 for(int i = 1; i <= count; ++i) {
48 switch(sq_gettype(v, i))
55 sq_getinteger(v, i, &val);
56 printf("integer (%d)", val);
61 sq_getfloat(v, i, &val);
62 printf("float (%f)", val);
67 sq_getstring(v, i, &val);
68 printf("string (%s)", val);
81 printf("closure(function)");
83 case OT_NATIVECLOSURE:
84 printf("native closure(C function)");
90 printf("userpointer");
104 printf("--------------------------------------------------------------\n");
109 std::stringstream msg; \
110 sq_getlasterror(v); \
112 sq_getstring(v, -1, &error); \
113 msg << "Error: " << error; \
114 throw std::runtime_error(msg.str()); \
117 void expose_object(HSQUIRRELVM v, void* object, const char* type,
120 // part1 of registration of the instance in the root table
122 sq_pushstring(v, name, -1);
124 // resolve class name
126 sq_pushstring(v, type, -1);
128 if(sq_get(v, -2) < 0) {
129 std::ostringstream msg;
130 msg << "Couldn't resolve squirrel type '" << type << "'.";
131 throw std::runtime_error(msg.str());
133 sq_remove(v, -2); // remove roottable
136 // create an instance and set pointer to c++ object
138 check(sq_createinstance(v, -1));
139 printf("after creatinstance\n");
141 check(sq_setinstanceup(v, -1, object));
142 printf("after setinstanceup\n");
145 sq_remove(v, -2); // remove class
147 // part2 of registration of the instance in the root table
149 check(sq_createslot(v, -3));