RetroArch
|
Go to the source code of this file.
Classes | |
struct | GCObject |
union | Value |
struct | lua_TValue |
struct | TString |
union | UTString |
struct | Udata |
union | UUdata |
struct | Upvaldesc |
struct | LocVar |
struct | Proto |
struct | CClosure |
struct | LClosure |
union | Closure |
union | TKey |
struct | Node |
struct | Table |
Macros | |
#define | LUA_TPROTO LUA_NUMTAGS /* function prototypes */ |
#define | LUA_TDEADKEY (LUA_NUMTAGS+1) /* removed keys in tables */ |
#define | LUA_TOTALTAGS (LUA_TPROTO + 2) |
#define | LUA_TLCL (LUA_TFUNCTION | (0 << 4)) /* Lua closure */ |
#define | LUA_TLCF (LUA_TFUNCTION | (1 << 4)) /* light C function */ |
#define | LUA_TCCL (LUA_TFUNCTION | (2 << 4)) /* C closure */ |
#define | LUA_TSHRSTR (LUA_TSTRING | (0 << 4)) /* short strings */ |
#define | LUA_TLNGSTR (LUA_TSTRING | (1 << 4)) /* long strings */ |
#define | LUA_TNUMFLT (LUA_TNUMBER | (0 << 4)) /* float numbers */ |
#define | LUA_TNUMINT (LUA_TNUMBER | (1 << 4)) /* integer numbers */ |
#define | BIT_ISCOLLECTABLE (1 << 6) |
#define | ctb(t) ((t) | BIT_ISCOLLECTABLE) |
#define | CommonHeader GCObject *next; lu_byte tt; lu_byte marked |
#define | TValuefields Value value_; int tt_ |
#define | NILCONSTANT {NULL}, LUA_TNIL |
#define | val_(o) ((o)->value_) |
#define | rttype(o) ((o)->tt_) |
#define | novariant(x) ((x) & 0x0F) |
#define | ttype(o) (rttype(o) & 0x3F) |
#define | ttnov(o) (novariant(rttype(o))) |
#define | checktag(o, t) (rttype(o) == (t)) |
#define | checktype(o, t) (ttnov(o) == (t)) |
#define | ttisnumber(o) checktype((o), LUA_TNUMBER) |
#define | ttisfloat(o) checktag((o), LUA_TNUMFLT) |
#define | ttisinteger(o) checktag((o), LUA_TNUMINT) |
#define | ttisnil(o) checktag((o), LUA_TNIL) |
#define | ttisboolean(o) checktag((o), LUA_TBOOLEAN) |
#define | ttislightuserdata(o) checktag((o), LUA_TLIGHTUSERDATA) |
#define | ttisstring(o) checktype((o), LUA_TSTRING) |
#define | ttisshrstring(o) checktag((o), ctb(LUA_TSHRSTR)) |
#define | ttislngstring(o) checktag((o), ctb(LUA_TLNGSTR)) |
#define | ttistable(o) checktag((o), ctb(LUA_TTABLE)) |
#define | ttisfunction(o) checktype(o, LUA_TFUNCTION) |
#define | ttisclosure(o) ((rttype(o) & 0x1F) == LUA_TFUNCTION) |
#define | ttisCclosure(o) checktag((o), ctb(LUA_TCCL)) |
#define | ttisLclosure(o) checktag((o), ctb(LUA_TLCL)) |
#define | ttislcf(o) checktag((o), LUA_TLCF) |
#define | ttisfulluserdata(o) checktag((o), ctb(LUA_TUSERDATA)) |
#define | ttisthread(o) checktag((o), ctb(LUA_TTHREAD)) |
#define | ttisdeadkey(o) checktag((o), LUA_TDEADKEY) |
#define | ivalue(o) check_exp(ttisinteger(o), val_(o).i) |
#define | fltvalue(o) check_exp(ttisfloat(o), val_(o).n) |
#define | nvalue(o) |
#define | gcvalue(o) check_exp(iscollectable(o), val_(o).gc) |
#define | pvalue(o) check_exp(ttislightuserdata(o), val_(o).p) |
#define | tsvalue(o) check_exp(ttisstring(o), gco2ts(val_(o).gc)) |
#define | uvalue(o) check_exp(ttisfulluserdata(o), gco2u(val_(o).gc)) |
#define | clvalue(o) check_exp(ttisclosure(o), gco2cl(val_(o).gc)) |
#define | clLvalue(o) check_exp(ttisLclosure(o), gco2lcl(val_(o).gc)) |
#define | clCvalue(o) check_exp(ttisCclosure(o), gco2ccl(val_(o).gc)) |
#define | fvalue(o) check_exp(ttislcf(o), val_(o).f) |
#define | hvalue(o) check_exp(ttistable(o), gco2t(val_(o).gc)) |
#define | bvalue(o) check_exp(ttisboolean(o), val_(o).b) |
#define | thvalue(o) check_exp(ttisthread(o), gco2th(val_(o).gc)) |
#define | deadvalue(o) check_exp(ttisdeadkey(o), cast(void *, val_(o).gc)) |
#define | l_isfalse(o) (ttisnil(o) || (ttisboolean(o) && bvalue(o) == 0)) |
#define | iscollectable(o) (rttype(o) & BIT_ISCOLLECTABLE) |
#define | righttt(obj) (ttype(obj) == gcvalue(obj)->tt) |
#define | checkliveness(L, obj) |
#define | settt_(o, t) ((o)->tt_=(t)) |
#define | setfltvalue(obj, x) { TValue *io=(obj); val_(io).n=(x); settt_(io, LUA_TNUMFLT); } |
#define | chgfltvalue(obj, x) { TValue *io=(obj); lua_assert(ttisfloat(io)); val_(io).n=(x); } |
#define | setivalue(obj, x) { TValue *io=(obj); val_(io).i=(x); settt_(io, LUA_TNUMINT); } |
#define | chgivalue(obj, x) { TValue *io=(obj); lua_assert(ttisinteger(io)); val_(io).i=(x); } |
#define | setnilvalue(obj) settt_(obj, LUA_TNIL) |
#define | setfvalue(obj, x) { TValue *io=(obj); val_(io).f=(x); settt_(io, LUA_TLCF); } |
#define | setpvalue(obj, x) { TValue *io=(obj); val_(io).p=(x); settt_(io, LUA_TLIGHTUSERDATA); } |
#define | setbvalue(obj, x) { TValue *io=(obj); val_(io).b=(x); settt_(io, LUA_TBOOLEAN); } |
#define | setgcovalue(L, obj, x) |
#define | setsvalue(L, obj, x) |
#define | setuvalue(L, obj, x) |
#define | setthvalue(L, obj, x) |
#define | setclLvalue(L, obj, x) |
#define | setclCvalue(L, obj, x) |
#define | sethvalue(L, obj, x) |
#define | setdeadvalue(obj) settt_(obj, LUA_TDEADKEY) |
#define | setobj(L, obj1, obj2) |
#define | setobjs2s setobj |
#define | setobj2s setobj |
#define | setsvalue2s setsvalue |
#define | sethvalue2s sethvalue |
#define | setptvalue2s setptvalue |
#define | setobjt2t setobj |
#define | setobj2n setobj |
#define | setsvalue2n setsvalue |
#define | setobj2t(L, o1, o2) ((void)L, *(o1)=*(o2), checkliveness(L,(o1))) |
#define | getstr(ts) check_exp(sizeof((ts)->extra), cast(char *, (ts)) + sizeof(UTString)) |
#define | svalue(o) getstr(tsvalue(o)) |
#define | tsslen(s) ((s)->tt == LUA_TSHRSTR ? (s)->shrlen : (s)->u.lnglen) |
#define | vslen(o) tsslen(tsvalue(o)) |
#define | getudatamem(u) check_exp(sizeof((u)->ttuv_), (cast(char*, (u)) + sizeof(UUdata))) |
#define | setuservalue(L, u, o) |
#define | getuservalue(L, u, o) |
#define | ClosureHeader CommonHeader; lu_byte nupvalues; GCObject *gclist |
#define | isLfunction(o) ttisLclosure(o) |
#define | getproto(o) (clLvalue(o)->p) |
#define | setnodekey(L, key, obj) |
#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 | UTF8BUFFSZ 8 |
Typedefs | |
typedef struct GCObject | GCObject |
typedef union Value | Value |
typedef struct lua_TValue | TValue |
typedef TValue * | StkId |
typedef struct TString | TString |
typedef union UTString | UTString |
typedef struct Udata | Udata |
typedef union UUdata | UUdata |
typedef struct Upvaldesc | Upvaldesc |
typedef struct LocVar | LocVar |
typedef struct Proto | Proto |
typedef struct UpVal | UpVal |
typedef struct CClosure | CClosure |
typedef struct LClosure | LClosure |
typedef union Closure | Closure |
typedef union TKey | TKey |
typedef struct Node | Node |
typedef struct Table | Table |
Functions | |
LUAI_FUNC int | luaO_int2fb (unsigned int x) |
LUAI_FUNC int | luaO_fb2int (int x) |
LUAI_FUNC int | luaO_utf8esc (char *buff, unsigned long x) |
LUAI_FUNC int | luaO_ceillog2 (unsigned int x) |
LUAI_FUNC void | luaO_arith (lua_State *L, int op, const TValue *p1, const TValue *p2, TValue *res) |
LUAI_FUNC size_t | luaO_str2num (const char *s, TValue *o) |
LUAI_FUNC int | luaO_hexavalue (int c) |
LUAI_FUNC void | luaO_tostring (lua_State *L, StkId obj) |
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_DDEC const TValue | luaO_nilobject_ |
#define BIT_ISCOLLECTABLE (1 << 6) |
#define bvalue | ( | o | ) | check_exp(ttisboolean(o), val_(o).b) |
#define chgivalue | ( | obj, | |
x | |||
) | { TValue *io=(obj); lua_assert(ttisinteger(io)); val_(io).i=(x); } |
#define clCvalue | ( | o | ) | check_exp(ttisCclosure(o), gco2ccl(val_(o).gc)) |
#define clLvalue | ( | o | ) | check_exp(ttisLclosure(o), gco2lcl(val_(o).gc)) |
#define ClosureHeader CommonHeader; lu_byte nupvalues; GCObject *gclist |
#define clvalue | ( | o | ) | check_exp(ttisclosure(o), gco2cl(val_(o).gc)) |
#define ctb | ( | t | ) | ((t) | BIT_ISCOLLECTABLE) |
#define deadvalue | ( | o | ) | check_exp(ttisdeadkey(o), cast(void *, val_(o).gc)) |
#define gcvalue | ( | o | ) | check_exp(iscollectable(o), val_(o).gc) |
#define getuservalue | ( | L, | |
u, | |||
o | |||
) |
#define iscollectable | ( | o | ) | (rttype(o) & BIT_ISCOLLECTABLE) |
#define isLfunction | ( | o | ) | ttisLclosure(o) |
#define ivalue | ( | o | ) | check_exp(ttisinteger(o), val_(o).i) |
#define l_isfalse | ( | o | ) | (ttisnil(o) || (ttisboolean(o) && bvalue(o) == 0)) |
#define LUA_TCCL (LUA_TFUNCTION | (2 << 4)) /* C closure */ |
#define LUA_TDEADKEY (LUA_NUMTAGS+1) /* removed keys in tables */ |
#define LUA_TLCF (LUA_TFUNCTION | (1 << 4)) /* light C function */ |
#define LUA_TLCL (LUA_TFUNCTION | (0 << 4)) /* Lua closure */ |
#define LUA_TLNGSTR (LUA_TSTRING | (1 << 4)) /* long strings */ |
#define LUA_TNUMFLT (LUA_TNUMBER | (0 << 4)) /* float numbers */ |
#define LUA_TNUMINT (LUA_TNUMBER | (1 << 4)) /* integer numbers */ |
#define LUA_TOTALTAGS (LUA_TPROTO + 2) |
#define LUA_TPROTO LUA_NUMTAGS /* function prototypes */ |
#define LUA_TSHRSTR (LUA_TSTRING | (0 << 4)) /* short strings */ |
#define luaO_nilobject (&luaO_nilobject_) |
#define nvalue | ( | o | ) |
#define pvalue | ( | o | ) | check_exp(ttislightuserdata(o), val_(o).p) |
#define rttype | ( | o | ) | ((o)->tt_) |
#define setdeadvalue | ( | obj | ) | settt_(obj, LUA_TDEADKEY) |
#define sethvalue2s sethvalue |
#define setobj | ( | L, | |
obj1, | |||
obj2 | |||
) |
#define setobj2n setobj |
#define setobj2s setobj |
#define setobj2t | ( | L, | |
o1, | |||
o2 | |||
) | ((void)L, *(o1)=*(o2), checkliveness(L,(o1))) |
#define setobjs2s setobj |
#define setobjt2t setobj |
#define setptvalue2s setptvalue |
#define setsvalue2n setsvalue |
#define setsvalue2s setsvalue |
#define setuservalue | ( | L, | |
u, | |||
o | |||
) |
#define thvalue | ( | o | ) | check_exp(ttisthread(o), gco2th(val_(o).gc)) |
#define tsslen | ( | s | ) | ((s)->tt == LUA_TSHRSTR ? (s)->shrlen : (s)->u.lnglen) |
#define tsvalue | ( | o | ) | check_exp(ttisstring(o), gco2ts(val_(o).gc)) |
#define ttisboolean | ( | o | ) | checktag((o), LUA_TBOOLEAN) |
#define ttisclosure | ( | o | ) | ((rttype(o) & 0x1F) == LUA_TFUNCTION) |
#define ttisdeadkey | ( | o | ) | checktag((o), LUA_TDEADKEY) |
#define ttisfloat | ( | o | ) | checktag((o), LUA_TNUMFLT) |
#define ttisfulluserdata | ( | o | ) | checktag((o), ctb(LUA_TUSERDATA)) |
#define ttisfunction | ( | o | ) | checktype(o, LUA_TFUNCTION) |
#define ttisinteger | ( | o | ) | checktag((o), LUA_TNUMINT) |
#define ttislightuserdata | ( | o | ) | checktag((o), LUA_TLIGHTUSERDATA) |
#define ttislngstring | ( | o | ) | checktag((o), ctb(LUA_TLNGSTR)) |
#define ttisnumber | ( | o | ) | checktype((o), LUA_TNUMBER) |
#define ttisshrstring | ( | o | ) | checktag((o), ctb(LUA_TSHRSTR)) |
#define ttisstring | ( | o | ) | checktype((o), LUA_TSTRING) |
#define ttistable | ( | o | ) | checktag((o), ctb(LUA_TTABLE)) |
#define ttisthread | ( | o | ) | checktag((o), ctb(LUA_TTHREAD)) |
#define ttype | ( | o | ) | (rttype(o) & 0x3F) |
#define TValuefields Value value_; int tt_ |
#define UTF8BUFFSZ 8 |
#define uvalue | ( | o | ) | check_exp(ttisfulluserdata(o), gco2u(val_(o).gc)) |
#define val_ | ( | o | ) | ((o)->value_) |
typedef struct lua_TValue TValue |
LUAI_FUNC void luaO_arith | ( | lua_State * | L, |
int | op, | ||
const TValue * | p1, | ||
const TValue * | p2, | ||
TValue * | res | ||
) |
LUAI_FUNC int luaO_ceillog2 | ( | unsigned int | x | ) |
LUAI_FUNC int luaO_fb2int | ( | int | x | ) |
LUAI_FUNC int luaO_hexavalue | ( | int | c | ) |
LUAI_FUNC int luaO_int2fb | ( | unsigned int | x | ) |
LUAI_FUNC int luaO_utf8esc | ( | char * | buff, |
unsigned long | x | ||
) |