#include <gtk/gtk.h>
#include "testlib.h"

static void _print_accessible (AtkObject *obj);
static void _print_type (AtkObject *obj);
static void _print_states (AtkObject *obj);
static void _check_children (AtkObject *obj);
static void _check_relation (AtkObject *obj);
static void _create_event_watcher (void);
static void _focus_handler (AtkObject *obj, gboolean focus_in);
static gboolean _children_changed (GSignalInvocationHint *ihint,
                                   guint                  n_param_values,
                                   const GValue          *param_values,
                                   gpointer               data);

static guint id;

static void _print_states (AtkObject *obj)
{
  AtkStateSet *state_set;
  gint i;

  state_set = atk_object_ref_state_set (obj);

  g_print ("*** Start states ***\n");
  for (i = 0; i < 64; i++)
    {
       AtkStateType one_state;
       G_CONST_RETURN gchar *name;

       if (atk_state_set_contains_state (state_set, i))
         {
           one_state = i;

           name = atk_state_type_get_name (one_state);

           if (name)
             g_print("%s\n", name);
         }
    }
  g_object_unref (state_set);
  g_print ("*** End states ***\n");
}

static void _print_type (AtkObject *obj)
{
  G_CONST_RETURN gchar * typename = NULL;
  G_CONST_RETURN gchar * name = NULL;
  AtkRole role;
  static gboolean in_print_type = FALSE;
   
  if (GTK_IS_ACCESSIBLE (obj))
    {
      GtkWidget* widget = NULL;

      widget = GTK_ACCESSIBLE (obj)->widget;
      typename = g_type_name (G_OBJECT_TYPE (widget));
      g_print ("Widget type name: %s\n", typename ? typename : "NULL");
    }
  typename = g_type_name (G_OBJECT_TYPE (obj));
  g_print ("Accessible type name: %s\n", typename ? typename : "NULL");
  name = atk_object_get_name (obj);
  g_print("Accessible Name: %s\n", (name) ? name : "NULL");
  role = atk_object_get_role (obj);
  g_print ("Accessible Role: %s\n", atk_role_get_name (role));

  if (ATK_IS_COMPONENT (obj))
    {
      gint x, y, width, height;
      AtkStateSet *states;

      _print_states (obj);
      states = atk_object_ref_state_set (obj);
      if (atk_state_set_contains_state (states, ATK_STATE_VISIBLE))
        {
          AtkObject *parent;

          atk_component_get_extents (ATK_COMPONENT (obj), 
                                     &x, &y, &width, &height, 
                                     ATK_XY_SCREEN);
          g_print ("ATK_XY_SCREEN: x: %d y: %d width: %d height: %d\n",
                   x, y, width, height);

          atk_component_get_extents (ATK_COMPONENT (obj), 
                                     &x, &y, &width, &height, 
                                     ATK_XY_WINDOW);
          g_print ("ATK_XY_WINDOW: x: %d y: %d width: %d height: %d\n", 
                   x, y, width, height);
          if (atk_state_set_contains_state (states, ATK_STATE_SHOWING) &&
              ATK_IS_TEXT (obj))
            {
              gint offset;

              atk_text_get_character_extents (ATK_TEXT (obj), 1, 
                                              &x, &y, &width, &height, 
                                              ATK_XY_WINDOW);
              g_print ("Character extents : %d %d %d %d\n", 
                       x, y, width, height);
              if (width != 0 && height != 0)
                {
                  offset = atk_text_get_offset_at_point (ATK_TEXT (obj), 
                                                         x, y, 
                                                         ATK_XY_WINDOW);
                  if (offset != 1)
                    {
                      g_print ("Wrong offset returned (%d) %d\n", 1, offset);
                    }
                }
            }
          if (in_print_type)
            return;

          parent = atk_object_get_parent (obj);
          if (!ATK_IS_COMPONENT (parent))
            {
              /* Assume toplevel */
              g_object_unref (G_OBJECT (states));
              return;
            }
#if 0
          obj1 = atk_component_ref_accessible_at_point (ATK_COMPONENT (parent),
                                                        x, y, ATK_XY_WINDOW);
          if (obj != obj1)
            {
              g_print ("Inconsistency between object and ref_accessible_at_point\n");
              in_print_type = TRUE;
              _print_type (obj1);
              in_print_type = FALSE;
            }
#endif
        }
      g_object_unref (G_OBJECT (states));
    }
}

static void _print_accessible (AtkObject *obj)
{
  GtkWidget* widget = NULL;
  AtkObject* parent_atk;
  AtkObject* ref_obj;
  AtkRole    role;
  static gboolean first_time = TRUE;

  if (first_time)
    {
      first_time = FALSE;
      atk_add_global_event_listener (_children_changed, 
                                     "Atk:AtkObject:children_changed");
    }

  /*
   * Check that the object returned by the atk_implementor_ref_accessible()
   * for a widget is the same as the accessible object
   */
  if (GTK_IS_ACCESSIBLE (obj))
    {
      widget = GTK_ACCESSIBLE (obj)->widget;
      ref_obj = atk_implementor_ref_accessible (ATK_IMPLEMENTOR (widget));
      g_assert (ref_obj == obj);
      g_object_unref (G_OBJECT (ref_obj));
    }
  /*
   * Add a focus handler so we see focus out events as well
   */
  if (ATK_IS_COMPONENT (obj))
    atk_component_add_focus_handler (ATK_COMPONENT (obj), _focus_handler);
  g_print ("Object:\n");
  _print_type (obj);
  _print_states (obj);

  /*
   * Get the parent object
   */
  parent_atk = atk_object_get_parent (obj);
  if (parent_atk)
    {
      g_print ("Parent Object:\n");
      _print_type (parent_atk);
      parent_atk = atk_object_get_parent (parent_atk);
      if (parent_atk)
        {
          g_print ("Grandparent Object:\n");
          _print_type (parent_atk);
        }
    } 
  else 
    {
      g_print ("No parent\n");
    }

  role = atk_object_get_role (obj);

  if ((role == ATK_ROLE_FRAME) || (role == ATK_ROLE_DIALOG))
    {
      _check_children (obj);
    }
}

static void _check_relation (AtkObject *obj)
{
  AtkRelationSet* relation_set = atk_object_ref_relation_set (obj);
  gint n_relations, i;

  g_return_if_fail (relation_set);

  n_relations = atk_relation_set_get_n_relations (relation_set);
  for (i = 0; i < n_relations; i++)
    {
      AtkRelation* relation = atk_relation_set_get_relation (relation_set, i);

      g_print ("Index: %d Relation type: %d Number: %d\n", i,
                atk_relation_get_relation_type (relation),
                atk_relation_get_target (relation)->len);
    }
  g_object_unref (relation_set);
}

static void _check_children (AtkObject *obj)
{
  gint n_children, i;
  AtkLayer layer;
  AtkRole role;

  g_print ("Start Check Children\n");
  n_children = atk_object_get_n_accessible_children (obj);
  g_print ("Number of children: %d\n", n_children);

  role = atk_object_get_role (obj);

  if (ATK_IS_COMPONENT (obj))
    {
      atk_component_add_focus_handler (ATK_COMPONENT (obj), _focus_handler);
      layer = atk_component_get_layer (ATK_COMPONENT (obj));
      if (role == ATK_ROLE_MENU)
	      g_assert (layer == ATK_LAYER_POPUP);
      else
	      g_print ("Layer: %d\n", layer);
    }

  for (i = 0; i < n_children; i++)
    {
      AtkObject *child;
      AtkObject *parent;
      int j;

      child = atk_object_ref_accessible_child (obj, i);
      parent = atk_object_get_parent (child);
      j = atk_object_get_index_in_parent (child);
      _print_type (child);
      _check_relation (child);
      _check_children (child);
      if (obj != parent)
        {
          g_print ("*** Inconsistency between atk_object_get_parent() and "
                   "atk_object_ref_accessible_child() ***\n");
          _print_type (child);
          _print_type (obj);
          if (parent)
            _print_type (parent);
        }
      g_object_unref (G_OBJECT (child));
                 
      if (j != i)
        g_print ("*** Inconsistency between parent and children %d %d ***\n",
                 i, j);
    }
  g_print ("End Check Children\n");
}

static gboolean
_children_changed (GSignalInvocationHint *ihint,
                   guint                  n_param_values,
                   const GValue          *param_values,
                   gpointer               data)
{
  GObject *object;
  guint index;
  gpointer target;
  G_CONST_RETURN gchar *target_name = "NotAtkObject";

  object = g_value_get_object (param_values + 0);
  index = g_value_get_uint (param_values + 1);
  target = g_value_get_pointer (param_values + 2);
  if (G_IS_OBJECT (target))
    {
      if (ATK_IS_OBJECT (target))
        {
          target_name = atk_object_get_name (target);
        }
      if (!target_name) 
        target_name = g_type_name (G_OBJECT_TYPE (G_OBJECT (target)));
    }
  else
    {
      if (!target)
        {
          AtkObject *child;

          child = atk_object_ref_accessible_child (ATK_OBJECT (object), index);
          if (child)
            {
              target_name = g_type_name (G_OBJECT_TYPE (G_OBJECT (child)));
              g_object_unref (child);
            }
        }
    }
  g_print ("_children_watched: %s %s %s index: %d\n", 
           g_type_name (G_OBJECT_TYPE (object)),
           g_quark_to_string (ihint->detail),
           target_name, index);
  return TRUE;
}

static void
_create_event_watcher (void)
{
  /*
   * _print_accessible() will be called for an accessible object when its
   * widget receives focus.
   */
  id = atk_add_focus_tracker (_print_accessible);
}

static void 
_focus_handler (AtkObject *obj, gboolean focus_in)
{
  g_print ("In _focus_handler focus_in: %s\n", focus_in ? "true" : "false"); 
  _print_type (obj);
}

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

  _create_event_watcher();

  return 0;
}
