152 lines
3.3 KiB
Plaintext
152 lines
3.3 KiB
Plaintext
%{
|
|
|
|
/* The lexer */
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include "lwin_wkt.h"
|
|
#include "lwin_wkt_parse.h"
|
|
#include "lwgeom_log.h"
|
|
|
|
static YY_BUFFER_STATE wkt_yy_buf_state;
|
|
|
|
/*
|
|
* Handle errors due to unexpected junk in WKT strings.
|
|
*/
|
|
static void wkt_lexer_unknown()
|
|
{
|
|
/* Set the global error state */
|
|
global_parser_result.errcode = PARSER_ERROR_OTHER;
|
|
global_parser_result.message = parser_error_messages[PARSER_ERROR_OTHER];
|
|
global_parser_result.errlocation = wkt_yylloc.last_column;
|
|
}
|
|
|
|
/*
|
|
* This macro is magically run after a rule is found but before the main
|
|
* action is run. We use it to update the parse location information
|
|
* so we can report on where things fail. Also optionally to dump
|
|
* debugging info.
|
|
*/
|
|
#define YY_USER_ACTION do { \
|
|
wkt_yylloc.first_line = wkt_yylloc.last_line = yylineno; \
|
|
wkt_yylloc.first_column = wkt_yylloc.last_column; \
|
|
wkt_yylloc.last_column += yyleng; \
|
|
LWDEBUGF(5,"lex: %s", wkt_yytext); \
|
|
} while (0);
|
|
|
|
/*
|
|
* Ensure we have a definition of NAN to use when encountering
|
|
* NAN tokens.
|
|
*/
|
|
#ifndef _GNU_SOURCE
|
|
#define _GNU_SOURCE
|
|
#endif
|
|
#include <math.h>
|
|
#ifndef NAN
|
|
#define NAN 0.0/0.0
|
|
#endif
|
|
|
|
%}
|
|
|
|
%option prefix="wkt_yy"
|
|
%option nounput
|
|
%option noinput
|
|
%option never-interactive
|
|
%option outfile="lwin_wkt_lex.c"
|
|
%option noyywrap
|
|
/* Suppress the default implementations. */
|
|
%option noyyalloc noyyrealloc noyyfree
|
|
|
|
%%
|
|
|
|
-?(([0-9]+\.?)|([0-9]*\.?[0-9]+)([eE][-+]?[0-9]+)?)[ \,\)\t\n\r] {
|
|
LWDEBUG(5,"DOUBLE");
|
|
wkt_yylval.doublevalue = atof(wkt_yytext);
|
|
yyless(wkt_yyleng-1);
|
|
return DOUBLE_TOK;
|
|
}
|
|
|
|
([Nn][Aa][Nn])[ \,\)\t\n\r] {
|
|
LWDEBUG(5,"DOUBLE NAN");
|
|
wkt_yylval.doublevalue = NAN;
|
|
yyless(wkt_yyleng-1);
|
|
return DOUBLE_TOK;
|
|
}
|
|
|
|
SRID=-?[0-9]+ {
|
|
LWDEBUG(5,"SRID");
|
|
wkt_yylval.integervalue = wkt_lexer_read_srid(wkt_yytext);
|
|
return SRID_TOK;
|
|
}
|
|
|
|
GEOMETRYCOLLECTION { return COLLECTION_TOK; }
|
|
MULTISURFACE { return MSURFACE_TOK; }
|
|
MULTIPOLYGON { return MPOLYGON_TOK; }
|
|
MULTICURVE { return MCURVE_TOK; }
|
|
MULTILINESTRING { return MLINESTRING_TOK; }
|
|
MULTIPOINT { return MPOINT_TOK; }
|
|
CURVEPOLYGON { return CURVEPOLYGON_TOK; }
|
|
POLYGON { return POLYGON_TOK; }
|
|
COMPOUNDCURVE { return COMPOUNDCURVE_TOK; }
|
|
CIRCULARSTRING { return CIRCULARSTRING_TOK; }
|
|
LINESTRING { return LINESTRING_TOK; }
|
|
POLYHEDRALSURFACE { return POLYHEDRALSURFACE_TOK; }
|
|
TRIANGLE { return TRIANGLE_TOK; }
|
|
TIN { return TIN_TOK; }
|
|
POINT { return POINT_TOK; }
|
|
EMPTY { return EMPTY_TOK; }
|
|
|
|
Z|M|ZM {
|
|
LWDEBUG(5,"DIMENSIONALITY");
|
|
wkt_yylval.stringvalue = wkt_yytext;
|
|
return DIMENSIONALITY_TOK;
|
|
}
|
|
|
|
\( { LWDEBUG(5,"LBRACKET"); return LBRACKET_TOK; }
|
|
\) { LWDEBUG(5,"RBRACKET"); return RBRACKET_TOK; }
|
|
, { LWDEBUG(5,"COMMA"); return COMMA_TOK; }
|
|
\; { LWDEBUG(5,"SEMICOLON"); return SEMICOLON_TOK; }
|
|
|
|
[ \t\n\r]+ { /* ignore whitespace */ LWDEBUG(5,"WHITESPACE"); }
|
|
|
|
. { /* Error out and stop parsing on unknown/unexpected characters */
|
|
LWDEBUG(5,"UNKNOWN");
|
|
wkt_lexer_unknown();
|
|
yyterminate();
|
|
}
|
|
|
|
%%
|
|
|
|
void *wkt_yyalloc (yy_size_t size )
|
|
{
|
|
return (void *) lwalloc( size );
|
|
}
|
|
|
|
void *wkt_yyrealloc (void * ptr, yy_size_t size )
|
|
{
|
|
return (void *) lwrealloc( (char *) ptr, size );
|
|
}
|
|
|
|
void wkt_yyfree (void * ptr )
|
|
{
|
|
lwfree( (char *) ptr ); /* see wkt_yyrealloc() for (char *) cast */
|
|
}
|
|
|
|
/*
|
|
* Set up the lexer!
|
|
*/
|
|
void wkt_lexer_init(char *src)
|
|
{
|
|
yy_init_globals();
|
|
wkt_yy_buf_state = wkt_yy_scan_string(src);
|
|
}
|
|
|
|
/*
|
|
* Clean up the lexer!
|
|
*/
|
|
void wkt_lexer_close()
|
|
{
|
|
wkt_yy_delete_buffer(wkt_yy_buf_state);
|
|
}
|
|
|