I want this code to simply put some strings into a list structure,
but in my test output, the early strings contain all of the strings
that are supposed to be separate nodes, as well as characters that
the lexer was supposed to only return as tokens, or ignore. Will
someone point out what I'm doing wrong with this?
<SAMPLE_OUTPUT>
__list parser__12:22:14__brunoise-tigre__./list-parser-y.exe
a b c : 1 2 3 ;
STRING
list_base->current:a:
list_end->current:a:
STRING
yylval.string_item:b:
list_base->current:a b:
list_end->current:b:
STRING
yylval.string_item:c:
list_base->current:a b c:
list_end->current:c:
COLON
STRING
list_base->current:1:
list_end->current:1:
STRING
yylval.string_item:2:
list_base->current:1 2:
list_end->current:2:
STRING
yylval.string_item:3:
list_base->current:1 2 3:
list_end->current:3:
SEMI-COLON
FINITO
list_end->current:(null):
list_base->rest->current:2 3 ;:
list_base->current:1 2 3 ;:
yylval->string_item:3 ;:
current_types->current:a b c : 1 2 3 ;:
1 2 3 ;:
2 3 ;:
3 ;:
</SAMPLE_OUTPUT>
<LEXER>
%{
#include "y.tab.h"
%}
end "@end"
colon \:
semi-colon \;
string [^ \t\n]+
whitespace [ \t\n]
%%
{end} {printf("END\n");return END;}
{whitespace} ;
{colon} {printf("COLON\n");return ':';}
{semi-colon} {printf("SEMI-COLON\n");return ';';}
{string} {printf("STRING\n");yylval.string_item = yytext;return STRING;}
%%
</LEXER>
<GRAMMAR>
%{
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
struct string_list{
char * current;
struct string_list * rest;};
struct typed_list{
struct string_list * types;
struct string_list * names;};
struct string_list *current_types;
struct string_list *current_names;
struct string_list *list_base;
struct string_list *list_end;
struct string_list *temp_list1;
struct typed_list *parsed_type_list;
%}
%union{
struct typed_list * parsed_type_list_item;
struct string_list * string_list_item;
char * string_item;}
%token END
%token<string_item> STRING
%%
list : type_list string_list ';' {printf("FINITO\n");return;}
;
string_list : STRING {
list_base = (struct string_list *) malloc(sizeof(struct
string_list));
list_end = (struct string_list *) malloc(sizeof(struct string_list));
char * temp = (char *) malloc(sizeof(char));
temp = $1;
list_end->current = temp;
temp_list1 = (struct string_list *) malloc(sizeof(struct
string_list));
list_end->rest = temp_list1;
list_base = list_end;
printf("list_base->current:%s:\n", list_base->current);
printf("list_end->current:%s:\n", list_end->current);
list_end = list_end->rest;
}
| string_list STRING {
printf("yylval.string_item:%s:\n", yylval.string_item);
char * temp = (char *) malloc(sizeof(char));
temp = $2;
list_end->current = temp;
temp_list1 = (struct string_list *) malloc(sizeof(struct
string_list));
list_end->rest = temp_list1;
printf("list_base->current:%s:\n", list_base->current);
printf("list_end->current:%s:\n", list_end->current);
list_end = list_end->rest;
}
;
type_list : string_list ':' {
current_types = (struct string_list *) malloc(sizeof(struct
string_list));
current_types = list_base;}
;
%%
extern FILE * yyin;
main(){
yyparse();
printf("list_end->current:%s:\n", list_end->current);
printf("list_base->rest->current:%s:\n", list_base->rest->current);
printf("list_base->current:%s:\n", list_base->current);
printf("yylval->string_item:%s:\n", yylval.string_item);
printf("current_types->current:%s:\n", current_types->current);
while(list_base->rest!=NULL)
{
printf("%s:\n", list_base->current);
list_base=list_base->rest;
}
}
yyerror(s)
char * s;
{
fprintf(stderr, "%s\n", s);
}
</GRAMMAR>
Dustin Kick
_______________________________________________
[email protected] http://lists.gnu.org/mailman/listinfo/help-bison
