From b5ec26101fa8d875fd7f8daf81f2f727cdddcc30 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Tue, 14 May 2013 13:00:11 -0300
Subject: new API function 'lua_cvtonum' to convert a value (number or string)
 to a number, following the rules of the language to create integers or floats

---
 lapi.c | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

(limited to 'lapi.c')

diff --git a/lapi.c b/lapi.c
index b8c11eef..7b4e7024 100644
--- a/lapi.c
+++ b/lapi.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.c,v 2.178 2013/04/29 17:12:50 roberto Exp roberto $
+** $Id: lapi.c,v 2.179 2013/05/02 12:37:24 roberto Exp roberto $
 ** Lua API
 ** See Copyright Notice in lua.h
 */
@@ -331,6 +331,28 @@ LUA_API int lua_compare (lua_State *L, int index1, int index2, int op) {
 }
 
 
+LUA_API int lua_cvtonum (lua_State *L, int idx) {
+  TValue *o = index2addr(L, idx);
+  if (ttisnumber(o)) return 1;  /* already a number? */
+  else if (!ttisstring(o)) return 0;  /* only strings can be converted */
+  else {
+    lua_Integer i; lua_Number n;
+    const char *s = svalue(o);
+    size_t len = tsvalue(o)->len;
+    if (luaO_str2int(s, len, &i)) {
+      setivalue(o, i);
+      return 1;
+    }
+    else if (luaO_str2d(s, len, &n)) {
+      setivalue(o, i);
+      setnvalue(o, n);
+      return 1;
+    }
+    else return 0;
+  }
+}
+
+
 LUA_API lua_Number lua_tonumberx (lua_State *L, int idx, int *pisnum) {
   lua_Number n;
   const TValue *o = index2addr(L, idx);
-- 
cgit v1.2.3-55-g6feb