static int getInstanceVarInfo(StackHandler & sa,VarRefPtr & vr,SQUserPointer & data) { HSQOBJECT ho = sa.GetObjectHandle(1); SquirrelObject instance(ho); const SQChar * el = sa.GetString(2); ScriptStringVar256 varNameTag; getVarNameTag(varNameTag,sizeof(varNameTag),el); SQUserPointer ivrData=0; if (!instance.RawGetUserData(varNameTag,&ivrData)) { return sa.ThrowError(_SC("getInstanceVarInfo: Could not retrieve UserData")); // Results in variable not being found error. } vr = (VarRefPtr)ivrData; char * up; if (!(vr->m_access & (VAR_ACCESS_STATIC|VAR_ACCESS_CONSTANT))) { SQUserPointer typetag; instance.GetTypeTag(&typetag); #if defined(SQ_USE_CLASS_INHERITANCE) if (typetag != vr->instanceType) { SquirrelObject typeTable = instance.GetValue(SQ_CLASS_OBJECT_TABLE_NAME); up = (char *)typeTable.GetUserPointer(INT((size_t)vr->instanceType)); // <TODO> 64-bit compatible version. if (!up) { throw SquirrelError(_SC("Invalid Instance Type")); } } else { up = (char *)instance.GetInstanceUP(0); } // if #elif defined(SQ_USE_CLASS_INHERITANCE_SIMPLE) ClassTypeBase *ctb = (ClassTypeBase*)vr->instanceType; up = (char *)instance.GetInstanceUP(0); // Walk base classes until type tag match, adjust for inheritence offset while(ctb && typetag!=ctb) { up = (char*)up - ctb->m_offset; ctb = ctb->m_pbase; } if (!ctb) { throw SquirrelError(_SC("Invalid Instance Type")); } #else up = (char *)instance.GetInstanceUP(0); #endif #ifdef SQPLUS_SMARTPOINTER_OPT #define SQPLUS_SMARTPOINTER_INSTANCE_VARINFO #include "SqPlusSmartPointer.h" #endif up += (size_t)vr->offsetOrAddrOrConst; // Offset } else { up = (char *)vr->offsetOrAddrOrConst; // Address } // if data = up; return SQ_OK; } // getInstanceVarInfo
static int getVarInfo(StackHandler & sa,VarRefPtr & vr) { HSQOBJECT htable = sa.GetObjectHandle(1); SquirrelObject table(htable); const SQChar * el = sa.GetString(2); ScriptStringVar256 varNameTag; getVarNameTag(varNameTag,sizeof(varNameTag),el); SQUserPointer data=0; if (!table.RawGetUserData(varNameTag,&data)) { return sa.ThrowError(_SC("getVarInfo: Could not retrieve UserData")); // Results in variable not being found error. } vr = (VarRefPtr)data; return SQ_OK; } // getVarInfo
static SQInteger getVarInfo(StackHandler & sa,VarRefPtr & vr) { HSQOBJECT htable = sa.GetObjectHandle(1); SquirrelObject table(htable); #ifdef _DEBUG SQObjectType type = (SQObjectType)sa.GetType(2); #endif const SQChar * el = sa.GetString(2); ScriptStringVar256 varNameTag; getVarNameTag(varNameTag,sizeof(varNameTag),el); SQUserPointer data=0; if (!table.RawGetUserData(varNameTag,&data)) { // throw SquirrelError("getVarInfo: Could not retrieve UserData"); return sa.ThrowError(sqT("getVarInfo: Could not retrieve UserData")); // Results in variable not being found error. } // if vr = (VarRefPtr)data; return SQ_OK; } // getVarInfo
static int getInstanceVarInfo(StackHandler & sa,VarRefPtr & vr,SQUserPointer & data) { HSQOBJECT ho = sa.GetObjectHandle(1); SquirrelObject instance(ho); #ifdef _DEBUG SQObjectType type = (SQObjectType)sa.GetType(2); #endif const SQChar * el = sa.GetString(2); ScriptStringVar256 varNameTag; getVarNameTag(varNameTag,sizeof(varNameTag),el); SQUserPointer ivrData=0; if (!instance.RawGetUserData(varNameTag,&ivrData)) { // throw SquirrelError("getInstanceVarInfo: Could not retrieve UserData"); return sa.ThrowError(_T("getInstanceVarInfo: Could not retrieve UserData")); // Results in variable not being found error. } // if vr = (VarRefPtr)ivrData; unsigned char * up; if (!(vr->access & (VAR_ACCESS_STATIC|VAR_ACCESS_CONSTANT))) { #ifdef SQ_USE_CLASS_INHERITANCE SQUserPointer typetag; instance.GetTypeTag(&typetag); if (typetag != vr->instanceType) { SquirrelObject typeTable = instance.GetValue(SQ_CLASS_OBJECT_TABLE_NAME); up = (unsigned char *)typeTable.GetUserPointer(INT((size_t)vr->instanceType)); // <TODO> 64-bit compatible version. if (!up) { #if defined( MONASQ ) return sa.ThrowError(_T("Invalid Instance Type")); #else throw SquirrelError(_T("Invalid Instance Type")); #endif } // if } else { up = (unsigned char *)instance.GetInstanceUP(0); } // if #else up = (unsigned char *)instance.GetInstanceUP(0); #endif up += (size_t)vr->offsetOrAddrOrConst; // Offset } else { up = (unsigned char *)vr->offsetOrAddrOrConst; // Address } // if data = up; return SQ_OK; } // getInstanceVarInfo
static int setVar(StackHandler & sa,VarRef * vr,void * data) { if (vr->access & (VAR_ACCESS_READ_ONLY|VAR_ACCESS_CONSTANT)) { ScriptStringVar256 msg; const SQChar * el = sa.GetString(2); SCSNPRINTF(msg.s,sizeof(msg),_T("setVar(): Cannot write to constant: %s"),el); #if defined( MONASQ ) return sa.ThrowError(msg.s); #else throw SquirrelError(msg.s); #endif } // if switch (vr->type) { case TypeInfo<INT>::TypeID: { INT * val = (INT *)data; // Address if (val) { *val = sa.GetInt(3); return sa.Return(*val); } // if break; } // case case TypeInfo<FLOAT>::TypeID: { FLOAT * val = (FLOAT *)data; // Address if (val) { *val = sa.GetFloat(3); return sa.Return(*val); } // if break; } // case case TypeInfo<bool>::TypeID: { bool * val = (bool *)data; // Address if (val) { *val = sa.GetBool(3) ? true : false; return sa.Return(*val); } // if break; } // case case VAR_TYPE_INSTANCE: { HSQUIRRELVM v = sa.GetVMPtr(); // vr->copyFunc is the LHS variable type: the RHS var's type is ClassType<>::type() (both point to ClassType<>::copy()). // src will be null if the LHS and RHS types don't match. SQUserPointer src = sa.GetInstanceUp(3,(SQUserPointer)vr->copyFunc); // Effectively performs: ClassType<>::type() == ClassType<>getCopyFunc(). #if defined( MONASQ ) if (!src) return sa.ThrowError(_T("INSTANCE type assignment mismatch")); #else if (!src) throw SquirrelError(_T("INSTANCE type assignment mismatch")); #endif vr->copyFunc(data,src); #if 0 // Return an instance on the stack (allocates memory) if (!CreateNativeClassInstance(sa.GetVMPtr(),vr->typeName,data,0)) { // data = address ScriptStringVar256 msg; SCSNPRINTF(msg.s,sizeof(msg),_T("getVar(): Could not create instance: %s"),vr->typeName); throw SquirrelError(msg.s); } // if return 1; #else // Don't return on stack. return 0; #endif } case TypeInfo<SQUserPointer>::TypeID: { ScriptStringVar256 msg; const SQChar * el = sa.GetString(2); SCSNPRINTF(msg.s,sizeof(msg),_T("setVar(): Cannot write to an SQUserPointer: %s"),el); #if defined( MONASQ ) return sa.ThrowError(msg.s); #else throw SquirrelError(msg.s); #endif } // case case TypeInfo<ScriptStringVarBase>::TypeID: { ScriptStringVarBase * val = (ScriptStringVarBase *)data; // Address if (val) { const SQChar * strVal = sa.GetString(3); if (strVal) { *val = strVal; return sa.Return(val->s); } // if } // if break; } // case } // switch return SQ_ERROR; } // setVar
static int setVar(StackHandler & sa,VarRef * vr,void * data) { if (vr->m_access & (VAR_ACCESS_READ_ONLY|VAR_ACCESS_CONSTANT)) { const SQChar * el = sa.GetString(2); SCSNPRINTF(g_msg_throw.s,sizeof(g_msg_throw),_SC("setVar(): Cannot write to constant: %s"),el); throw SquirrelError(g_msg_throw.s); } // if switch (vr->m_type) { case TypeInfo<INT>::TypeID: { INT * val = (INT *)data; // Address if (val) { INT v = sa.GetInt(3); // Support for different int sizes switch( vr->m_size ) { case 1: v = (*(char*)val = (char)v); break; case 2: v = (*(short*)val = (short)v); break; #ifdef _SQ64 case 4: v = (*(int*)val = (int)v); break; #endif default: *val = v; } return sa.Return(v); } // if break; } // case case TypeInfo<unsigned>::TypeID: { unsigned * val = (unsigned *)data; // Address if (val) { *val = sa.GetInt(3); return sa.Return(static_cast<INT>(*val)); } // if break; } // case case TypeInfo<FLOAT>::TypeID: { FLOAT * val = (FLOAT *)data; // Address if (val) { *val = sa.GetFloat(3); return sa.Return(*val); } // if break; } // case case TypeInfo<bool>::TypeID: { bool * val = (bool *)data; // Address if (val) { *val = sa.GetBool(3) ? true : false; return sa.Return(*val); } // if break; } // case case VAR_TYPE_INSTANCE: { HSQUIRRELVM v = sa.GetVMPtr(); SQUserPointer src = sa.GetInstanceUp(3,(SQUserPointer)vr->varType); // Effectively performs: ClassType<>::type() == ClassType<>(). if (!src) { throw SquirrelError(_SC("INSTANCE type assignment mismatch")); } vr->varType->vgetCopyFunc()(data,src); return 0; } case TypeInfo<SQUserPointer>::TypeID: { const SQChar * el = sa.GetString(2); SCSNPRINTF(g_msg_throw.s,sizeof(g_msg_throw),_SC("setVar(): Cannot write to an SQUserPointer: %s"),el); throw SquirrelError(g_msg_throw.s); } // case case TypeInfo<ScriptStringVarBase>::TypeID: { ScriptStringVarBase * val = (ScriptStringVarBase *)data; // Address if (val) { const SQChar * strVal = sa.GetString(3); if (strVal) { *val = strVal; return sa.Return(val->s); } // if } // if break; } // case #if defined(SQPLUS_SUPPORT_STD_STRING) && !defined(SQUNICODE) case TypeInfo<std::string>::TypeID: { std::string *val = (std::string*)data; // Address if (val) { const SQChar *strVal = sa.GetString(3); if (strVal) { *val = strVal; return sa.Return(val->c_str()); } // if } // if break; } // case #endif } // switch return SQ_ERROR; } // setVar