- TRY(gras_datadesc_declare_struct("hetestruct",&my_type));
- TRY(gras_datadesc_declare_struct_append(my_type,"c1",
- gras_datadesc_by_name("unsigned char")));
- TRY(gras_datadesc_declare_struct_append(my_type,"l1",
- gras_datadesc_by_name("unsigned long int")));
- TRY(gras_datadesc_declare_struct_append(my_type,"c2",
- gras_datadesc_by_name("unsigned char")));
- TRY(gras_datadesc_declare_struct_append(my_type,"l2",
- gras_datadesc_by_name("unsigned long int")));
- gras_datadesc_declare_struct_close(my_type);
- TRY(gras_datadesc_declare_ref("hetestruct*",
- gras_datadesc_by_name("hetestruct"),
- &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"));
+