/**
* Construct an iterator to iterate through the attributes of a vconfig
*/
static int impl_vconfig_pairs(lua_State *L)
{
vconfig vcfg = luaW_checkvconfig(L, 1);
new(L) config::const_attr_itors(vcfg.get_config().attribute_range());
luaL_newmetatable(L, vconfigpairsKey);
lua_setmetatable(L, -2);
lua_pushcclosure(L, &impl_vconfig_pairs_iter, 1);
lua_pushvalue(L, 1);
return 2;
}
/**
* Construct an iterator to iterate through the subtags of a vconfig
*/
static int impl_vconfig_ipairs(lua_State *L)
{
vconfig cfg = luaW_checkvconfig(L, 1);
new(L) vconfig_child_range(cfg.ordered_begin(), cfg.ordered_end());
luaL_newmetatable(L, vconfigipairsKey);
lua_setmetatable(L, -2);
lua_pushcclosure(L, &impl_vconfig_ipairs_iter, 1);
lua_pushvalue(L, 1);
lua_pushinteger(L, 0);
return 3;
}
/**
* Construct an iterator to iterate through the subtags of a vconfig
*/
static int impl_vconfig_ipairs(lua_State *L)
{
static const size_t sz = sizeof(vconfig_child_range);
vconfig cfg = luaW_checkvconfig(L, 1);
new(lua_newuserdata(L, sz)) vconfig_child_range(cfg.ordered_begin(), cfg.ordered_end());
luaL_newmetatable(L, vconfigipairsKey);
lua_setmetatable(L, -2);
lua_pushcclosure(L, &impl_vconfig_ipairs_iter, 1);
lua_pushvalue(L, 1);
lua_pushinteger(L, 0);
return 3;
}
/**
* Iterate through the attributes of a vconfig
*/
static int impl_vconfig_pairs_iter(lua_State *L)
{
vconfig vcfg = luaW_checkvconfig(L, 1);
void* p = luaL_checkudata(L, lua_upvalueindex(1), vconfigpairsKey);
config::const_attr_itors& range = *static_cast<config::const_attr_itors*>(p);
if (range.first == range.second) {
return 0;
}
config::attribute value = *range.first++;
lua_pushlstring(L, value.first.c_str(), value.first.length());
luaW_pushscalar(L, vcfg[value.first]);
return 2;
}
/**
* Iterate through the subtags of a vconfig
*/
static int impl_vconfig_ipairs_iter(lua_State *L)
{
luaW_checkvconfig(L, 1);
int i = luaL_checkinteger(L, 2);
void* p = luaL_checkudata(L, lua_upvalueindex(1), vconfigipairsKey);
vconfig_child_range& range = *static_cast<vconfig_child_range*>(p);
if (range.first == range.second) {
return 0;
}
std::pair<std::string, vconfig> value = *range.first++;
lua_pushinteger(L, i + 1);
lua_createtable(L, 2, 0);
lua_pushlstring(L, value.first.c_str(), value.first.length());
lua_rawseti(L, -2, 1);
luaW_pushvconfig(L, value.second);
lua_rawseti(L, -2, 2);
return 2;
}
/**
* Creates a vconfig containing the WML table.
* - Arg 1: WML table.
* - Ret 1: vconfig userdata.
*/
int intf_tovconfig(lua_State *L)
{
vconfig vcfg = luaW_checkvconfig(L, 1);
luaW_pushvconfig(L, vcfg);
return 1;
}
