Lines Matching refs:L
32 static int luaB_tonumber (lua_State *L) { in luaB_tonumber() argument
33 if (lua_isnoneornil(L, 2)) { /* standard conversion */ in luaB_tonumber()
35 lua_Number n = lua_tonumberx(L, 1, &isnum); in luaB_tonumber()
37 lua_pushnumber(L, n); in luaB_tonumber()
40 luaL_checkany(L, 1); in luaB_tonumber()
44 const char *s = luaL_checklstring(L, 1, &l); in luaB_tonumber()
46 int base = luaL_checkint(L, 2); in luaB_tonumber()
48 luaL_argcheck(L, 2 <= base && base <= 36, 2, "base out of range"); in luaB_tonumber()
63 lua_pushnumber(L, (neg) ? -n : n); in luaB_tonumber()
68 lua_pushnil(L); /* not a number */ in luaB_tonumber()
73 static int luaB_error (lua_State *L) { in luaB_error() argument
74 int level = luaL_optint(L, 2, 1); in luaB_error()
75 lua_settop(L, 1); in luaB_error()
76 if (lua_isstring(L, 1) && level > 0) { /* add extra information? */ in luaB_error()
77 luaL_where(L, level); in luaB_error()
78 lua_pushvalue(L, 1); in luaB_error()
79 lua_concat(L, 2); in luaB_error()
81 return lua_error(L); in luaB_error()
85 static int luaB_getmetatable (lua_State *L) { in luaB_getmetatable() argument
86 luaL_checkany(L, 1); in luaB_getmetatable()
87 if (!lua_getmetatable(L, 1)) { in luaB_getmetatable()
88 lua_pushnil(L); in luaB_getmetatable()
91 luaL_getmetafield(L, 1, "__metatable"); in luaB_getmetatable()
96 static int luaB_setmetatable (lua_State *L) { in luaB_setmetatable() argument
97 int t = lua_type(L, 2); in luaB_setmetatable()
98 luaL_checktype(L, 1, LUA_TTABLE); in luaB_setmetatable()
99 luaL_argcheck(L, t == LUA_TNIL || t == LUA_TTABLE, 2, in luaB_setmetatable()
101 if (luaL_getmetafield(L, 1, "__metatable")) in luaB_setmetatable()
102 return luaL_error(L, "cannot change a protected metatable"); in luaB_setmetatable()
103 lua_settop(L, 2); in luaB_setmetatable()
104 lua_setmetatable(L, 1); in luaB_setmetatable()
109 static int luaB_rawequal (lua_State *L) { in luaB_rawequal() argument
110 luaL_checkany(L, 1); in luaB_rawequal()
111 luaL_checkany(L, 2); in luaB_rawequal()
112 lua_pushboolean(L, lua_rawequal(L, 1, 2)); in luaB_rawequal()
117 static int luaB_rawlen (lua_State *L) { in luaB_rawlen() argument
118 int t = lua_type(L, 1); in luaB_rawlen()
119 luaL_argcheck(L, t == LUA_TTABLE || t == LUA_TSTRING, 1, in luaB_rawlen()
121 lua_pushinteger(L, lua_rawlen(L, 1)); in luaB_rawlen()
126 static int luaB_rawget (lua_State *L) { in luaB_rawget() argument
127 luaL_checktype(L, 1, LUA_TTABLE); in luaB_rawget()
128 luaL_checkany(L, 2); in luaB_rawget()
129 lua_settop(L, 2); in luaB_rawget()
130 lua_rawget(L, 1); in luaB_rawget()
134 static int luaB_rawset (lua_State *L) { in luaB_rawset() argument
135 luaL_checktype(L, 1, LUA_TTABLE); in luaB_rawset()
136 luaL_checkany(L, 2); in luaB_rawset()
137 luaL_checkany(L, 3); in luaB_rawset()
138 lua_settop(L, 3); in luaB_rawset()
139 lua_rawset(L, 1); in luaB_rawset()
144 static int luaB_collectgarbage (lua_State *L) { in luaB_collectgarbage() argument
151 int o = optsnum[luaL_checkoption(L, 1, "collect", opts)]; in luaB_collectgarbage()
152 int ex = luaL_optint(L, 2, 0); in luaB_collectgarbage()
153 int res = lua_gc(L, o, ex); in luaB_collectgarbage()
156 int b = lua_gc(L, LUA_GCCOUNTB, 0); in luaB_collectgarbage()
157 lua_pushnumber(L, res + ((lua_Number)b/1024)); in luaB_collectgarbage()
158 lua_pushinteger(L, b); in luaB_collectgarbage()
162 lua_pushboolean(L, res); in luaB_collectgarbage()
166 lua_pushinteger(L, res); in luaB_collectgarbage()
173 static int luaB_type (lua_State *L) { in luaB_type() argument
174 luaL_checkany(L, 1); in luaB_type()
175 lua_pushstring(L, luaL_typename(L, 1)); in luaB_type()
180 static int pairsmeta (lua_State *L, const char *method, int iszero, in pairsmeta() argument
182 if (!luaL_getmetafield(L, 1, method)) { /* no metamethod? */ in pairsmeta()
183 luaL_checktype(L, 1, LUA_TTABLE); /* argument must be a table */ in pairsmeta()
184 lua_pushcfunction(L, iter); /* will return generator, */ in pairsmeta()
185 lua_pushvalue(L, 1); /* state, */ in pairsmeta()
186 if (iszero) lua_pushinteger(L, 0); /* and initial value */ in pairsmeta()
187 else lua_pushnil(L); in pairsmeta()
190 lua_pushvalue(L, 1); /* argument 'self' to metamethod */ in pairsmeta()
191 lua_call(L, 1, 3); /* get 3 values from metamethod */ in pairsmeta()
197 static int luaB_next (lua_State *L) { in luaB_next() argument
198 luaL_checktype(L, 1, LUA_TTABLE); in luaB_next()
199 lua_settop(L, 2); /* create a 2nd argument if there isn't one */ in luaB_next()
200 if (lua_next(L, 1)) in luaB_next()
203 lua_pushnil(L); in luaB_next()
209 static int luaB_pairs (lua_State *L) { in luaB_pairs() argument
210 return pairsmeta(L, "__pairs", 0, luaB_next); in luaB_pairs()
214 static int ipairsaux (lua_State *L) { in ipairsaux() argument
215 int i = luaL_checkint(L, 2); in ipairsaux()
216 luaL_checktype(L, 1, LUA_TTABLE); in ipairsaux()
218 lua_pushinteger(L, i); in ipairsaux()
219 lua_rawgeti(L, 1, i); in ipairsaux()
220 return (lua_isnil(L, -1)) ? 1 : 2; in ipairsaux()
224 static int luaB_ipairs (lua_State *L) { in luaB_ipairs() argument
225 return pairsmeta(L, "__ipairs", 1, ipairsaux); in luaB_ipairs()
229 static int luaB_assert (lua_State *L) { in luaB_assert() argument
230 if (!lua_toboolean(L, 1)) in luaB_assert()
231 return luaL_error(L, "%s", luaL_optstring(L, 2, "assertion failed!")); in luaB_assert()
232 return lua_gettop(L); in luaB_assert()
236 static int luaB_select (lua_State *L) { in luaB_select() argument
237 int n = lua_gettop(L); in luaB_select()
238 if (lua_type(L, 1) == LUA_TSTRING && *lua_tostring(L, 1) == '#') { in luaB_select()
239 lua_pushinteger(L, n-1); in luaB_select()
243 int i = luaL_checkint(L, 1); in luaB_select()
246 luaL_argcheck(L, 1 <= i, 1, "index out of range"); in luaB_select()
251 static int luaB_tostring (lua_State *L) { in luaB_tostring() argument
252 luaL_checkany(L, 1); in luaB_tostring()
253 luaL_tolstring(L, 1, NULL); in luaB_tostring()
281 LUAMOD_API int luaopen_base (lua_State *L) { in luaopen_base() argument
283 lua_pushglobaltable(L); in luaopen_base()
284 lua_pushglobaltable(L); in luaopen_base()
285 lua_setfield(L, -2, "_G"); in luaopen_base()
287 luaL_setfuncs(L, base_funcs, 0); in luaopen_base()
288 lua_pushliteral(L, LUA_VERSION); in luaopen_base()
289 lua_setfield(L, -2, "_VERSION"); /* set global _VERSION */ in luaopen_base()