rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

details.

This commit is contained in:
Roberto Ierusalimschy 1999-04-13 16:28:49 -03:00
parent 4eb67aa710
commit 0bbd96bd5f
2 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lobject.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lobject.c,v 1.17 1999/02/12 19:23:02 roberto Exp roberto $ ** $Id: lobject.c,v 1.18 1999/02/26 15:48:30 roberto Exp roberto $
** Some generic functions over Lua objects ** Some generic functions over Lua objects
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -93,25 +93,25 @@ static double expten (unsigned int e) {
double luaO_str2d (char *s) { /* LUA_NUMBER */ double luaO_str2d (char *s) { /* LUA_NUMBER */
double a = 0.0; double a = 0.0;
int point = 0; int point = 0;
if (!isdigit((unsigned char)*s) && !isdigit((unsigned char)*(s+1)))
return -1; /* no digit before or after decimal point */
while (isdigit((unsigned char)*s)) { while (isdigit((unsigned char)*s)) {
a = 10.0*a + (*(s++)-'0'); a = 10.0*a + (*(s++)-'0');
} }
if (*s == '.') s++; if (*s == '.') {
while (isdigit((unsigned char)*s)) { s++;
a = 10.0*a + (*(s++)-'0'); while (isdigit((unsigned char)*s)) {
point++; a = 10.0*a + (*(s++)-'0');
point++;
}
} }
if (toupper((unsigned char)*s) == 'E') { if (toupper((unsigned char)*s) == 'E') {
int e = 0; int e = 0;
int sig = 1; int sig = 1;
s++; s++;
if (*s == '+') s++; if (*s == '-') {
else if (*s == '-') {
s++; s++;
sig = -1; sig = -1;
} }
else if (*s == '+') s++;
if (!isdigit((unsigned char)*s)) return -1; /* no digit in the exponent? */ if (!isdigit((unsigned char)*s)) return -1; /* no digit in the exponent? */
do { do {
e = 10*e + (*(s++)-'0'); e = 10*e + (*(s++)-'0');

9
lvm.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lvm.c,v 1.53 1999/03/05 21:16:07 roberto Exp roberto $ ** $Id: lvm.c,v 1.54 1999/03/10 14:09:45 roberto Exp roberto $
** Lua virtual machine ** Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -57,11 +57,14 @@ int luaV_tonumber (TObject *obj) { /* LUA_NUMBER */
char *e = svalue(obj); char *e = svalue(obj);
int sig = 1; int sig = 1;
while (isspace((unsigned char)*e)) e++; while (isspace((unsigned char)*e)) e++;
if (*e == '+') e++; if (*e == '-') {
else if (*e == '-') {
e++; e++;
sig = -1; sig = -1;
} }
else if (*e == '+') e++;
/* no digit before or after decimal point? */
if (!isdigit((unsigned char)*e) && !isdigit((unsigned char)*(e+1)))
return 2;
t = luaO_str2d(e); t = luaO_str2d(e);
if (t<0) return 2; if (t<0) return 2;
nvalue(obj) = (real)t*sig; nvalue(obj) = (real)t*sig;