/*** $Id: lobject.h,v 2.20 2006/01/18 11:37:34 roberto Exp $** Type definitions for Lua objects** See Copyright Notice in lua.h*/#ifndef lobject_h#define lobject_h#include <stdarg.h>#include "llimits.h"#include "lua.h"/* tags for values visible from Lua */#define LAST_TAG	LUA_TTHREAD#define NUM_TAGS	(LAST_TAG+1)/*** Extra tags for non-values*/#define LUA_TPROTO	(LAST_TAG+1)#define LUA_TUPVAL	(LAST_TAG+2)#define LUA_TDEADKEY	(LAST_TAG+3)/*** Union of all collectable objects*/typedef union GCObject GCObject;/*** Common Header for all collectable objects (in macro form, to be** included in other objects)*/#define CommonHeader	GCObject *next; lu_byte tt; lu_byte marked/*** Common header in struct form*/typedef struct GCheader {  CommonHeader;} GCheader;/*** Union of all Lua values*/typedef union {  GCObject *gc;  void *p;  lua_Number n;  int b;} Value;/*** Tagged Values*/#define TValuefields	Value value; int tttypedef struct lua_TValue {  TValuefields;} TValue;/* Macros to test type */#define ttisnil(o)	(ttype(o) == LUA_TNIL)#define ttisnumber(o)	(ttype(o) == LUA_TNUMBER)#define ttisstring(o)	(ttype(o) == LUA_TSTRING)#define ttistable(o)	(ttype(o) == LUA_TTABLE)#define ttisfunction(o)	(ttype(o) == LUA_TFUNCTION)#define ttisboolean(o)	(ttype(o) == LUA_TBOOLEAN)#define ttisuserdata(o)	(ttype(o) == LUA_TUSERDATA)#define ttisthread(o)	(ttype(o) == LUA_TTHREAD)#define ttislightuserdata(o)	(ttype(o) == LUA_TLIGHTUSERDATA)/* Macros to access values */#define ttype(o)	((o)->tt)#define gcvalue(o)	check_exp(iscollectable(o), (o)->value.gc)#define pvalue(o)	check_exp(ttislightuserdata(o), (o)->value.p)#define nvalue(o)	check_exp(ttisnumber(o), (o)->value.n)#define rawtsvalue(o)	check_exp(ttisstring(o), &(o)->value.gc->ts)#define tsvalue(o)	(&rawtsvalue(o)->tsv)#define rawuvalue(o)	check_exp(ttisuserdata(o), &(o)->value.gc->u)#define uvalue(o)	(&rawuvalue(o)->uv)#define clvalue(o)	check_exp(ttisfunction(o), &(o)->value.gc->cl)#define hvalue(o)	check_exp(ttistable(o), &(o)->value.gc->h)#define bvalue(o)	check_exp(ttisboolean(o), (o)->value.b)#define thvalue(o)	check_exp(ttisthread(o), &(o)->value.gc->th)#define l_isfalse(o)	(ttisnil(o) || (ttisboolean(o) && bvalue(o) == 0))/*** for internal debug only*/#define checkconsistency(obj) \  lua_assert(!iscollectable(obj) || (ttype(obj) == (obj)->value.gc->gch.tt))#define checkliveness(g,obj) \  lua_assert(!iscollectable(obj) || \  ((ttype(obj) == (obj)->value.gc->gch.tt) && !isdead(g, (obj)->value.gc)))/* Macros to set values */#define setnilvalue(obj) ((obj)->tt=LUA_TNIL)#define setnvalue(obj,x) \  { TValue *i_o=(obj); i_o->value.n=(x); i_o->tt=LUA_TNUMBER; }#define setpvalue(obj,x) \  { TValue *i_o=(obj); i_o->value.p=(x); i_o->tt=LUA_TLIGHTUSERDATA; }#define setbvalue(obj,x) \  { TValue *i_o=(obj); i_o->value.b=(x); i_o->tt=LUA_TBOOLEAN; }#define setsvalue(L,obj,x) \  { TValue *i_o=(obj); \    i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TSTRING; \    checkliveness(G(L),i_o); }#define setuvalue(L,obj,x) \  { TValue *i_o=(obj); \    i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TUSERDATA; \    checkliveness(G(L),i_o); }#define setthvalue(L,obj,x) \  { TValue *i_o=(obj); \    i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TTHREAD; \    checkliveness(G(L),i_o); }#define setclvalue(L,obj,x) \  { TValue *i_o=(obj); \    i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TFUNCTION; \    checkliveness(G(L),i_o); }#define sethvalue(L,obj,x) \  { TValue *i_o=(obj); \    i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TTABLE; \    checkliveness(G(L),i_o); }#define setptvalue(L,obj,x) \  { TValue *i_o=(obj); \    i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TPROTO; \    checkliveness(G(L),i_o); }#define setobj(L,obj1,obj2) \  { const TValue *o2=(obj2); TValue *o1=(obj1); \    o1->value = o2->value; o1->tt=o2->tt; \    checkliveness(G(L),o1); }/*** different types of sets, according to destination*//* from stack to (same) stack */#define setobjs2s	setobj/* to stack (not from same stack) */#define setobj2s	setobj#define setsvalue2s	setsvalue#define sethvalue2s	sethvalue#define setptvalue2s	setptvalue/* from table to same table */#define setobjt2t	setobj/* to table */#define setobj2t	setobj/* to new object */#define setobj2n	setobj#define setsvalue2n	setsvalue#define setttype(obj, tt) (ttype(obj) = (tt))#define iscollectable(o)	(ttype(o) >= LUA_TSTRING)typedef TValue *StkId;  /* index to stack elements *//*** String headers for string table*/typedef union TString {  L_Umaxalign dummy;  /* ensures maximum alignment for strings */  struct {    CommonHeader;    lu_byte reserved;    unsigned int hash;    size_t len;  } tsv;} TString;#define getstr(ts)	cast(const char *, (ts) + 1)#define svalue(o)       getstr(tsvalue(o))typedef union Udata {  L_Umaxalign dummy;  /* ensures maximum alignment for `local' udata */  struct {    CommonHeader;    struct Table *metatable;    struct Table *env;    size_t len;  } uv;} Udata;/*** Function Prototypes*/typedef struct Proto {  CommonHeader;  TValue *k;  /* constants used by the function */  Instruction *code;  struct Proto **p;  /* functions defined inside the function */  int *lineinfo;  /* map from opcodes to source lines */  struct LocVar *locvars;  /* information about local variables */  TString **upvalues;  /* upvalue names */  TString  *source;  int sizeupvalues;  int sizek;  /* size of `k' */  int sizecode;  int sizelineinfo;  int sizep;  /* size of `p' */  int sizelocvars;  int linedefined;  int lastlinedefined;  GCObject *gclist;  lu_byte nups;  /* number of upvalues */  lu_byte numparams;  lu_byte is_vararg;  lu_byte maxstacksize;} Proto;/* masks for new-style vararg */#define VARARG_HASARG		1#define VARARG_ISVARARG		2#define VARARG_NEEDSARG		4typedef struct LocVar {  TString *varname;  int startpc;  /* first point where variable is active */  int endpc;    /* first point where variable is dead */} LocVar;/*** Upvalues*/typedef struct UpVal {  CommonHeader;  TValue *v;  /* points to stack or to its own value */  union {    TValue value;  /* the value (when closed) */    struct {  /* double linked list (when open) */      struct UpVal *prev;      struct UpVal *next;    } l;  } u;} UpVal;/*** Closures*/#define ClosureHeader \	CommonHeader; lu_byte isC; lu_byte nupvalues; GCObject *gclist; \	struct Table *envtypedef struct CClosure {  ClosureHeader;  lua_CFunction f;  TValue upvalue[1];} CClosure;typedef struct LClosure {  ClosureHeader;  struct Proto *p;  UpVal *upvals[1];} LClosure;typedef union Closure {  CClosure c;  LClosure l;} Closure;#define iscfunction(o)	(ttype(o) == LUA_TFUNCTION && clvalue(o)->c.isC)#define isLfunction(o)	(ttype(o) == LUA_TFUNCTION && !clvalue(o)->c.isC)/*** Tables*/typedef union TKey {  struct {    TValuefields;    struct Node *next;  /* for chaining */  } nk;  TValue tvk;} TKey;typedef struct Node {  TValue i_val;  TKey i_key;} Node;typedef struct Table {  CommonHeader;  lu_byte flags;  /* 1<<p means tagmethod(p) is not present */   lu_byte lsizenode;  /* log2 of size of `node' array */  struct Table *metatable;  TValue *array;  /* array part */  Node *node;  Node *lastfree;  /* any free position is before this position */  GCObject *gclist;  int sizearray;  /* size of `array' array */} Table;/*** `module' operation for hashing (size is always a power of 2)*/#define lmod(s,size) \	(check_exp((size&(size-1))==0, (cast(int, (s) & ((size)-1)))))#define twoto(x)	(1<<(x))#define sizenode(t)	(twoto((t)->lsizenode))#define luaO_nilobject		(&luaO_nilobject_)LUAI_DATA const TValue luaO_nilobject_;#define ceillog2(x)	(luaO_log2((x)-1) + 1)LUAI_FUNC int luaO_log2 (unsigned int x);LUAI_FUNC int luaO_int2fb (unsigned int x);LUAI_FUNC int luaO_fb2int (int x);LUAI_FUNC int luaO_rawequalObj (const TValue *t1, const TValue *t2);LUAI_FUNC int luaO_str2d (const char *s, lua_Number *result);LUAI_FUNC const char *luaO_pushvfstring (lua_State *L, const char *fmt,                                                       va_list argp);LUAI_FUNC const char *luaO_pushfstring (lua_State *L, const char *fmt, ...);LUAI_FUNC void luaO_chunkid (char *out, const char *source, size_t len);#endif