ギャオスと仲間たちコミュのプログラム言語論

プログラム言語論の課題を一応作ってみましたが、実際こんなのでいいのか微妙です。
誰かコメント入れてください。


%{
#define　YYSTYPE　double
struct　NODE{
　　int　type;
　　double　value;
　　int　flg;
　　struct　NODE　*next;
　　struct　NODE　*back;
};
%}
%left　'+'　'-'
%left　'*'　'/'
%right　UNARYMINUS
%%
lines:　/*　empty　*/
　|　lines　'\n'
　|　lines　expr　'\n'　{　view();printf("\t=　%f\n",　$2);KILL();}
　;
expr:　number　{　$$　=　$1;addVALUE($1);}
　|　'-'　expr　%prec　UNARYMINUS　{　$$　=　-$2;}
　|　expr　'+'　expr　　　{　$$　=　$1　+　$3;addMARK(1,　$1,　$3);}
　|　expr　'-'　expr　　　{　$$　=　$1　-　$3;addMARK(2,　$1,　$3);}
　|　expr　'*'　expr　　　{　$$　=　$1　*　$3;addMARK(3,　$1,　$3);}
　|　expr　'/'　expr　　　{　$$　=　$1　/　$3;addMARK(4,　$1,　$3);}
　|　'('　expr　')'　　　　{　$$　=　$2;}
　;
number:　digit_sequence　{　$$　=　$1;　}
　;
digit_sequence:　digit　{　$$　=　$1;　}
　|　digit_sequence　digit　{　$$　=　10　*　$1　+　$2;　}
　;
digit:　'0'　{　$$　=　0;　}
　|　'1'　{　$$　=　1;　}
　|　'2'　{　$$　=　2;　}
　|　'3'　{　$$　=　3;　}
　|　'4'　{　$$　=　4;　}
　|　'5'　{　$$　=　5;　}
　|　'6'　{　$$　=　6;　}
　|　'7'　{　$$　=　7;　}
　|　'8'　{　$$　=　8;　}
　|　'9'　{　$$　=　9;　}
　;　
%%
#include　<stdio.h>
#include　<ctype.h>
static　struct　NODE　*start　=　NULL;
static　struct　NODE　*end　=　NULL;

int　main(int　argc,　char　*argv[])
{
　yyparse();
}

int　yylex()
{
　int　c　=　getchar();
　if(c　==　EOF)　{
　　return　0;
　}
　return　c;
}

int　yyerror(char　*s)
{
　fprintf(stderr,　"calc1:　%s\n",　s);
}

void　addVALUE(int　value){
　　struct　NODE*　node;
　　node　=　(struct　NODE　*)malloc(sizeof(struct　NODE));
　　node->value　=　value;
　　node->flg　=　0;
　　node->type　=　0;

　　node->next　=　start;
　　if　(node->next　!=　NULL){　node->next->back　=　node;　}
　　start　=　node;
　　node->back　=　NULL;

　　if　(node->next　==　NULL){　end　=　node;　}
}

void　addMARK(int　mark,　double　a,　double　b){
　　struct　NODE*　node;
　　struct　NODE*　search;
　　int　fa　=　0,　fb　=　0;
　　node　=　(struct　NODE　*)malloc(sizeof(struct　NODE));
　　node->value　=　0.0;
　　node->flg　=　0;
　　node->type　=　mark;

　　search　=　end;
　　for(;;){
　　　　if　(search->value　==　a　&&　search->flg　==　0　&&　fa　==　0)　{
　　　　　　fa　=　1;　search->flg　=　1;
　　　　}
　　　　if　(search->value　==　b　&&　search->flg　==　0　&&　fb　==　0)　{
　　　　　　fb　=　1;　search->flg　=　1;
　　　　}
　　　　if　(fa　==　1　&&　fb　==　1){　break;　}
　　　　if　(search->back　==　NULL){　break;　}
　　　　search　=　search->back;
　　}

　　if　(search　==　start)　{
　　　　node->next　=　start;
　　　　node->next->back　=　node;
　　　　start　=　node;
　　　　node->back　=　NULL;
　　}　else　{
　　　　node->back　=　search->back;
　　　　search->back　=　node;
　　　　node->back->next　=　node;
　　　　node->next　=　search;
　　}
}

void　view(){
　　struct　NODE*　node;
　　node　=　start;

　　while(node　!=　NULL){
　　　　switch(node->type){
　　　　　　case　0:
　　　　　　　　printf("%f　",　node->value);　break;

　　　　　　case　1:
　　　　　　　　printf("+　");　break;

　　　　　　case　2:
　　　　　　　　printf("-　");　break;

　　　　　　case　3:
　　　　　　　　printf("*　");　break;

　　　　　　case　4:
　　　　　　　　printf("/　");　break;
　　　　}
　　　　node　=　node->next;
　　}
　　printf("\n");
}

KILL()
{
　　struct　NODE*　node;
　　struct　NODE*　bnode;
　　node　=　start;

　　for(;;){
　　　　bnode　=　node->next;
　　　　free(node);
　　　　if(bnode　==　NULL){　break;　}
　　　　node　=　bnode;
　　　　bnode　=　node->next;
　　}
　　start　=　NULL;
　　end　=　NULL;
}
/*　eof　*/