Line | Branch | Decision | Exec | Source |
---|---|---|---|---|
1 | /* | |||
2 | ** $Id: lobject.c $ | |||
3 | ** Some generic functions over Lua objects | |||
4 | ** See Copyright Notice in lua.h | |||
5 | */ | |||
6 | ||||
7 | #define lobject_c | |||
8 | #define LUA_CORE | |||
9 | ||||
10 | #include "lprefix.h" | |||
11 | ||||
12 | ||||
13 | #include <locale.h> | |||
14 | #include <math.h> | |||
15 | #include <stdarg.h> | |||
16 | #include <stdio.h> | |||
17 | #include <stdlib.h> | |||
18 | #include <string.h> | |||
19 | ||||
20 | #include "lua.h" | |||
21 | ||||
22 | #include "lctype.h" | |||
23 | #include "ldebug.h" | |||
24 | #include "ldo.h" | |||
25 | #include "lmem.h" | |||
26 | #include "lobject.h" | |||
27 | #include "lstate.h" | |||
28 | #include "lstring.h" | |||
29 | #include "lvm.h" | |||
30 | ||||
31 | ||||
32 | /* | |||
33 | ** Computes ceil(log2(x)) | |||
34 | */ | |||
35 | 14727 | int luaO_ceillog2 (unsigned int x) { | ||
36 | static const lu_byte log_2[256] = { /* log_2[i] = ceil(log2(i - 1)) */ | |||
37 | 0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, | |||
38 | 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, | |||
39 | 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, | |||
40 | 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, | |||
41 | 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, | |||
42 | 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, | |||
43 | 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, | |||
44 | 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8 | |||
45 | }; | |||
46 | 14727 | int l = 0; | ||
47 | 14727 | x--; | ||
48 |
2/2✓ Branch 0 taken 20 times.
✓ Branch 1 taken 14727 times.
|
2/2✓ Decision 'true' taken 20 times.
✓ Decision 'false' taken 14727 times.
|
14747 | while (x >= 256) { l += 8; x >>= 8; } |
49 | 14727 | return l + log_2[x]; | ||
50 | } | |||
51 | ||||
52 | ||||
53 | 47 | static lua_Integer intarith (lua_State *L, int op, lua_Integer v1, | ||
54 | lua_Integer v2) { | |||
55 |
2/13✗ Branch 0 not taken.
✗ Branch 1 not taken.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
✗ Branch 9 not taken.
✓ Branch 10 taken 45 times.
✗ Branch 11 not taken.
✗ Branch 12 not taken.
|
47 | switch (op) { | |
56 | ✗ | case LUA_OPADD: return intop(+, v1, v2); | ||
57 | ✗ | case LUA_OPSUB:return intop(-, v1, v2); | ||
58 |
1/1✓ Decision 'true' taken 2 times.
|
2 | case LUA_OPMUL:return intop(*, v1, v2); | |
59 | ✗ | case LUA_OPMOD: return luaV_mod(L, v1, v2); | ||
60 | ✗ | case LUA_OPIDIV: return luaV_idiv(L, v1, v2); | ||
61 | ✗ | case LUA_OPBAND: return intop(&, v1, v2); | ||
62 | ✗ | case LUA_OPBOR: return intop(|, v1, v2); | ||
63 | ✗ | case LUA_OPBXOR: return intop(^, v1, v2); | ||
64 | ✗ | case LUA_OPSHL: return luaV_shiftl(v1, v2); | ||
65 | ✗ | case LUA_OPSHR: return luaV_shiftr(v1, v2); | ||
66 |
1/1✓ Decision 'true' taken 45 times.
|
45 | case LUA_OPUNM: return intop(-, 0, v1); | |
67 | ✗ | case LUA_OPBNOT: return intop(^, ~l_castS2U(0), v1); | ||
68 | ✗ | default: lua_assert(0); return 0; | ||
69 | } | |||
70 | } | |||
71 | ||||
72 | ||||
73 | ✗ | static lua_Number numarith (lua_State *L, int op, lua_Number v1, | ||
74 | lua_Number v2) { | |||
75 | ✗ | switch (op) { | ||
76 | ✗ | case LUA_OPADD: return luai_numadd(L, v1, v2); | ||
77 | ✗ | case LUA_OPSUB: return luai_numsub(L, v1, v2); | ||
78 | ✗ | case LUA_OPMUL: return luai_nummul(L, v1, v2); | ||
79 | ✗ | case LUA_OPDIV: return luai_numdiv(L, v1, v2); | ||
80 | ✗ | case LUA_OPPOW: return luai_numpow(L, v1, v2); | ||
81 | ✗ | case LUA_OPIDIV: return luai_numidiv(L, v1, v2); | ||
82 | ✗ | case LUA_OPUNM: return luai_numunm(L, v1); | ||
83 | ✗ | case LUA_OPMOD: return luaV_modf(L, v1, v2); | ||
84 | ✗ | default: lua_assert(0); return 0; | ||
85 | } | |||
86 | } | |||
87 | ||||
88 | ||||
89 | 47 | int luaO_rawarith (lua_State *L, int op, const TValue *p1, const TValue *p2, | ||
90 | TValue *res) { | |||
91 |
1/3✗ Branch 0 not taken.
✗ Branch 1 not taken.
✓ Branch 2 taken 47 times.
|
47 | switch (op) { | |
92 | ✗ | case LUA_OPBAND: case LUA_OPBOR: case LUA_OPBXOR: | ||
93 | case LUA_OPSHL: case LUA_OPSHR: | |||
94 | case LUA_OPBNOT: { /* operate only on integers */ | |||
95 | lua_Integer i1; lua_Integer i2; | |||
96 | ✗ | if (tointegerns(p1, &i1) && tointegerns(p2, &i2)) { | ||
97 | ✗ | setivalue(res, intarith(L, op, i1, i2)); | ||
98 | ✗ | return 1; | ||
99 | } | |||
100 | ✗ | else return 0; /* fail */ | ||
101 | } | |||
102 | ✗ | case LUA_OPDIV: case LUA_OPPOW: { /* operate only on floats */ | ||
103 | lua_Number n1; lua_Number n2; | |||
104 | ✗ | if (tonumberns(p1, n1) && tonumberns(p2, n2)) { | ||
105 | ✗ | setfltvalue(res, numarith(L, op, n1, n2)); | ||
106 | ✗ | return 1; | ||
107 | } | |||
108 | ✗ | else return 0; /* fail */ | ||
109 | } | |||
110 |
1/1✓ Decision 'true' taken 47 times.
|
47 | default: { /* other operations */ | |
111 | lua_Number n1; lua_Number n2; | |||
112 |
2/4✓ Branch 0 taken 47 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 47 times.
✗ Branch 3 not taken.
|
1/2✓ Decision 'true' taken 47 times.
✗ Decision 'false' not taken.
|
47 | if (ttisinteger(p1) && ttisinteger(p2)) { |
113 | 47 | setivalue(res, intarith(L, op, ivalue(p1), ivalue(p2))); | ||
114 | 47 | return 1; | ||
115 | } | |||
116 | ✗ | else if (tonumberns(p1, n1) && tonumberns(p2, n2)) { | ||
117 | ✗ | setfltvalue(res, numarith(L, op, n1, n2)); | ||
118 | ✗ | return 1; | ||
119 | } | |||
120 | ✗ | else return 0; /* fail */ | ||
121 | } | |||
122 | } | |||
123 | } | |||
124 | ||||
125 | ||||
126 | ✗ | void luaO_arith (lua_State *L, int op, const TValue *p1, const TValue *p2, | ||
127 | StkId res) { | |||
128 | ✗ | if (!luaO_rawarith(L, op, p1, p2, s2v(res))) { | ||
129 | /* could not perform raw operation; try metamethod */ | |||
130 | ✗ | luaT_trybinTM(L, p1, p2, res, cast(TMS, (op - LUA_OPADD) + TM_ADD)); | ||
131 | } | |||
132 | ✗ | } | ||
133 | ||||
134 | ||||
135 | 1169 | int luaO_hexavalue (int c) { | ||
136 |
2/2✓ Branch 0 taken 951 times.
✓ Branch 1 taken 218 times.
|
2/2✓ Decision 'true' taken 951 times.
✓ Decision 'false' taken 218 times.
|
1169 | if (lisdigit(c)) return c - '0'; |
137 | 218 | else return (ltolower(c) - 'a') + 10; | ||
138 | } | |||
139 | ||||
140 | ||||
141 | 1783 | static int isneg (const char **s) { | ||
142 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 1783 times.
|
1/2✗ Decision 'true' not taken.
✓ Decision 'false' taken 1783 times.
|
1783 | if (**s == '-') { (*s)++; return 1; } |
143 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 1783 times.
|
1/2✗ Decision 'true' not taken.
✓ Decision 'false' taken 1783 times.
|
1783 | else if (**s == '+') (*s)++; |
144 | 1783 | return 0; | ||
145 | } | |||
146 | ||||
147 | ||||
148 | ||||
149 | /* | |||
150 | ** {================================================================== | |||
151 | ** Lua's implementation for 'lua_strx2number' | |||
152 | ** =================================================================== | |||
153 | */ | |||
154 | ||||
155 | #if !defined(lua_strx2number) | |||
156 | ||||
157 | /* maximum number of significant digits to read (to avoid overflows | |||
158 | even with single floats) */ | |||
159 | #define MAXSIGDIG 30 | |||
160 | ||||
161 | /* | |||
162 | ** convert a hexadecimal numeric string to a number, following | |||
163 | ** C99 specification for 'strtod' | |||
164 | */ | |||
165 | static lua_Number lua_strx2number (const char *s, char **endptr) { | |||
166 | int dot = lua_getlocaledecpoint(); | |||
167 | lua_Number r = l_mathop(0.0); /* result (accumulator) */ | |||
168 | int sigdig = 0; /* number of significant digits */ | |||
169 | int nosigdig = 0; /* number of non-significant digits */ | |||
170 | int e = 0; /* exponent correction */ | |||
171 | int neg; /* 1 if number is negative */ | |||
172 | int hasdot = 0; /* true after seen a dot */ | |||
173 | *endptr = cast_charp(s); /* nothing is valid yet */ | |||
174 | while (lisspace(cast_uchar(*s))) s++; /* skip initial spaces */ | |||
175 | neg = isneg(&s); /* check sign */ | |||
176 | if (!(*s == '0' && (*(s + 1) == 'x' || *(s + 1) == 'X'))) /* check '0x' */ | |||
177 | return l_mathop(0.0); /* invalid format (no '0x') */ | |||
178 | for (s += 2; ; s++) { /* skip '0x' and read numeral */ | |||
179 | if (*s == dot) { | |||
180 | if (hasdot) break; /* second dot? stop loop */ | |||
181 | else hasdot = 1; | |||
182 | } | |||
183 | else if (lisxdigit(cast_uchar(*s))) { | |||
184 | if (sigdig == 0 && *s == '0') /* non-significant digit (zero)? */ | |||
185 | nosigdig++; | |||
186 | else if (++sigdig <= MAXSIGDIG) /* can read it without overflow? */ | |||
187 | r = (r * l_mathop(16.0)) + luaO_hexavalue(*s); | |||
188 | else e++; /* too many digits; ignore, but still count for exponent */ | |||
189 | if (hasdot) e--; /* decimal digit? correct exponent */ | |||
190 | } | |||
191 | else break; /* neither a dot nor a digit */ | |||
192 | } | |||
193 | if (nosigdig + sigdig == 0) /* no digits? */ | |||
194 | return l_mathop(0.0); /* invalid format */ | |||
195 | *endptr = cast_charp(s); /* valid up to here */ | |||
196 | e *= 4; /* each digit multiplies/divides value by 2^4 */ | |||
197 | if (*s == 'p' || *s == 'P') { /* exponent part? */ | |||
198 | int exp1 = 0; /* exponent value */ | |||
199 | int neg1; /* exponent sign */ | |||
200 | s++; /* skip 'p' */ | |||
201 | neg1 = isneg(&s); /* sign */ | |||
202 | if (!lisdigit(cast_uchar(*s))) | |||
203 | return l_mathop(0.0); /* invalid; must have at least one digit */ | |||
204 | while (lisdigit(cast_uchar(*s))) /* read exponent */ | |||
205 | exp1 = exp1 * 10 + *(s++) - '0'; | |||
206 | if (neg1) exp1 = -exp1; | |||
207 | e += exp1; | |||
208 | *endptr = cast_charp(s); /* valid up to here */ | |||
209 | } | |||
210 | if (neg) r = -r; | |||
211 | return l_mathop(ldexp)(r, e); | |||
212 | } | |||
213 | ||||
214 | #endif | |||
215 | /* }====================================================== */ | |||
216 | ||||
217 | ||||
218 | /* maximum length of a numeral to be converted to a number */ | |||
219 | #if !defined (L_MAXLENNUM) | |||
220 | #define L_MAXLENNUM 200 | |||
221 | #endif | |||
222 | ||||
223 | /* | |||
224 | ** Convert string 's' to a Lua number (put in 'result'). Return NULL on | |||
225 | ** fail or the address of the ending '\0' on success. ('mode' == 'x') | |||
226 | ** means a hexadecimal numeral. | |||
227 | */ | |||
228 | 68 | static const char *l_str2dloc (const char *s, lua_Number *result, int mode) { | ||
229 | char *endptr; | |||
230 | ✗ | *result = (mode == 'x') ? lua_strx2number(s, &endptr) /* try to convert */ | ||
231 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 68 times.
|
68 | : lua_str2number(s, &endptr); | |
232 |
2/2✓ Branch 0 taken 1 time.
✓ Branch 1 taken 67 times.
|
2/2✓ Decision 'true' taken 1 time.
✓ Decision 'false' taken 67 times.
|
68 | if (endptr == s) return NULL; /* nothing recognized? */ |
233 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 67 times.
|
1/2✗ Decision 'true' not taken.
✓ Decision 'false' taken 67 times.
|
67 | while (lisspace(cast_uchar(*endptr))) endptr++; /* skip trailing spaces */ |
234 |
1/2✓ Branch 0 taken 67 times.
✗ Branch 1 not taken.
|
67 | return (*endptr == '\0') ? endptr : NULL; /* OK iff no trailing chars */ | |
235 | } | |||
236 | ||||
237 | ||||
238 | /* | |||
239 | ** Convert string 's' to a Lua number (put in 'result') handling the | |||
240 | ** current locale. | |||
241 | ** This function accepts both the current locale or a dot as the radix | |||
242 | ** mark. If the conversion fails, it may mean number has a dot but | |||
243 | ** locale accepts something else. In that case, the code copies 's' | |||
244 | ** to a buffer (because 's' is read-only), changes the dot to the | |||
245 | ** current locale radix mark, and tries to convert again. | |||
246 | ** The variable 'mode' checks for special characters in the string: | |||
247 | ** - 'n' means 'inf' or 'nan' (which should be rejected) | |||
248 | ** - 'x' means a hexadecimal numeral | |||
249 | ** - '.' just optimizes the search for the common case (no special chars) | |||
250 | */ | |||
251 |
1/1✓ Decision 'true' taken 68 times.
|
68 | static const char *l_str2d (const char *s, lua_Number *result) { | |
252 | const char *endptr; | |||
253 | 68 | const char *pmode = strpbrk(s, ".xXnN"); /* look for special chars */ | ||
254 |
2/2✓ Branch 0 taken 67 times.
✓ Branch 1 taken 1 time.
|
68 | int mode = pmode ? ltolower(cast_uchar(*pmode)) : 0; | |
255 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 68 times.
|
1/2✗ Decision 'true' not taken.
✓ Decision 'false' taken 68 times.
|
68 | if (mode == 'n') /* reject 'inf' and 'nan' */ |
256 | ✗ | return NULL; | ||
257 | 68 | endptr = l_str2dloc(s, result, mode); /* try to convert */ | ||
258 |
2/2✓ Branch 0 taken 1 time.
✓ Branch 1 taken 67 times.
|
2/2✓ Decision 'true' taken 1 time.
✓ Decision 'false' taken 67 times.
|
68 | if (endptr == NULL) { /* failed? may be a different locale */ |
259 | char buff[L_MAXLENNUM + 1]; | |||
260 | 1 | const char *pdot = strchr(s, '.'); | ||
261 |
1/4✗ Branch 0 not taken.
✓ Branch 1 taken 1 time.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
|
1/2✓ Decision 'true' taken 1 time.
✗ Decision 'false' not taken.
|
1 | if (pdot == NULL || strlen(s) > L_MAXLENNUM) |
262 | 1 | return NULL; /* string too long or no dot; fail */ | ||
263 | ✗ | strcpy(buff, s); /* copy string to buffer */ | ||
264 | ✗ | buff[pdot - s] = lua_getlocaledecpoint(); /* correct decimal point */ | ||
265 | ✗ | endptr = l_str2dloc(buff, result, mode); /* try again */ | ||
266 | ✗ | if (endptr != NULL) | ||
267 | ✗ | endptr = s + (endptr - buff); /* make relative to 's' */ | ||
268 | } | |||
269 | 67 | return endptr; | ||
270 | } | |||
271 | ||||
272 | ||||
273 | #define MAXBY10 cast(lua_Unsigned, LUA_MAXINTEGER / 10) | |||
274 | #define MAXLASTD cast_int(LUA_MAXINTEGER % 10) | |||
275 | ||||
276 | 1783 | static const char *l_str2int (const char *s, lua_Integer *result) { | ||
277 | 1783 | lua_Unsigned a = 0; | ||
278 | 1783 | int empty = 1; | ||
279 | int neg; | |||
280 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 1783 times.
|
1/2✗ Decision 'true' not taken.
✓ Decision 'false' taken 1783 times.
|
1783 | while (lisspace(cast_uchar(*s))) s++; /* skip initial spaces */ |
281 | 1783 | neg = isneg(&s); | ||
282 |
2/2✓ Branch 0 taken 736 times.
✓ Branch 1 taken 1047 times.
|
2/2✓ Decision 'true' taken 584 times.
✓ Decision 'false' taken 1199 times.
|
1783 | if (s[0] == '0' && |
283 |
3/4✓ Branch 0 taken 152 times.
✓ Branch 1 taken 584 times.
✗ Branch 2 not taken.
✓ Branch 3 taken 152 times.
|
736 | (s[1] == 'x' || s[1] == 'X')) { /* hex? */ | |
284 | 584 | s += 2; /* skip '0x' */ | ||
285 |
2/2✓ Branch 0 taken 1169 times.
✓ Branch 1 taken 584 times.
|
2/2✓ Decision 'true' taken 1169 times.
✓ Decision 'false' taken 584 times.
|
1753 | for (; lisxdigit(cast_uchar(*s)); s++) { |
286 | 1169 | a = a * 16 + luaO_hexavalue(*s); | ||
287 | 1169 | empty = 0; | ||
288 | } | |||
289 | } | |||
290 | else { /* decimal */ | |||
291 |
2/2✓ Branch 0 taken 1565 times.
✓ Branch 1 taken 1199 times.
|
2/2✓ Decision 'true' taken 1565 times.
✓ Decision 'false' taken 1199 times.
|
2764 | for (; lisdigit(cast_uchar(*s)); s++) { |
292 | 1565 | int d = *s - '0'; | ||
293 |
1/6✗ Branch 0 not taken.
✓ Branch 1 taken 1565 times.
✗ Branch 2 not taken.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
|
1/2✗ Decision 'true' not taken.
✓ Decision 'false' taken 1565 times.
|
1565 | if (a >= MAXBY10 && (a > MAXBY10 || d > MAXLASTD + neg)) /* overflow? */ |
294 | ✗ | return NULL; /* do not accept it (as integer) */ | ||
295 | 1565 | a = a * 10 + d; | ||
296 | 1565 | empty = 0; | ||
297 | } | |||
298 | } | |||
299 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 1783 times.
|
1/2✗ Decision 'true' not taken.
✓ Decision 'false' taken 1783 times.
|
1783 | while (lisspace(cast_uchar(*s))) s++; /* skip trailing spaces */ |
300 |
4/4✓ Branch 0 taken 1782 times.
✓ Branch 1 taken 1 time.
✓ Branch 2 taken 67 times.
✓ Branch 3 taken 1715 times.
|
2/2✓ Decision 'true' taken 1715 times.
✓ Decision 'false' taken 68 times.
|
1783 | if (empty || *s != '\0') return NULL; /* something wrong in the numeral */ |
301 | else { | |||
302 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 1715 times.
|
1715 | *result = l_castU2S((neg) ? 0u - a : a); | |
303 | 1715 | return s; | ||
304 | } | |||
305 | } | |||
306 | ||||
307 | ||||
308 | 1783 | size_t luaO_str2num (const char *s, TValue *o) { | ||
309 | lua_Integer i; lua_Number n; | |||
310 | const char *e; | |||
311 |
2/2✓ Branch 1 taken 1715 times.
✓ Branch 2 taken 68 times.
|
2/2✓ Decision 'true' taken 1715 times.
✓ Decision 'false' taken 68 times.
|
1783 | if ((e = l_str2int(s, &i)) != NULL) { /* try as an integer */ |
312 | 1715 | setivalue(o, i); | ||
313 | } | |||
314 |
2/2✓ Branch 1 taken 67 times.
✓ Branch 2 taken 1 time.
|
2/2✓ Decision 'true' taken 67 times.
✓ Decision 'false' taken 1 time.
|
68 | else if ((e = l_str2d(s, &n)) != NULL) { /* else try as a float */ |
315 | 67 | setfltvalue(o, n); | ||
316 | } | |||
317 | else | |||
318 | 1 | return 0; /* conversion failed */ | ||
319 | 1782 | return (e - s) + 1; /* success; return string size */ | ||
320 | } | |||
321 | ||||
322 | ||||
323 | ✗ | int luaO_utf8esc (char *buff, unsigned long x) { | ||
324 | ✗ | int n = 1; /* number of bytes put in buffer (backwards) */ | ||
325 | lua_assert(x <= 0x7FFFFFFFu); | |||
326 | ✗ | if (x < 0x80) /* ascii? */ | ||
327 | ✗ | buff[UTF8BUFFSZ - 1] = cast_char(x); | ||
328 | else { /* need continuation bytes */ | |||
329 | ✗ | unsigned int mfb = 0x3f; /* maximum that fits in first byte */ | ||
330 | do { /* add continuation bytes */ | |||
331 | ✗ | buff[UTF8BUFFSZ - (n++)] = cast_char(0x80 | (x & 0x3f)); | ||
332 | ✗ | x >>= 6; /* remove added bits */ | ||
333 | ✗ | mfb >>= 1; /* now there is one less bit available in first byte */ | ||
334 | ✗ | } while (x > mfb); /* still needs continuation byte? */ | ||
335 | ✗ | buff[UTF8BUFFSZ - n] = cast_char((~mfb << 1) | x); /* add first byte */ | ||
336 | } | |||
337 | ✗ | return n; | ||
338 | } | |||
339 | ||||
340 | ||||
341 | /* | |||
342 | ** Maximum length of the conversion of a number to a string. Must be | |||
343 | ** enough to accommodate both LUA_INTEGER_FMT and LUA_NUMBER_FMT. | |||
344 | ** (For a long long int, this is 19 digits plus a sign and a final '\0', | |||
345 | ** adding to 21. For a long double, it can go to a sign, 33 digits, | |||
346 | ** the dot, an exponent letter, an exponent sign, 5 exponent digits, | |||
347 | ** and a final '\0', adding to 43.) | |||
348 | */ | |||
349 | #define MAXNUMBER2STR 44 | |||
350 | ||||
351 | ||||
352 | /* | |||
353 | ** Convert a number object to a string, adding it to a buffer | |||
354 | */ | |||
355 | 77 | static int tostringbuff (TValue *obj, char *buff) { | ||
356 | int len; | |||
357 | lua_assert(ttisnumber(obj)); | |||
358 |
2/2✓ Branch 0 taken 54 times.
✓ Branch 1 taken 23 times.
|
2/2✓ Decision 'true' taken 54 times.
✓ Decision 'false' taken 23 times.
|
77 | if (ttisinteger(obj)) |
359 | 54 | len = lua_integer2str(buff, MAXNUMBER2STR, ivalue(obj)); | ||
360 | else { | |||
361 | 23 | len = lua_number2str(buff, MAXNUMBER2STR, fltvalue(obj)); | ||
362 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 23 times.
|
1/2✗ Decision 'true' not taken.
✓ Decision 'false' taken 23 times.
|
23 | if (buff[strspn(buff, "-0123456789")] == '\0') { /* looks like an int? */ |
363 | ✗ | buff[len++] = lua_getlocaledecpoint(); | ||
364 | ✗ | buff[len++] = '0'; /* adds '.0' to result */ | ||
365 | } | |||
366 | } | |||
367 | 77 | return len; | ||
368 | } | |||
369 | ||||
370 | ||||
371 | /* | |||
372 | ** Convert a number object to a Lua string, replacing the value at 'obj' | |||
373 | */ | |||
374 | 65 | void luaO_tostring (lua_State *L, TValue *obj) { | ||
375 | char buff[MAXNUMBER2STR]; | |||
376 | 65 | int len = tostringbuff(obj, buff); | ||
377 | 65 | setsvalue(L, obj, luaS_newlstr(L, buff, len)); | ||
378 | 65 | } | ||
379 | ||||
380 | ||||
381 | ||||
382 | ||||
383 | /* | |||
384 | ** {================================================================== | |||
385 | ** 'luaO_pushvfstring' | |||
386 | ** =================================================================== | |||
387 | */ | |||
388 | ||||
389 | /* | |||
390 | ** Size for buffer space used by 'luaO_pushvfstring'. It should be | |||
391 | ** (LUA_IDSIZE + MAXNUMBER2STR) + a minimal space for basic messages, | |||
392 | ** so that 'luaG_addinfo' can work directly on the buffer. | |||
393 | */ | |||
394 | #define BUFVFS (LUA_IDSIZE + MAXNUMBER2STR + 95) | |||
395 | ||||
396 | /* buffer used by 'luaO_pushvfstring' */ | |||
397 | typedef struct BuffFS { | |||
398 | lua_State *L; | |||
399 | int pushed; /* true if there is a part of the result on the stack */ | |||
400 | int blen; /* length of partial string in 'space' */ | |||
401 | char space[BUFVFS]; /* holds last part of the result */ | |||
402 | } BuffFS; | |||
403 | ||||
404 | ||||
405 | /* | |||
406 | ** Push given string to the stack, as part of the result, and | |||
407 | ** join it to previous partial result if there is one. | |||
408 | ** It may call 'luaV_concat' while using one slot from EXTRA_STACK. | |||
409 | ** This call cannot invoke metamethods, as both operands must be | |||
410 | ** strings. It can, however, raise an error if the result is too | |||
411 | ** long. In that case, 'luaV_concat' frees the extra slot before | |||
412 | ** raising the error. | |||
413 | */ | |||
414 | 15 | static void pushstr (BuffFS *buff, const char *str, size_t lstr) { | ||
415 | 15 | lua_State *L = buff->L; | ||
416 | 15 | setsvalue2s(L, L->top.p, luaS_newlstr(L, str, lstr)); | ||
417 | 15 | L->top.p++; /* may use one slot from EXTRA_STACK */ | ||
418 |
1/2✓ Branch 0 taken 15 times.
✗ Branch 1 not taken.
|
1/2✓ Decision 'true' taken 15 times.
✗ Decision 'false' not taken.
|
15 | if (!buff->pushed) /* no previous string on the stack? */ |
419 | 15 | buff->pushed = 1; /* now there is one */ | ||
420 | else /* join previous string with new one */ | |||
421 | ✗ | luaV_concat(L, 2); | ||
422 | 15 | } | ||
423 | ||||
424 | ||||
425 | /* | |||
426 | ** empty the buffer space into the stack | |||
427 | */ | |||
428 | 15 | static void clearbuff (BuffFS *buff) { | ||
429 | 15 | pushstr(buff, buff->space, buff->blen); /* push buffer contents */ | ||
430 | 15 | buff->blen = 0; /* space now is empty */ | ||
431 | 15 | } | ||
432 | ||||
433 | ||||
434 | /* | |||
435 | ** Get a space of size 'sz' in the buffer. If buffer has not enough | |||
436 | ** space, empty it. 'sz' must fit in an empty buffer. | |||
437 | */ | |||
438 | 81 | static char *getbuff (BuffFS *buff, int sz) { | ||
439 | lua_assert(buff->blen <= BUFVFS); lua_assert(sz <= BUFVFS); | |||
440 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 81 times.
|
1/2✗ Decision 'true' not taken.
✓ Decision 'false' taken 81 times.
|
81 | if (sz > BUFVFS - buff->blen) /* not enough space? */ |
441 | ✗ | clearbuff(buff); | ||
442 | 81 | return buff->space + buff->blen; | ||
443 | } | |||
444 | ||||
445 | ||||
446 | #define addsize(b,sz) ((b)->blen += (sz)) | |||
447 | ||||
448 | ||||
449 | /* | |||
450 | ** Add 'str' to the buffer. If string is larger than the buffer space, | |||
451 | ** push the string directly to the stack. | |||
452 | */ | |||
453 | 69 | static void addstr2buff (BuffFS *buff, const char *str, size_t slen) { | ||
454 |
1/2✓ Branch 0 taken 69 times.
✗ Branch 1 not taken.
|
1/2✓ Decision 'true' taken 69 times.
✗ Decision 'false' not taken.
|
69 | if (slen <= BUFVFS) { /* does string fit into buffer? */ |
455 | 69 | char *bf = getbuff(buff, cast_int(slen)); | ||
456 | 69 | memcpy(bf, str, slen); /* add string to buffer */ | ||
457 | 69 | addsize(buff, cast_int(slen)); | ||
458 | } | |||
459 | else { /* string larger than buffer */ | |||
460 | ✗ | clearbuff(buff); /* string comes after buffer's content */ | ||
461 | ✗ | pushstr(buff, str, slen); /* push string */ | ||
462 | } | |||
463 | 69 | } | ||
464 | ||||
465 | ||||
466 | /* | |||
467 | ** Add a numeral to the buffer. | |||
468 | */ | |||
469 | 12 | static void addnum2buff (BuffFS *buff, TValue *num) { | ||
470 | 12 | char *numbuff = getbuff(buff, MAXNUMBER2STR); | ||
471 | 12 | int len = tostringbuff(num, numbuff); /* format number into 'numbuff' */ | ||
472 | 12 | addsize(buff, len); | ||
473 | 12 | } | ||
474 | ||||
475 | ||||
476 | /* | |||
477 | ** this function handles only '%d', '%c', '%f', '%p', '%s', and '%%' | |||
478 | conventional formats, plus Lua-specific '%I' and '%U' | |||
479 | */ | |||
480 | 15 | const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) { | ||
481 | BuffFS buff; /* holds last part of the result */ | |||
482 | const char *e; /* points to next '%' */ | |||
483 | 15 | buff.pushed = buff.blen = 0; | ||
484 | 15 | buff.L = L; | ||
485 |
2/2✓ Branch 0 taken 33 times.
✓ Branch 1 taken 15 times.
|
2/2✓ Decision 'true' taken 33 times.
✓ Decision 'false' taken 15 times.
|
48 | while ((e = strchr(fmt, '%')) != NULL) { |
486 | 33 | addstr2buff(&buff, fmt, e - fmt); /* add 'fmt' up to '%' */ | ||
487 |
2/9✓ Branch 0 taken 21 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 12 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✗ Branch 7 not taken.
✗ Branch 8 not taken.
|
33 | switch (*(e + 1)) { /* conversion specifier */ | |
488 |
1/1✓ Decision 'true' taken 21 times.
|
21 | case 's': { /* zero-terminated string */ | |
489 | 21 | const char *s = va_arg(argp, char *); | ||
490 |
2/2✓ Branch 0 taken 1 time.
✓ Branch 1 taken 20 times.
|
2/2✓ Decision 'true' taken 1 time.
✓ Decision 'false' taken 20 times.
|
21 | if (s == NULL) s = "(null)"; |
491 | 21 | addstr2buff(&buff, s, strlen(s)); | ||
492 | 21 | break; | ||
493 | } | |||
494 | ✗ | case 'c': { /* an 'int' as a character */ | ||
495 | ✗ | char c = cast_uchar(va_arg(argp, int)); | ||
496 | ✗ | addstr2buff(&buff, &c, sizeof(char)); | ||
497 | ✗ | break; | ||
498 | } | |||
499 |
1/1✓ Decision 'true' taken 12 times.
|
12 | case 'd': { /* an 'int' */ | |
500 | TValue num; | |||
501 | 12 | setivalue(&num, va_arg(argp, int)); | ||
502 | 12 | addnum2buff(&buff, &num); | ||
503 | 12 | break; | ||
504 | } | |||
505 | ✗ | case 'I': { /* a 'lua_Integer' */ | ||
506 | TValue num; | |||
507 | ✗ | setivalue(&num, cast(lua_Integer, va_arg(argp, l_uacInt))); | ||
508 | ✗ | addnum2buff(&buff, &num); | ||
509 | ✗ | break; | ||
510 | } | |||
511 | ✗ | case 'f': { /* a 'lua_Number' */ | ||
512 | TValue num; | |||
513 | ✗ | setfltvalue(&num, cast_num(va_arg(argp, l_uacNumber))); | ||
514 | ✗ | addnum2buff(&buff, &num); | ||
515 | ✗ | break; | ||
516 | } | |||
517 | ✗ | case 'p': { /* a pointer */ | ||
518 | ✗ | const int sz = 3 * sizeof(void*) + 8; /* enough space for '%p' */ | ||
519 | ✗ | char *bf = getbuff(&buff, sz); | ||
520 | ✗ | void *p = va_arg(argp, void *); | ||
521 | ✗ | int len = lua_pointer2str(bf, sz, p); | ||
522 | ✗ | addsize(&buff, len); | ||
523 | ✗ | break; | ||
524 | } | |||
525 | ✗ | case 'U': { /* a 'long' as a UTF-8 sequence */ | ||
526 | char bf[UTF8BUFFSZ]; | |||
527 | ✗ | int len = luaO_utf8esc(bf, va_arg(argp, long)); | ||
528 | ✗ | addstr2buff(&buff, bf + UTF8BUFFSZ - len, len); | ||
529 | ✗ | break; | ||
530 | } | |||
531 | ✗ | case '%': { | ||
532 | ✗ | addstr2buff(&buff, "%", 1); | ||
533 | ✗ | break; | ||
534 | } | |||
535 | ✗ | default: { | ||
536 | ✗ | luaG_runerror(L, "invalid option '%%%c' to 'lua_pushfstring'", | ||
537 | ✗ | *(e + 1)); | ||
538 | } | |||
539 | } | |||
540 | 33 | fmt = e + 2; /* skip '%' and the specifier */ | ||
541 | } | |||
542 | 15 | addstr2buff(&buff, fmt, strlen(fmt)); /* rest of 'fmt' */ | ||
543 | 15 | clearbuff(&buff); /* empty buffer into the stack */ | ||
544 | lua_assert(buff.pushed == 1); | |||
545 | 15 | return svalue(s2v(L->top.p - 1)); | ||
546 | } | |||
547 | ||||
548 | ||||
549 | 2 | const char *luaO_pushfstring (lua_State *L, const char *fmt, ...) { | ||
550 | const char *msg; | |||
551 | va_list argp; | |||
552 | 2 | va_start(argp, fmt); | ||
553 | 2 | msg = luaO_pushvfstring(L, fmt, argp); | ||
554 | 2 | va_end(argp); | ||
555 | 2 | return msg; | ||
556 | } | |||
557 | ||||
558 | /* }================================================================== */ | |||
559 | ||||
560 | ||||
561 | #define RETS "..." | |||
562 | #define PRE "[string \"" | |||
563 | #define POS "\"]" | |||
564 | ||||
565 | #define addstr(a,b,l) ( memcpy(a,b,(l) * sizeof(char)), a += (l) ) | |||
566 | ||||
567 | 7 | void luaO_chunkid (char *out, const char *source, size_t srclen) { | ||
568 | 7 | size_t bufflen = LUA_IDSIZE; /* free space in buffer */ | ||
569 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 7 times.
|
1/2✗ Decision 'true' not taken.
✓ Decision 'false' taken 7 times.
|
7 | if (*source == '=') { /* 'literal' source */ |
570 | ✗ | if (srclen <= bufflen) /* small enough? */ | ||
571 | ✗ | memcpy(out, source + 1, srclen * sizeof(char)); | ||
572 | else { /* truncate it */ | |||
573 | ✗ | addstr(out, source + 1, bufflen - 1); | ||
574 | ✗ | *out = '\0'; | ||
575 | } | |||
576 | } | |||
577 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 7 times.
|
1/2✗ Decision 'true' not taken.
✓ Decision 'false' taken 7 times.
|
7 | else if (*source == '@') { /* file name */ |
578 | ✗ | if (srclen <= bufflen) /* small enough? */ | ||
579 | ✗ | memcpy(out, source + 1, srclen * sizeof(char)); | ||
580 | else { /* add '...' before rest of name */ | |||
581 | ✗ | addstr(out, RETS, LL(RETS)); | ||
582 | ✗ | bufflen -= LL(RETS); | ||
583 | ✗ | memcpy(out, source + 1 + srclen - bufflen, bufflen * sizeof(char)); | ||
584 | } | |||
585 | } | |||
586 | else { /* string; format as [string "source"] */ | |||
587 | 7 | const char *nl = strchr(source, '\n'); /* find first new line (if any) */ | ||
588 | 7 | addstr(out, PRE, LL(PRE)); /* add prefix */ | ||
589 | 7 | bufflen -= LL(PRE RETS POS) + 1; /* save space for prefix+suffix+'\0' */ | ||
590 |
2/4✓ Branch 0 taken 7 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 7 times.
✗ Branch 3 not taken.
|
1/2✓ Decision 'true' taken 7 times.
✗ Decision 'false' not taken.
|
7 | if (srclen < bufflen && nl == NULL) { /* small one-line source? */ |
591 | 7 | addstr(out, source, srclen); /* keep it */ | ||
592 | } | |||
593 | else { | |||
594 | ✗ | if (nl != NULL) srclen = nl - source; /* stop at first newline */ | ||
595 | ✗ | if (srclen > bufflen) srclen = bufflen; | ||
596 | ✗ | addstr(out, source, srclen); | ||
597 | ✗ | addstr(out, RETS, LL(RETS)); | ||
598 | } | |||
599 | 7 | memcpy(out, POS, (LL(POS) + 1) * sizeof(char)); | ||
600 | } | |||
601 | 7 | } | ||
602 | ||||
603 |