mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-12 02:40:22 +08:00
9fe1ada847
Fix double freeing of memory in case when lexical error is detected by parser: - revert previous fix, instead nullify the global buffer after its freeing in ExprIntrp_stop_string(). Added new QA command CR23403 and test case
75 lines
2.2 KiB
Plaintext
Executable File
75 lines
2.2 KiB
Plaintext
Executable File
/*
|
|
/* Copyright (c) 1997-1999 Matra Datavision
|
|
Copyright (c) 1999-2012 OPEN CASCADE SAS
|
|
|
|
The content of this file is subject to the Open CASCADE Technology Public
|
|
License Version 6.5 (the "License"). You may not use the content of this file
|
|
except in compliance with the License. Please obtain a copy of the License
|
|
at http://www.opencascade.org and read it completely before using this file.
|
|
|
|
The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
|
|
main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
|
|
|
|
The Original Code and all software distributed under the License is
|
|
distributed on an "AS IS" basis, without warranty of any kind, and the
|
|
Initial Developer hereby disclaims all such warranties, including without
|
|
limitation, any warranties of merchantability, fitness for a particular
|
|
purpose or non-infringement. Please see the License for the specific terms
|
|
and conditions governing the rights and limitations under the License.
|
|
|
|
*/
|
|
|
|
%option yywrap
|
|
%{
|
|
#include <ExprIntrp.tab.h>
|
|
#define YY_SKIP_YYWRAP
|
|
|
|
static YY_BUFFER_STATE ExprIntrp_bufstring;
|
|
|
|
void ExprIntrp_SetResult();
|
|
void ExprIntrp_SetDegree();
|
|
|
|
void ExprIntrp_start_string(char* str)
|
|
{
|
|
ExprIntrp_bufstring = ExprIntrp_scan_string(str);
|
|
}
|
|
|
|
void ExprIntrp_stop_string()
|
|
{
|
|
ExprIntrp_delete_buffer(ExprIntrp_bufstring);
|
|
ExprIntrp_bufstring = (YY_BUFFER_STATE) 0;
|
|
}
|
|
|
|
int yywrap()
|
|
{
|
|
return 1;
|
|
}
|
|
|
|
%}
|
|
%%
|
|
" " {;}
|
|
"+" {return(SUMOP) ;}
|
|
"-" {return(MINUSOP) ;}
|
|
"/" {return(DIVIDEOP) ;}
|
|
"^" {return(EXPOP) ;}
|
|
"**" {return(EXPOP) ;}
|
|
"*" {return(MULTOP) ;}
|
|
"(" {return(PARENTHESIS);}
|
|
"[" {return(BRACKET);}
|
|
")" {return(ENDPARENTHESIS);}
|
|
"]" {return(ENDBRACKET);}
|
|
"," {return(COMMA);}
|
|
"@" {return(DIFFERENTIAL);}
|
|
"<-" {return(ASSIGNOP);}
|
|
"=" {return(EQUALOP);}
|
|
"Deassign" {return(DEASSIGNKEY);}
|
|
"Deriv" {return(DERIVKEY);}
|
|
"Const" {return(CONSTKEY);}
|
|
"Sum" {return(SUMKEY);}
|
|
"Prod" {return(PRODKEY);}
|
|
[0-9.]+e[+|-]?[0-9]+ {ExprIntrp_SetResult(); return(VALUE);}
|
|
[0-9.]+ {ExprIntrp_SetResult(); return(VALUE);}
|
|
[a-zA-Z][a-zA-Z0-9_]* {ExprIntrp_SetResult(); return(IDENTIFIER);}
|
|
";" {return(RELSEPARATOR);}
|
|
"'"+ {ExprIntrp_SetDegree();return(DERIVATE);}
|