mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-26 14:51:21 +03:00
Code Issues Packages Projects Releases Wiki Activity

functions should return explicit "nil"s.

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1998-06-29 15:24:06 -03:00
parent 9a0221ef58
commit e869d17eb1
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lbuiltin.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lbuiltin.c,v 1.30 1998/06/19 16:14:09 roberto Exp roberto $
** $Id: lbuiltin.c,v 1.31 1998/06/19 18:47:06 roberto Exp roberto $
** Built-in functions
** See Copyright Notice in lua.h
*/
@ -54,6 +54,7 @@ static void nextvar (void)
pushstring(g);
luaA_pushobject(&g->u.s.globalval);
}
else lua_pushnil();
}
@ -90,6 +91,7 @@ static void next (void)
luaA_pushobject(&n->ref);
luaA_pushobject(&n->val);
}
else lua_pushnil();
}
@ -214,8 +216,8 @@ static void tonumber (void)
luaL_arg_check(0 <= base && base <= 36, 2, "base out of range");
n = strtol(s, &s, base);
while (isspace(*s)) s++; /* skip trailing spaces */
if (*s) return; /* invalid format: return nil */
lua_pushnumber(n);
if (*s) lua_pushnil(); /* invalid format: return nil */
else lua_pushnumber(n);
}
}
@ -303,8 +305,10 @@ static void luaI_call (void)
lua_seterrormethod();
}
if (status != 0) { /* error in call? */
if (strchr(options, 'x'))
if (strchr(options, 'x')) {
lua_pushnil();
return; /* return nil to signal the error */
}
else
lua_error(NULL);
}

4
lstrlib.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lstrlib.c,v 1.15 1998/06/19 16:14:09 roberto Exp roberto $
** $Id: lstrlib.c,v 1.16 1998/06/24 13:33:00 roberto Exp roberto $
** Standard library for strings and pattern-matching
** See Copyright Notice in lua.h
*/
@ -346,6 +346,7 @@ static void str_find (void)
if (s2) {
lua_pushnumber(s2-s+1);
lua_pushnumber(s2-s+strlen(p));
return;
}
}
else {
@ -363,6 +364,7 @@ static void str_find (void)
}
} while (s1++<cap.src_end && !anchor);
}
lua_pushnil(); /* if arives here, it didn't find */
}