--!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-present, Xmake Open Source Community.
--
-- @author      ruki
-- @file        list.lua
--

-- imports
import("core.project.project")
import("core.base.task")
import("core.base.json")
import("core.base.option")
import("private.action.require.impl.package")
import("private.action.require.impl.repository")
import("private.action.require.impl.environment")

-- from xmake/system/remote?
function _from(instance)
    local fetchinfo = instance:fetch()
    if fetchinfo then
        if instance:is_thirdparty() then
            return ", ${green}3rd${clear}"
        elseif instance:is_system() then
            return ", ${green}system${clear}"
        else
            return ""
        end
    elseif #instance:urls() > 0 then
        return instance:is_supported() and format(", ${yellow}remote${clear}(in %s)", instance:repo():name()) or format(", ${yellow}remote${clear}(${red}unsupported${clear} in %s)", instance:repo():name())
    elseif instance:is_system() then
        return ", ${red}missing${clear}"
    else
        return ""
    end
end

-- get package info
function _info(instance)
    local info = instance:version_str() and instance:version_str() or "no version"
    info = info .. _from(instance)
    info = info .. (instance:is_optional() and ", ${yellow}optional${clear}" or "")
    return info
end

function _get_status(instance)
    local fetchinfo = instance:fetch()
    if fetchinfo then
        if instance:is_thirdparty() then
            return "3rd"
        elseif instance:is_system() then
            return "system"
        else
            return "installed"
        end
    elseif #instance:urls() > 0 then
        return "remote"
    elseif instance:is_system() then
        return "missing"
    end
    return "unknown"
end

function _make_info_json(instance)
    local info = {}
    info.name = instance:name()
    info.requirestr = instance:requireinfo().originstr
    info.version = instance:version_str()
    info.status = _get_status(instance)

    if info.status == "remote" then
         if instance:repo() then
            info.repo = instance:repo():name()
         end
         if not instance:is_supported() then
            info.supported = false
         end
    end

    if instance:is_optional() then
        info.optional = true
    end

    local fetchinfo = instance:fetch()
    if fetchinfo then
        info.fetchinfo = fetchinfo
    end

    local deps = {}
    for _, dep in ipairs(instance:orderdeps()) do
        table.insert(deps, _make_info_json(dep))
    end
    if #deps > 0 then
        info.deps = deps
    end
    return info
end

-- list packages
function main()

    -- get requires
    local requires, requires_extra = project.requires_str()
    if not requires or #requires == 0 then
        return
    end

    -- enter environment
    environment.enter()

    -- pull all repositories first if not exists
    if not repository.pulled() then
        task.run("repo", {update = true})
    end

    if option.get("json") then
        local list = {}
        for _, instance in ipairs(package.load_packages(requires, {requires_extra = requires_extra})) do
             table.insert(list, _make_info_json(instance))
        end
        print(json.encode(list))
        environment.leave()
        return
    end

    -- list all required packages
    print("The package dependencies of project:")

    -- list all required packages
    for _, instance in ipairs(package.load_packages(requires, {requires_extra = requires_extra})) do
        cprint("    ${color.dump.string_quote}require${clear}(%s): %s", instance:requireinfo().originstr, _info(instance))
        for _, dep in ipairs(instance:orderdeps()) do
            cprint("      -> ${color.dump.string_quote}dep${clear}(%s): %s", dep:requireinfo().originstr, _info(dep))
        end
        local fetchinfo = instance:fetch()
        if fetchinfo then
            for name, info in pairs(fetchinfo) do
                if type(info) == "table" then
                    cprint("      -> ${color.dump.string_quote}%s${clear}: %s", name, table.concat(info, " "))
                else
                    cprint("      -> ${color.dump.string_quote}%s${clear}: %s", name, tostring(info))
                end
            end
        end
    end

    -- leave environment
    environment.leave()
end