Jeff Young
b7d41e0e56
Also includes fixes for instance data and resolving of textvar references. Also includes virtual d'tors for IBIS parser to get rid of all the compile warnings on CLang. Fixes https://gitlab.com/kicad/code/kicad/issues/12357
71 lines
2.8 KiB
Plaintext
71 lines
2.8 KiB
Plaintext
/*
|
|
This file is part of libeval, a simple math expression evaluator
|
|
|
|
Copyright (C) 2017 Michael Geselbracht, mgeselbracht3@gmail.com
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
%token_type { numEval::TokenType }
|
|
%extra_argument { NUMERIC_EVALUATOR* pEval }
|
|
|
|
%nonassoc VAR ASSIGN SEMCOL.
|
|
%left PLUS MINUS.
|
|
%right UNIT.
|
|
%left DIVIDE MULT.
|
|
|
|
%include {
|
|
#include <assert.h>
|
|
#include <libeval/numeric_evaluator.h>
|
|
}
|
|
|
|
%syntax_error {
|
|
pEval->parseError("Syntax error");
|
|
}
|
|
|
|
%parse_accept {
|
|
pEval->parseOk();
|
|
}
|
|
|
|
main ::= in.
|
|
|
|
/* Allow multiple statements in input string: x=1; y=2 */
|
|
in ::= stmt.
|
|
in ::= in stmt.
|
|
|
|
/* A statement can be empty, an expr or an expr followed by ';' */
|
|
stmt ::= ENDS.
|
|
stmt ::= expr(A) ENDS. { pEval->parseSetResult(A.valid ? A.dValue : NAN); }
|
|
stmt ::= expr SEMCOL. { pEval->parseSetResult(NAN); }
|
|
|
|
expr(A) ::= VALUE(B). { A.dValue = B.dValue; A.valid=true; }
|
|
expr(A) ::= expr(B) UNIT(C). { A.dValue = B.dValue * C.dValue; A.valid=B.valid; }
|
|
expr(A) ::= MINUS expr(B). { A.dValue = -B.dValue; A.valid=B.valid; }
|
|
expr(A) ::= PLUS expr(B). { A.dValue = B.dValue; A.valid=B.valid; }
|
|
expr(A) ::= VAR(B). { A.dValue = pEval->GetVar(B.text); A.valid=true; }
|
|
expr(A) ::= VAR(B) ASSIGN expr(C). { pEval->SetVar(B.text, C.dValue); A.dValue = C.dValue; A.valid=false; }
|
|
expr(A) ::= expr(B) PLUS expr(C). { A.dValue = B.dValue + C.dValue; A.valid=C.valid; }
|
|
expr(A) ::= expr(B) MINUS expr(C). { A.dValue = B.dValue - C.dValue; A.valid=C.valid; }
|
|
expr(A) ::= expr(B) MULT expr(C). { A.dValue = B.dValue * C.dValue; A.valid=C.valid; }
|
|
expr(A) ::= expr(B) DIVIDE expr(C). {
|
|
if( C.dValue != 0.0 )
|
|
A.dValue = B.dValue / C.dValue;
|
|
else
|
|
pEval->parseError( "Divide by zero" );
|
|
|
|
A.valid = C.valid;
|
|
}
|
|
expr(A) ::= PARENL expr(B) PARENR. { A.dValue = B.dValue; A.valid = B.valid; }
|
|
|