mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-03-29 09:02:57 +03:00
Code Issues Packages Projects Releases Wiki Activity

better error messages

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1999-12-28 09:52:49 -02:00
parent acdb0b741e
commit fb60283974
2 changed files with 48 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
lauxlib.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lauxlib.c,v 1.22 1999/12/20 13:09:45 roberto Exp roberto $
** $Id: lauxlib.c,v 1.23 1999/12/27 17:33:22 roberto Exp roberto $
** Auxiliary functions for building Lua libraries
** See Copyright Notice in lua.h
*/
@ -30,69 +30,79 @@ int luaL_findstring (const char *name, const char *const list[]) {
return -1; /* name not found */
}
void luaL_argerror (lua_State *L, int numarg, const char *extramsg) {
void luaL_argerror (lua_State *L, int narg, const char *extramsg) {
lua_Function f = lua_stackedfunction(L, 0);
const char *funcname;
lua_getobjname(L, f, &funcname);
numarg -= lua_nups(L, f);
narg -= lua_nups(L, f);
if (funcname == NULL)
funcname = "?";
luaL_verror(L, "bad argument #%d to function `%.50s' (%.100s)",
numarg, funcname, extramsg);
luaL_verror(L, "bad argument #%d to `%.50s' (%.100s)",
narg, funcname, extramsg);
}
static const char *checkstr (lua_State *L, lua_Object o, int n, long *len) {
static void type_error (lua_State *L, int narg, const char *typename,
lua_Object o) {
char buff[100];
const char *otype = (o == LUA_NOOBJECT) ? "no value" : lua_type(L, o);
sprintf(buff, "%.10s expected, got %.10s", typename, otype);
luaL_argerror(L, narg, buff);
}
static const char *checkstr (lua_State *L, lua_Object o, int narg, long *len) {
const char *s = lua_getstring(L, o);
luaL_arg_check(L, s, n, "string expected");
if (!s) type_error(L, narg, "string", o);
if (len) *len = lua_strlen(L, o);
return s;
}
const char *luaL_check_lstr (lua_State *L, int n, long *len) {
return checkstr(L, lua_getparam(L, n), n, len);
const char *luaL_check_lstr (lua_State *L, int narg, long *len) {
return checkstr(L, lua_getparam(L, narg), narg, len);
}
const char *luaL_opt_lstr (lua_State *L, int n, const char *def, long *len) {
lua_Object o = lua_getparam(L, n);
const char *luaL_opt_lstr (lua_State *L, int narg, const char *def, long *len) {
lua_Object o = lua_getparam(L, narg);
if (o == LUA_NOOBJECT) {
if (len) *len = def ? strlen(def) : 0;
return def;
}
else return checkstr(L, o, n, len);
else return checkstr(L, o, narg, len);
}
double luaL_check_number (lua_State *L, int n) {
lua_Object o = lua_getparam(L, n);
luaL_arg_check(L, lua_isnumber(L, o), n, "number expected");
double luaL_check_number (lua_State *L, int narg) {
lua_Object o = lua_getparam(L, narg);
if (!lua_isnumber(L, o)) type_error(L, narg, "number", o);
return lua_getnumber(L, o);
}
double luaL_opt_number (lua_State *L, int n, double def) {
lua_Object o = lua_getparam(L, n);
double luaL_opt_number (lua_State *L, int narg, double def) {
lua_Object o = lua_getparam(L, narg);
if (o == LUA_NOOBJECT) return def;
else {
luaL_arg_check(L, lua_isnumber(L, o), n, "number expected");
if (!lua_isnumber(L, o)) type_error(L, narg, "number", o);
return lua_getnumber(L, o);
}
}
lua_Object luaL_tablearg (lua_State *L, int arg) {
lua_Object o = lua_getparam(L, arg);
luaL_arg_check(L, lua_istable(L, o), arg, "table expected");
lua_Object luaL_tablearg (lua_State *L, int narg) {
lua_Object o = lua_getparam(L, narg);
if (!lua_istable(L, o)) type_error(L, narg, "table", o);
return o;
}
lua_Object luaL_functionarg (lua_State *L, int arg) {
lua_Object o = lua_getparam(L, arg);
luaL_arg_check(L, lua_isfunction(L, o), arg, "function expected");
lua_Object luaL_functionarg (lua_State *L, int narg) {
lua_Object o = lua_getparam(L, narg);
if (!lua_isfunction(L, o)) type_error(L, narg, "function", o);
return o;
}
lua_Object luaL_nonnullarg (lua_State *L, int n) {
lua_Object o = lua_getparam(L, n);
luaL_arg_check(L, o != LUA_NOOBJECT, n, "value expected");
lua_Object luaL_nonnullarg (lua_State *L, int narg) {
lua_Object o = lua_getparam(L, narg);
luaL_arg_check(L, o != LUA_NOOBJECT, narg, "value expected");
return o;
}

25
liolib.c
View File

@ -1,5 +1,5 @@
/*
** $Id: liolib.c,v 1.52 1999/11/22 17:39:51 roberto Exp roberto $
** $Id: liolib.c,v 1.53 1999/12/27 13:04:53 roberto Exp roberto $
** Standard I/O (and system) library
** See Copyright Notice in lua.h
*/
@ -395,20 +395,17 @@ static void io_write (lua_State *L) {
FILE *f = getfileparam(L, FOUTPUT, &arg);
int status = 1;
lua_Object o;
while ((o = lua_getparam(L, arg++)) != LUA_NOOBJECT) {
switch (lua_type(L, o)[2]) {
case 'r': { /* stRing? */
long l = lua_strlen(L, o);
status = status &&
((long)fwrite(lua_getstring(L, o), sizeof(char), l, f) == l);
break;
}
case 'm': /* nuMber? */ /* LUA_NUMBER */
/* optimization: could be done exactly as for strings */
status = status && fprintf(f, "%.16g", lua_getnumber(L, o)) > 0;
break;
default: luaL_argerror(L, arg-1, "string expected");
while ((o = lua_getparam(L, arg)) != LUA_NOOBJECT) {
if (lua_type(L, o)[2] == 'm') { /* nuMber? */ /* LUA_NUMBER */
/* optimization: could be done exactly as for strings */
status = status && fprintf(f, "%.16g", lua_getnumber(L, o)) > 0;
}
else {
long l;
const char *s = luaL_check_lstr(L, arg, &l);
status = status && ((long)fwrite(s, sizeof(char), l, f) == l);
}
arg++;
}
pushresult(L, status);
}