mtinfo/common.lua

function mtinfo.map_list(target, list, keys, filter)
	filter = filter or function()
		-- show all
		return true
	end

	for name, def in pairs(list) do
		if filter(def) then
			local item = {}
			for _, key in ipairs(keys) do
				item[key] = def[key]
			end
			target[name] = item
		end
	end
end

function mtinfo.copyfile(src, target)
	local infile = io.open(src, "r")
	local instr = infile:read("*a")
	infile:close()

	if not instr then
		return
	end

	local outfile, err = io.open(target, "w")
	if not outfile then
		error("File " .. target .. " could not be opened for writing! " .. err or "")
	end
	outfile:write(instr)
	outfile:close()
end

function mtinfo.copyrecursive(src, target)
	minetest.mkdir(target)

	local file_list = minetest.get_dir_list(src, false)
	for _, filename in pairs(file_list) do
		mtinfo.copyfile(src .. "/" .. filename, target .. "/" .. filename)
	end

	local dir_list = minetest.get_dir_list(src, true)
	for _, filename in pairs(dir_list) do
		minetest.mkdir(target .. "/" .. filename)
		mtinfo.copyrecursive(src .. "/" .. filename, target .. "/" .. filename)
	end
end

function mtinfo.export_json(fname, data, varname)
	local f = io.open(fname, "w")
	local data_string, err = minetest.write_json(data)
	if err then
		error(err)
	end
	f:write(varname .. "=")
	f:write(data_string)
	f:write(";")
	io.close(f)
end