aboutsummaryrefslogtreecommitdiff
path: root/lapi.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>1999-11-29 17:31:29 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>1999-11-29 17:31:29 -0200
commit764e095d7fa903fc3a3578f397ac5e1d5a4c02a1 (patch)
tree13c328424187e261020ef983bc4dde716a73d78f /lapi.c
parent2b3ea61342c544aadfe5ea02345e4a53c889c676 (diff)
downloadlua-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.c34
1 files changed, 17 insertions, 17 deletions
diff --git a/lapi.c b/lapi.c
index fb2e292c..50355b06 100644
--- a/lapi.c
+++ b/lapi.c
@@ -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
249double lua_getnumber (lua_State *L, lua_Object object) { 249double 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
255const char *lua_getstring (lua_State *L, lua_Object object) { 255const 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
262long lua_strlen (lua_State *L, lua_Object object) { 262long 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
269void *lua_getuserdata (lua_State *L, lua_Object object) { 269void *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
275lua_CFunction lua_getcfunction (lua_State *L, lua_Object object) { 275lua_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