-- Check specific map generation, useful for testing portal vault
-- generation (SUBSTs, NSBUSTs, SHUFFLEs, etc).
-- Name of the map!
local map_to_test = ""
-- Which des file is the map in?
local des_file = ""
-- Change to true if the des file isn't specificed in dat/clua/loadmaps.lua
local need_to_load_des = false
-- How many times should we generate?
local checks = 10
-- Output to this file, will append iteration to the end, ie,
-- output_to.map.1, output_to.map.2, etc.
local output_to = ""
-- Should we run these tests?
local run_test = false
local function generate_map()
    if map_to_test == "" or
       (des_file == "" and need_to_load_des) or
       output_to == "" then
       assert(false, "Need a map, a des file (if not already loaded), and an output.")
    end
    if need_to_load_des then
        dgn.load_des_file(des_file)
    end
    local map = dgn.map_by_name(map_to_test)
    if not map then
        assert(false, "Couldn't find the map named " .. map_to_test)
    end
    for iter_i = 1, checks do
        debug.flush_map_memory()
        crawl.mesclr()
        dgn.reset_level()
        dgn.tags(map, "no_rotate no_vmirror no_hmirror no_pool_fixup")
        dgn.place_map(map, true, true)
        crawl.mpr("Placed " .. map_to_test .. ":" .. iter_i .. ", dumping to " .. output_to .. "." .. iter_i)
        debug.dump_map(map_to_test .. "." .. iter_i)
    end
end
if run_test then
    generate_map()
else
    crawl.mpr("Not running vault generation test.")
end

LUAFN(dgn_map_by_name)
{
    if (const char *name = luaL_checkstring(ls, 1))
        return _lua_push_map(ls, find_map_by_name(name));
    return (0);
}

{ "map_by_name", dgn_map_by_name },