i am trying use this code below >
Code: Select all
ImportC "squirrel.lib"
sq_open.i(stacksize.l)
sq_pop(*vm,nelementstoppop.i)
sq_close(*vm)
sq_pushroottable(*vm)
sq_pushstring(*vm,f.s,len.i);
sq_get(*vm,idx.i); //get the function from the root table
sq_pushinteger(*vm,ni.i);
sq_pushfloat(*vm,nf.f);
sq_call(*vm,param.i,retval.b,raiseerror.b);
EndImport
ImportC "sqstdlib.lib"
sqstd_dofile(*vm,f.s,retval.b,printerror.b)
sqstd_loadfile(*vm,filename.s,printerror.b)
EndImport
*vm = sq_open(1024)
Debug sq_pushroottable(*vm)
If *vm
Debug sqstd_dofile(*vm,"test1.nut",#False,#True)
Debug sq_pushroottable(*vm);
Debug sq_pushstring(*vm,"foo",-1);
Debug sq_get(*vm,-2); //get the function from the root table
Debug sq_pushroottable(*vm); //’this’ (function environment object)
Debug sq_pushinteger(*vm,1);
Debug sq_pushfloat(*vm,2.0);
Debug sq_pushstring(*vm,"three",-1);
Debug sq_call(*vm,4,#False,#True);
Debug sq_pop(*vm,2);
EndIf
loaded = sqstd_loadfile(*vm,"test.nut",#True )
If loaded
Debug "something happens ;-; "
EndIf
sq_close(*vm)
;Debug sqstd_register_iolib(1)
but , in sq_dofile() return -1
'-' what am i doing wrong ?