lua 怎样输出树状结构的table？

为了让游戏前端数据输出更加条理，做了一个简单树状结构来打印数据。

ccmlog.lua

local function __tostring(value, indent, vmap)
    local str = ''
    indent = indent or ''
    vmap = vmap or {}

	--递归结束条件
    if (type(value) ~= 'table') then
        if (type(value) == 'string') then
			--字符串
            str = string.format("[[%s]]", value)
        else
			--整数
            str = tostring(value)
        end
    else
        if type(vmap) == 'table' then
            if vmap[value] then return '('..tostring(value)..')' end
            vmap[value] = true
        end

        local auxTable = {}  	--保存元表KEY(非整数)
        local iauxTable = {}	--保存元表value
        local iiauxTable = {}	--保存数组(key为0)
        table.foreach(value, function(i, v)
            if type(i) == 'number' then
                if i == 0 then
                    table.insert(iiauxTable, i)
                else
                    table.insert(iauxTable, i)
                end
            elseif type(i) ~= 'table' then
                table.insert(auxTable, i)
            end
        end)
        table.sort(iauxTable)

        str = str..'{\n'
        local separator = ""
        local entry = "\n"
        local barray = true
        local kk,vv
        table.foreachi (iauxTable, function (i, k)
            if i == k and barray then
                entry = __tostring(value[k], indent..'  \t', vmap)
                str = str..separator..indent..'  \t'..entry
                separator = ", \n"
            else
                barray = false
                table.insert(iiauxTable, k)
            end
        end)
        table.sort(iiauxTable)

        table.foreachi (iiauxTable, function (i, fieldName)

            kk = tostring(fieldName)
            if type(fieldName) == "number" then
                kk = '['..kk.."]"
            end
            entry = kk .. " = " .. __tostring(value[fieldName],indent..'  \t',vmap)

            str = str..separator..indent..'  \t'..entry
            separator = ", \n"
        end)
        table.sort(auxTable)

        table.foreachi (auxTable, function (i, fieldName)

            kk = tostring(fieldName)
            if type(fieldName) == "number" then
                kk = '['..kk.."]"
            end
            vv = value[fieldName]
            entry = kk .. " = " .. __tostring(value[fieldName],indent..'  \t',vmap)

            str = str..separator..indent..'  \t'..entry
            separator = ", \n"
        end)

        str = str..'\n'..indent..'}'
    end

    return str
end

ccmlog = function(m,fmt,...)
	local args = {...}
	for k,arg in ipairs(args) do
		if type(arg) == 'table'
			or type(arg) == 'boolean'
			or type(arg) == 'function'
			or type(arg) == 'userdata' then
			args[k] = __tostring(arg)
		end
	end

	args[#args+1] = "nil"
	args[#args+1] = "nil"
	args[#args+1] = "nil"
	local str = string.format("[%s]:"..fmt.." %s", m, unpack(args))
	print(str)

	local off = 1
	local p = CCLOGWARN
	if m == 'error' then
		p = CCLOGERROR
	elseif m == 'warn' then
		p = CCLOGWARN
	end
	while off <= #str do
		local subStr = string.sub(str, off, off+1024)
		off = off + #subStr
		--p(subStr)
	end
end

--打印測试
reserved =  { [100] = { 300, 400}, 200, { 300, 500}, abc = "abc",[0] = {1,2,3,"abc"}}

ccmlog("d","d",reserved)

打印效果例如以下：

为了让程序模块调用该打印接口,打印函数前加上module("ccmlog", package.seeall),并将此文件保存在相似lualibs的库文件夹,然后在程序中用require "ccmlog"来调用该函数了.