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
121
122
123
124
125
126
127
128
129
|
/* Copyright (C) 1999-2018
* Smithsonian Astrophysical Observatory, Cambridge, MA, USA
* For conditions of distribution and use, see copyright notice in "copyright"
*/
%option noyywrap
%option caseless
%option never-interactive
%option c++
%{
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "util.h"
#include "saoparser.H"
extern YYSTYPE* saolval;
extern saoFlexLexer* saolexx;
%}
%x DISCARD
D [0-9]
E [Ee][+-]?{D}+
/* rules */
%%
<DISCARD>[\n] { // special case-- #\n
BEGIN INITIAL;
yyless(0); // put back the terminator
strcpy(saolval->str,""); // feed a blank string
return STRING;
}
<DISCARD>[^\n]* { // Discard reset of line
BEGIN INITIAL;
int ll = yyleng <(SAOBUFSIZE-1) ? yyleng:(SAOBUFSIZE-1);
strncpy(saolval->str,yytext,ll);
saolval->str[ll] = '\0';
return STRING;
}
annulus {return ANNULUS_;}
box {return BOX_;}
circle {return CIRCLE_;}
debug {return DEBUG_;}
ellipse {return ELLIPSE_;}
n {return N_;}
off {return OFF_;}
on {return ON_;}
point {return POINT_;}
polygon {return POLYGON_;}
rotbox {return ROTBOX_;}
version {return VERSION_;}
[+-]?{D}+ { // Integer
saolval->integer = atoi(yytext);
return INT;
}
[+-]?{D}+"."?({E})? |
[+-]?{D}*"."{D}+({E})? { // Real Number
saolval->real = atof(yytext);
return REAL;
}
\"[^\"\n]*\" |
\'[^\'\n]*\' { // Quoted String
int ll = (yyleng-2)<(SAOBUFSIZE-1)?(yyleng-2):(SAOBUFSIZE-1);
strncpy(saolval->str,yytext+1,ll); // skip the " "
saolval->str[ll] = '\0'; // Remove the '"'
return STRING;
}
\{[^\}\n]*\} { // Quoted String
int ll = (yyleng-2)<(SAOBUFSIZE-1)?(yyleng-2):(SAOBUFSIZE-1);
strncpy(saolval->str,yytext+1,ll); // skip the '{'
saolval->str[ll] = '\0'; // Remove the '}'
return STRING;
}
[0-9A-Za-z]+ { // General String
int ll = yyleng <(SAOBUFSIZE-1) ? yyleng:(SAOBUFSIZE-1);
strncpy(saolval->str,yytext,ll);
saolval->str[ll] = '\0';
return STRING;
}
[ \t]+ { // White Spaces
}
\r\n { // windows line feed
return '\n';
}
\\n { // fake line feed
return '\n';
}
\n { // linefeed
return '\n';
}
<<EOF>> { // eof
return EOF_;
}
. { // Else, return the char
return yytext[0];
}
%%
void saoDiscard(int doit)
{
if (saolexx)
saolexx->begin(DISCARD, doit);
}
void saoFlexLexer::begin(int which, int doit)
{
BEGIN which;
if (doit)
yyless(0);
}
|
