add sdcc compiler

5 files changed, 496 insertions, 3 deletions

diff --git a/xmake/core/project/target.lua b/xmake/core/project/target.lua
index c6dca9f94..198295e36 100644
--- a/xmake/core/project/target.lua
+++ b/xmake/core/project/target.lua
@@ -1019,7 +1019,7 @@ function _instance:sourcefiles()
 end
 
 -- get object file from source file
-function _instance:objectfile(sourcefile)
+function _instance:objectfile(sourcefile, sourcekind)
 
     -- get relative directory in the autogen directory
     local relativedir = nil
@@ -1051,9 +1051,24 @@ function _instance:objectfile(sourcefile)
     end
     relativedir = relativedir:gsub("%.%.", "__")
 
+    -- get object format from the compiler
+    local objectformat
+    if sourcekind then
+        self._OBJECTFORMATS = self._OBJECTFORMATS or {}
+        objectformat = self._OBJECTFORMATS[sourcekind]
+        if objectformat == nil then
+            local compinst = compiler.load(sourcekind, self)
+            if compinst then
+                objectformat = compinst:format("object")
+                self._OBJECTFORMATS[sourcekind] = objectformat or false
+            end
+        end
+        objectformat = objectformat or nil
+    end
+
     -- make object file
     -- full file name(not base) to avoid name-clash of object file
-    return path.join(self:objectdir(), relativedir, target.filename(path.filename(sourcefile), "object"))
+    return path.join(self:objectdir(), relativedir, target.filename(path.filename(sourcefile), "object", objectformat))
 end
 
 -- get the object files
@@ -1392,7 +1407,7 @@ function _instance:sourcebatches()
                 -- insert object files to source batches
                 sourcebatch.objectfiles = sourcebatch.objectfiles or {}
                 sourcebatch.dependfiles = sourcebatch.dependfiles or {}
-                local objectfile = self:objectfile(sourcefile)
+                local objectfile = self:objectfile(sourcefile, sourcekind)
                 table.insert(sourcebatch.objectfiles, objectfile)
                 table.insert(sourcebatch.dependfiles, self:dependfile(objectfile))
             end
diff --git a/xmake/modules/core/tools/sdar.lua b/xmake/modules/core/tools/sdar.lua
new file mode 100644
index 000000000..3548772f1
--- /dev/null
+++ b/xmake/modules/core/tools/sdar.lua
@@ -0,0 +1,116 @@
+--!A cross-platform build utility based on Lua
+--
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+--
+--     http://www.apache.org/licenses/LICENSE-2.0
+--
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- 
+-- Copyright (C) 2015-2020, TBOOX Open Source Group.
+--
+-- @author      ruki
+-- @file        sdar.lua
+--
+
+-- imports
+import("core.tool.compiler")
+
+-- init it
+function init(self)
+
+    -- init flags
+    self:set("arflags", "-cr")
+
+    -- init the file formats
+    self:set("formats", {static = "$(name).lib"})
+end
+
+-- make the strip flag
+function strip(self, level)
+
+    -- the maps
+    local maps = 
+    {   
+        debug = "-S"
+    ,   all   = "-s"
+    }
+
+    -- make it
+    return maps[level] 
+end
+
+-- make the link arguments list
+function linkargv(self, objectfiles, targetkind, targetfile, flags, opt)
+
+    -- check
+    assert(targetkind == "static")
+
+    -- init arguments
+    local argv = table.join(flags, targetfile, objectfiles)
+
+    -- too long arguments for windows? 
+    if is_host("windows") then
+        opt = opt or {}
+        local args = os.args(argv)
+        if #args > 1024 and not opt.rawargs then
+            local argsfile = os.tmpfile(args) .. ".args.txt" 
+            io.writefile(argsfile, args)
+            argv = {"@" .. argsfile}
+        end
+    end
+
+    -- make it
+    return self:program(), argv
+end
+
+-- link the library file
+function link(self, objectfiles, targetkind, targetfile, flags)
+
+    -- check
+    assert(targetkind == "static", "the target kind: %s is not support for ar", targetkind)
+
+    -- ensure the target directory
+    os.mkdir(path.directory(targetfile))
+
+    -- @note remove the previous archived file first to force recreating a new file
+    os.tryrm(targetfile)
+
+    -- link it
+    os.runv(linkargv(self, objectfiles, targetkind, targetfile, flags))
+end
+
+-- extract the static library to object directory
+function extract(self, libraryfile, objectdir)
+
+    -- make the object directory first
+    os.mkdir(objectdir)
+
+    -- get the absolute path of this library
+    libraryfile = path.absolute(libraryfile)
+
+    -- enter the object directory
+    local oldir = os.cd(objectdir)
+
+    -- extract it
+    os.runv(self:program(), {"-x", libraryfile})
+
+    -- check repeat object name
+    local repeats = {}
+    local objectfiles = os.iorunv(self:program(), {"-t", libraryfile})
+    for _, objectfile in ipairs(objectfiles:split('\n')) do
+        if repeats[objectfile] then
+            raise("object name(%s) conflicts in library: %s", objectfile, libraryfile)
+        end
+        repeats[objectfile] = true
+    end                                                          
+
+    -- leave the object directory
+    os.cd(oldir)
+end
+
diff --git a/xmake/modules/core/tools/sdcc.lua b/xmake/modules/core/tools/sdcc.lua
new file mode 100644
index 000000000..8fb1af30a
--- /dev/null
+++ b/xmake/modules/core/tools/sdcc.lua
@@ -0,0 +1,254 @@
+--!A cross-platform build utility based on Lua
+--
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+--
+--     http://www.apache.org/licenses/LICENSE-2.0
+--
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- 
+-- Copyright (C) 2015-2020, TBOOX Open Source Group.
+--
+-- @author      ruki
+-- @file        sdcc.lua
+--
+
+-- imports
+import("core.base.option")
+import("private.tools.ccache")
+
+-- init it
+function init(self)
+
+    -- init shflags
+    self:set("shflags", "-shared")
+
+    -- init cxflags for the kind: shared
+    self:set("shared.cxflags", "-fPIC")
+
+    -- init the file formats
+    self:set("formats", {object = "$(name).rel"})
+
+    -- init flags map
+    self:set("mapflags",
+    {
+        -- optimize
+        ["-O0"]                     = ""
+    ,   ["-Os"]                     = "--opt-code-speed"
+    ,   ["-O3"]                     = "--opt-code-size"
+    ,   ["-Ofast"]                  = "--opt-code-speed"
+
+        -- symbols
+    ,   ["-fvisibility=.*"]         = ""
+
+        -- warnings
+    ,   ["-Weverything"]            = ""
+    ,   ["-Wextra"]                 = ""
+    ,   ["-Wall"]                   = ""
+    ,   ["-W1"]                     = "--less-pedantic"
+    ,   ["-W2"]                     = "--less-pedantic"
+    ,   ["-W3"]                     = ""
+    ,   ["%-Wno%-error=.*"]         = ""
+    ,   ["%-fno%-.*"]               = ""
+
+        -- language
+    ,   ["-ansi"]                   = "--std-c89"
+    ,   ["-std=c89"]                = "--std-c89"
+    ,   ["-std=c99"]                = "--std-c99"
+    ,   ["-std=c11"]                = "--std-c11"
+    ,   ["-std=c20"]                = "--std-c2x"
+    ,   ["-std=gnu89"]              = "--std-sdcc89"
+    ,   ["-std=gnu99"]              = "--std-sdcc99"
+    ,   ["-std=gnu11"]              = "--std-sdcc11"
+    ,   ["-std=gnu20"]              = "--std-sdcc2x"
+    ,   ["-std=.*"]                 = ""
+
+        -- others
+    ,   ["-ftrapv"]                 = ""
+    ,   ["-fsanitize=address"]      = ""
+    })
+end
+
+-- make the warning flag
+function nf_warning(self, level)
+
+    -- the maps
+    local maps = 
+    {   
+        none       = "--less-pedantic"
+    ,   less       = "--less-pedantic"
+    ,   error      = "-Werror"
+    }
+
+    -- make it
+    return maps[level]
+end
+
+-- make the optimize flag
+function nf_optimize(self, level)
+
+    -- the maps
+    local maps = 
+    {   
+        none       = ""
+    ,   fast       = "--opt-code-speed"
+    ,   faster     = "--opt-code-speed"
+    ,   fastest    = "--opt-code-speed"
+    ,   smallest   = "--opt-code-size"
+    ,   aggressive = "--opt-code-speed"
+    }
+
+    -- make it
+    return maps[level] 
+end
+
+-- make the language flag
+function nf_language(self, stdname)
+
+    -- the stdc maps
+    if _g.cmaps == nil then
+        _g.cmaps = 
+        {
+            -- stdc
+            ansi        = "--std-c89"
+        ,   c89         = "--std-c89"
+        ,   gnu89       = "--std-sdcc89"
+        ,   c99         = "--std-c99"
+        ,   gnu99       = "--std-sdcc99"
+        ,   c11         = "--std-c11"
+        ,   gnu11       = "--std-sdcc11"
+        ,   c20         = "--std-c2x"
+        ,   gnu20       = "--std-sdcc2x"
+        }
+    end
+    return _g.cmaps[stdname]
+end
+
+-- make the define flag
+function nf_define(self, macro)
+    return "-D" .. macro
+end
+
+-- make the undefine flag
+function nf_undefine(self, macro)
+    return "-U" .. macro
+end
+
+-- make the includedir flag
+function nf_includedir(self, dir)
+    return "-I" .. os.args(dir)
+end
+
+-- make the link flag
+function nf_link(self, lib)
+    return "-l" .. lib
+end
+
+-- make the syslink flag
+function nf_syslink(self, lib)
+    return nf_link(self, lib)
+end
+
+-- make the linkdir flag
+function nf_linkdir(self, dir)
+    return "-L" .. os.args(dir)
+end
+
+-- make the link arguments list
+function linkargv(self, objectfiles, targetkind, targetfile, flags)
+    return self:program(), table.join("-o", targetfile, objectfiles, flags)
+end
+
+-- link the target file
+function link(self, objectfiles, targetkind, targetfile, flags)
+
+    -- ensure the target directory
+    os.mkdir(path.directory(targetfile))
+
+    -- link it
+    os.runv(linkargv(self, objectfiles, targetkind, targetfile, flags))
+end
+
+-- make the compile arguments list
+function _compargv1(self, sourcefile, objectfile, flags)
+    return ccache.cmdargv(self:program(), table.join("-c", flags, "-o", objectfile, sourcefile))
+end
+
+-- compile the source file
+function _compile1(self, sourcefile, objectfile, dependinfo, flags)
+
+    -- ensure the object directory
+    os.mkdir(path.directory(objectfile))
+
+    -- compile it
+    try
+    {
+        function ()
+            local outdata, errdata = os.iorunv(_compargv1(self, sourcefile, objectfile, flags))
+            return (outdata or "") .. (errdata or "")
+        end,
+        catch
+        {
+            function (errors)
+
+                -- try removing the old object file for forcing to rebuild this source file
+                os.tryrm(objectfile)
+
+                -- find the start line of error
+                local lines = tostring(errors):split("\n")
+                local start = 0
+                for index, line in ipairs(lines) do
+                    if line:find("error:", 1, true) or line:find("错误：", 1, true) then
+                        start = index
+                        break
+                    end
+                end
+
+                -- get 16 lines of errors
+                if start > 0 or not option.get("verbose") then
+                    if start == 0 then start = 1 end
+                    errors = table.concat(table.slice(lines, start, start + ifelse(#lines - start > 16, 16, #lines - start)), "\n")
+                end
+
+                -- raise compiling errors
+                raise(errors)
+            end
+        },
+        finally
+        {
+            function (ok, warnings)
+
+                -- print some warnings
+                if warnings and #warnings > 0 and (option.get("verbose") or option.get("warning")) then
+                    cprint("${color.warning}%s", table.concat(table.slice(warnings:split('\n'), 1, 8), '\n'))
+                end
+            end
+        }
+    }
+end
+
+-- make the compile arguments list
+function compargv(self, sourcefiles, objectfile, flags)
+
+    -- only support single source file now
+    assert(type(sourcefiles) ~= "table", "'object:sources' not support!")
+
+    -- for only single source file
+    return _compargv1(self, sourcefiles, objectfile, flags)
+end
+
+-- compile the source file
+function compile(self, sourcefiles, objectfile, dependinfo, flags)
+
+    -- only support single source file now
+    assert(type(sourcefiles) ~= "table", "'object:sources' not support!")
+
+    -- for only single source file
+    _compile1(self, sourcefiles, objectfile, dependinfo, flags)
+end
+
diff --git a/xmake/modules/detect/tools/find_sdar.lua b/xmake/modules/detect/tools/find_sdar.lua
new file mode 100644
index 000000000..e133478cd
--- /dev/null
+++ b/xmake/modules/detect/tools/find_sdar.lua
@@ -0,0 +1,54 @@
+--!A cross-platform build utility based on Lua
+--
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+--
+--     http://www.apache.org/licenses/LICENSE-2.0
+--
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- 
+-- Copyright (C) 2015-2020, TBOOX Open Source Group.
+--
+-- @author      ruki
+-- @file        find_sdar.lua
+--
+
+-- imports
+import("lib.detect.find_program")
+import("lib.detect.find_programver")
+
+-- find dmd 
+--
+-- @param opt   the argument options, e.g. {version = true}
+--
+-- @return      program, version
+--
+-- @code 
+--
+-- local dmd = find_sdar()
+-- 
+-- @endcode
+--
+function main(opt)
+
+    -- init options
+    opt         = opt or {}
+    opt.command = opt.command or "--version"
+    
+    -- find program
+    local program = find_program(opt.program or "sdar", opt)
+
+    -- find program version
+    local version = nil
+    if program and opt and opt.version then
+        version = find_programver(program, opt)
+    end
+
+    -- ok?
+    return program, version
+end
diff --git a/xmake/modules/detect/tools/find_sdcc.lua b/xmake/modules/detect/tools/find_sdcc.lua
new file mode 100644
index 000000000..01621cce0
--- /dev/null
+++ b/xmake/modules/detect/tools/find_sdcc.lua
@@ -0,0 +1,54 @@
+--!A cross-platform build utility based on Lua
+--
+-- Licensed under the Apache License, Version 2.0 (the "License");
+-- you may not use this file except in compliance with the License.
+-- You may obtain a copy of the License at
+--
+--     http://www.apache.org/licenses/LICENSE-2.0
+--
+-- Unless required by applicable law or agreed to in writing, software
+-- distributed under the License is distributed on an "AS IS" BASIS,
+-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+-- See the License for the specific language governing permissions and
+-- limitations under the License.
+-- 
+-- Copyright (C) 2015-2020, TBOOX Open Source Group.
+--
+-- @author      ruki
+-- @file        find_sdcc.lua
+--
+
+-- imports
+import("lib.detect.find_program")
+import("lib.detect.find_programver")
+
+-- find dmd 
+--
+-- @param opt   the argument options, e.g. {version = true}
+--
+-- @return      program, version
+--
+-- @code 
+--
+-- local dmd = find_sdcc()
+-- 
+-- @endcode
+--
+function main(opt)
+
+    -- init options
+    opt         = opt or {}
+    opt.command = opt.command or "--version"
+    
+    -- find program
+    local program = find_program(opt.program or "sdcc", opt)
+
+    -- find program version
+    local version = nil
+    if program and opt and opt.version then
+        version = find_programver(program, opt)
+    end
+
+    -- ok?
+    return program, version
+end