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

details (comments)

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1999-01-13 17:08:37 -02:00
parent 8396027516
commit e03767b3eb
2 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lobject.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lobject.c,v 1.14 1998/12/27 20:25:20 roberto Exp roberto $ ** $Id: lobject.c,v 1.15 1999/01/04 13:37:07 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
*/ */
@@ -90,7 +90,7 @@ static double expten (unsigned int e) {
} }
double luaO_str2d (char *s) { 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))) if (!isdigit((unsigned char)*s) && !isdigit((unsigned char)*(s+1)))

10
ltm.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: ltm.c,v 1.17 1998/08/21 17:43:44 roberto Exp roberto $ ** $Id: ltm.c,v 1.18 1998/12/22 18:10:50 roberto Exp roberto $
** Tag methods ** Tag methods
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -46,8 +46,7 @@ static char validevents[NUM_TAGS][IM_N] = { /* ORDER LUA_T, ORDER IM */
}; };
static int validevent (int t, int e) static int validevent (int t, int e) { /* ORDER LUA_T */
{ /* ORDER LUA_T */
return (t < LUA_T_NIL) ? 1 : validevents[-t][e]; return (t < LUA_T_NIL) ? 1 : validevents[-t][e];
} }
@@ -157,10 +156,9 @@ void luaT_settagmethod (int t, char *event, TObject *func)
} }
char *luaT_travtagmethods (int (*fn)(TObject *)) char *luaT_travtagmethods (int (*fn)(TObject *)) { /* ORDER IM */
{
int e; int e;
for (e=IM_GETTABLE; e<=IM_FUNCTION; e++) { /* ORDER IM */ for (e=IM_GETTABLE; e<=IM_FUNCTION; e++) {
int t; int t;
for (t=0; t>=L->last_tag; t--) for (t=0; t>=L->last_tag; t--)
if (fn(luaT_getim(t,e))) if (fn(luaT_getim(t,e)))