The Squirrel interpreter. See http://www.squirrel-lang.org/
squirrel/squserdata.h
- Committer:
- jhnwkmn
- Date:
- 2014-12-16
- Revision:
- 3:7268a3ceaffc
- Parent:
- 0:97a4f8cc534c
File content as of revision 3:7268a3ceaffc:
/* see copyright notice in squirrel.h */ #ifndef _SQUSERDATA_H_ #define _SQUSERDATA_H_ struct SQUserData : SQDelegable { SQUserData(SQSharedState *ss){ _delegate = 0; _hook = NULL; INIT_CHAIN(); ADD_TO_CHAIN(&_ss(this)->_gc_chain, this); } ~SQUserData() { REMOVE_FROM_CHAIN(&_ss(this)->_gc_chain, this); SetDelegate(NULL); } static SQUserData* Create(SQSharedState *ss, SQInteger size) { SQUserData* ud = (SQUserData*)SQ_MALLOC(sq_aligning(sizeof(SQUserData))+size); new (ud) SQUserData(ss); ud->_size = size; ud->_typetag = 0; return ud; } #ifndef NO_GARBAGE_COLLECTOR void Mark(SQCollectable **chain); void Finalize(){SetDelegate(NULL);} SQObjectType GetType(){ return OT_USERDATA;} #endif void Release() { if (_hook) _hook((SQUserPointer)sq_aligning(this + 1),_size); SQInteger tsize = _size; this->~SQUserData(); SQ_FREE(this, sq_aligning(sizeof(SQUserData)) + tsize); } SQInteger _size; SQRELEASEHOOK _hook; SQUserPointer _typetag; //SQChar _val[1]; }; #endif //_SQUSERDATA_H_