Added BETWEEN and IN to grammar. Map != to <>.

diff --git a/src/backend/parser/gram.y b/src/backend/parser/gram.y
index 677d08a0358f0d25c6b259707447c54948fd8cbf..8889bb456ecec1d77cde61ac386f18ca110e9327 100644 (file)
--- a/src/backend/parser/gram.y
+++ b/src/backend/parser/gram.y
@@ -10,7 +10,7 @@
  *
  *
  * IDENTIFICATION
- *    $Header: /cvsroot/pgsql/src/backend/parser/gram.y,v 1.19 1996/11/29 15:56:18 momjian Exp $
+ *    $Header: /cvsroot/pgsql/src/backend/parser/gram.y,v 1.20 1996/11/30 03:38:05 momjian Exp $
  *
  * HISTORY
  *    AUTHOR           DATE            MAJOR EVENT
@@ -46,7 +46,7 @@
 
 static char saved_relname[NAMEDATALEN];  /* need this for complex attributes */
 static bool QueryIsRule = FALSE;
-
+static Node *saved_In_Expr;
 extern List *parsetree;
 
 /*
@@ -57,7 +57,7 @@ extern List *parsetree;
 /*#define __YYSCLASS*/
 
 static char *xlateSqlType(char *);
-static Node *makeA_Expr(int op, char *opname, Node *lexpr, Node *rexpr);
+static Node *makeA_Expr(int oper, char *opname, Node *lexpr, Node *rexpr);
 
 /* old versions of flex define this as a macro */
 #if defined(yywrap)
@@ -127,8 +127,8 @@ static Node *makeA_Expr(int op, char *opname, Node *lexpr, Node *rexpr);
        oper_argtypes, OptStmtList, OptStmtBlock, opt_column_list, columnList,
        sort_clause, sortby_list, index_params, 
        name_list, from_clause, from_list, opt_array_bounds, nest_array_bounds,
-       expr_list, attrs, res_target_list, res_target_list2, def_list,
-       opt_indirection, group_clause, groupby_list, explain_options
+       expr_list, attrs, res_target_list, res_target_list2,
+       def_list, opt_indirection, group_clause, groupby_list, explain_options
 
 %type <boolean>        opt_inh_star, opt_binary, opt_instead, opt_with_copy, index_opt_unique
 
@@ -145,7 +145,8 @@ static Node *makeA_Expr(int op, char *opname, Node *lexpr, Node *rexpr);
 %type <coldef> columnDef
 %type <defelt> def_elem
 %type <node>   def_arg, columnElem, where_clause, 
-               a_expr, AexprConst, having_clause, groupby
+               a_expr, AexprConst, in_expr_nodes, not_in_expr_nodes,
+               having_clause, groupby
 %type <value>  NumConst
 %type <attr>   event_object, attr
 %type <sortby> sortby
@@ -169,10 +170,10 @@ static Node *makeA_Expr(int op, char *opname, Node *lexpr, Node *rexpr);
 
 /* Keywords */
 %token ABORT_TRANS, ACL, ADD, AFTER, AGGREGATE, ALL, ALTER, AND, APPEND,
-       ARCHIVE, ARCH_STORE, AS, ASC, BACKWARD, BEFORE, BEGIN_TRANS, BINARY,
-       BY, CAST, CHANGE, CLOSE, CLUSTER, COLUMN, COMMIT, COPY, CREATE, CURRENT,
-       CURSOR, DATABASE, DECLARE, DELETE, DELIMITERS, DESC, DISTINCT, DO,
-       DROP, END_TRANS,
+       ARCHIVE, ARCH_STORE, AS, ASC, BACKWARD, BEFORE, BEGIN_TRANS, BETWEEN,
+       BINARY, BY, CAST, CHANGE, CLOSE, CLUSTER, COLUMN, COMMIT, COPY, CREATE,
+       CURRENT, CURSOR, DATABASE, DECLARE, DELETE, DELIMITERS, DESC, DISTINCT,
+       DO, DROP, END_TRANS,
        EXTEND, FETCH, FOR, FORWARD, FROM, FUNCTION, GRANT, GROUP, 
        HAVING, HEAVY, IN, INDEX, INHERITS, INSERT, INSTEAD, INTO, IS,
        ISNULL, LANGUAGE, LIGHT, LISTEN, LOAD, MERGE, MOVE, NEW, 
@@ -199,6 +200,8 @@ static Node *makeA_Expr(int op, char *opname, Node *lexpr, Node *rexpr);
 %right NOT
 %right         '='
 %nonassoc LIKE
+%nonassoc BETWEEN
+%nonassoc IN
 %nonassoc Op
 %nonassoc NOTNULL
 %nonassoc ISNULL
@@ -1813,6 +1816,20 @@ a_expr:  attr opt_indirection
                {   $$ = makeA_Expr(NOTNULL, NULL, $1, NULL); }
        | a_expr IS NOT PNULL
                {   $$ = makeA_Expr(NOTNULL, NULL, $1, NULL); }
+       | a_expr BETWEEN AexprConst AND AexprConst
+               {   $$ = makeA_Expr(AND, NULL,
+                       makeA_Expr(OP, ">=", $1, $3),
+                       makeA_Expr(OP, "<=", $1,$5));
+               }
+       | a_expr NOT BETWEEN AexprConst AND AexprConst
+               {   $$ = makeA_Expr(OR, NULL,
+                       makeA_Expr(OP, "<", $1, $4),
+                       makeA_Expr(OP, ">", $1, $6));
+               }
+       | a_expr IN { saved_In_Expr = $1; } '(' in_expr_nodes ')'
+               {   $$ = $5; }
+       | a_expr NOT IN { saved_In_Expr = $1; } '(' not_in_expr_nodes ')'
+               {   $$ = $6; }
        | a_expr AND a_expr
                {   $$ = makeA_Expr(AND, NULL, $1, $3); }
        | a_expr OR a_expr
@@ -1838,13 +1855,29 @@ opt_indirection:  '[' a_expr ']' opt_indirection
        | /* EMPTY */                   
                {   $$ = NIL; }
        ;
-
+   
 expr_list: a_expr
                { $$ = lcons($1, NIL); }
        |  expr_list ',' a_expr
                { $$ = lappend($1, $3); }
        ;
 
+in_expr_nodes: AexprConst
+               {   $$ = makeA_Expr(OP, "=", saved_In_Expr, $1); }
+       |  in_expr_nodes ',' AexprConst
+               {   $$ = makeA_Expr(OR, NULL, $1,
+                       makeA_Expr(OP, "=", saved_In_Expr, $3));
+               }
+       ;
+
+not_in_expr_nodes: AexprConst
+               {   $$ = makeA_Expr(OP, "<>", saved_In_Expr, $1); }
+       |  not_in_expr_nodes ',' AexprConst
+               {   $$ = makeA_Expr(AND, NULL, $1,
+                       makeA_Expr(OP, "<>", saved_In_Expr, $3));
+               }
+       ;
+
 attr:  relation_name '.' attrs
                {
                    $$ = makeNode(Attr);
@@ -2085,10 +2118,10 @@ Pnull:  PNULL;
 
 %%
 
-static Node *makeA_Expr(int op, char *opname, Node *lexpr, Node *rexpr)
+static Node *makeA_Expr(int oper, char *opname, Node *lexpr, Node *rexpr)
 {
     A_Expr *a = makeNode(A_Expr);
-    a->oper = op;
+    a->oper = oper;
     a->opname = opname;
     a->lexpr = lexpr;
     a->rexpr = rexpr;
@@ -2114,7 +2147,8 @@ void parser_init(Oid *typev, int nargs)
 {
     QueryIsRule = false;
     saved_relname[0]= '\0';
-
+    saved_In_Expr = NULL;
+    
     param_type_init(typev, nargs);
 }
 

diff --git a/src/backend/parser/keywords.c b/src/backend/parser/keywords.c
index 8c90f12fd82ba16cfbe4fa8bd79782c39f8c657f..8f6ab83bc57691be36db6c968bcee75efe2955f6 100644 (file)
--- a/src/backend/parser/keywords.c
+++ b/src/backend/parser/keywords.c
@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *    $Header: /cvsroot/pgsql/src/backend/parser/keywords.c,v 1.4 1996/11/13 20:49:04 scrappy Exp $
+ *    $Header: /cvsroot/pgsql/src/backend/parser/keywords.c,v 1.5 1996/11/30 03:38:07 momjian Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -48,6 +48,7 @@ static ScanKeyword ScanKeywords[] = {
        { "backward",           BACKWARD        },
        { "before",             BEFORE          },
        { "begin",              BEGIN_TRANS     },
+       { "between",            BETWEEN         },
        { "binary",             BINARY          },
        { "by",                 BY              },
        { "cast",               CAST            },

diff --git a/src/backend/parser/scan.l b/src/backend/parser/scan.l
index 3fba67a70cfad31dc6b6165c454d289536dc9acb..df824124671cea5e749a4d6ad6f6c9482fab52dc 100644 (file)
--- a/src/backend/parser/scan.l
+++ b/src/backend/parser/scan.l
@@ -8,7 +8,7 @@
  *
  *
  * IDENTIFICATION
- *    $Header: /cvsroot/pgsql/src/backend/parser/scan.l,v 1.4 1996/11/11 04:54:45 momjian Exp $
+ *    $Header: /cvsroot/pgsql/src/backend/parser/scan.l,v 1.5 1996/11/30 03:38:09 momjian Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -97,7 +97,10 @@ other                .
 {self}         { return (yytext[0]);   }
 
 {operator}     {
-                       yylval.str = pstrdup((char*)yytext);
+                       if (strcmp((char*)yytext,"!=") == 0)
+                           yylval.str = pstrdup("<>"); /* compatability */
+                       else
+                           yylval.str = pstrdup((char*)yytext);
                        return (Op);
                }
 {param}                {       yylval.ival = atoi((char*)&yytext[1]);