diff options
| author | Bruce Momjian <bruce@momjian.us> | 1998-10-02 16:23:07 +0000 |
|---|---|---|
| committer | Bruce Momjian <bruce@momjian.us> | 1998-10-02 16:23:07 +0000 |
| commit | 9b21a18cee705fa972e5b8f8ab106145015bafe7 (patch) | |
| tree | 5b3b9405c64278725831546e69ae6e6b70e6d51f /src/backend/parser/parse_expr.c | |
| parent | 772a596ed2c0ebe1728b3dfa9a53a96e7fbdd0d0 (diff) | |
| download | postgresql-9b21a18cee705fa972e5b8f8ab106145015bafe7.tar.gz postgresql-9b21a18cee705fa972e5b8f8ab106145015bafe7.zip | |
the following little patch adds array references to query
parameters. With it applied a function like
CREATE FUNCTION getname(oid8, int4) RETURNS name AS
'SELECT typname FROM pg_type WHERE oid = $1[$2]'
LANGUAGE 'sql';
is possible. Mainly I need this to enable array references in
expressions for PL/pgSQL. Complete regression test ran O.K.
Jan
Diffstat (limited to 'src/backend/parser/parse_expr.c')
| -rw-r--r-- | src/backend/parser/parse_expr.c | 36 |
1 files changed, 34 insertions, 2 deletions
diff --git a/src/backend/parser/parse_expr.c b/src/backend/parser/parse_expr.c index 6bb923afce0..0c2a40a190a 100644 --- a/src/backend/parser/parse_expr.c +++ b/src/backend/parser/parse_expr.c @@ -7,7 +7,7 @@ * * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/backend/parser/parse_expr.c,v 1.35 1998/10/01 22:51:20 momjian Exp $ + * $Header: /cvsroot/pgsql/src/backend/parser/parse_expr.c,v 1.36 1998/10/02 16:23:05 momjian Exp $ * *------------------------------------------------------------------------- */ @@ -122,7 +122,39 @@ transformExpr(ParseState *pstate, Node *expr, int precedence) param->paramtype = (Oid) toid; param->param_tlist = (List *) NULL; - result = (Node *) param; + if (pno->indirection != NIL) + { + List *idx = pno->indirection; + + while (idx != NIL) + { + A_Indices *ai = (A_Indices *) lfirst(idx); + Node *lexpr = NULL, + *uexpr; + + uexpr = transformExpr(pstate, ai->uidx, precedence); /* must exists */ + if (exprType(uexpr) != INT4OID) + elog(ERROR, "array index expressions must be int4's"); + if (ai->lidx != NULL) + { + lexpr = transformExpr(pstate, ai->lidx, precedence); + if (exprType(lexpr) != INT4OID) + elog(ERROR, "array index expressions must be int4's"); + } + ai->lidx = lexpr; + ai->uidx = uexpr; + + /* + * note we reuse the list of indices, make sure we + * don't free them! Otherwise, make a new list + * here + */ + idx = lnext(idx); + } + result = (Node *) make_array_ref((Node *)param, pno->indirection); + } + else + result = (Node *) param; break; } case T_A_Expr: |