Return to WQL.l CVS log | Up to [Pegasus] / pegasus / src / Pegasus / WQL |
File: [Pegasus] / pegasus / src / Pegasus / WQL / WQL.l
(download)
Revision: 1.3, Tue Aug 27 17:47:11 2002 UTC (21 years, 10 months ago) by kumpf Branch: MAIN CVS Tags: test, pep_88, pegasus25BeforeLicenseUpdate, mday-merge-start, mday-merge-pegasus/src/Pegasus/Server, mday-merge-pegasus/src/Pegasus/Common, mday-2-0-patches, local, VERSION_2_1_RELEASE_HEAD, VERSION_2_1_RELEASE_BRANCH, VERSION_2_1_RELEASE, VERSION_2_1_1_RELEASE, TEST, SLPPERFINST-root, SLPPERFINST-branch, RELEASE_2_4_FC_CANDIDATE_1, RELEASE_2_4_1-BETA2, RELEASE_2_4_1-BETA1, RELEASE_2_4_0-RC3, RELEASE_2_4_0-RC2, RELEASE_2_4_0, RELEASE_2_4-root, RELEASE_2_3_2-testfreeze, RELEASE_2_3_2-root, RELEASE_2_3_2-releasesnapshot, RELEASE_2_3_2-branch-freeze, RELEASE_2_3_2-branch, RELEASE_2_3_1-root, RELEASE_2_3_1-branch, RELEASE_2_3_0-root, RELEASE_2_3_0-msg-freeze, RELEASE_2_3_0-branch, RELEASE_2_2_1-snapshot, RELEASE_2_2_0_0-release, RELEASE_2_2_0-root, RELEASE_2_2_0-branch, RELEASE_2_2-root, PRE_LICENSE_UPDATE_2003, POST_LICENSE_UPDATE_2003, PEP213_SIZE_OPTIMIZATIONS, PEGASUS_FC_VERSION_2_2, MONITOR_CONSOLIDATION_2_5_BRANCH, LOCAL_ASSOCPROV-ROOT, LOCAL_ASSOCPROV-BRANCH, CQL_2_5_BRANCH, CHUNKTESTDONE_PEP140 Branch point for: RELEASE_2_4-branch Changes since 1.2: +1 -1 lines HP-RK Fix compile warning. |
%option never-interactive %{ extern int WQLInput(char* buffer, int& numRead, int numRequested); extern int WQL_error(const char*); #define YY_INPUT(BUF, NREAD, NREQUESTED) WQLInput(BUF, NREAD, NREQUESTED) #include <Pegasus/Common/Config.h> #include <Pegasus/WQL/WQLParserState.h> #include <cstring> #include <cassert> #include "WQLYACC.h" #if 0 # define WQL_TRACE(X) printf X #else # define WQL_TRACE(X) #endif PEGASUS_NAMESPACE_BEGIN extern WQLParserState* globalParserState; static char* CloneString(const char* str, Uint32 size = (Uint32)-1); PEGASUS_NAMESPACE_END PEGASUS_USING_PEGASUS; %} POSITIVE_DECIMAL_DIGIT [1-9] DECIMAL_DIGIT [0-9] BLANK [ \t\n] IDENT_CHAR [A-Za-z_] %% [Ss][Ee][Ll][Ee][Cc][Tt] { WQL_TRACE(("LEX: %s [TOK_SELECT]\n", yytext)); return TOK_SELECT; } [Ff][Rr][Oo][Mm] { WQL_TRACE(("LEX: %s [TOK_FROM]\n", yytext)); return TOK_FROM; } [Ww][Hh][Ee][Rr][Ee] { WQL_TRACE(("LEX: %s [TOK_WHERE]\n", yytext)); return TOK_WHERE; } [Tt][Rr][Uu][Ee] { WQL_TRACE(("LEX: %s [TOK_TRUE]\n", yytext)); return TOK_TRUE; } [Ff][Aa][Ll][Ss][Ee] { WQL_TRACE(("LEX: %s [TOK_FALSE]\n", yytext)); return TOK_FALSE; } [Nn][Uu][Ll][Ll] { WQL_TRACE(("LEX: %s [TOK_NULL]\n", yytext)); return TOK_NULL; } [Nn][Oo][Tt] { WQL_TRACE(("LEX: %s [TOK_NOT]\n", yytext)); return TOK_NOT; } [Aa][Nn][Dd] { WQL_TRACE(("LEX: %s [TOK_AND]\n", yytext)); return TOK_AND; } [Oo][Rr] { WQL_TRACE(("LEX: %s [TOK_OR]\n", yytext)); return TOK_OR; } [Ii][Ss] { WQL_TRACE(("LEX: %s [TOK_IS]\n", yytext)); return TOK_IS; } [-+]?{POSITIVE_DECIMAL_DIGIT}{DECIMAL_DIGIT}* { WQL_TRACE(("LEX: %s [TOK_INTEGER]\n", yytext)); WQL_lval.intValue = strtol(yytext, (char**)0, 10); return TOK_INTEGER; } [+-]?0 { WQL_TRACE(("LEX: %s [TOK_INTEGER]\n", yytext)); WQL_lval.intValue = 0; return TOK_INTEGER; } [-+]?{DECIMAL_DIGIT}*\.{DECIMAL_DIGIT}+([eE][+-]?{DECIMAL_DIGIT}+)? { WQL_TRACE(("LEX: %s [TOK_DOUBLE]\n", yytext)); WQL_lval.doubleValue = strtod((char*)yytext, (char**)0); return TOK_DOUBLE; } \"[^\"\n]*\" { /* ATTN-B: handle long literals by using yyinput(). */ /* ATTN-B: Handle expansion of special characters */ WQL_TRACE(("LEX: %s [TOK_STRING]\n", yytext)); /* Copy the string (but remove the surrounding quotes */ { size_t n = strlen(yytext) - 2; char* strValue = new char[n + 1]; memcpy(strValue, yytext + 1, n); strValue[n] = '\0'; WQL_lval.strValue = strValue; globalParserState->outstandingStrings.append(strValue); } return TOK_STRING; } \"[^\"\n]*$ { WQL_error("Unterminated string"); } [\*(),] { WQL_TRACE(("LEX: %c\n", yytext[0])); return yytext[0]; } "=" { WQL_TRACE(("LEX: %s [TOK_EQ]\n", yytext)); return TOK_EQ; } "!=" { WQL_TRACE(("LEX: %s [TOK_NE]\n", yytext)); return TOK_NE; } "<=" { WQL_TRACE(("LEX: %s [TOK_LE]\n", yytext)); return TOK_LE; } "<" { WQL_TRACE(("LEX: %s [TOK_LT]\n", yytext)); return TOK_LT; } ">=" { WQL_TRACE(("LEX: %s [TOK_GE]\n", yytext)); return TOK_GE; } ">" { WQL_TRACE(("LEX: %s [TOK_GT]\n", yytext)); return TOK_GT; } {IDENT_CHAR}({IDENT_CHAR}|{DECIMAL_DIGIT})* { WQL_TRACE(("LEX: %s [TOK_IDENTIFIER]\n", yytext)); { size_t n = strlen(yytext); char* strValue = new char[n + 1]; memcpy(strValue, yytext, n); strValue[n] = '\0'; WQL_lval.strValue = strValue; globalParserState->outstandingStrings.append(strValue); } return TOK_IDENTIFIER; } {BLANK}+ { /* Ignore blanks */ } . { WQL_lval.intValue = 0; return TOK_UNEXPECTED_CHAR; } %% extern "C" int WQL_wrap() { return 1; }
No CVS admin address has been configured |
Powered by ViewCVS 0.9.2 |