nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

retirar especificador de formato %n da funcao ToReal e

Browse Source 
acertar funcao lua_convtonumber.
This commit is contained in:
Waldemar Celes
1994-09-27 18:43:30 -03:00
parent 7cfb5ff41f
commit dc6d0dcc09
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
opcode.c
View File

@@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio ** TecCGraf - PUC-Rio
*/ */
char *rcs_opcode="$Id: opcode.c,v 2.6 1994/09/08 16:51:49 celes Exp $"; char *rcs_opcode="$Id: opcode.c,v 2.7 1994/09/20 15:11:11 celes Exp celes $";
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
@@ -92,10 +92,9 @@ static char *lua_strconc (char *l, char *r)
static int ToReal (char* s, float* f) static int ToReal (char* s, float* f)
{ {
int n; char c;
float t; float t;
sscanf(s,"%f %n",&t,&n); if (sscanf(s,"%f %c",&t,&c) == 1) { *f=t; return 1; } else return 0;
if (s[n]==0) { *f=t; return 1; } else return 0;
} }
/* /*
@@ -132,7 +131,7 @@ static Object *lua_convtonumber (Object *obj)
return &cvt; return &cvt;
} }
if (tag(obj) == T_STRING && ToReal(svalue(obj), &nvalue(obj))) if (tag(obj) == T_STRING && ToReal(svalue(obj), &nvalue(&cvt)))
tag(&cvt) = T_NUMBER; tag(&cvt) = T_NUMBER;
else else
tag(&cvt) = T_NIL; tag(&cvt) = T_NIL;