static SQInteger table_setdelegate(HSQUIRRELVM v)
{
if(SQ_FAILED(sq_setdelegate(v,-2)))
return SQ_ERROR;
sq_push(v,-1); // -1 because sq_setdelegate pops 1
return 1;
}
static SQInteger sq_lib_bind_var(HSQUIRRELVM v)
{
void **modbuf;
void *mod;
void *sym;
const SQChar *symname;
const char *type;
sq_getuserdata(v, 1, (void**)&modbuf, NULL);
mod = *modbuf;
sq_getstring(v, 2, &type);
sq_getstring(v, 3, &symname);
sym = GET_SYM(mod, symname);
if (!sym)
return sq_throwerror(v, "Cannot find symbol");
FFIVar *ffibuf = (FFIVar*)sq_newuserdata(v, sizeof(FFIVar));
sq_push_delegate_table(v, FFI_LIB_VAR_TAG);
sq_setdelegate(v, -2);
ffibuf->var = sym;
ffibuf->type = *type;
return 1;
}
void SquirrelThread::initThread(HSQUIRRELVM parentVm)
{
m_oldTop = -1;
m_parentVm = parentVm;
createThread();
// create a local environment for the m_thread
HSQOBJECT env;
sq_resetobject(&env);
sq_newtable(m_thread);
// store the object in env
if(sq_getstackobj(m_thread, -1, &env) < 0)
{ return; }
sq_addref(m_thread, &env);
sq_pop(m_thread, 1); // remove env from stack
// set old roottable as delegate on env
sq_pushobject(m_thread, env); // push env
sq_pushroottable(m_thread); // [env, root]
sq_setdelegate(m_thread, -2); // env.set_delegate(root)
sq_pop(m_thread, 1); // pop env
// set env as new roottable
sq_pushobject(m_thread, env);
sq_setroottable(m_thread);
sq_release(m_thread, &env);
}
BOOL SbuCreateStaticNamespace(HSQUIRRELVM v,ScriptNamespaceDecl *sn)
{
int n = 0;
sq_pushroottable(v);
sq_pushstring(v,sn->name,-1);
sq_newtable(v);
const ScriptClassMemberDecl *members = sn->members;
const ScriptClassMemberDecl *m = NULL;
while(members[n].name) {
m = &members[n];
sq_pushstring(v,m->name,-1);
sq_newclosure(v,m->func,0);
sq_setparamscheck(v,m->params,m->typemask);
sq_setnativeclosurename(v,-1,m->name);
sq_createslot(v,-3);
n++;
}
const ScriptConstantDecl *consts = sn->constants;
const ScriptConstantDecl *c = NULL;
n = 0;
while(consts[n].name) {
c = &consts[n];
sq_pushstring(v,c->name,-1);
switch(c->type) {
case OT_STRING: sq_pushstring(v,c->val.s,-1);break;
case OT_INTEGER: sq_pushinteger(v,c->val.i);break;
case OT_FLOAT: sq_pushfloat(v,c->val.f);break;
}
sq_createslot(v,-3);
n++;
}
if(sn->delegate) {
const ScriptClassMemberDecl *members = sn->delegate;
const ScriptClassMemberDecl *m = NULL;
sq_newtable(v);
while(members[n].name) {
m = &members[n];
sq_pushstring(v,m->name,-1);
sq_newclosure(v,m->func,0);
sq_setparamscheck(v,m->params,m->typemask);
sq_setnativeclosurename(v,-1,m->name);
sq_createslot(v,-3);
n++;
}
sq_setdelegate(v,-2);
}
sq_createslot(v,-3);
sq_pop(v,1);
return TRUE;
}
static SQInteger sq_ffi_load(HSQUIRRELVM v)
{
const SQChar *fname;
sq_getstring(v, 2, &fname);
void *mod = OPEN_LIB(fname);
if (!mod)
return sq_throwerror(v, "Cannot load library");
sq_pushuserpointer(v, mod);
void **p = (void**)sq_newuserdata(v, sizeof(mod));
*p = mod;
sq_push_delegate_table(v, FFI_LIB_LIB_TAG);
sq_setdelegate(v, -2);
return 1;
}
BOOL SquirrelObject::SetDelegate(SquirrelObject &obj)
{
if(obj.GetType() == OT_TABLE ||
obj.GetType() == OT_NULL) {
switch(_o._type) {
case OT_USERDATA:
case OT_TABLE:
sq_pushobject(m_Vm.GetVMPtr(),_o);
sq_pushobject(m_Vm.GetVMPtr(),obj._o);
if(SQ_SUCCEEDED(sq_setdelegate(m_Vm.GetVMPtr(),-2)))
return TRUE;
break;
}
}
return FALSE;
}
static SQInteger sq_lib_bind_func(HSQUIRRELVM v)
{
void **modbuf;
void *mod;
void *sym;
const SQChar *symname;
const char *rettype;
sq_getuserdata(v, 1, (void**)&modbuf, NULL);
mod = *modbuf;
sq_getstring(v, 2, &rettype);
sq_getstring(v, 3, &symname);
sym = GET_SYM(mod, symname);
if (!sym)
return sq_throwerror(v, "Cannot find symbol");
int nparam = sq_getsize(v, 4);
int size = sizeof(FFIFunc) + sizeof(ffi_type*) * nparam;
FFIFunc *ffibuf = (FFIFunc*)sq_newuserdata(v, size);
sq_push_delegate_table(v, FFI_LIB_FUNC_TAG);
sq_setdelegate(v, -2);
// printf("Allocated %d bytes at %p\n", size, ffibuf);
ffibuf->func = sym;
ffibuf->rettype = *rettype;
int i;
for (i = 0; i < nparam; i++) {
sq_pushinteger(v, i);
sq_get(v, 4);
ffibuf->params[i] = get_ffi_type(v, -1);
if (!ffibuf->params[i])
return SQ_ERROR;
sq_poptop(v);
}
int res = ffi_prep_cif(&ffibuf->cif, FFI_DEFAULT_ABI, nparam, char2ffi_type(*rettype), ffibuf->params);
if (res != FFI_OK)
return sq_throwerror(v, "Error in ffi_prep_cif");
return 1;
}
static SQInteger sq_ffi_setdelegate(HSQUIRRELVM v)
{
if (SQ_FAILED(sq_setdelegate(v, 2)))
return SQ_ERROR;
return 0;
}
