blob: 33a3c61ac01c1d1dc1273fef4d17deff3ff75403 (
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
|
%{
#include "obcl.h"
#include "parse.h"
%}
%option yylineno
DGT [0-9]
ID [a-zA-Z_][a-zA-Z_\.\-0-9]*
/* string bummy */
%x str
%%
char str_buf[1024];
char *str_buf_ptr;
int str_char;
/* begin a string */
[\"\'] {
str_buf_ptr = str_buf;
str_char = yytext[0];
BEGIN(str);
}
/* end a string */
<str>[\"\'] {
if (yytext[0] == str_char) {
BEGIN(INITIAL);
*str_buf_ptr = '\0';
yylval.string = g_strdup(str_buf);
return TOK_STRING;
} else {
*str_buf_ptr++ = yytext[0];
}
}
/* can't have newlines in strings */
<str>\n {
printf("Error: Unterminated string constant.\n");
BEGIN(INITIAL);
}
/* handle \" and \' */
<str>"\\"[\"\'] {
if (yytext[1] == str_char)
*str_buf_ptr++ = yytext[1];
else {
*str_buf_ptr++ = yytext[0];
*str_buf_ptr++ = yytext[1];
}
}
/* eat valid string contents */
<str>[^\\\n\'\"]+ {
char *yptr = yytext;
while (*yptr) {
*str_buf_ptr++ = *yptr++;
}
}
/* numberz */
{DGT}+ {
yylval.num = atof(yytext);
return TOK_NUM;
}
/* real numbers */
{DGT}+"."{DGT}* {
yylval.num = atof(yytext);
return TOK_NUM;
}
/* identifiers -- names without spaces and other crap in them */
{ID} {
yylval.string = g_strdup(yytext);
return TOK_ID;
}
/* skip comments */
"#".*\n ;
/* skip other whitespace */
[ \n\t]+ ;
. { return yytext[0]; }
%%
|
