LatAnalyze/latan/IoAsciiParser.ypp

%{
    #include <iostream>
    #include <sstream>
    #include <cstring>
    #include <latan/Global.hpp>
	#include <latan/IO.hpp>
    #include <latan/Sample.hpp>

    using namespace std;
    using namespace Latan;
%}

%pure-parser
%name-prefix="_ioAscii_"
%locations
%defines
%error-verbose
%parse-param { Latan::AsciiParserState* state }
%initial-action {yylloc.last_column = 0;}
%lex-param { void* scanner }

%union
{
	int     val_int;
	double  val_double;
    char    val_char;
    char    val_str[256];
}

%token              CLOSE
%token <val_char>   ERR
%token <val_double> FLOAT
%token <val_int>    INT
%token <val_str>    ID
%token              MAT
%token              OPEN

%{
	int _ioAscii_lex(YYSTYPE* lvalp, YYLTYPE* llocp, void* scanner);

	void _ioAscii_error(YYLTYPE* locp, AsciiParserState* state, const char* err)
	{
        stringstream buf;
        
        buf << *state->streamName << ":" << locp->first_line << ":"\
            << locp->first_column << ": " << err;
        LATAN_ERROR(Parsing, buf.str());
	}

	#define scanner state->scanner
%}

%%

datas:
      /* empty string */
    | datas mat
	;

mat:
      OPEN MAT ID INT floats CLOSE MAT
    {
        const int nRow = state->doubleBuf.size()/$INT, nCol = $INT;
        (*state->data)[$ID] = new DMat(nRow,nCol);
        DMat &M = static_cast<DMat &>(*((*state->data)[$ID]));
        int r,i,j;
        
        r = 0;
        while (!state->doubleBuf.empty())
        {
            j = r % nCol;
            i = (r - j)/nCol;
            M(i,j) = state->doubleBuf.top();
            state->doubleBuf.pop();
            ++r;
        }
    }
    ;

floats:
      FLOAT floats {state->doubleBuf.push($1);}
    | INT   floats {state->doubleBuf.push(static_cast<double>($1));}
    | FLOAT {state->doubleBuf.push($1);}
    | INT   {state->doubleBuf.push(static_cast<double>($1));}
    ;