/*
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 "debugging/debugging.h"

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

#include <gtk/gtktreeview.h>
#include <gtk/gtktreeselection.h>
#include <gtk/gtkliststore.h>
#include <gtk/gtkcellrenderertext.h>
#include <gtk/gtkwindow.h>
#include <gtk/gtkscrolledwindow.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(GtkTreeSelection* selection, gpointer data)
{
  g_DbgDlg.DropHighlight();

  GtkTreeModel* model;
  GtkTreeIter selected;
  if(gtk_tree_selection_get_selected(selection, &model, &selected))
  {
    GtkTreePath* 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 != NULL)
    gtk_list_store_clear (m_clist);
}

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

  if(GetWidget() == 0)
  {
    Create();
  }

  // put stuff in the list
  gtk_list_store_clear (m_clist);
  for(std::size_t i = 0; i < static_cast<std::size_t>(m_pFeedbackElements->len); ++i)
  {
    GtkTreeIter iter;
    gtk_list_store_append(m_clist, &iter);
    gtk_list_store_set(m_clist, &iter, 0, GetElement(i)->getName(), -1);
  }

  ShowDlg();
}

GtkWindow* CDbgDlg::BuildDialog()
{
  GtkWindow* window = create_floating_window("Q3Map debug window", MainFrame_getWindow());

  GtkWidget* scr = gtk_scrolled_window_new (NULL, NULL);
  gtk_widget_show (scr);
  gtk_container_add (GTK_CONTAINER (window), GTK_WIDGET (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);

  {
    GtkListStore* store = gtk_list_store_new(1, G_TYPE_STRING);

    GtkWidget* view = gtk_tree_view_new_with_model(GTK_TREE_MODEL(store));
    gtk_tree_view_set_headers_visible(GTK_TREE_VIEW(view), FALSE);

    {
      GtkCellRenderer* renderer = gtk_cell_renderer_text_new();
      GtkTreeViewColumn* column = gtk_tree_view_column_new_with_attributes("", renderer, "text", 0, NULL);
      gtk_tree_view_append_column(GTK_TREE_VIEW(view), column);
    }

    {
      GtkTreeSelection* selection = gtk_tree_view_get_selection(GTK_TREE_VIEW(view));
      gtk_tree_selection_set_mode(selection, GTK_SELECTION_BROWSE);
      g_signal_connect(G_OBJECT(selection), "changed", G_CALLBACK(feedback_selection_changed), NULL);
    }

    gtk_widget_show(view);

    gtk_container_add(GTK_CONTAINER (scr), view);

    g_object_unref(G_OBJECT(store));

    m_clist = store;
  }

  return window;
}