diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-11-29 17:31:29 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-11-29 17:31:29 -0200 |
| commit | 764e095d7fa903fc3a3578f397ac5e1d5a4c02a1 (patch) | |
| tree | 13c328424187e261020ef983bc4dde716a73d78f /lapi.c | |
| parent | 2b3ea61342c544aadfe5ea02345e4a53c889c676 (diff) | |
| download | lua-764e095d7fa903fc3a3578f397ac5e1d5a4c02a1.tar.gz lua-764e095d7fa903fc3a3578f397ac5e1d5a4c02a1.tar.bz2 lua-764e095d7fa903fc3a3578f397ac5e1d5a4c02a1.zip | |
`object' and `string' are very busy names...
Diffstat (limited to 'lapi.c')
| -rw-r--r-- | lapi.c | 34 |
1 files changed, 17 insertions, 17 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lapi.c,v 1.58 1999/11/23 13:58:02 roberto Exp roberto $ | 2 | ** $Id: lapi.c,v 1.59 1999/11/29 19:11:36 roberto Exp roberto $ |
| 3 | ** Lua API | 3 | ** Lua API |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -246,36 +246,36 @@ int lua_equal(lua_State *L, lua_Object o1, lua_Object o2) { | |||
| 246 | } | 246 | } |
| 247 | 247 | ||
| 248 | 248 | ||
| 249 | double lua_getnumber (lua_State *L, lua_Object object) { | 249 | double lua_getnumber (lua_State *L, lua_Object obj) { |
| 250 | if (object == LUA_NOOBJECT) return 0.0; | 250 | if (obj == LUA_NOOBJECT) return 0.0; |
| 251 | if (tonumber(Address(L, object))) return 0.0; | 251 | if (tonumber(Address(L, obj))) return 0.0; |
| 252 | else return (nvalue(Address(L, object))); | 252 | else return (nvalue(Address(L, obj))); |
| 253 | } | 253 | } |
| 254 | 254 | ||
| 255 | const char *lua_getstring (lua_State *L, lua_Object object) { | 255 | const char *lua_getstring (lua_State *L, lua_Object obj) { |
| 256 | luaC_checkGC(L); /* `tostring' may create a new string */ | 256 | luaC_checkGC(L); /* `tostring' may create a new string */ |
| 257 | if (object == LUA_NOOBJECT || tostring(L, Address(L, object))) | 257 | if (obj == LUA_NOOBJECT || tostring(L, Address(L, obj))) |
| 258 | return NULL; | 258 | return NULL; |
| 259 | else return (svalue(Address(L, object))); | 259 | else return (svalue(Address(L, obj))); |
| 260 | } | 260 | } |
| 261 | 261 | ||
| 262 | long lua_strlen (lua_State *L, lua_Object object) { | 262 | long lua_strlen (lua_State *L, lua_Object obj) { |
| 263 | luaC_checkGC(L); /* `tostring' may create a new string */ | 263 | luaC_checkGC(L); /* `tostring' may create a new string */ |
| 264 | if (object == LUA_NOOBJECT || tostring(L, Address(L, object))) | 264 | if (obj == LUA_NOOBJECT || tostring(L, Address(L, obj))) |
| 265 | return 0L; | 265 | return 0L; |
| 266 | else return (tsvalue(Address(L, object))->u.s.len); | 266 | else return (tsvalue(Address(L, obj))->u.s.len); |
| 267 | } | 267 | } |
| 268 | 268 | ||
| 269 | void *lua_getuserdata (lua_State *L, lua_Object object) { | 269 | void *lua_getuserdata (lua_State *L, lua_Object obj) { |
| 270 | if (object == LUA_NOOBJECT || ttype(Address(L, object)) != LUA_T_USERDATA) | 270 | if (obj == LUA_NOOBJECT || ttype(Address(L, obj)) != LUA_T_USERDATA) |
| 271 | return NULL; | 271 | return NULL; |
| 272 | else return tsvalue(Address(L, object))->u.d.value; | 272 | else return tsvalue(Address(L, obj))->u.d.value; |
| 273 | } | 273 | } |
| 274 | 274 | ||
| 275 | lua_CFunction lua_getcfunction (lua_State *L, lua_Object object) { | 275 | lua_CFunction lua_getcfunction (lua_State *L, lua_Object obj) { |
| 276 | if (!lua_iscfunction(L, object)) | 276 | if (!lua_iscfunction(L, obj)) |
| 277 | return NULL; | 277 | return NULL; |
| 278 | else return fvalue(luaA_protovalue(Address(L, object))); | 278 | else return fvalue(luaA_protovalue(Address(L, obj))); |
| 279 | } | 279 | } |
| 280 | 280 | ||
| 281 | 281 | ||
