30 static int luaB_tonumber (lua_State *L) {  in luaB_tonumber()  argument
31   if (lua_isnoneornil(L, 2)) {  /* standard conversion */  in luaB_tonumber()
33     lua_Number n = lua_tonumberx(L, 1, &isnum);  in luaB_tonumber()
35       lua_pushnumber(L, n);  in luaB_tonumber()
36       return 1;  in luaB_tonumber()
38     luaL_checkany(L, 1);  in luaB_tonumber()
41     size_t l;  in luaB_tonumber()  local
42     const char *s = luaL_checklstring(L, 1, &l);  in luaB_tonumber()
43     const char *e = s + l;  /* end point for 's' */  in luaB_tonumber()
44     int base = luaL_checkint(L, 2);  in luaB_tonumber()
46     luaL_argcheck(L, 2 <= base && base <= 36, 2, "base out of range");  in luaB_tonumber()
48     if (*s == '-') { s++; neg = 1; }  /* handle signal */  in luaB_tonumber()
61         lua_pushnumber(L, (neg) ? -n : n);  in luaB_tonumber()
62         return 1;  in luaB_tonumber()
66   lua_pushnil(L);  /* not a number */  in luaB_tonumber()
67   return 1;  in luaB_tonumber()
71 static int luaB_error (lua_State *L) {  in luaB_error()  argument
72   int level = luaL_optint(L, 2, 1);  in luaB_error()
73   lua_settop(L, 1);  in luaB_error()
74   if (lua_isstring(L, 1) && level > 0) {  /* add extra information? */  in luaB_error()
75     luaL_where(L, level);  in luaB_error()
76     lua_pushvalue(L, 1);  in luaB_error()
77     lua_concat(L, 2);  in luaB_error()
79   return lua_error(L);  in luaB_error()
83 static int luaB_getmetatable (lua_State *L) {  in luaB_getmetatable()  argument
84   luaL_checkany(L, 1);  in luaB_getmetatable()
85   if (!lua_getmetatable(L, 1)) {  in luaB_getmetatable()
86     lua_pushnil(L);  in luaB_getmetatable()
87     return 1;  /* no metatable */  in luaB_getmetatable()
89   luaL_getmetafield(L, 1, "__metatable");  in luaB_getmetatable()
90   return 1;  /* returns either __metatable field (if present) or metatable */  in luaB_getmetatable()
94 static int luaB_setmetatable (lua_State *L) {  in luaB_setmetatable()  argument
95   int t = lua_type(L, 2);  in luaB_setmetatable()
96   luaL_checktype(L, 1, LUA_TTABLE);  in luaB_setmetatable()
97   luaL_argcheck(L, t == LUA_TNIL || t == LUA_TTABLE, 2,  in luaB_setmetatable()
99   if (luaL_getmetafield(L, 1, "__metatable"))  in luaB_setmetatable()
100     return luaL_error(L, "cannot change a protected metatable");  in luaB_setmetatable()
101   lua_settop(L, 2);  in luaB_setmetatable()
102   lua_setmetatable(L, 1);  in luaB_setmetatable()
103   return 1;  in luaB_setmetatable()
107 static int luaB_rawequal (lua_State *L) {  in luaB_rawequal()  argument
108   luaL_checkany(L, 1);  in luaB_rawequal()
109   luaL_checkany(L, 2);  in luaB_rawequal()
110   lua_pushboolean(L, lua_rawequal(L, 1, 2));  in luaB_rawequal()
111   return 1;  in luaB_rawequal()
115 static int luaB_rawlen (lua_State *L) {  in luaB_rawlen()  argument
116   int t = lua_type(L, 1);  in luaB_rawlen()
117   luaL_argcheck(L, t == LUA_TTABLE || t == LUA_TSTRING, 1,  in luaB_rawlen()
119   lua_pushinteger(L, lua_rawlen(L, 1));  in luaB_rawlen()
120   return 1;  in luaB_rawlen()
124 static int luaB_rawget (lua_State *L) {  in luaB_rawget()  argument
125   luaL_checktype(L, 1, LUA_TTABLE);  in luaB_rawget()
126   luaL_checkany(L, 2);  in luaB_rawget()
127   lua_settop(L, 2);  in luaB_rawget()
128   lua_rawget(L, 1);  in luaB_rawget()
129   return 1;  in luaB_rawget()
132 static int luaB_rawset (lua_State *L) {  in luaB_rawset()  argument
133   luaL_checktype(L, 1, LUA_TTABLE);  in luaB_rawset()
134   luaL_checkany(L, 2);  in luaB_rawset()
135   luaL_checkany(L, 3);  in luaB_rawset()
136   lua_settop(L, 3);  in luaB_rawset()
137   lua_rawset(L, 1);  in luaB_rawset()
138   return 1;  in luaB_rawset()
142 static int luaB_collectgarbage (lua_State *L) {  in luaB_collectgarbage()  argument
149   int o = optsnum[luaL_checkoption(L, 1, "collect", opts)];  in luaB_collectgarbage()
150   int ex = luaL_optint(L, 2, 0);  in luaB_collectgarbage()
151   int res = lua_gc(L, o, ex);  in luaB_collectgarbage()
154       int b = lua_gc(L, LUA_GCCOUNTB, 0);  in luaB_collectgarbage()
155       lua_pushnumber(L, res + ((lua_Number)b/1024));  in luaB_collectgarbage()
156       lua_pushinteger(L, b);  in luaB_collectgarbage()
160       lua_pushboolean(L, res);  in luaB_collectgarbage()
161       return 1;  in luaB_collectgarbage()
164       lua_pushinteger(L, res);  in luaB_collectgarbage()
165       return 1;  in luaB_collectgarbage()
171 static int luaB_type (lua_State *L) {  in luaB_type()  argument
172   luaL_checkany(L, 1);  in luaB_type()
173   lua_pushstring(L, luaL_typename(L, 1));  in luaB_type()
174   return 1;  in luaB_type()
178 static int pairsmeta (lua_State *L, const char *method, int iszero,  in pairsmeta()  argument
180   if (!luaL_getmetafield(L, 1, method)) {  /* no metamethod? */  in pairsmeta()
181     luaL_checktype(L, 1, LUA_TTABLE);  /* argument must be a table */  in pairsmeta()
182     lua_pushcfunction(L, iter);  /* will return generator, */  in pairsmeta()
183     lua_pushvalue(L, 1);  /* state, */  in pairsmeta()
184     if (iszero) lua_pushinteger(L, 0);  /* and initial value */  in pairsmeta()
185     else lua_pushnil(L);  in pairsmeta()
188     lua_pushvalue(L, 1);  /* argument 'self' to metamethod */  in pairsmeta()
189     lua_call(L, 1, 3);  /* get 3 values from metamethod */  in pairsmeta()
195 static int luaB_next (lua_State *L) {  in luaB_next()  argument
196   luaL_checktype(L, 1, LUA_TTABLE);  in luaB_next()
197   lua_settop(L, 2);  /* create a 2nd argument if there isn't one */  in luaB_next()
198   if (lua_next(L, 1))  in luaB_next()
201     lua_pushnil(L);  in luaB_next()
202     return 1;  in luaB_next()
207 static int luaB_pairs (lua_State *L) {  in luaB_pairs()  argument
208   return pairsmeta(L, "__pairs", 0, luaB_next);  in luaB_pairs()
212 static int ipairsaux (lua_State *L) {  in ipairsaux()  argument
213   int i = luaL_checkint(L, 2);  in ipairsaux()
214   luaL_checktype(L, 1, LUA_TTABLE);  in ipairsaux()
216   lua_pushinteger(L, i);  in ipairsaux()
217   lua_rawgeti(L, 1, i);  in ipairsaux()
218   return (lua_isnil(L, -1)) ? 1 : 2;  in ipairsaux()
222 static int luaB_ipairs (lua_State *L) {  in luaB_ipairs()  argument
223   return pairsmeta(L, "__ipairs", 1, ipairsaux);  in luaB_ipairs()
227 static int luaB_assert (lua_State *L) {  in luaB_assert()  argument
228   if (!lua_toboolean(L, 1))  in luaB_assert()
229     return luaL_error(L, "%s", luaL_optstring(L, 2, "assertion failed!"));  in luaB_assert()
230   return lua_gettop(L);  in luaB_assert()
234 static int luaB_select (lua_State *L) {  in luaB_select()  argument
235   int n = lua_gettop(L);  in luaB_select()
236   if (lua_type(L, 1) == LUA_TSTRING && *lua_tostring(L, 1) == '#') {  in luaB_select()
237     lua_pushinteger(L, n-1);  in luaB_select()
238     return 1;  in luaB_select()
241     int i = luaL_checkint(L, 1);  in luaB_select()
244     luaL_argcheck(L, 1 <= i, 1, "index out of range");  in luaB_select()
249 static int luaB_tostring (lua_State *L) {  in luaB_tostring()  argument
250   luaL_checkany(L, 1);  in luaB_tostring()
251   luaL_tolstring(L, 1, NULL);  in luaB_tostring()
252   return 1;  in luaB_tostring()
279 LUAMOD_API int luaopen_base (lua_State *L) {  in luaopen_base()  argument
281   lua_pushglobaltable(L);  in luaopen_base()
282   lua_pushglobaltable(L);  in luaopen_base()
283   lua_setfield(L, -2, "_G");  in luaopen_base()
285   luaL_setfuncs(L, base_funcs, 0);  in luaopen_base()
286   lua_pushliteral(L, LUA_VERSION);  in luaopen_base()
287   lua_setfield(L, -2, "_VERSION");  /* set global _VERSION */  in luaopen_base()
288   return 1;  in luaopen_base()