/* This program is free software; you can redistribute it and/or modify it
under the terms of the license (GNU LGPL) which comes with this package. */
+#include <ctype.h> /* isdigit */
+
#include "DataDesc/datadesc_private.h"
#include "DataDesc/ddt_parse.yy.h"
-GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(parse,datadesc);
+GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(ddt_parse,datadesc);
typedef struct s_type_modifier{
short is_unsigned;
gras_datadesc_type_t *type;
char *type_name;
char *name;
+ type_modifier_t tm;
} identifier_t;
extern char *gras_ddt_parse_text; /* text being considered in the parser */
-/* prototypes */
-static void parse_type_modifier(type_modifier_t *type_modifier);
-static void print_type_modifier(type_modifier_t type_modifier);
-
-static gras_error_t parse_statement(char *definition,
- gras_dynar_t **dynar);
-static gras_datadesc_type_t * parse_struct(char *definition);
-static gras_datadesc_type_t * parse_typedef(char *definition);
-
/* local functions */
static void parse_type_modifier(type_modifier_t *type_modifier) {
- DEBUG0("Parse the modifiers");
+ GRAS_IN;
do {
if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_STAR) {
- DEBUG0("This is a reference");
+ /* This only used when parsing 'short *' since this function returns when int, float, double,... is encountered */
+ DEBUG0("This is a reference");
type_modifier->is_ref++;
} else if (!strcmp(gras_ddt_parse_text,"unsigned")) {
DEBUG0("This is an enum");
type_modifier->is_enum = 1;
+ } else if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_EMPTY) {
+ DEBUG0("Pass space");
+
} else {
DEBUG1("Done with modifiers (got %s)",gras_ddt_parse_text);
break;
gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
if((gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD) &&
(gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_STAR)) {
- DEBUG1("Done with modifiers (got %s)",gras_ddt_parse_text);
+ DEBUG2("Done with modifiers (got %s,%d)",gras_ddt_parse_text,gras_ddt_parse_tok_num);
break;
}
} while(1);
+ GRAS_OUT;
}
static void print_type_modifier(type_modifier_t tm) {
int i;
+ GRAS_IN;
if (tm.is_unsigned) printf("(unsigned) ");
if (tm.is_short) printf("(short) ");
for (i=0 ; i<tm.is_long ; i++) printf("(long) ");
if(tm.is_union) printf("(union) ");
for (i=0 ; i<tm.is_ref ; i++) printf("(ref) ");
+ GRAS_OUT;
}
-static gras_error_t parse_statement(char *definition,
- gras_dynar_t **dynar) {
+static gras_error_t change_to_fixed_array(gras_dynar_t *dynar, long int size) {
+ gras_error_t errcode;
+ identifier_t former,array;
+ memset(&array,0,sizeof(array));
+
+ GRAS_IN;
+ gras_dynar_pop(dynar,&former);
+ array.type_name=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);
+
+ TRY(gras_datadesc_array_fixed(array.type_name, former.type, size, &array.type)); /* redeclaration are ignored */
+
+ array.name = former.name;
+
+ TRY(gras_dynar_push(dynar,&array));
+ GRAS_OUT;
+ return no_error;
+}
+static gras_error_t change_to_ref(gras_dynar_t *dynar) {
+ gras_error_t errcode;
+ identifier_t former,ref;
+ memset(&ref,0,sizeof(ref));
+
+ GRAS_IN;
+ gras_dynar_pop(dynar,&former);
+ ref.type_name=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);
+
+ TRY(gras_datadesc_ref(ref.type_name, former.type, &ref.type)); /* redeclaration are ignored */
+
+ ref.name = former.name;
+
+ TRY(gras_dynar_push(dynar,&ref));
+ GRAS_OUT;
+ return no_error;
+}
+
+static gras_error_t change_to_ref_pop_array(gras_dynar_t *dynar) {
+ gras_error_t errcode;
+ identifier_t former,ref;
+ memset(&ref,0,sizeof(ref));
+
+ 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.name = former.name;
+
+ free(former.type_name);
+
+ TRY(gras_dynar_push(dynar,&ref));
+ GRAS_OUT;
+ return no_error;
+}
+
+static gras_error_t parse_statement(char *definition,
+ gras_dynar_t *identifiers,
+ gras_dynar_t *fields_to_push) {
gras_error_t errcode;
char buffname[512];
identifier_t identifier;
- type_modifier_t tm;
- int starred = 0;
int expect_id_separator = 0;
- gras_dynar_reset(*dynar);
+ GRAS_IN;
memset(&identifier,0,sizeof(identifier));
- memset(&tm,0,sizeof(tm));
-
+
gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
- if(gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_RP) {
+ if(gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_RA) {
+ GRAS_OUT;
return mismatch_error; /* end of the englobing structure or union */
}
- if (GRAS_LOG_ISENABLED(parse,gras_log_priority_debug)) {
+ if (GRAS_LOG_ISENABLED(ddt_parse,gras_log_priority_debug)) {
int colon_pos;
for (colon_pos = gras_ddt_parse_col_pos;
definition[colon_pos] != ';';
definition[colon_pos] = ';';
}
- if(gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD) {
- ERROR2("Unparsable symbol: found a typeless statement (got '%s' instead). Definition was:\n%s",
- gras_ddt_parse_text, definition);
- gras_abort();
- }
+ if(gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD)
+ PARSE_ERROR1("Unparsable symbol: found a typeless statement (got '%s' instead)",
+ gras_ddt_parse_text);
/**** get the type modifier of this statement ****/
- parse_type_modifier(&tm);
+ parse_type_modifier(&identifier.tm);
/* FIXME: This does not detect recursive definitions at all? */
- if (tm.is_union || tm.is_enum || tm.is_struct) {
- ERROR1("Cannot handle recursive type definition yet. Definition was:\n%s",
- definition);
- gras_abort();
- }
+ if (identifier.tm.is_union || identifier.tm.is_enum || identifier.tm.is_struct)
+ PARSE_ERROR0("Cannot handle recursive type definition yet");
/**** get the base type, giving "short a" the needed love ****/
- if (!tm.is_union &&
- !tm.is_enum &&
- !tm.is_struct &&
+ if (!identifier.tm.is_union &&
+ !identifier.tm.is_enum &&
+ !identifier.tm.is_struct &&
- (tm.is_short || tm.is_long || tm.is_unsigned) &&
+ (identifier.tm.is_short || identifier.tm.is_long || identifier.tm.is_unsigned) &&
strcmp(gras_ddt_parse_text,"char") &&
strcmp(gras_ddt_parse_text,"float") &&
/* bastard user, they omited "int" ! */
identifier.type_name=strdup("int");
- DEBUG0("the base type is 'int', which were omited");
+ DEBUG0("the base type is 'int', which were omited (you vicious user)");
} else {
identifier.type_name=strdup(gras_ddt_parse_text);
DEBUG1("the base type is '%s'",identifier.type_name);
}
/**** build the base type for latter use ****/
- if (tm.is_union) {
- ERROR1("Cannot handle union yet (need annotation to get the callback). Definition was:\n%s",
- definition);
- gras_abort();
+ if (identifier.tm.is_union) {
+ PARSE_ERROR0("Cannot handle union yet (get callback from annotation?)");
- } else if (tm.is_enum) {
- ERROR1("Cannot handle enum yet. Definition was:\n%s",
- definition);
- gras_abort();
+ } else if (identifier.tm.is_enum) {
+ PARSE_ERROR0("Cannot handle enum yet");
- } else if (tm.is_struct) {
+ } else if (identifier.tm.is_struct) {
sprintf(buffname,"struct %s",identifier.type_name);
- identifier.type = gras_datadesc_by_name(buffname);
- if (!identifier.type) {
- TRY(gras_datadesc_struct(buffname,&identifier.type));
- }
+ TRY(gras_datadesc_struct(buffname,&identifier.type)); /* Get created when does not exist */
- } else if (tm.is_unsigned) {
+ } else if (identifier.tm.is_unsigned) {
if (!strcmp(identifier.type_name,"int")) {
- if (tm.is_long == 2) {
+ if (identifier.tm.is_long == 2) {
identifier.type = gras_datadesc_by_name("unsigned long long int");
- } else if (tm.is_long) {
+ } else if (identifier.tm.is_long) {
identifier.type = gras_datadesc_by_name("unsigned long int");
- } else if (tm.is_short) {
+ } else if (identifier.tm.is_short) {
identifier.type = gras_datadesc_by_name("unsigned short int");
} else {
identifier.type = gras_datadesc_by_name("unsigned int");
identifier.type = gras_datadesc_by_name("float");
} else if (!strcmp(identifier.type_name, "double")) {
- if (tm.is_long) {
- ERROR0("long double not portable and thus not handled");
- gras_abort();
- }
+ if (identifier.tm.is_long)
+ PARSE_ERROR0("long double not portable and thus not handled");
+
identifier.type = gras_datadesc_by_name("double");
} else { /* signed integer elemental */
if (!strcmp(identifier.type_name,"int")) {
- if (tm.is_long == 2) {
+ if (identifier.tm.is_long == 2) {
identifier.type = gras_datadesc_by_name("signed long long int");
- } else if (tm.is_long) {
+ } else if (identifier.tm.is_long) {
identifier.type = gras_datadesc_by_name("signed long int");
- } else if (tm.is_short) {
+ } else if (identifier.tm.is_short) {
identifier.type = gras_datadesc_by_name("signed short int");
} else {
identifier.type = gras_datadesc_by_name("int");
identifier.type = gras_datadesc_by_name("char");
} else { /* impossible */
- ERROR3("The Impossible did happen at %d:%d of :\n%s",
- gras_ddt_parse_line_pos,gras_ddt_parse_char_pos,definition);
- gras_abort();
+ PARSE_ERROR0("The Impossible Did Happen (once again)");
}
-
}
+ /* Now identifier.type and identifier.name speak about the base type.
+ Stars are not eaten unless 'int' was omitted.
+ We will have to enhance it if we are in fact asked for array or reference */
- if (tm.is_ref) {
- ERROR1("Cannot handle references yet (need annotations), sorry. Definition was:\n%s",
- definition);
- gras_abort();
- /* Should build ref on the current identifier.type (beware of int****) */
- }
-
/**** look for the symbols of this type ****/
for(expect_id_separator = 0;
- ((gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_EMPTY) &&
+ (//(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() ) {
/* Handle fixed size arrays */
gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_RB) {
- ERROR3("Cannot dynamically sized array at %d:%d of %s",
- gras_ddt_parse_line_pos,gras_ddt_parse_char_pos,
- definition);
- gras_abort();
+ PARSE_ERROR0("Cannot deal with [] constructs (yet)");
+
} else if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_WORD) {
char *end;
long int size=strtol(gras_ddt_parse_text, &end, 10);
- identifier_t array;
-
- if (end == gras_ddt_parse_text ||
- *end != '\0') {
- ERROR4("Unparsable size of array at %d:%d of %s. Found '%c', expected '\\0'",
- gras_ddt_parse_line_pos,gras_ddt_parse_char_pos,
- definition,*end);
- gras_abort();
- }
+
+ if (end == gras_ddt_parse_text || *end != '\0')
+ PARSE_ERROR1("Unparsable size of array (found '%c', expected number)",*end);
+
/* replace the previously pushed type to an array of it */
- gras_dynar_pop(*dynar,&identifier.type);
- array.type_name=malloc(strlen(identifier.type->name)+20);
- DEBUG2("Array specification (size=%ld, elm='%s'), change pushed type",
- size,identifier.type_name);
- sprintf(array.type_name,"%s[%ld]",identifier.type_name,size);
- free(identifier.type_name);
- array.type = gras_datadesc_by_name(array.type_name);
- if (array.type==NULL) {
- TRY(gras_datadesc_array_fixed(array.type_name, identifier.type,
- size, &array.type));
- }
- array.name = identifier.name;
- TRY(gras_dynar_push(*dynar,&array));
+ TRY(change_to_fixed_array(identifiers,size));
/* eat the closing bracket */
gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
- if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_RB) {
- ERROR3("Unparsable size of array at %d:%d of %s",
- gras_ddt_parse_line_pos,gras_ddt_parse_char_pos,
- definition);
- gras_abort();
- }
+ if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_RB)
+ PARSE_ERROR0("Unparsable size of array");
DEBUG1("Fixed size array, size=%ld",size);
continue;
} else {
- ERROR3("Unparsable size of array at %d:%d of %s",
- gras_ddt_parse_line_pos,gras_ddt_parse_char_pos,
- definition);
- gras_abort();
+ PARSE_ERROR0("Unparsable size of array");
}
+ /* End of fixed size arrays handling */
+
+ } else if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_WORD) {
+ /* Handle annotation */
+ identifier_t array;
+ char *keyname = NULL;
+ char *keyval = NULL;
+ memset(&array,0,sizeof(array));
+ if (strcmp(gras_ddt_parse_text,"GRAS_ANNOTE"))
+ PARSE_ERROR1("Unparsable symbol: Expected 'GRAS_ANNOTE', got '%s'",gras_ddt_parse_text);
+
+ gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
+ if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_LP)
+ PARSE_ERROR1("Unparsable annotation: Expected parenthesis, got '%s'",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 name, got '%s'",gras_ddt_parse_text);
+ keyname = 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_COLON)
+ PARSE_ERROR1("Unparsable annotation: expected ',' after the key name, got '%s'",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);
+
+ 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_RP)
+ PARSE_ERROR1("Unparsable annotation: Expected parenthesis, got '%s'",gras_ddt_parse_text);
+
+ /* Done with parsing the annotation. Now deal with it by replacing previously pushed type with the right one */
+
+ DEBUG2("Anotation: %s=%s",keyname,keyval);
+ if (!strcmp(keyname,"size")) {
+ 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);
+ continue;
+ } else {
+ char *p;
+ int fixed = 1;
+ for (p = keyval; *p != '\0'; p++)
+ if (! isdigit(*p) )
+ fixed = 0;
+ if (fixed) {
+ TRY(change_to_fixed_array(identifiers,atoi(keyval)));
+ TRY(change_to_ref(identifiers));
+ free(keyval);
+ continue;
+
+ } else {
+ TRY(change_to_ref_pop_array(identifiers));
+ TRY(gras_dynar_push(fields_to_push,&keyval));
+ continue;
+ }
+ }
+ RAISE_IMPOSSIBLE;
+
+ } else {
+ PARSE_ERROR1("Unknown annotation type: '%s'",keyname);
+ }
+ continue;
+
+ /* End of annotation handling */
} else {
- ERROR2("Unparsable symbol: Expected a comma (','), got '%s' instead. Definition was:\n%s",
- gras_ddt_parse_text, definition);
- gras_abort();
+ PARSE_ERROR1("Unparsable symbol: Got '%s' instead of expected comma (',')",gras_ddt_parse_text);
}
} else if(gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_COLON) {
- ERROR1("Unparsable symbol: Unexpected comma (','). Definition was:\n%s",
- definition);
- gras_abort();
+ PARSE_ERROR0("Unparsable symbol: Unexpected comma (',')");
}
- if(gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_STAR) {
- starred = 1;
+ if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_STAR) {
+ identifier.tm.is_ref++; /* We indeed deal with multiple references with multiple annotations */
+ continue;
}
/* found a symbol name. Build the type and push it to dynar */
if(gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_WORD) {
- if (starred) {
- /* FIXME: Build a ref or array on the base type */
- ERROR1("Cannot handle references yet (need annotations), sorry. Definition was:\n%s",
- definition);
- gras_abort();
- }
+
identifier.name=strdup(gras_ddt_parse_text);
DEBUG1("Found the identifier \"%s\"",identifier.name);
- TRY(gras_dynar_push(*dynar, &identifier));
- starred = 0;
+ TRY(gras_dynar_push(identifiers, &identifier));
+ DEBUG1("Dynar_len=%d",gras_dynar_length(identifiers));
expect_id_separator = 1;
continue;
- }
+ }
- ERROR3("Unparasable symbol (maybe a def struct in a def struct or so) at %d:%d of\n%s",
- gras_ddt_parse_line_pos,gras_ddt_parse_char_pos,
- definition);
- gras_abort();
+ PARSE_ERROR0("Unparasable symbol (maybe a def struct in a def struct or a parser bug ;)");
}
- DEBUG0("End of this statement");
+ GRAS_OUT;
return no_error;
}
char buffname[32];
static int anonymous_struct=0;
- gras_dynar_t *fields;
-
+ gras_dynar_t *identifiers;
identifier_t field;
int i;
+ gras_dynar_t *fields_to_push;
+ char *name;
+
gras_datadesc_type_t *struct_type;
- errcode=gras_dynar_new(&fields,sizeof(identifier_t),NULL);
- if (errcode != no_error)
+ GRAS_IN;
+ errcode=gras_dynar_new(&identifiers,sizeof(identifier_t),NULL);
+ errcode=gras_dynar_new(&fields_to_push,sizeof(char*),NULL);
+ if (errcode != no_error) {
+ GRAS_OUT;
return NULL;
+ }
/* Create the struct descriptor */
if (gras_ddt_parse_tok_num == GRAS_DDT_PARSE_TOKEN_WORD) {
TRYFAIL(gras_datadesc_struct(gras_ddt_parse_text,&struct_type));
- DEBUG1("Parse the struct '%s'", gras_ddt_parse_text);
+ VERB1("Parse the struct '%s'", gras_ddt_parse_text);
gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
} else {
sprintf(buffname,"anonymous struct %d",anonymous_struct++);
- DEBUG1("Parse the anonymous struct nb %d", anonymous_struct);
+ VERB1("Parse the anonymous struct nb %d", anonymous_struct);
TRYFAIL(gras_datadesc_struct(buffname,&struct_type));
}
- if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_LP) {
- ERROR2("Unparasable symbol: Expecting struct definition, but got %s instead of '{'. The definition was:\n%s",
- gras_ddt_parse_text,definition);
- gras_abort();
- }
+ if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_LA)
+ PARSE_ERROR1("Unparasable symbol: Expecting struct definition, but got %s instead of '{'",
+ gras_ddt_parse_text);
- /* Parse the fields */
- for (errcode=parse_statement(definition,&fields);
+ /* Parse the identifiers */
+ for (errcode=parse_statement(definition,identifiers,fields_to_push);
errcode == no_error ;
- errcode=parse_statement(definition,&fields)) {
+ errcode=parse_statement(definition,identifiers,fields_to_push)) {
- DEBUG1("This statement contained %d fields",gras_dynar_length(fields));
- gras_dynar_foreach(fields,i, field) {
- DEBUG1("Append field %s",field.name);
+ DEBUG1("This statement contained %d 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);
TRYFAIL(gras_datadesc_struct_append(struct_type, field.name, field.type));
free(field.name);
free(field.type_name);
+
+ }
+ gras_dynar_reset(identifiers);
+ DEBUG1("struct_type=%p",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);
+ gras_datadesc_cb_field_push(struct_type, name);
+ free(name);
}
+ gras_dynar_reset(fields_to_push);
}
gras_datadesc_struct_close(struct_type);
- if (errcode != mismatch_error)
+ if (errcode != mismatch_error) {
+ GRAS_OUT;
return NULL; /* FIXME: LEAK! */
+ }
/* terminates */
- if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_RP) {
- ERROR2("Unparasable symbol: Expected '}' at the end of struct definition, got '%s'. The definition was:\n%s",
- gras_ddt_parse_text,definition);
- gras_abort();
- }
+ if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_RA)
+ PARSE_ERROR1("Unparasable symbol: Expected '}' at the end of struct definition, got '%s'",
+ gras_ddt_parse_text);
gras_ddt_parse_tok_num = gras_ddt_parse_lex_n_dump();
- gras_dynar_free(fields);
+ gras_dynar_free(identifiers);
+ gras_dynar_free(fields_to_push);
+ GRAS_OUT;
return struct_type;
}
gras_datadesc_type_t *struct_desc=NULL;
gras_datadesc_type_t *typedef_desc=NULL;
+ GRAS_IN;
memset(&tm,0,sizeof(tm));
/* get the aliased type */
parse_type_modifier(&tm);
- if (tm.is_ref) {
- ERROR1("Cannot handle reference without annotation. Definition was:\n%s",
- definition);
- gras_abort();
- }
+ if (tm.is_ref)
+ PARSE_ERROR0("Cannot handle reference without annotation");
/* get the aliasing name */
- if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD) {
- ERROR2("Unparsable typedef: Expected the alias name, and got '%s'.\n%s",
- gras_ddt_parse_text,definition);
- gras_abort();
- }
+ if (gras_ddt_parse_tok_num != GRAS_DDT_PARSE_TOKEN_WORD)
+ PARSE_ERROR1("Unparsable typedef: Expected the alias name, and got '%s'",
+ gras_ddt_parse_text);
/* (FIXME: should) build the alias */
- ERROR1("Cannot handle typedef yet. Definition was: \n%s",definition);
- gras_abort();
+ PARSE_ERROR0("Cannot handle typedef yet");
- // identifier.type=gras_ddt_type_new_typedef(bag, NULL, strdup(gras_ddt_parse_text) );
-
+ GRAS_OUT;
return typedef_desc;
}
char *definition;
int semicolon_count=0;
int def_count,C_count;
+
+ GRAS_IN;
/* reput the \n in place for debug */
for (C_count=0; C_statement[C_count] != '\0'; C_count++)
if (C_statement[C_count] == ';' || C_statement[C_count] == '{')
name,res->name);
gras_abort();
}
+ GRAS_OUT;
return res;
}
-#line 2 "DataDesc/ddt_parse.yy.c"
-
-#line 4 "DataDesc/ddt_parse.yy.c"
-
-#define YY_INT_ALIGNED short int
-
+#define yy_create_buffer gras_ddt_parse__create_buffer
+#define yy_delete_buffer gras_ddt_parse__delete_buffer
+#define yy_scan_buffer gras_ddt_parse__scan_buffer
+#define yy_scan_string gras_ddt_parse__scan_string
+#define yy_scan_bytes gras_ddt_parse__scan_bytes
+#define yy_flex_debug gras_ddt_parse__flex_debug
+#define yy_init_buffer gras_ddt_parse__init_buffer
+#define yy_flush_buffer gras_ddt_parse__flush_buffer
+#define yy_load_buffer_state gras_ddt_parse__load_buffer_state
+#define yy_switch_to_buffer gras_ddt_parse__switch_to_buffer
+#define yyin gras_ddt_parse_in
+#define yyleng gras_ddt_parse_leng
+#define yylex gras_ddt_parse_lex
+#define yyout gras_ddt_parse_out
+#define yyrestart gras_ddt_parse_restart
+#define yytext gras_ddt_parse_text
+
+#line 19 "DataDesc/ddt_parse.yy.c"
/* A lexical scanner generated by flex */
+/* Scanner skeleton version:
+ * $Header$
+ */
+
#define FLEX_SCANNER
#define YY_FLEX_MAJOR_VERSION 2
#define YY_FLEX_MINOR_VERSION 5
-#define YY_FLEX_SUBMINOR_VERSION 31
-#if YY_FLEX_SUBMINOR_VERSION > 0
-#define FLEX_BETA
-#endif
-/* First, we deal with platform-specific or compiler-specific issues. */
-
-/* begin standard C headers. */
#include <stdio.h>
-#include <string.h>
#include <errno.h>
-#include <stdlib.h>
-
-/* end standard C headers. */
-
-/* flex integer type definitions */
-
-#ifndef FLEXINT_H
-#define FLEXINT_H
-
-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
-
-#if defined __STDC_VERSION__ && __STDC_VERSION__ >= 199901L
-#include <inttypes.h>
-typedef int8_t flex_int8_t;
-typedef uint8_t flex_uint8_t;
-typedef int16_t flex_int16_t;
-typedef uint16_t flex_uint16_t;
-typedef int32_t flex_int32_t;
-typedef uint32_t flex_uint32_t;
-#else
-typedef signed char flex_int8_t;
-typedef short int flex_int16_t;
-typedef int flex_int32_t;
-typedef unsigned char flex_uint8_t;
-typedef unsigned short int flex_uint16_t;
-typedef unsigned int flex_uint32_t;
-#endif /* ! C99 */
-/* Limits of integral types. */
-#ifndef INT8_MIN
-#define INT8_MIN (-128)
-#endif
-#ifndef INT16_MIN
-#define INT16_MIN (-32767-1)
-#endif
-#ifndef INT32_MIN
-#define INT32_MIN (-2147483647-1)
-#endif
-#ifndef INT8_MAX
-#define INT8_MAX (127)
-#endif
-#ifndef INT16_MAX
-#define INT16_MAX (32767)
-#endif
-#ifndef INT32_MAX
-#define INT32_MAX (2147483647)
-#endif
-#ifndef UINT8_MAX
-#define UINT8_MAX (255U)
-#endif
-#ifndef UINT16_MAX
-#define UINT16_MAX (65535U)
+/* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
+#ifdef c_plusplus
+#ifndef __cplusplus
+#define __cplusplus
#endif
-#ifndef UINT32_MAX
-#define UINT32_MAX (4294967295U)
#endif
-#endif /* ! FLEXINT_H */
#ifdef __cplusplus
+#include <stdlib.h>
+#ifndef _WIN32
+#include <unistd.h>
+#endif
+
+/* Use prototypes in function declarations. */
+#define YY_USE_PROTOS
+
/* The "const" storage-class-modifier is valid. */
#define YY_USE_CONST
#if __STDC__
+#define YY_USE_PROTOS
#define YY_USE_CONST
#endif /* __STDC__ */
#endif /* ! __cplusplus */
+#ifdef __TURBOC__
+ #pragma warn -rch
+ #pragma warn -use
+#include <io.h>
+#include <stdlib.h>
+#define YY_USE_CONST
+#define YY_USE_PROTOS
+#endif
+
#ifdef YY_USE_CONST
#define yyconst const
#else
#define yyconst
#endif
+
+#ifdef YY_USE_PROTOS
+#define YY_PROTO(proto) proto
+#else
+#define YY_PROTO(proto) ()
+#endif
+
+
/* Returned upon end-of-file. */
#define YY_NULL 0
* but we do it the disgusting crufty way forced on us by the ()-less
* definition of BEGIN.
*/
-#define BEGIN (yy_start) = 1 + 2 *
+#define BEGIN yy_start = 1 + 2 *
/* Translate the current start state into a value that can be later handed
* to BEGIN to return to the state. The YYSTATE alias is for lex
* compatibility.
*/
-#define YY_START (((yy_start) - 1) / 2)
+#define YY_START ((yy_start - 1) / 2)
#define YYSTATE YY_START
/* Action number for EOF rule of a given start state. */
#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
/* Special action meaning "start processing a new file". */
-#define YY_NEW_FILE gras_ddt_parse_restart(gras_ddt_parse_in )
+#define YY_NEW_FILE yyrestart( yyin )
#define YY_END_OF_BUFFER_CHAR 0
/* Size of default input buffer. */
-#ifndef YY_BUF_SIZE
#define YY_BUF_SIZE 16384
-#endif
-#ifndef YY_TYPEDEF_YY_BUFFER_STATE
-#define YY_TYPEDEF_YY_BUFFER_STATE
typedef struct yy_buffer_state *YY_BUFFER_STATE;
-#endif
-
-extern int gras_ddt_parse_leng;
-extern FILE *gras_ddt_parse_in, *gras_ddt_parse_out;
+extern int yyleng;
+extern FILE *yyin, *yyout;
#define EOB_ACT_CONTINUE_SCAN 0
#define EOB_ACT_END_OF_FILE 1
#define EOB_ACT_LAST_MATCH 2
- #define YY_LESS_LINENO(n)
-
-/* Return all but the first "n" matched characters back to the input stream. */
+/* The funky do-while in the following #define is used to turn the definition
+ * int a single C statement (which needs a semi-colon terminator). This
+ * avoids problems with code like:
+ *
+ * if ( condition_holds )
+ * yyless( 5 );
+ * else
+ * do_something_else();
+ *
+ * Prior to using the do-while the compiler would get upset at the
+ * "else" because it interpreted the "if" statement as being all
+ * done when it reached the ';' after the yyless() call.
+ */
+
+/* Return all but the first 'n' matched characters back to the input stream. */
+
#define yyless(n) \
do \
{ \
- /* Undo effects of setting up gras_ddt_parse_text. */ \
- int yyless_macro_arg = (n); \
- YY_LESS_LINENO(yyless_macro_arg);\
- *yy_cp = (yy_hold_char); \
+ /* Undo effects of setting up yytext. */ \
+ *yy_cp = yy_hold_char; \
YY_RESTORE_YY_MORE_OFFSET \
- (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
- YY_DO_BEFORE_ACTION; /* set up gras_ddt_parse_text again */ \
+ yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ; \
+ YY_DO_BEFORE_ACTION; /* set up yytext again */ \
} \
while ( 0 )
-#define unput(c) yyunput( c, (yytext_ptr) )
+#define unput(c) yyunput( c, yytext_ptr )
/* The following is because we cannot portably get our hands on size_t
* (without autoconf's help, which isn't available because we want
* flex-generated scanners to compile on their own).
*/
-
-#ifndef YY_TYPEDEF_YY_SIZE_T
-#define YY_TYPEDEF_YY_SIZE_T
typedef unsigned int yy_size_t;
-#endif
-#ifndef YY_STRUCT_YY_BUFFER_STATE
-#define YY_STRUCT_YY_BUFFER_STATE
+
struct yy_buffer_state
{
FILE *yy_input_file;
*/
int yy_at_bol;
- int yy_bs_lineno; /**< The line count. */
- int yy_bs_column; /**< The column count. */
-
/* Whether to try to fill the input buffer when we reach the
* end of it.
*/
int yy_fill_buffer;
int yy_buffer_status;
-
#define YY_BUFFER_NEW 0
#define YY_BUFFER_NORMAL 1
/* When an EOF's been seen but there's still some text to process
* possible backing-up.
*
* When we actually see the EOF, we change the status to "new"
- * (via gras_ddt_parse_restart()), so that the user can continue scanning by
- * just pointing gras_ddt_parse_in at a new input file.
+ * (via yyrestart()), so that the user can continue scanning by
+ * just pointing yyin at a new input file.
*/
#define YY_BUFFER_EOF_PENDING 2
-
};
-#endif /* !YY_STRUCT_YY_BUFFER_STATE */
-/* Stack of input buffers. */
-static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
-static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
-static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
+static YY_BUFFER_STATE yy_current_buffer = 0;
/* We provide macros for accessing buffer states in case in the
* future we want to put the buffer states in a more general
* "scanner state".
- *
- * Returns the top of the stack, or NULL.
*/
-#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
- ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
- : NULL)
+#define YY_CURRENT_BUFFER yy_current_buffer
-/* Same as previous macro, but useful when we know that the buffer stack is not
- * NULL or when we need an lvalue. For internal use only.
- */
-#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
-/* yy_hold_char holds the character lost when gras_ddt_parse_text is formed. */
+/* yy_hold_char holds the character lost when yytext is formed. */
static char yy_hold_char;
+
static int yy_n_chars; /* number of characters read into yy_ch_buf */
-int gras_ddt_parse_leng;
+
+
+int yyleng;
/* Points to current character in buffer. */
static char *yy_c_buf_p = (char *) 0;
static int yy_init = 1; /* whether we need to initialize */
static int yy_start = 0; /* start state number */
-/* Flag which is used to allow gras_ddt_parse_wrap()'s to do buffer switches
- * instead of setting up a fresh gras_ddt_parse_in. A bit of a hack ...
+/* Flag which is used to allow yywrap()'s to do buffer switches
+ * instead of setting up a fresh yyin. A bit of a hack ...
*/
static int yy_did_buffer_switch_on_eof;
-void gras_ddt_parse_restart (FILE *input_file );
-void gras_ddt_parse__switch_to_buffer (YY_BUFFER_STATE new_buffer );
-YY_BUFFER_STATE gras_ddt_parse__create_buffer (FILE *file,int size );
-void gras_ddt_parse__delete_buffer (YY_BUFFER_STATE b );
-void gras_ddt_parse__flush_buffer (YY_BUFFER_STATE b );
-void gras_ddt_parse_push_buffer_state (YY_BUFFER_STATE new_buffer );
-void gras_ddt_parse_pop_buffer_state (void );
+void yyrestart YY_PROTO(( FILE *input_file ));
-static void gras_ddt_parse_ensure_buffer_stack (void );
-static void gras_ddt_parse__load_buffer_state (void );
-static void gras_ddt_parse__init_buffer (YY_BUFFER_STATE b,FILE *file );
+void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
+void yy_load_buffer_state YY_PROTO(( void ));
+YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
+void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
+void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
+void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b ));
+#define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer )
-#define YY_FLUSH_BUFFER gras_ddt_parse__flush_buffer(YY_CURRENT_BUFFER )
+YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size ));
+YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str ));
+YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len ));
-YY_BUFFER_STATE gras_ddt_parse__scan_buffer (char *base,yy_size_t size );
-YY_BUFFER_STATE gras_ddt_parse__scan_string (yyconst char *yy_str );
-YY_BUFFER_STATE gras_ddt_parse__scan_bytes (yyconst char *bytes,int len );
+static void *yy_flex_alloc YY_PROTO(( yy_size_t ));
+static void *yy_flex_realloc YY_PROTO(( void *, yy_size_t ));
+static void yy_flex_free YY_PROTO(( void * ));
-void *gras_ddt_parse_alloc (yy_size_t );
-void *gras_ddt_parse_realloc (void *,yy_size_t );
-void gras_ddt_parse_free (void * );
-
-#define yy_new_buffer gras_ddt_parse__create_buffer
+#define yy_new_buffer yy_create_buffer
#define yy_set_interactive(is_interactive) \
{ \
- if ( ! YY_CURRENT_BUFFER ){ \
- gras_ddt_parse_ensure_buffer_stack (); \
- YY_CURRENT_BUFFER_LVALUE = \
- gras_ddt_parse__create_buffer(gras_ddt_parse_in,YY_BUF_SIZE ); \
- } \
- YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
+ if ( ! yy_current_buffer ) \
+ yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
+ yy_current_buffer->yy_is_interactive = is_interactive; \
}
#define yy_set_bol(at_bol) \
{ \
- if ( ! YY_CURRENT_BUFFER ){\
- gras_ddt_parse_ensure_buffer_stack (); \
- YY_CURRENT_BUFFER_LVALUE = \
- gras_ddt_parse__create_buffer(gras_ddt_parse_in,YY_BUF_SIZE ); \
- } \
- YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
+ if ( ! yy_current_buffer ) \
+ yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
+ yy_current_buffer->yy_at_bol = at_bol; \
}
-#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
+#define YY_AT_BOL() (yy_current_buffer->yy_at_bol)
-/* Begin user sect3 */
-#define gras_ddt_parse_wrap(n) 1
+#define yywrap() 1
#define YY_SKIP_YYWRAP
-
typedef unsigned char YY_CHAR;
-
-FILE *gras_ddt_parse_in = (FILE *) 0, *gras_ddt_parse_out = (FILE *) 0;
-
+FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
typedef int yy_state_type;
+extern char *yytext;
+#define yytext_ptr yytext
-extern int gras_ddt_parse_lineno;
-
-int gras_ddt_parse_lineno = 1;
-
-extern char *gras_ddt_parse_text;
-#define yytext_ptr gras_ddt_parse_text
-
-static yy_state_type yy_get_previous_state (void );
-static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
-static int yy_get_next_buffer (void );
-static void yy_fatal_error (yyconst char msg[] );
+static yy_state_type yy_get_previous_state YY_PROTO(( void ));
+static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
+static int yy_get_next_buffer YY_PROTO(( void ));
+static void yy_fatal_error YY_PROTO(( yyconst char msg[] ));
/* Done after the current pattern has been matched and before the
- * corresponding action - sets up gras_ddt_parse_text.
+ * corresponding action - sets up yytext.
*/
#define YY_DO_BEFORE_ACTION \
- (yytext_ptr) = yy_bp; \
- gras_ddt_parse_leng = (size_t) (yy_cp - yy_bp); \
- (yy_hold_char) = *yy_cp; \
+ yytext_ptr = yy_bp; \
+ yyleng = (int) (yy_cp - yy_bp); \
+ yy_hold_char = *yy_cp; \
*yy_cp = '\0'; \
- (yy_c_buf_p) = yy_cp;
+ yy_c_buf_p = yy_cp;
-#define YY_NUM_RULES 30
-#define YY_END_OF_BUFFER 31
-/* This struct is not used in this scanner,
- but its presence is necessary. */
-struct yy_trans_info
- {
- flex_int32_t yy_verify;
- flex_int32_t yy_nxt;
- };
-static yyconst flex_int16_t yy_accept[53] =
+#define YY_NUM_RULES 26
+#define YY_END_OF_BUFFER 27
+static yyconst short int yy_accept[61] =
{ 0,
- 20, 20, 4, 4, 0, 0, 0, 0, 31, 29,
- 28, 8, 25, 27, 20, 29, 26, 23, 24, 21,
- 22, 4, 6, 5, 30, 30, 19, 10, 9, 30,
- 20, 2, 1, 4, 5, 5, 7, 3, 19, 18,
- 11, 12, 16, 17, 13, 15, 14, 1, 11, 12,
- 11, 0
+ 14, 14, 7, 7, 10, 10, 0, 0, 27, 25,
+ 24, 19, 20, 21, 23, 14, 25, 22, 17, 18,
+ 15, 16, 7, 7, 6, 7, 7, 10, 12, 11,
+ 26, 26, 14, 0, 1, 7, 7, 7, 5, 7,
+ 10, 11, 11, 13, 0, 0, 2, 1, 4, 0,
+ 3, 0, 2, 0, 3, 0, 0, 8, 9, 0
} ;
-static yyconst flex_int32_t yy_ec[256] =
+static yyconst int yy_ec[256] =
{ 0,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
+ 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 3, 1, 1, 1, 1, 1, 1,
- 1, 4, 1, 5, 6, 6, 7, 8, 8, 8,
- 8, 8, 8, 8, 8, 9, 9, 1, 10, 1,
- 1, 1, 1, 1, 6, 6, 6, 6, 6, 6,
- 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
- 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
- 11, 12, 13, 1, 6, 1, 6, 14, 6, 6,
-
- 6, 15, 6, 6, 6, 6, 6, 6, 6, 16,
- 6, 6, 6, 17, 6, 18, 6, 6, 6, 6,
- 6, 6, 19, 1, 20, 1, 1, 1, 1, 1,
+ 1, 2, 1, 1, 1, 1, 1, 1, 1, 4,
+ 5, 6, 1, 7, 8, 8, 9, 10, 10, 10,
+ 10, 10, 10, 10, 10, 10, 10, 1, 11, 1,
+ 1, 1, 1, 1, 8, 8, 8, 8, 8, 8,
+ 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
+ 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
+ 12, 1, 13, 14, 8, 1, 8, 8, 8, 8,
+
+ 8, 8, 15, 8, 8, 8, 8, 8, 8, 8,
+ 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
+ 8, 8, 16, 1, 17, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1
} ;
-static yyconst flex_int32_t yy_meta[21] =
+static yyconst int yy_meta[18] =
{ 0,
- 1, 2, 3, 4, 1, 5, 1, 5, 5, 1,
- 1, 3, 1, 5, 5, 5, 5, 5, 1, 1
+ 1, 1, 2, 1, 1, 3, 1, 4, 1, 4,
+ 1, 1, 1, 1, 4, 1, 1
} ;
-static yyconst flex_int16_t yy_base[62] =
+static yyconst short int yy_base[69] =
{ 0,
- 0, 0, 19, 20, 76, 71, 23, 25, 75, 97,
- 97, 97, 97, 97, 0, 25, 97, 97, 97, 97,
- 97, 0, 97, 26, 97, 69, 0, 97, 97, 30,
- 0, 97, 0, 0, 27, 36, 97, 97, 0, 97,
- 33, 41, 97, 97, 97, 97, 97, 0, 43, 45,
- 47, 97, 56, 61, 66, 31, 71, 76, 81, 86,
- 91
+ 0, 0, 16, 30, 17, 18, 78, 77, 85, 88,
+ 88, 88, 88, 88, 88, 0, 19, 88, 88, 88,
+ 88, 88, 0, 24, 88, 75, 77, 0, 88, 21,
+ 88, 76, 0, 22, 0, 0, 27, 75, 0, 71,
+ 0, 29, 34, 88, 29, 65, 76, 0, 0, 63,
+ 74, 60, 72, 56, 65, 51, 50, 88, 88, 88,
+ 45, 49, 53, 55, 57, 61, 65, 69
} ;
-static yyconst flex_int16_t yy_def[62] =
+static yyconst short int yy_def[69] =
{ 0,
- 52, 1, 53, 53, 54, 54, 55, 55, 52, 52,
- 52, 52, 52, 52, 56, 52, 52, 52, 52, 52,
- 52, 57, 52, 58, 52, 52, 59, 52, 52, 60,
- 56, 52, 61, 57, 58, 58, 52, 52, 59, 52,
- 52, 52, 52, 52, 52, 52, 52, 61, 52, 52,
- 52, 0, 52, 52, 52, 52, 52, 52, 52, 52,
- 52
+ 60, 1, 61, 61, 62, 62, 63, 63, 60, 60,
+ 60, 60, 60, 60, 60, 64, 60, 60, 60, 60,
+ 60, 60, 65, 65, 60, 65, 65, 66, 60, 67,
+ 60, 60, 64, 60, 68, 65, 65, 65, 65, 65,
+ 66, 67, 67, 60, 60, 60, 60, 68, 65, 60,
+ 60, 60, 60, 60, 60, 60, 60, 60, 60, 0,
+ 60, 60, 60, 60, 60, 60, 60, 60
} ;
-static yyconst flex_int16_t yy_nxt[118] =
+static yyconst short int yy_nxt[106] =
{ 0,
- 10, 11, 12, 13, 14, 15, 16, 15, 15, 17,
- 18, 10, 19, 15, 15, 15, 15, 15, 20, 21,
- 23, 23, 24, 24, 28, 29, 28, 29, 32, 36,
- 52, 33, 37, 52, 30, 31, 30, 41, 42, 36,
- 49, 50, 37, 43, 44, 45, 46, 47, 50, 50,
- 51, 50, 50, 50, 50, 50, 22, 22, 22, 22,
- 22, 25, 25, 25, 25, 25, 27, 27, 27, 27,
- 27, 34, 38, 34, 52, 34, 35, 26, 35, 35,
- 35, 39, 26, 52, 39, 39, 40, 40, 40, 40,
- 40, 48, 52, 48, 48, 48, 9, 52, 52, 52,
-
- 52, 52, 52, 52, 52, 52, 52, 52, 52, 52,
- 52, 52, 52, 52, 52, 52, 52
+ 10, 10, 11, 12, 13, 14, 15, 16, 17, 16,
+ 18, 19, 20, 10, 16, 21, 22, 24, 25, 29,
+ 29, 26, 30, 30, 34, 37, 43, 35, 37, 44,
+ 27, 24, 25, 46, 60, 26, 47, 60, 38, 43,
+ 50, 38, 44, 51, 27, 23, 23, 23, 23, 28,
+ 28, 28, 28, 31, 31, 31, 31, 36, 33, 36,
+ 36, 41, 59, 58, 41, 42, 55, 42, 42, 48,
+ 57, 48, 48, 53, 56, 55, 54, 53, 52, 49,
+ 40, 45, 40, 39, 60, 32, 32, 9, 60, 60,
+ 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
+
+ 60, 60, 60, 60, 60
} ;
-static yyconst flex_int16_t yy_chk[118] =
+static yyconst short int yy_chk[106] =
{ 0,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 3, 4, 3, 4, 7, 7, 8, 8, 16, 24,
- 35, 16, 24, 35, 7, 56, 8, 30, 30, 36,
- 41, 41, 36, 30, 30, 30, 30, 30, 42, 42,
- 49, 49, 50, 50, 51, 51, 53, 53, 53, 53,
- 53, 54, 54, 54, 54, 54, 55, 55, 55, 55,
- 55, 57, 26, 57, 9, 57, 58, 6, 58, 58,
- 58, 59, 5, 0, 59, 59, 60, 60, 60, 60,
- 60, 61, 0, 61, 61, 61, 52, 52, 52, 52,
-
- 52, 52, 52, 52, 52, 52, 52, 52, 52, 52,
- 52, 52, 52, 52, 52, 52, 52
+ 1, 1, 1, 1, 1, 1, 1, 3, 3, 5,
+ 6, 3, 5, 6, 17, 24, 30, 17, 37, 30,
+ 3, 4, 4, 34, 42, 4, 34, 42, 24, 43,
+ 45, 37, 43, 45, 4, 61, 61, 61, 61, 62,
+ 62, 62, 62, 63, 63, 63, 63, 65, 64, 65,
+ 65, 66, 57, 56, 66, 67, 55, 67, 67, 68,
+ 54, 68, 68, 53, 52, 51, 50, 47, 46, 40,
+ 38, 32, 27, 26, 9, 8, 7, 60, 60, 60,
+ 60, 60, 60, 60, 60, 60, 60, 60, 60, 60,
+
+ 60, 60, 60, 60, 60
} ;
static yy_state_type yy_last_accepting_state;
static char *yy_last_accepting_cpos;
-extern int gras_ddt_parse__flex_debug;
-int gras_ddt_parse__flex_debug = 0;
-
/* The intent behind this definition is that it'll catch
* any uses of REJECT which flex missed.
*/
#define yymore() yymore_used_but_not_detected
#define YY_MORE_ADJ 0
#define YY_RESTORE_YY_MORE_OFFSET
-char *gras_ddt_parse_text;
+char *yytext;
#line 1 "DataDesc/ddt_parse.yy.l"
+#define INITIAL 0
/* $Id$ */
/* DataDesc/ddt_parse -- automatic parsing of data structures */
/* Authors: Arnaud Legrand, Martin Quinson */
int gras_ddt_parse_col_pos = 0;
int gras_ddt_parse_char_pos = 0;
int gras_ddt_parse_tok_num = 0;
- GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(lexer,parse);
-#define SHOW_WHERE DEBUG4("%d:%d (char #%d): seen %s", gras_ddt_parse_line_pos,gras_ddt_parse_col_pos,gras_ddt_parse_char_pos,gras_ddt_parse_text)
+ const char *definition;
+ GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(lexer,ddt_parse);
+#define SHOW_WHERE DEBUG4("%d:%d (char #%d): seen '%s'", gras_ddt_parse_line_pos,gras_ddt_parse_col_pos,gras_ddt_parse_char_pos,yytext)
+#define annotate 1
+#define comment 2
+#define foo 3
-#line 507 "DataDesc/ddt_parse.yy.c"
-
-#define INITIAL 0
-#define comment 1
-#define foo 2
-#define str 3
-
-#ifndef YY_NO_UNISTD_H
-/* Special case for "unistd.h", since it is non-ANSI. We include it way
- * down here because we want the user's section 1 to have been scanned first.
- * The user has a chance to override it with an option.
- */
-#include <unistd.h>
-#endif
-
-#ifndef YY_EXTRA_TYPE
-#define YY_EXTRA_TYPE void *
-#endif
+#line 451 "DataDesc/ddt_parse.yy.c"
/* Macros after this point can all be overridden by user definitions in
* section 1.
#ifndef YY_SKIP_YYWRAP
#ifdef __cplusplus
-extern "C" int gras_ddt_parse_wrap (void );
+extern "C" int yywrap YY_PROTO(( void ));
#else
-extern int gras_ddt_parse_wrap (void );
+extern int yywrap YY_PROTO(( void ));
+#endif
#endif
+
+#ifndef YY_NO_UNPUT
+static void yyunput YY_PROTO(( int c, char *buf_ptr ));
#endif
- static void yyunput (int c,char *buf_ptr );
-
#ifndef yytext_ptr
-static void yy_flex_strncpy (char *,yyconst char *,int );
+static void yy_flex_strncpy YY_PROTO(( char *, yyconst char *, int ));
#endif
#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen (yyconst char * );
+static int yy_flex_strlen YY_PROTO(( yyconst char * ));
#endif
#ifndef YY_NO_INPUT
-
#ifdef __cplusplus
-static int yyinput (void );
+static int yyinput YY_PROTO(( void ));
#else
-static int input (void );
+static int input YY_PROTO(( void ));
+#endif
+#endif
+
+#if YY_STACK_USED
+static int yy_start_stack_ptr = 0;
+static int yy_start_stack_depth = 0;
+static int *yy_start_stack = 0;
+#ifndef YY_NO_PUSH_STATE
+static void yy_push_state YY_PROTO(( int new_state ));
+#endif
+#ifndef YY_NO_POP_STATE
+static void yy_pop_state YY_PROTO(( void ));
+#endif
+#ifndef YY_NO_TOP_STATE
+static int yy_top_state YY_PROTO(( void ));
#endif
+#else
+#define YY_NO_PUSH_STATE 1
+#define YY_NO_POP_STATE 1
+#define YY_NO_TOP_STATE 1
+#endif
+
+#ifdef YY_MALLOC_DECL
+YY_MALLOC_DECL
+#else
+#if __STDC__
+#ifndef __cplusplus
+#include <stdlib.h>
+#endif
+#else
+/* Just try to get by without declaring the routines. This will fail
+ * miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int)
+ * or sizeof(void*) != sizeof(int).
+ */
+#endif
#endif
/* Amount of stuff to slurp up with each read. */
#endif
/* Copy whatever the last rule matched to the standard output. */
+
#ifndef ECHO
/* This used to be an fputs(), but since the string might contain NUL's,
* we now use fwrite().
*/
-#define ECHO (void) fwrite( gras_ddt_parse_text, gras_ddt_parse_leng, 1, gras_ddt_parse_out )
+#define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
#endif
/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
*/
#ifndef YY_INPUT
#define YY_INPUT(buf,result,max_size) \
- if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
+ if ( yy_current_buffer->yy_is_interactive ) \
{ \
- int c = '*'; \
- size_t n; \
+ int c = '*', n; \
for ( n = 0; n < max_size && \
- (c = getc( gras_ddt_parse_in )) != EOF && c != '\n'; ++n ) \
+ (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
buf[n] = (char) c; \
if ( c == '\n' ) \
buf[n++] = (char) c; \
- if ( c == EOF && ferror( gras_ddt_parse_in ) ) \
+ if ( c == EOF && ferror( yyin ) ) \
YY_FATAL_ERROR( "input in flex scanner failed" ); \
result = n; \
} \
else \
{ \
errno=0; \
- while ( (result = fread(buf, 1, max_size, gras_ddt_parse_in))==0 && ferror(gras_ddt_parse_in)) \
+ while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
{ \
if( errno != EINTR) \
{ \
break; \
} \
errno=0; \
- clearerr(gras_ddt_parse_in); \
+ clearerr(yyin); \
} \
- }\
-\
-
+ }
#endif
/* No semi-colon after return; correct usage is to write "yyterminate();" -
#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
#endif
-/* end tables serialization structures and prototypes */
-
/* Default declaration of generated scanner - a define so the user can
* easily add parameters.
*/
#ifndef YY_DECL
-#define YY_DECL_IS_OURS 1
-
-extern int gras_ddt_parse_lex (void);
-
-#define YY_DECL int gras_ddt_parse_lex (void)
-#endif /* !YY_DECL */
+#define YY_DECL int yylex YY_PROTO(( void ))
+#endif
-/* Code executed at the beginning of each rule, after gras_ddt_parse_text and gras_ddt_parse_leng
+/* Code executed at the beginning of each rule, after yytext and yyleng
* have been set up.
*/
#ifndef YY_USER_ACTION
#define YY_RULE_SETUP \
YY_USER_ACTION
-/** The main scanner function which does all the work.
- */
YY_DECL
-{
+ {
register yy_state_type yy_current_state;
register char *yy_cp, *yy_bp;
register int yy_act;
-
-#line 32 "DataDesc/ddt_parse.yy.l"
- int comment_caller=0;
+#line 33 "DataDesc/ddt_parse.yy.l"
+
+ int comment_caller=0;
+ int annotate_caller=0;
- char string_buf[GRAS_DDT_PARSE_MAX_STR_CONST];
- char *string_buf_ptr = NULL;
+ char string_buf[GRAS_DDT_PARSE_MAX_STR_CONST];
+ char *string_buf_ptr = NULL;
-#line 668 "DataDesc/ddt_parse.yy.c"
+#line 621 "DataDesc/ddt_parse.yy.c"
- if ( (yy_init) )
+ if ( yy_init )
{
- (yy_init) = 0;
+ yy_init = 0;
#ifdef YY_USER_INIT
YY_USER_INIT;
#endif
- if ( ! (yy_start) )
- (yy_start) = 1; /* first start state */
+ if ( ! yy_start )
+ yy_start = 1; /* first start state */
- if ( ! gras_ddt_parse_in )
- gras_ddt_parse_in = stdin;
+ if ( ! yyin )
+ yyin = stdin;
- if ( ! gras_ddt_parse_out )
- gras_ddt_parse_out = stdout;
+ if ( ! yyout )
+ yyout = stdout;
- if ( ! YY_CURRENT_BUFFER ) {
- gras_ddt_parse_ensure_buffer_stack ();
- YY_CURRENT_BUFFER_LVALUE =
- gras_ddt_parse__create_buffer(gras_ddt_parse_in,YY_BUF_SIZE );
- }
+ if ( ! yy_current_buffer )
+ yy_current_buffer =
+ yy_create_buffer( yyin, YY_BUF_SIZE );
- gras_ddt_parse__load_buffer_state( );
+ yy_load_buffer_state();
}
while ( 1 ) /* loops until end-of-file is reached */
{
- yy_cp = (yy_c_buf_p);
+ yy_cp = yy_c_buf_p;
- /* Support of gras_ddt_parse_text. */
- *yy_cp = (yy_hold_char);
+ /* Support of yytext. */
+ *yy_cp = yy_hold_char;
/* yy_bp points to the position in yy_ch_buf of the start of
* the current run.
*/
yy_bp = yy_cp;
- yy_current_state = (yy_start);
+ yy_current_state = yy_start;
yy_match:
do
{
register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
if ( yy_accept[yy_current_state] )
{
- (yy_last_accepting_state) = yy_current_state;
- (yy_last_accepting_cpos) = yy_cp;
+ yy_last_accepting_state = yy_current_state;
+ yy_last_accepting_cpos = yy_cp;
}
while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
{
yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 53 )
+ if ( yy_current_state >= 61 )
yy_c = yy_meta[(unsigned int) yy_c];
}
yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
++yy_cp;
}
- while ( yy_base[yy_current_state] != 97 );
+ while ( yy_base[yy_current_state] != 88 );
yy_find_action:
yy_act = yy_accept[yy_current_state];
if ( yy_act == 0 )
{ /* have to back up */
- yy_cp = (yy_last_accepting_cpos);
- yy_current_state = (yy_last_accepting_state);
+ yy_cp = yy_last_accepting_cpos;
+ yy_current_state = yy_last_accepting_state;
yy_act = yy_accept[yy_current_state];
}
YY_DO_BEFORE_ACTION;
+
do_action: /* This label is used only to access EOF actions. */
+
switch ( yy_act )
{ /* beginning of action switch */
case 0: /* must back up */
/* undo the effects of YY_DO_BEFORE_ACTION */
- *yy_cp = (yy_hold_char);
- yy_cp = (yy_last_accepting_cpos);
- yy_current_state = (yy_last_accepting_state);
+ *yy_cp = yy_hold_char;
+ yy_cp = yy_last_accepting_cpos;
+ yy_current_state = yy_last_accepting_state;
goto yy_find_action;
case 1:
YY_RULE_SETUP
-#line 38 "DataDesc/ddt_parse.yy.l"
+#line 40 "DataDesc/ddt_parse.yy.l"
YY_BREAK
case 2:
YY_RULE_SETUP
-#line 39 "DataDesc/ddt_parse.yy.l"
-{
- comment_caller = INITIAL;
- BEGIN(comment);
- }
+#line 42 "DataDesc/ddt_parse.yy.l"
+{ /****************** ANNOTATION ************************/
+ DEBUG0("Begin annotation");
+ annotate_caller = INITIAL;
+ gras_ddt_parse_char_pos+= strlen(yytext);
+ gras_ddt_parse_col_pos+= strlen(yytext);
+ BEGIN(annotate);
+}
YY_BREAK
case 3:
YY_RULE_SETUP
-#line 44 "DataDesc/ddt_parse.yy.l"
-{
- comment_caller = foo;
- BEGIN(comment);
- }
+#line 49 "DataDesc/ddt_parse.yy.l"
+{ /* trim annotation */
+ DEBUG0("Begin annotation");
+ annotate_caller = foo;
+ gras_ddt_parse_char_pos+= strlen(yytext);
+ gras_ddt_parse_col_pos+= strlen(yytext);
+ BEGIN(annotate);
+}
YY_BREAK
case 4:
YY_RULE_SETUP
-#line 49 "DataDesc/ddt_parse.yy.l"
-/* eat anything that's not a '*' */
+#line 57 "DataDesc/ddt_parse.yy.l"
+{
+ DEBUG0("End annotation");
+ gras_ddt_parse_char_pos+= strlen(yytext);
+ gras_ddt_parse_col_pos+= strlen(yytext);
+ BEGIN(annotate_caller);
+}
YY_BREAK
case 5:
YY_RULE_SETUP
-#line 50 "DataDesc/ddt_parse.yy.l"
-/* eat up '*'s not followed by '/'s */
+#line 64 "DataDesc/ddt_parse.yy.l"
+{
+ PARSE_ERROR0("``/*g'' construct closed by a regular ``*/''");
+}
YY_BREAK
case 6:
-/* rule 6 can match eol */
YY_RULE_SETUP
-#line 51 "DataDesc/ddt_parse.yy.l"
+#line 67 "DataDesc/ddt_parse.yy.l"
{
- ++gras_ddt_parse_line_pos;
- gras_ddt_parse_col_pos=0;
- gras_ddt_parse_char_pos++;
+ PARSE_ERROR0("Type annotation cannot spread over several lines");
}
YY_BREAK
case 7:
YY_RULE_SETUP
-#line 56 "DataDesc/ddt_parse.yy.l"
-BEGIN(comment_caller);
+#line 71 "DataDesc/ddt_parse.yy.l"
+{ /* eat the rest */
+ gras_ddt_parse_char_pos+= strlen(yytext);
+ gras_ddt_parse_col_pos+= strlen(yytext);
+ return GRAS_DDT_PARSE_TOKEN_ANNOTATE;
+}
YY_BREAK
case 8:
YY_RULE_SETUP
-#line 58 "DataDesc/ddt_parse.yy.l"
-string_buf_ptr = string_buf; gras_ddt_parse_char_pos++;gras_ddt_parse_col_pos++; BEGIN(str);
+#line 77 "DataDesc/ddt_parse.yy.l"
+{ /****************** COMMENTS ************************/
+ // constructs like /*g [string] g*/ are not comments but size annotations
+ comment_caller = INITIAL;
+ BEGIN(comment);
+}
YY_BREAK
case 9:
YY_RULE_SETUP
-#line 60 "DataDesc/ddt_parse.yy.l"
-{ /* saw closing quote - all done */
- BEGIN(INITIAL);
- *string_buf_ptr = '\0';
- gras_ddt_parse_text=string_buf;
- gras_ddt_parse_char_pos++;
- gras_ddt_parse_col_pos++;
- return GRAS_DDT_PARSE_TOKEN_WORD;
- /* return string constant token type and
- * value to parser
- */
- }
+#line 83 "DataDesc/ddt_parse.yy.l"
+{
+ comment_caller = foo;
+ BEGIN(comment);
+}
YY_BREAK
case 10:
-/* rule 10 can match eol */
YY_RULE_SETUP
-#line 72 "DataDesc/ddt_parse.yy.l"
-{
- /* error - unterminated string constant */
- /* generate error message */
- }
+#line 88 "DataDesc/ddt_parse.yy.l"
+{ /* eat anything that's not a '*' */
+}
YY_BREAK
case 11:
YY_RULE_SETUP
-#line 77 "DataDesc/ddt_parse.yy.l"
-{
- /* octal escape sequence */
- int result;
-
- (void) sscanf( gras_ddt_parse_text + 1, "%o", &result );
-
- if ( result > 0xff )
- /* error, constant is out-of-bounds */
-
- *string_buf_ptr++ = result;
- gras_ddt_parse_char_pos++;
- gras_ddt_parse_col_pos++;
- }
+#line 90 "DataDesc/ddt_parse.yy.l"
+{ /* eat up '*'s not followed by '/'s */
+}
YY_BREAK
case 12:
YY_RULE_SETUP
-#line 91 "DataDesc/ddt_parse.yy.l"
+#line 92 "DataDesc/ddt_parse.yy.l"
{
- /* generate error - bad escape sequence; something
- * like '\48' or '\0777777'
- */
- }
+ ++gras_ddt_parse_line_pos;
+ gras_ddt_parse_col_pos=0;
+ gras_ddt_parse_char_pos++;
+}
YY_BREAK
case 13:
YY_RULE_SETUP
#line 97 "DataDesc/ddt_parse.yy.l"
{
- *string_buf_ptr++ = '\n';
- gras_ddt_parse_char_pos++;
- gras_ddt_parse_col_pos++;
+ gras_ddt_parse_char_pos+= strlen(yytext);
+ gras_ddt_parse_col_pos+= strlen(yytext);
+ BEGIN(comment_caller);
}
YY_BREAK
case 14:
YY_RULE_SETUP
-#line 102 "DataDesc/ddt_parse.yy.l"
-{
- *string_buf_ptr++ = '\t';
- gras_ddt_parse_char_pos++;
- gras_ddt_parse_col_pos++;
+#line 103 "DataDesc/ddt_parse.yy.l"
+{ /****************** STATEMENTS ************************/
+ gras_ddt_parse_char_pos += strlen(yytext);
+ gras_ddt_parse_col_pos += strlen(yytext);
+ SHOW_WHERE;
+ return(GRAS_DDT_PARSE_TOKEN_WORD);
}
YY_BREAK
case 15:
YY_RULE_SETUP
-#line 107 "DataDesc/ddt_parse.yy.l"
-{
- *string_buf_ptr++ = '\r';
- gras_ddt_parse_char_pos++;
- gras_ddt_parse_col_pos++;
+#line 109 "DataDesc/ddt_parse.yy.l"
+{
+ gras_ddt_parse_char_pos++;
+ gras_ddt_parse_col_pos++;
+ SHOW_WHERE;
+ return(GRAS_DDT_PARSE_TOKEN_LA);
}
YY_BREAK
case 16:
YY_RULE_SETUP
-#line 112 "DataDesc/ddt_parse.yy.l"
+#line 115 "DataDesc/ddt_parse.yy.l"
{
- *string_buf_ptr++ = '\b';
gras_ddt_parse_char_pos++;
gras_ddt_parse_col_pos++;
+ SHOW_WHERE;
+ return(GRAS_DDT_PARSE_TOKEN_RA);
}
YY_BREAK
case 17:
YY_RULE_SETUP
-#line 117 "DataDesc/ddt_parse.yy.l"
-{
- *string_buf_ptr++ = '\f';
- gras_ddt_parse_char_pos++;
- gras_ddt_parse_col_pos++;
-}
- YY_BREAK
-case 18:
-/* rule 18 can match eol */
-YY_RULE_SETUP
-#line 123 "DataDesc/ddt_parse.yy.l"
-{
- *string_buf_ptr++ = gras_ddt_parse_text[1];
- if(gras_ddt_parse_text[1]=='\n') {
- ++gras_ddt_parse_line_pos;
- gras_ddt_parse_col_pos=0;
- } else {
- gras_ddt_parse_col_pos++;
- }
- gras_ddt_parse_char_pos++;
-}
- YY_BREAK
-case 19:
-YY_RULE_SETUP
-#line 134 "DataDesc/ddt_parse.yy.l"
-{
- char *yptr = gras_ddt_parse_text;
-
- while ( *yptr )
- *string_buf_ptr++ = *yptr++;
- gras_ddt_parse_char_pos++;
- gras_ddt_parse_col_pos++;
-}
- YY_BREAK
-case 20:
-YY_RULE_SETUP
-#line 143 "DataDesc/ddt_parse.yy.l"
-{
- gras_ddt_parse_char_pos+= strlen(gras_ddt_parse_text);
- gras_ddt_parse_col_pos+= strlen(gras_ddt_parse_text);
- return(GRAS_DDT_PARSE_TOKEN_WORD);
-}
- YY_BREAK
-case 21:
-YY_RULE_SETUP
-#line 148 "DataDesc/ddt_parse.yy.l"
+#line 121 "DataDesc/ddt_parse.yy.l"
{
gras_ddt_parse_char_pos++;
gras_ddt_parse_col_pos++;
SHOW_WHERE;
- return(GRAS_DDT_PARSE_TOKEN_LP);
+ return(GRAS_DDT_PARSE_TOKEN_LB);
}
YY_BREAK
-case 22:
+case 18:
YY_RULE_SETUP
-#line 154 "DataDesc/ddt_parse.yy.l"
+#line 127 "DataDesc/ddt_parse.yy.l"
{
gras_ddt_parse_char_pos++;
gras_ddt_parse_col_pos++;
SHOW_WHERE;
- return(GRAS_DDT_PARSE_TOKEN_RP);
+ return(GRAS_DDT_PARSE_TOKEN_RB);
}
YY_BREAK
-case 23:
+case 19:
YY_RULE_SETUP
-#line 160 "DataDesc/ddt_parse.yy.l"
+#line 133 "DataDesc/ddt_parse.yy.l"
{
gras_ddt_parse_char_pos++;
gras_ddt_parse_col_pos++;
SHOW_WHERE;
- return(GRAS_DDT_PARSE_TOKEN_LB);
+ return(GRAS_DDT_PARSE_TOKEN_LP);
}
YY_BREAK
-case 24:
+case 20:
YY_RULE_SETUP
-#line 166 "DataDesc/ddt_parse.yy.l"
+#line 139 "DataDesc/ddt_parse.yy.l"
{
gras_ddt_parse_char_pos++;
gras_ddt_parse_col_pos++;
SHOW_WHERE;
- return(GRAS_DDT_PARSE_TOKEN_RB);
+ return(GRAS_DDT_PARSE_TOKEN_RP);
}
YY_BREAK
-case 25:
+case 21:
YY_RULE_SETUP
-#line 172 "DataDesc/ddt_parse.yy.l"
+#line 145 "DataDesc/ddt_parse.yy.l"
{
gras_ddt_parse_char_pos++;
gras_ddt_parse_col_pos++;
return(GRAS_DDT_PARSE_TOKEN_STAR);
}
YY_BREAK
-case 26:
+case 22:
YY_RULE_SETUP
-#line 178 "DataDesc/ddt_parse.yy.l"
+#line 151 "DataDesc/ddt_parse.yy.l"
{
gras_ddt_parse_char_pos++;
gras_ddt_parse_col_pos++;
return(GRAS_DDT_PARSE_TOKEN_SEMI_COLON);
}
YY_BREAK
-case 27:
+case 23:
YY_RULE_SETUP
-#line 184 "DataDesc/ddt_parse.yy.l"
+#line 157 "DataDesc/ddt_parse.yy.l"
{
gras_ddt_parse_char_pos++;
gras_ddt_parse_col_pos++;
return(GRAS_DDT_PARSE_TOKEN_COLON);
}
YY_BREAK
-case 28:
-/* rule 28 can match eol */
+case 24:
YY_RULE_SETUP
-#line 190 "DataDesc/ddt_parse.yy.l"
+#line 163 "DataDesc/ddt_parse.yy.l"
{
gras_ddt_parse_line_pos++;
gras_ddt_parse_char_pos++;
SHOW_WHERE;
}
YY_BREAK
-case 29:
+case 25:
YY_RULE_SETUP
-#line 196 "DataDesc/ddt_parse.yy.l"
+#line 169 "DataDesc/ddt_parse.yy.l"
{
gras_ddt_parse_char_pos++;
gras_ddt_parse_col_pos++;
SHOW_WHERE;
}
YY_BREAK
-case 30:
+case 26:
YY_RULE_SETUP
-#line 201 "DataDesc/ddt_parse.yy.l"
+#line 174 "DataDesc/ddt_parse.yy.l"
ECHO;
YY_BREAK
-#line 1028 "DataDesc/ddt_parse.yy.c"
+#line 935 "DataDesc/ddt_parse.yy.c"
case YY_STATE_EOF(INITIAL):
+case YY_STATE_EOF(annotate):
case YY_STATE_EOF(comment):
case YY_STATE_EOF(foo):
-case YY_STATE_EOF(str):
yyterminate();
case YY_END_OF_BUFFER:
{
/* Amount of text matched not including the EOB char. */
- int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
+ int yy_amount_of_matched_text = (int) (yy_cp - yytext_ptr) - 1;
/* Undo the effects of YY_DO_BEFORE_ACTION. */
- *yy_cp = (yy_hold_char);
+ *yy_cp = yy_hold_char;
YY_RESTORE_YY_MORE_OFFSET
- if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
+ if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_NEW )
{
/* We're scanning a new file or input source. It's
* possible that this happened because the user
- * just pointed gras_ddt_parse_in at a new source and called
- * gras_ddt_parse_lex(). If so, then we have to assure
- * consistency between YY_CURRENT_BUFFER and our
+ * just pointed yyin at a new source and called
+ * yylex(). If so, then we have to assure
+ * consistency between yy_current_buffer and our
* globals. Here is the right place to do so, because
* this is the first action (other than possibly a
* back-up) that will match for the new input source.
*/
- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
- YY_CURRENT_BUFFER_LVALUE->yy_input_file = gras_ddt_parse_in;
- YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
+ yy_n_chars = yy_current_buffer->yy_n_chars;
+ yy_current_buffer->yy_input_file = yyin;
+ yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL;
}
/* Note that here we test for yy_c_buf_p "<=" to the position
* end-of-buffer state). Contrast this with the test
* in input().
*/
- if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
+ if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
{ /* This was really a NUL. */
yy_state_type yy_next_state;
- (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
+ yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text;
- yy_current_state = yy_get_previous_state( );
+ yy_current_state = yy_get_previous_state();
/* Okay, we're now positioned to make the NUL
* transition. We couldn't have
yy_next_state = yy_try_NUL_trans( yy_current_state );
- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
+ yy_bp = yytext_ptr + YY_MORE_ADJ;
if ( yy_next_state )
{
/* Consume the NUL. */
- yy_cp = ++(yy_c_buf_p);
+ yy_cp = ++yy_c_buf_p;
yy_current_state = yy_next_state;
goto yy_match;
}
else
{
- yy_cp = (yy_c_buf_p);
+ yy_cp = yy_c_buf_p;
goto yy_find_action;
}
}
- else switch ( yy_get_next_buffer( ) )
+ else switch ( yy_get_next_buffer() )
{
case EOB_ACT_END_OF_FILE:
{
- (yy_did_buffer_switch_on_eof) = 0;
+ yy_did_buffer_switch_on_eof = 0;
- if ( gras_ddt_parse_wrap( ) )
+ if ( yywrap() )
{
/* Note: because we've taken care in
* yy_get_next_buffer() to have set up
- * gras_ddt_parse_text, we can now set up
+ * yytext, we can now set up
* yy_c_buf_p so that if some total
* hoser (like flex itself) wants to
* call the scanner after we return the
* YY_NULL, it'll still work - another
* YY_NULL will get returned.
*/
- (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
+ yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
yy_act = YY_STATE_EOF(YY_START);
goto do_action;
else
{
- if ( ! (yy_did_buffer_switch_on_eof) )
+ if ( ! yy_did_buffer_switch_on_eof )
YY_NEW_FILE;
}
break;
}
case EOB_ACT_CONTINUE_SCAN:
- (yy_c_buf_p) =
- (yytext_ptr) + yy_amount_of_matched_text;
+ yy_c_buf_p =
+ yytext_ptr + yy_amount_of_matched_text;
- yy_current_state = yy_get_previous_state( );
+ yy_current_state = yy_get_previous_state();
- yy_cp = (yy_c_buf_p);
- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
+ yy_cp = yy_c_buf_p;
+ yy_bp = yytext_ptr + YY_MORE_ADJ;
goto yy_match;
case EOB_ACT_LAST_MATCH:
- (yy_c_buf_p) =
- &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
+ yy_c_buf_p =
+ &yy_current_buffer->yy_ch_buf[yy_n_chars];
- yy_current_state = yy_get_previous_state( );
+ yy_current_state = yy_get_previous_state();
- yy_cp = (yy_c_buf_p);
- yy_bp = (yytext_ptr) + YY_MORE_ADJ;
+ yy_cp = yy_c_buf_p;
+ yy_bp = yytext_ptr + YY_MORE_ADJ;
goto yy_find_action;
}
break;
"fatal flex scanner internal error--no action found" );
} /* end of action switch */
} /* end of scanning one token */
-} /* end of gras_ddt_parse_lex */
+ } /* end of yylex */
+
/* yy_get_next_buffer - try to read in a new buffer
*
* EOB_ACT_CONTINUE_SCAN - continue scanning from current position
* EOB_ACT_END_OF_FILE - end of file
*/
-static int yy_get_next_buffer (void)
-{
- register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
- register char *source = (yytext_ptr);
+
+static int yy_get_next_buffer()
+ {
+ register char *dest = yy_current_buffer->yy_ch_buf;
+ register char *source = yytext_ptr;
register int number_to_move, i;
int ret_val;
- if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
+ if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
YY_FATAL_ERROR(
"fatal flex scanner internal error--end of buffer missed" );
- if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
+ if ( yy_current_buffer->yy_fill_buffer == 0 )
{ /* Don't try to fill the buffer, so this is an EOF. */
- if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
+ if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 )
{
/* We matched a single character, the EOB, so
* treat this as a final EOF.
/* Try to read more data. */
/* First move last chars to start of buffer. */
- number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
+ number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1;
for ( i = 0; i < number_to_move; ++i )
*(dest++) = *(source++);
- if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
+ if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING )
/* don't do the read, it's not guaranteed to return an EOF,
* just force an EOF
*/
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
+ yy_current_buffer->yy_n_chars = yy_n_chars = 0;
else
{
- size_t num_to_read =
- YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
+ int num_to_read =
+ yy_current_buffer->yy_buf_size - number_to_move - 1;
while ( num_to_read <= 0 )
{ /* Not enough room in the buffer - grow it. */
+#ifdef YY_USES_REJECT
+ YY_FATAL_ERROR(
+"input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
+#else
/* just a shorter name for the current buffer */
- YY_BUFFER_STATE b = YY_CURRENT_BUFFER;
+ YY_BUFFER_STATE b = yy_current_buffer;
int yy_c_buf_p_offset =
- (int) ((yy_c_buf_p) - b->yy_ch_buf);
+ (int) (yy_c_buf_p - b->yy_ch_buf);
if ( b->yy_is_our_buffer )
{
b->yy_ch_buf = (char *)
/* Include room in for 2 EOB chars. */
- gras_ddt_parse_realloc((void *) b->yy_ch_buf,b->yy_buf_size + 2 );
+ yy_flex_realloc( (void *) b->yy_ch_buf,
+ b->yy_buf_size + 2 );
}
else
/* Can't grow it, we don't own it. */
YY_FATAL_ERROR(
"fatal error - scanner input buffer overflow" );
- (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
+ yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
- num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
+ num_to_read = yy_current_buffer->yy_buf_size -
number_to_move - 1;
-
+#endif
}
if ( num_to_read > YY_READ_BUF_SIZE )
num_to_read = YY_READ_BUF_SIZE;
/* Read in more data. */
- YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
- (yy_n_chars), num_to_read );
+ YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
+ yy_n_chars, num_to_read );
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
+ yy_current_buffer->yy_n_chars = yy_n_chars;
}
- if ( (yy_n_chars) == 0 )
+ if ( yy_n_chars == 0 )
{
if ( number_to_move == YY_MORE_ADJ )
{
ret_val = EOB_ACT_END_OF_FILE;
- gras_ddt_parse_restart(gras_ddt_parse_in );
+ yyrestart( yyin );
}
else
{
ret_val = EOB_ACT_LAST_MATCH;
- YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
+ yy_current_buffer->yy_buffer_status =
YY_BUFFER_EOF_PENDING;
}
}
else
ret_val = EOB_ACT_CONTINUE_SCAN;
- (yy_n_chars) += number_to_move;
- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
- YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
+ yy_n_chars += number_to_move;
+ yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
+ yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
- (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
+ yytext_ptr = &yy_current_buffer->yy_ch_buf[0];
return ret_val;
-}
+ }
+
/* yy_get_previous_state - get the state just before the EOB char was reached */
- static yy_state_type yy_get_previous_state (void)
-{
+static yy_state_type yy_get_previous_state()
+ {
register yy_state_type yy_current_state;
register char *yy_cp;
-
- yy_current_state = (yy_start);
- for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
+ yy_current_state = yy_start;
+
+ for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
{
register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
if ( yy_accept[yy_current_state] )
{
- (yy_last_accepting_state) = yy_current_state;
- (yy_last_accepting_cpos) = yy_cp;
+ yy_last_accepting_state = yy_current_state;
+ yy_last_accepting_cpos = yy_cp;
}
while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
{
yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 53 )
+ if ( yy_current_state >= 61 )
yy_c = yy_meta[(unsigned int) yy_c];
}
yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
}
return yy_current_state;
-}
+ }
+
/* yy_try_NUL_trans - try to make a transition on the NUL character
*
* synopsis
* next_state = yy_try_NUL_trans( current_state );
*/
- static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
-{
+
+#ifdef YY_USE_PROTOS
+static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state )
+#else
+static yy_state_type yy_try_NUL_trans( yy_current_state )
+yy_state_type yy_current_state;
+#endif
+ {
register int yy_is_jam;
- register char *yy_cp = (yy_c_buf_p);
+ register char *yy_cp = yy_c_buf_p;
register YY_CHAR yy_c = 1;
if ( yy_accept[yy_current_state] )
{
- (yy_last_accepting_state) = yy_current_state;
- (yy_last_accepting_cpos) = yy_cp;
+ yy_last_accepting_state = yy_current_state;
+ yy_last_accepting_cpos = yy_cp;
}
while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
{
yy_current_state = (int) yy_def[yy_current_state];
- if ( yy_current_state >= 53 )
+ if ( yy_current_state >= 61 )
yy_c = yy_meta[(unsigned int) yy_c];
}
yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
- yy_is_jam = (yy_current_state == 52);
+ yy_is_jam = (yy_current_state == 60);
return yy_is_jam ? 0 : yy_current_state;
-}
+ }
- static void yyunput (int c, register char * yy_bp )
-{
- register char *yy_cp;
-
- yy_cp = (yy_c_buf_p);
- /* undo effects of setting up gras_ddt_parse_text */
- *yy_cp = (yy_hold_char);
+#ifndef YY_NO_UNPUT
+#ifdef YY_USE_PROTOS
+static void yyunput( int c, register char *yy_bp )
+#else
+static void yyunput( c, yy_bp )
+int c;
+register char *yy_bp;
+#endif
+ {
+ register char *yy_cp = yy_c_buf_p;
+
+ /* undo effects of setting up yytext */
+ *yy_cp = yy_hold_char;
- if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
+ if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
{ /* need to shift things up to make room */
/* +2 for EOB chars. */
- register int number_to_move = (yy_n_chars) + 2;
- register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
- YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
+ register int number_to_move = yy_n_chars + 2;
+ register char *dest = &yy_current_buffer->yy_ch_buf[
+ yy_current_buffer->yy_buf_size + 2];
register char *source =
- &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
+ &yy_current_buffer->yy_ch_buf[number_to_move];
- while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
+ while ( source > yy_current_buffer->yy_ch_buf )
*--dest = *--source;
yy_cp += (int) (dest - source);
yy_bp += (int) (dest - source);
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
+ yy_current_buffer->yy_n_chars =
+ yy_n_chars = yy_current_buffer->yy_buf_size;
- if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
+ if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
YY_FATAL_ERROR( "flex scanner push-back overflow" );
}
*--yy_cp = (char) c;
- (yytext_ptr) = yy_bp;
- (yy_hold_char) = *yy_cp;
- (yy_c_buf_p) = yy_cp;
-}
-#ifndef YY_NO_INPUT
+ yytext_ptr = yy_bp;
+ yy_hold_char = *yy_cp;
+ yy_c_buf_p = yy_cp;
+ }
+#endif /* ifndef YY_NO_UNPUT */
+
+
#ifdef __cplusplus
- static int yyinput (void)
+static int yyinput()
#else
- static int input (void)
+static int input()
#endif
-
-{
+ {
int c;
-
- *(yy_c_buf_p) = (yy_hold_char);
- if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
+ *yy_c_buf_p = yy_hold_char;
+
+ if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
{
/* yy_c_buf_p now points to the character we want to return.
* If this occurs *before* the EOB characters, then it's a
* valid NUL; if not, then we've hit the end of the buffer.
*/
- if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
+ if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
/* This was really a NUL. */
- *(yy_c_buf_p) = '\0';
+ *yy_c_buf_p = '\0';
else
{ /* need more input */
- int offset = (yy_c_buf_p) - (yytext_ptr);
- ++(yy_c_buf_p);
+ int offset = yy_c_buf_p - yytext_ptr;
+ ++yy_c_buf_p;
- switch ( yy_get_next_buffer( ) )
+ switch ( yy_get_next_buffer() )
{
case EOB_ACT_LAST_MATCH:
/* This happens because yy_g_n_b()
*/
/* Reset buffer status. */
- gras_ddt_parse_restart(gras_ddt_parse_in );
+ yyrestart( yyin );
- /*FALLTHROUGH*/
+ /* fall through */
case EOB_ACT_END_OF_FILE:
{
- if ( gras_ddt_parse_wrap( ) )
+ if ( yywrap() )
return EOF;
- if ( ! (yy_did_buffer_switch_on_eof) )
+ if ( ! yy_did_buffer_switch_on_eof )
YY_NEW_FILE;
#ifdef __cplusplus
return yyinput();
}
case EOB_ACT_CONTINUE_SCAN:
- (yy_c_buf_p) = (yytext_ptr) + offset;
+ yy_c_buf_p = yytext_ptr + offset;
break;
}
}
}
- c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
- *(yy_c_buf_p) = '\0'; /* preserve gras_ddt_parse_text */
- (yy_hold_char) = *++(yy_c_buf_p);
+ c = *(unsigned char *) yy_c_buf_p; /* cast for 8-bit char's */
+ *yy_c_buf_p = '\0'; /* preserve yytext */
+ yy_hold_char = *++yy_c_buf_p;
+
return c;
-}
-#endif /* ifndef YY_NO_INPUT */
+ }
-/** Immediately switch to a different input stream.
- * @param input_file A readable stream.
- *
- * @note This function does not reset the start condition to @c INITIAL .
- */
- void gras_ddt_parse_restart (FILE * input_file )
-{
-
- if ( ! YY_CURRENT_BUFFER ){
- gras_ddt_parse_ensure_buffer_stack ();
- YY_CURRENT_BUFFER_LVALUE =
- gras_ddt_parse__create_buffer(gras_ddt_parse_in,YY_BUF_SIZE );
+
+#ifdef YY_USE_PROTOS
+void yyrestart( FILE *input_file )
+#else
+void yyrestart( input_file )
+FILE *input_file;
+#endif
+ {
+ if ( ! yy_current_buffer )
+ yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
+
+ yy_init_buffer( yy_current_buffer, input_file );
+ yy_load_buffer_state();
}
- gras_ddt_parse__init_buffer(YY_CURRENT_BUFFER,input_file );
- gras_ddt_parse__load_buffer_state( );
-}
-/** Switch to a different input buffer.
- * @param new_buffer The new input buffer.
- *
- */
- void gras_ddt_parse__switch_to_buffer (YY_BUFFER_STATE new_buffer )
-{
-
- /* TODO. We should be able to replace this entire function body
- * with
- * gras_ddt_parse_pop_buffer_state();
- * gras_ddt_parse_push_buffer_state(new_buffer);
- */
- gras_ddt_parse_ensure_buffer_stack ();
- if ( YY_CURRENT_BUFFER == new_buffer )
+#ifdef YY_USE_PROTOS
+void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
+#else
+void yy_switch_to_buffer( new_buffer )
+YY_BUFFER_STATE new_buffer;
+#endif
+ {
+ if ( yy_current_buffer == new_buffer )
return;
- if ( YY_CURRENT_BUFFER )
+ if ( yy_current_buffer )
{
/* Flush out information for old buffer. */
- *(yy_c_buf_p) = (yy_hold_char);
- YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
+ *yy_c_buf_p = yy_hold_char;
+ yy_current_buffer->yy_buf_pos = yy_c_buf_p;
+ yy_current_buffer->yy_n_chars = yy_n_chars;
}
- YY_CURRENT_BUFFER_LVALUE = new_buffer;
- gras_ddt_parse__load_buffer_state( );
+ yy_current_buffer = new_buffer;
+ yy_load_buffer_state();
/* We don't actually know whether we did this switch during
- * EOF (gras_ddt_parse_wrap()) processing, but the only time this flag
- * is looked at is after gras_ddt_parse_wrap() is called, so it's safe
+ * EOF (yywrap()) processing, but the only time this flag
+ * is looked at is after yywrap() is called, so it's safe
* to go ahead and always set it.
*/
- (yy_did_buffer_switch_on_eof) = 1;
-}
+ yy_did_buffer_switch_on_eof = 1;
+ }
-static void gras_ddt_parse__load_buffer_state (void)
-{
- (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
- (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
- gras_ddt_parse_in = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
- (yy_hold_char) = *(yy_c_buf_p);
-}
-/** Allocate and initialize an input buffer state.
- * @param file A readable stream.
- * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
- *
- * @return the allocated buffer state.
- */
- YY_BUFFER_STATE gras_ddt_parse__create_buffer (FILE * file, int size )
-{
+#ifdef YY_USE_PROTOS
+void yy_load_buffer_state( void )
+#else
+void yy_load_buffer_state()
+#endif
+ {
+ yy_n_chars = yy_current_buffer->yy_n_chars;
+ yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
+ yyin = yy_current_buffer->yy_input_file;
+ yy_hold_char = *yy_c_buf_p;
+ }
+
+
+#ifdef YY_USE_PROTOS
+YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
+#else
+YY_BUFFER_STATE yy_create_buffer( file, size )
+FILE *file;
+int size;
+#endif
+ {
YY_BUFFER_STATE b;
-
- b = (YY_BUFFER_STATE) gras_ddt_parse_alloc(sizeof( struct yy_buffer_state ) );
+
+ b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
if ( ! b )
- YY_FATAL_ERROR( "out of dynamic memory in gras_ddt_parse__create_buffer()" );
+ YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
b->yy_buf_size = size;
/* yy_ch_buf has to be 2 characters longer than the size given because
* we need to put in 2 end-of-buffer characters.
*/
- b->yy_ch_buf = (char *) gras_ddt_parse_alloc(b->yy_buf_size + 2 );
+ b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 );
if ( ! b->yy_ch_buf )
- YY_FATAL_ERROR( "out of dynamic memory in gras_ddt_parse__create_buffer()" );
+ YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
b->yy_is_our_buffer = 1;
- gras_ddt_parse__init_buffer(b,file );
+ yy_init_buffer( b, file );
return b;
-}
+ }
-/** Destroy the buffer.
- * @param b a buffer created with gras_ddt_parse__create_buffer()
- *
- */
- void gras_ddt_parse__delete_buffer (YY_BUFFER_STATE b )
-{
-
+
+#ifdef YY_USE_PROTOS
+void yy_delete_buffer( YY_BUFFER_STATE b )
+#else
+void yy_delete_buffer( b )
+YY_BUFFER_STATE b;
+#endif
+ {
if ( ! b )
return;
- if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
- YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
+ if ( b == yy_current_buffer )
+ yy_current_buffer = (YY_BUFFER_STATE) 0;
if ( b->yy_is_our_buffer )
- gras_ddt_parse_free((void *) b->yy_ch_buf );
+ yy_flex_free( (void *) b->yy_ch_buf );
- gras_ddt_parse_free((void *) b );
-}
+ yy_flex_free( (void *) b );
+ }
-#ifndef __cplusplus
-extern int isatty (int );
-#endif /* __cplusplus */
-
-/* Initializes or reinitializes a buffer.
- * This function is sometimes called more than once on the same buffer,
- * such as during a gras_ddt_parse_restart() or at EOF.
- */
- static void gras_ddt_parse__init_buffer (YY_BUFFER_STATE b, FILE * file )
-{
- int oerrno = errno;
-
- gras_ddt_parse__flush_buffer(b );
+#ifndef _WIN32
+#include <unistd.h>
+#else
+#ifndef YY_ALWAYS_INTERACTIVE
+#ifndef YY_NEVER_INTERACTIVE
+extern int isatty YY_PROTO(( int ));
+#endif
+#endif
+#endif
+
+#ifdef YY_USE_PROTOS
+void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
+#else
+void yy_init_buffer( b, file )
+YY_BUFFER_STATE b;
+FILE *file;
+#endif
+
+
+ {
+ yy_flush_buffer( b );
b->yy_input_file = file;
b->yy_fill_buffer = 1;
- /* If b is the current buffer, then gras_ddt_parse__init_buffer was _probably_
- * called from gras_ddt_parse_restart() or through yy_get_next_buffer.
- * In that case, we don't want to reset the lineno or column.
- */
- if (b != YY_CURRENT_BUFFER){
- b->yy_bs_lineno = 1;
- b->yy_bs_column = 0;
- }
-
- b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
-
- errno = oerrno;
-}
+#if YY_ALWAYS_INTERACTIVE
+ b->yy_is_interactive = 1;
+#else
+#if YY_NEVER_INTERACTIVE
+ b->yy_is_interactive = 0;
+#else
+ b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
+#endif
+#endif
+ }
-/** Discard all buffered characters. On the next scan, YY_INPUT will be called.
- * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
- *
- */
- void gras_ddt_parse__flush_buffer (YY_BUFFER_STATE b )
-{
- if ( ! b )
+
+#ifdef YY_USE_PROTOS
+void yy_flush_buffer( YY_BUFFER_STATE b )
+#else
+void yy_flush_buffer( b )
+YY_BUFFER_STATE b;
+#endif
+
+ {
+ if ( ! b )
return;
b->yy_n_chars = 0;
b->yy_at_bol = 1;
b->yy_buffer_status = YY_BUFFER_NEW;
- if ( b == YY_CURRENT_BUFFER )
- gras_ddt_parse__load_buffer_state( );
-}
-
-/** Pushes the new state onto the stack. The new state becomes
- * the current state. This function will allocate the stack
- * if necessary.
- * @param new_buffer The new state.
- *
- */
-void gras_ddt_parse_push_buffer_state (YY_BUFFER_STATE new_buffer )
-{
- if (new_buffer == NULL)
- return;
-
- gras_ddt_parse_ensure_buffer_stack();
-
- /* This block is copied from gras_ddt_parse__switch_to_buffer. */
- if ( YY_CURRENT_BUFFER )
- {
- /* Flush out information for old buffer. */
- *(yy_c_buf_p) = (yy_hold_char);
- YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
- YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
- }
-
- /* Only push if top exists. Otherwise, replace top. */
- if (YY_CURRENT_BUFFER)
- (yy_buffer_stack_top)++;
- YY_CURRENT_BUFFER_LVALUE = new_buffer;
-
- /* copied from gras_ddt_parse__switch_to_buffer. */
- gras_ddt_parse__load_buffer_state( );
- (yy_did_buffer_switch_on_eof) = 1;
-}
-
-/** Removes and deletes the top of the stack, if present.
- * The next element becomes the new top.
- *
- */
-void gras_ddt_parse_pop_buffer_state (void)
-{
- if (!YY_CURRENT_BUFFER)
- return;
-
- gras_ddt_parse__delete_buffer(YY_CURRENT_BUFFER );
- YY_CURRENT_BUFFER_LVALUE = NULL;
- if ((yy_buffer_stack_top) > 0)
- --(yy_buffer_stack_top);
-
- if (YY_CURRENT_BUFFER) {
- gras_ddt_parse__load_buffer_state( );
- (yy_did_buffer_switch_on_eof) = 1;
- }
-}
-
-/* Allocates the stack if it does not exist.
- * Guarantees space for at least one push.
- */
-static void gras_ddt_parse_ensure_buffer_stack (void)
-{
- int num_to_alloc;
-
- if (!(yy_buffer_stack)) {
-
- /* First allocation is just for 2 elements, since we don't know if this
- * scanner will even need a stack. We use 2 instead of 1 to avoid an
- * immediate realloc on the next call.
- */
- num_to_alloc = 1;
- (yy_buffer_stack) = (struct yy_buffer_state**)gras_ddt_parse_alloc
- (num_to_alloc * sizeof(struct yy_buffer_state*)
- );
-
- memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
-
- (yy_buffer_stack_max) = num_to_alloc;
- (yy_buffer_stack_top) = 0;
- return;
+ if ( b == yy_current_buffer )
+ yy_load_buffer_state();
}
- if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
-
- /* Increase the buffer to prepare for a possible push. */
- int grow_size = 8 /* arbitrary grow size */;
- num_to_alloc = (yy_buffer_stack_max) + grow_size;
- (yy_buffer_stack) = (struct yy_buffer_state**)gras_ddt_parse_realloc
- ((yy_buffer_stack),
- num_to_alloc * sizeof(struct yy_buffer_state*)
- );
-
- /* zero only the new slots.*/
- memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
- (yy_buffer_stack_max) = num_to_alloc;
- }
-}
-
-/** Setup the input buffer state to scan directly from a user-specified character buffer.
- * @param base the character buffer
- * @param size the size in bytes of the character buffer
- *
- * @return the newly allocated buffer state object.
- */
-YY_BUFFER_STATE gras_ddt_parse__scan_buffer (char * base, yy_size_t size )
-{
+#ifndef YY_NO_SCAN_BUFFER
+#ifdef YY_USE_PROTOS
+YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size )
+#else
+YY_BUFFER_STATE yy_scan_buffer( base, size )
+char *base;
+yy_size_t size;
+#endif
+ {
YY_BUFFER_STATE b;
-
+
if ( size < 2 ||
base[size-2] != YY_END_OF_BUFFER_CHAR ||
base[size-1] != YY_END_OF_BUFFER_CHAR )
/* They forgot to leave room for the EOB's. */
return 0;
- b = (YY_BUFFER_STATE) gras_ddt_parse_alloc(sizeof( struct yy_buffer_state ) );
+ b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
if ( ! b )
- YY_FATAL_ERROR( "out of dynamic memory in gras_ddt_parse__scan_buffer()" );
+ YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
b->yy_buf_pos = b->yy_ch_buf = base;
b->yy_fill_buffer = 0;
b->yy_buffer_status = YY_BUFFER_NEW;
- gras_ddt_parse__switch_to_buffer(b );
+ yy_switch_to_buffer( b );
return b;
-}
+ }
+#endif
-/** Setup the input buffer state to scan a string. The next call to gras_ddt_parse_lex() will
- * scan from a @e copy of @a str.
- * @param str a NUL-terminated string to scan
- *
- * @return the newly allocated buffer state object.
- * @note If you want to scan bytes that may contain NUL values, then use
- * gras_ddt_parse__scan_bytes() instead.
- */
-YY_BUFFER_STATE gras_ddt_parse__scan_string (yyconst char * yy_str )
-{
-
- return gras_ddt_parse__scan_bytes(yy_str,strlen(yy_str) );
-}
-/** Setup the input buffer state to scan the given bytes. The next call to gras_ddt_parse_lex() will
- * scan from a @e copy of @a bytes.
- * @param bytes the byte buffer to scan
- * @param len the number of bytes in the buffer pointed to by @a bytes.
- *
- * @return the newly allocated buffer state object.
- */
-YY_BUFFER_STATE gras_ddt_parse__scan_bytes (yyconst char * bytes, int len )
-{
+#ifndef YY_NO_SCAN_STRING
+#ifdef YY_USE_PROTOS
+YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str )
+#else
+YY_BUFFER_STATE yy_scan_string( yy_str )
+yyconst char *yy_str;
+#endif
+ {
+ int len;
+ for ( len = 0; yy_str[len]; ++len )
+ ;
+
+ return yy_scan_bytes( yy_str, len );
+ }
+#endif
+
+
+#ifndef YY_NO_SCAN_BYTES
+#ifdef YY_USE_PROTOS
+YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len )
+#else
+YY_BUFFER_STATE yy_scan_bytes( bytes, len )
+yyconst char *bytes;
+int len;
+#endif
+ {
YY_BUFFER_STATE b;
char *buf;
yy_size_t n;
int i;
-
+
/* Get memory for full buffer, including space for trailing EOB's. */
n = len + 2;
- buf = (char *) gras_ddt_parse_alloc(n );
+ buf = (char *) yy_flex_alloc( n );
if ( ! buf )
- YY_FATAL_ERROR( "out of dynamic memory in gras_ddt_parse__scan_bytes()" );
+ YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
for ( i = 0; i < len; ++i )
buf[i] = bytes[i];
buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR;
- b = gras_ddt_parse__scan_buffer(buf,n );
+ b = yy_scan_buffer( buf, n );
if ( ! b )
- YY_FATAL_ERROR( "bad buffer in gras_ddt_parse__scan_bytes()" );
+ YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
/* It's okay to grow etc. this buffer, and we should throw it
* away when we're done.
b->yy_is_our_buffer = 1;
return b;
-}
+ }
+#endif
-#ifndef YY_EXIT_FAILURE
-#define YY_EXIT_FAILURE 2
+
+#ifndef YY_NO_PUSH_STATE
+#ifdef YY_USE_PROTOS
+static void yy_push_state( int new_state )
+#else
+static void yy_push_state( new_state )
+int new_state;
#endif
+ {
+ if ( yy_start_stack_ptr >= yy_start_stack_depth )
+ {
+ yy_size_t new_size;
-static void yy_fatal_error (yyconst char* msg )
-{
- (void) fprintf( stderr, "%s\n", msg );
- exit( YY_EXIT_FAILURE );
-}
+ yy_start_stack_depth += YY_START_STACK_INCR;
+ new_size = yy_start_stack_depth * sizeof( int );
-/* Redefine yyless() so it works in section 3 code. */
+ if ( ! yy_start_stack )
+ yy_start_stack = (int *) yy_flex_alloc( new_size );
-#undef yyless
-#define yyless(n) \
- do \
- { \
- /* Undo effects of setting up gras_ddt_parse_text. */ \
- int yyless_macro_arg = (n); \
- YY_LESS_LINENO(yyless_macro_arg);\
- gras_ddt_parse_text[gras_ddt_parse_leng] = (yy_hold_char); \
- (yy_c_buf_p) = gras_ddt_parse_text + yyless_macro_arg; \
- (yy_hold_char) = *(yy_c_buf_p); \
- *(yy_c_buf_p) = '\0'; \
- gras_ddt_parse_leng = yyless_macro_arg; \
- } \
- while ( 0 )
+ else
+ yy_start_stack = (int *) yy_flex_realloc(
+ (void *) yy_start_stack, new_size );
-/* Accessor methods (get/set functions) to struct members. */
+ if ( ! yy_start_stack )
+ YY_FATAL_ERROR(
+ "out of memory expanding start-condition stack" );
+ }
-/** Get the current line number.
- *
- */
-int gras_ddt_parse_get_lineno (void)
-{
-
- return gras_ddt_parse_lineno;
-}
+ yy_start_stack[yy_start_stack_ptr++] = YY_START;
-/** Get the input stream.
- *
- */
-FILE *gras_ddt_parse_get_in (void)
-{
- return gras_ddt_parse_in;
-}
+ BEGIN(new_state);
+ }
+#endif
-/** Get the output stream.
- *
- */
-FILE *gras_ddt_parse_get_out (void)
-{
- return gras_ddt_parse_out;
-}
-/** Get the length of the current token.
- *
- */
-int gras_ddt_parse_get_leng (void)
-{
- return gras_ddt_parse_leng;
-}
+#ifndef YY_NO_POP_STATE
+static void yy_pop_state()
+ {
+ if ( --yy_start_stack_ptr < 0 )
+ YY_FATAL_ERROR( "start-condition stack underflow" );
-/** Get the current token.
- *
- */
+ BEGIN(yy_start_stack[yy_start_stack_ptr]);
+ }
+#endif
-char *gras_ddt_parse_get_text (void)
-{
- return gras_ddt_parse_text;
-}
-/** Set the current line number.
- * @param line_number
- *
- */
-void gras_ddt_parse_set_lineno (int line_number )
-{
-
- gras_ddt_parse_lineno = line_number;
-}
+#ifndef YY_NO_TOP_STATE
+static int yy_top_state()
+ {
+ return yy_start_stack[yy_start_stack_ptr - 1];
+ }
+#endif
-/** Set the input stream. This does not discard the current
- * input buffer.
- * @param in_str A readable stream.
- *
- * @see gras_ddt_parse__switch_to_buffer
- */
-void gras_ddt_parse_set_in (FILE * in_str )
-{
- gras_ddt_parse_in = in_str ;
-}
+#ifndef YY_EXIT_FAILURE
+#define YY_EXIT_FAILURE 2
+#endif
-void gras_ddt_parse_set_out (FILE * out_str )
-{
- gras_ddt_parse_out = out_str ;
-}
+#ifdef YY_USE_PROTOS
+static void yy_fatal_error( yyconst char msg[] )
+#else
+static void yy_fatal_error( msg )
+char msg[];
+#endif
+ {
+ (void) fprintf( stderr, "%s\n", msg );
+ exit( YY_EXIT_FAILURE );
+ }
-int gras_ddt_parse_get_debug (void)
-{
- return gras_ddt_parse__flex_debug;
-}
-void gras_ddt_parse_set_debug (int bdebug )
-{
- gras_ddt_parse__flex_debug = bdebug ;
-}
-/* gras_ddt_parse_lex_destroy is for both reentrant and non-reentrant scanners. */
-int gras_ddt_parse_lex_destroy (void)
-{
-
- /* Pop the buffer stack, destroying each element. */
- while(YY_CURRENT_BUFFER){
- gras_ddt_parse__delete_buffer(YY_CURRENT_BUFFER );
- YY_CURRENT_BUFFER_LVALUE = NULL;
- gras_ddt_parse_pop_buffer_state();
- }
+/* Redefine yyless() so it works in section 3 code. */
- /* Destroy the stack itself. */
- gras_ddt_parse_free((yy_buffer_stack) );
- (yy_buffer_stack) = NULL;
+#undef yyless
+#define yyless(n) \
+ do \
+ { \
+ /* Undo effects of setting up yytext. */ \
+ yytext[yyleng] = yy_hold_char; \
+ yy_c_buf_p = yytext + n; \
+ yy_hold_char = *yy_c_buf_p; \
+ *yy_c_buf_p = '\0'; \
+ yyleng = n; \
+ } \
+ while ( 0 )
- return 0;
-}
-/*
- * Internal utility routines.
- */
+/* Internal utility routines. */
#ifndef yytext_ptr
-static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
-{
+#ifdef YY_USE_PROTOS
+static void yy_flex_strncpy( char *s1, yyconst char *s2, int n )
+#else
+static void yy_flex_strncpy( s1, s2, n )
+char *s1;
+yyconst char *s2;
+int n;
+#endif
+ {
register int i;
- for ( i = 0; i < n; ++i )
+ for ( i = 0; i < n; ++i )
s1[i] = s2[i];
-}
+ }
#endif
#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen (yyconst char * s )
-{
+#ifdef YY_USE_PROTOS
+static int yy_flex_strlen( yyconst char *s )
+#else
+static int yy_flex_strlen( s )
+yyconst char *s;
+#endif
+ {
register int n;
- for ( n = 0; s[n]; ++n )
+ for ( n = 0; s[n]; ++n )
;
return n;
-}
+ }
#endif
-void *gras_ddt_parse_alloc (yy_size_t size )
-{
+
+#ifdef YY_USE_PROTOS
+static void *yy_flex_alloc( yy_size_t size )
+#else
+static void *yy_flex_alloc( size )
+yy_size_t size;
+#endif
+ {
return (void *) malloc( size );
-}
+ }
-void *gras_ddt_parse_realloc (void * ptr, yy_size_t size )
-{
+#ifdef YY_USE_PROTOS
+static void *yy_flex_realloc( void *ptr, yy_size_t size )
+#else
+static void *yy_flex_realloc( ptr, size )
+void *ptr;
+yy_size_t size;
+#endif
+ {
/* The cast to (char *) in the following accommodates both
* implementations that use char* generic pointers, and those
* that use void* generic pointers. It works with the latter
* as though doing an assignment.
*/
return (void *) realloc( (char *) ptr, size );
-}
-
-void gras_ddt_parse_free (void * ptr )
-{
- free( (char *) ptr ); /* see gras_ddt_parse_realloc() for (char *) cast */
-}
-
-#define YYTABLES_NAME "yytables"
-
-#undef YY_NEW_FILE
-#undef YY_FLUSH_BUFFER
-#undef yy_set_bol
-#undef yy_new_buffer
-#undef yy_set_interactive
-#undef yytext_ptr
-#undef YY_DO_BEFORE_ACTION
+ }
-#ifdef YY_DECL_IS_OURS
-#undef YY_DECL_IS_OURS
-#undef YY_DECL
+#ifdef YY_USE_PROTOS
+static void yy_flex_free( void *ptr )
+#else
+static void yy_flex_free( ptr )
+void *ptr;
#endif
-#line 201 "DataDesc/ddt_parse.yy.l"
+ {
+ free( ptr );
+ }
+#if YY_MAIN
+int main()
+ {
+ yylex();
+ return 0;
+ }
+#endif
+#line 174 "DataDesc/ddt_parse.yy.l"
/* {space}+ { return(TOKEN_SPACE);} */
void gras_ddt_parse_dump(void) {
switch(gras_ddt_parse_tok_num) {
- case GRAS_DDT_PARSE_TOKEN_LP : {printf("TOKEN_LP ");break;}
- case GRAS_DDT_PARSE_TOKEN_RP : {printf("TOKEN_RP ");break;}
+ case GRAS_DDT_PARSE_TOKEN_LA : {printf("TOKEN_LA ");break;}
+ case GRAS_DDT_PARSE_TOKEN_RA : {printf("TOKEN_RA ");break;}
case GRAS_DDT_PARSE_TOKEN_WORD : {printf("TOKEN_WORD ");break;}
// case GRAS_DDT_PARSE_TOKEN_SPACE : {printf("TOKEN_SPACE ");break;}
// case GRAS_DDT_PARSE_TOKEN_COMMENT : {printf("TOKEN_COMMENT ");break;}
case GRAS_DDT_PARSE_TOKEN_EMPTY : {printf("TOKEN_EMPTY\n");return;}
default : {printf("Unknown token %d\n", gras_ddt_parse_tok_num);return;}
}
- printf("-->%s<-- [line %d, pos %d]\n",gras_ddt_parse_text,gras_ddt_parse_line_pos,gras_ddt_parse_char_pos);
+ printf("-->%s<-- [line %d, pos %d]\n",yytext,gras_ddt_parse_line_pos,gras_ddt_parse_char_pos);
return;
}
int gras_ddt_parse_lex_n_dump(void) {
gras_ddt_parse_tok_num = gras_ddt_parse_lex();
- // gras_ddt_parse_char_pos += strlen(gras_ddt_parse_text);
+ // gras_ddt_parse_char_pos += strlen(yytext);
return(gras_ddt_parse_tok_num);
}
void gras_ddt_parse_pointer_init(const char *file) {
file_to_parse = fopen(file,"r");
- input_buffer = gras_ddt_parse__create_buffer(file_to_parse,10 );
- gras_ddt_parse__switch_to_buffer(input_buffer);
+ input_buffer = yy_create_buffer( file_to_parse, 10 );
+ yy_switch_to_buffer(input_buffer);
gras_ddt_parse_line_pos = 1;
gras_ddt_parse_char_pos = 0;
}
void gras_ddt_parse_pointer_close(void) {
- gras_ddt_parse__delete_buffer(input_buffer);
+ yy_delete_buffer(input_buffer);
fclose(file_to_parse);
gras_ddt_parse_line_pos = 1;
void gras_ddt_parse_pointer_string_init(const char *string_to_parse) {
- input_buffer = gras_ddt_parse__scan_string (string_to_parse);
- gras_ddt_parse__switch_to_buffer(input_buffer);
+ input_buffer = yy_scan_string (string_to_parse);
+ definition = string_to_parse;
+ yy_switch_to_buffer(input_buffer);
gras_ddt_parse_line_pos = 1;
gras_ddt_parse_char_pos = 0;
}
void gras_ddt_parse_pointer_string_close(void) {
- gras_ddt_parse__delete_buffer(input_buffer);
+ yy_delete_buffer(input_buffer);
gras_ddt_parse_line_pos = 1;
gras_ddt_parse_char_pos = 0;
// Local variables:
// mode: c
// End:
-
