diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-01-05 12:04:46 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-01-05 12:04:46 -0200 |
| commit | 438c534ff4c8ccad117354826d4ac133b84f2fdc (patch) | |
| tree | cbb3b2c39cdb3b40587562a348ecb74bc819165b | |
| parent | 1ea2d20f74cea9c61817d4a5ed67c4fc47cafb51 (diff) | |
| download | lua-438c534ff4c8ccad117354826d4ac133b84f2fdc.tar.gz lua-438c534ff4c8ccad117354826d4ac133b84f2fdc.tar.bz2 lua-438c534ff4c8ccad117354826d4ac133b84f2fdc.zip | |
'arg' arguments (previously called 'narg', 'nArg', 'numArg', etc.)
renamed all to 'arg'
| -rw-r--r-- | lauxlib.c | 92 | ||||
| -rw-r--r-- | lauxlib.h | 30 |
2 files changed, 61 insertions, 61 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lauxlib.c,v 1.254 2013/06/25 14:05:26 roberto Exp roberto $ | 2 | ** $Id: lauxlib.c,v 1.255 2013/06/27 18:32:33 roberto Exp roberto $ |
| 3 | ** Auxiliary functions for building Lua libraries | 3 | ** Auxiliary functions for building Lua libraries |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -150,33 +150,33 @@ LUALIB_API void luaL_traceback (lua_State *L, lua_State *L1, | |||
| 150 | ** ======================================================= | 150 | ** ======================================================= |
| 151 | */ | 151 | */ |
| 152 | 152 | ||
| 153 | LUALIB_API int luaL_argerror (lua_State *L, int narg, const char *extramsg) { | 153 | LUALIB_API int luaL_argerror (lua_State *L, int arg, const char *extramsg) { |
| 154 | lua_Debug ar; | 154 | lua_Debug ar; |
| 155 | if (!lua_getstack(L, 0, &ar)) /* no stack frame? */ | 155 | if (!lua_getstack(L, 0, &ar)) /* no stack frame? */ |
| 156 | return luaL_error(L, "bad argument #%d (%s)", narg, extramsg); | 156 | return luaL_error(L, "bad argument #%d (%s)", arg, extramsg); |
| 157 | lua_getinfo(L, "n", &ar); | 157 | lua_getinfo(L, "n", &ar); |
| 158 | if (strcmp(ar.namewhat, "method") == 0) { | 158 | if (strcmp(ar.namewhat, "method") == 0) { |
| 159 | narg--; /* do not count `self' */ | 159 | arg--; /* do not count `self' */ |
| 160 | if (narg == 0) /* error is in the self argument itself? */ | 160 | if (arg == 0) /* error is in the self argument itself? */ |
| 161 | return luaL_error(L, "calling " LUA_QS " on bad self (%s)", | 161 | return luaL_error(L, "calling " LUA_QS " on bad self (%s)", |
| 162 | ar.name, extramsg); | 162 | ar.name, extramsg); |
| 163 | } | 163 | } |
| 164 | if (ar.name == NULL) | 164 | if (ar.name == NULL) |
| 165 | ar.name = (pushglobalfuncname(L, &ar)) ? lua_tostring(L, -1) : "?"; | 165 | ar.name = (pushglobalfuncname(L, &ar)) ? lua_tostring(L, -1) : "?"; |
| 166 | return luaL_error(L, "bad argument #%d to " LUA_QS " (%s)", | 166 | return luaL_error(L, "bad argument #%d to " LUA_QS " (%s)", |
| 167 | narg, ar.name, extramsg); | 167 | arg, ar.name, extramsg); |
| 168 | } | 168 | } |
| 169 | 169 | ||
| 170 | 170 | ||
| 171 | static int typeerror (lua_State *L, int narg, const char *tname) { | 171 | static int typeerror (lua_State *L, int arg, const char *tname) { |
| 172 | const char *msg = lua_pushfstring(L, "%s expected, got %s", | 172 | const char *msg = lua_pushfstring(L, "%s expected, got %s", |
| 173 | tname, luaL_typename(L, narg)); | 173 | tname, luaL_typename(L, arg)); |
| 174 | return luaL_argerror(L, narg, msg); | 174 | return luaL_argerror(L, arg, msg); |
| 175 | } | 175 | } |
| 176 | 176 | ||
| 177 | 177 | ||
| 178 | static void tag_error (lua_State *L, int narg, int tag) { | 178 | static void tag_error (lua_State *L, int arg, int tag) { |
| 179 | typeerror(L, narg, lua_typename(L, tag)); | 179 | typeerror(L, arg, lua_typename(L, tag)); |
| 180 | } | 180 | } |
| 181 | 181 | ||
| 182 | 182 | ||
| @@ -317,15 +317,15 @@ LUALIB_API void *luaL_checkudata (lua_State *L, int ud, const char *tname) { | |||
| 317 | ** ======================================================= | 317 | ** ======================================================= |
| 318 | */ | 318 | */ |
| 319 | 319 | ||
| 320 | LUALIB_API int luaL_checkoption (lua_State *L, int narg, const char *def, | 320 | LUALIB_API int luaL_checkoption (lua_State *L, int arg, const char *def, |
| 321 | const char *const lst[]) { | 321 | const char *const lst[]) { |
| 322 | const char *name = (def) ? luaL_optstring(L, narg, def) : | 322 | const char *name = (def) ? luaL_optstring(L, arg, def) : |
| 323 | luaL_checkstring(L, narg); | 323 | luaL_checkstring(L, arg); |
| 324 | int i; | 324 | int i; |
| 325 | for (i=0; lst[i]; i++) | 325 | for (i=0; lst[i]; i++) |
| 326 | if (strcmp(lst[i], name) == 0) | 326 | if (strcmp(lst[i], name) == 0) |
| 327 | return i; | 327 | return i; |
| 328 | return luaL_argerror(L, narg, | 328 | return luaL_argerror(L, arg, |
| 329 | lua_pushfstring(L, "invalid option " LUA_QS, name)); | 329 | lua_pushfstring(L, "invalid option " LUA_QS, name)); |
| 330 | } | 330 | } |
| 331 | 331 | ||
| @@ -342,86 +342,86 @@ LUALIB_API void luaL_checkstack (lua_State *L, int space, const char *msg) { | |||
| 342 | } | 342 | } |
| 343 | 343 | ||
| 344 | 344 | ||
| 345 | LUALIB_API void luaL_checktype (lua_State *L, int narg, int t) { | 345 | LUALIB_API void luaL_checktype (lua_State *L, int arg, int t) { |
| 346 | if (lua_type(L, narg) != t) | 346 | if (lua_type(L, arg) != t) |
| 347 | tag_error(L, narg, t); | 347 | tag_error(L, arg, t); |
| 348 | } | 348 | } |
| 349 | 349 | ||
| 350 | 350 | ||
| 351 | LUALIB_API void luaL_checkany (lua_State *L, int narg) { | 351 | LUALIB_API void luaL_checkany (lua_State *L, int arg) { |
| 352 | if (lua_type(L, narg) == LUA_TNONE) | 352 | if (lua_type(L, arg) == LUA_TNONE) |
| 353 | luaL_argerror(L, narg, "value expected"); | 353 | luaL_argerror(L, arg, "value expected"); |
| 354 | } | 354 | } |
| 355 | 355 | ||
| 356 | 356 | ||
| 357 | LUALIB_API const char *luaL_checklstring (lua_State *L, int narg, size_t *len) { | 357 | LUALIB_API const char *luaL_checklstring (lua_State *L, int arg, size_t *len) { |
| 358 | const char *s = lua_tolstring(L, narg, len); | 358 | const char *s = lua_tolstring(L, arg, len); |
| 359 | if (!s) tag_error(L, narg, LUA_TSTRING); | 359 | if (!s) tag_error(L, arg, LUA_TSTRING); |
| 360 | return s; | 360 | return s; |
| 361 | } | 361 | } |
| 362 | 362 | ||
| 363 | 363 | ||
| 364 | LUALIB_API const char *luaL_optlstring (lua_State *L, int narg, | 364 | LUALIB_API const char *luaL_optlstring (lua_State *L, int arg, |
| 365 | const char *def, size_t *len) { | 365 | const char *def, size_t *len) { |
| 366 | if (lua_isnoneornil(L, narg)) { | 366 | if (lua_isnoneornil(L, arg)) { |
| 367 | if (len) | 367 | if (len) |
| 368 | *len = (def ? strlen(def) : 0); | 368 | *len = (def ? strlen(def) : 0); |
| 369 | return def; | 369 | return def; |
| 370 | } | 370 | } |
| 371 | else return luaL_checklstring(L, narg, len); | 371 | else return luaL_checklstring(L, arg, len); |
| 372 | } | 372 | } |
| 373 | 373 | ||
| 374 | 374 | ||
| 375 | LUALIB_API lua_Number luaL_checknumber (lua_State *L, int narg) { | 375 | LUALIB_API lua_Number luaL_checknumber (lua_State *L, int arg) { |
| 376 | int isnum; | 376 | int isnum; |
| 377 | lua_Number d = lua_tonumberx(L, narg, &isnum); | 377 | lua_Number d = lua_tonumberx(L, arg, &isnum); |
| 378 | if (!isnum) | 378 | if (!isnum) |
| 379 | tag_error(L, narg, LUA_TNUMBER); | 379 | tag_error(L, arg, LUA_TNUMBER); |
| 380 | return d; | 380 | return d; |
| 381 | } | 381 | } |
| 382 | 382 | ||
| 383 | 383 | ||
| 384 | LUALIB_API lua_Number luaL_optnumber (lua_State *L, int narg, lua_Number def) { | 384 | LUALIB_API lua_Number luaL_optnumber (lua_State *L, int arg, lua_Number def) { |
| 385 | return luaL_opt(L, luaL_checknumber, narg, def); | 385 | return luaL_opt(L, luaL_checknumber, arg, def); |
| 386 | } | 386 | } |
| 387 | 387 | ||
| 388 | 388 | ||
| 389 | static void interror (lua_State *L, int narg) { | 389 | static void interror (lua_State *L, int arg) { |
| 390 | if (lua_type(L, narg) == LUA_TNUMBER) | 390 | if (lua_type(L, arg) == LUA_TNUMBER) |
| 391 | luaL_argerror(L, narg, "float value out of range"); | 391 | luaL_argerror(L, arg, "float value out of range"); |
| 392 | else | 392 | else |
| 393 | tag_error(L, narg, LUA_TNUMBER); | 393 | tag_error(L, arg, LUA_TNUMBER); |
| 394 | } | 394 | } |
| 395 | 395 | ||
| 396 | 396 | ||
| 397 | LUALIB_API lua_Integer luaL_checkinteger (lua_State *L, int narg) { | 397 | LUALIB_API lua_Integer luaL_checkinteger (lua_State *L, int arg) { |
| 398 | int isnum; | 398 | int isnum; |
| 399 | lua_Integer d = lua_tointegerx(L, narg, &isnum); | 399 | lua_Integer d = lua_tointegerx(L, arg, &isnum); |
| 400 | if (!isnum) { | 400 | if (!isnum) { |
| 401 | interror(L, narg); | 401 | interror(L, arg); |
| 402 | } | 402 | } |
| 403 | return d; | 403 | return d; |
| 404 | } | 404 | } |
| 405 | 405 | ||
| 406 | 406 | ||
| 407 | LUALIB_API lua_Unsigned luaL_checkunsigned (lua_State *L, int narg) { | 407 | LUALIB_API lua_Unsigned luaL_checkunsigned (lua_State *L, int arg) { |
| 408 | int isnum; | 408 | int isnum; |
| 409 | lua_Unsigned d = lua_tounsignedx(L, narg, &isnum); | 409 | lua_Unsigned d = lua_tounsignedx(L, arg, &isnum); |
| 410 | if (!isnum) | 410 | if (!isnum) |
| 411 | interror(L, narg); | 411 | interror(L, arg); |
| 412 | return d; | 412 | return d; |
| 413 | } | 413 | } |
| 414 | 414 | ||
| 415 | 415 | ||
| 416 | LUALIB_API lua_Integer luaL_optinteger (lua_State *L, int narg, | 416 | LUALIB_API lua_Integer luaL_optinteger (lua_State *L, int arg, |
| 417 | lua_Integer def) { | 417 | lua_Integer def) { |
| 418 | return luaL_opt(L, luaL_checkinteger, narg, def); | 418 | return luaL_opt(L, luaL_checkinteger, arg, def); |
| 419 | } | 419 | } |
| 420 | 420 | ||
| 421 | 421 | ||
| 422 | LUALIB_API lua_Unsigned luaL_optunsigned (lua_State *L, int narg, | 422 | LUALIB_API lua_Unsigned luaL_optunsigned (lua_State *L, int arg, |
| 423 | lua_Unsigned def) { | 423 | lua_Unsigned def) { |
| 424 | return luaL_opt(L, luaL_checkunsigned, narg, def); | 424 | return luaL_opt(L, luaL_checkunsigned, arg, def); |
| 425 | } | 425 | } |
| 426 | 426 | ||
| 427 | /* }====================================================== */ | 427 | /* }====================================================== */ |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lauxlib.h,v 1.121 2013/06/25 14:05:26 roberto Exp roberto $ | 2 | ** $Id: lauxlib.h,v 1.122 2013/06/27 18:32:33 roberto Exp roberto $ |
| 3 | ** Auxiliary functions for building Lua libraries | 3 | ** Auxiliary functions for building Lua libraries |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -35,24 +35,24 @@ LUALIB_API void (luaL_checkversion_) (lua_State *L, int ver, size_t sz); | |||
| 35 | LUALIB_API int (luaL_getmetafield) (lua_State *L, int obj, const char *e); | 35 | LUALIB_API int (luaL_getmetafield) (lua_State *L, int obj, const char *e); |
| 36 | LUALIB_API int (luaL_callmeta) (lua_State *L, int obj, const char *e); | 36 | LUALIB_API int (luaL_callmeta) (lua_State *L, int obj, const char *e); |
| 37 | LUALIB_API const char *(luaL_tolstring) (lua_State *L, int idx, size_t *len); | 37 | LUALIB_API const char *(luaL_tolstring) (lua_State *L, int idx, size_t *len); |
| 38 | LUALIB_API int (luaL_argerror) (lua_State *L, int numarg, const char *extramsg); | 38 | LUALIB_API int (luaL_argerror) (lua_State *L, int arg, const char *extramsg); |
| 39 | LUALIB_API const char *(luaL_checklstring) (lua_State *L, int numArg, | 39 | LUALIB_API const char *(luaL_checklstring) (lua_State *L, int arg, |
| 40 | size_t *l); | 40 | size_t *l); |
| 41 | LUALIB_API const char *(luaL_optlstring) (lua_State *L, int numArg, | 41 | LUALIB_API const char *(luaL_optlstring) (lua_State *L, int arg, |
| 42 | const char *def, size_t *l); | 42 | const char *def, size_t *l); |
| 43 | LUALIB_API lua_Number (luaL_checknumber) (lua_State *L, int numArg); | 43 | LUALIB_API lua_Number (luaL_checknumber) (lua_State *L, int arg); |
| 44 | LUALIB_API lua_Number (luaL_optnumber) (lua_State *L, int nArg, lua_Number def); | 44 | LUALIB_API lua_Number (luaL_optnumber) (lua_State *L, int arg, lua_Number def); |
| 45 | 45 | ||
| 46 | LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int numArg); | 46 | LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int arg); |
| 47 | LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int nArg, | 47 | LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int arg, |
| 48 | lua_Integer def); | 48 | lua_Integer def); |
| 49 | LUALIB_API lua_Unsigned (luaL_checkunsigned) (lua_State *L, int numArg); | 49 | LUALIB_API lua_Unsigned (luaL_checkunsigned) (lua_State *L, int arg); |
| 50 | LUALIB_API lua_Unsigned (luaL_optunsigned) (lua_State *L, int numArg, | 50 | LUALIB_API lua_Unsigned (luaL_optunsigned) (lua_State *L, int arg, |
| 51 | lua_Unsigned def); | 51 | lua_Unsigned def); |
| 52 | 52 | ||
| 53 | LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg); | 53 | LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg); |
| 54 | LUALIB_API void (luaL_checktype) (lua_State *L, int narg, int t); | 54 | LUALIB_API void (luaL_checktype) (lua_State *L, int arg, int t); |
| 55 | LUALIB_API void (luaL_checkany) (lua_State *L, int narg); | 55 | LUALIB_API void (luaL_checkany) (lua_State *L, int arg); |
| 56 | 56 | ||
| 57 | LUALIB_API int (luaL_newmetatable) (lua_State *L, const char *tname); | 57 | LUALIB_API int (luaL_newmetatable) (lua_State *L, const char *tname); |
| 58 | LUALIB_API void (luaL_setmetatable) (lua_State *L, const char *tname); | 58 | LUALIB_API void (luaL_setmetatable) (lua_State *L, const char *tname); |
| @@ -62,7 +62,7 @@ LUALIB_API void *(luaL_checkudata) (lua_State *L, int ud, const char *tname); | |||
| 62 | LUALIB_API void (luaL_where) (lua_State *L, int lvl); | 62 | LUALIB_API void (luaL_where) (lua_State *L, int lvl); |
| 63 | LUALIB_API int (luaL_error) (lua_State *L, const char *fmt, ...); | 63 | LUALIB_API int (luaL_error) (lua_State *L, const char *fmt, ...); |
| 64 | 64 | ||
| 65 | LUALIB_API int (luaL_checkoption) (lua_State *L, int narg, const char *def, | 65 | LUALIB_API int (luaL_checkoption) (lua_State *L, int arg, const char *def, |
| 66 | const char *const lst[]); | 66 | const char *const lst[]); |
| 67 | 67 | ||
| 68 | LUALIB_API int (luaL_fileresult) (lua_State *L, int stat, const char *fname); | 68 | LUALIB_API int (luaL_fileresult) (lua_State *L, int stat, const char *fname); |
| @@ -114,8 +114,8 @@ LUALIB_API void (luaL_requiref) (lua_State *L, const char *modname, | |||
| 114 | #define luaL_newlib(L,l) \ | 114 | #define luaL_newlib(L,l) \ |
| 115 | (luaL_checkversion(L), luaL_newlibtable(L,l), luaL_setfuncs(L,l,0)) | 115 | (luaL_checkversion(L), luaL_newlibtable(L,l), luaL_setfuncs(L,l,0)) |
| 116 | 116 | ||
| 117 | #define luaL_argcheck(L, cond,numarg,extramsg) \ | 117 | #define luaL_argcheck(L, cond,arg,extramsg) \ |
| 118 | ((void)((cond) || luaL_argerror(L, (numarg), (extramsg)))) | 118 | ((void)((cond) || luaL_argerror(L, (arg), (extramsg)))) |
| 119 | #define luaL_checkstring(L,n) (luaL_checklstring(L, (n), NULL)) | 119 | #define luaL_checkstring(L,n) (luaL_checklstring(L, (n), NULL)) |
| 120 | #define luaL_optstring(L,n,d) (luaL_optlstring(L, (n), (d), NULL)) | 120 | #define luaL_optstring(L,n,d) (luaL_optlstring(L, (n), (d), NULL)) |
| 121 | #define luaL_checkint(L,n) ((int)luaL_checkinteger(L, (n))) | 121 | #define luaL_checkint(L,n) ((int)luaL_checkinteger(L, (n))) |
