#include <stdlib.h>
#include <testlib.h>

/*
 * This module is for use with the test program testtreeview
 */
static gboolean state_change_watch  (GSignalInvocationHint *ihint,
                                     guint                  n_param_values,
                                     const GValue          *param_values,
                                     gpointer               data);

static void _check_table             (AtkObject         *in_obj);
static void _check_cell_actions      (AtkObject         *in_obj);

static gint _find_expander_column    (AtkTable          *table);
static void _check_expanders         (AtkTable          *table,
                                      gint              expander_column);
static void _runtest                 (AtkObject         *obj);
static void _create_event_watcher    (void);
static void row_inserted             (AtkObject         *obj,
                                      gint              row,
                                      gint              count);
static void row_deleted              (AtkObject         *obj,
                                      gint              row,
                                      gint              count);
static AtkObject *table_obj = NULL;
static gint expander_column = -1;
static gboolean editing_cell = FALSE;

static gboolean 
state_change_watch (GSignalInvocationHint *ihint,
                    guint                  n_param_values,
                    const GValue          *param_values,
                    gpointer               data)
{
  GObject *object;
  gboolean state_set;
  G_CONST_RETURN gchar *state_name;
  AtkStateType state_type;

  object = g_value_get_object (param_values + 0);
  g_return_val_if_fail (ATK_IS_OBJECT (object), FALSE);

  state_name = g_value_get_string (param_values + 1);
  state_set = g_value_get_boolean (param_values + 2);

  g_print ("Object type: %s state: %s set: %d\n", 
           g_type_name (G_OBJECT_TYPE (object)), state_name, state_set);
  state_type = atk_state_type_for_name (state_name);
  if (state_type == ATK_STATE_EXPANDED)
    {
      AtkObject *parent = atk_object_get_parent (ATK_OBJECT (object));

      if (ATK_IS_TABLE (parent))
        _check_expanders (ATK_TABLE (parent), expander_column);
    }
  return TRUE;
}

static void 
_check_table (AtkObject *in_obj)
{
  AtkObject *obj;
  AtkRole role[2];
  AtkRole obj_role;
  static gboolean emission_hook_added = FALSE;

  if (!emission_hook_added)
    {
      emission_hook_added = TRUE;
      g_signal_add_emission_hook (
                    g_signal_lookup ("state-change", ATK_TYPE_OBJECT),
      /*
       * To specify an emission hook for a particular state, e.g. 
       * ATK_STATE_EXPANDED, instead of 0 use
       * g_quark_from_string (atk_state_type_get_name (ATK_STATE_EXPANDED))
       */  
                    0,
                    state_change_watch, NULL, (GDestroyNotify) NULL);
    }

  role[0] = ATK_ROLE_TABLE;
  role[1] = ATK_ROLE_TREE_TABLE;
  
  g_print ("focus event for: %s\n", g_type_name (G_OBJECT_TYPE (in_obj)));

  _check_cell_actions (in_obj);

  obj_role = atk_object_get_role (in_obj);
  if (obj_role == ATK_ROLE_TABLE_CELL)
    obj = atk_object_get_parent (in_obj);
  else
    obj = find_object_by_role (in_obj, role, 2);
  if (obj == NULL)
    return;

  editing_cell = FALSE;

  if (obj != table_obj)
    {
      table_obj = obj;
      g_print("Found %s table\n", g_type_name (G_OBJECT_TYPE (obj)));
      g_signal_connect (G_OBJECT (obj),
                        "row_inserted",
                        G_CALLBACK (row_inserted),
                        NULL);
      g_signal_connect (G_OBJECT (obj),
                        "row_deleted",
                        G_CALLBACK (row_deleted),
                        NULL);
      /*
       * Find expander column
       */
      if (ATK_IS_TABLE (obj))
        {
          if (atk_object_get_role (obj) == ATK_ROLE_TREE_TABLE)
            {
              expander_column = _find_expander_column (ATK_TABLE (obj));
              if (expander_column == -1)
                {
                  g_warning ("Expander column not found\n");
                  return;
                }
            }
          _runtest(obj);
        }
      else
        g_warning ("Table does not support AtkTable interface\n");
    }
  else 
    {
      /*
       * We do not call these functions at the same time as we set the 
       * signals as the GtkTreeView may not be displayed yet.
       */
      gint x, y, width, height, first_x, last_x, last_y;
      gint first_row, last_row, first_column, last_column;
      gint index;
      AtkObject *first_child, *last_child, *header;
      AtkComponent *component = ATK_COMPONENT (obj);
      AtkTable *table = ATK_TABLE (obj);

      atk_component_get_extents (component, 
                                 &x, &y, &width, &height, ATK_XY_WINDOW);
      g_print ("WINDOW: x: %d y: %d width: %d height: %d\n",
               x, y, width, height);
      atk_component_get_extents (component, 
                                 &x, &y, &width, &height, ATK_XY_SCREEN);
      g_print ("SCREEN: x: %d y: %d width: %d height: %d\n",
               x, y, width, height);
      last_x = x + width - 1;
      last_y = y + height - 1;
      first_x = x; 
      header = atk_table_get_column_header (table, 0);
      if (header)
        {
          atk_component_get_extents (ATK_COMPONENT (header), 
                                     &x, &y, &width, &height, ATK_XY_SCREEN);
          g_print ("Got column header: x: %d y: %d width: %d height: %d\n",
                   x, y, width, height);
          y += height;
        }
      first_child = atk_component_ref_accessible_at_point (component, 
                                             first_x, y, ATK_XY_SCREEN);
      atk_component_get_extents (ATK_COMPONENT (first_child), 
                                 &x, &y, &width, &height, ATK_XY_SCREEN);
      g_print ("first_child: x: %d y: %d width: %d height: %d\n",
               x, y, width, height);
      index = atk_object_get_index_in_parent (ATK_OBJECT (first_child));
      first_row = atk_table_get_row_at_index (table, index);
      first_column = atk_table_get_column_at_index (table, index);
      g_print ("first_row: %d first_column: %d index: %d\n",
               first_row, first_column, index);
      g_assert (index == atk_table_get_index_at (table, first_row, first_column));
      last_child = atk_component_ref_accessible_at_point (component, 
                                     last_x, last_y, ATK_XY_SCREEN);
      if (last_child == NULL)
        {
          /* The TreeView may be bigger than the data */
          gint n_children;

          n_children = atk_object_get_n_accessible_children (obj);
          last_child = atk_object_ref_accessible_child (obj, n_children - 1);
        }
      atk_component_get_extents (ATK_COMPONENT (last_child), 
                                 &x, &y, &width, &height, ATK_XY_SCREEN);
      g_print ("last_child: x: %d y: %d width: %d height: %d\n",
               x, y, width, height);
      index = atk_object_get_index_in_parent (ATK_OBJECT (last_child));
      last_row = atk_table_get_row_at_index (table, index);
      last_column = atk_table_get_column_at_index (table, index);
      g_print ("last_row: %d last_column: %d index: %d\n",
               last_row, last_column, index);
      g_assert (index == atk_table_get_index_at (table, last_row, last_column));
      g_object_unref (first_child);
      g_object_unref (last_child);

      if (expander_column >= 0)
        {
          gint n_rows, i;
          gint x, y, width, height;

          n_rows = atk_table_get_n_rows (table);
          for (i = 0; i < n_rows; i++)
            {
              AtkObject *child_obj;
              AtkStateSet *state_set;
              gboolean showing;

              child_obj = atk_table_ref_at (table, i, expander_column);
              state_set = atk_object_ref_state_set (child_obj);
              showing =  atk_state_set_contains_state (state_set, 
                                                       ATK_STATE_SHOWING);
              g_object_unref (state_set);
              atk_component_get_extents (ATK_COMPONENT (child_obj), 
                                         &x, &y, &width, &height, 
                                         ATK_XY_SCREEN);
              g_object_unref (child_obj);
              if (showing)
                g_print ("Row: %d Column: %d x: %d y: %d width: %d height: %d\n", 
                         i, expander_column, x, y, width, height);
            }
        }
    }
}

static void 
_check_cell_actions (AtkObject *in_obj)
{
  AtkRole role;
  AtkAction *action;
  gint n_actions, i;

  role = atk_object_get_role (in_obj);
  if (role != ATK_ROLE_TABLE_CELL)
    return;

  if (!ATK_IS_ACTION (in_obj))
    return;

  if (editing_cell)
    return;

  action = ATK_ACTION (in_obj);

  n_actions = atk_action_get_n_actions (action);

  for (i = 0; i < n_actions; i++)
    {
      G_CONST_RETURN gchar* name;

      name = atk_action_get_name (action, i);
      g_print ("Action %d is %s\n", i, name);
#if 0
      if (strcmp (name, "edit") == 0)
        {
          editing_cell = TRUE;
          atk_action_do_action (action, i);
        }
#endif
    }
  return;
}

static gint 
_find_expander_column (AtkTable *table)
{
  gint n_columns, i;
  gint retval = -1;

  n_columns = atk_table_get_n_columns (table);
  for (i = 0; i < n_columns; i++)
    {
      AtkObject *cell;
      AtkRelationSet *relation_set;

      cell = atk_table_ref_at (table, 0, i);
      relation_set =  atk_object_ref_relation_set (cell);
      if (atk_relation_set_contains (relation_set, 
                                     ATK_RELATION_NODE_CHILD_OF))
        retval = i;
      g_object_unref (relation_set);
      g_object_unref (cell);
      if (retval >= 0)
        break;
    }
  return retval;
}

static void
_check_expanders (AtkTable *table,
                  gint     expander_column)
{
  gint n_rows, i;

  n_rows = atk_table_get_n_rows (table);

  for (i = 0; i < n_rows; i++)
    {
      AtkObject *cell;
      AtkRelationSet *relation_set;
      AtkRelation *relation;
      GPtrArray *target;
      gint j;

      cell = atk_table_ref_at (table, i, expander_column);

      relation_set =  atk_object_ref_relation_set (cell);
      relation = atk_relation_set_get_relation_by_type (relation_set, 
                                     ATK_RELATION_NODE_CHILD_OF);
      g_assert (relation);
      target = atk_relation_get_target (relation);
      g_assert (target->len == 1);
      for (j = 0; j < target->len; j++)
        {
          AtkObject *target_obj;
          AtkRole role;
          gint target_index, target_row;

          target_obj = g_ptr_array_index (target, j);
          role = atk_object_get_role (target_obj);

          switch (role)
            {
            case ATK_ROLE_TREE_TABLE:
              g_print ("Row %d is top level\n", i);
              break;
            case ATK_ROLE_TABLE_CELL:
              target_index = atk_object_get_index_in_parent (target_obj);
              target_row = atk_table_get_row_at_index (table, target_index);
              g_print ("Row %d has parent at %d\n", i, target_row);
              break;
            default:
              g_assert_not_reached ();
            } 
        }
      g_object_unref (relation_set);
      g_object_unref (cell);
    }
}

static void
_create_event_watcher (void)
{
  atk_add_focus_tracker (_check_table);
}

int
gtk_module_init (gint argc, 
                 char *argv[])
{
  g_print ("testtreetable Module loaded\n");

  _create_event_watcher ();

  return 0;
}

static void
_runtest (AtkObject *obj)
{
  AtkObject *child_obj;
  AtkTable *table;
  AtkObject *caption;
  gint i;
  gint n_cols, n_rows, n_children; 

  table = ATK_TABLE (obj);
  n_children = atk_object_get_n_accessible_children (ATK_OBJECT (obj));
  n_cols = atk_table_get_n_columns (table);
  n_rows = atk_table_get_n_rows (table);
  g_print ("n_children: %d n_rows: %d n_cols: %d\n", 
            n_children, n_rows, n_cols);
  
  for (i = 0; i < n_rows; i++)
    {
      gint index = atk_table_get_index_at (table, i, expander_column);
      gint index_in_parent;

      child_obj = atk_table_ref_at (table, i, expander_column);
      index_in_parent = atk_object_get_index_in_parent (child_obj);
      g_print ("index: %d %d row %d column %d\n", index, index_in_parent, i, expander_column);
      
      g_object_unref (child_obj);
    }
  caption = atk_table_get_caption (table);
  if (caption)
    {
      const gchar *caption_name = atk_object_get_name (caption);

      g_print ("Caption: %s\n", caption_name ? caption_name : "<null>");
    }
  for (i = 0; i < n_cols; i++)
    {
      AtkObject *header;

      header = atk_table_get_column_header (table, i);
      g_print ("Header for column %d is %p\n", i, header);
      if (header)
        {
	  const gchar *name;
	  AtkRole role;
          AtkObject *parent;
          AtkObject *child;
          gint index;

          name = atk_object_get_name (header);
          role = atk_object_get_role (header);
          parent = atk_object_get_parent (header);

          if (parent)
            {
              index = atk_object_get_index_in_parent (header);
              g_print ("Parent: %s index: %d\n", G_OBJECT_TYPE_NAME (parent), index);
              child = atk_object_ref_accessible_child (parent, 0);
              g_print ("Child: %s %p\n", G_OBJECT_TYPE_NAME (child), child);
              if (index >= 0)
                {
                  child = atk_object_ref_accessible_child (parent, index);
                  g_print ("Index: %d child: %s\n", index, G_OBJECT_TYPE_NAME (child));
                  g_object_unref (child);
                }
            }
          else
            g_print ("Parent of header is NULL\n");
          g_print ("%s %s %s\n", G_OBJECT_TYPE_NAME (header), name ? name: "<null>", atk_role_get_name (role));
        }
    }
}

static void 
row_inserted (AtkObject *obj,
              gint      row,
              gint      count)
{
#if 0
  GtkWidget *widget;
  GtkTreeView *tree_view;
  GtkTreeModel *tree_model;
#endif
  gint index;

  g_print ("row_inserted: row: %d count: %d\n", row, count);
  index = atk_table_get_index_at (ATK_TABLE (obj), row+1, 0);
  g_print ("index for first column of next row is %d\n", index);

#if 0
  widget = GTK_ACCESSIBLE (obj)->widget;
  tree_view = GTK_TREE_VIEW (widget);
  tree_model = gtk_tree_view_get_model (tree_view);
  if (GTK_IS_TREE_STORE (tree_model))
    {
      GtkTreeStore *tree_store;
      GtkTreePath *tree_path;
      GtkTreeIter tree_iter;

      tree_store = GTK_TREE_STORE (tree_model);
      tree_path = gtk_tree_path_new_from_string ("3:0");
      gtk_tree_model_get_iter (tree_model, &tree_iter, tree_path);
      gtk_tree_path_free (tree_path);
      gtk_tree_store_remove (tree_store, &tree_iter);
    }
#endif
}

static void 
row_deleted (AtkObject *obj,
             gint      row,
             gint      count)
{
#if 0
  GtkWidget *widget;
  GtkTreeView *tree_view;
  GtkTreeModel *tree_model;
#endif
  gint index;

  g_print ("row_deleted: row: %d count: %d\n", row, count);
  index = atk_table_get_index_at (ATK_TABLE (obj), row+1, 0);
  g_print ("index for first column of next row is %d\n", index);

#if 0
  widget = GTK_ACCESSIBLE (obj)->widget;
  tree_view = GTK_TREE_VIEW (widget);
  tree_model = gtk_tree_view_get_model (tree_view);
  if (GTK_IS_TREE_STORE (tree_model))
    {
      GtkTreeStore *tree_store;
      GtkTreePath *tree_path;
      GtkTreeIter tree_iter, new_iter;

      tree_store = GTK_TREE_STORE (tree_model);
      tree_path = gtk_tree_path_new_from_string ("2");
      gtk_tree_model_get_iter (tree_model, &tree_iter, tree_path);
      gtk_tree_path_free (tree_path);
      gtk_tree_store_insert_before (tree_store, &new_iter, NULL, &tree_iter);
    }
#endif
}