| /* |
| ** $Id: lobject.h,v 1.75 2000/09/11 17:38:42 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" |
| |
| |
| #ifdef DEBUG |
| #undef NDEBUG |
| #include <assert.h> |
| #define LUA_INTERNALERROR(s) assert(((void)s,0)) |
| #define LUA_ASSERT(c,s) assert(((void)s,(c))) |
| #else |
| #define LUA_INTERNALERROR(s) /* empty */ |
| #define LUA_ASSERT(c,s) /* empty */ |
| #endif |
| |
| |
| #ifdef DEBUG |
| /* to avoid warnings, and make sure value is really unused */ |
| #define UNUSED(x) (x=0, (void)(x)) |
| #else |
| #define UNUSED(x) ((void)(x)) /* to avoid warnings */ |
| #endif |
| |
| |
| /* |
| ** Lua TYPES |
| ** WARNING: if you change the order of this enumeration, |
| ** grep "ORDER LUA_T" |
| */ |
| typedef enum { |
| TAG_USERDATA = 0, /* default tag for userdata */ |
| TAG_NUMBER, /* fixed tag for numbers */ |
| TAG_STRING, /* fixed tag for strings */ |
| TAG_TABLE, /* default tag for tables */ |
| TAG_LCLOSURE, /* fixed tag for Lua closures */ |
| TAG_CCLOSURE, /* fixed tag for C closures */ |
| TAG_NIL, /* last "pre-defined" tag */ |
| |
| TAG_LMARK, /* mark for Lua closures */ |
| TAG_CMARK /* mark for C closures */ |
| |
| } lua_Type; |
| |
| /* tags for values visible from Lua == first user-created tag */ |
| #define NUM_TAGS 7 |
| |
| |
| /* |
| ** check whether `t' is a mark |
| */ |
| #define is_T_MARK(t) ((t) == TAG_LMARK || (t) == TAG_CMARK) |
| |
| |
| typedef union { |
| struct TString *ts; /* TAG_STRING, TAG_USERDATA */ |
| struct Closure *cl; /* TAG_[CL]CLOSURE, TAG_CMARK */ |
| struct Hash *a; /* TAG_TABLE */ |
| struct CallInfo *i; /* TAG_LMARK */ |
| Number n; /* TAG_NUMBER */ |
| } Value; |
| |
| |
| /* Macros to access values */ |
| #define ttype(o) ((o)->ttype) |
| #define nvalue(o) ((o)->value.n) |
| #define tsvalue(o) ((o)->value.ts) |
| #define clvalue(o) ((o)->value.cl) |
| #define hvalue(o) ((o)->value.a) |
| #define infovalue(o) ((o)->value.i) |
| #define svalue(o) (tsvalue(o)->str) |
| |
| |
| typedef struct lua_TObject { |
| lua_Type ttype; |
| Value value; |
| } TObject; |
| |
| |
| /* |
| ** String headers for string table |
| */ |
| typedef struct TString { |
| union { |
| struct { /* for strings */ |
| unsigned long hash; |
| size_t len; |
| int constindex; /* hint to reuse constants */ |
| } s; |
| struct { /* for userdata */ |
| int tag; |
| void *value; |
| } d; |
| } u; |
| struct TString *nexthash; /* chain for hash table */ |
| unsigned char marked; |
| char str[1]; /* variable length string!! must be the last field! */ |
| } TString; |
| |
| |
| /* |
| ** Function Prototypes |
| */ |
| typedef struct Proto { |
| Number *knum; /* Number numbers used by the function */ |
| int nknum; /* size of `knum' */ |
| struct TString **kstr; /* strings used by the function */ |
| int nkstr; /* size of `kstr' */ |
| struct Proto **kproto; /* functions defined inside the function */ |
| int nkproto; /* size of `kproto' */ |
| Instruction *code; /* ends with opcode ENDCODE */ |
| int numparams; |
| int is_vararg; |
| int maxstacksize; |
| struct Proto *next; |
| int marked; |
| /* debug information */ |
| int *lineinfo; /* map from opcodes to source lines */ |
| int nlocvars; |
| struct LocVar *locvars; /* information about local variables */ |
| 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 { |
| 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) */ |
| int nupvalues; |
| TObject upvalue[1]; |
| } Closure; |
| |
| |
| typedef struct Node { |
| TObject key; |
| TObject val; |
| struct Node *next; /* for chaining */ |
| } 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) */ |
| } Hash; |
| |
| |
| /* unmarked tables and closures are represented by pointing `mark' to |
| ** themselves |
| */ |
| #define ismarked(x) ((x)->mark != (x)) |
| |
| |
| /* |
| ** informations about a call (for debugging) |
| */ |
| typedef struct CallInfo { |
| struct Closure *func; /* function being called */ |
| const Instruction **pc; /* current pc of called function */ |
| int lastpc; /* last pc traced */ |
| int line; /* current line */ |
| int refi; /* current index in `lineinfo' */ |
| } CallInfo; |
| |
| |
| extern const char *const luaO_typenames[]; |
| extern const TObject luaO_nilobject; |
| |
| #define luaO_typename(o) luaO_typenames[ttype(o)] |
| |
| lint32 luaO_power2 (lint32 n); |
| char *luaO_openspace (lua_State *L, size_t n); |
| |
| int luaO_equalObj (const TObject *t1, const TObject *t2); |
| int luaO_str2d (const char *s, Number *result); |
| |
| void luaO_verror (lua_State *L, const char *fmt, ...); |
| void luaO_chunkid (char *out, const char *source, int len); |
| |
| |
| #endif |