| /* |
| ** $Id: lobject.h,v 1.108 2001/06/28 14:48:44 roberto Exp roberto $ |
| ** Type definitions for Lua objects |
| ** See Copyright Notice in lua.h |
| */ |
| |
| #ifndef lobject_h |
| #define lobject_h |
| |
| |
| #include "llimits.h" |
| #include "lua.h" |
| |
| |
| #ifndef lua_assert |
| #define lua_assert(c) /* empty */ |
| #endif |
| |
| |
| #ifndef UNUSED |
| #define UNUSED(x) ((void)(x)) /* to avoid warnings */ |
| #endif |
| |
| |
| |
| /* tags for values visible from Lua == first user-created tag */ |
| #define NUM_TAGS 6 |
| |
| |
| typedef union { |
| union TString *ts; |
| union Udata *u; |
| struct Closure *cl; |
| struct Hash *h; |
| lua_Number n; /* LUA_TNUMBER */ |
| } Value; |
| |
| |
| typedef struct lua_TObject { |
| int tt; |
| Value value; |
| } TObject; |
| |
| |
| /* Macros to access values */ |
| #define ttype(o) ((o)->tt) |
| #define nvalue(o) ((o)->value.n) |
| #define tsvalue(o) ((o)->value.ts) |
| #define uvalue(o) ((o)->value.u) |
| #define clvalue(o) ((o)->value.cl) |
| #define hvalue(o) ((o)->value.h) |
| |
| |
| /* Macros to set values */ |
| #define setnvalue(obj,x) \ |
| { TObject *_o=(obj); _o->tt=LUA_TNUMBER; _o->value.n=(x); } |
| |
| #define chgnvalue(obj,x) ((obj)->value.n=(x)) |
| |
| #define setsvalue(obj,x) \ |
| { TObject *_o=(obj); _o->tt=LUA_TSTRING; _o->value.ts=(x); } |
| |
| #define setuvalue(obj,x) \ |
| { TObject *_o=(obj); _o->tt=LUA_TUSERDATA; _o->value.u=(x); } |
| |
| #define setclvalue(obj,x) \ |
| { TObject *_o=(obj); _o->tt=LUA_TFUNCTION; _o->value.cl=(x); } |
| |
| #define sethvalue(obj,x) \ |
| { TObject *_o=(obj); _o->tt=LUA_TTABLE; _o->value.h=(x); } |
| |
| #define setnilvalue(obj) ((obj)->tt=LUA_TNIL) |
| |
| #define setobj(obj1,obj2) \ |
| { TObject *o1=(obj1); const TObject *o2=(obj2); \ |
| o1->tt=o2->tt; o1->value = o2->value; } |
| |
| #define setttype(obj, tt) (ttype(obj) = (tt)) |
| |
| |
| |
| typedef TObject *StkId; /* index to stack elements */ |
| |
| |
| /* |
| ** String headers for string table |
| */ |
| typedef union TString { |
| union L_Umaxalign dummy; /* ensures maximum alignment for strings */ |
| struct { |
| lu_hash hash; |
| size_t len; |
| unsigned short constindex; /* hint to reuse constants */ |
| short marked; |
| union TString *nexthash; /* chain for hash table */ |
| } tsv; |
| } TString; |
| |
| |
| #define getstr(ts) ((l_char *)((ts) + 1)) |
| #define svalue(o) getstr(tsvalue(o)) |
| |
| |
| |
| typedef union Udata { |
| union L_Umaxalign dummy; /* ensures maximum alignment for `local' udata */ |
| struct { |
| int tag; /* negative means `marked' (only during GC) */ |
| void *value; |
| size_t len; |
| union Udata *next; /* chain for list of all udata */ |
| } uv; |
| } Udata; |
| |
| |
| #define switchudatamark(u) ((u)->uv.tag = (-((u)->uv.tag+1))) |
| #define ismarkedudata(u) ((u)->uv.tag < 0) |
| |
| |
| |
| /* |
| ** Function Prototypes |
| */ |
| typedef struct Proto { |
| TObject *k; /* constants used by the function */ |
| int sizek; /* size of `k' */ |
| struct Proto **p; /* functions defined inside the function */ |
| int sizep; /* size of `p' */ |
| Instruction *code; |
| int sizecode; |
| short nupvalues; |
| short numparams; |
| short is_vararg; |
| short maxstacksize; |
| short marked; |
| struct Proto *next; |
| /* debug information */ |
| int *lineinfo; /* map from opcodes to source lines */ |
| int sizelineinfo; /* size of `lineinfo' */ |
| struct LocVar *locvars; /* information about local variables */ |
| int sizelocvars; |
| int lineDefined; |
| TString *source; |
| } Proto; |
| |
| |
| typedef struct LocVar { |
| TString *varname; |
| int startpc; /* first point where variable is active */ |
| int endpc; /* first point where variable is dead */ |
| } LocVar; |
| |
| |
| /* |
| ** Closures |
| */ |
| typedef struct Closure { |
| int isC; /* 0 for Lua functions, 1 for C functions */ |
| int nupvalues; |
| union { |
| lua_CFunction c; /* C functions */ |
| struct Proto *l; /* Lua functions */ |
| } f; |
| struct Closure *next; |
| struct Closure *mark; /* marked closures (point to itself when not marked) */ |
| TObject upvalue[1]; |
| } Closure; |
| |
| |
| #define iscfunction(o) (ttype(o) == LUA_TFUNCTION && clvalue(o)->isC) |
| |
| |
| typedef struct Node { |
| struct Node *next; /* for chaining */ |
| TObject key; |
| TObject val; |
| } Node; |
| |
| |
| typedef struct Hash { |
| Node *node; |
| int htag; |
| int size; |
| Node *firstfree; /* this position is free; all positions after it are full */ |
| struct Hash *next; |
| struct Hash *mark; /* marked tables (point to itself when not marked) */ |
| int weakmode; |
| } Hash; |
| |
| |
| /* unmarked tables and closures are represented by pointing `mark' to |
| ** themselves |
| */ |
| #define ismarked(x) ((x)->mark != (x)) |
| |
| |
| /* |
| ** `module' operation for hashing (size is always a power of 2) |
| */ |
| #define lmod(s,size) ((int)((s) & ((size)-1))) |
| |
| |
| /* |
| ** informations about a call (for debugging) |
| */ |
| typedef struct CallInfo { |
| struct CallInfo *prev; /* linked list */ |
| StkId base; /* base for called function */ |
| const Instruction **pc; /* current pc of called function */ |
| int lastpc; /* last pc traced */ |
| int line; /* current line */ |
| int refi; /* current index in `lineinfo' */ |
| } CallInfo; |
| |
| #define ci_func(ci) (clvalue((ci)->base - 1)) |
| |
| |
| extern const TObject luaO_nilobject; |
| |
| |
| #define luaO_openspace(L,n,t) ((t *)luaO_openspaceaux(L,(n)*sizeof(t))) |
| void *luaO_openspaceaux (lua_State *L, size_t n); |
| |
| int luaO_equalObj (const TObject *t1, const TObject *t2); |
| int luaO_str2d (const l_char *s, lua_Number *result); |
| |
| void luaO_verror (lua_State *L, const l_char *fmt, ...); |
| void luaO_chunkid (l_char *out, const l_char *source, int len); |
| |
| |
| #endif |