Add type class/type structure management

[babeltrace.git] / types / types.c

diff --git a/types/types.c b/types/types.c
index 28242d23c323201106dc49d93775b572b65f0372..961337800a1e45472a2abd175de21448726884d5 100644 (file)
--- a/types/types.c
+++ b/types/types.c
@@ -1,80 +1,108 @@
 /*
+ * types.c
+ *
  * BabelTrace - Converter
  *
  * Types registry.
  *
- * Copyright (c) 2010 Mathieu Desnoyers <mathieu.desnoyers@efficios.com>
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2.1 of the License, or (at your option) any later version.
+ * Copyright 2010, 2011 - Mathieu Desnoyers <mathieu.desnoyers@efficios.com>
  *
- * This library 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
- * Lesser General Public License for more details.
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
  *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
  */
 
-#include <ctf/ctf-types.h>
+#include <babeltrace/format.h>
 #include <glib.h>
 #include <errno.h>
 
-struct type_class {
-       GQuark qname;
-       void (*read)();
-       size_t (*write)();
-};
+static
+struct type_class *lookup_type_class_scope(GQuark qname,
+                                          struct declaration_scope *scope)
+{
+       return g_hash_table_lookup(scope->type_classes,
+                                  (gconstpointer) (unsigned long) qname);
+}
 
-struct type {
-       struct type_class *class;
-       size_t alignment;       /* type alignment, in bits */
-       ssize_t len;            /* type length, in bits. -1 for dynamic size. */
-};
+struct type_class *lookup_type_class(GQuark qname,
+                                    struct declaration_scope *scope)
+{
+       struct type_class *tc;
 
-/*
- * Type class hash table contains the registered type classes. Type class
- * registration is typically performed by a plugin.
- * TODO: support plugin unload (unregistration of type classes).
- */
-GHashTable *type_classes;
+       while (scope) {
+               tc = lookup_type_class_scope(qname, scope);
+               if (tc)
+                       return tc;
+               scope = scope->parent_scope;
+       }
+       return NULL;
+}
 
-struct type_class *ctf_lookup_type_class(GQuark qname)
+static void free_type_class(struct type_class *type_class)
 {
-       return g_hash_table_lookup(type_classes,
-                                  (gconstpointer) (unsigned long) qname)
+       type_class->class_free(type_class);
 }
 
-int ctf_register_type_class(const char *name,
-                           void (*read)(),
-                           void (*write)())
+static void free_type(struct type *type)
 {
-       struct type_class tc = g_new(struct type_class, 1);
-       GQuark qname = g_quark_from_string(name);
+       type->p.type_free(type);
+}
 
-       if (ctf_lookup_type_class(qname))
+int register_type_class(struct type_class *type_class,
+                       struct declaration_scope *scope)
+{
+       /* Only lookup in local scope */
+       if (lookup_type_class_scope(type_class->name, scope))
                return -EEXIST;
 
-       g_hash_table_insert(type_classes,
-                           (gconstpointer) (unsigned long) qname,
-                           tc);
+       g_hash_table_insert(scope->type_classes,
+                           (gpointer) (unsigned long) type_class->name,
+                           type_class);
        return 0;
 }
 
-int ctf_init_types(void)
+void type_class_ref(struct type_class *type_class)
 {
-       type_classes = g_hash_table_new_full(g_direct_hash, g_direct_equal,
-                                            NULL, g_free);
-       if (!type_classes)
-               return -ENOMEM;
-       return 0;
+       type_class->ref++;
+}
+
+void type_class_unref(struct type_class *type_class)
+{
+       if (!--type_class->ref)
+               free_type_class(type_class);
+}
+
+void type_ref(struct type *type)
+{
+       type->ref++;
+}
+
+void type_unref(struct type *type)
+{
+       if (!--type->ref)
+               free_type(type);
+}
+
+struct declaration_scope *
+new_declaration_scope(struct declaration_scope *parent_scope)
+{
+       struct declaration_scope *scope = g_new(struct declaration_scope, 1);
+
+       scope->type_classes = g_hash_table_new_full(g_direct_hash,
+                                       g_direct_equal, NULL,
+                                       (GDestroyNotify) type_class_unref);
+       scope->parent_scope = parent_scope;
+       return scope;
 }
 
-int ctf_finalize_types(void)
+void free_declaration_scope(struct declaration_scope *scope)
 {
-       g_hash_table_destroy(type_classes);
+       g_hash_table_destroy(scope->type_classes);
+       g_free(scope);
 }