aboutsummaryrefslogtreecommitdiff
path: root/src/backend
diff options
context:
space:
mode:
Diffstat (limited to 'src/backend')
-rw-r--r--src/backend/nodes/copyfuncs.c28
-rw-r--r--src/backend/nodes/outfuncs.c28
-rw-r--r--src/backend/nodes/readfuncs.c45
-rw-r--r--src/backend/parser/gram.y146
-rw-r--r--src/backend/parser/parse_node.c13
5 files changed, 160 insertions, 100 deletions
diff --git a/src/backend/nodes/copyfuncs.c b/src/backend/nodes/copyfuncs.c
index fe045539223..834cc8c2571 100644
--- a/src/backend/nodes/copyfuncs.c
+++ b/src/backend/nodes/copyfuncs.c
@@ -7,7 +7,7 @@
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/nodes/copyfuncs.c,v 1.31 1998/01/16 23:19:56 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/backend/nodes/copyfuncs.c,v 1.32 1998/01/17 04:53:07 momjian Exp $
*
*-------------------------------------------------------------------------
*/
@@ -892,6 +892,28 @@ _copyAggreg(Aggreg *from)
return newnode;
}
+/* ----------------
+ * _copySubLink
+ * ----------------
+ */
+static SubLink *
+_copySubLink(SubLink *from)
+{
+ SubLink *newnode = makeNode(SubLink);
+
+ /* ----------------
+ * copy remainder of node
+ * ----------------
+ */
+ newnode->subLinkType = from->subLinkType;
+ newnode->useor = from->useor;
+ Node_Copy(from, newnode, lefthand);
+ Node_Copy(from, newnode, oper);
+ Node_Copy(from, newnode, subselect);
+
+ return newnode;
+}
+
static Array *
_copyArray(Array *from)
{
@@ -1517,6 +1539,7 @@ _copyQuery(Query *from)
Node_Copy(from, newnode, havingQual);
newnode->hasAggs = from->hasAggs;
+ newnode->hasSubLinks = from->hasSubLinks;
if (from->unionClause)
{
@@ -1673,6 +1696,9 @@ copyObject(void *from)
case T_Aggreg:
retval = _copyAggreg(from);
break;
+ case T_SubLink:
+ retval = _copySubLink(from);
+ break;
/*
* RELATION NODES
diff --git a/src/backend/nodes/outfuncs.c b/src/backend/nodes/outfuncs.c
index 41f3022c135..63c2ffef434 100644
--- a/src/backend/nodes/outfuncs.c
+++ b/src/backend/nodes/outfuncs.c
@@ -7,7 +7,7 @@
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/nodes/outfuncs.c,v 1.22 1998/01/16 23:19:59 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/backend/nodes/outfuncs.c,v 1.23 1998/01/17 04:53:09 momjian Exp $
*
* NOTES
* Every (plan) node in POSTGRES has an associated "out" routine which
@@ -230,6 +230,8 @@ _outQuery(StringInfo str, Query *node)
_outNode(str, node->havingQual);
appendStringInfo(str, " :hasAggs ");
appendStringInfo(str, (node->hasAggs ? "true" : "false"));
+ appendStringInfo(str, " :hasSubLinks ");
+ appendStringInfo(str, (node->hasSubLinks ? "true" : "false"));
appendStringInfo(str, " :unionClause ");
_outNode(str, node->unionClause);
}
@@ -754,6 +756,27 @@ _outAggreg(StringInfo str, Aggreg *node)
}
/*
+ * SubLink
+ */
+static void
+_outSubLink(StringInfo str, SubLink *node)
+{
+ char buf[500];
+
+ appendStringInfo(str, "SUBLINK");
+ sprintf(buf, " :subLinkType %d ", node->subLinkType);
+ appendStringInfo(str, buf);
+ appendStringInfo(str, " :useor ");
+ appendStringInfo(str, node->useor ? "true" : "false");
+ appendStringInfo(str, " :lefthand ");
+ _outNode(str, node->lefthand);
+ appendStringInfo(str, " :oper ");
+ _outNode(str, node->oper);
+ appendStringInfo(str, " :subselect ");
+ _outNode(str, node->subselect);
+}
+
+/*
* Array is a subclass of Expr
*/
static void
@@ -1648,6 +1671,9 @@ _outNode(StringInfo str, void *obj)
case T_Aggreg:
_outAggreg(str, obj);
break;
+ case T_SubLink:
+ _outSubLink(str, obj);
+ break;
case T_Array:
_outArray(str, obj);
break;
diff --git a/src/backend/nodes/readfuncs.c b/src/backend/nodes/readfuncs.c
index 574d5c69e2c..e2c458e2933 100644
--- a/src/backend/nodes/readfuncs.c
+++ b/src/backend/nodes/readfuncs.c
@@ -7,7 +7,7 @@
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/nodes/readfuncs.c,v 1.18 1998/01/15 18:59:31 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/backend/nodes/readfuncs.c,v 1.19 1998/01/17 04:53:11 momjian Exp $
*
* NOTES
* Most of the read functions for plan nodes are tested. (In fact, they
@@ -156,6 +156,10 @@ _readQuery()
token = lsptok(NULL, &length); /* get hasAggs */
local_node->hasAggs = (token[0] == 't') ? true : false;
+ token = lsptok(NULL, &length); /* skip the :hasSubLinks */
+ token = lsptok(NULL, &length); /* get hasSubLinks */
+ local_node->hasSubLinks = (token[0] == 't') ? true : false;
+
token = lsptok(NULL, &length); /* skip :unionClause */
local_node->unionClause = nodeRead(true);
@@ -1151,6 +1155,41 @@ _readAggreg()
return (local_node);
}
+/* ----------------
+ * _readSubLink
+ *
+ * SubLink is a subclass of Node
+ * ----------------
+ */
+static SubLink *
+_readSubLink()
+{
+ SubLink *local_node;
+ char *token;
+ int length;
+
+ local_node = makeNode(SubLink);
+
+ token = lsptok(NULL, &length); /* eat :subLinkType */
+ token = lsptok(NULL, &length); /* get subLinkType */
+ local_node->subLinkType = atoi(token);
+
+ token = lsptok(NULL, &length); /* eat :useor */
+ token = lsptok(NULL, &length); /* get useor */
+ local_node->useor = (token[0] == 't') ? true : false;
+
+ token = lsptok(NULL, &length); /* eat :lefthand */
+ local_node->lefthand = nodeRead(true); /* now read it */
+
+ token = lsptok(NULL, &length); /* eat :oper */
+ local_node->oper = nodeRead(true); /* now read it */
+
+ token = lsptok(NULL, &length); /* eat :subselect */
+ local_node->subselect = nodeRead(true); /* now read it */
+
+ return (local_node);
+}
+
/*
* Stuff from execnodes.h
*/
@@ -1971,6 +2010,10 @@ parsePlanString(void)
{
return_value = _readAggreg();
}
+ else if (!strncmp(token, "SUBLINK", 6))
+ {
+ return_value = _readSubLink();
+ }
else if (!strncmp(token, "AGG", 3))
{
return_value = _readAgg();
diff --git a/src/backend/parser/gram.y b/src/backend/parser/gram.y
index 77a2e0b7c29..a13a07aa2ce 100644
--- 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.91 1998/01/16 23:20:14 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/backend/parser/gram.y,v 1.92 1998/01/17 04:53:16 momjian Exp $
*
* HISTORY
* AUTHOR DATE MAJOR EVENT
@@ -63,7 +63,6 @@ extern List *parsetree;
static char *xlateSqlType(char *);
static Node *makeA_Expr(int oper, char *opname, Node *lexpr, Node *rexpr);
-static Node *makeRowExpr(char *opr, List *largs, List *rargs);
void mapTargetColumns(List *source, List *target);
static List *makeConstantList( A_Const *node);
static char *FlattenStringList(List *list);
@@ -2151,9 +2150,9 @@ insert_rest: VALUES '(' res_target_list2 ')'
$$->unique = NULL;
$$->targetList = $3;
$$->fromClause = NIL;
- $$->whereClause = NIL;
+ $$->whereClause = NULL;
$$->groupClause = NIL;
- $$->havingClause = NIL;
+ $$->havingClause = NULL;
$$->unionClause = NIL;
}
| SELECT opt_unique res_target_list2
@@ -2869,28 +2868,41 @@ a_expr_or_null: a_expr
*/
row_expr: '(' row_descriptor ')' IN '(' SubSelect ')'
{
- $$ = NULL;
+ SubLink *n = makeNode(SubLink);
+ n->lefthand = $2;
+ n->subLinkType = IN_SUBLINK;
+ n->subselect = $6;
+ $$ = (Node *)n;
}
| '(' row_descriptor ')' NOT IN '(' SubSelect ')'
{
- $$ = NULL;
- }
- | '(' row_descriptor ')' '=' '(' row_descriptor ')'
- {
- $$ = makeRowExpr("=", $2, $6);
- }
- | '(' row_descriptor ')' '<' '(' row_descriptor ')'
- {
- $$ = makeRowExpr("<", $2, $6);
+ SubLink *n = makeNode(SubLink);
+ n->lefthand = $2;
+ n->subLinkType = NOTIN_SUBLINK;
+ n->subselect = $7;
+ $$ = (Node *)n;
}
- | '(' row_descriptor ')' '>' '(' row_descriptor ')'
+/* We accept all Operators? */
+ | '(' row_descriptor ')' Op '(' SubSelect ')'
{
- $$ = makeRowExpr("<", $2, $6);
+ SubLink *n = makeNode(SubLink);
+ n->lefthand = $2;
+ n->subLinkType = OPER_SUBLINK;
+ n->oper = lcons($4, NIL);
+ n->subselect = $6;
+ $$ = (Node *)n;
}
+/* Do we need this?
| '(' row_descriptor ')' Op '(' row_descriptor ')'
{
- $$ = makeRowExpr($4, $2, $6);
+ SubLink *n = makeNode(SubLink);
+ n->lefthand = $2;
+ n->subLinkType = OPER_SUBLINK;
+ n->oper = lcons($4, NIL);
+ n->subselect = $6;
+ $$ = (Node *)n;
}
+*/
;
row_descriptor: row_list ',' a_expr
@@ -3116,8 +3128,12 @@ a_expr: attr opt_indirection
*/
| EXISTS '(' SubSelect ')'
{
- elog(ERROR,"EXISTS not yet implemented");
- $$ = $3;
+ SubLink *n = makeNode(SubLink);
+ n->lefthand = NIL;
+ n->subLinkType = EXISTS_SUBLINK;
+ n->oper = NIL;
+ n->subselect = $3;
+ $$ = (Node *)n;
}
| EXTRACT '(' extract_list ')'
{
@@ -3231,9 +3247,25 @@ a_expr: attr opt_indirection
makeA_Expr(OP, ">", $1, $6));
}
| a_expr IN { saved_In_Expr = $1; } '(' in_expr ')'
- { $$ = $5; }
+ {
+ if (nodeTag($5) == T_SubLink)
+ {
+ ((SubLink *)$5)->lefthand = lcons($1, NIL);
+ ((SubLink *)$5)->subLinkType = IN_SUBLINK;
+ $$ = (Node *)$5;
+ }
+ else $$ = $5;
+ }
| a_expr NOT IN { saved_In_Expr = $1; } '(' not_in_expr ')'
- { $$ = $6; }
+ {
+ if (nodeTag($6) == T_SubLink)
+ {
+ ((SubLink *)$6)->lefthand = lcons($1, NIL);
+ ((SubLink *)$6)->subLinkType = NOTIN_SUBLINK;
+ $$ = (Node *)$6;
+ }
+ else $$ = $6;
+ }
| a_expr AND a_expr
{ $$ = makeA_Expr(AND, NULL, $1, $3); }
| a_expr OR a_expr
@@ -3446,8 +3478,9 @@ trim_list: a_expr FROM expr_list
in_expr: SubSelect
{
- elog(ERROR,"IN (SUBSELECT) not yet implemented");
- $$ = $1;
+ SubLink *n = makeNode(SubLink);
+ n->subselect = $1;
+ $$ = (Node *)n;
}
| in_expr_nodes
{ $$ = $1; }
@@ -3463,8 +3496,9 @@ in_expr_nodes: AexprConst
not_in_expr: SubSelect
{
- elog(ERROR,"NOT IN (SUBSELECT) not yet implemented");
- $$ = $1;
+ SubLink *n = makeNode(SubLink);
+ n->subselect = $1;
+ $$ = (Node *)n;
}
| not_in_expr_nodes
{ $$ = $1; }
@@ -3807,68 +3841,6 @@ makeA_Expr(int oper, char *opname, Node *lexpr, Node *rexpr)
return (Node *)a;
}
-/* makeRowExpr()
- * Generate separate operator nodes for a single row descriptor expression.
- * Perhaps this should go deeper in the parser someday... - thomas 1997-12-22
- */
-static Node *
-makeRowExpr(char *opr, List *largs, List *rargs)
-{
- Node *expr = NULL;
- Node *larg, *rarg;
-
- if (length(largs) != length(rargs))
- elog(ERROR,"Unequal number of entries in row expression");
-
- if (lnext(largs) != NIL)
- expr = makeRowExpr(opr,lnext(largs),lnext(rargs));
-
- larg = lfirst(largs);
- rarg = lfirst(rargs);
-
- if ((strcmp(opr, "=") == 0)
- || (strcmp(opr, "<") == 0)
- || (strcmp(opr, "<=") == 0)
- || (strcmp(opr, ">") == 0)
- || (strcmp(opr, ">=") == 0))
- {
- if (expr == NULL)
- expr = makeA_Expr(OP, opr, larg, rarg);
- else
- expr = makeA_Expr(AND, NULL, expr, makeA_Expr(OP, opr, larg, rarg));
- }
- else if (strcmp(opr, "<>") == 0)
- {
- if (expr == NULL)
- expr = makeA_Expr(OP, opr, larg, rarg);
- else
- expr = makeA_Expr(OR, NULL, expr, makeA_Expr(OP, opr, larg, rarg));
- }
- else
- {
- elog(ERROR,"Operator '%s' not implemented for row expressions",opr);
- }
-
-#if FALSE
- while ((largs != NIL) && (rargs != NIL))
- {
- larg = lfirst(largs);
- rarg = lfirst(rargs);
-
- if (expr == NULL)
- expr = makeA_Expr(OP, opr, larg, rarg);
- else
- expr = makeA_Expr(AND, NULL, expr, makeA_Expr(OP, opr, larg, rarg));
-
- largs = lnext(largs);
- rargs = lnext(rargs);
- }
- pprint(expr);
-#endif
-
- return expr;
-} /* makeRowExpr() */
-
void
mapTargetColumns(List *src, List *dst)
{
diff --git a/src/backend/parser/parse_node.c b/src/backend/parser/parse_node.c
index 04b40041b9d..15a47993a7f 100644
--- a/src/backend/parser/parse_node.c
+++ b/src/backend/parser/parse_node.c
@@ -7,7 +7,7 @@
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/parser/parse_node.c,v 1.6 1998/01/15 19:00:04 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/backend/parser/parse_node.c,v 1.7 1998/01/17 04:53:19 momjian Exp $
*
*-------------------------------------------------------------------------
*/
@@ -47,16 +47,9 @@ make_parsestate(void)
ParseState *pstate;
pstate = palloc(sizeof(ParseState));
+ MemSet(pstate, 0, sizeof(ParseState));
+
pstate->p_last_resno = 1;
- pstate->p_rtable = NIL;
- pstate->p_hasAggs = false;
- pstate->p_is_insert = false;
- pstate->p_insert_columns = NIL;
- pstate->p_is_update = false;
- pstate->p_is_rule = false;
- pstate->p_in_where_clause = false;
- pstate->p_target_relation = NULL;
- pstate->p_target_rangetblentry = NULL;
return (pstate);
}
generated by cgit v1.2.3 (git 2.25.1) at 2025-06-04 18:00:04 +0000