// Copyright (c) 2014-2016 Thomas Fussell
// Copyright (c) 2010-2015 openpyxl
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in
// all copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, WRISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
// THE SOFTWARE
//
// @license: http://www.opensource.org/licenses/mit-license.php
// @author: see AUTHORS file

#include <cmath>
#include <cstdlib>

#include <xlnt/styles/color.hpp>
#include <xlnt/utils/exceptions.hpp>

namespace xlnt {

indexed_color::indexed_color(std::size_t index)
    : index_(index)
{
}

theme_color::theme_color(std::size_t index)
    : index_(index)
{
}

const color color::black()
{
    return color(rgb_color("ff000000"));
}

const color color::white()
{
    return color(rgb_color("ffffffff"));
}

const color color::red()
{
    return color(rgb_color("ffff0000"));
}

const color color::darkred()
{
    return color(rgb_color("ff8b0000"));
}

const color color::blue()
{
    return color(rgb_color("ff0000ff"));
}

const color color::darkblue()
{
    return color(rgb_color("ff00008b"));
}

const color color::green()
{
    return color(rgb_color("ff00ff00"));
}

const color color::darkgreen()
{
    return color(rgb_color("ff008b00"));
}

const color color::yellow()
{
    return color(rgb_color("ffffff00"));
}

const color color::darkyellow()
{
    return color(rgb_color("ffcccc00"));
}

color::color()
    : type_(color_type::indexed), rgb_(rgb_color(0, 0, 0, 0)), indexed_(0), theme_(0), tint_(0), auto__(false)
{
}

color::color(const rgb_color &rgb)
    : type_(color_type::rgb), rgb_(rgb), indexed_(0), theme_(0), tint_(0), auto__(false)
{
}

color::color(const indexed_color &indexed)
    : type_(color_type::indexed), rgb_(rgb_color(0, 0, 0, 0)), indexed_(indexed), theme_(0), tint_(0), auto__(false)
{
}

color::color(const theme_color &theme)
    : type_(color_type::theme), rgb_(rgb_color(0, 0, 0, 0)), indexed_(0), theme_(theme), tint_(0), auto__(false)
{
}

color_type color::type() const
{
    return type_;
}

bool color::is_auto() const
{
    return auto__;
}

void color::auto_(bool value)
{
    auto__ = value;
}

const indexed_color &color::indexed() const
{
    assert_type(color_type::indexed);
    return indexed_;
}

const theme_color &color::theme() const
{
    assert_type(color_type::theme);
    return theme_;
}

std::string rgb_color::hex_string() const
{
    static const char *digits = "0123456789abcdef";
    std::string hex_string(8, '0');
    auto out_iter = hex_string.begin();

    for (auto byte : {rgba_[3], rgba_[0], rgba_[1], rgba_[2]})
    {
        for (auto i = 0; i < 2; ++i)
        {
            auto nibble = byte >> (4 * (1 - i)) & 0xf;
            *(out_iter++) = digits[nibble];
        }
    }

    return hex_string;
}

std::array<std::uint8_t, 4> rgb_color::decode_hex_string(const std::string &hex_string)
{
    auto x = std::strtoul(hex_string.c_str(), NULL, 16);

    auto a = static_cast<std::uint8_t>(x >> 24);
    auto r = static_cast<std::uint8_t>((x >> 16) & 0xff);
    auto g = static_cast<std::uint8_t>((x >> 8) & 0xff);
    auto b = static_cast<std::uint8_t>(x & 0xff);

    return {{r, g, b, a}};
}

rgb_color::rgb_color(const std::string &hex_string)
    : rgba_(decode_hex_string(hex_string))
{
}

rgb_color::rgb_color(std::uint8_t r, std::uint8_t g, std::uint8_t b, std::uint8_t a)
    : rgba_({{r, g, b, a}})
{
}

std::size_t indexed_color::index() const
{
    return index_;
}

std::size_t theme_color::index() const
{
    return index_;
}

const rgb_color &color::rgb() const
{
    assert_type(color_type::rgb);
    return rgb_;
}

void color::tint(double tint)
{
    tint_ = tint;
}

void color::assert_type(color_type t) const
{
    if (t != type_)
    {
        throw invalid_attribute();
    }
}

XLNT_API bool color::operator==(const xlnt::color &other) const
{
    if (type_ != other.type_ || std::fabs(tint_ - other.tint_) != 0.0 || auto__ != other.auto__)
    {
        return false;
    }

    switch (type_)
    {
    case color_type::indexed:
        return indexed_.index() == other.indexed_.index();
    case color_type::theme:
        return theme_.index() == other.theme_.index();
    case color_type::rgb:
        return rgb_.hex_string() == other.rgb_.hex_string();
    }

    return false;
}

} // namespace xlnt