-static void register_types(void) {
- gras_datadesc_type_t my_type,ref_my_type;
-
- gras_msgtype_declare("char",gras_datadesc_by_name("char"));
- gras_msgtype_declare("int",gras_datadesc_by_name("int"));
- gras_msgtype_declare("float",gras_datadesc_by_name("float"));
- gras_msgtype_declare("double",gras_datadesc_by_name("double"));
-
- my_type=gras_datadesc_array_fixed("fixed int array",
- gras_datadesc_by_name("int"),
- FIXED_ARRAY_SIZE);
- gras_msgtype_declare("fixed int array",my_type);
-
- my_type = gras_datadesc_dynar(gras_datadesc_by_name("int"),NULL);
- gras_msgtype_declare("xbt_dynar_of_int",my_type);
-
- my_type = gras_datadesc_ref("int*",gras_datadesc_by_name("int"));
- gras_msgtype_declare("int*",my_type);
-
- gras_msgtype_declare("string",gras_datadesc_by_name("string"));
-
- my_type=gras_datadesc_struct("homostruct");
- gras_datadesc_struct_append(my_type,"a",gras_datadesc_by_name("signed int"));
- gras_datadesc_struct_append(my_type,"b",gras_datadesc_by_name("int"));
- gras_datadesc_struct_append(my_type,"c",gras_datadesc_by_name("int"));
- gras_datadesc_struct_append(my_type,"d",gras_datadesc_by_name("int"));
- gras_datadesc_struct_close(my_type);
- my_type=gras_datadesc_ref("homostruct*",gras_datadesc_by_name("homostruct"));
- gras_msgtype_declare("homostruct*",my_type);
-
- my_type=gras_datadesc_struct("hetestruct");
- gras_datadesc_struct_append(my_type,"c1", gras_datadesc_by_name("unsigned char"));
- gras_datadesc_struct_append(my_type,"l1", gras_datadesc_by_name("unsigned long int"));
- gras_datadesc_struct_append(my_type,"c2", gras_datadesc_by_name("unsigned char"));
- gras_datadesc_struct_append(my_type,"l2", gras_datadesc_by_name("unsigned long int"));
- gras_datadesc_struct_close(my_type);
- my_type=gras_datadesc_ref("hetestruct*", gras_datadesc_by_name("hetestruct"));
- gras_msgtype_declare("hetestruct*",my_type);
-
- my_type = gras_datadesc_array_fixed("hetestruct[10]",gras_datadesc_by_name("hetestruct"),10);
- my_type = gras_datadesc_ref("hetestruct[10]*", my_type);
- gras_msgtype_declare("hetestruct[10]*",my_type);
-
- my_type=gras_datadesc_struct("nestedstruct");
- gras_datadesc_struct_append(my_type,"hete",gras_datadesc_by_name("hetestruct"));
- gras_datadesc_struct_append(my_type,"homo",gras_datadesc_by_name("homostruct"));
- gras_datadesc_struct_close(my_type);
- my_type=gras_datadesc_ref("nestedstruct*", gras_datadesc_by_name("nestedstruct"));
- gras_msgtype_declare("nestedstruct*",my_type);
-
- my_type=gras_datadesc_struct("chained_list_t");
- ref_my_type=gras_datadesc_ref("chained_list_t*",my_type);
- gras_datadesc_struct_append(my_type,"v", gras_datadesc_by_name("int"));
- gras_datadesc_struct_append(my_type,"l", ref_my_type);
- gras_datadesc_struct_close(my_type);
- gras_datadesc_cycle_set(gras_datadesc_by_name("chained_list_t*"));
- gras_msgtype_declare("chained_list_t",my_type);
- gras_msgtype_declare("chained_list_t*",ref_my_type);
-
- my_type = gras_datadesc_dynar(gras_datadesc_by_name("string"),&free_string);
- gras_msgtype_declare("xbt_dynar_of_string",my_type);
-
- my_type = gras_datadesc_by_symbol(s_pbio);
- gras_msgtype_declare("s_pbio",my_type);
-
- my_type = gras_datadesc_by_symbol(s_clause);
- my_type = gras_datadesc_ref("Clause*",my_type);
- gras_msgtype_declare("Clause*",my_type);
+static void register_types(void)
+{
+ gras_datadesc_type_t my_type, ref_my_type;
+
+ gras_msgtype_declare("char", gras_datadesc_by_name("char"));
+ gras_msgtype_declare("int", gras_datadesc_by_name("int"));
+ gras_msgtype_declare("float", gras_datadesc_by_name("float"));
+ gras_msgtype_declare("double", gras_datadesc_by_name("double"));
+
+ my_type = gras_datadesc_array_fixed("fixed int array",
+ gras_datadesc_by_name("int"),
+ FIXED_ARRAY_SIZE);
+ gras_msgtype_declare("fixed int array", my_type);
+
+ my_type = gras_datadesc_dynar(gras_datadesc_by_name("int"), NULL);
+ gras_msgtype_declare("xbt_dynar_of_int", my_type);
+
+ my_type = gras_datadesc_ref("int*", gras_datadesc_by_name("int"));
+ gras_msgtype_declare("int*", my_type);
+
+ gras_msgtype_declare("string", gras_datadesc_by_name("string"));
+
+ my_type = gras_datadesc_struct("homostruct");
+ gras_datadesc_struct_append(my_type, "a",
+ gras_datadesc_by_name("signed int"));
+ gras_datadesc_struct_append(my_type, "b", gras_datadesc_by_name("int"));
+ gras_datadesc_struct_append(my_type, "c", gras_datadesc_by_name("int"));
+ gras_datadesc_struct_append(my_type, "d", gras_datadesc_by_name("int"));
+ gras_datadesc_struct_close(my_type);
+ my_type =
+ gras_datadesc_ref("homostruct*", gras_datadesc_by_name("homostruct"));
+ gras_msgtype_declare("homostruct*", my_type);
+
+ my_type = gras_datadesc_struct("hetestruct");
+ gras_datadesc_struct_append(my_type, "c1",
+ gras_datadesc_by_name("unsigned char"));
+ gras_datadesc_struct_append(my_type, "l1",
+ gras_datadesc_by_name("unsigned long int"));
+ gras_datadesc_struct_append(my_type, "c2",
+ gras_datadesc_by_name("unsigned char"));
+ gras_datadesc_struct_append(my_type, "l2",
+ gras_datadesc_by_name("unsigned long int"));
+ gras_datadesc_struct_close(my_type);
+ my_type =
+ gras_datadesc_ref("hetestruct*", gras_datadesc_by_name("hetestruct"));
+ gras_msgtype_declare("hetestruct*", my_type);
+
+ my_type =
+ gras_datadesc_array_fixed("hetestruct[10]",
+ gras_datadesc_by_name("hetestruct"), 10);
+ my_type = gras_datadesc_ref("hetestruct[10]*", my_type);
+ gras_msgtype_declare("hetestruct[10]*", my_type);
+
+ my_type = gras_datadesc_struct("nestedstruct");
+ gras_datadesc_struct_append(my_type, "hete",
+ gras_datadesc_by_name("hetestruct"));
+ gras_datadesc_struct_append(my_type, "homo",
+ gras_datadesc_by_name("homostruct"));
+ gras_datadesc_struct_close(my_type);
+ my_type =
+ gras_datadesc_ref("nestedstruct*", gras_datadesc_by_name("nestedstruct"));
+ gras_msgtype_declare("nestedstruct*", my_type);
+
+ my_type = gras_datadesc_struct("chained_list_t");
+ ref_my_type = gras_datadesc_ref("chained_list_t*", my_type);
+ gras_datadesc_struct_append(my_type, "v", gras_datadesc_by_name("int"));
+ gras_datadesc_struct_append(my_type, "l", ref_my_type);
+ gras_datadesc_struct_close(my_type);
+ gras_datadesc_cycle_set(gras_datadesc_by_name("chained_list_t*"));
+ gras_msgtype_declare("chained_list_t", my_type);
+ gras_msgtype_declare("chained_list_t*", ref_my_type);
+
+ my_type =
+ gras_datadesc_dynar(gras_datadesc_by_name("string"), &free_string);
+ gras_msgtype_declare("xbt_dynar_of_string", my_type);
+
+ my_type = gras_datadesc_by_symbol(s_pbio);
+ gras_msgtype_declare("s_pbio", my_type);
+
+ my_type = gras_datadesc_by_symbol(s_clause);
+ my_type = gras_datadesc_ref("Clause*", my_type);
+ gras_msgtype_declare("Clause*", my_type);