CODE:

%{

#pragma warning(disable:4996)
#include 
#include 
#include 

#define YYSTYPE double

FILE * input_fp;

int yylex(void);
void yyerror(const char* s);

%}

%token NUM

%%

input   : /* empty */
        | input line
;

line    : '\n'
        | expr '\n'
                { printf("\t%.10g\n", $1); }
;

expr    : NUM
        | expr expr '+'
                { $$ = $1 + $2;            }
        | expr expr '-'
                { $$ = $1 - $2;            }
        | expr expr '*'
                { $$ = $1 * $2;            }
        | expr expr '/'
                { $$ = $1 / $2;            }
        | expr expr '^'
                { $$ = pow($1, $2);        }
        | expr 'n'
                { $$ = -$1;                }
;

%%

/* トークン解析関数 */
int yylex(void)
{
  int c;

  /* 空白、タブは飛ばす */
  while(true)
  {
  	c = getc(input_fp);
  	if(c==EOF) return 0;
  	if(c!=' ' && c!='\t') break;;
  }
    
  /* 数値を切り出す */
  if(c == '.' || isdigit(c))
  {
    ungetc(c, input_fp);
    fscanf(input_fp, "%lf", &yylval);
    return NUM;
  }

  /* 文字を返す */
  return c;
}

/* エラー表示関数 */
void yyerror(const char* s)
{
  fprintf(stderr, "error: %s\n", s);
}

int main(int argnum, const char * args[])
{
	if(argnum<=1) return 0;
	input_fp = fopen(args[1], "r");
	if(input_fp==0/*null_ptr*/)
	{
		printf("error: failed to open %s\n", args[1]);
		return -1;
	}

	/* 構文解析関数 yyparse */
	auto result = yyparse();
  
	if(input_fp != 0/*null_ptr*/)
	{
		fclose(input_fp);
		input_fp = 0/*null_ptr*/;
	}
	
	getchar();
	
	return 0;
}