/*****************************************************************************
 *
 * This file is part of Mapnik (c++ mapping toolkit)
 *
 * Copyright (C) 2021 Artem Pavlenko
 *
 * This library 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.
 *
 * This library 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 this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 *
 *****************************************************************************/

#include <iostream>
#include <sstream>
#include <vector>
#include <string>
#include <cmath>

#include <mapnik/mapnik.hpp>
#include <mapnik/version.hpp>
#include <mapnik/debug.hpp>
#include <mapnik/marker.hpp>
#include <mapnik/marker_cache.hpp>
#include <mapnik/image_util.hpp>
#include <mapnik/svg/svg_path_adapter.hpp>
#include <mapnik/svg/svg_renderer_agg.hpp>
#include <mapnik/svg/svg_path_attributes.hpp>

#include <mapnik/warning.hpp>
MAPNIK_DISABLE_WARNING_PUSH
#include <mapnik/warning_ignore.hpp>
#include <boost/algorithm/string.hpp>
#include <boost/program_options.hpp>
MAPNIK_DISABLE_WARNING_POP

#include <mapnik/warning.hpp>
MAPNIK_DISABLE_WARNING_PUSH
#include <mapnik/warning_ignore_agg.hpp>
#include "agg_rasterizer_scanline_aa.h"
#include "agg_basics.h"
#include "agg_rendering_buffer.h"
#include "agg_renderer_base.h"
#include "agg_pixfmt_rgba.h"
#include "agg_scanline_u.h"
MAPNIK_DISABLE_WARNING_POP

struct main_marker_visitor
{
    main_marker_visitor(std::string const& svg_name, double scale_factor, double opacity, bool verbose, bool auto_open)
        : svg_name_(svg_name)
        , scale_factor_(scale_factor)
        , opacity_(opacity)
        , verbose_(verbose)
        , auto_open_(auto_open)
    {}

    int operator()(mapnik::marker_svg const& marker) const
    {
#if 1
        using color_type = agg::rgba8;
        using order_type = agg::order_rgba;
        using blender_type = agg::comp_op_adaptor_rgba_pre<color_type, order_type>; // comp blender
        using buf_type = agg::rendering_buffer;
        using pixfmt = agg::pixfmt_custom_blend_rgba<blender_type, buf_type>;
        using renderer_base = agg::renderer_base<pixfmt>;
        using renderer_solid = agg::renderer_scanline_aa_solid<renderer_base>;
#else
        using pixfmt = agg::pixfmt_rgba32_pre;
        using renderer_base = agg::renderer_base<pixfmt>;
        using renderer_solid = agg::renderer_scanline_aa_solid<renderer_base>;
#endif
        agg::rasterizer_scanline_aa<> ras_ptr;
        agg::scanline_u8 sl;

        double w, h;
        std::tie(w, h) = marker.dimensions();
        if (w == 0 || h == 0)
        {
            if (verbose_)
            {
                std::clog << "Invalid SVG dimensions: " << w << "," << h << " using svgBBOX()" << std::endl;
            }
            auto b = marker.bounding_box();
            w = b.width();
            h = b.height();
        }

        double svg_width = w * scale_factor_;
        double svg_height = h * scale_factor_;

        int output_width = std::max(1, static_cast<int>(std::round(svg_width)));
        int output_height = std::max(1, static_cast<int>(std::round(svg_height)));
        if (verbose_)
        {
            std::clog << "SVG width of '" << w << "' and height of '" << h << "'\n";
            std::clog << "Output image dimensions:[" << output_width << "," << output_height << "]" << std::endl;
        }
        mapnik::image_rgba8 im(output_width, output_height, true, true);
        agg::rendering_buffer buf(im.bytes(), im.width(), im.height(), im.row_size());
        pixfmt pixf(buf);
        renderer_base renb(pixf);

        mapnik::box2d<double> bbox = {0, 0, svg_width, svg_height};
        // center the svg marker on '0,0'
        agg::trans_affine mtx = agg::trans_affine_translation(-0.5 * w, -0.5 * h);
        // Scale the image
        mtx.scale(scale_factor_);
        // render the marker at the center of the marker box
        mtx.translate(0.5 * svg_width, 0.5 * svg_height);

        mapnik::svg::vertex_stl_adapter<mapnik::svg::svg_path_storage> stl_storage(marker.get_data()->source());
        mapnik::svg::svg_path_adapter svg_path(stl_storage);
        mapnik::svg::renderer_agg<mapnik::svg_path_adapter, mapnik::svg_attribute_type, renderer_solid, pixfmt>
          svg_renderer_this(svg_path, marker.get_data()->svg_group());

        svg_renderer_this.render(ras_ptr, sl, renb, mtx, opacity_, bbox);

        std::string png_name(svg_name_);
        boost::algorithm::ireplace_last(png_name, ".svg", ".png");
        demultiply_alpha(im);
        mapnik::save_to_file<mapnik::image_rgba8>(im, png_name, "png");
        int status = 0;
        if (auto_open_)
        {
            std::ostringstream s;
#ifdef DARWIN
            s << "open " << png_name;
#else
            s << "xdg-open " << png_name;
#endif
            int ret = std::system(s.str().c_str());
            if (ret != 0)
                status = ret;
        }
        std::clog << "rendered to: " << png_name << "\n";
        return status;
    }

    // default
    template<typename T>
    int operator()(T const&) const
    {
        std::clog << "svg2png error: failed to process '" << svg_name_ << "'\n";
        return -1;
    }

  private:
    std::string svg_name_;
    double scale_factor_;
    double opacity_;
    bool verbose_;
    bool auto_open_;
};

void check_opacity_range(double opacity)
{
    using namespace boost::program_options;
    if (opacity < 0.0 || opacity > 1.0)
    {
        throw invalid_option_value(std::to_string(opacity));
    }
}

int main(int argc, char** argv)
{
    namespace po = boost::program_options;

    bool verbose = false;
    bool auto_open = false;
    bool strict = false;
    int status = 0;
    std::vector<std::string> svg_files;
    mapnik::setup();
    mapnik::logger::instance().set_severity(mapnik::logger::error);
    double scale_factor;
    double opacity;
    std::string usage = "Usage: svg2png [options] <svg-file(s)>";
    try
    {
        po::options_description desc("svg2png utility");
        // clang-format off
        desc.add_options()
            ("help,h", "produce usage message")
            ("version,V","print version string")
            ("verbose,v","verbose output")
            ("open,o","automatically open the file after rendering (os x only)")
            ("strict,s","enables strict SVG parsing")
            ("scale-factor", po::value<double>()->default_value(1.0), "provide scaling factor (default: 1.0)")
            ("opacity", po::value<double>()->default_value(1.0)->notifier(&check_opacity_range), "top level opacity (default: 1.0)")
            ("svg",po::value<std::vector<std::string> >(),"svg file to read")
            ;
        // clang-format on
        po::positional_options_description p;
        p.add("svg", -1);
        po::variables_map vm;
        po::store(po::command_line_parser(argc, argv).options(desc).positional(p).run(), vm);
        po::notify(vm);

        if (vm.count("version"))
        {
            std::clog << "version " << MAPNIK_VERSION_STRING << std::endl;
            return 1;
        }

        if (vm.count("help"))
        {
            std::clog << desc << std::endl;
            std::clog << usage << std::endl;
            return 1;
        }

        if (vm.count("verbose"))
        {
            verbose = true;
        }

        if (vm.count("open"))
        {
            auto_open = true;
        }

        if (vm.count("strict"))
        {
            strict = true;
        }
        if (vm.count("scale-factor"))
        {
            scale_factor = vm["scale-factor"].as<double>();
        }
        if (vm.count("opacity"))
        {
            opacity = vm["opacity"].as<double>();
        }
        if (vm.count("svg"))
        {
            svg_files = vm["svg"].as<std::vector<std::string>>();
        }
        else
        {
            std::clog << usage << std::endl;
            return -1;
        }

        std::vector<std::string>::const_iterator itr = svg_files.begin();
        if (itr == svg_files.end())
        {
            std::clog << usage << std::endl;
            return 0;
        }
        while (itr != svg_files.end())
        {
            std::string svg_name(*itr++);
            if (verbose)
            {
                std::clog << "found: " << svg_name << "\n";
            }
            std::shared_ptr<mapnik::marker const> marker =
              mapnik::marker_cache::instance().find(svg_name, false, strict);
            main_marker_visitor visitor(svg_name, scale_factor, opacity, verbose, auto_open);
            status = mapnik::util::apply_visitor(visitor, *marker);
        }
    }
    catch (std::exception const& ex)
    {
        std::clog << "Exception caught:" << ex.what() << std::endl;
        return -1;
    }
    catch (...)
    {
        std::clog << "Exception of unknown type!" << std::endl;
        return -1;
    }
    return status;
}