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 | ||