1 files changed, 114 insertions, 0 deletions
diff --git a/xmake/core/tools/ar.lua b/xmake/core/tools/ar.lua
new file mode 100644
index 000000000..75e63f83d
--- /dev/null
+++ b/xmake/core/tools/ar.lua
@@ -0,0 +1,114 @@
+--!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        ar.lua
+--
+
+-- define module: ar
+local ar = ar or {}
+
+-- load modules
+local utils     = require("base/utils")
+local string    = require("base/string")
+local config    = require("base/config")
+
+-- init the linker
+function ar.init(self, name)
+
+    -- save name
+    self.name = name or "ar"
+
+    -- init arflags
+    self.arflags = { "-crs" }
+
+end
+
+-- make the link command
+function ar.command_link(self, objfiles, targetfile, flags, logfile)
+
+    -- redirect
+    local redirect = ""
+    if logfile then redirect = string.format(" > %s 2>&1", logfile) end
+
+    -- make it
+    return string.format("%s %s %s %s%s", self.name, flags, targetfile, objfiles, redirect)
+end
+
+-- extract the static library to object files
+function ar.extract(self, ...)
+ 
+    -- check
+    local args = ...
+    assert(#args == 2 and self.name)
+
+    -- get library and object file path
+    local libfile = args[1]
+    local objfile = args[2]
+    assert(libfile and objfile)
+
+    -- get object directory
+    local objdir = path.directory(objfile)
+    if not os.isdir(objdir) then os.mkdir(objdir) end
+    if not os.isdir(objdir) then
+        utils.error("%s not found!", objdir)
+        return false
+    end
+
+    -- absolute the library path
+    libfile = path.absolute(libfile)
+    assert(libfile)
+
+    -- enter the object directory
+    ok, errors = os.cd(objdir)
+    if not ok then
+        utils.error(errors)
+        return false
+    end
+
+    -- extract it
+    local ok = self:main(string.format("%s -x %s", self.name, libfile))
+    if not ok then
+        utils.error("extract %s to %s failed!", libfile, objdir)
+        return false
+    end
+
+    -- leave the object directory
+    ok, errors = os.cd("-")
+    if not ok then
+        utils.error(errors)
+        return false
+    end
+
+    -- ok
+    return true
+end
+
+
+-- the main function
+function ar.main(self, cmd)
+
+    -- execute it
+    local ok = os.execute(cmd)
+
+    -- ok?
+    return utils.ifelse(ok == 0, true, false)
+end
+
+-- return module: ar
+return ar