/*
   Copyright (C) 1999-2006 Id Software, Inc. and contributors.
   For a list of contributors, see the accompanying CONTRIBUTORS file.

   This file is part of GtkRadiant.

   GtkRadiant is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   GtkRadiant 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 General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with GtkRadiant; if not, write to the Free Software
   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 */

//-----------------------------------------------------------------------------
//
// DESCRIPTION:
// classes used for describing geometry information from q3map feedback
//

#include "feedback.h"

#include <gtk/gtk.h>

#include "debugging/debugging.h"

#include "igl.h"
#include "iselection.h"

#include "map.h"
#include "dialog.h"
#include "mainframe.h"


CDbgDlg g_DbgDlg;

void Feedback_draw2D(VIEWTYPE viewType)
{
    g_DbgDlg.draw2D(viewType);
}

void CSelectMsg::saxStartElement(message_info_t *ctx, const xmlChar *name, const xmlChar **attrs)
{
    if (string_equal(reinterpret_cast<const char *>( name ), "select")) {
        // read the message
        ESelectState = SELECT_MESSAGE;
    } else {
        // read the brush
        ASSERT_MESSAGE(string_equal(reinterpret_cast<const char *>( name ), "brush"), "FEEDBACK PARSE ERROR");
        ASSERT_MESSAGE(ESelectState == SELECT_MESSAGE, "FEEDBACK PARSE ERROR");
        ESelectState = SELECT_BRUSH;
        globalOutputStream() << message.c_str() << '\n';
    }
}

void CSelectMsg::saxEndElement(message_info_t *ctx, const xmlChar *name)
{
    if (string_equal(reinterpret_cast<const char *>( name ), "select")) {
    }
}

void CSelectMsg::saxCharacters(message_info_t *ctx, const xmlChar *ch, int len)
{
    if (ESelectState == SELECT_MESSAGE) {
        message.write(reinterpret_cast<const char *>( ch ), len);
    } else {
        brush.write(reinterpret_cast<const char *>( ch ), len);
    }
}

IGL2DWindow *CSelectMsg::Highlight()
{
    GlobalSelectionSystem().setSelectedAll(false);
    int entitynum, brushnum;
    if (sscanf(reinterpret_cast<const char *>( brush.c_str()), "%i %i", &entitynum, &brushnum) == 2) {
        SelectBrush(entitynum, brushnum);
    }
    return 0;
}

void CPointMsg::saxStartElement(message_info_t *ctx, const xmlChar *name, const xmlChar **attrs)
{
    if (string_equal(reinterpret_cast<const char *>( name ), "pointmsg")) {
        // read the message
        EPointState = POINT_MESSAGE;
    } else {
        // read the brush
        ASSERT_MESSAGE(string_equal(reinterpret_cast<const char *>( name ), "point"), "FEEDBACK PARSE ERROR");
        ASSERT_MESSAGE(EPointState == POINT_MESSAGE, "FEEDBACK PARSE ERROR");
        EPointState = POINT_POINT;
        globalOutputStream() << message.c_str() << '\n';
    }
}

void CPointMsg::saxEndElement(message_info_t *ctx, const xmlChar *name)
{
    if (string_equal(reinterpret_cast<const char *>( name ), "pointmsg")) {
    } else if (string_equal(reinterpret_cast<const char *>( name ), "point")) {
        sscanf(point.c_str(), "%g %g %g", &(pt[0]), &(pt[1]), &(pt[2]));
        point.clear();
    }
}

void CPointMsg::saxCharacters(message_info_t *ctx, const xmlChar *ch, int len)
{
    if (EPointState == POINT_MESSAGE) {
        message.write(reinterpret_cast<const char *>( ch ), len);
    } else {
        ASSERT_MESSAGE(EPointState == POINT_POINT, "FEEDBACK PARSE ERROR");
        point.write(reinterpret_cast<const char *>( ch ), len);
    }
}

IGL2DWindow *CPointMsg::Highlight()
{
    return this;
}

void CPointMsg::DropHighlight()
{
}

void CPointMsg::Draw2D(VIEWTYPE vt)
{
    int nDim1 = (vt == YZ) ? 1 : 0;
    int nDim2 = (vt == XY) ? 1 : 2;
    glPointSize(4);
    glColor3f(1.0f, 0.0f, 0.0f);
    glBegin(GL_POINTS);
    glVertex2f(pt[nDim1], pt[nDim2]);
    glEnd();
    glBegin(GL_LINE_LOOP);
    glVertex2f(pt[nDim1] - 8, pt[nDim2] - 8);
    glVertex2f(pt[nDim1] + 8, pt[nDim2] - 8);
    glVertex2f(pt[nDim1] + 8, pt[nDim2] + 8);
    glVertex2f(pt[nDim1] - 8, pt[nDim2] + 8);
    glEnd();
}

void CWindingMsg::saxStartElement(message_info_t *ctx, const xmlChar *name, const xmlChar **attrs)
{
    if (string_equal(reinterpret_cast<const char *>( name ), "windingmsg")) {
        // read the message
        EPointState = WINDING_MESSAGE;
    } else {
        // read the brush
        ASSERT_MESSAGE(string_equal(reinterpret_cast<const char *>( name ), "winding"), "FEEDBACK PARSE ERROR");
        ASSERT_MESSAGE(EPointState == WINDING_MESSAGE, "FEEDBACK PARSE ERROR");
        EPointState = WINDING_WINDING;
        globalOutputStream() << message.c_str() << '\n';
    }
}

void CWindingMsg::saxEndElement(message_info_t *ctx, const xmlChar *name)
{
    if (string_equal(reinterpret_cast<const char *>( name ), "windingmsg")) {
    } else if (string_equal(reinterpret_cast<const char *>( name ), "winding")) {
        const char *c = winding.c_str();
        sscanf(c, "%i ", &numpoints);

        int i = 0;
        for (; i < numpoints; i++) {
            c = strchr(c + 1, '(');
            if (c) { // even if we are given the number of points when the cycle begins .. don't trust it too much
                sscanf(c, "(%g %g %g)", &wt[i][0], &wt[i][1], &wt[i][2]);
            } else {
                break;
            }
        }
        numpoints = i;
    }
}

void CWindingMsg::saxCharacters(message_info_t *ctx, const xmlChar *ch, int len)
{
    if (EPointState == WINDING_MESSAGE) {
        message.write(reinterpret_cast<const char *>( ch ), len);
    } else {
        ASSERT_MESSAGE(EPointState == WINDING_WINDING, "FEEDBACK PARSE ERROR");
        winding.write(reinterpret_cast<const char *>( ch ), len);
    }
}

IGL2DWindow *CWindingMsg::Highlight()
{
    return this;
}

void CWindingMsg::DropHighlight()
{
}

void CWindingMsg::Draw2D(VIEWTYPE vt)
{
    int i;

    int nDim1 = (vt == YZ) ? 1 : 0;
    int nDim2 = (vt == XY) ? 1 : 2;
    glColor3f(1.0f, 0.f, 0.0f);

    glPointSize(4);
    glBegin(GL_POINTS);
    for (i = 0; i < numpoints; i++)
        glVertex2f(wt[i][nDim1], wt[i][nDim2]);
    glEnd();
    glPointSize(1);

    glEnable(GL_BLEND);
    glPolygonMode(GL_FRONT_AND_BACK, GL_FILL);
    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
    glColor4f(0.133f, 0.4f, 1.0f, 0.5f);
    glBegin(GL_POLYGON);
    for (i = 0; i < numpoints; i++)
        glVertex2f(wt[i][nDim1], wt[i][nDim2]);
    glEnd();
    glDisable(GL_BLEND);
}

// triggered when the user selects an entry in the feedback box
static void feedback_selection_changed(ui::TreeSelection selection, gpointer data)
{
    g_DbgDlg.DropHighlight();

    GtkTreeModel *model;
    GtkTreeIter selected;
    if (gtk_tree_selection_get_selected(selection, &model, &selected)) {
        auto path = gtk_tree_model_get_path(model, &selected);
        g_DbgDlg.SetHighlight(gtk_tree_path_get_indices(path)[0]);
        gtk_tree_path_free(path);
    }
}

void CDbgDlg::DropHighlight()
{
    if (m_pHighlight != 0) {
        m_pHighlight->DropHighlight();
        m_pHighlight = 0;
        m_pDraw2D = 0;
    }
}

void CDbgDlg::SetHighlight(gint row)
{
    ISAXHandler *h = GetElement(row);
    if (h != NULL) {
        m_pDraw2D = h->Highlight();
        m_pHighlight = h;
    }
}

ISAXHandler *CDbgDlg::GetElement(std::size_t row)
{
    return static_cast<ISAXHandler *>(g_ptr_array_index(m_pFeedbackElements, gint( row )) );
}

void CDbgDlg::Init()
{
    DropHighlight();

    // free all the ISAXHandler*, clean it
    while (m_pFeedbackElements->len) {
        static_cast<ISAXHandler *>(g_ptr_array_index(m_pFeedbackElements, 0) )->Release();
        g_ptr_array_remove_index(m_pFeedbackElements, 0);
    }

    if (m_clist) {
        m_clist.clear();
    }
}

void CDbgDlg::Push(ISAXHandler *pHandler)
{
    // push in the list
    g_ptr_array_add(m_pFeedbackElements, (void *) pHandler);

    if (!GetWidget()) {
        Create();
    }

    // put stuff in the list
    m_clist.clear();
    for (std::size_t i = 0; i < static_cast<std::size_t>( m_pFeedbackElements->len ); ++i) {
        m_clist.append(0, GetElement(i)->getName());
    }

    ShowDlg();
}

ui::Window CDbgDlg::BuildDialog()
{
    auto window = MainFrame_getWindow().create_floating_window("Q3Map debug window");

    auto scr = ui::ScrolledWindow(ui::New);
    scr.show();
    window.add(scr);
    gtk_scrolled_window_set_policy(GTK_SCROLLED_WINDOW(scr), GTK_POLICY_NEVER, GTK_POLICY_AUTOMATIC);
    gtk_scrolled_window_set_shadow_type(GTK_SCROLLED_WINDOW(scr), GTK_SHADOW_IN);

    {
        ui::ListStore store = ui::ListStore::from(gtk_list_store_new(1, G_TYPE_STRING));

        auto view = ui::TreeView(ui::TreeModel::from(store._handle));
        gtk_tree_view_set_headers_visible(view, FALSE);

        {
            auto renderer = ui::CellRendererText(ui::New);
            auto column = ui::TreeViewColumn("", renderer, {{"text", 0}});
            gtk_tree_view_append_column(view, column);
        }

        {
            auto selection = ui::TreeSelection::from(gtk_tree_view_get_selection(view));
            gtk_tree_selection_set_mode(selection, GTK_SELECTION_BROWSE);
            selection.connect("changed", G_CALLBACK(feedback_selection_changed), NULL);
        }

        view.show();

        scr.add(view);

        store.unref();

        m_clist = store;
    }

    return window;
}