Доработка калькулятора в bison/yacc.

%{
#define    YYSTYPE    double
%}
%token DATA
%left '+' '-'
%left '*' '/'
%%
spisok :    /* Їгбв® */
  | spisok '\n'
  | spisok wyrag '\n' {printf("\t%g\n",$2);}
  ;
wyrag : DATA         { $$=$1; }
  | wyrag '+' wyrag    { $$=$1+$3; }
  | wyrag '-' wyrag    { $$=$1-$3; }
  | wyrag '*' wyrag    { $$=$1*$3; }
  | wyrag '/' wyrag    { $$=$1/$3; }
  | '(' wyrag ')'    { $$=$2; }
  ;
%%
#include <stdio.h>
#include <ctype.h>
main()
{
    yyparse();
}
yyerror(s)
char *s;
{
    fprintf(stderr,"%s\n",s);
}
yylex()
{
    int c;
    
    do{
        c=getchar();
    }while(c==' ' || c=='\t');
    
    if(c==EOF)
        return 0;
    if(c=='.' || isdigit(c)){
        ungetc(c,stdin);
        scanf("%lf",&yylval);
        return DATA;
    }
    
    return c;
}

#include "simplex.h"
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <string.h>
#define mp 4
#define np 5
int main()
{
int i,j;
int m=3,n=3;
char *e;    
double **p;
double h[mp][np]=
{{4,5,4,0,return_znak("->max")},//целевая функция
{2,3,6,240,return_znak("<=")},
{4,2,4,200,return_znak("<=")},
{4,6,8,160,return_znak("<=")}};
p = (double**)malloc(mp * sizeof(double*));
for(i=0;i<mp;i++)
p[i]=(double *)malloc(np * sizeof(double));
for(i=0;i<mp;i++)
for(j=0;j<np;j++)
p[i][j]=h[i][j];
show_dan(p,m,n);//вывод исходных данных
printf("\n");
e=sipmlexx(p,m,n);
vivod_out(e);//вывод итоговых данных
free(p);
free(e);    
    return 0;
    }