29 static int luaB_tonumber (lua_State *L) {  in luaB_tonumber()  argument
30   if (lua_isnoneornil(L, 2)) {  /* standard conversion */  in luaB_tonumber()
32     lua_Number n = lua_tonumberx(L, 1, &isnum);  in luaB_tonumber()
34       lua_pushnumber(L, n);  in luaB_tonumber()
37     luaL_checkany(L, 1);  in luaB_tonumber()
40     size_t l;  in luaB_tonumber()  local
41     const char *s = luaL_checklstring(L, 1, &l);  in luaB_tonumber()
42     const char *e = s + l;  /* end point for 's' */  in luaB_tonumber()
43     int base = luaL_checkint(L, 2);  in luaB_tonumber()
45     luaL_argcheck(L, 2 <= base && base <= 36, 2, "base out of range");  in luaB_tonumber()
60         lua_pushnumber(L, (neg) ? -n : n);  in luaB_tonumber()
65   lua_pushnil(L);  /* not a number */  in luaB_tonumber()
70 static int luaB_error (lua_State *L) {  in luaB_error()  argument
71   int level = luaL_optint(L, 2, 1);  in luaB_error()
72   lua_settop(L, 1);  in luaB_error()
73   if (lua_isstring(L, 1) && level > 0) {  /* add extra information? */  in luaB_error()
74     luaL_where(L, level);  in luaB_error()
75     lua_pushvalue(L, 1);  in luaB_error()
76     lua_concat(L, 2);  in luaB_error()
78   return lua_error(L);  in luaB_error()
82 static int luaB_getmetatable (lua_State *L) {  in luaB_getmetatable()  argument
83   luaL_checkany(L, 1);  in luaB_getmetatable()
84   if (!lua_getmetatable(L, 1)) {  in luaB_getmetatable()
85     lua_pushnil(L);  in luaB_getmetatable()
88   luaL_getmetafield(L, 1, "__metatable");  in luaB_getmetatable()
93 static int luaB_setmetatable (lua_State *L) {  in luaB_setmetatable()  argument
94   int t = lua_type(L, 2);  in luaB_setmetatable()
95   luaL_checktype(L, 1, LUA_TTABLE);  in luaB_setmetatable()
96   luaL_argcheck(L, t == LUA_TNIL || t == LUA_TTABLE, 2,  in luaB_setmetatable()
98   if (luaL_getmetafield(L, 1, "__metatable"))  in luaB_setmetatable()
99     return luaL_error(L, "cannot change a protected metatable");  in luaB_setmetatable()
100   lua_settop(L, 2);  in luaB_setmetatable()
101   lua_setmetatable(L, 1);  in luaB_setmetatable()
106 static int luaB_rawequal (lua_State *L) {  in luaB_rawequal()  argument
107   luaL_checkany(L, 1);  in luaB_rawequal()
108   luaL_checkany(L, 2);  in luaB_rawequal()
109   lua_pushboolean(L, lua_rawequal(L, 1, 2));  in luaB_rawequal()
114 static int luaB_rawlen (lua_State *L) {  in luaB_rawlen()  argument
115   int t = lua_type(L, 1);  in luaB_rawlen()
116   luaL_argcheck(L, t == LUA_TTABLE || t == LUA_TSTRING, 1,  in luaB_rawlen()
118   lua_pushinteger(L, lua_rawlen(L, 1));  in luaB_rawlen()
123 static int luaB_rawget (lua_State *L) {  in luaB_rawget()  argument
124   luaL_checktype(L, 1, LUA_TTABLE);  in luaB_rawget()
125   luaL_checkany(L, 2);  in luaB_rawget()
126   lua_settop(L, 2);  in luaB_rawget()
127   lua_rawget(L, 1);  in luaB_rawget()
131 static int luaB_rawset (lua_State *L) {  in luaB_rawset()  argument
132   luaL_checktype(L, 1, LUA_TTABLE);  in luaB_rawset()
133   luaL_checkany(L, 2);  in luaB_rawset()
134   luaL_checkany(L, 3);  in luaB_rawset()
135   lua_settop(L, 3);  in luaB_rawset()
136   lua_rawset(L, 1);  in luaB_rawset()
141 static int luaB_collectgarbage (lua_State *L) {  in luaB_collectgarbage()  argument
148   int o = optsnum[luaL_checkoption(L, 1, "collect", opts)];  in luaB_collectgarbage()
149   int ex = luaL_optint(L, 2, 0);  in luaB_collectgarbage()
150   int res = lua_gc(L, o, ex);  in luaB_collectgarbage()
153       int b = lua_gc(L, LUA_GCCOUNTB, 0);  in luaB_collectgarbage()
154       lua_pushnumber(L, res + ((lua_Number)b/1024));  in luaB_collectgarbage()
155       lua_pushinteger(L, b);  in luaB_collectgarbage()
159       lua_pushboolean(L, res);  in luaB_collectgarbage()
163       lua_pushinteger(L, res);  in luaB_collectgarbage()
170 static int luaB_type (lua_State *L) {  in luaB_type()  argument
171   luaL_checkany(L, 1);  in luaB_type()
172   lua_pushstring(L, luaL_typename(L, 1));  in luaB_type()
177 static int pairsmeta (lua_State *L, const char *method, int iszero,  in pairsmeta()  argument
179   if (!luaL_getmetafield(L, 1, method)) {  /* no metamethod? */  in pairsmeta()
180     luaL_checktype(L, 1, LUA_TTABLE);  /* argument must be a table */  in pairsmeta()
181     lua_pushcfunction(L, iter);  /* will return generator, */  in pairsmeta()
182     lua_pushvalue(L, 1);  /* state, */  in pairsmeta()
183     if (iszero) lua_pushinteger(L, 0);  /* and initial value */  in pairsmeta()
184     else lua_pushnil(L);  in pairsmeta()
187     lua_pushvalue(L, 1);  /* argument 'self' to metamethod */  in pairsmeta()
188     lua_call(L, 1, 3);  /* get 3 values from metamethod */  in pairsmeta()
194 static int luaB_next (lua_State *L) {  in luaB_next()  argument
195   luaL_checktype(L, 1, LUA_TTABLE);  in luaB_next()
196   lua_settop(L, 2);  /* create a 2nd argument if there isn't one */  in luaB_next()
197   if (lua_next(L, 1))  in luaB_next()
200     lua_pushnil(L);  in luaB_next()
206 static int luaB_pairs (lua_State *L) {  in luaB_pairs()  argument
207   return pairsmeta(L, "__pairs", 0, luaB_next);  in luaB_pairs()
211 static int ipairsaux (lua_State *L) {  in ipairsaux()  argument
212   int i = luaL_checkint(L, 2);  in ipairsaux()
213   luaL_checktype(L, 1, LUA_TTABLE);  in ipairsaux()
215   lua_pushinteger(L, i);  in ipairsaux()
216   lua_rawgeti(L, 1, i);  in ipairsaux()
217   return (lua_isnil(L, -1)) ? 1 : 2;  in ipairsaux()
221 static int luaB_ipairs (lua_State *L) {  in luaB_ipairs()  argument
222   return pairsmeta(L, "__ipairs", 1, ipairsaux);  in luaB_ipairs()
226 static int luaB_assert (lua_State *L) {  in luaB_assert()  argument
227   if (!lua_toboolean(L, 1))  in luaB_assert()
228     return luaL_error(L, "%s", luaL_optstring(L, 2, "assertion failed!"));  in luaB_assert()
229   return lua_gettop(L);  in luaB_assert()
233 static int luaB_select (lua_State *L) {  in luaB_select()  argument
234   int n = lua_gettop(L);  in luaB_select()
235   if (lua_type(L, 1) == LUA_TSTRING && *lua_tostring(L, 1) == '#') {  in luaB_select()
236     lua_pushinteger(L, n-1);  in luaB_select()
240     int i = luaL_checkint(L, 1);  in luaB_select()
243     luaL_argcheck(L, 1 <= i, 1, "index out of range");  in luaB_select()
248 static int luaB_tostring (lua_State *L) {  in luaB_tostring()  argument
249   luaL_checkany(L, 1);  in luaB_tostring()
250   luaL_tolstring(L, 1, NULL);  in luaB_tostring()
278 LUAMOD_API int luaopen_base (lua_State *L) {  in luaopen_base()  argument
280   lua_pushglobaltable(L);  in luaopen_base()
281   lua_pushglobaltable(L);  in luaopen_base()
282   lua_setfield(L, -2, "_G");  in luaopen_base()
284   luaL_setfuncs(L, base_funcs, 0);  in luaopen_base()
285   lua_pushliteral(L, LUA_VERSION);  in luaopen_base()
286   lua_setfield(L, -2, "_VERSION");  /* set global _VERSION */  in luaopen_base()