#include <ctype.h> /* isdigit */
-#include "DataDesc/datadesc_private.h"
-#include "DataDesc/ddt_parse.yy.h"
+#include "gras/DataDesc/datadesc_private.h"
+#include "gras/DataDesc/ddt_parse.yy.h"
-GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(ddt_parse,datadesc);
+GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(ddt_parse,datadesc,
+ "Parsing C data structures to build GRAS data description");
typedef struct s_type_modifier{
short is_unsigned;
GRAS_IN;
gras_dynar_pop(dynar,&former);
- array.type_name=malloc(strlen(former.type->name)+20);
+ array.type_name=(char*)gras_malloc(strlen(former.type->name)+20);
DEBUG2("Array specification (size=%ld, elm='%s'), change pushed type",
size,former.type_name);
sprintf(array.type_name,"%s[%ld]",former.type_name,size);
- free(former.type_name);
+ gras_free(former.type_name);
TRY(gras_datadesc_array_fixed(array.type_name, former.type, size, &array.type)); /* redeclaration are ignored */
GRAS_IN;
gras_dynar_pop(dynar,&former);
- ref.type_name=malloc(strlen(former.type->name)+2);
+ ref.type_name=(char*)gras_malloc(strlen(former.type->name)+2);
DEBUG1("Ref specification (elm='%s'), change pushed type", former.type_name);
sprintf(ref.type_name,"%s*",former.type_name);
- free(former.type_name);
+ gras_free(former.type_name);
TRY(gras_datadesc_ref(ref.type_name, former.type, &ref.type)); /* redeclaration are ignored */
GRAS_IN;
gras_dynar_pop(dynar,&former);
TRY(gras_datadesc_ref_pop_arr(former.type,&ref.type)); /* redeclaration are ignored */
- ref.type_name = strdup(ref.type->name);
+ ref.type_name = (char*)strdup(ref.type->name);
ref.name = former.name;
- free(former.type_name);
+ gras_free(former.type_name);
TRY(gras_dynar_push(dynar,&ref));
GRAS_OUT;
strcmp(gras_ddt_parse_text,"int") ) {
/* bastard user, they omited "int" ! */
- identifier.type_name=strdup("int");
+ identifier.type_name=(char*)strdup("int");
DEBUG0("the base type is 'int', which were omited (you vicious user)");
} else {
- identifier.type_name=strdup(gras_ddt_parse_text);
+ identifier.type_name=(char*)strdup(gras_ddt_parse_text);
DEBUG1("the base type is '%s'",identifier.type_name);
gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
}
/**** look for the symbols of this type ****/
for(expect_id_separator = 0;
- (//(gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_EMPTY) && FIXME
+ (/*(gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_EMPTY) && FIXME*/
(gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_SEMI_COLON)) ;
gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump() ) {
if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD)
PARSE_ERROR1("Unparsable annotation: Expected key name, got '%s'",gras_ddt_parse_text);
- keyname = strdup(gras_ddt_parse_text);
+ keyname = (char*)strdup(gras_ddt_parse_text);
while ( (gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump()) == GRAS_DDT_PARSE_TOKEN_EMPTY );
if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD)
PARSE_ERROR1("Unparsable annotation: Expected key value, got '%s'",gras_ddt_parse_text);
- keyval = strdup(gras_ddt_parse_text);
+ keyval = (char*)strdup(gras_ddt_parse_text);
while ( (gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump()) == GRAS_DDT_PARSE_TOKEN_EMPTY );
DEBUG2("Anotation: %s=%s",keyname,keyval);
if (!strcmp(keyname,"size")) {
- free(keyname);
+ gras_free(keyname);
if (!identifier.tm.is_ref)
PARSE_ERROR0("Size annotation for a field not being a reference");
identifier.tm.is_ref--;
if (!strcmp(keyval,"1")) {
TRY(change_to_ref(identifiers));
- free(keyval);
+ gras_free(keyval);
continue;
} else {
char *p;
if (fixed) {
TRY(change_to_fixed_array(identifiers,atoi(keyval)));
TRY(change_to_ref(identifiers));
- free(keyval);
+ gras_free(keyval);
continue;
} else {
/* found a symbol name. Build the type and push it to dynar */
if(gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_WORD) {
- identifier.name=strdup(gras_ddt_parse_text);
+ identifier.name=(char*)strdup(gras_ddt_parse_text);
DEBUG1("Found the identifier \"%s\"",identifier.name);
TRY(gras_dynar_push(identifiers, &identifier));
- DEBUG1("Dynar_len=%d",gras_dynar_length(identifiers));
+ DEBUG1("Dynar_len=%lu",gras_dynar_length(identifiers));
expect_id_separator = 1;
continue;
}
errcode == no_error ;
errcode=parse_statement(definition,identifiers,fields_to_push)) {
- DEBUG1("This statement contained %d identifiers",gras_dynar_length(identifiers));
+ DEBUG1("This statement contained %lu identifiers",gras_dynar_length(identifiers));
/* append the identifiers we've found */
gras_dynar_foreach(identifiers,i, field) {
if (field.tm.is_ref)
PARSE_ERROR2("Not enough GRAS_ANNOTATE to deal with all dereferencing levels of %s (%d '*' left)",
field.name,field.tm.is_ref);
- VERB2("Append field '%s' to %p",field.name, struct_type);
+ VERB2("Append field '%s' to %p",field.name, (void*)struct_type);
TRYFAIL(gras_datadesc_struct_append(struct_type, field.name, field.type));
- free(field.name);
- free(field.type_name);
+ gras_free(field.name);
+ gras_free(field.type_name);
}
gras_dynar_reset(identifiers);
- DEBUG1("struct_type=%p",struct_type);
+ DEBUG1("struct_type=%p",(void*)struct_type);
/* Make sure that all fields declaring a size push it into the cbps */
gras_dynar_foreach(fields_to_push,i, name) {
- DEBUG1("struct_type=%p",struct_type);
- VERB2("Push field '%s' into size stack of %p", name, struct_type);
+ DEBUG1("struct_type=%p",(void*)struct_type);
+ VERB2("Push field '%s' into size stack of %p", name, (void*)struct_type);
gras_datadesc_cb_field_push(struct_type, name);
- free(name);
+ gras_free(name);
}
gras_dynar_reset(fields_to_push);
}
for (C_count=0; C_statement[C_count] != '\0'; C_count++)
if (C_statement[C_count] == ';' || C_statement[C_count] == '{')
semicolon_count++;
- definition = malloc(C_count + semicolon_count + 1);
+ definition = (char*)gras_malloc(C_count + semicolon_count + 1);
for (C_count=0,def_count=0; C_statement[C_count] != '\0'; C_count++) {
definition[def_count++] = C_statement[C_count];
if (C_statement[C_count] == ';' || C_statement[C_count] == '{') {
gras_ddt_parse_pointer_string_close();
VERB0("end of _gras_ddt_type_parse()");
- free(definition);
+ gras_free(definition);
/* register it under the name provided as symbol */
if (strcmp(res->name,name)) {
ERROR2("In GRAS_DEFINE_TYPE, the provided symbol (here %s) must be the C type name (here %s)",
