sscan.l

%{
#include <stdio.h>
#include "string.h"
#include "sparse.h"
#include "sbuffer.h"

#define YY_DECL int sphere_yylex(void)
YY_DECL;
#define yylval sphere_yylval

#undef YY_INPUT
#define YY_NO_INPUT
#define YY_INPUT(buf, result, max_size) \
{ \
	result = get_buffer(buf, max_size); \
	result = (result > 0) ? (result) : (YY_NULL); \
}

void sphere_flush_scanner_buffer(void)
{
	YY_FLUSH_BUFFER;
}
%}

%option 8bit
%option never-interactive
%option nounput
%option noyywrap

int				[0-9]+
sign			[+-]
real			({int})?\.({int})
float			({int}|{real})([eE]{sign}{int})?

%%
{sign}			sphere_yylval.i = (strcmp("-", yytext)) ? (1) : (-1); return TOK_SIGN;
{int}			sphere_yylval.i = atoi(yytext); return TOK_INT;
{float}			sphere_yylval.d = atof(yytext); return TOK_FLOAT;
[x-zX-Z]{3}		memcpy(&sphere_yylval.c[0], yytext, 3); return EULERAXIS;
h				return HOUR;
d				return DEG;
'				return MIN;
m				return MIN;
\"				return SEC;
s				return SEC;
,				return COMMA;
\<				return OPENCIRC;
\>				return CLOSECIRC;
\(				return OPENPOINT;
\)				return CLOSEPOINT;
\{				return OPENARR;
\}				return CLOSEARR;
[ \n\t]+		/* discard spaces */
.				/* alert parser of the garbage */
%%