summaryrefslogtreecommitdiff
path: root/i/marvin/src/parser/yylexer.ll
blob: 34157b9a3f90ec0c5a8ac970770e5a6fa90ba51f (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
%{
// marvin - programme du robot 2006. {{{
//
// Copyright (C) 2006 Nicolas Schodet
//
// Robot APB Team/Efrei 2006.
//        Web: http://assos.efrei.fr/robot/
//      Email: robot AT efrei DOT fr
//
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
// 
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
//
// }}}
#include "parser/parser.hh"
#include "yyparser.hh"
%}

%option reentrant
%option header-file="yylexer.hh"
%option outfile="yylexer.cc"
%option bison-bridge
%option noyywrap nodefault nounput

%x strst

INTDEC		[+-]?[0-9]+
INTHEX		"0x"[0-9a-fA-F]+
INTNUM		{INTDEC}|{INTHEX}
DOUBLE1		[+-]?\.[0-9]+
DOUBLE2		[+-]?[0-9]+\.[0-9]*
DOUBLENUM	{DOUBLE1}|{DOUBLE2}

%%

"true"|"on"	{
	yylval->b = true;
	return BOOLEAN;
}

"false"|"off"	{
	yylval->b = false;
	return BOOLEAN;
}

[a-zA-Z][_a-zA-Z0-9.-]*	{
	yylval->s = new std::string (yytext);
	return ID;
}

{DOUBLENUM}	{
	yylval->d = strtod (yytext, 0);
	return DOUBLE;
}

{INTNUM} {
	yylval->i = strtol (yytext, 0, 0);
	return INT;
}

\"		{
	BEGIN(strst);
	yyextra->tmp.clear ();
}

\n		{
	yyextra->line++;
	return SEP;
}

;		{
	return SEP;
}

[=()]		return yytext[0];

[ \t]+		/* Skip. */
#.*		/* Skip comments. */

.		{
	yyextra->error (std::string ("unexpected character \'") \
			+ yytext[0] + '\'');
	return UNKNOWN;
}

<strst>\"	{
	BEGIN (INITIAL);
	yylval->s = new std::string (yyextra->tmp);
	return STRING;
}

<strst>\\n	yyextra->tmp += '\n';
<strst>\\r	yyextra->tmp += '\r';
<strst>\\t	yyextra->tmp += '\t';
<strst>\\.	yyextra->tmp += yytext[1];
<strst>\\\n	{
	yyextra->line++;
	yyextra->tmp += yytext[1];
}
<strst>.	yyextra->tmp += yytext[0];
<strst>\n	{
	yyextra->error ("unexpected end of line inside string");
	yyextra->line++;
	return UNKNOWN;
}

%%

/* vim:ft=lex:
*/