Refine the interactions between the hooks provided by the different modules.

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

static void
lttv_iattribute_base_init (gpointer g_class)
{
  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);
}


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


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)->get_number (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)
{
  char *cursor;

  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; 
  }

  while(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)));

  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(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)));

  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) = 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;
  }
}