< u pґě?qLۨK5>qwzfi& ^ρ>!T4?
B&٪kTEo3i,C" I0alہ!ey1
unNMSdRZ 'D_ m ҐckVo;BĠ
O
Anhu|ZbKL7W6n$)Ԧas b3ϙ~-/oM;LTkϫzD7L~5'T:Z_Wsס9|4=t(VZϿ 7!k Jr>+Ǖ˗HM jkbQlM|# 7e
&Cz> \/ѯCy"Cf!k W%y4 mfGA5BtZ7+| TT, OI`Z$/uc`w>Y
OHS"$:ʡ$ yuS'-5Hʡb%+) 1Π8 Untu\mNE21mER K hXOn
qi.!71ţ}Au VbxF\"Pb]znjtE
$ 5@t2 Ѵ vSManBV Жt8`]<'y+qyD(?.5u%k (M bY2 &'y UJ CI=Wz_Y t IrY*,h
",a <+G8&lZxI
DgW,+șBan$aQp q
[8⯷L':eNA_ms&eE'_c&d!oft
' Njٲq'E͔!\yWXd3`әC=X"CEma& |iM3w101w@4 UxjЩD8$H1@8/CRk%:RFW ~ }}˂ ˌO[#яbl҃X6Mǯg$ECF)Gn\$1 !ɺ%C%B:O݆Lz"D |N^?%Nv,ZiV1$ L#6D(&T,WRu_pxνsl%J .S4{Z#Bo}TrC!Z+ Υ@<ݞ$diM.v
e9N ԛSKN/YvO `NV2
Щ&
'p,.+Rp$DtI\PcF- ".10,:lj7M
dy u";R5qE9`F=_%~Z&1(b q=ٛ0šuTm-1mR2:&4/@z3;oE.$
65=3mvӺkxN (kt+XSXP:߃ uWZǥHE|'Lv$Xf@um w*ϱiӊX̨s' Ƀxy^,LظF5Iې2 'Ae st`U?dS{LcEYP 贎\Ktɦ9558 DXz-. <Ş?fqY|H'6ľNc?}6J $[Xf ڄ0걇MvpV}4mޢf{3~8:+ eܨ /o*^ЧFk`nz0xsg3iFOxq̋u= W =1 1,DAiѧfC,E_=7]~x]xo￡%SFb eO`PE$szwppW*TrF 1uE2u
@ʵIndg˥JIv L;^xX)
ݘlU-8n i u
e>` u[z {z0;eoG0LF 7QMmBt `7,B 7>E@zo;
aJckޡ[jԒg[Q$瀲nm қ4`5
l?q~
P@Fgy{`);+E`f7V>m#XrBdݴ+eW}'IN_^N FI /t"
!d@9c!R'3`CPiX|4 PV!kg 5 5FWCT8<Ӌ~#}Wvxbo¹8>`d 4v,:hv_.C#*e8 ˡ ;alt 6{ٻE6\%`{S_ *-2Ł 0p&"Q-de"JQSMeC@=UO~몣A3fEWuj1GK"OgK=vY\ L|0`,`RG5% 0 }[lPxJq91PA4T !V 0179HZR4l0N3`*lҸ^ c}*!禱 5Ӎ
qvV[b?\WwK5_ +kn_N}Kݺz/oKaa _d y sa9uG eW>eEpZQ#
M-ID1 dFZ}x&])#m31ME!i tmvNgJ" h~w\+aވka vȧb%'5v}!6A46w㊭ZQr|UITJ!WUV HbnQ@ +<Ѳ ˫\
B~Y
25Y̭#+Rh YLp0 k>d>R['@fia'5x+į8QVM[]Glέ;;poSg[NIͪY-&@u<54<+1ꔜ)R[4 1@ne'
r"k
21B& y5xrvJ>,OPK ڽƈ=?)g=Y'~5)s[")@ّf窥merNmm$pvv IQ%H!-p?:,-NE?w
"2P+jz^at+cB%?:e/M/
G*93ySnH,˓>8Q/B
1Z2m{j9&X1NrwCb;vaeخ6J|k#C b PieFMrFVu'z |oQ* ;4xf0LC5Gv2Cl& Ǥbt/s6 v ;.kw]5 vNhfڳ-5]I-̎cC8
$3ml?\BL!p8u]fy=RwիW^^Y9. k|jn
|f$uɪ3Ք 0+ C Fɣ3R2YE !Ƈ-Fsy2@/LMőUƋ M7 FP` ýPhSi
jpJ-Q !ud< gL*,Fg$FgJR'7A6hwa##jPߧZ54\ MvCbKL8?3KljW.ΙPxnu-h
7BhPwr H\b ,%zO㳉bŪdVF?I9z _ K 'Ew31G[E`gLO Ǥ)" T7yYu
;
Yhcux
1.e mG `/ X#={.\y{y2w:k/AX1װ Љ;,gUJ93_Դ(;Bai;cؽYr;E} |Y
2ˋΗE*t^E.C_OT15-JyX&18( $s"(b_;"TeŮ3,=kUx0PJ*;LxܮYbns -"aVVVt,F*caq7tM1|<_]IVEHF6JTs7bHX8 V_}:K8Fusf`Q ,b,S9i8/#id\crʰUi6̎p MSPX&5 &>Ν;4E*KU+W!vW1{,63ӧLQ9 5`J9A^ƶ%6*&ŬI9a
@ײ㥪ktN&)SRҎ
Eαn:|2ϋ2l^(,#LsreN<,4 !Ptw|?aRUUho6
f0+!&ApS 3 5aݦN.T@'1u6(.p.Ǜ9Pd;
LXAS EvReuL1m -Z*@ԹW%e)'! ^©_Kn+z1bz2@ %I <,[)P:(q^oaSLH7 2At QRuk mc|C>`Y0AxR<ec$:w8*ʶ)%jh1b46VH
naRjQ`n)PG }R tH>!# ! m^d;yro"B 6O3[2"q(gʆ,t\r>uփGXUĐ
4!" ,T U柲VeU' A+ k Cy4Y@N`0@ qXF8RBrH>LZ5L&6nqb1pu8ef8T~5uvEr0.p܈ՎrAlKY
oQ! '!" Ymcg!\ԤY 7xΙ%us "]%Q' rrSxtXu9b re9 J e3k 2awFd%+}39x" C焽 [pE 5z{z]]"v.)+3Egp eh# U,n80>n9a+y]ڤxT)1a/|+0_c\UUa
p($PxOi<, gO" -CP R;dQ1" U`
O L3(Bf]"$6 J#f
JgPfb C5ЖPr1+9THl dX+< :uXh (Yv E ^Z"ݯⱬ1IMJ֘ՠg IdvT i;d4:m. `=M6o~k UZZ W7ؐ
<" H((x CAP^";; a1VÃ_8^`)dDA0FrPfRa!@Dq2X3L\\H
D0 u`Dp][Ke [**t29$1ĹT-BRц/dKDJ v3t$wVzRJe ώФmZdۙFJwU
vHd]HqOh{U ۨW2IxpFRj [.A
Rb5aLi% Q 'ڣ-;ASA=#gw sE wJ0X
LĨr`$YNT=p:ZMX ߖцAֽdunܙ}LRQj.ׅ\T_dZdOj+. u fn_BPL9i벸6fI0Ab>YO8GrXD: hqg=MռnhX|X(fQ- i` Cϐ NQS@FXq1htpKH
ILDZ{f"( b.sF5*!
{gx (JD(2l iAQa!BװzfKu+-
[[6Ծ Aj3Gh|$ihC*bKa:Je&aak1h /FL #ǯKIY
PAM4ps=44Y
j>> JˣdXQAMQpG^a_-IWOjWŶ|gULrDwlXL oVrhP1|ZT`▭RXxû(QG267(N%L(hb9QupsFX6:bf&wsfM
&l-w.( UlfP'.9:26 !,WصcfP_A*pj mLalV(ЋwEX<62HP+i(wZ(
XZ§9+[dI3NH⹃lvFY ֙>- ;"vVxo0SPZ L#
/CbDi\ ?ڍ7ʕd@pb24X?< c&?cͮ7i@lِȻR
SqW>UɁ ߐz06 -Eza-exkyrq(SSTH%By{ Zx_ Ʒr_Mu~pɭ/Y d u7 XX픨yjff w0Av ˇ`2y4mv<>rЧh%KDXvwXm{,Pۚ}2Am+DLn=-QZtVL(tr prR47|n3({2 m1]6_5:Jtf0 E`Pܣ 1S fZ$7n" 15kR]'5>J9hpi1c 3W4XNRPH
@ָ
#E7Մ
z?bD
%syY]FE%b_/ zj.1Ydjqa.B xɁ&ch$CbC
lM$\h.A h
@nStV).$/z=PuWDw sֆ&5pPE؇]Raᎄ&+ލQR%z[R٭x?k:q ğM$weâsLci `?|
l|%OeWt3@/L +w٠gW;6ZXwHH닆kUهE-h`٘ ;ïf.V)
Au98t. Kr]Wzqe[1a=%V)
dG
FdbpRXmpmu])<$S\ Z؞ĕRq$V 5p*2++F%Sd!x2,f ҟ ̗uF "p89:RįMA:$7۠T%[%XH4TD XrDW_IM&'ԃ8C1eLn1N D4~% z/.KCpee>_/Z|ZM63GQeE.=,' {mQ>iL)L#HK-j,F:S `lfVՂ +xԳmq5`"!
6q`):ƋD? t̨;/QjIz9kQ^.tF8*Q$,qcZL2rfsqО$ٙhA`<ԬT&Wn>} YZ=73
N%?h5.%˩izCr6>OCJr~?K"y z}t'g'>* %)0
B`b ɪoi;ri|E7PEQXr~tjuK?~'ou AZ5
0Ok0 =%B7fƝJ@ٳs3c>>*[r3&.,gO9+*hGj
emF4z](F?'`l{bS?QutÈ"A s͓usxf )FL|ql
yd %.FmOX }mgyEa7F=&7v_mt(6 V KH| FC`
~{Eik xLisiI<œ,lICMA*}\XW$@JЊW9R\ imZZFm
.X
Y¥FXJ59\ΛZ`QFc:Vdֺ0
|M C.8KB% OkԜRgkNd >*p\q/`pizrA+řG(ĵ$om<\Yyd` uO.| R8f_Rn@J3'ZG_FE _ e%6WTj>P ~JkRSVJL Y{CO.EB G/V
=:gǛ
?.NTTC%Tt 5މ + p>*FX\&\"<OUd5 N|E| ;HRvV Ԛ\VZi@" h>,7_UxH et,Jyw&
9p>
=:w᩵a@ l|- =J
M
r$>@@ +'GiniVUhjQ 7#n.7 hыed2_E$ C7 .PTO# : ɹ5b# 1_F,;u^Z֥+&.e]̱ }$ŠET!FDnho?!$0Z 3{wׯ&mz z" IQ(j_ ;cVר, u c$d
_2^E"#O ~*S_
X"0wۂO]Six' 79/u\""ƒ${ _H(L8t "9a" PӋ'J
% y*yxx> `Ey k?=(tR 7CSZw|Yx Z9ȫL̡~v #]*b p`|:Ǿ)*ߎj)D;V$Cً2Vl.7Bs?Xe^x}䕐.9U'>Ń^TszPe< )8]
5 YW EI(7k5BW}Zt5t%])RKCbuƭV5 p '}sC
))` PrN E0CۆG#Ah
J'\Cx%U=z_7CB
n;ZNhm%i,.>g,:B># 5=ߦr[cn_ &LLIm@c=lɦ譼? 9<1æGObzN,{}'\Hy ] Ѵ`!ʫEz13y|,k\-8"]-0iIŽ͖ 5-^qEx:Nl_a EuǢ8>kFLAӠM1RQLjA4A8(n\cX]I3cnH+Y|4+ix@|u1`6K [xLV9nM thVh߮3}h:/o+x^y(NIiK']<Rs$z`_DR":i H'-ǧ$ .3yg3%٤V5,):pkL 2O- xDS6,aJUtQS yF Vf.:'":Ygc չyED)[q9Bm ej1i65:7< Ci,1?=L9>97^ϱمٙdTmmfizw:?u, y@3Apxi9@BD M7|rtYlF0nj zQ<
r(@ڼm^xv*X|*zz{{zB2c /!^*o<ߖrNi;zj{ ˰a Nê:LEtH.-Ud
'j9۽H]I9h~ȣYazJ $ҜIE2r4lBuj+ü'xqj [b; "WmL$Ĥ,c{Eṕ ֣F&N5%RDdEC+(3cbf* g ZN6 =qӆ[*,2J$|:isR%Y*8t(! ,ѡp/-0dV#P:W^U@>tG!{ϸKuE,
7x?,#PQXs" %C E\I~QqUxH;8CK^F"Ka =kn .=aݧx;k8|P8]gu;"bYaudN$<֬5 ~b1)0A\,َ"[u*X"s]HrA甍ȭ=쮴 ф d* 7;?"rp%Ev< 5x
%yr ~hڥAD zӣ
oDŽ Q O|jԲ( G9g0E &.\4'6nۘusf,g6_`6FʶI2 h%c|>N25ƥ /f
w6+fPkv vymūPxH$WӤ 晴Y"]<:= 8
!`p_ƘiPWF/*
** $Id: lobject.h,v 2.20.1.2 2008/08/06 13:29:48 roberto Exp $
** Type definitions for Lua objects
** See Copyright Notice in lua.h
*/
#ifndef lobject_h
#define lobject_h
#include <stdarg.h>
#include "llimits.h"
#include "lua.h"
/* tags for values visible from Lua */
#define LAST_TAG LUA_TTHREAD
#define NUM_TAGS (LAST_TAG+1)
/*
** Extra tags for non-values
*/
#define LUA_TPROTO (LAST_TAG+1)
#define LUA_TUPVAL (LAST_TAG+2)
#define LUA_TDEADKEY (LAST_TAG+3)
/*
** Union of all collectable objects
*/
typedef union GCObject GCObject;
/*
** Common Header for all collectable objects (in macro form, to be
** included in other objects)
*/
#define CommonHeader GCObject *next; lu_byte tt; lu_byte marked
/*
** Common header in struct form
*/
typedef struct GCheader {
CommonHeader;
} GCheader;
/*
** Union of all Lua values
*/
typedef union {
GCObject *gc;
void *p;
lua_Number n;
int b;
} Value;
/*
** Tagged Values
*/
#define TValuefields Value value; int tt
typedef struct lua_TValue {
TValuefields;
} TValue;
/* Macros to test type */
#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)
/* Macros to access values */
#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))
/*
** for internal debug only
*/
#define checkconsistency(obj) \
lua_assert(!iscollectable(obj) || (ttype(obj) == (obj)->value.gc->gch.tt))
#define checkliveness(g,obj) \
lua_assert(!iscollectable(obj) || \
((ttype(obj) == (obj)->value.gc->gch.tt) && !isdead(g, (obj)->value.gc)))
/* Macros to set values */
#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) \
{ TValue *i_o=(obj); \
i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TSTRING; \
checkliveness(G(L),i_o); }
#define setuvalue(L,obj,x) \
{ TValue *i_o=(obj); \
i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TUSERDATA; \
checkliveness(G(L),i_o); }
#define setthvalue(L,obj,x) \
{ TValue *i_o=(obj); \
i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TTHREAD; \
checkliveness(G(L),i_o); }
#define setclvalue(L,obj,x) \
{ 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,x) \
{ TValue *i_o=(obj); \
i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TTABLE; \
checkliveness(G(L),i_o); }
#define setptvalue(L,obj,x) \
{ TValue *i_o=(obj); \
i_o->value.gc=cast(GCObject *, (x)); i_o->tt=LUA_TPROTO; \
checkliveness(G(L),i_o); }
#define setobj(L,obj1,obj2) \
{ const TValue *o2=(obj2); TValue *o1=(obj1); \
o1->value = o2->value; o1->tt=o2->tt; \
checkliveness(G(L),o1); }
/*
** different types of sets, according to destination
*/
/* from stack to (same) stack */
#define setobjs2s setobj
/* to stack (not from same stack) */
#define setobj2s setobj
#define setsvalue2s setsvalue
#define sethvalue2s sethvalue
#define setptvalue2s setptvalue
/* from table to same table */
#define setobjt2t setobj
/* to table */
#define setobj2t setobj
/* to new object */
#define setobj2n setobj
#define setsvalue2n setsvalue
#define setttype(obj, tt) (ttype(obj) = (tt))
#define iscollectable(o) (ttype(o) >= LUA_TSTRING)
typedef TValue *StkId; /* index to stack elements */
/*
** String headers for string table
*/
typedef union TString {
L_Umaxalign dummy; /* ensures maximum alignment for strings */
struct {
CommonHeader;
lu_byte reserved;
unsigned int hash;
size_t len;
} tsv;
} TString;
#define getstr(ts) cast(const char *, (ts) + 1)
#define svalue(o) getstr(rawtsvalue(o))
typedef union Udata {
L_Umaxalign dummy; /* ensures maximum alignment for `local' udata */
struct {
CommonHeader;
struct Table *metatable;
struct Table *env;
size_t len;
} uv;
} Udata;
/*
** Function Prototypes
*/
typedef struct Proto {
CommonHeader;
TValue *k; /* constants used by the function */
Instruction *code;
struct Proto **p; /* functions defined inside the function */
int *lineinfo; /* map from opcodes to source lines */
struct LocVar *locvars; /* information about local variables */
TString **upvalues; /* upvalue names */
TString *source;
int sizeupvalues;
int sizek; /* size of `k' */
int sizecode;
int sizelineinfo;
int sizep; /* size of `p' */
int sizelocvars;
int linedefined;
int lastlinedefined;
GCObject *gclist;
lu_byte nups; /* number of upvalues */
lu_byte numparams;
lu_byte is_vararg;
lu_byte maxstacksize;
} Proto;
/* masks for new-style vararg */
#define VARARG_HASARG 1
#define VARARG_ISVARARG 2
#define VARARG_NEEDSARG 4
typedef struct LocVar {
TString *varname;
int startpc; /* first point where variable is active */
int endpc; /* first point where variable is dead */
} LocVar;
/*
** Upvalues
*/
typedef struct UpVal {
CommonHeader;
TValue *v; /* points to stack or to its own value */
union {
TValue value; /* the value (when closed) */
struct { /* double linked list (when open) */
struct UpVal *prev;
struct UpVal *next;
} l;
} u;
} UpVal;
/*
** Closures
*/
#define ClosureHeader \
CommonHeader; lu_byte isC; lu_byte nupvalues; GCObject *gclist; \
struct Table *env
typedef struct CClosure {
ClosureHeader;
lua_CFunction f;
TValue upvalue[1];
} CClosure;
typedef struct LClosure {
ClosureHeader;
struct Proto *p;
UpVal *upvals[1];
} LClosure;
typedef union Closure {
CClosure c;
LClosure l;
} Closure;
#define iscfunction(o) (ttype(o) == LUA_TFUNCTION && clvalue(o)->c.isC)
#define isLfunction(o) (ttype(o) == LUA_TFUNCTION && !clvalue(o)->c.isC)
/*
** Tables
*/
typedef union TKey {
struct {
TValuefields;
struct Node *next; /* for chaining */
} nk;
TValue tvk;
} TKey;
typedef struct Node {
TValue i_val;
TKey i_key;
} Node;
typedef struct Table {
CommonHeader;
lu_byte flags; /* 1<<p means tagmethod(p) is not present */
lu_byte lsizenode; /* log2 of size of `node' array */
struct Table *metatable;
TValue *array; /* array part */
Node *node;
Node *lastfree; /* any free position is before this position */
GCObject *gclist;
int sizearray; /* size of `array' array */
} Table;
/*
** `module' operation for hashing (size is always a power of 2)
*/
#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_)
LUAI_DATA const TValue luaO_nilobject_;
#define ceillog2(x) (luaO_log2((x)-1) + 1)
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);
#endif