|
version 1.1.2.2, 2001/12/01 18:38:16
|
version 1.1.2.6, 2001/12/02 22:03:23
|
|
|
|
| | |
| %{ | %{ |
| | |
| |
#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 <string.h> |
| #include <stdlib.h> | #include <stdlib.h> |
| | |
|
|
|
| # include <alloca.h> | # include <alloca.h> |
| #endif | #endif |
| | |
| #if 0 |
#if 1 |
| # define WQL_TRACE(X) printf(X) |
# define WQL_TRACE(X) printf X |
| #else | #else |
| # define WQL_TRACE(X) | # define WQL_TRACE(X) |
| #endif | #endif |
|
|
|
| extern int WQL_lex(); | extern int WQL_lex(); |
| extern int WQL_error(char*); | extern int WQL_error(char*); |
| | |
| |
PEGASUS_USING_PEGASUS; |
| |
|
| |
PEGASUS_NAMESPACE_BEGIN |
| |
|
| |
extern WQLParserState* globalParserState; |
| |
|
| |
PEGASUS_NAMESPACE_END |
| |
|
| %} | %} |
| | |
| /* | /* |
|
|
|
| %token <strValue> TOK_STRING | %token <strValue> TOK_STRING |
| %token <intValue> TOK_TRUE | %token <intValue> TOK_TRUE |
| %token <intValue> TOK_FALSE | %token <intValue> TOK_FALSE |
| |
%token <intValue> TOK_NULL |
| | |
| %token <intValue> TOK_EQ | %token <intValue> TOK_EQ |
| %token <intValue> TOK_NE | %token <intValue> TOK_NE |
|
|
|
| %token <intValue> TOK_NOT | %token <intValue> TOK_NOT |
| %token <intValue> TOK_OR | %token <intValue> TOK_OR |
| %token <intValue> TOK_AND | %token <intValue> TOK_AND |
| %token <intValue> TOK_ISA |
%token <intValue> TOK_IS |
| | |
| %token <strValue> TOK_IDENTIFIER | %token <strValue> TOK_IDENTIFIER |
| %token <intValue> TOK_SELECT | %token <intValue> TOK_SELECT |
| %token <intValue> TOK_WHERE | %token <intValue> TOK_WHERE |
| %token <intValue> TOK_FROM | %token <intValue> TOK_FROM |
| | |
| %token <strValue> TOK_UNEXPECTED_CHAR |
%token <intValue> TOK_UNEXPECTED_CHAR |
| | |
| %type <nodeValue> constant |
%type <strValue> propertyName |
| %type <nodeValue> property |
|
| %type <nodeValue> propertyListOrStar |
|
| %type <nodeValue> propertyList | %type <nodeValue> propertyList |
| %type <nodeValue> expressionTerm |
%type <nodeValue> predicate |
| %type <nodeValue> expression |
%type <nodeValue> comparisonPredicate |
| |
%type <nodeValue> comparisonTerm |
| |
%type <nodeValue> nullPredicate |
| |
%type <nodeValue> searchCondition |
| |
%type <nodeValue> fromClause |
| %type <nodeValue> whereClause | %type <nodeValue> whereClause |
| %type <strValue> fromClass |
|
| %type <nodeValue> selectStatement | %type <nodeValue> selectStatement |
| |
%type <nodeValue> selectList |
| |
%type <nodeValue> selectExpression |
| %type <strValue> className | %type <strValue> className |
| %type <nodeValue> function |
|
| %type <nodeValue> functionParameterList |
|
| %type <nodeValue> functionParameter |
|
| | |
| %left TOK_OR | %left TOK_OR |
| %left TOK_AND | %left TOK_AND |
|
|
|
| start | start |
| : selectStatement | : selectStatement |
| { | { |
| WQL_TRACE(("YACC: start: selectStatement\n")); |
printf("YACC: start\n"); |
| } | } |
| | |
| selectStatement | selectStatement |
| : TOK_SELECT propertyListOrStar fromClass |
: TOK_SELECT selectList selectExpression |
| { | { |
| WQL_TRACE(("YACC: selectStatement\n")); |
|
| } |
|
| | TOK_SELECT propertyListOrStar fromClass whereClause |
|
| { |
|
| WQL_TRACE(("YACC: selectStatement\n")); |
|
| } |
|
| | |
| fromClass : TOK_FROM className |
|
| { |
|
| WQL_TRACE(("YACC: fromClass : TOK_FROM %s\n", $2)); |
|
| $$ = $2; |
|
| } | } |
| | |
| className : TOK_IDENTIFIER |
selectList |
| |
: '*' |
| { | { |
| WQL_TRACE(("YACC: className : %s\n", $1)); |
globalParserState->statement->appendPropertyName("*"); |
| $$ = $1 |
|
| } | } |
| |
| propertyList |
| whereClause : TOK_WHERE expression |
|
| { |
|
| WQL_TRACE(("YACC: whereClause : TOK_WHERE expression\n")); |
|
| } |
|
| |
|
| propertyListOrStar |
|
| : propertyList |
|
| { | { |
| | |
| } | } |
| | '*' |
|
| { |
|
| WQL_TRACE(("YACC: propertyListOrStar: '*'\n")); |
|
| } |
|
| | |
| propertyList : property |
propertyList |
| |
: propertyName |
| { | { |
| |
globalParserState->statement->appendPropertyName($1); |
| } | } |
| | propertyList ',' property |
| propertyList ',' propertyName |
| { | { |
| |
globalParserState->statement->appendPropertyName($3); |
| } | } |
| | |
| property |
selectExpression |
| : TOK_IDENTIFIER |
: fromClause whereClause |
| { | { |
| | |
| } | } |
| | TOK_IDENTIFIER '.' TOK_IDENTIFIER |
| fromClause |
| { | { |
| | |
| } | } |
| | |
| expression |
fromClause |
| : expression TOK_OR expression |
: TOK_FROM className |
| { | { |
| |
WQL_TRACE(("YACC: fromClause: TOK_FROM className(%s)\n", $2)); |
| |
globalParserState->statement->setClassName($2); |
| |
delete [] $2; |
| } | } |
| | expression TOK_AND expression |
|
| { |
|
| | |
| } |
whereClause |
| | TOK_NOT expression |
: TOK_WHERE searchCondition |
| { | { |
| | |
| } | } |
| | '(' expression ')' |
|
| { |
|
| | |
| } |
searchCondition |
| | expressionTerm |
: searchCondition TOK_OR searchCondition |
| { | { |
| |
WQL_TRACE(("YACC: TOK_OR\n")); |
| } | } |
| |
| searchCondition TOK_AND searchCondition |
| expressionTerm |
|
| : property TOK_LT constant |
|
| { | { |
| |
WQL_TRACE(("YACC: TOK_AND\n")); |
| } | } |
| | property TOK_GT constant |
| TOK_NOT searchCondition |
| { | { |
| | |
| } | } |
| | property TOK_LE constant |
| '(' searchCondition ')' |
| { | { |
| | |
| } | } |
| | property TOK_GE constant |
| predicate |
| { | { |
| | |
| } | } |
| | property TOK_EQ constant |
| predicate TOK_IS truthValue |
| { | { |
| | |
| } | } |
| | property TOK_NE constant |
| predicate TOK_IS TOK_NOT truthValue |
| { | { |
| | |
| } | } |
| | constant TOK_LT property |
|
| { |
|
| | |
| } |
predicate |
| | constant TOK_GT property |
: comparisonPredicate |
| { | { |
| | |
| } | } |
| | constant TOK_LE property |
| nullPredicate |
| { | { |
| | |
| } | } |
| | constant TOK_GE property |
|
| { |
|
| | |
| } |
comparisonPredicate |
| | constant TOK_EQ property |
: comparisonTerm TOK_LT comparisonTerm |
| { | { |
| |
WQL_TRACE(("YACC: TOK_LT\n")); |
| } | } |
| | constant TOK_NE property |
| comparisonTerm TOK_GT comparisonTerm |
| { | { |
| |
WQL_TRACE(("YACC: TOK_GT\n")); |
| } | } |
| | function TOK_LT constant |
| comparisonTerm TOK_LE comparisonTerm |
| { | { |
| |
WQL_TRACE(("YACC: TOK_LE\n")); |
| } | } |
| | function TOK_GT constant |
| comparisonTerm TOK_GE comparisonTerm |
| { | { |
| |
WQL_TRACE(("YACC: TOK_GE\n")); |
| } | } |
| | function TOK_LE constant |
| comparisonTerm TOK_EQ comparisonTerm |
| { | { |
| |
WQL_TRACE(("YACC: TOK_EQ\n")); |
| } | } |
| | function TOK_GE constant |
| comparisonTerm TOK_NE comparisonTerm |
| { | { |
| |
WQL_TRACE(("YACC: TOK_NE\n")); |
| } | } |
| | function TOK_EQ constant |
|
| { |
|
| | |
| } |
nullPredicate |
| | function TOK_NE constant |
: comparisonTerm TOK_IS TOK_NULL |
| { | { |
| |
WQL_TRACE(("YACC: TOK_IS TOK_NULL\n")); |
| } | } |
| | constant TOK_LT function |
| comparisonTerm TOK_IS TOK_NOT TOK_NULL |
| { | { |
| |
WQL_TRACE(("YACC: TOK_NOT TOK_NULL\n")); |
| } | } |
| | constant TOK_GT function |
|
| { |
|
| | |
| } |
truthValue |
| | constant TOK_LE function |
: TOK_TRUE |
| { | { |
| | |
| } | } |
| | constant TOK_GE function |
| TOK_FALSE |
| { | { |
| | |
| } | } |
| | constant TOK_EQ function |
|
| { |
|
| | |
| } |
propertyName |
| | constant TOK_NE function |
: TOK_IDENTIFIER |
| { |
|
| |
|
| } |
|
| | className TOK_ISA className |
|
| { | { |
| |
WQL_TRACE(("YACC: propertyName : TOK_IDENTIFIER(%s)\n", $1)); |
| |
$$ = $1; |
| } | } |
| | |
| function |
className : TOK_IDENTIFIER |
| : TOK_IDENTIFIER '(' ')' |
|
| { |
|
| |
|
| } |
|
| | TOK_IDENTIFIER '(' functionParameterList ')' |
|
| { | { |
| |
WQL_TRACE(("YACC: TOK_IDENTIFIER %s\n", $1)); |
| |
$$ = $1; |
| } | } |
| | |
| functionParameterList |
comparisonTerm |
| : functionParameter |
: propertyName |
| { | { |
| | |
| } | } |
| | functionParameterList ',' functionParameter |
| TOK_INTEGER |
| { | { |
| | |
| } | } |
| |
| TOK_DOUBLE |
| functionParameter |
|
| : property |
|
| | constant |
|
| | function |
|
| ; |
|
| |
|
| constant |
|
| : TOK_INTEGER |
|
| { | { |
| | |
| } | } |
| | TOK_DOUBLE |
| TOK_STRING |
| { | { |
| | |
| } | } |
| | TOK_STRING |
| truthValue |
| { | { |
| WQL_TRACE(("YACC: TOK_STRING: %s\n", $1)); |
|
| $$ = $1; |
|
| } | } |
| | |
| %% | %% |
| |
|
| int WQL_error(char* errorMessage) |
|
| { |
|
| fprintf(stderr, "WQL_error: %s\n", errorMessage); |
|
| return -1; |
|
| } |
|
Return to
WQL.y
CVS log
Up to [Pegasus] / pegasus / src / Pegasus / WQL