--[[--

深度克隆一個值

~~~ lua

-- 下面的代碼，t2 是 t1 的引用探颈，修改 t2 的屬性時训措，t1 的內容也會發(fā)生變化
local t1 = {a = 1, b = 2}
local t2 = t1
t2.b = 3    -- t1 = {a = 1, b = 3} <-- t1.b 發(fā)生變化

-- clone() 返回 t1 的副本光羞，修改 t2 不會影響 t1
local t1 = {a = 1, b = 2}
local t2 = clone(t1)
t2.b = 3    -- t1 = {a = 1, b = 2} <-- t1.b 不受影響

~~~

@param mixed object 要克隆的值

@return mixed

]]
function clone(object)
    local lookup_table = {}
    local function _copy(object)
        if type(object) ~= "table" then
            return object
        elseif lookup_table[object] then
            return lookup_table[object]
        end
        local new_table = {}
        lookup_table[object] = new_table
        for key, value in pairs(object) do
            new_table[_copy(key)] = _copy(value)
        end
        return setmetatable(new_table, getmetatable(object))
    end
    return _copy(object)
end

--[[--

計算表格包含的字段數量

Lua table 的 "#" 操作只對依次排序的數值下標數組有效纱兑，table.nums() 則計算 table 中所有不為 nil 的值的個數化借。

@param table t 要檢查的表格

@return integer

]]
function table.nums(t)
    local count = 0
    for k, v in pairs(t) do
        count = count + 1
    end
    return count
end

--[[--

返回指定表格中的所有鍵

~~~ lua

local hashtable = {a = 1, b = 2, c = 3}
local keys = table.keys(hashtable)
-- keys = {"a", "b", "c"}

~~~

@param table hashtable 要檢查的表格

@return table

]]
function table.keys(hashtable)
    local keys = {}
    for k, v in pairs(hashtable) do
        keys[#keys + 1] = k
    end
    return keys
end

--[[--

返回指定表格中的所有值

~~~ lua

local hashtable = {a = 1, b = 2, c = 3}
local values = table.values(hashtable)
-- values = {1, 2, 3}

~~~

@param table hashtable 要檢查的表格

@return table

]]
function table.values(hashtable)
    local values = {}
    for k, v in pairs(hashtable) do
        values[#values + 1] = v
    end
    return values
end

--[[--

將來源表格中所有鍵及其值復制到目標表格對象中蓖康，如果存在同名鍵，則覆蓋其值

~~~ lua

local dest = {a = 1, b = 2}
local src  = {c = 3, d = 4}
table.merge(dest, src)
-- dest = {a = 1, b = 2, c = 3, d = 4}

~~~

@param table dest 目標表格
@param table src 來源表格

]]
function table.merge(dest, src)
    for k, v in pairs(src) do
        dest[k] = v
    end
end 

function table.add(dest, src)
    local size = #dest
    for i, v in ipairs(src) do
        dest[size+i] = v
    end
end  

--[[--

在目標表格的指定位置插入來源表格倒信，如果沒有指定位置則連接兩個表格

~~~ lua

local dest = {1, 2, 3}
local src  = {4, 5, 6}
table.insertto(dest, src)
-- dest = {1, 2, 3, 4, 5, 6}

dest = {1, 2, 3}
table.insertto(dest, src, 5)
-- dest = {1, 2, 3, nil, 4, 5, 6}

~~~

@param table dest 目標表格
@param table src 來源表格
@param [integer begin] 插入位置

]]
function table.insertto(dest, src, begin)
    begin = checkint(begin)
    if begin <= 0 then
        begin = #dest + 1
    end

    local len = #src
    for i = 0, len - 1 do
        dest[i + begin] = src[i + 1]
    end
end

--[[

從表格中查找指定值鳖悠，返回其索引优妙，如果沒找到返回 false

~~~ lua

local array = {"a", "b", "c"}
print(table.indexof(array, "b")) -- 輸出 2

~~~

@param table array 表格
@param mixed value 要查找的值
@param [integer begin] 起始索引值

@return integer

]]
function table.indexof(array, value, begin)
    for i = begin or 1, #array do
        if array[i] == value then return i end
    end
    return false
end

--[[--

從表格中查找指定值套硼，返回其 key，如果沒找到返回 nil

~~~ lua

local hashtable = {name = "dualface", comp = "chukong"}
print(table.keyof(hashtable, "chukong")) -- 輸出 comp

~~~

@param table hashtable 表格
@param mixed value 要查找的值

@return string 該值對應的 key

]]
function table.keyof(hashtable, value)
    for k, v in pairs(hashtable) do
        if v == value then return k end
    end
    return nil
end

--[[--

從表格中刪除指定值，返回刪除的值的個數

~~~ lua

local array = {"a", "b", "c", "c"}
print(table.removebyvalue(array, "c", true)) -- 輸出 2

~~~

@param table array 表格
@param mixed value 要刪除的值
@param [boolean removeall] 是否刪除所有相同的值

@return integer

]]
function table.removebyvalue(array, value, removeall)
    local c, i, max = 0, 1, #array
    while i <= max do
        if array[i] == value then
            table.remove(array, i)
            c = c + 1
            i = i - 1
            max = max - 1
            if not removeall then break end
        end
        i = i + 1
    end
    return c
end

--[[--

對表格中每一個值執(zhí)行一次指定的函數抄罕，并用函數返回值更新表格內容

~~~ lua

local t = {name = "dualface", comp = "chukong"}
table.map(t, function(v, k)
    -- 在每一個值前后添加括號
    return "[" .. v .. "]"
end)

-- 輸出修改后的表格內容
for k, v in pairs(t) do
    print(k, v)
end

-- 輸出
-- name [dualface]
-- comp [chukong]

~~~

fn 參數指定的函數具有兩個參數呆贿，并且返回一個值森渐。原型如下：

~~~ lua

function map_function(value, key)
    return value
end

~~~

@param table t 表格
@param function fn 函數

]]
function table.map(t, fn)
    for k, v in pairs(t) do
        t[k] = fn(v, k)
    end
end

--[[--

對表格中每一個值執(zhí)行一次指定的函數，但不改變表格內容

~~~ lua

local t = {name = "dualface", comp = "chukong"}
table.walk(t, function(v, k)
    -- 輸出每一個值
    print(v)
end)

~~~

fn 參數指定的函數具有兩個參數竟块，沒有返回值耐齐。原型如下：

~~~ lua

function map_function(value, key)

end

~~~

@param table t 表格
@param function fn 函數

]]
function table.walk(t, fn)
    for k,v in pairs(t) do
        fn(v, k)
    end
end

--[[--

對表格中每一個值執(zhí)行一次指定的函數，如果該函數返回 false耸携，則對應的值會從表格中刪除

~~~ lua

local t = {name = "dualface", comp = "chukong"}
table.filter(t, function(v, k)
    return v ~= "dualface" -- 當值等于 dualface 時過濾掉該值
end)

-- 輸出修改后的表格內容
for k, v in pairs(t) do
    print(k, v)
end

-- 輸出
-- comp chukong

~~~

fn 參數指定的函數具有兩個參數夺衍，并且返回一個 boolean 值。原型如下：

~~~ lua

function map_function(value, key)
    return true or false
end

~~~

@param table t 表格
@param function fn 函數

]]
function table.filter(t, fn)
    for k, v in pairs(t) do
        if not fn(v, k) then t[k] = nil end
    end
end

--[[--

遍歷表格河劝，確保其中的值唯一

~~~ lua

local t = {"a", "a", "b", "c"} -- 重復的 a 會被過濾掉
local n = table.unique(t)

for k, v in pairs(n) do
    print(v)
end

-- 輸出
-- a
-- b
-- c

~~~

@param table t 表格

@return table 包含所有唯一值的新表格

]]
function table.unique(t)
    local check = {}
    local n = {}
    for k, v in pairs(t) do
        if not check[v] then
            n[k] = v
            check[v] = true
        end
    end
    return n
end

--[[

隨機提取子集組數

]]--

function table.randSubArray(t, minCount, maxCount)
    local values = table.values(t)
    local r = math.random(minCount, maxCount)
   
    if #values > r then
        local removeCount = #values - r
        for i = 1, removeCount do
            table.remove(values, math.random(1, #values))
        end
    end
    return values
end

--[[

移除測試返回ture的項

]]--

function table.removeByCheck(array, fun, removeall)
    local c, i, max = 0, 1, #array
    while i <= max do
        if fun(array[i]) then
            table.remove(array, i)
            c = c + 1
            i = i - 1
            max = max - 1
            if not removeall then break end
        end
        i = i + 1
    end
    return c
end

--[[

table為空

]]--

function table.isEmpty(t)
    return next(t) == nil
end

--[[

唯一值數組

]]--

function table.uniqueArray(t)
    local check = {}
    local n = {}
    for i, v in ipairs(t) do
        if not check[v] then
            table.insert(n, v)
            check[v] = true
        end
    end
    return n
end

--[[

數組為空

]]--

function table.isArrayEmpty(t)
    return #t == 0
end

--[[
表序列化成字符串
]]
function table.tostring(t)
    local mark={}
    local assign={}
    local function ser_table(tbl,parent)
        mark[tbl]=parent
        local tmp={}
        for k,v in pairs(tbl) do
            local key= type(k)=="number" and "["..k.."]" or "[".. string.format("%q", k) .."]"
            if type(v)=="table" then
                local dotkey= parent.. key
                if mark[v] then
                    table.insert(assign,dotkey.."='"..mark[v] .."'")
                else
                    table.insert(tmp, key.."="..ser_table(v,dotkey))
                end
            elseif type(v) == "string" then
                table.insert(tmp, key.."=".. string.format('%q', v))
            elseif type(v) == "number" or type(v) == "boolean" then
                table.insert(tmp, key.."=".. tostring(v))
            end
        end
        return "{"..table.concat(tmp,",").."}"
    end
    return ser_table(t,"ret")..table.concat(assign," ")
end

--[[
字符串反序列化成表
table名為ret
]]
function table.loadstring(strData)
    local f = loadstring(strData)
    if f then
       return f()
    end
end