1 files changed, 20 insertions, 1 deletions

diff --git a/lobject.c b/lobject.c
index 8bea8972..53de02a0 100644
--- a/lobject.c
+++ b/lobject.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lobject.c,v 2.57 2013/01/29 16:00:40 roberto Exp roberto $
+** $Id: lobject.c,v 2.58 2013/02/20 14:08:56 roberto Exp roberto $
 ** Some generic functions over Lua objects
 ** See Copyright Notice in lua.h
 */
@@ -169,6 +169,25 @@ int luaO_str2d (const char *s, size_t len, lua_Number *result) {
 }
 
 
+int luaO_str2int (const char *s, lua_Integer *result) {
+  lua_Unsigned a = 0;
+  if (s[0] == '0' &&
+      (s[1] == 'x' || s[1] == 'X')) {  /* hexa? */
+    s += 2;  /* skip '0x' */
+    for (; lisxdigit(cast_uchar(*s)); s++)
+      a = a * 16 + luaO_hexavalue(cast_uchar(*s));
+  }
+  else {  /* decimal */
+    for (; lisdigit(cast_uchar(*s)); s++)
+      a = a * 10 + luaO_hexavalue(cast_uchar(*s));
+  }
+  if (*s != '\0') return 0;  /* something wrong in the numeral */
+  else {
+    *result = cast(lua_Integer, a);
+    return 1;
+  }
+}
+
 
 static void pushstr (lua_State *L, const char *str, size_t l) {
   setsvalue2s(L, L->top++, luaS_newlstr(L, str, l));