#include <mapnik/symbolizer_helpers.hpp>

namespace mapnik {

template <typename FaceManagerT, typename DetectorT>
text_placement_info_ptr text_symbolizer_helper<FaceManagerT, DetectorT>::get_placement()
{
    if (!placement_valid_) return text_placement_info_ptr();
    if (point_placement_)
        return get_point_placement();
    else
        return get_line_placement();
}

template <typename FaceManagerT, typename DetectorT>
text_placement_info_ptr text_symbolizer_helper<FaceManagerT, DetectorT>::get_line_placement()
{
    while (geometries_to_process_.size())
    {
        if (geo_itr_ == geometries_to_process_.end())
        {
            //Just processed the last geometry. Try next placement.
            if (!next_placement()) return text_placement_info_ptr(); //No more placements
            //Start again from begin of list
            geo_itr_ = geometries_to_process_.begin();
            continue; //Reexecute size check
        }
        //TODO: Avoid calling constructor repeatedly
        placement_finder<DetectorT> finder(*placement_, *info_, detector_, dims_);
        typedef  coord_transform2<CoordTransform,geometry_type> path_type;
        path_type path(t_, **geo_itr_, prj_trans_);
        finder.find_line_placements(path);
        //Keep reference to current object so we can delete it.
        std::list<geometry_type*>::iterator current_object = geo_itr_;
        geo_itr_++;
        if (placement_->placements.size())
        {
            //Found a placement
            geometries_to_process_.erase(current_object);
            if (writer_.first) writer_.first->add_text(
                        *placement_, font_manager_,
                        feature_, t_, writer_.second);
            return placement_;
        }
        //No placement for this geometry. Keep it in geometries_to_process_ for next try.
    }
    return text_placement_info_ptr();
}

template <typename FaceManagerT, typename DetectorT>
text_placement_info_ptr text_symbolizer_helper<FaceManagerT, DetectorT>::get_point_placement()
{
    while (points_.size())
    {
        if (point_itr_ == points_.end())
        {
            //Just processed the last point. Try next placement.
            if (!next_placement()) return text_placement_info_ptr(); //No more placements
            //Start again from begin of list
            point_itr_ = points_.begin();
            continue; //Reexecute size check
        }
        placement_finder<DetectorT> finder(*placement_, *info_, detector_, dims_);
        finder.find_point_placement(point_itr_->first, point_itr_->second, angle_);
        //Keep reference to current object so we can delete it.
        std::list<position>::iterator current_object = point_itr_;
        point_itr_++;
        if (placement_->placements.size())
        {
            //Found a placement
            points_.erase(current_object);
            if (writer_.first) writer_.first->add_text(
                        *placement_, font_manager_,
                        feature_, t_, writer_.second);
            finder.update_detector();
            return placement_;
        }
        //No placement for this point. Keep it in points_ for next try.

    }
    return text_placement_info_ptr();
}


template <typename FaceManagerT, typename DetectorT>
void text_symbolizer_helper<FaceManagerT, DetectorT>::initialize_geometries()
{
    unsigned num_geom = feature_.num_geometries();
    for (unsigned i=0; i<num_geom; ++i)
    {
        geometry_type const& geom = feature_.get_geometry(i);

        // don't bother with empty geometries
        if (geom.num_points() == 0) continue;

        if ((geom.type() == Polygon) && sym_.get_minimum_path_length() > 0)
        {
            // TODO - find less costly method than fetching full envelope
            box2d<double> gbox = t_.forward(geom.envelope(), prj_trans_);
            if (gbox.width() < sym_.get_minimum_path_length())
            {
                continue;
            }
        }
        // TODO - calculate length here as well
        geometries_to_process_.push_back(const_cast<geometry_type*>(&geom));
    }
    geo_itr_ = geometries_to_process_.begin();
}

template <typename FaceManagerT, typename DetectorT>
void text_symbolizer_helper<FaceManagerT, DetectorT>::initialize_points()
{
    label_placement_enum how_placed = placement_->properties.label_placement;
    if (how_placed == LINE_PLACEMENT) {
        point_placement_ = false;
        return;
    } else {
        point_placement_ = true;
    }

    double label_x=0.0;
    double label_y=0.0;
    double z=0.0;

    std::list<geometry_type*>::const_iterator itr = geometries_to_process_.begin();
    std::list<geometry_type*>::const_iterator end = geometries_to_process_.end();
    for (; itr != end; itr++)
    {
        geometry_type const& geom = **itr;
        if (how_placed == VERTEX_PLACEMENT)
        {
            geom.rewind(0);
            for(unsigned i = 0; i < geom.num_points(); i++)
            {
                geom.vertex(&label_x, &label_y);
                prj_trans_.backward(label_x, label_y, z);
                t_.forward(&label_x, &label_y);
                points_.push_back(std::make_pair(label_x, label_y));
            }
        } else {
            if (how_placed == POINT_PLACEMENT)
            {
                geom.label_position(&label_x, &label_y);
            } else if (how_placed == INTERIOR_PLACEMENT)
            {
                geom.label_interior_position(&label_x, &label_y);
            } else {
#ifdef MAPNIK_DEBUG
                std::cerr << "ERROR: Unknown placement type in initialize_points();\n";
#endif
            }
            prj_trans_.backward(label_x, label_y, z);
            t_.forward(&label_x, &label_y);
            points_.push_back(std::make_pair(label_x, label_y));
        }
    }
    point_itr_ = points_.begin();
}


template <typename FaceManagerT, typename DetectorT>
bool text_symbolizer_helper<FaceManagerT, DetectorT>::next_placement()
{
    if (!placement_->next()) {
        placement_valid_ = false;
        return false;
    }
    placement_->properties.processor.process(text_, feature_);
    info_ = &(text_.get_string_info());
    if (placement_->properties.orientation)
    {
        angle_ = boost::apply_visitor(
                    evaluate<Feature, value_type>(feature_),
                    *(placement_->properties.orientation)).to_double();
    } else {
        angle_ = 0.0;
    }
    return true;
}


/*****************************************************************************/


template <typename FaceManagerT, typename DetectorT>
text_placement_info_ptr shield_symbolizer_helper<FaceManagerT, DetectorT>::get_placement()
{
    if (!placement_valid_ || !marker_) return text_placement_info_ptr();
    if (point_placement_)
        return get_point_placement();
    else
        return get_line_placement();
}

template <typename FaceManagerT, typename DetectorT>
text_placement_info_ptr shield_symbolizer_helper<FaceManagerT, DetectorT>::get_point_placement()
{
    position const& shield_pos = sym_.get_shield_displacement();
    while (points_.size())
    {
        if (point_itr_ == points_.end())
        {
            //Just processed the last point. Try next placement.
            if (!next_placement()) return text_placement_info_ptr(); //No more placements
            //Start again from begin of list
            point_itr_ = points_.begin();
            continue; //Reexecute size check
        }
        position const& pos = placement_->properties.displacement;
        double label_x = point_itr_->first + shield_pos.first;
        double label_y = point_itr_->second + shield_pos.second;

        placement_finder<DetectorT> finder(*placement_, *info_, detector_, dims_);
        finder.find_point_placement(label_x, label_y, angle_);
        //Keep reference to current object so we can delete it.
        std::list<position>::iterator current_object = point_itr_;
        point_itr_++;
        if (!placement_->placements.size())
        {
            //No placement for this point. Keep it in points_ for next try.
            continue;
        }
        //Found a label placement but not necessarily also a marker placement
        // check to see if image overlaps anything too, there is only ever 1 placement found for points and verticies
        double x = floor(placement_->placements[0].starting_x);
        double y = floor(placement_->placements[0].starting_y);
        if (!sym_.get_unlock_image())
        {
            // center image at text center position
            // remove displacement from image label
            double lx = x - pos.first;
            double ly = y - pos.second;
            marker_x_ = int(floor(lx - (0.5 * marker_w_))) + 1;
            marker_y_ = int(floor(ly - (0.5 * marker_h_))) + 1;
            marker_ext_.re_center(lx, ly);
        }
        else
        {  // center image at reference location
            marker_x_ = int(floor(label_x - 0.5 * marker_w_));
            marker_y_ = int(floor(label_y - 0.5 * marker_h_));
            marker_ext_.re_center(label_x, label_y);
        }

        if (placement_->properties.allow_overlap || detector_.has_placement(marker_ext_))
        {
            detector_.insert(marker_ext_);
            finder.update_detector();
            if (writer_.first) {
                writer_.first->add_box(marker_ext_, feature_, t_, writer_.second);
                writer_.first->add_text(*placement_, font_manager_, feature_, t_, writer_.second);
            }
            points_.erase(current_object);
            return placement_;
        }
    }
    return text_placement_info_ptr();

}


template <typename FaceManagerT, typename DetectorT>
text_placement_info_ptr shield_symbolizer_helper<FaceManagerT, DetectorT>::get_line_placement()
{
    position const& pos = placement_->properties.displacement;
    placement_->additional_boxes.push_back(
    /*TODO: I'm not sure this is correct. It's what the old code did, but
            I think transfroms can make the marker non-centered.
    */
    box2d<double>(-0.5 * marker_ext_.width()  - pos.first,
                  -0.5 * marker_ext_.height() - pos.second,
                   0.5 * marker_ext_.width()  - pos.first,
                   0.5 * marker_ext_.height() - pos.second));
    return text_symbolizer_helper<FaceManagerT, DetectorT>::get_line_placement();
}


template <typename FaceManagerT, typename DetectorT>
void shield_symbolizer_helper<FaceManagerT, DetectorT>::init_marker()
{
    std::string filename = path_processor_type::evaluate(*sym_.get_filename(), this->feature_);
    boost::array<double,6> const& m = sym_.get_transform();
    transform_.load_from(&m[0]);
    marker_.reset();
    if (!filename.empty())
    {
        marker_ = marker_cache::instance()->find(filename, true);
    }
    if (!marker_) {
        marker_w_ = 0;
        marker_h_ = 0;
        marker_ext_.init(0, 0, 0, 0);
        return;
    }
    marker_w_ = (*marker_)->width();
    marker_h_ = (*marker_)->height();
    double px0 = - 0.5 * marker_w_;
    double py0 = - 0.5 * marker_h_;
    double px1 = 0.5 * marker_w_;
    double py1 = 0.5 * marker_h_;
    double px2 = px1;
    double py2 = py0;
    double px3 = px0;
    double py3 = py1;
    transform_.transform(&px0,&py0);
    transform_.transform(&px1,&py1);
    transform_.transform(&px2,&py2);
    transform_.transform(&px3,&py3);
    marker_ext_.init(px0, py0, px1, py1);
    marker_ext_.expand_to_include(px2, py2);
    marker_ext_.expand_to_include(px3, py3);
}

template <typename FaceManagerT, typename DetectorT>
std::pair<int, int> shield_symbolizer_helper<FaceManagerT, DetectorT>::get_marker_position(text_path &p)
{
    position const& pos = placement_->properties.displacement;
    if (placement_->properties.label_placement == LINE_PLACEMENT) {
        double x = floor(p.starting_x);
        double y = floor(p.starting_y);

        double lx = x - pos.first;
        double ly = y - pos.second;
        int px = int(floor(lx - (0.5*marker_w_))) + 1;
        int py = int(floor(ly - (0.5*marker_h_))) + 1;
        marker_ext_.re_center(lx, ly);
//        detector_->insert(label_ext); //TODO: Is this done by placement_finder?

        if (writer_.first) writer_.first->add_box(marker_ext_, feature_, t_, writer_.second);
        return std::make_pair(px, py);
    } else {
        return std::make_pair(marker_x_, marker_y_);
    }
}


template <typename FaceManagerT, typename DetectorT>
marker& shield_symbolizer_helper<FaceManagerT, DetectorT>::get_marker() const
{
    return **marker_;
}

template <typename FaceManagerT, typename DetectorT>
agg::trans_affine const& shield_symbolizer_helper<FaceManagerT, DetectorT>::get_transform() const
{
    return transform_;
}

template class text_symbolizer_helper<face_manager<freetype_engine>, label_collision_detector4>;
template class shield_symbolizer_helper<face_manager<freetype_engine>, label_collision_detector4>;
} //namespace