lobject.h File Reference

#include <stdarg.h>
#include "llimits.h"
#include "lua.h"

Go to the source code of this file.

Classes

struct  GCheader
union  Value
struct  lua_TValue
union  TString
union  Udata
struct  Proto
struct  LocVar
struct  UpVal
struct  CClosure
struct  LClosure
union  Closure
union  TKey
struct  Node
struct  Table

Defines

#define LAST_TAG   LUA_TTHREAD
#define NUM_TAGS   (LAST_TAG+1)
#define LUA_TPROTO   (LAST_TAG+1)
#define LUA_TUPVAL   (LAST_TAG+2)
#define LUA_TDEADKEY   (LAST_TAG+3)
#define CommonHeader   GCObject *next; lu_byte tt; lu_byte marked
#define TValuefields   Value value; int tt
#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)
#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))
#define checkconsistency(obj)   lua_assert(!iscollectable(obj) || (ttype(obj) == (obj)->value.gc->gch.tt))
#define checkliveness(g, obj)
#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)
#define setuvalue(L, obj, x)
#define setthvalue(L, obj, x)
#define setclvalue(L, obj, x)
#define sethvalue(L, obj, x)
#define setptvalue(L, obj, x)
#define setobj(L, obj1, obj2)
#define setobjs2s   setobj
#define setobj2s   setobj
#define setsvalue2s   setsvalue
#define sethvalue2s   sethvalue
#define setptvalue2s   setptvalue
#define setobjt2t   setobj
#define setobj2t   setobj
#define setobj2n   setobj
#define setsvalue2n   setsvalue
#define setttype(obj, tt)   (ttype(obj) = (tt))
#define iscollectable(o)   (ttype(o) >= LUA_TSTRING)
#define getstr(ts)   cast(const char *, (ts) + 1)
#define svalue(o)   getstr(rawtsvalue(o))
#define VARARG_HASARG   1
#define VARARG_ISVARARG   2
#define VARARG_NEEDSARG   4
#define ClosureHeader
#define iscfunction(o)   (ttype(o) == LUA_TFUNCTION && clvalue(o)->c.isC)
#define isLfunction(o)   (ttype(o) == LUA_TFUNCTION && !clvalue(o)->c.isC)
#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_)
#define ceillog2(x)   (luaO_log2((x)-1) + 1)

Typedefs

typedef union GCObject GCObject
typedef struct lua_TValue TValue
typedef TValueStkId

Functions

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)

Variables

LUAI_DATA const TValue luaO_nilobject_


Define Documentation

#define bvalue (  )     check_exp(ttisboolean(o), (o)->value.b)

#define ceillog2 (  )     (luaO_log2((x)-1) + 1)

#define checkconsistency ( obj   )     lua_assert(!iscollectable(obj) || (ttype(obj) == (obj)->value.gc->gch.tt))

#define checkliveness ( g,
obj   ) 

Value:

lua_assert(!iscollectable(obj) || \
  ((ttype(obj) == (obj)->value.gc->gch.tt) && !isdead(g, (obj)->value.gc)))

#define ClosureHeader

Value:

CommonHeader; lu_byte isC; lu_byte nupvalues; GCObject *gclist; \
        struct Table *env

#define clvalue (  )     check_exp(ttisfunction(o), &(o)->value.gc->cl)

#define CommonHeader   GCObject *next; lu_byte tt; lu_byte marked

#define gcvalue (  )     check_exp(iscollectable(o), (o)->value.gc)

#define getstr ( ts   )     cast(const char *, (ts) + 1)

#define hvalue (  )     check_exp(ttistable(o), &(o)->value.gc->h)

#define iscfunction (  )     (ttype(o) == LUA_TFUNCTION && clvalue(o)->c.isC)

#define iscollectable (  )     (ttype(o) >= LUA_TSTRING)

#define isLfunction (  )     (ttype(o) == LUA_TFUNCTION && !clvalue(o)->c.isC)

#define l_isfalse (  )     (ttisnil(o) || (ttisboolean(o) && bvalue(o) == 0))

#define LAST_TAG   LUA_TTHREAD

#define lmod ( s,
size   )     (check_exp((size&(size-1))==0, (cast(int, (s) & ((size)-1)))))

#define LUA_TDEADKEY   (LAST_TAG+3)

#define LUA_TPROTO   (LAST_TAG+1)

#define LUA_TUPVAL   (LAST_TAG+2)

#define luaO_nilobject   (&luaO_nilobject_)

#define NUM_TAGS   (LAST_TAG+1)

#define nvalue (  )     check_exp(ttisnumber(o), (o)->value.n)

#define pvalue (  )     check_exp(ttislightuserdata(o), (o)->value.p)

#define rawtsvalue (  )     check_exp(ttisstring(o), &(o)->value.gc->ts)

#define rawuvalue (  )     check_exp(ttisuserdata(o), &(o)->value.gc->u)

#define setbvalue ( obj,
 )     { TValue *i_o=(obj); i_o->value.b=(x); i_o->tt=LUA_TBOOLEAN; }

#define setclvalue ( L,
obj,
 ) 

Value:

{ 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,
 ) 

Value:

{ TValue *i_o=(obj); \
    i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TTABLE; \
    checkliveness(G(L),i_o); }

#define sethvalue2s   sethvalue

#define setnilvalue ( obj   )     ((obj)->tt=LUA_TNIL)

#define setnvalue ( obj,
 )     { TValue *i_o=(obj); i_o->value.n=(x); i_o->tt=LUA_TNUMBER; }

#define setobj ( L,
obj1,
obj2   ) 

Value:

{ const TValue *o2=(obj2); TValue *o1=(obj1); \
    o1->value = o2->value; o1->tt=o2->tt; \
    checkliveness(G(L),o1); }

#define setobj2n   setobj

#define setobj2s   setobj

#define setobj2t   setobj

#define setobjs2s   setobj

#define setobjt2t   setobj

#define setptvalue ( L,
obj,
 ) 

Value:

{ TValue *i_o=(obj); \
    i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TPROTO; \
    checkliveness(G(L),i_o); }

#define setptvalue2s   setptvalue

#define setpvalue ( obj,
 )     { TValue *i_o=(obj); i_o->value.p=(x); i_o->tt=LUA_TLIGHTUSERDATA; }

#define setsvalue ( L,
obj,
 ) 

Value:

{ TValue *i_o=(obj); \
    i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TSTRING; \
    checkliveness(G(L),i_o); }

#define setsvalue2n   setsvalue

#define setsvalue2s   setsvalue

#define setthvalue ( L,
obj,
 ) 

Value:

{ TValue *i_o=(obj); \
    i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TTHREAD; \
    checkliveness(G(L),i_o); }

#define setttype ( obj,
tt   )     (ttype(obj) = (tt))

#define setuvalue ( L,
obj,
 ) 

Value:

{ TValue *i_o=(obj); \
    i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TUSERDATA; \
    checkliveness(G(L),i_o); }

#define sizenode (  )     (twoto((t)->lsizenode))

#define svalue (  )     getstr(rawtsvalue(o))

#define thvalue (  )     check_exp(ttisthread(o), &(o)->value.gc->th)

#define tsvalue (  )     (&rawtsvalue(o)->tsv)

#define ttisboolean (  )     (ttype(o) == LUA_TBOOLEAN)

#define ttisfunction (  )     (ttype(o) == LUA_TFUNCTION)

#define ttislightuserdata (  )     (ttype(o) == LUA_TLIGHTUSERDATA)

#define ttisnil (  )     (ttype(o) == LUA_TNIL)

#define ttisnumber (  )     (ttype(o) == LUA_TNUMBER)

#define ttisstring (  )     (ttype(o) == LUA_TSTRING)

#define ttistable (  )     (ttype(o) == LUA_TTABLE)

#define ttisthread (  )     (ttype(o) == LUA_TTHREAD)

#define ttisuserdata (  )     (ttype(o) == LUA_TUSERDATA)

#define ttype (  )     ((o)->tt)

#define TValuefields   Value value; int tt

#define twoto (  )     (1<<(x))

#define uvalue (  )     (&rawuvalue(o)->uv)

#define VARARG_HASARG   1

#define VARARG_ISVARARG   2

#define VARARG_NEEDSARG   4


Typedef Documentation

typedef union GCObject GCObject

typedef TValue* StkId

typedef struct lua_TValue TValue


Function Documentation

LUAI_FUNC void luaO_chunkid ( char *  out,
const char *  source,
size_t  len 
)

LUAI_FUNC int luaO_fb2int ( int  x  ) 

LUAI_FUNC int luaO_int2fb ( unsigned int  x  ) 

LUAI_FUNC int luaO_log2 ( unsigned int  x  ) 

LUAI_FUNC const char* luaO_pushfstring ( lua_State L,
const char *  fmt,
  ... 
)

LUAI_FUNC const char* luaO_pushvfstring ( lua_State L,
const char *  fmt,
va_list  argp 
)

LUAI_FUNC int luaO_rawequalObj ( const TValue t1,
const TValue t2 
)

LUAI_FUNC int luaO_str2d ( const char *  s,
lua_Number result 
)


Variable Documentation

LUAI_DATA const TValue luaO_nilobject_


Generated on Tue Aug 4 15:24:06 2009 for LuaPlayer HM Version 3 by  doxygen 1.5.5