1 files changed, 258 insertions, 0 deletions
diff --git a/xmake/core/base/utils.lua b/xmake/core/base/utils.lua
new file mode 100644
index 000000000..fd1f053d6
--- /dev/null
+++ b/xmake/core/base/utils.lua
@@ -0,0 +1,258 @@
+--!The Automatic Cross-platform Build Tool
+-- 
+-- XMake is free software; you can redistribute it and/or modify
+-- it under the terms of the GNU Lesser General Public License as published by
+-- the Free Software Foundation; either version 2.1 of the License, or
+-- (at your option) any later version.
+-- 
+-- XMake is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-- GNU Lesser General Public License for more details.
+-- 
+-- You should have received a copy of the GNU Lesser General Public License
+-- along with XMake; 
+-- If not, see <a href="http://www.gnu.org/licenses/"> http://www.gnu.org/licenses/</a>
+-- 
+-- Copyright (C) 2009 - 2015, ruki All rights reserved.
+--
+-- @author      ruki
+-- @file        utils.lua
+--
+
+-- define module: utils
+local utils = utils or {}
+
+-- the printf function
+function utils.printf(msg, ...)
+
+    -- check
+    assert(msg)
+
+    -- trace
+    print(string.format(msg, ...))
+end
+
+-- the verbose function
+function utils.verbose(msg, ...)
+
+    if xmake._OPTIONS.verbose then
+        
+        -- check
+        assert(msg)
+
+        -- trace
+        print(string.format(msg, ...))
+    end
+end
+
+-- the error function
+function utils.error(msg, ...)
+
+    -- check
+    assert(msg)
+
+    -- trace
+    print("error: " .. string.format(msg, ...))
+end
+
+-- the warning function
+function utils.warning(msg, ...)
+
+    -- check
+    assert(msg)
+
+    -- trace
+    print("warning: " .. string.format(msg, ...))
+end
+
+-- ifelse, a? b : c
+function utils.ifelse(a, b, c)
+    if a then return b else return c end
+end
+
+-- dump object with the level
+function utils._dump_with_level(object, exclude, level)
+ 
+    -- dump string
+    if type(object) == "string" then  
+        io.write(string.format("%q", object))  
+    -- dump boolean
+    elseif type(object) == "boolean" then  
+        io.write(tostring(object))  
+    -- dump number 
+    elseif type(object) == "number" then  
+        io.write(object)  
+    -- dump function 
+    elseif type(object) == "function" then  
+        io.write("<function>")  
+    -- dump table
+    elseif type(object) == "table" then  
+
+        -- dump head
+        io.write("\n")  
+        for l = 1, level do
+            io.write("    ")
+        end
+        io.write("{\n")
+
+        -- dump body
+        local i = 0
+        for k, v in pairs(object) do  
+
+            -- exclude some keys
+            if not exclude or type(k) ~= "string" or not k:find(exclude) then
+
+                -- dump spaces and separator
+                for l = 1, level do
+                    io.write("    ")
+                end
+
+                io.write(utils.ifelse(i == 0, "    ", ",   "))
+                
+                -- dump key
+                if type(k) == "string" then
+                    io.write(k, " = ")  
+                end
+
+                -- dump value
+                if not utils._dump_with_level(v, exclude, level + 1) then 
+                    return false
+                end
+
+                -- dump newline
+                io.write("\n")
+                i = i + 1
+            end
+        end  
+
+        -- dump tail
+        for l = 1, level do
+            io.write("    ")
+        end
+        io.write("}\n")  
+    else  
+        -- error
+        utils.error("invalid object type: %s", type(object))
+        return false
+    end  
+
+    -- ok
+    return true
+end
+
+-- dump object
+function utils.dump(object, exclude, prefix)
+
+    -- dump prefix
+    if prefix then
+        io.write(prefix)
+    end
+  
+    -- dump it
+    utils._dump_with_level(object, exclude, 0)
+
+    -- return it
+    return object
+end
+
+-- unwrap object if be only one
+function utils.unwrap(object)
+
+    -- check
+    assert(object)
+
+    -- unwrap it
+    if type(object) == "table" and table.getn(object) == 1 then
+        for _, v in pairs(object) do
+            return v
+        end
+    end
+
+    -- ok
+    return object
+end
+
+-- wrap object to table
+function utils.wrap(object)
+
+    -- no object?
+    if not object then
+        return {}
+    end
+
+    -- wrap it if not table
+    if type(object) ~= "table" then
+        return {object}
+    end
+
+    -- ok
+    return object
+end
+
+-- remove repeat from the given array
+function utils.unique(array)
+
+    -- check
+    assert(array)
+
+    -- remove repeat
+    if type(array) == "table" then
+
+        -- not only one?
+        if table.getn(array) ~= 1 then
+
+            -- done
+            local exists = {}
+            local unique = {}
+            for _, v in ipairs(array) do
+                if type(v) == "string" then
+                    if not exists[v] then
+                        exists[v] = true
+                        table.insert(unique, v)
+                    end
+                else
+                    if not exists["\"" .. v .. "\""] then
+                        exists["\"" .. v .. "\""] = true
+                        table.insert(unique, v)
+                    end
+                end
+            end
+
+            -- update it
+            array = unique
+        end
+    end
+
+    -- ok
+    return array
+end
+
+-- call functions 
+function utils.call(funcs, pred, ...)
+
+    -- check
+    assert(funcs)
+
+    -- call all
+    for _, func in ipairs(utils.wrap(funcs)) do
+        
+        -- check
+        assert(type(func) == "function")
+
+        -- call it
+        local result = func(...)
+
+        -- exists predicate?
+        if pred and type(pred) == "function" then
+            if not pred(name, result) then return false end
+        -- failed?
+        elseif not result then return false end
+    end
+
+    -- ok
+    return true
+end
+
+-- return module: utils
+return utils