lua工具类（二）

逃离我推掉我的手 2022-07-15 11:44 184阅读 0赞

转自：[http://www.cnblogs.com/newlist/p/3595761.html][http_www.cnblogs.com_newlist_p_3595761.html]

local tonumber_ = tonumber
    
    function tonumber(v, base)
        return tonumber_(v, base) or 0
    end
    
    function toint(v)
        return math.round(tonumber(v))
    end
    
    function tobool(v)
        return (v ~= nil and v ~= false)
    end
    
    function totable(v)
        if type(v) ~= "table" then v = {} end
        return v
    end
    
    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
    
    function class(classname, super)
        local superType = type(super)
        local cls
    
        if superType ~= "function" and superType ~= "table" then
            superType = nil
            super = nil
        end
    
        if superType == "function" or (super and super.__ctype == 1) then
            -- inherited from native C++ Object
            cls = {}
    
            if superType == "table" then
                -- copy fields from super
                print ("superTyper is table");
                for k,v in pairs(super) do cls[k] = v end
                cls.__create = super.__create
                cls.super    = super
            else
                cls.__create = super
                cls.ctor = function() end
            end
    
            cls.__cname = classname
            cls.__ctype = 1
    
            function cls.new(...)
                local instance = cls.__create(...)
                -- copy fields from class to native object
                for k,v in pairs(cls) do instance[k] = v end
                instance.class = cls
                instance:ctor(...)
                return instance
            end
    
        else
            -- inherited from Lua Object
            if super then
                cls = {}
                setmetatable(cls, {__index = super})
                cls.super = super
            else
                cls = {ctor = function() end}
            end
    
            cls.__cname = classname
            cls.__ctype = 2 -- lua
            cls.__index = cls
    
            function cls.new(...)
                local instance = setmetatable({}, cls)
                instance.class = cls
                instance:ctor(...)
                return instance
            end
        end
    
        return cls
    end
    
    function import(moduleName, currentModuleName)
        local currentModuleNameParts
        local moduleFullName = moduleName
        local offset = 1
    
        while true do
            if string.byte(moduleName, offset) ~= 46 then -- .
                moduleFullName = string.sub(moduleName, offset)
                if currentModuleNameParts and #currentModuleNameParts > 0 then
                    moduleFullName = table.concat(currentModuleNameParts, ".") .. "." .. moduleFullName
                end
                break
            end
            offset = offset + 1
    
            if not currentModuleNameParts then
                if not currentModuleName then
                    local n,v = debug.getlocal(3, 1)
                    currentModuleName = v
                end
    
                currentModuleNameParts = string.split(currentModuleName, ".")
            end
            table.remove(currentModuleNameParts, #currentModuleNameParts)
        end
    
        return require(moduleFullName)
    end
    
    function handler(target, method)
        return function(...) return method(target, ...) end
    end
    
    function math.round(num)
        return math.floor(num + 0.5)
    end
    
    function io.exists(path)
        local file = io.open(path, "r")
        if file then
            io.close(file)
            return true
        end
        return false
    end
    
    function io.readfile(path)
        local file = io.open(path, "r")
        if file then
            local content = file:read("*a")
            io.close(file)
            return content
        end
        return nil
    end
    
    function io.writefile(path, content, mode)
        mode = mode or "w+b"
        local file = io.open(path, mode)
        if file then
            print("file is ok ok ok ok ok ")
            if file:write(content) == nil then print("file is bad bad bad bad ") return false end
            io.close(file)
            return true
        else
            return false
        end
    end
    
    function io.pathinfo(path)
        local pos = string.len(path)
        local extpos = pos + 1
        while pos > 0 do
            local b = string.byte(path, pos)
            if b == 46 then -- 46 = char "."
                extpos = pos
            elseif b == 47 then -- 47 = char "/"
                break
            end
            pos = pos - 1
        end
    
        local dirname = string.sub(path, 1, pos)
        local filename = string.sub(path, pos + 1)
        extpos = extpos - pos
        local basename = string.sub(filename, 1, extpos - 1)
        local extname = string.sub(filename, extpos)
        return {
            dirname = dirname,
            filename = filename,
            basename = basename,
            extname = extname
        }
    end
    
    function io.filesize(path)
        local size = false
        local file = io.open(path, "r")
        if file then
            local current = file:seek()
            size = file:seek("end")
            file:seek("set", current)
            io.close(file)
        end
        return size
    end
    
    function table.nums(t)
        local count = 0
        for k, v in pairs(t) do
            count = count + 1
        end
        return count
    end
    
    function table.keys(t)
        local keys = {}
        if t == nil then
            return keys;
        end
        for k, v in pairs(t) do
            keys[#keys + 1] = k
        end
        return keys
    end
    
    function table.values(t)
        local values = {}
        if t == nil then
            return values;
        end
        for k, v in pairs(t) do
            values[#values + 1] = v
        end
        return values
    end
    
    function table.containKey( t, key )
        for k, v in pairs(t) do
            if key == k then
                return true;
            end
        end
        return false;
    end
    
    function table.containValue( t, value )
        for k, v in pairs(t) do
            if value == v then
                return true;
            end
        end
        return false;
    end
    
    function table.getKeyByValue( t, value )
        for k, v in pairs(t) do
            if value == v then
                return k;
            end
        end
    end
    
    function table.merge(dest, src)
        for k, v in pairs(src) do
            dest[k] = v
        end
    end
    
    function arrayContain( array, value)
        for i=1,#array do
            if array[i] == value then
                return true;
            end
        end
        return false;
    end
    
    function string.htmlspecialchars(input)
        for k, v in pairs(string._htmlspecialchars_set) do
            input = string.gsub(input, k, v)
        end
        return input
    end
    string._htmlspecialchars_set = {}
    string._htmlspecialchars_set["&"] = "&"
    string._htmlspecialchars_set["\""] = """
    string._htmlspecialchars_set["'"] = "'"
    string._htmlspecialchars_set["<"] = "<"
    string._htmlspecialchars_set[">"] = ">"
    
    function string.nl2br(input)
        return string.gsub(input, "\n", "<br />")
    end
    
    function string.text2html(input)
        input = string.gsub(input, "\t", " ")
        input = string.htmlspecialchars(input)
        input = string.gsub(input, " ", " ")
        input = string.nl2br(input)
        return input
    end
    
    function string.split(str, delimiter)
        if (delimiter=='') then return false end
        local pos,arr = 0, {}
        -- for each divider found
        for st,sp in function() return string.find(str, delimiter, pos, true) end do
            table.insert(arr, string.sub(str, pos, st - 1))
            pos = sp + 1
        end
        table.insert(arr, string.sub(str, pos))
        return arr
    end
    
    function string.ltrim(str)
        return string.gsub(str, "^[ \t\n\r]+", "")
    end
    
    function string.rtrim(str)
        return string.gsub(str, "[ \t\n\r]+$", "")
    end
    
    function string.trim(str)
        str = string.gsub(str, "^[ \t\n\r]+", "")
        return string.gsub(str, "[ \t\n\r]+$", "")
    end
    
    function string.ucfirst(str)
        return string.upper(string.sub(str, 1, 1)) .. string.sub(str, 2)
    end
    
    --[[-- @ignore ]]
    local function urlencodeChar(char)
        return "%" .. string.format("%02X", string.byte(c))
    end
    
    function string.urlencode(str)
        -- convert line endings
        str = string.gsub(tostring(str), "\n", "\r\n")
        -- escape all characters but alphanumeric, '.' and '-'
        str = string.gsub(str, "([^%w%.%- ])", urlencodeChar)
        -- convert spaces to "+" symbols
        return string.gsub(str, " ", "+")
    end
    
    function string.utf8len(str)
        local len  = #str
        local left = len
        local cnt  = 0
        local arr  = {
       0, 0xc0, 0xe0, 0xf0, 0xf8, 0xfc}
        while left ~= 0 do
            local tmp = string.byte(str, -left)
            local i   = #arr
            while arr[i] do
                if tmp >= arr[i] then
                    left = left - i
                    break
                end
                i = i - 1
            end
            cnt = cnt + 1
        end
        return cnt
    end
    
    function string.formatNumberThousands(num)
        local formatted = tostring(tonumber(num))
        local k
        while true do
            formatted, k = string.gsub(formatted, "^(-?%d+)(%d%d%d)", '%1,%2')
            if k == 0 then break end
        end
        return formatted
    end
    
    function print_lua_table (lua_table, indent)
        indent = indent or 0
        for k, v in pairs(lua_table) do
            if type(k) == "string" then
                k = string.format("%q", k)
            end
            local szSuffix = ""
            if type(v) == "table" then
                szSuffix = "{"
            end
            local szPrefix = string.rep(" ", indent)
            formatting = szPrefix.."["..k.."]".." = "..szSuffix
            if type(v) == "table" then
                print(formatting)
                print_lua_table(v, indent + 1)
                print(szPrefix.."},")
            else
                local szValue = ""
                if type(v) == "string" then
                    szValue = string.format("%q", v)
                else
                    szValue = tostring(v)
                end
                print(formatting..szValue..",")
            end
        end
    end
    
    
    local function newCounter()
        local i = 0
        return function()     -- anonymous function
           i = i + 1
            return i
        end
    end
    
    
    g_id_generator = newCounter()
    
    function getNextID()
      local nextID 
        nextID = g_id_generator()
        return nextID
    end
    
    luautil = {};
    function luautil.serialize(tName, t, sort_parent, sort_child)  
        local mark={}  
        local assign={}  
    
        local function ser_table(tbl,parent)  
            mark[tbl]=parent  
            local tmp={}  
            local sortList = {};  
            for k,v in pairs(tbl) do  
                sortList[#sortList + 1] = {key=k, value=v};  
            end  
    
            if tostring(parent) == "ret" then  
                if sort_parent then table.sort(sortList, sort_parent); end  
            else  
                if sort_child then table.sort(sortList, sort_child); end  
            end  
    
            for i = 1, #sortList do  
                local info = sortList[i];  
                local k = info.key;  
                local v = info.value;  
                local key= type(k)=="number" and "["..k.."]" or k;  
                if type(v)=="table" then  
                    local dotkey= parent..(type(k)=="number" and key or "."..key)  
                    if mark[v] then  
                        table.insert(assign, "\n".. dotkey.."="..mark[v])  
                    else  
                        table.insert(tmp, "\n"..key.."="..ser_table(v,dotkey))  
                    end  
                else  
                    if type(v) == "string" then  
                        table.insert(tmp, "\n".. key..'="'..v..'"');  
                    else  
                        table.insert(tmp, "\n".. key.."="..tostring(v) .. "\n");  
                    end  
                end  
            end  
    
            return "{"..table.concat(tmp,",").."\n}";  
        end  
    
        return "do local ".. tName .. "= \n\n"..ser_table(t, tName)..table.concat(assign," ").."\n\n return ".. tName .. " end"  
    end  
    
    function luautil.split(str, delimiter)  
        if (delimiter=='') then return false end  
        local pos,arr = 0, {}  
        -- for each divider found 
        for st,sp in function() return string.find(str, delimiter, pos, true) end do  
            table.insert(arr, string.sub(str, pos, st - 1))  
            pos = sp + 1  
        end  
        table.insert(arr, string.sub(str, pos))  
        return arr  
    end  
    
    function luautil.writefile(str, file)  
        os.remove(file);  
        local file=io.open(file,"ab");  
    
        local len = string.len(str);  
        local tbl = luautil.split(str, "\n");  
        for i = 1, #tbl do  
            file:write(tbl[i].."\n");  
        end  
        file:close();  
    end 
    
    function luautil.readfile( strData )
        local f = loadstring(strData)  
        if f then  
           return f()
        end  
    end
    
    function Json2Lua (fileName,filePath, desFilePath)  
        local jsonString = io.readfile(filePath)--myfile:read("*a") 
        t = CJson.decode(jsonString)  
        if t then
            t = luautil.serialize(fileName,t);
        end
        if t then
            luautil.writefile(t, desFilePath) 
        end 
    end 
    
    function performWithDelay(callback, delay)
        local handle
        handle = CCDirector:sharedDirector():getScheduler():scheduleScriptFunc(function()
            CCDirector:sharedDirector():getScheduler():unscheduleScriptEntry(handle)
            handle = nil
            callback();
        end , delay , false)
    end
    
    -- 参数:待分割的字符串,分割字符
    -- 返回:子串表.(含有空串)
    function lua_string_split(str, split_char)
        local sub_str_tab = {};
        while (true) do
            local pos = string.find(str, split_char);
            if (not pos) then
                sub_str_tab[#sub_str_tab + 1] = str;
                break;
            end
            local sub_str = string.sub(str, 1, pos - 1);
            sub_str_tab[#sub_str_tab + 1] = sub_str;
            str = string.sub(str, pos + 1, #str);
        end
    
        return sub_str_tab;
    end
    
    --去除扩展名
    function stripExtension(filename)
        local idx = filename:match(".+()%.%w+$")
        if(idx) then
            return filename:sub(1, idx-1)
        else
            return filename
        end
    end
    
    --获取路径
    function stripfilename(filename)
        return string.match(filename, "(.+)/[^/]*%.%w+$") --*nix system
        --return string.match(filename, “(.+)\\[^\\]*%.%w+$”) — windows
    end
    
    --获取文件名
    function strippath(filename)
        return string.match(filename, ".+/([^/]*%.%w+)$") -- *nix system
        --return string.match(filename, “.+\\([^\\]*%.%w+)$”) — *nix system
    end
    
    -- 生产配置文件
    function genCfg( )
        local assets = require("res.Asset")
        local sceneKey = "Scene"
        local commonKey = "common"
        local className = {
       "textures", "atlas", "sounds", "animations"}
    
        local config = {};
    
        for i=1,#assets do
            local k = assets[i].k;
            local v = assets[i].v;
    
            local pathnames = lua_string_split(v, "/");
            local fileName = pathnames[#pathnames];
            local name = stripExtension(fileName);
            local pathType = fileName:match(".+%.(%w+)$");
            local sceneType;
            local commonType;
            local cur;
            for i=1,#pathnames do
                cur = pathnames[i];
                 -- 1. 检查该路径是否是场景
                if string.find(cur, sceneKey) then
                    sceneType = cur;
                    if not config[sceneType] then
                        config[sceneType] = {};
                    end
                end
    
                if string.find(cur, commonKey) then
                    commonType = cur;
                    if not config[commonType] then
                        config[commonType] = {};
                    end
                end
    
                -- 2. 查找资源类型
                -- 2.1 是场景资源
                if sceneType then
                    for n=1,#className do
                        local t = className[n];
                        if cur == t then
                            if not config[sceneType][t] then
                                config[sceneType][t] = {};
                            end
    
                            if (t == "atlas" and pathType == "plist") then
                                config[sceneType][t][name] = v;
                            end
    
                            if t == "atlas" and pathType == "ExportJson" then
                                if not config[sceneType]["json"] then
                                   config[sceneType]["json"] = {}
                                end
                                config[sceneType]["json"][name] = v;
                            end
    
                            if (t == "textures") then
                                config[sceneType][t][name] = v;
                            end
    
                            if (t == "animations" and pathType == "xml") then
                                config[sceneType][t][name] = v;
                            end
    
                            if (t == "sounds")  then
                                config[sceneType][t][name] = v;
                            end
                        end
                    end
    
                -- 2.2 是公用资源
                elseif commonType then
                    for n=1,#className do
                        local t = className[n];
                        if cur == t then
                            if not config[commonType][t] then
                                config[commonType][t] = {};
                            end
    
                            if (t == "atlas" and pathType == "plist") then
                                config[commonType][t][name] = v;
                            end
    
                            if t == "atlas" and pathType == "ExportJson" then
                                if not config[commonType]["json"] then
                                   config[commonType]["json"] = {}
                                end
                                config[commonType]["json"][name] = v;
                            end
    
                            if (t == "textures") then
                                config[commonType][t][name] = v;
                            end
    
                            if (t == "animations" and pathType == "xml") then
                                config[commonType][t][name] = v;
                            end
    
                            if (t == "sounds")  then
                                config[commonType][t][name] = v;
                            end
                        end
                    end
    
                -- 2.3 贴图资源
                elseif string.find(cur, "textures") then
                    if not config["textures"] then
                        config["textures"] = {}
                    end
                    config["textures"][name] = v;
                -- 2.4 图集资源
                elseif string.find(cur, "atlas") and pathType == "plist" then
                    if not config["atlas"] then
                        config["atlas"] = {}
                    end
                    config["atlas"][name] = v;
                -- 2.5 图集json配置文件
                elseif string.find(cur, "atlas") and pathType == "ExportJson" then
                    if not config["json"] then
                        config["json"] = {}
                    end
                    config["json"][name] = v;
                -- 2.6 声音资源
                elseif string.find(cur, "sounds") then
                    if not config["sounds"] then
                        config["sounds"] = {}
                    end
                    config["sounds"][name] = v;
                -- 2.7 字体资源
                elseif string.find(cur, "fonts") and (pathType == "fnt" or pathType == "ttf" ) then
                    if not config["fonts"] then
                        config["fonts"] = {}
                    end
                    config["fonts"][name] = v;
                -- 2.8 动画资源
                elseif string.find(cur, "animations") and pathType == "xml" then
                    if not config["animations"] then
                        config["animations"] = {}
                    end
                    config["animations"][name] = v;
                end
            end
        end
    
        return config;
    end

[http_www.cnblogs.com_newlist_p_3595761.html]: http://www.cnblogs.com/newlist/p/3595761.html