blob: 073a349658be6a322b92d9164c833ee1395d4271 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
%{
#define yylval kiotraderlval
#define yywrap kiotraderwrap
#include "yacc.h"
#include <string.h>
#include <stdlib.h>
#define YY_NO_UNPUT
char* KTraderParse_putSymbol( char *_name );
char *KTraderParse_putSymbolInBrackets( char *_name );
char* KTraderParse_putString( char *_name );
int yywrap();
int kiotraderlex(void);
void KTraderParse_initFlex( const char *_code );
%}
DIGIT [0-9]
%%
"==" { return EQ; }
"!=" { return NEQ; }
"<" { return LE; }
">" { return GR; }
"<=" { return LEQ; }
">=" { return GEQ; }
"not" { return NOT; }
"and" { return AND; }
"or" { return OR; }
"in" { return TOKEN_IN; }
"exist" { return EXIST; }
"max" { return MAX; }
"min" { return MIN; }
"~"|"/"|"+"|"-"|"="|"*"|"("|")"|"," { yylval.name = 0L; return (int)(*yytext); }
"TRUE" { yylval.valb = 1; return VAL_BOOL; }
"FALSE" { yylval.valb = 0; return VAL_BOOL; }
"'"[^']*"'" { yylval.name = KTraderParse_putString( yytext ); return VAL_STRING; }
"-"{DIGIT}+ { yylval.vali = atoi( yytext ); return VAL_NUM; }
{DIGIT}+ { yylval.vali = atoi( yytext ); return VAL_NUM; }
{DIGIT}*"\."{DIGIT}+ { yylval.vald = atof( yytext ); return VAL_FLOAT; }
\[[a-zA-Z][a-zA-Z0-9\-]*\] { yylval.name = KTraderParse_putSymbolInBrackets( yytext ); return VAL_ID; }
[a-zA-Z][a-zA-Z0-9]* { yylval.name = KTraderParse_putSymbol( yytext ); return VAL_ID; }
[ \t\n]+ /* eat up whitespace */
. { printf( "Unrecognized character: %s\n", yytext ); }
%%
char* KTraderParse_putSymbolInBrackets( char *_name )
{
int l = strlen( _name )-1;
char *p = (char *)malloc( l );
if (p != NULL)
{
strncpy( p, _name+1, l-1 );
p[l-1] = 0;
}
return p;
}
char *KTraderParse_putSymbol( char *_name )
{
char *p = (char*)malloc( strlen( _name ) + 1 );
if (p != NULL)
{
strcpy( p, _name );
}
return p;
}
char* KTraderParse_putString( char *_str )
{
int l = strlen( _str );
char *p = (char*)malloc( l );
char *s = _str + 1;
char *d = p;
if (p == NULL)
return NULL;
while ( s != _str + l - 1 )
{
if ( *s != '\\' )
*d++ = *s++;
else
{
s++;
if ( s != _str + l - 1 )
{
if ( *s == '\\' )
*d++ = '\\';
else if ( *s == 'n' )
*d++ = '\n';
else if ( *s == 'r' )
*d++ = '\r';
else if ( *s == 't' )
*d++ = '\t';
s++;
}
}
}
*d = 0;
return p;
}
void KTraderParse_initFlex( const char *_code )
{
yy_switch_to_buffer( yy_scan_string( _code ) );
}
int yywrap()
{
yy_delete_buffer( YY_CURRENT_BUFFER );
return 1;
}
|
