自学教程：C++ sq_get函数代码示例

	/*	 * invoke impact event	 */	static SQBool invokeImpactEvent(HSQUIRRELVM v, ContactPoint cp) {		SQBool result = false;		SQInteger top = sq_gettop(v);		sq_pushroottable(v);		sq_pushstring(v, "emo", -1);		if (SQ_SUCCEEDED(sq_get(v, -2))) {			sq_pushstring(v, "_onImpact", -1);			if(SQ_SUCCEEDED(sq_get(v, -2))) {				sq_pushroottable(v);				sq_pushuserpointer(v, cp.fixtureA);				sq_pushuserpointer(v, cp.fixtureB);				sq_pushuserpointer(v, cp.fixtureA->GetBody());				sq_pushuserpointer(v, cp.fixtureB->GetBody());				pushVec2(v, cp.position);				pushVec2(v, cp.normal);				sq_pushfloat(v, cp.normalImpulse);				sq_pushfloat(v, cp.tangentImpulse);				result = SQ_SUCCEEDED(sq_call(v, 9, SQFalse, SQTrue));			}		}		sq_settop(v,top);		return result;	}

/* * create a instance */SQInteger createSQObject(HSQUIRRELVM v, 				const char* package_name, const char* name,				SQUserPointer ptr, SQRELEASEHOOK releaseHook) {	sq_pushroottable(v);		sq_pushstring(v, package_name, -1);	if (!SQ_SUCCEEDED(sq_get(v, -2))) {		sq_pop(v, 1);		return 0;	}	if (name != NULL) {		sq_pushstring(v, name, -1);		if (!SQ_SUCCEEDED(sq_get(v, -2))) {			sq_pop(v, 2);			return 0;		}	}		sq_createinstance(v, -1);	sq_setinstanceup(v, -1, ptr);	if (releaseHook != NULL) {		sq_setreleasehook(v, -1, releaseHook);	}	sq_remove(v, -2);	sq_remove(v, -2);	return 1;}

void init_streamclass(HSQUIRRELVM v){    sq_pushregistrytable(v);    sq_pushstring(v,_SC("std_stream"),-1);    if(SQ_FAILED(sq_get(v,-2))) {        sq_pushstring(v,_SC("std_stream"),-1);        sq_newclass(v,SQFalse);        sq_settypetag(v,-1,(SQUserPointer)SQSTD_STREAM_TYPE_TAG);        SQInteger i = 0;        while(_stream_methods[i].name != 0) {            const SQRegFunction &f = _stream_methods[i];            sq_pushstring(v,f.name,-1);            sq_newclosure(v,f.f,0);            sq_setparamscheck(v,f.nparamscheck,f.typemask);            sq_newslot(v,-3,SQFalse);            i++;        }        sq_newslot(v,-3,SQFalse);        sq_pushroottable(v);        sq_pushstring(v,_SC("stream"),-1);        sq_pushstring(v,_SC("std_stream"),-1);        sq_get(v,-4);        sq_newslot(v,-3,SQFalse);        sq_pop(v,1);    }    else {        sq_pop(v,1); //result    }    sq_pop(v,1);}

/* * Register member method with namespace * Must be called before loading script files */void register_member_func_with_namespace(HSQUIRRELVM v, const char* nname, const char* cname, const char* fname, SQFUNCTION func) {    sq_pushroottable(v);    sq_pushstring(v, nname, -1);    if(SQ_SUCCEEDED(sq_get(v, -2))) {        sq_pushstring(v, cname, -1);        if(SQ_SUCCEEDED(sq_get(v, -2))) {            sq_pushstring(v, fname, -1);            sq_newclosure(v, func, 0);            sq_newslot(v, -3, true);        }    }    sq_pop(v, 1);}

SQRESULT declare_stream(HSQUIRRELVM v,const SQChar* name,SQUserPointer typetag,const SQChar* reg_name,const SQRegFunction *methods,const SQRegFunction *globals){    if(sq_gettype(v,-1) != OT_TABLE)        return sq_throwerror(v,_SC("table expected"));    SQInteger top = sq_gettop(v);    //create delegate    init_streamclass(v);    sq_pushregistrytable(v);    sq_pushstring(v,reg_name,-1);    sq_pushstring(v,_SC("std_stream"),-1);    if(SQ_SUCCEEDED(sq_get(v,-3))) {        sq_newclass(v,SQTrue);        sq_settypetag(v,-1,typetag);        SQInteger i = 0;        while(methods[i].name != 0) {            const SQRegFunction &f = methods[i];            sq_pushstring(v,f.name,-1);            sq_newclosure(v,f.f,0);            sq_setparamscheck(v,f.nparamscheck,f.typemask);            sq_setnativeclosurename(v,-1,f.name);            sq_newslot(v,-3,SQFalse);            i++;        }        sq_newslot(v,-3,SQFalse);        sq_pop(v,1);        i = 0;        while(globals[i].name!=0)        {            const SQRegFunction &f = globals[i];            sq_pushstring(v,f.name,-1);            sq_newclosure(v,f.f,0);            sq_setparamscheck(v,f.nparamscheck,f.typemask);            sq_setnativeclosurename(v,-1,f.name);            sq_newslot(v,-3,SQFalse);            i++;        }        //register the class in the target table        sq_pushstring(v,name,-1);        sq_pushregistrytable(v);        sq_pushstring(v,reg_name,-1);        sq_get(v,-2);        sq_remove(v,-2);        sq_newslot(v,-3,SQFalse);        sq_settop(v,top);        return SQ_OK;    }    sq_settop(v,top);    return SQ_ERROR;}

	inline SQInteger DefSQAdvancedNonStaticCallback(HSQUIRRELVM vm)	{		/* Find the amount of params we got */		int nparam = sq_gettop(vm);		SQUserPointer ptr = NULL;		SQUserPointer real_instance = NULL;		HSQOBJECT instance;		/* Get the 'SQ' instance of this class */		Squirrel::GetInstance(vm, &instance);		/* Protect against calls to a non-static method in a static way */		sq_pushroottable(vm);		sq_pushstring(vm, OTTD2SQ(Tcls::GetClassName()), -1);		sq_get(vm, -2);		sq_pushobject(vm, instance);		if (sq_instanceof(vm) != SQTrue) return sq_throwerror(vm, _SC("class method is non-static"));		sq_pop(vm, 3);		/* Get the 'real' instance of this class */		sq_getinstanceup(vm, 1, &real_instance, 0);		/* Get the real function pointer */		sq_getuserdata(vm, nparam, &ptr, 0);		if (real_instance == NULL) return sq_throwerror(vm, _SC("couldn't detect real instance of class for non-static call"));		/* Remove the userdata from the stack */		sq_pop(vm, 1);		/* Call the function, which its only param is always the VM */		return (SQInteger)(((Tcls *)real_instance)->*(*(Tmethod *)ptr))(vm);	}

	inline SQInteger DefSQNonStaticCallback(HSQUIRRELVM vm)	{		/* Find the amount of params we got */		int nparam = sq_gettop(vm);		SQUserPointer ptr = NULL;		SQUserPointer real_instance = NULL;		HSQOBJECT instance;		/* Get the 'SQ' instance of this class */		Squirrel::GetInstance(vm, &instance);		/* Protect against calls to a non-static method in a static way */		sq_pushroottable(vm);		sq_pushstring(vm, OTTD2SQ(Tcls::GetClassName()), -1);		sq_get(vm, -2);		sq_pushobject(vm, instance);		if (sq_instanceof(vm) != SQTrue) return sq_throwerror(vm, _SC("class method is non-static"));		sq_pop(vm, 3);		/* Get the 'real' instance of this class */		sq_getinstanceup(vm, 1, &real_instance, 0);		/* Get the real function pointer */		sq_getuserdata(vm, nparam, &ptr, 0);		if (real_instance == NULL) return sq_throwerror(vm, _SC("couldn't detect real instance of class for non-static call"));		/* Remove the userdata from the stack */		sq_pop(vm, 1);		try {			/* Delegate it to a template that can handle this specific function */			return HelperT<Tmethod>::SQCall((Tcls *)real_instance, *(Tmethod *)ptr, vm);		} catch (SQInteger e) {			sq_pop(vm, nparam);			return e;		}	}

bool has_float(HSQUIRRELVM vm, const char* name){  sq_pushstring(vm, name, -1);  if (SQ_FAILED(sq_get(vm, -2))) return false;  sq_pop(vm, 1);  return true;}

void CSquirrelVM::BeginRegisterScriptClass(const char* className, scriptFunction pfnFunction, void* userPointer, const char* baseClass){	iFuncIndex = 0;#if 1	int n = 0;	oldtop = sq_gettop(m_pVM);	sq_pushroottable(m_pVM);	sq_pushstring(m_pVM, className, -1);	if(baseClass) {		sq_pushstring(m_pVM, baseClass, -1);		if(SQ_FAILED(sq_get(m_pVM, -3))) { // make sure base exists			sq_settop(m_pVM, oldtop);			return;		}	}	if(SQ_FAILED(sq_newclass(m_pVM, baseClass ? 1 : 0))) {		sq_settop(m_pVM, oldtop);		return;	}	sq_pushstring(m_pVM, _SC("constructor"), -1);	if (userPointer != nullptr)	{		sq_pushuserpointer(m_pVM, userPointer);		sq_newclosure(m_pVM, (SQFUNCTION) pfnFunction, 1);	}	else		sq_newclosure(m_pVM, (SQFUNCTION)pfnFunction, 0);	sq_newslot(m_pVM, -3, false); // Add the constructor method#endif}

bool Squirrel::CallMethod(HSQOBJECT instance, const char *method_name, HSQOBJECT *ret, int suspend){	assert(!this->crashed);	/* Store the stack-location for the return value. We need to	 * restore this after saving or the stack will be corrupted	 * if we're in the middle of a DoCommand. */	SQInteger last_target = this->vm->_suspended_target;	/* Store the current top */	int top = sq_gettop(this->vm);	/* Go to the instance-root */	sq_pushobject(this->vm, instance);	/* Find the function-name inside the script */	sq_pushstring(this->vm, OTTD2SQ(method_name), -1);	if (SQ_FAILED(sq_get(this->vm, -2))) {		DEBUG(misc, 0, "[squirrel] Could not find '%s' in the class", method_name);		sq_settop(this->vm, top);		return false;	}	/* Call the method */	sq_pushobject(this->vm, instance);	if (SQ_FAILED(sq_call(this->vm, 1, ret == NULL ? SQFalse : SQTrue, SQTrue, suspend))) return false;	if (ret != NULL) sq_getstackobj(vm, -1, ret);	/* Reset the top, but don't do so for the AI main function, as we need	 *  a correct stack when resuming. */	if (suspend == -1 || !this->IsSuspended()) sq_settop(this->vm, top);	/* Restore the return-value location. */	this->vm->_suspended_target = last_target;	return true;}

/** * squirrel から吉里吉里オブジェクトを取得 */boolTJSObject::getVariant(HSQUIRRELVM v, SQInteger idx, tTJSVariant *variant){    if (sq_gettype(v, idx) == OT_CLASS) {        if (idx < 0) {            idx = sq_gettop(v) + 1 + idx;        }        bool ret = false;        // クラス属性からオブジェクト情
C++ sq_getinteger函数代码示例
C++ sq_createslot函数代码示例