28 ** (eeeeexxx), where the real value is (1xxx) * 2^(eeeee - 1) if
29 ** eeeee != 0 and (xxx) otherwise.
32   int e = 0;  /* exponent */  in luaO_int2fb()
33   if (x < 8) return x;  in luaO_int2fb()
34   while (x >= 0x10) {  in luaO_int2fb()
38   return ((e+1) << 3) | (cast_int(x) - 8);  in luaO_int2fb()
44   int e = (x >> 3) & 0x1f;  in luaO_fb2int()
45   if (e == 0) return x;  in luaO_fb2int()
46   else return ((x & 7) + 8) << (e - 1);  in luaO_fb2int()
52     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,  in luaO_ceillog2()
56     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,  in luaO_ceillog2()
57     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,  in luaO_ceillog2()
58     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,  in luaO_ceillog2()
59     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  in luaO_ceillog2()
61   int l = 0;  in luaO_ceillog2()
62   x--;  in luaO_ceillog2()
63   while (x >= 256) { l += 8; x >>= 8; }  in luaO_ceillog2()
77     default: lua_assert(0); return 0;  in luaO_arith()
83   if (lisdigit(c)) return c - '0';  in luaO_hexavalue()
84   else return ltolower(c) - 'a' + 10;  in luaO_hexavalue()
93   if (**s == '-') { (*s)++; return 1; }  in isneg()
95   return 0;  in isneg()
114   int e = 0, i = 0;  in lua_strx2number()
115   int neg = 0;  /* 1 if number is negative */  in lua_strx2number()
119   if (!(*s == '0' && (*(s + 1) == 'x' || *(s + 1) == 'X')))  /* check '0x' */  in lua_strx2number()
120     return 0.0;  /* invalid format (no '0x') */  in lua_strx2number()
121   s += 2;  /* skip '0x' */  in lua_strx2number()
127   if (i == 0 && e == 0)  in lua_strx2number()
129   e *= -4;  /* each fractional digit divides value by 2^-4 */  in lua_strx2number()
132     int exp1 = 0;  in lua_strx2number()
139       exp1 = exp1 * 10 + *(s++) - '0';  in lua_strx2number()
140     if (neg1) exp1 = -exp1;  in lua_strx2number()
145   if (neg) r = -r;  in lua_strx2number()
146   return ((e >= 0) ? (r * (1ULL << e)) : (r / (1ULL << -e)));  in lua_strx2number()
155     return 0;  in luaO_str2d()
160   if (endptr == s) return 0;  /* nothing recognized */  in luaO_str2d()
168   setsvalue2s(L, L->top++, luaS_newlstr(L, str, l));  in pushstr()
174   int n = 0;  in luaO_pushvfstring()
179     pushstr(L, fmt, e - fmt);  in luaO_pushvfstring()
194         setnvalue(L->top++, cast_num(va_arg(argp, int)));  in luaO_pushvfstring()
198         setnvalue(L->top++, cast_num(va_arg(argp, l_uacNumber)));  in luaO_pushvfstring()
202         char buff[4*sizeof(void *) + 8]; /* should be enough space for a `%p' */  in luaO_pushvfstring()
222   if (n > 0) luaV_concat(L, n + 1);  in luaO_pushvfstring()
223   return svalue(L->top - 1);  in luaO_pushvfstring()
237 /* number of chars of a literal string without the ending \0 */
238 #define LL(x)	(sizeof(x)/sizeof(char) - 1)
252       addstr(out, source + 1, bufflen - 1);  in luaO_chunkid()
253       *out = '\0';  in luaO_chunkid()
261       bufflen -= LL(RETS);  in luaO_chunkid()
262       memcpy(out, source + 1 + l - bufflen, bufflen * sizeof(char));  in luaO_chunkid()
268     bufflen -= LL(PRE RETS POS) + 1;  /* save space for prefix+suffix+'\0' */  in luaO_chunkid()
269     if (l < bufflen && nl == NULL) {  /* small one-line source? */  in luaO_chunkid()
273       if (nl != NULL) l = nl - source;  /* stop at first newline */  in luaO_chunkid()