Return to WQL.y CVS log | Up to [Pegasus] / pegasus / src / Pegasus / WQL |
File: [Pegasus] / pegasus / src / Pegasus / WQL / WQL.y
(download)
Revision: 1.4, Wed Feb 12 17:18:39 2003 UTC (21 years, 4 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, local, TEST, SLPPERFINST-root, SLPPERFINST-branch, RELEASE_2_4_FC_CANDIDATE_1, RELEASE_2_4_3, RELEASE_2_4_2, RELEASE_2_4_1-BETA3, RELEASE_2_4_1-BETA2, RELEASE_2_4_1-BETA1, RELEASE_2_4_1, RELEASE_2_4_0-RC3, RELEASE_2_4_0-RC2, RELEASE_2_4_0, RELEASE_2_4-root, RELEASE_2_4-branch, 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, IBM_241_April1405, CQL_2_5_BRANCH, CHUNKTESTDONE_PEP140 Changes since 1.3: +5 -5 lines HP-[CAKG] PEP 18: Modified WQL classes to use CIMName; added new functions to get the select and where property lists, and to test if all properties were selected; added test cases |
/* **============================================================================== ** ** Includes ** **============================================================================== */ %{ #include <Pegasus/Common/Config.h> #include <Pegasus/WQL/WQLOperation.h> #include <Pegasus/WQL/WQLOperand.h> #include <Pegasus/WQL/WQLParserState.h> #include <Pegasus/WQL/WQLSelectStatement.h> #include <string.h> #include <stdlib.h> #ifdef PEGASUS_OS_TYPE_WINDOWS # include <malloc.h> #endif #if defined(PEGASUS_COMPILER_ACC) && defined(PEGASUS_OS_HPUX) # include <alloca.h> #endif #if 0 # define WQL_TRACE(X) printf X #else # define WQL_TRACE(X) #endif extern int WQL_lex(); extern int WQL_error(const char*); // // Define the global parser state object: // PEGASUS_USING_PEGASUS; PEGASUS_NAMESPACE_BEGIN extern WQLParserState* globalParserState; PEGASUS_NAMESPACE_END %} /* **============================================================================== ** ** Union used to pass tokens from Lexer to this Parser. ** **============================================================================== */ %union { int intValue; double doubleValue; char* strValue; void* nodeValue; } /* **============================================================================== ** ** Tokens, types, and associative rules. ** **============================================================================== */ %token <intValue> TOK_INTEGER %token <doubleValue> TOK_DOUBLE %token <strValue> TOK_STRING %token <intValue> TOK_TRUE %token <intValue> TOK_FALSE %token <intValue> TOK_NULL %token <intValue> TOK_EQ %token <intValue> TOK_NE %token <intValue> TOK_LT %token <intValue> TOK_LE %token <intValue> TOK_GT %token <intValue> TOK_GE %token <intValue> TOK_NOT %token <intValue> TOK_OR %token <intValue> TOK_AND %token <intValue> TOK_IS %token <strValue> TOK_IDENTIFIER %token <intValue> TOK_SELECT %token <intValue> TOK_WHERE %token <intValue> TOK_FROM %token <intValue> TOK_UNEXPECTED_CHAR %type <strValue> propertyName %type <nodeValue> propertyList %type <nodeValue> predicate %type <nodeValue> comparisonPredicate // %type <nodeValue> comparisonTerm %type <nodeValue> nullPredicate %type <nodeValue> searchCondition %type <nodeValue> fromClause %type <nodeValue> whereClause %type <nodeValue> selectStatement %type <nodeValue> selectList %type <nodeValue> selectExpression %type <strValue> className %type <intValue> truthValue %left TOK_OR %left TOK_AND %nonassoc TOK_NOT %% /* **============================================================================== ** ** The grammar itself. ** **============================================================================== */ start : selectStatement { WQL_TRACE(("YACC: start\n")); } selectStatement : TOK_SELECT selectList selectExpression { } selectList : '*' { globalParserState->statement->setAllProperties(true); } | propertyList { } propertyList : propertyName { globalParserState->statement->appendSelectPropertyName(CIMName($1)); } | propertyList ',' propertyName { globalParserState->statement->appendSelectPropertyName(CIMName($3)); } selectExpression : fromClause whereClause { } | fromClause { } fromClause : TOK_FROM className { WQL_TRACE(("YACC: fromClause: TOK_FROM className(%s)\n", $2)); globalParserState->statement->setClassName(CIMName($2)); } whereClause : TOK_WHERE searchCondition { } searchCondition : searchCondition TOK_OR searchCondition { WQL_TRACE(("YACC: TOK_OR\n")); globalParserState->statement->appendOperation(WQL_OR); } | searchCondition TOK_AND searchCondition { WQL_TRACE(("YACC: TOK_AND\n")); globalParserState->statement->appendOperation(WQL_AND); } | TOK_NOT searchCondition { WQL_TRACE(("YACC: TOK_NOT\n")); globalParserState->statement->appendOperation(WQL_NOT); } | '(' searchCondition ')' { } | predicate { } | predicate TOK_IS truthValue { WQLOperation op = $3 ? WQL_IS_TRUE : WQL_IS_FALSE; globalParserState->statement->appendOperation(op); } | predicate TOK_IS TOK_NOT truthValue { WQLOperation op = $4 ? WQL_IS_NOT_TRUE : WQL_IS_NOT_FALSE; globalParserState->statement->appendOperation(op); } /******************************************************************************/ predicate : comparisonPredicate { } | nullPredicate { } comparisonPredicate : comparisonTerm TOK_LT comparisonTerm { WQL_TRACE(("YACC: TOK_LT\n")); globalParserState->statement->appendOperation(WQL_LT); } | comparisonTerm TOK_GT comparisonTerm { WQL_TRACE(("YACC: TOK_GT\n")); globalParserState->statement->appendOperation(WQL_GT); } | comparisonTerm TOK_LE comparisonTerm { WQL_TRACE(("YACC: TOK_LE\n")); globalParserState->statement->appendOperation(WQL_LE); } | comparisonTerm TOK_GE comparisonTerm { WQL_TRACE(("YACC: TOK_GE\n")); globalParserState->statement->appendOperation(WQL_GE); } | comparisonTerm TOK_EQ comparisonTerm { WQL_TRACE(("YACC: TOK_EQ\n")); globalParserState->statement->appendOperation(WQL_EQ); } | comparisonTerm TOK_NE comparisonTerm { WQL_TRACE(("YACC: TOK_NE\n")); globalParserState->statement->appendOperation(WQL_NE); } nullPredicate : comparisonTerm TOK_IS TOK_NULL { WQL_TRACE(("YACC: nullPredicate : comparisonTerm IS NULL\n")); globalParserState->statement->appendOperation(WQL_IS_NULL); } | comparisonTerm TOK_IS TOK_NOT TOK_NULL { WQL_TRACE(("YACC: nullPredicate : comparisonTerm IS NOT NULL\n")); globalParserState->statement->appendOperation(WQL_IS_NOT_NULL); } truthValue : TOK_TRUE { $$ = 1; } | TOK_FALSE { $$ = 0; } propertyName : TOK_IDENTIFIER { WQL_TRACE(("YACC: propertyName : TOK_IDENTIFIER(%s)\n", $1)); $$ = $1; } className : TOK_IDENTIFIER { WQL_TRACE(("YACC: TOK_IDENTIFIER %s\n", $1)); $$ = $1; } comparisonTerm : propertyName { globalParserState->statement->appendOperand( WQLOperand($1, WQL_PROPERTY_NAME_TAG)); globalParserState->statement->appendWherePropertyName(CIMName($1)); } | TOK_INTEGER { globalParserState->statement->appendOperand( WQLOperand($1, WQL_INTEGER_VALUE_TAG)); } | TOK_DOUBLE { globalParserState->statement->appendOperand( WQLOperand($1, WQL_DOUBLE_VALUE_TAG)); } | TOK_STRING { globalParserState->statement->appendOperand( WQLOperand($1, WQL_STRING_VALUE_TAG)); } | truthValue { globalParserState->statement->appendOperand( WQLOperand($1 != 0, WQL_BOOLEAN_VALUE_TAG)); } %%
No CVS admin address has been configured |
Powered by ViewCVS 0.9.2 |