diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-12-20 19:27:12 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-12-20 19:27:12 -0200 |
| commit | 09e15692f3a237e2858cc67e2e7f07c3e4c983e7 (patch) | |
| tree | 66a823c1419dcf0faa1f63ec2fba17ff09acf5b4 | |
| parent | 42754c0f15ded97342d3aa67f719e1962fab702a (diff) | |
| download | lua-09e15692f3a237e2858cc67e2e7f07c3e4c983e7.tar.gz lua-09e15692f3a237e2858cc67e2e7f07c3e4c983e7.tar.bz2 lua-09e15692f3a237e2858cc67e2e7f07c3e4c983e7.zip | |
rename of lua_isnull to lua_isnone
| -rw-r--r-- | lauxlib.c | 4 | ||||
| -rw-r--r-- | lbaselib.c | 10 | ||||
| -rw-r--r-- | liolib.c | 6 | ||||
| -rw-r--r-- | ltests.c | 10 | ||||
| -rw-r--r-- | lua.h | 2 |
5 files changed, 16 insertions, 16 deletions
| @@ -81,7 +81,7 @@ LUALIB_API const char *luaL_check_lstr (lua_State *L, int narg, size_t *len) { | |||
| 81 | 81 | ||
| 82 | 82 | ||
| 83 | LUALIB_API const char *luaL_opt_lstr (lua_State *L, int narg, const char *def, size_t *len) { | 83 | LUALIB_API const char *luaL_opt_lstr (lua_State *L, int narg, const char *def, size_t *len) { |
| 84 | if (lua_isnull(L, narg)) { | 84 | if (lua_isnone(L, narg)) { |
| 85 | if (len) | 85 | if (len) |
| 86 | *len = (def ? strlen(def) : 0); | 86 | *len = (def ? strlen(def) : 0); |
| 87 | return def; | 87 | return def; |
| @@ -99,7 +99,7 @@ LUALIB_API lua_Number luaL_check_number (lua_State *L, int narg) { | |||
| 99 | 99 | ||
| 100 | 100 | ||
| 101 | LUALIB_API lua_Number luaL_opt_number (lua_State *L, int narg, lua_Number def) { | 101 | LUALIB_API lua_Number luaL_opt_number (lua_State *L, int narg, lua_Number def) { |
| 102 | if (lua_isnull(L, narg)) return def; | 102 | if (lua_isnone(L, narg)) return def; |
| 103 | else return luaL_check_number(L, narg); | 103 | else return luaL_check_number(L, narg); |
| 104 | } | 104 | } |
| 105 | 105 | ||
| @@ -137,7 +137,7 @@ static int luaB_getglobal (lua_State *L) { | |||
| 137 | 137 | ||
| 138 | static int luaB_eventtable (lua_State *L) { | 138 | static int luaB_eventtable (lua_State *L) { |
| 139 | luaL_check_type(L, 1, LUA_TTABLE); | 139 | luaL_check_type(L, 1, LUA_TTABLE); |
| 140 | if (lua_isnull(L, 2)) | 140 | if (lua_isnone(L, 2)) |
| 141 | lua_geteventtable(L, 1); | 141 | lua_geteventtable(L, 1); |
| 142 | else { | 142 | else { |
| 143 | lua_settop(L, 2); | 143 | lua_settop(L, 2); |
| @@ -174,7 +174,7 @@ static int luaB_weakmode (lua_State *L) { | |||
| 174 | 174 | ||
| 175 | static int luaB_globals (lua_State *L) { | 175 | static int luaB_globals (lua_State *L) { |
| 176 | lua_getglobals(L); /* value to be returned */ | 176 | lua_getglobals(L); /* value to be returned */ |
| 177 | if (!lua_isnull(L, 1)) { | 177 | if (!lua_isnone(L, 1)) { |
| 178 | luaL_check_type(L, 1, LUA_TTABLE); | 178 | luaL_check_type(L, 1, LUA_TTABLE); |
| 179 | lua_pushvalue(L, 1); /* new table of globals */ | 179 | lua_pushvalue(L, 1); /* new table of globals */ |
| 180 | lua_setglobals(L); | 180 | lua_setglobals(L); |
| @@ -213,7 +213,7 @@ static int luaB_collectgarbage (lua_State *L) { | |||
| 213 | 213 | ||
| 214 | static int luaB_type (lua_State *L) { | 214 | static int luaB_type (lua_State *L) { |
| 215 | luaL_check_any(L, 1); | 215 | luaL_check_any(L, 1); |
| 216 | if (lua_isnull(L, 2)) | 216 | if (lua_isnone(L, 2)) |
| 217 | lua_pushstring(L, lua_typename(L, lua_type(L, 1))); | 217 | lua_pushstring(L, lua_typename(L, lua_type(L, 1))); |
| 218 | else { | 218 | else { |
| 219 | lua_pushboolean(L, | 219 | lua_pushboolean(L, |
| @@ -362,7 +362,7 @@ static int luaB_call (lua_State *L) { | |||
| 362 | int err = 0; /* index of old error method */ | 362 | int err = 0; /* index of old error method */ |
| 363 | int status; | 363 | int status; |
| 364 | int n; | 364 | int n; |
| 365 | if (!lua_isnull(L, 4)) { /* set new error method */ | 365 | if (!lua_isnone(L, 4)) { /* set new error method */ |
| 366 | lua_getglobal(L, LUA_ERRORMESSAGE); | 366 | lua_getglobal(L, LUA_ERRORMESSAGE); |
| 367 | err = lua_gettop(L); /* get index */ | 367 | err = lua_gettop(L); /* get index */ |
| 368 | lua_pushvalue(L, 4); | 368 | lua_pushvalue(L, 4); |
| @@ -618,7 +618,7 @@ static int luaB_sort (lua_State *L) { | |||
| 618 | int n; | 618 | int n; |
| 619 | luaL_check_type(L, 1, LUA_TTABLE); | 619 | luaL_check_type(L, 1, LUA_TTABLE); |
| 620 | n = lua_getn(L, 1); | 620 | n = lua_getn(L, 1); |
| 621 | if (!lua_isnull(L, 2)) /* is there a 2nd argument? */ | 621 | if (!lua_isnone(L, 2)) /* is there a 2nd argument? */ |
| 622 | luaL_check_type(L, 2, LUA_TFUNCTION); | 622 | luaL_check_type(L, 2, LUA_TFUNCTION); |
| 623 | lua_settop(L, 2); /* make sure there is two arguments */ | 623 | lua_settop(L, 2); /* make sure there is two arguments */ |
| 624 | auxsort(L, 1, n); | 624 | auxsort(L, 1, n); |
| @@ -177,7 +177,7 @@ static int io_tmpfile (lua_State *L) { | |||
| 177 | 177 | ||
| 178 | static int io_fromto (lua_State *L, int inout, const char *mode) { | 178 | static int io_fromto (lua_State *L, int inout, const char *mode) { |
| 179 | FILE *current; | 179 | FILE *current; |
| 180 | if (lua_isnull(L, 1)) { | 180 | if (lua_isnone(L, 1)) { |
| 181 | getopthandle(L, inout); | 181 | getopthandle(L, inout); |
| 182 | resetfile(L, inout); | 182 | resetfile(L, inout); |
| 183 | return io_close(L); | 183 | return io_close(L); |
| @@ -405,7 +405,7 @@ static int io_seek (lua_State *L) { | |||
| 405 | 405 | ||
| 406 | 406 | ||
| 407 | static int io_flush (lua_State *L) { | 407 | static int io_flush (lua_State *L) { |
| 408 | FILE *f = (lua_isnull(L, 1)) ? (FILE *)(NULL) : | 408 | FILE *f = (lua_isnone(L, 1)) ? (FILE *)(NULL) : |
| 409 | (FILE *)(luaL_check_userdata(L, 1, FILEHANDLE)); | 409 | (FILE *)(luaL_check_userdata(L, 1, FILEHANDLE)); |
| 410 | return pushresult(L, fflush(f) == 0); | 410 | return pushresult(L, fflush(f) == 0); |
| 411 | } | 411 | } |
| @@ -525,7 +525,7 @@ static int io_date (lua_State *L) { | |||
| 525 | 525 | ||
| 526 | 526 | ||
| 527 | static int io_time (lua_State *L) { | 527 | static int io_time (lua_State *L) { |
| 528 | if (lua_isnull(L, 1)) /* called without args? */ | 528 | if (lua_isnone(L, 1)) /* called without args? */ |
| 529 | lua_pushnumber(L, time(NULL)); /* return current time */ | 529 | lua_pushnumber(L, time(NULL)); /* return current time */ |
| 530 | else { | 530 | else { |
| 531 | time_t t; | 531 | time_t t; |
| @@ -225,7 +225,7 @@ static int get_limits (lua_State *L) { | |||
| 225 | 225 | ||
| 226 | 226 | ||
| 227 | static int mem_query (lua_State *L) { | 227 | static int mem_query (lua_State *L) { |
| 228 | if (lua_isnull(L, 1)) { | 228 | if (lua_isnone(L, 1)) { |
| 229 | lua_pushnumber(L, memdebug_total); | 229 | lua_pushnumber(L, memdebug_total); |
| 230 | lua_pushnumber(L, memdebug_numblocks); | 230 | lua_pushnumber(L, memdebug_numblocks); |
| 231 | lua_pushnumber(L, memdebug_maxmem); | 231 | lua_pushnumber(L, memdebug_maxmem); |
| @@ -239,7 +239,7 @@ static int mem_query (lua_State *L) { | |||
| 239 | 239 | ||
| 240 | 240 | ||
| 241 | static int hash_query (lua_State *L) { | 241 | static int hash_query (lua_State *L) { |
| 242 | if (lua_isnull(L, 2)) { | 242 | if (lua_isnone(L, 2)) { |
| 243 | luaL_arg_check(L, lua_type(L, 1) == LUA_TSTRING, 1, "string expected"); | 243 | luaL_arg_check(L, lua_type(L, 1) == LUA_TSTRING, 1, "string expected"); |
| 244 | lua_pushnumber(L, tsvalue(luaA_index(L, 1))->tsv.hash); | 244 | lua_pushnumber(L, tsvalue(luaA_index(L, 1))->tsv.hash); |
| 245 | } | 245 | } |
| @@ -335,7 +335,7 @@ static int unref (lua_State *L) { | |||
| 335 | 335 | ||
| 336 | static int eventtable (lua_State *L) { | 336 | static int eventtable (lua_State *L) { |
| 337 | luaL_check_any(L, 1); | 337 | luaL_check_any(L, 1); |
| 338 | if (lua_isnull(L, 2)) | 338 | if (lua_isnone(L, 2)) |
| 339 | lua_geteventtable(L, 1); | 339 | lua_geteventtable(L, 1); |
| 340 | else { | 340 | else { |
| 341 | lua_settop(L, 2); | 341 | lua_settop(L, 2); |
| @@ -429,7 +429,7 @@ static int doremote (lua_State *L) { | |||
| 429 | } | 429 | } |
| 430 | else { | 430 | else { |
| 431 | int i = 0; | 431 | int i = 0; |
| 432 | while (!lua_isnull(L1, ++i)) | 432 | while (!lua_isnone(L1, ++i)) |
| 433 | lua_pushstring(L, lua_tostring(L1, i)); | 433 | lua_pushstring(L, lua_tostring(L1, i)); |
| 434 | lua_pop(L1, i-1); | 434 | lua_pop(L1, i-1); |
| 435 | return i-1; | 435 | return i-1; |
| @@ -518,7 +518,7 @@ static int testC (lua_State *L) { | |||
| 518 | lua_pushnumber(L, lua_isnil(L, getnum)); | 518 | lua_pushnumber(L, lua_isnil(L, getnum)); |
| 519 | } | 519 | } |
| 520 | else if EQ("isnull") { | 520 | else if EQ("isnull") { |
| 521 | lua_pushnumber(L, lua_isnull(L, getnum)); | 521 | lua_pushnumber(L, lua_isnone(L, getnum)); |
| 522 | } | 522 | } |
| 523 | else if EQ("tonumber") { | 523 | else if EQ("tonumber") { |
| 524 | lua_pushnumber(L, lua_tonumber(L, getnum)); | 524 | lua_pushnumber(L, lua_tonumber(L, getnum)); |
| @@ -227,7 +227,7 @@ LUA_API int lua_getweakmode (lua_State *L, int index); | |||
| 227 | #define lua_isuserdata(L,n) (lua_type(L,n) == LUA_TUSERDATA) | 227 | #define lua_isuserdata(L,n) (lua_type(L,n) == LUA_TUSERDATA) |
| 228 | #define lua_isnil(L,n) (lua_type(L,n) == LUA_TNIL) | 228 | #define lua_isnil(L,n) (lua_type(L,n) == LUA_TNIL) |
| 229 | #define lua_isboolean(L,n) (lua_type(L,n) == LUA_TBOOLEAN) | 229 | #define lua_isboolean(L,n) (lua_type(L,n) == LUA_TBOOLEAN) |
| 230 | #define lua_isnull(L,n) (lua_type(L,n) == LUA_TNONE) | 230 | #define lua_isnone(L,n) (lua_type(L,n) == LUA_TNONE) |
| 231 | 231 | ||
| 232 | #define lua_pushliteral(L, s) lua_pushlstring(L, "" s, \ | 232 | #define lua_pushliteral(L, s) lua_pushlstring(L, "" s, \ |
| 233 | (sizeof(s)/sizeof(char))-1) | 233 | (sizeof(s)/sizeof(char))-1) |
