This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 of the License.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 of the License.
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
The program uses a very simple tokenizer, called from a hand written
recursive descent parser to fill a data structure describing the events.
The result is a sequence of events definitions which refer to type
The program uses a very simple tokenizer, called from a hand written
recursive descent parser to fill a data structure describing the events.
The result is a sequence of events definitions which refer to type
A table of named types is maintained to allow refering to types by name
when the same type is used at several places. Finally a sequence of
A table of named types is maintained to allow refering to types by name
when the same type is used at several places. Finally a sequence of
/*****************************************************************************
*Function name
* getSize : translate from string to integer
/*****************************************************************************
*Function name
* getSize : translate from string to integer
*****************************************************************************/
unsigned long long int getSize(parse_file_t *in)
*****************************************************************************/
unsigned long long int getSize(parse_file_t *in)
****************************************************************************/
void error_callback(parse_file_t *in, char *msg)
****************************************************************************/
void error_callback(parse_file_t *in, char *msg)
- * memAlloc : allocate memory
- *Input params
- * size : required memory size
- *return value
- * void * : pointer to allocate memory or NULL
+ * memAlloc : allocate memory
+ *Input params
+ * size : required memory size
+ *return value
+ * void * : pointer to allocate memory or NULL
****************************************************************************/
void * memAlloc(int size)
****************************************************************************/
void * memAlloc(int size)
* char * : pointer to allocate memory or NULL
****************************************************************************/
* char * : pointer to allocate memory or NULL
****************************************************************************/
**************************************************************************/
void getTypeAttributes(parse_file_t *in, type_descriptor_t *t,
**************************************************************************/
void getTypeAttributes(parse_file_t *in, type_descriptor_t *t,
if(!strcmp("format",token)) {
getEqual(in);
t->fmt = allocAndCopy(getQuotedString(in));
if(!strcmp("format",token)) {
getEqual(in);
t->fmt = allocAndCopy(getQuotedString(in));
//} else if(!strcmp("name",token)) {
// getEqual(in);
// car = seekNextChar(in);
//} else if(!strcmp("name",token)) {
// getEqual(in);
// car = seekNextChar(in);
} else if(!strcmp("custom_write", token)) {
t->custom_write = 1;
} else if(!strcmp("byte_order",token)) {
} else if(!strcmp("custom_write", token)) {
t->custom_write = 1;
} else if(!strcmp("byte_order",token)) {
- getEqual(in);
- car = seekNextChar(in);
- if(car == EOF) in->error(in,"byte order was expected (network?)");
- else if(car == '\"') token = getQuotedString(in);
- else token = getName(in);
- if(!strcmp("network", token)) {
- t->network = 1;
- }
+ getEqual(in);
+ car = seekNextChar(in);
+ if(car == EOF) in->error(in,"byte order was expected (network?)");
+ else if(car == '\"') token = getQuotedString(in);
+ else token = getName(in);
+ if(!strcmp("network", token)) {
+ t->network = 1;
+ }
- getEqual(in);
- car = seekNextChar(in);
- if(car == EOF) in->error(in,"write type was expected (custom?)");
- else if(car == '\"') token = getQuotedString(in);
- else token = getName(in);
- if(!strcmp("custom", token)) {
- t->custom_write = 1;
- }
+ getEqual(in);
+ car = seekNextChar(in);
+ if(car == EOF) in->error(in,"write type was expected (custom?)");
+ else if(car == '\"') token = getQuotedString(in);
+ else token = getName(in);
+ if(!strcmp("custom", token)) {
+ t->custom_write = 1;
+ }
if(car == EOF) in->error(in,"name was expected");
else if(car == '\"') fac->name = allocAndCopy(getQuotedString(in));
else fac->name = allocAndCopy(getName(in));
if(car == EOF) in->error(in,"name was expected");
else if(car == '\"') fac->name = allocAndCopy(getQuotedString(in));
else fac->name = allocAndCopy(getName(in));
else if(car == '\"') f->name = allocAndCopy(getQuotedString(in));
else f->name = allocAndCopy(getName(in));
}
else if(car == '\"') f->name = allocAndCopy(getQuotedString(in));
else f->name = allocAndCopy(getName(in));
}
//Return value : 0 : no value, 1 : has a value
int getValueAttribute(parse_file_t *in, long long *value)
{
//Return value : 0 : no value, 1 : has a value
int getValueAttribute(parse_file_t *in, long long *value)
{
if(strcmp("/",token) == 0 || strcmp(">", token) == 0){
ungetToken(in);
return 0;
}
if(strcmp("value",token))in->error(in,"value was expected");
if(strcmp("/",token) == 0 || strcmp(">", token) == 0){
ungetToken(in);
return 0;
}
if(strcmp("value",token))in->error(in,"value was expected");
- if(in->type == QUOTEDSTRING) {
- in->type = NUMBER;
- token2 = token;
- do {
- if (!isdigit(*token2)) {
- in->type = QUOTEDSTRING;
- break;
- }
- } while (*(++token2) != '\0');
- }
-
- if(in->type == NUMBER)
- *value = strtoll(token, NULL, 0);
- else
- goto error;
+ *value = strtoll(token, &endptr, 0);
+ if(*endptr != '\0')
+ goto error;
getFacilityAttributes(in, fac);
if(fac->name == NULL) in->error(in, "Attribute not named");
getFacilityAttributes(in, fac);
if(fac->name == NULL) in->error(in, "Attribute not named");
if(strcmp("event",token) == 0){
ev = (event_t*) memAlloc(sizeof(event_t));
sequence_push(&(fac->events),ev);
if(strcmp("event",token) == 0){
ev = (event_t*) memAlloc(sizeof(event_t));
sequence_push(&(fac->events),ev);
- parseEvent(fac, in, ev, &(fac->unnamed_types), &(fac->named_types));
+ parseEvent(fac, in, ev, &(fac->unnamed_types), &(fac->named_types));
}else if(strcmp("type",token) == 0){
parseTypeDefinition(fac, in, &(fac->unnamed_types), &(fac->named_types));
}else if(in->type == FORWARDSLASH){
}else if(strcmp("type",token) == 0){
parseTypeDefinition(fac, in, &(fac->unnamed_types), &(fac->named_types));
}else if(in->type == FORWARDSLASH){
-void parseEvent(facility_t *fac, parse_file_t *in, event_t * ev, sequence_t * unnamed_types,
- table_t * named_types)
+void parseEvent(facility_t *fac, parse_file_t *in, event_t * ev, sequence_t * unnamed_types,
+ table_t * named_types)
//<event name=eventtype_name>
getEventAttributes(in, ev);
if(ev->name == NULL) in->error(in, "Event not named");
//<event name=eventtype_name>
getEventAttributes(in, ev);
if(ev->name == NULL) in->error(in, "Event not named");
- ev->description = getDescription(in);
-
- int got_end = 0;
- /* Events can have multiple fields. each field form at least a function
- * parameter of the logging function. */
- while(!got_end) {
- getLAnglebracket(in);
- token = getToken(in);
-
- switch(in->type) {
- case FORWARDSLASH: /* </event> */
- token = getName(in);
- if(strcmp("event",token))in->error(in,"not an event definition");
- getRAnglebracket(in); //</event>
- got_end = 1;
- break;
- case NAME: /* a field */
- if(strcmp("field",token))in->error(in,"expecting a field");
- f = (field_t *)memAlloc(sizeof(field_t));
- sequence_push(&(ev->fields),f);
- parseFields(fac, in, f, unnamed_types, named_types, 1);
- break;
- default:
- in->error(in, "expecting </event> or <field >");
- break;
- }
- }
+ ev->description = getDescription(in);
+
+ int got_end = 0;
+ /* Events can have multiple fields. each field form at least a function
+ * parameter of the logging function. */
+ while(!got_end) {
+ getLAnglebracket(in);
+ token = getToken(in);
+
+ switch(in->type) {
+ case FORWARDSLASH: /* </event> */
+ token = getName(in);
+ if(strcmp("event",token))in->error(in,"not an event definition");
+ getRAnglebracket(in); //</event>
+ got_end = 1;
+ break;
+ case NAME: /* a field */
+ if(strcmp("field",token))in->error(in,"expecting a field");
+ f = (field_t *)memAlloc(sizeof(field_t));
+ sequence_push(&(ev->fields),f);
+ parseFields(fac, in, f, unnamed_types, named_types, 1);
+ break;
+ default:
+ in->error(in, "expecting </event> or <field >");
+ break;
+ }
+ }
- if(in->type == FORWARDSLASH){ //</event> NOTHING
- ev->type = NULL;
- }else if(in->type == NAME){
- if(strcmp("struct",token)==0 || strcmp("typeref",token)==0){
- ungetToken(in);
- ev->type = parseType(in,NULL, unnamed_types, named_types);
- if(ev->type->type != STRUCT && ev->type->type != NONE)
- in->error(in,"type must be a struct");
- }else in->error(in, "not a valid type");
-
- getLAnglebracket(in);
- getForwardslash(in);
- }else in->error(in,"not a struct type");
- getLAnglebracket(in);
- getForwardslash(in);
- token = getName(in);
- if(strcmp("event",token))in->error(in,"not an event definition");
- getRAnglebracket(in); //</event>
+ if(in->type == FORWARDSLASH){ //</event> NOTHING
+ ev->type = NULL;
+ }else if(in->type == NAME){
+ if(strcmp("struct",token)==0 || strcmp("typeref",token)==0){
+ ungetToken(in);
+ ev->type = parseType(in,NULL, unnamed_types, named_types);
+ if(ev->type->type != STRUCT && ev->type->type != NONE)
+ in->error(in,"type must be a struct");
+ }else in->error(in, "not a valid type");
+
+ getLAnglebracket(in);
+ getForwardslash(in);
+ }else in->error(in,"not a struct type");
+ getLAnglebracket(in);
+ getForwardslash(in);
+ token = getName(in);
+ if(strcmp("event",token))in->error(in,"not an event definition");
+ getRAnglebracket(in); //</event>
* fac : facility holding the field
* in : input file handle
* f : field
* unnamed_types : array of unamed types
* named_types : array of named types
* fac : facility holding the field
* in : input file handle
* f : field
* unnamed_types : array of unamed types
* named_types : array of named types
****************************************************************************/
void parseFields(facility_t *fac, parse_file_t *in, field_t *f,
sequence_t * unnamed_types,
****************************************************************************/
void parseFields(facility_t *fac, parse_file_t *in, field_t *f,
sequence_t * unnamed_types,
- if(tag) {
- //<field name=field_name> <description> <type> </field>
- getFieldAttributes(in, f);
- if(f->name == NULL) in->error(in, "Field not named");
- getRAnglebracket(in);
+ if(tag) {
+ //<field name=field_name> <description> <type> </field>
+ getFieldAttributes(in, f);
+ if(f->name == NULL) in->error(in, "Field not named");
+ getRAnglebracket(in);
//<int size=...>
getLAnglebracket(in);
f->type = parseType(fac, in,NULL, unnamed_types, named_types);
//<int size=...>
getLAnglebracket(in);
f->type = parseType(fac, in,NULL, unnamed_types, named_types);
- if(tag) {
- getLAnglebracket(in);
- getForwardslash(in);
- token = getName(in);
- if(strcmp("field",token))in->error(in,"not a valid field definition");
- getRAnglebracket(in); //</field>
- }
+ if(tag) {
+ getLAnglebracket(in);
+ getForwardslash(in);
+ token = getName(in);
+ if(strcmp("field",token))in->error(in,"not a valid field definition");
+ getRAnglebracket(in); //</field>
+ }
- * int(size,fmt); uint(size,fmt); float(size,fmt);
+ * int(size,fmt); uint(size,fmt); float(size,fmt);
* string(fmt); enum(size,fmt,(label1,label2...))
* Compound:
* array(arraySize, type); sequence(lengthSize,type)
* string(fmt); enum(size,fmt,(label1,label2...))
* Compound:
* array(arraySize, type); sequence(lengthSize,type)
-type_descriptor_t *parseType(facility_t *fac, parse_file_t *in, type_descriptor_t *inType,
- sequence_t * unnamed_types, table_t * named_types)
+type_descriptor_t *parseType(facility_t *fac, parse_file_t *in, type_descriptor_t *inType,
+ sequence_t * unnamed_types, table_t * named_types)
token = getToken(in);
sequence_init(&(t->fields));
while(strcmp("field",token) == 0){
token = getToken(in);
sequence_init(&(t->fields));
while(strcmp("field",token) == 0){
- f = (field_t *)memAlloc(sizeof(field_t));
- sequence_push(&(t->fields),f);
+ f = (field_t *)memAlloc(sizeof(field_t));
+ sequence_push(&(t->fields),f);
parseFields(fac, in, f, unnamed_types, named_types, 1);
parseFields(fac, in, f, unnamed_types, named_types, 1);
token = getToken(in);
sequence_init(&(t->fields));
while(strcmp("field",token) == 0){
token = getToken(in);
sequence_init(&(t->fields));
while(strcmp("field",token) == 0){
- f = (field_t *)memAlloc(sizeof(field_t));
- sequence_push(&(t->fields),f);
+ f = (field_t *)memAlloc(sizeof(field_t));
+ sequence_push(&(t->fields),f);
parseFields(fac, in, f, unnamed_types, named_types, 1);
parseFields(fac, in, f, unnamed_types, named_types, 1);
}
if(strcmp("/",token))in->error(in,"not a valid union definition");
token = getName(in);
if(strcmp("union",token)!=0)
}
if(strcmp("/",token))in->error(in,"not a valid union definition");
token = getName(in);
if(strcmp("union",token)!=0)
getRAnglebracket(in); //</union>
}
else if(strcmp(token,"array") == 0) {
getRAnglebracket(in); //</union>
}
else if(strcmp(token,"array") == 0) {
f->name = NULL;
sequence_push(&(t->fields),f);
parseFields(fac, in, f, unnamed_types, named_types, 0);
f->name = NULL;
sequence_push(&(t->fields),f);
parseFields(fac, in, f, unnamed_types, named_types, 0);
//t->nested_type = parseType(in, NULL, unnamed_types, named_types);
getLAnglebracket(in); //</array>
//t->nested_type = parseType(in, NULL, unnamed_types, named_types);
getLAnglebracket(in); //</array>
f = (field_t *)memAlloc(sizeof(field_t));
f->name = NULL;
sequence_push(&(t->fields),f);
parseFields(fac, in, f, unnamed_types, named_types, 0);
f = (field_t *)memAlloc(sizeof(field_t));
f->name = NULL;
sequence_push(&(t->fields),f);
parseFields(fac, in, f, unnamed_types, named_types, 0);
f = (field_t *)memAlloc(sizeof(field_t));
f->name = NULL;
sequence_push(&(t->fields),f);
parseFields(fac, in, f, unnamed_types, named_types, 0);
f = (field_t *)memAlloc(sizeof(field_t));
f->name = NULL;
sequence_push(&(t->fields),f);
parseFields(fac, in, f, unnamed_types, named_types, 0);
//t->length_type = parseType(in, NULL, unnamed_types, named_types);
//t->length_type = parseType(in, NULL, unnamed_types, named_types);
//t->nested_type = parseType(in, NULL, unnamed_types, named_types);
if(t->fields.position < 1) in->error(in, "Sequence has no length type");
if(t->fields.position < 2) in->error(in, "Sequence has no subtype");
//t->nested_type = parseType(in, NULL, unnamed_types, named_types);
if(t->fields.position < 1) in->error(in, "Sequence has no length type");
if(t->fields.position < 2) in->error(in, "Sequence has no subtype");
- switch(((field_t*)t->fields.array[0])->type->type) {
- case UINT_FIXED :
- case UCHAR :
- case USHORT :
- case UINT :
- case ULONG :
- case SIZE_T :
- case OFF_T :
- break;
- default:
- in->error(in, "Wrong length type for sequence");
- }
+ switch(((field_t*)t->fields.array[0])->type->type) {
+ case UINT_FIXED :
+ case UCHAR :
+ case USHORT :
+ case UINT :
+ case ULONG :
+ case SIZE_T :
+ case OFF_T :
+ break;
+ default:
+ in->error(in, "Wrong length type for sequence");
+ }
sequence_init(&(t->labels));
sequence_init(&(t->labels_values));
sequence_init(&(t->labels_description));
sequence_init(&(t->labels));
sequence_init(&(t->labels_values));
sequence_init(&(t->labels_description));
getTypeAttributes(in, t, unnamed_types, named_types);
//if(t->size == 0) in->error(in, "Sequence has empty size");
getTypeAttributes(in, t, unnamed_types, named_types);
//if(t->size == 0) in->error(in, "Sequence has empty size");
- //Mathieu : we fix enum size to target int size. GCC is always like this.
- //fox copy optimisation.
+ //Mathieu : we fix enum size to target int size. GCC is always like this.
+ //fox copy optimisation.
token = getToken(in); //"label" or "/"
while(strcmp("label",token) == 0){
int *label_value = malloc(sizeof(int));
token = getToken(in); //"label" or "/"
while(strcmp("label",token) == 0){
int *label_value = malloc(sizeof(int));
str = allocAndCopy(getNameAttribute(in));
has_value = getValueAttribute(in, &loc_value);
str = allocAndCopy(getNameAttribute(in));
has_value = getValueAttribute(in, &loc_value);
sequence_push(&(t->labels),str);
if(has_value) value = loc_value;
sequence_push(&(t->labels),str);
if(has_value) value = loc_value;
getTypeAttributes(in, t, unnamed_types, named_types);
if(t->size == 0) in->error(in, "int has empty size");
getForwardslash(in);
getTypeAttributes(in, t, unnamed_types, named_types);
if(t->size == 0) in->error(in, "int has empty size");
getForwardslash(in);
}
else if(strcmp(token,"uint_fixed") == 0) {
t->type = UINT_FIXED;
getTypeAttributes(in, t, unnamed_types, named_types);
if(t->size == 0) in->error(in, "uint has empty size");
getForwardslash(in);
}
else if(strcmp(token,"uint_fixed") == 0) {
t->type = UINT_FIXED;
getTypeAttributes(in, t, unnamed_types, named_types);
if(t->size == 0) in->error(in, "uint has empty size");
getForwardslash(in);
}
else if(strcmp(token,"char") == 0) {
t->type = CHAR;
getTypeAttributes(in, t, unnamed_types, named_types);
}
else if(strcmp(token,"char") == 0) {
t->type = CHAR;
getTypeAttributes(in, t, unnamed_types, named_types);
}
else if(strcmp(token,"uchar") == 0) {
t->type = UCHAR;
getTypeAttributes(in, t, unnamed_types, named_types);
}
else if(strcmp(token,"uchar") == 0) {
t->type = UCHAR;
getTypeAttributes(in, t, unnamed_types, named_types);
}
else if(strcmp(token,"short") == 0) {
t->type = SHORT;
getTypeAttributes(in, t, unnamed_types, named_types);
}
else if(strcmp(token,"short") == 0) {
t->type = SHORT;
getTypeAttributes(in, t, unnamed_types, named_types);
}
else if(strcmp(token,"ushort") == 0) {
t->type = USHORT;
getTypeAttributes(in, t, unnamed_types, named_types);
}
else if(strcmp(token,"ushort") == 0) {
t->type = USHORT;
getTypeAttributes(in, t, unnamed_types, named_types);
}
else if(strcmp(token,"int") == 0) {
t->type = INT;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"int") == 0) {
t->type = INT;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"uint") == 0) {
t->type = UINT;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"uint") == 0) {
t->type = UINT;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"pointer") == 0) {
t->type = POINTER;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"pointer") == 0) {
t->type = POINTER;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"long") == 0) {
t->type = LONG;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"long") == 0) {
t->type = LONG;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"ulong") == 0) {
t->type = ULONG;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"ulong") == 0) {
t->type = ULONG;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"size_t") == 0) {
t->type = SIZE_T;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"size_t") == 0) {
t->type = SIZE_T;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"ssize_t") == 0) {
t->type = SSIZE_T;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"ssize_t") == 0) {
t->type = SSIZE_T;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"off_t") == 0) {
t->type = OFF_T;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"off_t") == 0) {
t->type = OFF_T;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"float") == 0) {
t->type = FLOAT;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"float") == 0) {
t->type = FLOAT;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"string") == 0) {
t->type = STRING;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
}
else if(strcmp(token,"string") == 0) {
t->type = STRING;
getTypeAttributes(in, t, unnamed_types, named_types);
getForwardslash(in);
- free(t);
- sequence_pop(unnamed_types);
- token = getNameAttribute(in);
- t = find_named_type(token, named_types);
- if(t == NULL) in->error(in,"Named referred to must be pre-declared.");
- getForwardslash(in); //<typeref name=type_name/>
- getRAnglebracket(in);
- return t;
+ free(t);
+ sequence_pop(unnamed_types);
+ token = getNameAttribute(in);
+ t = find_named_type(token, named_types);
+ if(t == NULL) in->error(in,"Named referred to must be pre-declared.");
+ getForwardslash(in); //<typeref name=type_name/>
+ getRAnglebracket(in);
+ return t;
*****************************************************************************/
type_descriptor_t * find_named_type(char *name, table_t * named_types)
*****************************************************************************/
type_descriptor_t * find_named_type(char *name, table_t * named_types)
- t = (type_descriptor_t *)memAlloc(sizeof(type_descriptor_t));
- t->type_name = allocAndCopy(name);
- t->type = NONE;
- t->fmt = NULL;
- table_insert(named_types,t->type_name,t);
- // table_insert(named_types,allocAndCopy(name),t);
- return t;
+ t = (type_descriptor_t *)memAlloc(sizeof(type_descriptor_t));
+ t->type_name = allocAndCopy(name);
+ t->type = NONE;
+ t->fmt = NULL;
+ table_insert(named_types,t->type_name,t);
+ // table_insert(named_types,allocAndCopy(name),t);
+ return t;
* unnamed_types : array of unamed types
* named_types : array of named types
*****************************************************************************/
void parseTypeDefinition(facility_t *fac, parse_file_t * in, sequence_t * unnamed_types,
* unnamed_types : array of unamed types
* named_types : array of named types
*****************************************************************************/
void parseTypeDefinition(facility_t *fac, parse_file_t * in, sequence_t * unnamed_types,
//MD ??if(strcmp("struct",token))in->error(in,"not a valid type definition");
ungetToken(in);
parseType(fac, in,t, unnamed_types, named_types);
//MD ??if(strcmp("struct",token))in->error(in,"not a valid type definition");
ungetToken(in);
parseType(fac, in,t, unnamed_types, named_types);
if(t->type == NONE){
sprintf(str,"named type '%s' has no definition",
(char*)named_types->keys.array[pos]);
if(t->type == NONE){
sprintf(str,"named type '%s' has no definition",
(char*)named_types->keys.array[pos]);
for(pos = 0; pos < events->position; pos++){
ev = (event_t *)(events->array[pos]);
crc = partial_crc32(ev->name, crc);
for(pos = 0; pos < events->position; pos++){
ev = (event_t *)(events->array[pos]);
crc = partial_crc32(ev->name, crc);
crc = partial_crc32(f->name, crc);
crc = getTypeChecksum(crc, f->type);
crc = partial_crc32(f->name, crc);
crc = getTypeChecksum(crc, f->type);
*****************************************************************************/
unsigned long getTypeChecksum(unsigned long aCrc, type_descriptor_t * type)
*****************************************************************************/
unsigned long getTypeChecksum(unsigned long aCrc, type_descriptor_t * type)
if(type->type == ARRAY){
crc = getTypeChecksum(crc,((field_t*)type->fields.array[0])->type);
} else if(type->type ==SEQUENCE) {
crc = getTypeChecksum(crc,((field_t*)type->fields.array[0])->type);
crc = getTypeChecksum(crc,((field_t*)type->fields.array[1])->type);
if(type->type == ARRAY){
crc = getTypeChecksum(crc,((field_t*)type->fields.array[0])->type);
} else if(type->type ==SEQUENCE) {
crc = getTypeChecksum(crc,((field_t*)type->fields.array[0])->type);
crc = getTypeChecksum(crc,((field_t*)type->fields.array[1])->type);
for(pos =0; pos < type->fields.position; pos++){
fld = (field_t *) type->fields.array[pos];
crc = partial_crc32(fld->name,crc);
crc = getTypeChecksum(crc, fld->type);
for(pos =0; pos < type->fields.position; pos++){
fld = (field_t *) type->fields.array[pos];
crc = partial_crc32(fld->name,crc);
crc = getTypeChecksum(crc, fld->type);
}else if(type->type == ENUM){
for(pos = 0; pos < type->labels.position; pos++)
crc = partial_crc32((char*)type->labels.array[pos],crc);
}else if(type->type == ENUM){
for(pos = 0; pos < type->labels.position; pos++)
crc = partial_crc32((char*)type->labels.array[pos],crc);
return t->array[--t->position];
}
/* Hash table API, implementation is just linear search for now */
return t->array[--t->position];
}
/* Hash table API, implementation is just linear search for now */
{
sequence_push(&(t->keys),key);
sequence_push(&(t->values),value);
}
{
sequence_push(&(t->keys),key);
sequence_push(&(t->values),value);
}