+struct type_class_variant {
+ struct type_class p;
+ GHashTable *fields_by_tag; /* Tuples (field tag, field index) */
+ GArray *fields; /* Array of type_class_field */
+};
+
+struct type_variant {
+ struct type p;
+ struct type_class_variant *_class;
+ struct declaration_scope *scope;
+ struct type *tag;
+ GArray *fields; /* Array of struct field */
+ struct field *current_field; /* Last field read */
+};
+
+struct type_class_array {
+ struct type_class p;
+ size_t len;
+ struct type_class *elem;
+};
+
+struct type_array {
+ struct type p;
+ struct type_class_array *_class;
+ struct declaration_scope *scope;
+ struct field current_element; /* struct field */
+};
+
+struct type_class_sequence {
+ struct type_class p;
+ struct type_class_integer *len_class;
+ struct type_class *elem;
+};
+
+struct type_sequence {
+ struct type p;
+ struct type_class_sequence *_class;
+ struct declaration_scope *scope;
+ struct type_integer *len;
+ struct field current_element; /* struct field */
+};
+
+struct type_class *lookup_type_class(GQuark qname,
+ struct declaration_scope *scope);
+int register_type_class(struct type_class *type_class,
+ struct declaration_scope *scope);
+
+void type_class_ref(struct type_class *type_class);
+void type_class_unref(struct type_class *type_class);
+
+struct declaration_scope *
+new_declaration_scope(struct declaration_scope *parent_scope);
+void free_declaration_scope(struct declaration_scope *scope);
+
+void type_ref(struct type *type);
+void type_unref(struct type *type);
+
+/* Nameless types can be created by passing a NULL name */
+
+struct type_class_integer *integer_type_class_new(const char *name,
+ size_t len, int byte_order,
+ int signedness,
+ size_t alignment);
+
+/*
+ * mantissa_len is the length of the number of bytes represented by the mantissa
+ * (e.g. result of DBL_MANT_DIG). It includes the leading 1.
+ */
+struct type_class_float *float_type_class_new(const char *name,
+ size_t mantissa_len,
+ size_t exp_len, int byte_order,
+ size_t alignment);
+
+/*
+ * A GQuark can be translated to/from strings with g_quark_from_string() and
+ * g_quark_to_string().
+ */
+
+/*
+ * Returns a GArray of GQuark or NULL.
+ * Caller must release the GArray with g_array_unref().
+ */
+GArray *enum_uint_to_quark_set(const struct type_class_enum *enum_class,
+ uint64_t v);
+
+/*
+ * Returns a GArray of GQuark or NULL.
+ * Caller must release the GArray with g_array_unref().
+ */
+GArray *enum_int_to_quark_set(const struct type_class_enum *enum_class,
+ uint64_t v);
+
+/*
+ * Returns a GArray of struct enum_range or NULL.
+ * Callers do _not_ own the returned GArray (and therefore _don't_ need to
+ * release it).
+ */
+GArray *enum_quark_to_range_set(const struct type_class_enum *enum_class,
+ GQuark q);
+void enum_signed_insert(struct type_class_enum *enum_class,
+ int64_t start, int64_t end, GQuark q);
+void enum_unsigned_insert(struct type_class_enum *enum_class,
+ uint64_t start, uint64_t end, GQuark q);
+size_t enum_get_nr_enumerators(struct type_class_enum *enum_class);
+
+struct type_class_enum *enum_type_class_new(const char *name,
+ size_t len, int byte_order,
+ int signedness,
+ size_t alignment);
+
+struct type_class_struct *struct_type_class_new(const char *name);
+void struct_type_class_add_field(struct type_class_struct *struct_class,
+ const char *field_name,
+ struct type_class *type_class);
+/*
+ * Returns the index of a field within a structure.
+ */
+unsigned long
+struct_type_class_lookup_field_index(struct type_class_struct *struct_class,
+ GQuark field_name);
+/*
+ * field returned only valid as long as the field structure is not appended to.
+ */
+struct type_class_field *
+struct_type_class_get_field_from_index(struct type_class_struct *struct_class,
+ unsigned long index);
+struct field *
+struct_type_get_field_from_index(struct type_struct *_struct,
+ unsigned long index);
+
+/*
+ * The tag enumeration is validated to ensure that it contains only mappings
+ * from numeric values to a single tag. Overlapping tag value ranges are
+ * therefore forbidden.
+ */
+struct type_class_variant *variant_type_class_new(const char *name);
+void variant_type_class_add_field(struct type_class_variant *variant_class,
+ const char *tag_name,
+ struct type_class *type_class);
+struct type_class_field *
+variant_type_class_get_field_from_tag(struct type_class_variant *variant_class,
+ GQuark tag);
+/*
+ * Returns 0 on success, -EPERM on error.
+ */
+int variant_type_set_tag(struct type_variant *variant,
+ struct type *enum_tag_instance);
+/*
+ * Returns the field selected by the current tag value.
+ * field returned only valid as long as the variant structure is not appended
+ * to.
+ */
+struct field *
+variant_type_get_current_field(struct type_variant *variant);
+
+/*
+ * elem_class passed as parameter now belongs to the array. No need to free it
+ * explicitly. "len" is the number of elements in the array.
+ */
+struct type_class_array *array_type_class_new(const char *name,
+ size_t len,
+ struct type_class *elem_class);
+
+/*
+ * int_class and elem_class passed as parameter now belongs to the sequence. No
+ * need to free them explicitly.
+ */
+struct type_class_sequence *sequence_type_class_new(const char *name,
+ struct type_class_integer *len_class,
+ struct type_class *elem_class);
+