BEGIN_DECL
+
+/* datadesc */
+typedef struct s_gras_datadesc_type gras_datadesc_type_t;
+
+/* callbacks prototypes */
+typedef void (*gras_datadesc_type_cb_void_t)(void *vars,
+ gras_datadesc_type_t *p_type,
+ void *data);
+typedef int (*gras_datadesc_type_cb_int_t)(void *vars,
+ gras_datadesc_type_t *p_type,
+ void *data);
+
+/***********************************************
+ **** Search and retrieve declared datatype ****
+ ***********************************************/
+gras_datadesc_type_t *gras_datadesc_by_name(const char *name);
+
+/******************************************
+ **** Declare datadescription yourself ****
+ ******************************************/
+
+gras_error_t
+gras_datadesc_declare_struct(const char *name,
+ gras_datadesc_type_t **dst);
+gras_error_t
+gras_datadesc_declare_struct_append(gras_datadesc_type_t *struct_type,
+ const char *name,
+ gras_datadesc_type_t *field_type);
+gras_error_t
+gras_datadesc_declare_union(const char *name,
+ gras_datadesc_type_cb_int_t selector,
+ gras_datadesc_type_t **dst);
+gras_error_t
+gras_datadesc_declare_union_append(gras_datadesc_type_t *union_type,
+ const char *name,
+ gras_datadesc_type_t *field_type);
+gras_error_t
+gras_datadesc_declare_ref(const char *name,
+ gras_datadesc_type_t *referenced_type,
+ gras_datadesc_type_t **dst);
+gras_error_t
+gras_datadesc_declare_ref_generic(const char *name,
+ gras_datadesc_type_cb_int_t discriminant,
+ gras_datadesc_type_t **dst);
+gras_error_t
+gras_datadesc_declare_array_fixed(const char *name,
+ gras_datadesc_type_t *element_type,
+ long int fixed_size,
+ gras_datadesc_type_t **dst);
+gras_error_t
+gras_datadesc_declare_array_dyn(const char *name,
+ gras_datadesc_type_t *element_type,
+ gras_datadesc_type_cb_int_t dynamic_size,
+ gras_datadesc_type_t **dst);
+
+/*********************************
+ * Change stuff within datadescs *
+ *********************************/
+
+typedef struct s_gras_dd_cbps gras_dd_cbps_t;
+void gras_datadesc_cb_set_pre (gras_datadesc_type_t *type,
+ gras_datadesc_type_cb_void_t pre);
+void gras_datadesc_cb_set_post(gras_datadesc_type_t *type,
+ gras_datadesc_type_cb_void_t post);
+
+/******************************
+ * Get stuff within datadescs *
+ ******************************/
+char * gras_datadesc_get_name(gras_datadesc_type_t *ddt);
+int gras_datadesc_get_id(gras_datadesc_type_t *ddt);
+
+/********************************************************
+ * Advanced data describing: callback persistent states *
+ ********************************************************/
+
+void *
+gras_dd_cbps_pop (gras_dd_cbps_t *ps,
+ const char *name,
+ gras_datadesc_type_t **ddt);
+void
+gras_dd_cbps_push(gras_dd_cbps_t *ps,
+ const char *name,
+ void *data,
+ gras_datadesc_type_t *ddt);
+void
+gras_dd_cbps_set (gras_dd_cbps_t *ps,
+ const char *name,
+ void *data,
+ gras_datadesc_type_t *ddt);
+
+void *
+gras_dd_cbps_get (gras_dd_cbps_t *ps,
+ const char *name,
+ gras_datadesc_type_t **ddt);
+
+void
+gras_dd_cbps_block_begin(gras_dd_cbps_t *ps);
+void
+gras_dd_cbps_block_end(gras_dd_cbps_t *ps);
+
+
+
+
+/*******************************
+ **** About data convertion ****
+ *******************************/
+int gras_arch_selfid(void); /* ID of this arch */
+
+/****************************
+ **** Parse C statements ****
+ ****************************/
+gras_error_t
+gras_datadesc_parse(const char *name,
+ const char *Cdefinition,
+ gras_datadesc_type_t **dst);
+#define GRAS_DEFINE_TYPE(name,def) \
+ static const char * _gras_this_type_symbol_does_not_exist__##name=#def; def
+
+/*#define gras_type_symbol_parse(name) \
+ _gras_datadesc_parse(_gras_this_datadesc_type_symbol_does_not_exist__##name)
+*/
+#define gras_datadesc_by_symbol(name) \
+ (bag->bag_ops->get_type_by_name(bag, NULL, #name) ? \
+ bag->bag_ops->get_type_by_name(bag, NULL, #name) : \
+ gras_datadesc_parse(name) \
+ )
+
+/*****************************
+ **** NWS datadescription ****
+ *****************************/
+
/**
* Basic types we can embeed in DataDescriptors.
*/
sizeof(structType) - offsetof(structType, lastMember) - \
sizeof(memberType) * repetitions
-/*
-gras_error_t gras_datadesc_parse(const char *def,
- gras_datadesc__t **dst);
-gras_error_t gras_datadesc_from_nws(const DataDescriptor *desc,
- size_t howmany,
- gras_datadesc_t **dst);
-gras_error_t gras_datadesc_sizeof_host(gras_datadesc_t *desc,
- size_t *dst);
-gras_error_t gras_datadesc_sizeof_network(gras_datadesc_t *desc,
- size_t *dst);
-*/
-
-typedef struct s_gras_datadesc_type gras_datadesc_type_t;
-
-typedef void (*gras_datadesc_type_cb_void_t)(void *vars,
- gras_datadesc_type_t *p_type,
- void *data);
-typedef int (*gras_datadesc_type_cb_int_t)(void *vars,
- gras_datadesc_type_t *p_type,
- void *data);
-
-
-
-/* Create a new type and register it on the local machine */
-#define gras_datadesc_declare_struct( name, code) \
- gras_datadesc_declare_struct_cb(name, NULL, NULL, code)
-
-#define gras_datadesc_declare_struct_add_name( struct_code,field_name,field_type_name) \
- gras_datadesc_declare_struct_add_name_cb(struct_code,field_name,field_type_name, NULL, NULL)
-
-#define gras_datadesc_declare_struct_add_code( struct_code,field_name,field_type_code) \
- gras_datadesc_declare_struct_add_code_cb(struct_code,field_name,field_type_code, NULL, NULL)
-
-gras_error_t
-gras_datadesc_declare_struct_cb(const char *name,
- gras_datadesc_type_cb_void_t pre_cb,
- gras_datadesc_type_cb_void_t post_cb,
- long int *code);
-gras_error_t
-gras_datadesc_declare_struct_add_name_cb(long int struct_code,
- const char *field_name,
- const char *field_type_name,
- gras_datadesc_type_cb_void_t pre_cb,
- gras_datadesc_type_cb_void_t post_cb);
-
-gras_error_t
-gras_datadesc_declare_struct_add_code_cb(long int struct_code,
- const char *field_name,
- long int field_code,
- gras_datadesc_type_cb_void_t pre_cb,
- gras_datadesc_type_cb_void_t post_cb);
-/* union */
-#define gras_datadesc_declare_union( name, code) \
- gras_datadesc_declare_union_cb(name, NULL, NULL, code)
-
-#define gras_datadesc_declare_union_add_name( union_code,field_name,field_type_name) \
- gras_datadesc_declare_union_add_name_cb(union_code,field_name,field_type_name, NULL, NULL)
-
-#define gras_datadesc_declare_union_add_code( union_code,field_name,field_type_code) \
- gras_datadesc_declare_union_add_code_cb(union_code,field_name,field_type_code, NULL, NULL)
-
-gras_error_t
-gras_datadesc_declare_union_cb(const char *name,
- gras_datadesc_type_cb_int_t field_count,
- gras_datadesc_type_cb_void_t post,
- long int *code);
-gras_error_t
-gras_datadesc_declare_union_add_name_cb(long int union_code,
- const char *field_name,
- const char *field_type_name,
- gras_datadesc_type_cb_void_t pre_cb,
- gras_datadesc_type_cb_void_t post_cb);
-gras_error_t
-gras_datadesc_declare_union_add_code_cb(long int union_code,
- const char *field_name,
- long int field_code,
- gras_datadesc_type_cb_void_t pre_cb,
- gras_datadesc_type_cb_void_t post_cb);
-/* ref */
-#define gras_datadesc_declare_ref(name,ref_type, code) \
- gras_datadesc_declare_ref_cb(name, ref_type, NULL, NULL, code)
-#define gras_datadesc_declare_ref_disc(name,discriminant, code) \
- gras_datadesc_declare_ref_cb(name, NULL, discriminant, NULL, code)
-
gras_error_t
-gras_datadesc_declare_ref_cb(const char *name,
- gras_datadesc_type_t *referenced_type,
- gras_datadesc_type_cb_int_t discriminant,
- gras_datadesc_type_cb_void_t post,
- long int *code);
-/* array */
-#define gras_datadesc_declare_array(name,elm_type, size, code) \
- gras_datadesc_declare_array_cb(name, elm_type, size, NULL, NULL, code)
-#define gras_datadesc_declare_array_dyn(name,elm_type, dynamic_size, code) \
- gras_datadesc_declare_array_cb(name, elm_type, -1, dynamic_size, NULL, code)
-
-gras_error_t
-gras_datadesc_declare_array_cb(const char *name,
- gras_datadesc_type_t *element_type,
- long int fixed_size,
- gras_datadesc_type_cb_int_t dynamic_size,
- gras_datadesc_type_cb_void_t post,
- long int *code);
-
-
-/* Use the datadescriptions */
-int
-gras_datadesc_type_cmp(const gras_datadesc_type_t *d1,
- const gras_datadesc_type_t *d2);
-
-
-gras_error_t
-gras_datadesc_cpy(gras_datadesc_type_t *type, void *src, void **dst);
-
+gras_datadesc_import_nws(const char *name,
+ const DataDescriptor *desc,
+ size_t howmany,
+ gras_datadesc_type_t **dst);
END_DECL
