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
|
%{
// $Id$
// Sample lexical analysis for regular expression subset. Must be
// compiled with FLEX and an ANSI C++ compiler.
// Lexical tokens values defined by YACC.
#include "ace/Svc_Conf.h"
#include "ace/Svc_Conf_Tokens.h"
ACE_RCSID(ace, Svc_Conf_l, "$Id$")
// Keeps track of the current line for debugging output.
int yylineno = 1;
// Keeps track of the number of errors encountered so far.
int yyerrno = 0;
// Used to parse service configurator directives from a string rather
// than from a svc.conf file.
const ACE_TCHAR *yydirective = 0;
#define token(x) x
%}
%s PARAMETERS
%s NORMAL
letter [a-zA-Z_]
letter_or_digit [a-zA-Z_0-9]
digit [0-9]
ident {letter}{letter_or_digit}*
pathname ([A-Za-z\%]:)?[a-zA-Z_0-9/\%\.\\-]+
symbol [ -~]
string (\"{symbol}*\"|\'{symbol}*\')
white_space [ \t]
newline \n
other .
%%
^#{other}*$ ; /* EMPTY */
dynamic { return token (ACE_DYNAMIC); }
static { return token (ACE_STATIC); }
suspend { return token (ACE_SUSPEND); }
resume { return token (ACE_RESUME); }
remove { return token (ACE_REMOVE); }
stream { return token (ACE_USTREAM); }
Module { return token (ACE_MODULE_T); }
Service_Object { return token (ACE_SVC_OBJ_T); }
STREAM { return token (ACE_STREAM_T); }
active { return token (ACE_ACTIVE); }
inactive { return token (ACE_INACTIVE); }
":" { return token (ACE_COLON); }
"*" { return token (ACE_STAR); }
"(" { return token (ACE_LPAREN); }
")" { return token (ACE_RPAREN); }
"{" { return token (ACE_LBRACE); }
"}" { return token (ACE_RBRACE); }
{string} { // Check for first type of string, i.e.,
// "double quotes" delimited.
char *s = strrchr (yytext, '"');
if (s == 0)
// Check for second type of string, i.e.,
// 'single quotes' delimited.
s = strrchr (yytext, '\'');
ACE_ASSERT (s != 0);
// Eliminate the opening and closing double or
// single quotes.
*s = '\0';
yyleng -= 1;
yylval.ident_ = ace_obstack->copy (yytext + 1, yyleng);
return token (ACE_STRING); }
{ident} {
yylval.ident_ = ace_obstack->copy (yytext, yyleng);
return token (ACE_IDENT);
}
{pathname} {
yylval.ident_ = ace_obstack->copy (yytext, yyleng);
return token (ACE_PATHNAME);
}
{white_space}+ ; /* EMPTY */
{newline} { yylineno++; }
{other} { ACE_ERROR ((LM_ERROR,
ACE_TEXT ("unknown character = (%d"),
*yytext));
if (ACE_OS::ace_isprint (*yytext))
ACE_ERROR ((LM_ERROR, ACE_TEXT ("|%c"), *yytext));
ACE_ERROR ((LM_ERROR, ACE_TEXT (")\n")));
}
<<EOF>> { YY_NEW_FILE; yyterminate(); }
%%
int
yywrap (void)
{
::fflush (yyin);
yytext[0] = '#';
yyleng = 0;
// This needs to be freed to prevent a memory leak.
yy_delete_parse_buffer ();
return 1;
}
void
yy_delete_parse_buffer (void)
{
if (yy_current_buffer != 0)
{
yy_delete_buffer (yy_current_buffer);
yy_current_buffer = 0;
}
}
|
