123 #define val_(o)		((o)->value_)  argument
127 #define rttype(o)	((o)->tt_)  argument
133 #define ttype(o)	(rttype(o) & 0x3F)  argument
136 #define ttnov(o)	(novariant(rttype(o)))  argument
140 #define checktag(o,t)		(rttype(o) == (t))  argument
141 #define checktype(o,t)		(ttnov(o) == (t))  argument
142 #define ttisnumber(o)		checktype((o), LUA_TNUMBER)  argument
143 #define ttisfloat(o)		checktag((o), LUA_TNUMFLT)  argument
144 #define ttisinteger(o)		checktag((o), LUA_TNUMINT)  argument
145 #define ttisnil(o)		checktag((o), LUA_TNIL)  argument
146 #define ttisboolean(o)		checktag((o), LUA_TBOOLEAN)  argument
147 #define ttislightuserdata(o)	checktag((o), LUA_TLIGHTUSERDATA)  argument
148 #define ttisstring(o)		checktype((o), LUA_TSTRING)  argument
149 #define ttisshrstring(o)	checktag((o), ctb(LUA_TSHRSTR))  argument
150 #define ttislngstring(o)	checktag((o), ctb(LUA_TLNGSTR))  argument
151 #define ttistable(o)		checktag((o), ctb(LUA_TTABLE))  argument
152 #define ttisfunction(o)		checktype(o, LUA_TFUNCTION)  argument
153 #define ttisclosure(o)		((rttype(o) & 0x1F) == LUA_TFUNCTION)  argument
154 #define ttisCclosure(o)		checktag((o), ctb(LUA_TCCL))  argument
155 #define ttisLclosure(o)		checktag((o), ctb(LUA_TLCL))  argument
156 #define ttislcf(o)		checktag((o), LUA_TLCF)  argument
157 #define ttisfulluserdata(o)	checktag((o), ctb(LUA_TUSERDATA))  argument
158 #define ttisthread(o)		checktag((o), ctb(LUA_TTHREAD))  argument
159 #define ttisdeadkey(o)		checktag((o), LUA_TDEADKEY)  argument
163 #define ivalue(o)	check_exp(ttisinteger(o), val_(o).i)  argument
164 #define fltvalue(o)	check_exp(ttisfloat(o), val_(o).n)  argument
165 #define nvalue(o)	check_exp(ttisnumber(o), \  argument
167 #define gcvalue(o)	check_exp(iscollectable(o), val_(o).gc)  argument
168 #define pvalue(o)	check_exp(ttislightuserdata(o), val_(o).p)  argument
169 #define tsvalue(o)	check_exp(ttisstring(o), gco2ts(val_(o).gc))  argument
170 #define uvalue(o)	check_exp(ttisfulluserdata(o), gco2u(val_(o).gc))  argument
171 #define clvalue(o)	check_exp(ttisclosure(o), gco2cl(val_(o).gc))  argument
172 #define clLvalue(o)	check_exp(ttisLclosure(o), gco2lcl(val_(o).gc))  argument
173 #define clCvalue(o)	check_exp(ttisCclosure(o), gco2ccl(val_(o).gc))  argument
174 #define fvalue(o)	check_exp(ttislcf(o), val_(o).f)  argument
175 #define hvalue(o)	check_exp(ttistable(o), gco2t(val_(o).gc))  argument
176 #define bvalue(o)	check_exp(ttisboolean(o), val_(o).b)  argument
177 #define thvalue(o)	check_exp(ttisthread(o), gco2th(val_(o).gc))  argument
179 #define deadvalue(o)	check_exp(ttisdeadkey(o), cast(void *, val_(o).gc))  argument
181 #define l_isfalse(o)	(ttisnil(o) || (ttisboolean(o) && bvalue(o) == 0))  argument
184 #define iscollectable(o)	(rttype(o) & BIT_ISCOLLECTABLE)  argument
196 #define settt_(o,t)	((o)->tt_=(t))  argument
333 #define svalue(o)       getstr(tsvalue(o))  argument
339 #define vslen(o)	tsslen(tsvalue(o))  argument
371 #define setuservalue(L,u,o) \  argument
377 #define getuservalue(L,u,o) \  argument
466 #define isLfunction(o)	ttisLclosure(o)  argument
468 #define getproto(o)	(clLvalue(o)->p)  argument