]>
Commit | Line | Data |
---|---|---|
1 | /* | |
2 | ** $Id: lobject.h,v 2.71 2012/09/11 18:21:44 roberto Exp $ | |
3 | ** Type definitions for Lua objects | |
4 | ** See Copyright Notice in lua.h | |
5 | */ | |
6 | ||
7 | ||
8 | #ifndef lobject_h | |
9 | #define lobject_h | |
10 | ||
11 | ||
12 | #include <stdarg.h> | |
13 | ||
14 | ||
15 | #include "llimits.h" | |
16 | #include "lua.h" | |
17 | ||
18 | ||
19 | /* | |
20 | ** Extra tags for non-values | |
21 | */ | |
22 | #define LUA_TPROTO LUA_NUMTAGS | |
23 | #define LUA_TUPVAL (LUA_NUMTAGS+1) | |
24 | #define LUA_TDEADKEY (LUA_NUMTAGS+2) | |
25 | ||
26 | /* | |
27 | ** number of all possible tags (including LUA_TNONE but excluding DEADKEY) | |
28 | */ | |
29 | #define LUA_TOTALTAGS (LUA_TUPVAL+2) | |
30 | ||
31 | ||
32 | /* | |
33 | ** tags for Tagged Values have the following use of bits: | |
34 | ** bits 0-3: actual tag (a LUA_T* value) | |
35 | ** bits 4-5: variant bits | |
36 | ** bit 6: whether value is collectable | |
37 | */ | |
38 | ||
39 | #define VARBITS (3 << 4) | |
40 | ||
41 | ||
42 | /* | |
43 | ** LUA_TFUNCTION variants: | |
44 | ** 0 - Lua function | |
45 | ** 1 - light C function | |
46 | ** 2 - regular C function (closure) | |
47 | */ | |
48 | ||
49 | /* Variant tags for functions */ | |
50 | #define LUA_TLCL (LUA_TFUNCTION | (0 << 4)) /* Lua closure */ | |
51 | #define LUA_TLCF (LUA_TFUNCTION | (1 << 4)) /* light C function */ | |
52 | #define LUA_TCCL (LUA_TFUNCTION | (2 << 4)) /* C closure */ | |
53 | ||
54 | ||
55 | /* Variant tags for strings */ | |
56 | #define LUA_TSHRSTR (LUA_TSTRING | (0 << 4)) /* short strings */ | |
57 | #define LUA_TLNGSTR (LUA_TSTRING | (1 << 4)) /* long strings */ | |
58 | ||
59 | ||
60 | /* Bit mark for collectable types */ | |
61 | #define BIT_ISCOLLECTABLE (1 << 6) | |
62 | ||
63 | /* mark a tag as collectable */ | |
64 | #define ctb(t) ((t) | BIT_ISCOLLECTABLE) | |
65 | ||
66 | ||
67 | /* | |
68 | ** Union of all collectable objects | |
69 | */ | |
70 | typedef union GCObject GCObject; | |
71 | ||
72 | ||
73 | /* | |
74 | ** Common Header for all collectable objects (in macro form, to be | |
75 | ** included in other objects) | |
76 | */ | |
77 | #define CommonHeader GCObject *next; lu_byte tt; lu_byte marked | |
78 | ||
79 | ||
80 | /* | |
81 | ** Common header in struct form | |
82 | */ | |
83 | typedef struct GCheader { | |
84 | CommonHeader; | |
85 | } GCheader; | |
86 | ||
87 | ||
88 | ||
89 | /* | |
90 | ** Union of all Lua values | |
91 | */ | |
92 | typedef union Value Value; | |
93 | ||
94 | ||
95 | #define numfield lua_Number n; /* numbers */ | |
96 | ||
97 | ||
98 | ||
99 | /* | |
100 | ** Tagged Values. This is the basic representation of values in Lua, | |
101 | ** an actual value plus a tag with its type. | |
102 | */ | |
103 | ||
104 | #define TValuefields Value value_; int tt_ | |
105 | ||
106 | typedef struct lua_TValue TValue; | |
107 | ||
108 | ||
109 | /* macro defining a nil value */ | |
110 | #define NILCONSTANT {NULL}, LUA_TNIL | |
111 | ||
112 | ||
113 | #define val_(o) ((o)->value_) | |
114 | #define num_(o) (val_(o).n) | |
115 | ||
116 | ||
117 | /* raw type tag of a TValue */ | |
118 | #define rttype(o) ((o)->tt_) | |
119 | ||
120 | /* tag with no variants (bits 0-3) */ | |
121 | #define novariant(x) ((x) & 0x0F) | |
122 | ||
123 | /* type tag of a TValue (bits 0-3 for tags + variant bits 4-5) */ | |
124 | #define ttype(o) (rttype(o) & 0x3F) | |
125 | ||
126 | /* type tag of a TValue with no variants (bits 0-3) */ | |
127 | #define ttypenv(o) (novariant(rttype(o))) | |
128 | ||
129 | ||
130 | /* Macros to test type */ | |
131 | #define checktag(o,t) (rttype(o) == (t)) | |
132 | #define checktype(o,t) (ttypenv(o) == (t)) | |
133 | #define ttisnumber(o) checktag((o), LUA_TNUMBER) | |
134 | #define ttisnil(o) checktag((o), LUA_TNIL) | |
135 | #define ttisboolean(o) checktag((o), LUA_TBOOLEAN) | |
136 | #define ttislightuserdata(o) checktag((o), LUA_TLIGHTUSERDATA) | |
137 | #define ttisstring(o) checktype((o), LUA_TSTRING) | |
138 | #define ttisshrstring(o) checktag((o), ctb(LUA_TSHRSTR)) | |
139 | #define ttislngstring(o) checktag((o), ctb(LUA_TLNGSTR)) | |
140 | #define ttistable(o) checktag((o), ctb(LUA_TTABLE)) | |
141 | #define ttisfunction(o) checktype(o, LUA_TFUNCTION) | |
142 | #define ttisclosure(o) ((rttype(o) & 0x1F) == LUA_TFUNCTION) | |
143 | #define ttisCclosure(o) checktag((o), ctb(LUA_TCCL)) | |
144 | #define ttisLclosure(o) checktag((o), ctb(LUA_TLCL)) | |
145 | #define ttislcf(o) checktag((o), LUA_TLCF) | |
146 | #define ttisuserdata(o) checktag((o), ctb(LUA_TUSERDATA)) | |
147 | #define ttisthread(o) checktag((o), ctb(LUA_TTHREAD)) | |
148 | #define ttisdeadkey(o) checktag((o), LUA_TDEADKEY) | |
149 | ||
150 | #define ttisequal(o1,o2) (rttype(o1) == rttype(o2)) | |
151 | ||
152 | /* Macros to access values */ | |
153 | #define nvalue(o) check_exp(ttisnumber(o), num_(o)) | |
154 | #define gcvalue(o) check_exp(iscollectable(o), val_(o).gc) | |
155 | #define pvalue(o) check_exp(ttislightuserdata(o), val_(o).p) | |
156 | #define rawtsvalue(o) check_exp(ttisstring(o), &val_(o).gc->ts) | |
157 | #define tsvalue(o) (&rawtsvalue(o)->tsv) | |
158 | #define rawuvalue(o) check_exp(ttisuserdata(o), &val_(o).gc->u) | |
159 | #define uvalue(o) (&rawuvalue(o)->uv) | |
160 | #define clvalue(o) check_exp(ttisclosure(o), &val_(o).gc->cl) | |
161 | #define clLvalue(o) check_exp(ttisLclosure(o), &val_(o).gc->cl.l) | |
162 | #define clCvalue(o) check_exp(ttisCclosure(o), &val_(o).gc->cl.c) | |
163 | #define fvalue(o) check_exp(ttislcf(o), val_(o).f) | |
164 | #define hvalue(o) check_exp(ttistable(o), &val_(o).gc->h) | |
165 | #define bvalue(o) check_exp(ttisboolean(o), val_(o).b) | |
166 | #define thvalue(o) check_exp(ttisthread(o), &val_(o).gc->th) | |
167 | /* a dead value may get the 'gc' field, but cannot access its contents */ | |
168 | #define deadvalue(o) check_exp(ttisdeadkey(o), cast(void *, val_(o).gc)) | |
169 | ||
170 | #define l_isfalse(o) (ttisnil(o) || (ttisboolean(o) && bvalue(o) == 0)) | |
171 | ||
172 | ||
173 | #define iscollectable(o) (rttype(o) & BIT_ISCOLLECTABLE) | |
174 | ||
175 | ||
176 | /* Macros for internal tests */ | |
177 | #define righttt(obj) (ttype(obj) == gcvalue(obj)->gch.tt) | |
178 | ||
179 | #define checkliveness(g,obj) \ | |
180 | lua_longassert(!iscollectable(obj) || \ | |
181 | (righttt(obj) && !isdead(g,gcvalue(obj)))) | |
182 | ||
183 | ||
184 | /* Macros to set values */ | |
185 | #define settt_(o,t) ((o)->tt_=(t)) | |
186 | ||
187 | #define setnvalue(obj,x) \ | |
188 | { TValue *io=(obj); num_(io)=(x); settt_(io, LUA_TNUMBER); } | |
189 | ||
190 | #define setnilvalue(obj) settt_(obj, LUA_TNIL) | |
191 | ||
192 | #define setfvalue(obj,x) \ | |
193 | { TValue *io=(obj); val_(io).f=(x); settt_(io, LUA_TLCF); } | |
194 | ||
195 | #define setpvalue(obj,x) \ | |
196 | { TValue *io=(obj); val_(io).p=(x); settt_(io, LUA_TLIGHTUSERDATA); } | |
197 | ||
198 | #define setbvalue(obj,x) \ | |
199 | { TValue *io=(obj); val_(io).b=(x); settt_(io, LUA_TBOOLEAN); } | |
200 | ||
201 | #define setgcovalue(L,obj,x) \ | |
202 | { TValue *io=(obj); GCObject *i_g=(x); \ | |
203 | val_(io).gc=i_g; settt_(io, ctb(gch(i_g)->tt)); } | |
204 | ||
205 | #define setsvalue(L,obj,x) \ | |
206 | { TValue *io=(obj); \ | |
207 | TString *x_ = (x); \ | |
208 | val_(io).gc=cast(GCObject *, x_); settt_(io, ctb(x_->tsv.tt)); \ | |
209 | checkliveness(G(L),io); } | |
210 | ||
211 | #define setuvalue(L,obj,x) \ | |
212 | { TValue *io=(obj); \ | |
213 | val_(io).gc=cast(GCObject *, (x)); settt_(io, ctb(LUA_TUSERDATA)); \ | |
214 | checkliveness(G(L),io); } | |
215 | ||
216 | #define setthvalue(L,obj,x) \ | |
217 | { TValue *io=(obj); \ | |
218 | val_(io).gc=cast(GCObject *, (x)); settt_(io, ctb(LUA_TTHREAD)); \ | |
219 | checkliveness(G(L),io); } | |
220 | ||
221 | #define setclLvalue(L,obj,x) \ | |
222 | { TValue *io=(obj); \ | |
223 | val_(io).gc=cast(GCObject *, (x)); settt_(io, ctb(LUA_TLCL)); \ | |
224 | checkliveness(G(L),io); } | |
225 | ||
226 | #define setclCvalue(L,obj,x) \ | |
227 | { TValue *io=(obj); \ | |
228 | val_(io).gc=cast(GCObject *, (x)); settt_(io, ctb(LUA_TCCL)); \ | |
229 | checkliveness(G(L),io); } | |
230 | ||
231 | #define sethvalue(L,obj,x) \ | |
232 | { TValue *io=(obj); \ | |
233 | val_(io).gc=cast(GCObject *, (x)); settt_(io, ctb(LUA_TTABLE)); \ | |
234 | checkliveness(G(L),io); } | |
235 | ||
236 | #define setdeadvalue(obj) settt_(obj, LUA_TDEADKEY) | |
237 | ||
238 | ||
239 | ||
240 | #define setobj(L,obj1,obj2) \ | |
241 | { const TValue *io2=(obj2); TValue *io1=(obj1); \ | |
242 | io1->value_ = io2->value_; io1->tt_ = io2->tt_; \ | |
243 | checkliveness(G(L),io1); } | |
244 | ||
245 | ||
246 | /* | |
247 | ** different types of assignments, according to destination | |
248 | */ | |
249 | ||
250 | /* from stack to (same) stack */ | |
251 | #define setobjs2s setobj | |
252 | /* to stack (not from same stack) */ | |
253 | #define setobj2s setobj | |
254 | #define setsvalue2s setsvalue | |
255 | #define sethvalue2s sethvalue | |
256 | #define setptvalue2s setptvalue | |
257 | /* from table to same table */ | |
258 | #define setobjt2t setobj | |
259 | /* to table */ | |
260 | #define setobj2t setobj | |
261 | /* to new object */ | |
262 | #define setobj2n setobj | |
263 | #define setsvalue2n setsvalue | |
264 | ||
265 | ||
266 | /* check whether a number is valid (useful only for NaN trick) */ | |
267 | #define luai_checknum(L,o,c) { /* empty */ } | |
268 | ||
269 | ||
270 | /* | |
271 | ** {====================================================== | |
272 | ** NaN Trick | |
273 | ** ======================================================= | |
274 | */ | |
275 | #if defined(LUA_NANTRICK) | |
276 | ||
277 | /* | |
278 | ** numbers are represented in the 'd_' field. All other values have the | |
279 | ** value (NNMARK | tag) in 'tt__'. A number with such pattern would be | |
280 | ** a "signaled NaN", which is never generated by regular operations by | |
281 | ** the CPU (nor by 'strtod') | |
282 | */ | |
283 | ||
284 | /* allows for external implementation for part of the trick */ | |
285 | #if !defined(NNMARK) /* { */ | |
286 | ||
287 | ||
288 | #if !defined(LUA_IEEEENDIAN) | |
289 | #error option 'LUA_NANTRICK' needs 'LUA_IEEEENDIAN' | |
290 | #endif | |
291 | ||
292 | ||
293 | #define NNMARK 0x7FF7A500 | |
294 | #define NNMASK 0x7FFFFF00 | |
295 | ||
296 | #undef TValuefields | |
297 | #undef NILCONSTANT | |
298 | ||
299 | #if (LUA_IEEEENDIAN == 0) /* { */ | |
300 | ||
301 | /* little endian */ | |
302 | #define TValuefields \ | |
303 | union { struct { Value v__; int tt__; } i; double d__; } u | |
304 | #define NILCONSTANT {{{NULL}, tag2tt(LUA_TNIL)}} | |
305 | /* field-access macros */ | |
306 | #define v_(o) ((o)->u.i.v__) | |
307 | #define d_(o) ((o)->u.d__) | |
308 | #define tt_(o) ((o)->u.i.tt__) | |
309 | ||
310 | #else /* }{ */ | |
311 | ||
312 | /* big endian */ | |
313 | #define TValuefields \ | |
314 | union { struct { int tt__; Value v__; } i; double d__; } u | |
315 | #define NILCONSTANT {{tag2tt(LUA_TNIL), {NULL}}} | |
316 | /* field-access macros */ | |
317 | #define v_(o) ((o)->u.i.v__) | |
318 | #define d_(o) ((o)->u.d__) | |
319 | #define tt_(o) ((o)->u.i.tt__) | |
320 | ||
321 | #endif /* } */ | |
322 | ||
323 | #endif /* } */ | |
324 | ||
325 | ||
326 | /* correspondence with standard representation */ | |
327 | #undef val_ | |
328 | #define val_(o) v_(o) | |
329 | #undef num_ | |
330 | #define num_(o) d_(o) | |
331 | ||
332 | ||
333 | #undef numfield | |
334 | #define numfield /* no such field; numbers are the entire struct */ | |
335 | ||
336 | /* basic check to distinguish numbers from non-numbers */ | |
337 | #undef ttisnumber | |
338 | #define ttisnumber(o) ((tt_(o) & NNMASK) != NNMARK) | |
339 | ||
340 | #define tag2tt(t) (NNMARK | (t)) | |
341 | ||
342 | #undef rttype | |
343 | #define rttype(o) (ttisnumber(o) ? LUA_TNUMBER : tt_(o) & 0xff) | |
344 | ||
345 | #undef settt_ | |
346 | #define settt_(o,t) (tt_(o) = tag2tt(t)) | |
347 | ||
348 | #undef setnvalue | |
349 | #define setnvalue(obj,x) \ | |
350 | { TValue *io_=(obj); num_(io_)=(x); lua_assert(ttisnumber(io_)); } | |
351 | ||
352 | #undef setobj | |
353 | #define setobj(L,obj1,obj2) \ | |
354 | { const TValue *o2_=(obj2); TValue *o1_=(obj1); \ | |
355 | o1_->u = o2_->u; \ | |
356 | checkliveness(G(L),o1_); } | |
357 | ||
358 | ||
359 | /* | |
360 | ** these redefinitions are not mandatory, but these forms are more efficient | |
361 | */ | |
362 | ||
363 | #undef checktag | |
364 | #undef checktype | |
365 | #define checktag(o,t) (tt_(o) == tag2tt(t)) | |
366 | #define checktype(o,t) (ctb(tt_(o) | VARBITS) == ctb(tag2tt(t) | VARBITS)) | |
367 | ||
368 | #undef ttisequal | |
369 | #define ttisequal(o1,o2) \ | |
370 | (ttisnumber(o1) ? ttisnumber(o2) : (tt_(o1) == tt_(o2))) | |
371 | ||
372 | ||
373 | #undef luai_checknum | |
374 | #define luai_checknum(L,o,c) { if (!ttisnumber(o)) c; } | |
375 | ||
376 | #endif | |
377 | /* }====================================================== */ | |
378 | ||
379 | ||
380 | ||
381 | /* | |
382 | ** {====================================================== | |
383 | ** types and prototypes | |
384 | ** ======================================================= | |
385 | */ | |
386 | ||
387 | ||
388 | union Value { | |
389 | GCObject *gc; /* collectable objects */ | |
390 | void *p; /* light userdata */ | |
391 | int b; /* booleans */ | |
392 | lua_CFunction f; /* light C functions */ | |
393 | numfield /* numbers */ | |
394 | }; | |
395 | ||
396 | ||
397 | struct lua_TValue { | |
398 | TValuefields; | |
399 | }; | |
400 | ||
401 | ||
402 | typedef TValue *StkId; /* index to stack elements */ | |
403 | ||
404 | ||
405 | ||
406 | ||
407 | /* | |
408 | ** Header for string value; string bytes follow the end of this structure | |
409 | */ | |
410 | typedef union TString { | |
411 | L_Umaxalign dummy; /* ensures maximum alignment for strings */ | |
412 | struct { | |
413 | CommonHeader; | |
414 | lu_byte extra; /* reserved words for short strings; "has hash" for longs */ | |
415 | unsigned int hash; | |
416 | size_t len; /* number of characters in string */ | |
417 | } tsv; | |
418 | } TString; | |
419 | ||
420 | ||
421 | /* get the actual string (array of bytes) from a TString */ | |
422 | #define getstr(ts) cast(const char *, (ts) + 1) | |
423 | ||
424 | /* get the actual string (array of bytes) from a Lua value */ | |
425 | #define svalue(o) getstr(rawtsvalue(o)) | |
426 | ||
427 | ||
428 | /* | |
429 | ** Header for userdata; memory area follows the end of this structure | |
430 | */ | |
431 | typedef union Udata { | |
432 | L_Umaxalign dummy; /* ensures maximum alignment for `local' udata */ | |
433 | struct { | |
434 | CommonHeader; | |
435 | struct Table *metatable; | |
436 | struct Table *env; | |
437 | size_t len; /* number of bytes */ | |
438 | } uv; | |
439 | } Udata; | |
440 | ||
441 | ||
442 | ||
443 | /* | |
444 | ** Description of an upvalue for function prototypes | |
445 | */ | |
446 | typedef struct Upvaldesc { | |
447 | TString *name; /* upvalue name (for debug information) */ | |
448 | lu_byte instack; /* whether it is in stack */ | |
449 | lu_byte idx; /* index of upvalue (in stack or in outer function's list) */ | |
450 | } Upvaldesc; | |
451 | ||
452 | ||
453 | /* | |
454 | ** Description of a local variable for function prototypes | |
455 | ** (used for debug information) | |
456 | */ | |
457 | typedef struct LocVar { | |
458 | TString *varname; | |
459 | int startpc; /* first point where variable is active */ | |
460 | int endpc; /* first point where variable is dead */ | |
461 | } LocVar; | |
462 | ||
463 | ||
464 | /* | |
465 | ** Function Prototypes | |
466 | */ | |
467 | typedef struct Proto { | |
468 | CommonHeader; | |
469 | TValue *k; /* constants used by the function */ | |
470 | Instruction *code; | |
471 | struct Proto **p; /* functions defined inside the function */ | |
472 | int *lineinfo; /* map from opcodes to source lines (debug information) */ | |
473 | LocVar *locvars; /* information about local variables (debug information) */ | |
474 | Upvaldesc *upvalues; /* upvalue information */ | |
475 | union Closure *cache; /* last created closure with this prototype */ | |
476 | TString *source; /* used for debug information */ | |
477 | int sizeupvalues; /* size of 'upvalues' */ | |
478 | int sizek; /* size of `k' */ | |
479 | int sizecode; | |
480 | int sizelineinfo; | |
481 | int sizep; /* size of `p' */ | |
482 | int sizelocvars; | |
483 | int linedefined; | |
484 | int lastlinedefined; | |
485 | GCObject *gclist; | |
486 | lu_byte numparams; /* number of fixed parameters */ | |
487 | lu_byte is_vararg; | |
488 | lu_byte maxstacksize; /* maximum stack used by this function */ | |
489 | } Proto; | |
490 | ||
491 | ||
492 | ||
493 | /* | |
494 | ** Lua Upvalues | |
495 | */ | |
496 | typedef struct UpVal { | |
497 | CommonHeader; | |
498 | TValue *v; /* points to stack or to its own value */ | |
499 | union { | |
500 | TValue value; /* the value (when closed) */ | |
501 | struct { /* double linked list (when open) */ | |
502 | struct UpVal *prev; | |
503 | struct UpVal *next; | |
504 | } l; | |
505 | } u; | |
506 | } UpVal; | |
507 | ||
508 | ||
509 | /* | |
510 | ** Closures | |
511 | */ | |
512 | ||
513 | #define ClosureHeader \ | |
514 | CommonHeader; lu_byte nupvalues; GCObject *gclist | |
515 | ||
516 | typedef struct CClosure { | |
517 | ClosureHeader; | |
518 | lua_CFunction f; | |
519 | TValue upvalue[1]; /* list of upvalues */ | |
520 | } CClosure; | |
521 | ||
522 | ||
523 | typedef struct LClosure { | |
524 | ClosureHeader; | |
525 | struct Proto *p; | |
526 | UpVal *upvals[1]; /* list of upvalues */ | |
527 | } LClosure; | |
528 | ||
529 | ||
530 | typedef union Closure { | |
531 | CClosure c; | |
532 | LClosure l; | |
533 | } Closure; | |
534 | ||
535 | ||
536 | #define isLfunction(o) ttisLclosure(o) | |
537 | ||
538 | #define getproto(o) (clLvalue(o)->p) | |
539 | ||
540 | ||
541 | /* | |
542 | ** Tables | |
543 | */ | |
544 | ||
545 | typedef union TKey { | |
546 | struct { | |
547 | TValuefields; | |
548 | struct Node *next; /* for chaining */ | |
549 | } nk; | |
550 | TValue tvk; | |
551 | } TKey; | |
552 | ||
553 | ||
554 | typedef struct Node { | |
555 | TValue i_val; | |
556 | TKey i_key; | |
557 | } Node; | |
558 | ||
559 | ||
560 | typedef struct Table { | |
561 | CommonHeader; | |
562 | lu_byte flags; /* 1<<p means tagmethod(p) is not present */ | |
563 | lu_byte lsizenode; /* log2 of size of `node' array */ | |
564 | struct Table *metatable; | |
565 | TValue *array; /* array part */ | |
566 | Node *node; | |
567 | Node *lastfree; /* any free position is before this position */ | |
568 | GCObject *gclist; | |
569 | int sizearray; /* size of `array' array */ | |
570 | } Table; | |
571 | ||
572 | ||
573 | ||
574 | /* | |
575 | ** `module' operation for hashing (size is always a power of 2) | |
576 | */ | |
577 | #define lmod(s,size) \ | |
578 | (check_exp((size&(size-1))==0, (cast(int, (s) & ((size)-1))))) | |
579 | ||
580 | ||
581 | #define twoto(x) (1<<(x)) | |
582 | #define sizenode(t) (twoto((t)->lsizenode)) | |
583 | ||
584 | ||
585 | /* | |
586 | ** (address of) a fixed nil value | |
587 | */ | |
588 | #define luaO_nilobject (&luaO_nilobject_) | |
589 | ||
590 | ||
591 | LUAI_DDEC const TValue luaO_nilobject_; | |
592 | ||
593 | ||
594 | LUAI_FUNC int luaO_int2fb (unsigned int x); | |
595 | LUAI_FUNC int luaO_fb2int (int x); | |
596 | LUAI_FUNC int luaO_ceillog2 (unsigned int x); | |
597 | LUAI_FUNC lua_Number luaO_arith (int op, lua_Number v1, lua_Number v2); | |
598 | LUAI_FUNC int luaO_str2d (const char *s, size_t len, lua_Number *result); | |
599 | LUAI_FUNC int luaO_hexavalue (int c); | |
600 | LUAI_FUNC const char *luaO_pushvfstring (lua_State *L, const char *fmt, | |
601 | va_list argp); | |
602 | LUAI_FUNC const char *luaO_pushfstring (lua_State *L, const char *fmt, ...); | |
603 | LUAI_FUNC void luaO_chunkid (char *out, const char *source, size_t len); | |
604 | ||
605 | ||
606 | #endif | |
607 |