rdelaage
/
postgresql
mirror of https://git.postgresql.org/git/postgresql.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix string conversions for operators in DEFAULT and CHECK clauses.

This commit is contained in:
Thomas G. Lockhart 1997-09-16 16:11:20 +00:00
parent 0829d2dba8
commit 43163cf5d6
1 changed files with 36 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
src/backend/parser/gram.y
View File

@ -10,7 +10,7 @@
* *
* *
* IDENTIFICATION * IDENTIFICATION
* $Header: /cvsroot/pgsql/src/backend/parser/gram.y,v 1.45 1997/09/13 03:15:46 thomas Exp $ * $Header: /cvsroot/pgsql/src/backend/parser/gram.y,v 1.46 1997/09/16 16:11:20 thomas Exp $
* *
* HISTORY * HISTORY
* AUTHOR DATE MAJOR EVENT * AUTHOR DATE MAJOR EVENT
@ -419,27 +419,27 @@ default_expr: AexprConst
| Pnull | Pnull
{ $$ = lcons( makeString("NULL"), NIL); } { $$ = lcons( makeString("NULL"), NIL); }
| '-' default_expr %prec UMINUS | '-' default_expr %prec UMINUS
{ $$ = lcons( makeString( "-"), $2); } { $$ = lcons( makeString( "-"), $2); }
| default_expr '+' default_expr | default_expr '+' default_expr
{ $$ = nconc( $1, lcons( makeString( "+"), $3)); } { $$ = nconc( $1, lcons( makeString( "+"), $3)); }
| default_expr '-' default_expr | default_expr '-' default_expr
{ $$ = nconc( $1, lcons( makeString( "-"), $3)); } { $$ = nconc( $1, lcons( makeString( "-"), $3)); }
| default_expr '/' default_expr | default_expr '/' default_expr
{ $$ = nconc( $1, lcons( makeString( "/"), $3)); } { $$ = nconc( $1, lcons( makeString( "/"), $3)); }
| default_expr '*' default_expr | default_expr '*' default_expr
{ $$ = nconc( $1, lcons( makeString( "*"), $3)); } { $$ = nconc( $1, lcons( makeString( "*"), $3)); }
| default_expr '=' default_expr | default_expr '=' default_expr
{ elog(WARN,"boolean expressions not supported in DEFAULT",NULL); } { elog(WARN,"boolean expressions not supported in DEFAULT",NULL); }
| default_expr '<' default_expr | default_expr '<' default_expr
{ elog(WARN,"boolean expressions not supported in DEFAULT",NULL); } { elog(WARN,"boolean expressions not supported in DEFAULT",NULL); }
| default_expr '>' default_expr | default_expr '>' default_expr
{ elog(WARN,"boolean expressions not supported in DEFAULT",NULL); } { elog(WARN,"boolean expressions not supported in DEFAULT",NULL); }
| ':' default_expr | ':' default_expr
{ $$ = lcons( makeString( ":"), $2); } { $$ = lcons( makeString( ":"), $2); }
| ';' default_expr | ';' default_expr
{ $$ = lcons( makeString( ";"), $2); } { $$ = lcons( makeString( ";"), $2); }
| '|' default_expr | '|' default_expr
{ $$ = lcons( makeString( "|"), $2); } { $$ = lcons( makeString( "|"), $2); }
| default_expr TYPECAST Typename | default_expr TYPECAST Typename
{ {
$$ = nconc( lcons( makeString( "CAST"), $1), makeList( makeString("AS"), $3, -1)); $$ = nconc( lcons( makeString( "CAST"), $1), makeList( makeString("AS"), $3, -1));
@ -449,7 +449,7 @@ default_expr: AexprConst
$$ = nconc( lcons( makeString( "CAST"), $2), makeList( makeString("AS"), $4, -1)); $$ = nconc( lcons( makeString( "CAST"), $2), makeList( makeString("AS"), $4, -1));
} }
| '(' default_expr ')' | '(' default_expr ')'
{ $$ = lappend( lcons( makeString( "("), $2), makeString( ")")); } { $$ = lappend( lcons( makeString( "("), $2), makeString( ")")); }
| name '(' default_expr ')' | name '(' default_expr ')'
{ {
$$ = makeList( makeString($1), makeString("("), -1); $$ = makeList( makeString($1), makeString("("), -1);
@ -460,12 +460,12 @@ default_expr: AexprConst
{ {
if (!strcmp("<=", $2) || !strcmp(">=", $2)) if (!strcmp("<=", $2) || !strcmp(">=", $2))
elog(WARN,"boolean expressions not supported in DEFAULT",NULL); elog(WARN,"boolean expressions not supported in DEFAULT",NULL);
$$ = nconc( $1, lcons( $2, $3)); $$ = nconc( $1, lcons( makeString( $2), $3));
} }
| Op default_expr | Op default_expr
{ $$ = lcons( $1, $2); } { $$ = lcons( makeString( $1), $2); }
| default_expr Op | default_expr Op
{ $$ = lcons( $2, $1); } { $$ = lappend( $1, makeString( $2)); }
; ;
opt_null: NOT PNULL { $$ = TRUE; } opt_null: NOT PNULL { $$ = TRUE; }
@ -635,6 +635,9 @@ printf("in ConstraintDef\n");
constr->type = CONSTR_CHECK; constr->type = CONSTR_CHECK;
constr->name = NULL; constr->name = NULL;
constr->def = FlattenStringList($2); constr->def = FlattenStringList($2);
#ifdef PARSEDEBUG
printf("ConstraintDef: string is %s\n", (char *) constr->def);
#endif
$$ = constr; $$ = constr;
} }
; ;
@ -651,27 +654,27 @@ printf( "Id is %s\n", $1);
$$ = lcons( makeString($1), NIL); $$ = lcons( makeString($1), NIL);
} }
| '-' constraint_elem %prec UMINUS | '-' constraint_elem %prec UMINUS
{ $$ = lcons( makeString( "-"), $2); } { $$ = lcons( makeString( "-"), $2); }
| constraint_elem '+' constraint_elem | constraint_elem '+' constraint_elem
{ $$ = nconc( $1, lcons( makeString( "+"), $3)); } { $$ = nconc( $1, lcons( makeString( "+"), $3)); }
| constraint_elem '-' constraint_elem | constraint_elem '-' constraint_elem
{ $$ = nconc( $1, lcons( makeString( "-"), $3)); } { $$ = nconc( $1, lcons( makeString( "-"), $3)); }
| constraint_elem '/' constraint_elem | constraint_elem '/' constraint_elem
{ $$ = nconc( $1, lcons( makeString( "/"), $3)); } { $$ = nconc( $1, lcons( makeString( "/"), $3)); }
| constraint_elem '*' constraint_elem | constraint_elem '*' constraint_elem
{ $$ = nconc( $1, lcons( makeString( "*"), $3)); } { $$ = nconc( $1, lcons( makeString( "*"), $3)); }
| constraint_elem '=' constraint_elem | constraint_elem '=' constraint_elem
{ $$ = nconc( $1, lcons( makeString( "="), $3)); } { $$ = nconc( $1, lcons( makeString( "="), $3)); }
| constraint_elem '<' constraint_elem | constraint_elem '<' constraint_elem
{ $$ = nconc( $1, lcons( makeString( "<"), $3)); } { $$ = nconc( $1, lcons( makeString( "<"), $3)); }
| constraint_elem '>' constraint_elem | constraint_elem '>' constraint_elem
{ $$ = nconc( $1, lcons( makeString( ">"), $3)); } { $$ = nconc( $1, lcons( makeString( ">"), $3)); }
| ':' constraint_elem | ':' constraint_elem
{ $$ = lcons( makeString( ":"), $2); } { $$ = lcons( makeString( ":"), $2); }
| ';' constraint_elem | ';' constraint_elem
{ $$ = lcons( makeString( ";"), $2); } { $$ = lcons( makeString( ";"), $2); }
| '|' constraint_elem | '|' constraint_elem
{ $$ = lcons( makeString( "|"), $2); } { $$ = lcons( makeString( "|"), $2); }
| constraint_elem TYPECAST Typename | constraint_elem TYPECAST Typename
{ {
$$ = nconc( lcons( makeString( "CAST"), $1), makeList( makeString("AS"), $3, -1)); $$ = nconc( lcons( makeString( "CAST"), $1), makeList( makeString("AS"), $3, -1));
@ -681,7 +684,7 @@ printf( "Id is %s\n", $1);
$$ = nconc( lcons( makeString( "CAST"), $2), makeList( makeString("AS"), $4, -1)); $$ = nconc( lcons( makeString( "CAST"), $2), makeList( makeString("AS"), $4, -1));
} }
| '(' constraint_elem ')' | '(' constraint_elem ')'
{ $$ = lappend( lcons( makeString( "("), $2), makeString( ")")); } { $$ = lappend( lcons( makeString( "("), $2), makeString( ")")); }
| name '(' constraint_elem ')' | name '(' constraint_elem ')'
{ {
$$ = makeList( makeString($1), makeString("("), -1); $$ = makeList( makeString($1), makeString("("), -1);
@ -689,15 +692,15 @@ printf( "Id is %s\n", $1);
$$ = lappend( $$, makeString(")")); $$ = lappend( $$, makeString(")"));
} }
| constraint_elem Op constraint_elem | constraint_elem Op constraint_elem
{ $$ = nconc( $1, lcons( $2, $3)); } { $$ = nconc( $1, lcons( makeString( $2), $3)); }
| constraint_elem AND constraint_elem | constraint_elem AND constraint_elem
{ $$ = nconc( $1, lcons( makeString( "AND"), $3)); } { $$ = nconc( $1, lcons( makeString( "AND"), $3)); }
| constraint_elem OR constraint_elem | constraint_elem OR constraint_elem
{ $$ = nconc( $1, lcons( makeString( "OR"), $3)); } { $$ = nconc( $1, lcons( makeString( "OR"), $3)); }
| Op constraint_elem | Op constraint_elem
{ $$ = lcons( $1, $2); } { $$ = lcons( makeString( $1), $2); }
| constraint_elem Op | constraint_elem Op
{ $$ = lcons( $2, $1); } { $$ = lappend( $1, makeString( $2)); }
; ;