(file) Return to WQL.y CVS log (file) (dir) Up to [Pegasus] / pegasus / src / Pegasus / WQL

Diff for /pegasus/src/Pegasus/WQL/WQL.y between version 1.1.2.4 and 1.2

version 1.1.2.4, 2001/12/02 07:52:38 version 1.2, 2001/12/13 14:54:43
Line 8 
Line 8 
  
 %{ %{
  
   #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>
  
Line 20 
Line 25 
 #endif #endif
  
 #if 0 #if 0
 # define WQL_TRACE(X) printf(X)  # define WQL_TRACE(X) printf X
 #else #else
 # define WQL_TRACE(X) # define WQL_TRACE(X)
 #endif #endif
Line 28 
Line 33 
 extern int WQL_lex(); extern int WQL_lex();
 extern int WQL_error(char*); extern int WQL_error(char*);
  
   //
   // Define the global parser state object:
   //
   
   PEGASUS_USING_PEGASUS;
   
   PEGASUS_NAMESPACE_BEGIN
   
   extern WQLParserState* globalParserState;
   
   PEGASUS_NAMESPACE_END
   
 %} %}
  
 /* /*
Line 78 
Line 95 
 %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> propertyName  %type <strValue> propertyName
 %type <nodeValue> propertyList %type <nodeValue> propertyList
 %type <nodeValue> predicate %type <nodeValue> predicate
 %type <nodeValue> comparisonPredicate %type <nodeValue> comparisonPredicate
 %type <nodeValue> comparisonTerm  // %type <nodeValue> comparisonTerm
 %type <nodeValue> nullPredicate %type <nodeValue> nullPredicate
 %type <nodeValue> searchCondition %type <nodeValue> searchCondition
 %type <nodeValue> fromClause %type <nodeValue> fromClause
Line 93 
Line 110 
 %type <nodeValue> selectList %type <nodeValue> selectList
 %type <nodeValue> selectExpression %type <nodeValue> selectExpression
 %type <strValue> className %type <strValue> className
   %type <intValue> truthValue
  
 %left TOK_OR %left TOK_OR
 %left TOK_AND %left TOK_AND
Line 111 
Line 129 
 start start
     : selectStatement     : selectStatement
     {     {
         printf("YACC: start\n");          WQL_TRACE(("YACC: start\n"));
     }     }
  
 selectStatement selectStatement
Line 123 
Line 141 
 selectList selectList
     : '*'     : '*'
     {     {
           globalParserState->statement->appendSelectPropertyName("*");
     }     }
     | propertyList     | propertyList
     {     {
Line 133 
Line 151 
 propertyList propertyList
     : propertyName     : propertyName
     {     {
           globalParserState->statement->appendSelectPropertyName($1);
     }     }
     | propertyList ',' propertyName     | propertyList ',' propertyName
     {     {
           globalParserState->statement->appendSelectPropertyName($3);
     }     }
  
 selectExpression selectExpression
Line 153 
Line 171 
 fromClause fromClause
     : TOK_FROM className     : TOK_FROM className
     {     {
           WQL_TRACE(("YACC: fromClause: TOK_FROM className(%s)\n", $2));
           globalParserState->statement->setClassName($2);
     }     }
  
 whereClause whereClause
Line 165 
Line 184 
 searchCondition searchCondition
     : searchCondition TOK_OR searchCondition     : searchCondition TOK_OR searchCondition
     {     {
           WQL_TRACE(("YACC: TOK_OR\n"));
           globalParserState->statement->appendOperation(WQL_OR);
     }     }
     | searchCondition TOK_AND searchCondition     | searchCondition TOK_AND searchCondition
     {     {
           WQL_TRACE(("YACC: TOK_AND\n"));
           globalParserState->statement->appendOperation(WQL_AND);
     }     }
     | TOK_NOT searchCondition     | TOK_NOT searchCondition
     {     {
           WQL_TRACE(("YACC: TOK_NOT\n"));
  
           globalParserState->statement->appendOperation(WQL_NOT);
     }     }
     | '(' searchCondition ')'     | '(' searchCondition ')'
     {     {
Line 185 
Line 208 
     }     }
     | predicate TOK_IS truthValue     | predicate TOK_IS truthValue
     {     {
           WQLOperation op = $3 ? WQL_IS_TRUE : WQL_IS_FALSE;
           globalParserState->statement->appendOperation(op);
     }     }
     | predicate TOK_IS TOK_NOT truthValue     | predicate TOK_IS TOK_NOT truthValue
     {     {
           WQLOperation op = $4 ? WQL_IS_NOT_TRUE : WQL_IS_NOT_FALSE;
           globalParserState->statement->appendOperation(op);
     }     }
  
   /******************************************************************************/
   
 predicate predicate
     : comparisonPredicate     : comparisonPredicate
     {     {
Line 205 
Line 232 
 comparisonPredicate comparisonPredicate
     : comparisonTerm TOK_LT comparisonTerm     : comparisonTerm TOK_LT comparisonTerm
     {     {
           WQL_TRACE(("YACC: TOK_LT\n"));
           globalParserState->statement->appendOperation(WQL_LT);
     }     }
     | comparisonTerm TOK_GT comparisonTerm     | comparisonTerm TOK_GT comparisonTerm
     {     {
           WQL_TRACE(("YACC: TOK_GT\n"));
           globalParserState->statement->appendOperation(WQL_GT);
     }     }
     | comparisonTerm TOK_LE comparisonTerm     | comparisonTerm TOK_LE comparisonTerm
     {     {
           WQL_TRACE(("YACC: TOK_LE\n"));
           globalParserState->statement->appendOperation(WQL_LE);
     }     }
     | comparisonTerm TOK_GE comparisonTerm     | comparisonTerm TOK_GE comparisonTerm
     {     {
           WQL_TRACE(("YACC: TOK_GE\n"));
           globalParserState->statement->appendOperation(WQL_GE);
     }     }
     | comparisonTerm TOK_EQ comparisonTerm     | comparisonTerm TOK_EQ comparisonTerm
     {     {
           WQL_TRACE(("YACC: TOK_EQ\n"));
           globalParserState->statement->appendOperation(WQL_EQ);
     }     }
     | comparisonTerm TOK_NE comparisonTerm     | comparisonTerm TOK_NE comparisonTerm
     {     {
           WQL_TRACE(("YACC: TOK_NE\n"));
           globalParserState->statement->appendOperation(WQL_NE);
     }     }
  
 nullPredicate nullPredicate
     : comparisonTerm TOK_IS TOK_NULL     : 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     | comparisonTerm TOK_IS TOK_NOT TOK_NULL
     {     {
           WQL_TRACE(("YACC: nullPredicate : comparisonTerm IS NOT NULL\n"));
           globalParserState->statement->appendOperation(WQL_IS_NOT_NULL);
     }     }
  
 truthValue truthValue
     : TOK_TRUE     : TOK_TRUE
     {     {
           $$ = 1;
     }     }
     | TOK_FALSE     | TOK_FALSE
     {     {
           $$ = 0;
     }     }
  
 propertyName propertyName
     : TOK_IDENTIFIER     : TOK_IDENTIFIER
     {     {
           WQL_TRACE(("YACC: propertyName : TOK_IDENTIFIER(%s)\n", $1));
           $$ = $1;
     }     }
  
 className : TOK_IDENTIFIER className : TOK_IDENTIFIER
     {     {
           WQL_TRACE(("YACC: TOK_IDENTIFIER %s\n", $1));
           $$ = $1;
     }     }
  
 comparisonTerm comparisonTerm
     : propertyName     : propertyName
     {     {
           globalParserState->statement->appendOperand(
               WQLOperand($1, WQL_PROPERTY_NAME_TAG));
           globalParserState->statement->appendWherePropertyName($1);
     }     }
     | TOK_INTEGER     | TOK_INTEGER
     {     {
           globalParserState->statement->appendOperand(
               WQLOperand($1, WQL_INTEGER_VALUE_TAG));
     }     }
     | TOK_DOUBLE     | TOK_DOUBLE
     {     {
           globalParserState->statement->appendOperand(
               WQLOperand($1, WQL_DOUBLE_VALUE_TAG));
     }     }
     | TOK_STRING     | TOK_STRING
     {     {
           globalParserState->statement->appendOperand(
               WQLOperand($1, WQL_STRING_VALUE_TAG));
     }     }
     | truthValue     | truthValue
     {     {
           globalParserState->statement->appendOperand(
               WQLOperand($1 != 0, WQL_BOOLEAN_VALUE_TAG));
     }     }
  
 %% %%
   
 int WQL_error(char* errorMessage)  
 {  
     fprintf(stderr, "WQL_error: %s\n", errorMessage);  
     return -1;  
 }  

Legend:
Removed from v.1.1.2.4  
changed lines
  Added in v.1.2
No CVS admin address has been configured
 Powered by
ViewCVS 0.9.2