55 lines
1.3 KiB
Plaintext
55 lines
1.3 KiB
Plaintext
%{
|
|
/*
|
|
** A scanner for EMP-style numeric ranges
|
|
*/
|
|
|
|
#define YYSTYPE char *
|
|
#define yylval cube_yylval
|
|
|
|
#include <stdio.h>
|
|
#include "cubeparse.h"
|
|
#include "buffer.h"
|
|
|
|
#define YY_NO_UNPUT 1
|
|
#undef yywrap
|
|
|
|
/* flex screws a couple symbols when used with the -P otion; fix those */
|
|
#define YY_DECL int cube_yylex YY_PROTO(( void )); \
|
|
int cube_yylex YY_PROTO(( void ))
|
|
|
|
/* redefined YY_INPUT reads byte-wise from the memory area defined in buffer.c */
|
|
#undef YY_INPUT
|
|
#define YY_INPUT(buf,result,max_size) \
|
|
{ \
|
|
int c = read_parse_buffer(); \
|
|
result = (c == '\0') ? YY_NULL : (buf[0] = c, 1); \
|
|
}
|
|
|
|
void cube_flush_scanner_buffer(void);
|
|
%}
|
|
|
|
n [0-9]+
|
|
integer [+-]?{n}
|
|
real [+-]?({n}\.{n}?)|(\.{n})
|
|
float ({integer}|{real})([eE]{integer})?
|
|
|
|
%%
|
|
|
|
{float} yylval = yytext; return FLOAT;
|
|
\[ yylval = "("; return O_BRACKET;
|
|
\] yylval = ")"; return C_BRACKET;
|
|
\( yylval = "("; return O_PAREN;
|
|
\) yylval = ")"; return C_PAREN;
|
|
\, yylval = ")"; return COMMA;
|
|
[ ]+ /* discard spaces */
|
|
. return yytext[0]; /* alert parser of the garbage */
|
|
|
|
%%
|
|
|
|
int cube_yylex();
|
|
|
|
void cube_flush_scanner_buffer(void) {
|
|
fprintf(stderr, "cube_flush_scanner_buffer called\n");
|
|
YY_FLUSH_BUFFER;
|
|
}
|