Function l_str2int

src/Chain/libraries/glua/lobject.cpp:260–286

static const char *l_str2int(const char *s, lua_Integer *result) {
    lua_Unsigned a = 0;
    int empty = 1;
    int neg;
    while (lisspace(cast_uchar(*s))) s++;  /* skip initial spaces */
    neg = isneg(&s);
    if (s[0] == '0' &&
        (s[1] == 'x' || s[1] == 'X')) {  /* hex? */
        s += 2;  /* skip '0x' */
        for (; lisxdigit(cast_uchar(*s)); s++) {
            a = a * 16 + luaO_hexavalue(*s);
            empty = 0;
        }
    }
    else {  /* decimal */
        for (; lisdigit(cast_uchar(*s)); s++) {
            a = a * 10 + *s - '0';
            empty = 0;
        }
    }
    while (lisspace(cast_uchar(*s))) s++;  /* skip trailing spaces */
    if (empty || *s != '\0') return nullptr;  /* something wrong in the numeral */
    else {
        *result = l_castU2S((neg) ? 0u - a : a);
        return s;
    }
}


size_t luaO_str2num(const char *s, TValue *o) {