28 ** (eeeeexxx), where the real value is (1xxx) * 2^(eeeee - 1) if
33   if (x < 8) return x;  in luaO_int2fb()
35     x = (x+1) >> 1;  in luaO_int2fb()
38   return ((e+1) << 3) | (cast_int(x) - 8);  in luaO_int2fb()
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()
62   x--;  in luaO_ceillog2()
63   while (x >= 256) { l += 8; x >>= 8; }  in luaO_ceillog2()
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()
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()
129   e *= -4;  /* each fractional digit divides value by 2^-4 */  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()
168   setsvalue2s(L, L->top++, luaS_newlstr(L, str, l));  in pushstr()
179     pushstr(L, fmt, e - fmt);  in luaO_pushvfstring()
180     switch (*(e+1)) {  in luaO_pushvfstring()
190         pushstr(L, &buff, 1);  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()
208         pushstr(L, "%", 1);  in luaO_pushvfstring()
214             *(e + 1));  in luaO_pushvfstring()
220   luaD_checkstack(L, 1);  in luaO_pushvfstring()
222   if (n > 0) luaV_concat(L, n + 1);  in luaO_pushvfstring()
223   return svalue(L->top - 1);  in luaO_pushvfstring()
238 #define LL(x)	(sizeof(x)/sizeof(char) - 1)
250       memcpy(out, source + 1, l * sizeof(char));  in luaO_chunkid()
252       addstr(out, source + 1, bufflen - 1);  in luaO_chunkid()
258       memcpy(out, source + 1, l * sizeof(char));  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()
278     memcpy(out, POS, (LL(POS) + 1) * sizeof(char));  in luaO_chunkid()