git-svn-id: http://ltt.polymtl.ca/svn@289 04897980-b3bd-0310-b5e0-8ef037075253

[lttv.git] / ltt / branches / poly / lttv / iattribute.c

#include <lttv/iattribute.h>

static void
lttv_iattribute_base_init (gpointer klass)
{
  static gboolean initialized = FALSE;

  if (!initialized) {
    initialized = TRUE;
  }
}


GType
lttv_iattribute_get_type (void)
{
  static GType type = 0;
  if (type == 0) {
    static const GTypeInfo info = {
      sizeof (LttvIAttributeClass),
      lttv_iattribute_base_init,   /* base_init */
      NULL,   /* base_finalize */
      NULL,   /* class_init */
      NULL,   /* class_finalize */
      NULL,   /* class_data */
      0,
      0,      /* n_preallocs */
      NULL    /* instance_init */
    };
    type = g_type_register_static (G_TYPE_INTERFACE, "LttvIAttribute", 
        &info, 0);
  }
  return type;
}


unsigned int lttv_iattribute_get_number(LttvIAttribute *self)
{
  return LTTV_IATTRIBUTE_GET_CLASS (self)->get_number (self);
}


gboolean lttv_iattribute_named(LttvIAttribute *self, gboolean *homogeneous)
{
  return LTTV_IATTRIBUTE_GET_CLASS (self)->named (self, homogeneous);
}


LttvAttributeType lttv_iattribute_get(LttvIAttribute *self, unsigned i, 
    LttvAttributeName *name, LttvAttributeValue *v)
{
  return LTTV_IATTRIBUTE_GET_CLASS (self)->get (self, i, name, v);
}
 

LttvAttributeType lttv_iattribute_get_by_name(LttvIAttribute *self,
    LttvAttributeName name, LttvAttributeValue *v)
{
  return LTTV_IATTRIBUTE_GET_CLASS (self)->get_by_name (self, name, v);
}


LttvAttributeValue lttv_iattribute_add(LttvIAttribute *self, 
    LttvAttributeName name, LttvAttributeType t)
{
  return LTTV_IATTRIBUTE_GET_CLASS (self)->add (self, name, t);
}


void lttv_iattribute_remove(LttvIAttribute *self, unsigned i)
{
        return LTTV_IATTRIBUTE_GET_CLASS (self)->remove (self, i);
}


void lttv_iattribute_remove_by_name(LttvIAttribute *self,
    LttvAttributeName name)
{
  return LTTV_IATTRIBUTE_GET_CLASS (self)->remove_by_name (self, name);
}

LttvIAttribute* lttv_iattribute_create_subdir(LttvIAttribute *self, 
      LttvAttributeName name)
{
  return LTTV_IATTRIBUTE_GET_CLASS (self)->create_subdir (self, name);
}


/* Find the named attribute in the table, which must be of the specified type.
   If it does not exist, it is created with a default value of 0 (NULL for
   pointer types). Since the address of the value is obtained, it may be
   changed easily afterwards. The function returns false when the attribute
   exists but is of incorrect type. */

gboolean lttv_iattribute_find(LttvIAttribute *self, LttvAttributeName name, 
    LttvAttributeType t, LttvAttributeValue *v)
{
  LttvAttributeType found_type;

  found_type = lttv_iattribute_get_by_name(self, name, v);
  if(found_type == t) return TRUE;

  if(found_type == LTTV_NONE) {
    *v = lttv_iattribute_add(self, name, t);
    return TRUE;
  }

  return FALSE;
}


/* Trees of attribute tables may be accessed using a hierarchical path with
   components separated by /, like in filesystems */

gboolean lttv_iattribute_find_by_path(LttvIAttribute *self, char *path, 
    LttvAttributeType t, LttvAttributeValue *v)
{
  LttvIAttribute *node = self;

  LttvAttributeType found_type;

  LttvAttributeName name;

  gchar **components, **cursor;

  components = g_strsplit(path, "\"", G_MAXINT);

  if(components == NULL || *components == NULL) {
    g_strfreev(components);
    return FALSE; 
  }

  for(cursor = components;;) {
    name = g_quark_from_string(*cursor);
    cursor++;

    if(*cursor == NULL) {
      g_strfreev(components);
      return lttv_iattribute_find(node, name, t, v);
    }
    else {
      found_type = lttv_iattribute_get_by_name(node, name, v);
      if(found_type == LTTV_NONE) {
        node = lttv_iattribute_create_subdir(node, name);
      }
      else if(found_type == LTTV_GOBJECT && 
	      LTTV_IS_IATTRIBUTE(*(v->v_gobject))) {
        node = LTTV_IATTRIBUTE(*(v->v_gobject));
      }
      else {
        g_strfreev(components);
        return FALSE;
      }
    }
  }
}

/* Shallow and deep copies */

LttvIAttribute *lttv_iattribute_shallow_copy(LttvIAttribute *self)
{
  LttvIAttribute *copy;

  LttvAttributeType t;

  LttvAttributeValue v, v_copy;

  LttvAttributeName name;

  int i;

  int nb_attributes = lttv_iattribute_get_number(self);

  copy = LTTV_IATTRIBUTE(g_object_new(G_OBJECT_TYPE(self),NULL));

  for(i = 0 ; i < nb_attributes ; i++) {
    t = lttv_iattribute_get(self, i, &name, &v);
    v_copy = lttv_iattribute_add(copy, name, t);
    lttv_iattribute_copy_value(t, v_copy, v);
  }
}

LttvIAttribute *lttv_iattribute_deep_copy(LttvIAttribute *self)
{
  LttvIAttribute *copy, *child;

  LttvAttributeType t;

  LttvAttributeValue v, v_copy;

  LttvAttributeName name;

  int i;

  int nb_attributes = lttv_iattribute_get_number(self);

  copy = LTTV_IATTRIBUTE(g_object_new(G_OBJECT_TYPE(self), NULL));

  for(i = 0 ; i < nb_attributes ; i++) {
    t = lttv_iattribute_get(self, i, &name, &v);
    v_copy = lttv_iattribute_add(copy, name, t);
    if(t == LTTV_GOBJECT && LTTV_IS_IATTRIBUTE(*(v.v_gobject))) {
      child = LTTV_IATTRIBUTE(*(v.v_gobject));
      *(v_copy.v_gobject) = G_OBJECT(lttv_iattribute_deep_copy(child));
    }
    else lttv_iattribute_copy_value(t, v_copy, v);
  }
}

void lttv_iattribute_copy_value(LttvAttributeType t, LttvAttributeValue dest, 
    LttvAttributeValue src) 
{
  switch(t) {
    case LTTV_INT:
      *(dest.v_int) = *(src.v_int); 
      break;

    case LTTV_UINT:
      *(dest.v_uint) = *(src.v_uint); 
      break;

    case LTTV_LONG:
      *(dest.v_long) = *(src.v_long); 
      break;

    case LTTV_ULONG:
      *(dest.v_ulong) = *(src.v_ulong); 
      break;

    case LTTV_FLOAT:
      *(dest.v_float) = *(src.v_float); 
      break;

    case LTTV_DOUBLE: 
      *(dest.v_double) = *(src.v_double); 
      break;

    case LTTV_TIME: 
      *(dest.v_time) = *(src.v_time); 
      break;

    case LTTV_POINTER:
      *(dest.v_pointer) = *(src.v_pointer); 
      break;

    case LTTV_STRING:
      *(dest.v_string) = *(src.v_string); 
      break;

    case LTTV_GOBJECT:
      *(dest.v_gobject) = *(src.v_gobject); 
      break;

    case LTTV_NONE:
      break;
  }
}