// // SqModule: API used to communicate with and register squirrel modules // // // Copyright (c) 2009 Brandon Jones // // This software is provided 'as-is', without any express or implied // warranty. In no event will the authors be held liable for any damages // arising from the use of this software. // // Permission is granted to anyone to use this software for any purpose, // including commercial applications, and to alter it and redistribute it // freely, subject to the following restrictions: // // 1. The origin of this software must not be misrepresented; you must not // claim that you wrote the original software. If you use this software // in a product, an acknowledgment in the product documentation would be // appreciated but is not required. // // 2. Altered source versions must be plainly marked as such, and must not be // misrepresented as being the original software. // // 3. This notice may not be removed or altered from any source // distribution. // #if !defined(_SQ_MODULE_H_) #define _SQ_MODULE_H_ #include "squirrel.h" #ifdef __cplusplus extern "C" { #endif /* HSQAPI */ /* Allows modules to interface with squirrel's C api without linking to the squirrel library If new functions are added to the Squirrel API, they should be added here too */ typedef struct { /*vm*/ HSQUIRRELVM (*open)(SQInteger initialstacksize); HSQUIRRELVM (*newthread)(HSQUIRRELVM friendvm, SQInteger initialstacksize); void (*seterrorhandler)(HSQUIRRELVM v); void (*close)(HSQUIRRELVM v); void (*setforeignptr)(HSQUIRRELVM v,SQUserPointer p); SQUserPointer (*getforeignptr)(HSQUIRRELVM v); #if SQUIRREL_VERSION_NUMBER >= 300 void (*setprintfunc)(HSQUIRRELVM v, SQPRINTFUNCTION printfunc, SQPRINTFUNCTION); #else void (*setprintfunc)(HSQUIRRELVM v, SQPRINTFUNCTION printfunc); #endif SQPRINTFUNCTION (*getprintfunc)(HSQUIRRELVM v); SQRESULT (*suspendvm)(HSQUIRRELVM v); SQRESULT (*wakeupvm)(HSQUIRRELVM v,SQBool resumedret,SQBool retval,SQBool raiseerror,SQBool throwerror); SQInteger (*getvmstate)(HSQUIRRELVM v); /*compiler*/ SQRESULT (*compile)(HSQUIRRELVM v,SQLEXREADFUNC read,SQUserPointer p,const SQChar *sourcename,SQBool raiseerror); SQRESULT (*compilebuffer)(HSQUIRRELVM v,const SQChar *s,SQInteger size,const SQChar *sourcename,SQBool raiseerror); void (*enabledebuginfo)(HSQUIRRELVM v, SQBool enable); void (*notifyallexceptions)(HSQUIRRELVM v, SQBool enable); void (*setcompilererrorhandler)(HSQUIRRELVM v,SQCOMPILERERROR f); /*stack operations*/ void (*push)(HSQUIRRELVM v,SQInteger idx); void (*pop)(HSQUIRRELVM v,SQInteger nelemstopop); void (*poptop)(HSQUIRRELVM v); void (*remove)(HSQUIRRELVM v,SQInteger idx); SQInteger (*gettop)(HSQUIRRELVM v); void (*settop)(HSQUIRRELVM v,SQInteger newtop); #if SQUIRREL_VERSION_NUMBER >= 300 SQRESULT (*reservestack)(HSQUIRRELVM v,SQInteger nsize); #else void (*reservestack)(HSQUIRRELVM v,SQInteger nsize); #endif SQInteger (*cmp)(HSQUIRRELVM v); void (*move)(HSQUIRRELVM dest,HSQUIRRELVM src,SQInteger idx); /*object creation handling*/ SQUserPointer (*newuserdata)(HSQUIRRELVM v,SQUnsignedInteger size); void (*newtable)(HSQUIRRELVM v); void (*newarray)(HSQUIRRELVM v,SQInteger size); void (*newclosure)(HSQUIRRELVM v,SQFUNCTION func,SQUnsignedInteger nfreevars); SQRESULT (*setparamscheck)(HSQUIRRELVM v,SQInteger nparamscheck,const SQChar *typemask); SQRESULT (*bindenv)(HSQUIRRELVM v,SQInteger idx); void (*pushstring)(HSQUIRRELVM v,const SQChar *s,SQInteger len); void (*pushfloat)(HSQUIRRELVM v,SQFloat f); void (*pushinteger)(HSQUIRRELVM v,SQInteger n); void (*pushbool)(HSQUIRRELVM v,SQBool b); void (*pushuserpointer)(HSQUIRRELVM v,SQUserPointer p); void (*pushnull)(HSQUIRRELVM v); SQObjectType (*gettype)(HSQUIRRELVM v,SQInteger idx); SQInteger (*getsize)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*getbase)(HSQUIRRELVM v,SQInteger idx); SQBool (*instanceof)(HSQUIRRELVM v); #if SQUIRREL_VERSION_NUMBER >= 300 SQRESULT (*tostring)(HSQUIRRELVM v,SQInteger idx); #else void (*tostring)(HSQUIRRELVM v,SQInteger idx); #endif void (*tobool)(HSQUIRRELVM v, SQInteger idx, SQBool *b); SQRESULT (*getstring)(HSQUIRRELVM v,SQInteger idx,const SQChar **c); SQRESULT (*getinteger)(HSQUIRRELVM v,SQInteger idx,SQInteger *i); SQRESULT (*getfloat)(HSQUIRRELVM v,SQInteger idx,SQFloat *f); SQRESULT (*getbool)(HSQUIRRELVM v,SQInteger idx,SQBool *b); SQRESULT (*getthread)(HSQUIRRELVM v,SQInteger idx,HSQUIRRELVM *thread); SQRESULT (*getuserpointer)(HSQUIRRELVM v,SQInteger idx,SQUserPointer *p); SQRESULT (*getuserdata)(HSQUIRRELVM v,SQInteger idx,SQUserPointer *p,SQUserPointer *typetag); SQRESULT (*settypetag)(HSQUIRRELVM v,SQInteger idx,SQUserPointer typetag); SQRESULT (*gettypetag)(HSQUIRRELVM v,SQInteger idx,SQUserPointer *typetag); void (*setreleasehook)(HSQUIRRELVM v,SQInteger idx,SQRELEASEHOOK hook); SQChar* (*getscratchpad)(HSQUIRRELVM v,SQInteger minsize); SQRESULT (*getclosureinfo)(HSQUIRRELVM v,SQInteger idx,SQUnsignedInteger *nparams,SQUnsignedInteger *nfreevars); SQRESULT (*setnativeclosurename)(HSQUIRRELVM v,SQInteger idx,const SQChar *name); SQRESULT (*setinstanceup)(HSQUIRRELVM v, SQInteger idx, SQUserPointer p); SQRESULT (*getinstanceup)(HSQUIRRELVM v, SQInteger idx, SQUserPointer *p,SQUserPointer typetag); SQRESULT (*setclassudsize)(HSQUIRRELVM v, SQInteger idx, SQInteger udsize); SQRESULT (*newclass)(HSQUIRRELVM v,SQBool hasbase); SQRESULT (*createinstance)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*setattributes)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*getattributes)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*getclass)(HSQUIRRELVM v,SQInteger idx); void (*weakref)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*getdefaultdelegate)(HSQUIRRELVM v,SQObjectType t); /*object manipulation*/ void (*pushroottable)(HSQUIRRELVM v); void (*pushregistrytable)(HSQUIRRELVM v); void (*pushconsttable)(HSQUIRRELVM v); SQRESULT (*setroottable)(HSQUIRRELVM v); SQRESULT (*setconsttable)(HSQUIRRELVM v); SQRESULT (*newslot)(HSQUIRRELVM v, SQInteger idx, SQBool bstatic); SQRESULT (*deleteslot)(HSQUIRRELVM v,SQInteger idx,SQBool pushval); SQRESULT (*set)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*get)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*rawget)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*rawset)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*rawdeleteslot)(HSQUIRRELVM v,SQInteger idx,SQBool pushval); SQRESULT (*arrayappend)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*arraypop)(HSQUIRRELVM v,SQInteger idx,SQBool pushval); SQRESULT (*arrayresize)(HSQUIRRELVM v,SQInteger idx,SQInteger newsize); SQRESULT (*arrayreverse)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*arrayremove)(HSQUIRRELVM v,SQInteger idx,SQInteger itemidx); SQRESULT (*arrayinsert)(HSQUIRRELVM v,SQInteger idx,SQInteger destpos); SQRESULT (*setdelegate)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*getdelegate)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*clone)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*setfreevariable)(HSQUIRRELVM v,SQInteger idx,SQUnsignedInteger nval); SQRESULT (*next)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*getweakrefval)(HSQUIRRELVM v,SQInteger idx); SQRESULT (*clear)(HSQUIRRELVM v,SQInteger idx); /*calls*/ SQRESULT (*call)(HSQUIRRELVM v,SQInteger params,SQBool retval,SQBool raiseerror); SQRESULT (*resume)(HSQUIRRELVM v,SQBool retval,SQBool raiseerror); const SQChar* (*getlocal)(HSQUIRRELVM v,SQUnsignedInteger level,SQUnsignedInteger idx); const SQChar* (*getfreevariable)(HSQUIRRELVM v,SQInteger idx,SQUnsignedInteger nval); SQRESULT (*throwerror)(HSQUIRRELVM v,const SQChar *err); void (*reseterror)(HSQUIRRELVM v); void (*getlasterror)(HSQUIRRELVM v); /*raw object handling*/ SQRESULT (*getstackobj)(HSQUIRRELVM v,SQInteger idx,HSQOBJECT *po); void (*pushobject)(HSQUIRRELVM v,HSQOBJECT obj); void (*addref)(HSQUIRRELVM v,HSQOBJECT *po); SQBool (*release)(HSQUIRRELVM v,HSQOBJECT *po); void (*resetobject)(HSQOBJECT *po); const SQChar* (*objtostring)(const HSQOBJECT *o); SQBool (*objtobool)(const HSQOBJECT *o); SQInteger (*objtointeger)(const HSQOBJECT *o); SQFloat (*objtofloat)(const HSQOBJECT *o); SQRESULT (*getobjtypetag)(const HSQOBJECT *o,SQUserPointer * typetag); /*GC*/ SQInteger (*collectgarbage)(HSQUIRRELVM v); /*serialization*/ SQRESULT (*writeclosure)(HSQUIRRELVM vm,SQWRITEFUNC writef,SQUserPointer up); SQRESULT (*readclosure)(HSQUIRRELVM vm,SQREADFUNC readf,SQUserPointer up); /*mem allocation*/ void* (*malloc)(SQUnsignedInteger size); void* (*realloc)(void* p,SQUnsignedInteger oldsize,SQUnsignedInteger newsize); void (*free)(void *p,SQUnsignedInteger size); /*debug*/ SQRESULT (*stackinfos)(HSQUIRRELVM v,SQInteger level,SQStackInfos *si); void (*setdebughook)(HSQUIRRELVM v); } sq_api; typedef sq_api* HSQAPI; #ifdef __cplusplus } /*extern "C"*/ #endif #endif /*_SQ_MODULE_H_*/