ynced parser and keyword list.
authorMichael Meskes
Wed, 2 Aug 2006 13:43:23 +0000 (13:43 +0000)
committerMichael Meskes
Wed, 2 Aug 2006 13:43:23 +0000 (13:43 +0000)
Implemented EXEC SQL UNDEF.
Applied first version of the regression test patch by Joachim Wieland .

src/interfaces/ecpg/ChangeLog
src/interfaces/ecpg/ecpglib/connect.c
src/interfaces/ecpg/ecpglib/error.c
src/interfaces/ecpg/ecpglib/execute.c
src/interfaces/ecpg/include/ecpglib.h
src/interfaces/ecpg/preproc/keywords.c
src/interfaces/ecpg/preproc/pgc.l
src/interfaces/ecpg/preproc/preproc.y
src/interfaces/ecpg/test/Makefile

index 80d9ebc3facdab632a68cc16012c156da2a42dcb..7904efa1476ec6889045c499055a850c545a062d 100644 (file)
@@ -2052,5 +2052,17 @@ Fr Jul 28 11:00:51 CEST 2006
        - COPY TO STDOUT works
        - Connection identifier has to be unique
    - Variables should be free'ed only once.
+
+Tu Aug  1 15:04:52 CEST 2006
+
+   - Applied patch by Joachim Wieland  to fix segfault
+     occuring when using --enable-thread-safety.
+
+We Aug  2 13:15:25 CEST 2006
+
+   - Synced parser and keyword list.
+   - Implemented EXEC SQL UNDEF.
+   - Applied first version of the regression test patch by Joachim
+     Wieland .
    - Set ecpg library version to 5.2.
    - Set ecpg version to 4.2.1.
index dcc70a5754486ba3c88540da0dcaace10922c13a..2192f0311f52fe5ee27ce259ddc806a2fafed650 100644 (file)
@@ -1,4 +1,4 @@
-/* $PostgreSQL: pgsql/src/interfaces/ecpg/ecpglib/connect.c,v 1.31 2006/07/28 10:10:42 meskes Exp $ */
+/* $PostgreSQL: pgsql/src/interfaces/ecpg/ecpglib/connect.c,v 1.32 2006/08/02 13:43:22 meskes Exp $ */
 
 #define POSTGRES_ECPG_INTERNAL
 #include "postgres_fe.h"
@@ -26,6 +26,11 @@ ecpg_actual_connection_init(void)
 {
    pthread_key_create(&actual_connection_key, NULL);
 }
+
+void ecpg_pthreads_init(void)
+{
+   pthread_once(&actual_connection_key_once, ecpg_actual_connection_init);
+}
 #endif
 
 static struct connection *
@@ -43,13 +48,10 @@ ecpg_get_connection_nr(const char *connection_name)
         * connection and hope the user knows what they're doing (i.e. using
         * their own mutex to protect that connection from concurrent accesses
         */
+       /* if !ret then  we  got the connection from TSD */
        if (NULL == ret)
-       {
-           ECPGlog("no TSD connection, going for global\n");
+           /* no TSD connection, going for global */
            ret = actual_connection;
-       }
-       else
-           ECPGlog("got the TSD connection\n");
 #else
        ret = actual_connection;
 #endif
@@ -84,13 +86,10 @@ ECPGget_connection(const char *connection_name)
         * connection and hope the user knows what they're doing (i.e. using
         * their own mutex to protect that connection from concurrent accesses
         */
+       /* if !ret then  we  got the connection from TSD */
        if (NULL == ret)
-       {
-           ECPGlog("no TSD connection here either, using global\n");
+           /* no TSD connection here either, using global */
            ret = actual_connection;
-       }
-       else
-           ECPGlog("got TSD connection\n");
 #else
        ret = actual_connection;
 #endif
@@ -298,6 +297,10 @@ ECPGconnect(int lineno, int c, const char *name, const char *user, const char *p
    if (dbname == NULL && connection_name == NULL)
        connection_name = "DEFAULT";
 
+#if ENABLE_THREAD_SAFETY
+   ecpg_pthreads_init();
+#endif
+
    /* check if the identifier is unique */
    if (ECPGget_connection(connection_name))
    {
@@ -450,7 +453,6 @@ ECPGconnect(int lineno, int c, const char *name, const char *user, const char *p
 
    all_connections = this;
 #ifdef ENABLE_THREAD_SAFETY
-   pthread_once(&actual_connection_key_once, ecpg_actual_connection_init);
    pthread_setspecific(actual_connection_key, all_connections);
 #endif
    actual_connection = all_connections;
index 935452b46dfb7a4d04bec9f7df92e7a0f8081b37..5e65c0df8d4cf2a7fd6ceaf17051728d9f42ee03 100644 (file)
@@ -1,4 +1,4 @@
-/* $PostgreSQL: pgsql/src/interfaces/ecpg/ecpglib/error.c,v 1.13 2006/07/14 05:28:28 tgl Exp $ */
+/* $PostgreSQL: pgsql/src/interfaces/ecpg/ecpglib/error.c,v 1.14 2006/08/02 13:43:23 meskes Exp $ */
 
 #define POSTGRES_ECPG_INTERNAL
 #include "postgres_fe.h"
@@ -189,8 +189,8 @@ ECPGraise_backend(int line, PGresult *result, PGconn *conn, int compat)
    else
        sqlca->sqlcode = ECPG_PGSQL;
 
-   ECPGlog("raising sqlstate %.*s in line %d, '%s'.\n",
-   sizeof(sqlca->sqlstate), sqlca->sqlstate, line, sqlca->sqlerrm.sqlerrmc);
+   ECPGlog("raising sqlstate %.*s (sqlcode: %d) in line %d, '%s'.\n",
+   sizeof(sqlca->sqlstate), sqlca->sqlstate, sqlca->sqlcode, line, sqlca->sqlerrm.sqlerrmc);
 
    /* free all memory we have allocated for the user */
    ECPGfree_auto_mem();
index e98646214d41e64b8f2ff18569ba7099a41177bc..93f912b891502e337f8784ef7a9b15d1b3177cf2 100644 (file)
@@ -1,4 +1,4 @@
-/* $PostgreSQL: pgsql/src/interfaces/ecpg/ecpglib/execute.c,v 1.55 2006/07/28 11:49:36 meskes Exp $ */
+/* $PostgreSQL: pgsql/src/interfaces/ecpg/ecpglib/execute.c,v 1.56 2006/08/02 13:43:23 meskes Exp $ */
 
 /*
  * The aim is to get a simpler inteface to the database routines.
@@ -1465,7 +1465,7 @@ ECPGdo(int lineno, int compat, int force_indicator, const char *connection_name,
 {
    va_list     args;
    struct statement *stmt;
-   struct connection *con = ECPGget_connection(connection_name);
+   struct connection *con;
    bool        status;
    char       *oldlocale;
 
@@ -1474,6 +1474,12 @@ ECPGdo(int lineno, int compat, int force_indicator, const char *connection_name,
    oldlocale = ECPGstrdup(setlocale(LC_NUMERIC, NULL), lineno);
    setlocale(LC_NUMERIC, "C");
 
+#ifdef ENABLE_THREAD_SAFETY
+   ecpg_pthreads_init();
+#endif
+
+   con = ECPGget_connection(connection_name);
+
    if (!ECPGinit(con, connection_name, lineno))
    {
        setlocale(LC_NUMERIC, oldlocale);
index 8998f400792e4e06380d65da1563e9aea22a0f6f..a60b4f0dee1fd3d131bdad72748f9498f5cdc170 100644 (file)
@@ -1,7 +1,7 @@
 /*
  * this is a small part of c.h since we don't want to leak all postgres
  * definitions into ecpg programs
- * $PostgreSQL: pgsql/src/interfaces/ecpg/include/ecpglib.h,v 1.67 2006/07/11 13:54:25 momjian Exp $
+ * $PostgreSQL: pgsql/src/interfaces/ecpg/include/ecpglib.h,v 1.68 2006/08/02 13:43:23 meskes Exp $
  */
 
 #ifndef _ECPGLIB_H
@@ -85,6 +85,10 @@ bool     ECPGdescribe(int, bool, const char *,...);
 /* dynamic result allocation */
 void       ECPGfree_auto_mem(void);
 
+#ifdef ENABLE_THREAD_SAFETY
+void       ecpg_pthreads_init();
+#endif
+
 #ifdef __cplusplus
 }
 #endif
index a111576edc8697d15f0f113d24ee2b036372dfb7..a1879c99733ed9e61c8f18585c4a25a7e3096e6b 100644 (file)
@@ -8,7 +8,7 @@
  *
  *
  * IDENTIFICATION
- *   $PostgreSQL: pgsql/src/interfaces/ecpg/preproc/keywords.c,v 1.73 2006/03/05 15:59:08 momjian Exp $
+ *   $PostgreSQL: pgsql/src/interfaces/ecpg/preproc/keywords.c,v 1.74 2006/08/02 13:43:23 meskes Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -167,6 +167,7 @@ static ScanKeyword ScanKeywords[] = {
    {"including", INCLUDING},
    {"increment", INCREMENT},
    {"index", INDEX},
+   {"indexes", INDEXES},
    {"inherit", INHERIT},
    {"inherits", INHERITS},
    {"initially", INITIALLY},
@@ -324,7 +325,6 @@ static ScanKeyword ScanKeywords[] = {
    {"time", TIME},
    {"timestamp", TIMESTAMP},
    {"to", TO},
-   {"toast", TOAST},
    {"trailing", TRAILING},
    {"transaction", TRANSACTION},
    {"treat", TREAT},
index ee20840581b1f1bc4054096c517b077726733e08..5dff416f6bef2d9d40acca2c56e16dc98c8cb0ab 100644 (file)
@@ -12,7 +12,7 @@
  *
  *
  * IDENTIFICATION
- *   $PostgreSQL: pgsql/src/interfaces/ecpg/preproc/pgc.l,v 1.147 2006/07/14 05:28:28 tgl Exp $
+ *   $PostgreSQL: pgsql/src/interfaces/ecpg/preproc/pgc.l,v 1.148 2006/08/02 13:43:23 meskes Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -79,7 +79,7 @@ static struct _if_value
 
 %option yylineno
 
-%s C SQL incl def def_ident
+%s C SQL incl def def_ident undef 
 
 /*
  * OK, here is a short description of lex/flex rules behavior.
@@ -285,6 +285,7 @@ exec            [eE][xX][eE][cC]
 sql                [sS][qQ][lL]
 define         [dD][eE][fF][iI][nN][eE]
 include        [iI][nN][cC][lL][uU][dD][eE]
+undef          [uU][nN][dD][eE][fF]
 
 ifdef          [iI][fF][dD][eE][fF]
 ifndef         [iI][fF][nN][dD][eE][fF]
@@ -837,7 +838,6 @@ cppline         {space}*#(.*\\{space})*.*{newline}
 "->*"           { return(S_MEMPOINT); }
 ".*"                { return(S_DOTPOINT); }
 {other}         { return S_ANYTHING; }
-
 {exec_sql}{define}{space}*  { BEGIN(def_ident); }
 {informix_special}{define}{space}*  {
                        /* are we simulating Informix? */
@@ -851,6 +851,55 @@ cppline            {space}*#(.*\\{space})*.*{newline}
                            return (S_ANYTHING);
                        }
                    }
+{exec_sql}{undef}{space}*       { BEGIN(undef); }
+{informix_special}{undef}{space}*   {
+                       /* are we simulating Informix? */
+                       if (INFORMIX_MODE)
+                       {
+                           BEGIN(undef);
+                       }
+                       else
+                       {
+                           yyless(1);
+                           return (S_ANYTHING);
+                       }
+                   }
+{identifier}{space}*";" {
+                   struct _defines *ptr, *ptr2 = NULL;
+                   int i;
+
+                   /*
+                    *  Skip the ";" and trailing whitespace. Note that yytext
+                    *  contains at least one non-space character plus the ";"
+                    */
+                   for (i = strlen(yytext)-2;
+                        i > 0 && isspace((unsigned char) yytext[i]);
+                        i-- )
+                       ;
+                   yytext[i+1] = '\0';
+
+
+                   for (ptr = defines; ptr != NULL; ptr2 = ptr, ptr = ptr->next)
+                   {
+                       if (strcmp(yytext, ptr->old) == 0)
+                       {
+                           if (ptr2 == NULL)
+                               defines = ptr->next;
+                           else
+                               ptr2->next = ptr->next;
+                           free(ptr->new);
+                           free(ptr->old);
+                           free(ptr);
+                           break;
+                       }
+                   }
+
+                   BEGIN(C);
+               }
+{other}         {
+                           mmerror(PARSE_ERROR, ET_FATAL, "Missing identifier in 'EXEC SQL UNDEF' command");
+                           yyterminate();
+               }
 {exec_sql}{include}{space}* { BEGIN(incl); }
 {informix_special}{include}{space}* { 
                      /* are we simulating Informix? */
index 71712b1bb4a4345aa90887cd48e7c93928e05e7f..ce7484ca7878803c91a850915a7c4b074aa7d061 100644 (file)
@@ -1,4 +1,4 @@
-/* $PostgreSQL: pgsql/src/interfaces/ecpg/preproc/preproc.y,v 1.326 2006/07/28 09:08:01 meskes Exp $ */
+/* $PostgreSQL: pgsql/src/interfaces/ecpg/preproc/preproc.y,v 1.327 2006/08/02 13:43:23 meskes Exp $ */
 
 /* Copyright comment */
 %{
@@ -379,7 +379,7 @@ add_additional_variables(char *name, bool insert)
    HANDLER HAVING HEADER_P HOLD HOUR_P
 
    IF_P ILIKE IMMEDIATE IMMUTABLE IMPLICIT_P IN_P INCLUDING INCREMENT
-   INDEX INHERIT INHERITS INITIALLY INNER_P INOUT INPUT_P
+   INDEX INDEXES INHERIT INHERITS INITIALLY INNER_P INOUT INPUT_P
    INSENSITIVE INSERT INSTEAD INT_P INTEGER INTERSECT
    INTERVAL INTO INVOKER IS ISNULL ISOLATION
 
@@ -416,7 +416,7 @@ add_additional_variables(char *name, bool insert)
    STATISTICS STDIN STDOUT STORAGE STRICT_P SUBSTRING SUPERUSER_P SYMMETRIC
    SYSID SYSTEM_P
 
-   TABLE TABLESPACE TEMP TEMPLATE TEMPORARY THEN TIME TIMESTAMP TO TOAST
+   TABLE TABLESPACE TEMP TEMPLATE TEMPORARY THEN TIME TIMESTAMP TO 
    TRAILING TRANSACTION TREAT TRIGGER TRIM TRUE_P TRUNCATE TRUSTED TYPE_P
 
    UNCOMMITTED UNENCRYPTED UNION UNIQUE UNKNOWN UNLISTEN UNTIL
@@ -497,9 +497,9 @@ add_additional_variables(char *name, bool insert)
 %type     columnList DeleteStmt UpdateStmt DeclareCursorStmt
 %type     NotifyStmt columnElem UnlistenStmt TableElement
 %type     copy_delimiter ListenStmt CopyStmt copy_file_name opt_binary
-%type     FetchStmt from_in CreateOpClassStmt like_including_defaults
+%type     FetchStmt from_in CreateOpClassStmt 
 %type     ClosePortalStmt DropStmt VacuumStmt AnalyzeStmt opt_verbose
-%type     opt_full func_arg OptWithOids opt_freeze alter_table_cmd
+%type     opt_full func_arg OptWith opt_freeze alter_table_cmd
 %type     analyze_keyword opt_name_list ExplainStmt index_params
 %type     index_elem opt_class access_method_clause alter_table_cmds
 %type     index_opt_unique IndexStmt func_return ConstInterval
@@ -521,7 +521,7 @@ add_additional_variables(char *name, bool insert)
 %type     CreatePLangStmt TriggerFuncArgs TriggerFuncArg simple_select
 %type     ViewStmt LoadStmt CreatedbStmt createdb_opt_item ExplainableStmt
 %type     createdb_opt_list opt_encoding OptInherit opt_equal
-%type     privilege_list privilege privilege_target
+%type     privilege_list privilege privilege_target opt_if_exists
 %type     opt_grant_grant_option cursor_options DropOwnedStmt
 %type     transaction_mode_list_or_empty transaction_mode_list
 %type     function_with_argtypes_list function_with_argtypes IntConstVar
@@ -542,8 +542,8 @@ add_additional_variables(char *name, bool insert)
 %type     select_limit CheckPointStmt ECPGColId old_aggr_list
 %type     OptSchemaName OptSchemaEltList schema_stmt opt_drop_behavior
 %type     handler_name any_name_list any_name opt_as insert_column_list
-%type     columnref function_name insert_target_el AllConstVar
-%type     insert_target_list insert_column_item DropRuleStmt
+%type     columnref function_name values_clause AllConstVar
+%type     values_list insert_column_item DropRuleStmt values_item
 %type     createfunc_opt_item set_rest var_list_or_default alter_rel_cmd
 %type     CreateFunctionStmt createfunc_opt_list func_table
 %type     DropUserStmt copy_from copy_opt_list copy_opt_item
@@ -586,7 +586,7 @@ add_additional_variables(char *name, bool insert)
 %type     AlterObjectSchemaStmt alterdb_opt_list for_locking_clause opt_for_locking_clause
 %type     locked_rels_list opt_granted_by RevokeRoleStmt alterdb_opt_item using_clause
 %type     GrantRoleStmt opt_asymmetric aggr_args aggr_args_list old_aggr_definition
-%type     old_aggr_elem for_locking_items 
+%type     old_aggr_elem for_locking_items TableLikeOptionList TableLikeOption
 
 %type   s_struct_union_symbol
 
@@ -1292,9 +1292,6 @@ alter_table_cmd:
 /* ALTER TABLE  SET WITHOUT OIDS  */
        | SET WITHOUT OIDS
            { $$ = make_str("set without oids"); }
- /* ALTER TABLE  CREATE TOAST TABLE */
-       | CREATE TOAST TABLE
-           { $$ = make_str("create toast table"); }
 /* ALTER TABLE  CLUSTER ON  */
        | CLUSTER ON name
            { $$ = cat_str(2, make_str("cluster on"), $3); }
@@ -1319,6 +1316,14 @@ alter_table_cmd:
 /* ALTER TABLE  DISABLE TRIGGER USER */
        | DISABLE_P TRIGGER USER
            { $$ = make_str("disable trigger user"); }
+/* ALTER TABLE  ALTER INHERITS ADD  */
+       | INHERIT qualified_name
+           { $$ = cat2_str(make_str("inherit"), $2); }
+/* ALTER TABLE  ALTER INHERITS DROP  */
+       | NO INHERIT qualified_name
+           { $$ = cat2_str(make_str("no inherit"), $3); }
+       | alter_rel_cmd
+           { $$ = $1; }
        ;
 
 alter_rel_cmds: alter_rel_cmd                  { $$ = $1; }
@@ -1329,10 +1334,14 @@ alter_rel_cmds: alter_rel_cmd               { $$ = $1; }
 alter_rel_cmd:
        /* ALTER [TABLE|INDEX]  OWNER TO RoleId */
        OWNER TO RoleId
-           { $$ = cat_str(2, make_str("owner to"), $3); }
+           { $$ = cat2_str(make_str("owner to"), $3); }
        /* ALTER [TABLE|INDEX]  SET TABLESPACE  */
        | SET TABLESPACE name
-           { $$ = cat_str(2, make_str("set tablespace"), $3); }
+           { $$ = cat2_str(make_str("set tablespace"), $3); }
+       | SET definition
+           { $$ = cat2_str(make_str("set"), $2); }
+       | RESET definition
+           { $$ = cat2_str(make_str("reset"), $2); }
        ;
 
 alter_column_default:
@@ -1440,10 +1449,10 @@ opt_using:  USING       { $$ = make_str("using"); }
  *****************************************************************************/
 
 CreateStmt:  CREATE OptTemp TABLE qualified_name '(' OptTableElementList ')'
-               OptInherit OptWithOids OnCommitOption OptTableSpace
+               OptInherit OptWith OnCommitOption OptTableSpace
            { $$ = cat_str(11, make_str("create"), $2, make_str("table"), $4, make_str("("), $6, make_str(")"), $8, $9, $10, $11); }
        | CREATE OptTemp TABLE qualified_name OF qualified_name
-           '(' OptTableElementList ')' OptWithOids OnCommitOption OptTableSpace
+           '(' OptTableElementList ')' OptWith OnCommitOption OptTableSpace
            { $$ = cat_str(12, make_str("create"), $2, make_str("table"), $4, make_str("of"), $6, make_str("("), $8, make_str(")"), $10, $11, $12); }
        ;
 
@@ -1507,10 +1516,10 @@ ColConstraintElem:  NOT NULL_P
            { $$ = make_str("not null"); }
        | NULL_P
            { $$ = make_str("null"); }
-       | UNIQUE OptConsTableSpace
-           { $$ = cat2_str(make_str("unique"), $2); }
-       | PRIMARY KEY OptConsTableSpace
-           { $$ = cat2_str(make_str("primary key"), $3); }
+       | UNIQUE opt_definition OptConsTableSpace
+           { $$ = cat_str(3, make_str("unique"), $2, $3); }
+       | PRIMARY KEY opt_definition OptConsTableSpace
+           { $$ = cat_str(3, make_str("primary key"), $3, $4); }
        | CHECK '(' a_expr ')'
            { $$ = cat_str(3, make_str("check ("), $3, make_str(")")); }
        | DEFAULT b_expr
@@ -1536,14 +1545,22 @@ ConstraintAttr: DEFERRABLE      { $$ = make_str("deferrable"); }
        | INITIALLY IMMEDIATE   { $$ = make_str("initially immediate"); }
        ;
 
-TableLikeClause:  LIKE qualified_name like_including_defaults
+TableLikeClause:  LIKE qualified_name TableLikeOptionList
            {$$ = cat_str(3, make_str("like"), $2, $3); }
        ;
 
-like_including_defaults:
+TableLikeOptionList: TableLikeOptionList TableLikeOption
+               { $$ = cat2_str($1, $2); }
+       | /* EMPTY */   { $$ = EMPTY; }
+       ;
+
+TableLikeOption:
        INCLUDING DEFAULTS      { $$ = make_str("including defaults"); }
        | EXCLUDING DEFAULTS    { $$ = make_str("excluding defaults"); }
-       | /* EMPTY */   { $$ = EMPTY; }
+       | INCLUDING CONSTRAINTS { $$ = make_str("including constraints"); }
+       | EXCLUDING CONSTRAINTS { $$ = make_str("excluding constraints"); }
+       | INCLUDING INDEXES     { $$ = make_str("including indexes"); }
+       | EXCLUDING INDEXES { $$ = make_str("excluding indexes"); }
        ;
 
 /* ConstraintElem specifies constraint syntax which is not embedded into
@@ -1558,10 +1575,10 @@ TableConstraint:  CONSTRAINT name ConstraintElem
 
 ConstraintElem:  CHECK '(' a_expr ')'
            { $$ = cat_str(3, make_str("check("), $3, make_str(")")); }
-       | UNIQUE '(' columnList ')' OptConsTableSpace
-           { $$ = cat_str(4, make_str("unique("), $3, make_str(")"), $5); }
-       | PRIMARY KEY '(' columnList ')' OptConsTableSpace
-           { $$ = cat_str(4, make_str("primary key("), $4, make_str(")"), $6); }
+       | UNIQUE '(' columnList ')' opt_definition OptConsTableSpace
+           { $$ = cat_str(5, make_str("unique("), $3, make_str(")"), $5, $6); }
+       | PRIMARY KEY '(' columnList ')' opt_definition OptConsTableSpace
+           { $$ = cat_str(5, make_str("primary key("), $4, make_str(")"), $6, $7); }
        | FOREIGN KEY '(' columnList ')' REFERENCES qualified_name opt_column_list
            key_match key_actions ConstraintAttributeSpec
            { $$ = cat_str(8, make_str("foreign key("), $4, make_str(") references"), $7, $8, $9, $10, $11); }
@@ -1619,9 +1636,10 @@ OptInherit:  INHERITS '(' qualified_name_list ')'
            { $$ = EMPTY; }
        ;
 
-OptWithOids:  WITH OIDS                { $$ = make_str("with oids"); }
-       | WITHOUT OIDS              { $$ = make_str("without oids"); }
-       | /*EMPTY*/                 { $$ = EMPTY; }
+OptWith:   WITH definition         { $$ = cat2_str(make_str("with"), $2); }
+       | WITH OIDS         { $$ = make_str("with oids"); }
+       | WITHOUT OIDS          { $$ = make_str("without oids"); }
+       | /*EMPTY*/         { $$ = EMPTY; }
        ;
 
 OnCommitOption:   ON COMMIT DROP   { $$ = make_str("on commit drop"); }
@@ -1643,7 +1661,7 @@ OptConsTableSpace: USING INDEX TABLESPACE name    { $$ = cat2_str(make_str("using i
  * SELECT ... INTO.
  */
 
-CreateAsStmt:  CREATE OptTemp TABLE qualified_name OptCreateAs OptWithOids OnCommitOption OptTableSpace AS
+CreateAsStmt:  CREATE OptTemp TABLE qualified_name OptCreateAs OptWith OnCommitOption OptTableSpace AS
        { FoundInto = 0; }
        SelectStmt
        {
@@ -1755,6 +1773,8 @@ opt_lancompiler: LANCOMPILER StringConst
 
 DropPLangStmt: DROP opt_procedural LANGUAGE StringConst opt_drop_behavior
            { $$ = cat_str(5, make_str("drop"), $2, make_str("language"), $4, $5); }
+       | DROP opt_procedural LANGUAGE IF_P EXISTS StringConst opt_drop_behavior
+           { $$ = cat_str(5, make_str("drop"), $2, make_str("language if exists"), $6, $7); }
        ;
 
 opt_procedural: PROCEDURAL { $$ = make_str("prcedural"); }
@@ -1789,6 +1809,8 @@ OptTableSpaceOwner: OWNER name    { $$ = cat2_str(make_str("owner"), $2); }
 
 DropTableSpaceStmt: DROP TABLESPACE name
            { $$ = cat2_str(make_str("drop tablespace"), $3); }
+       | DROP TABLESPACE IF_P EXISTS name
+           { $$ = cat2_str(make_str("drop tablespace if exists"), $5); }
        ;
 
 
@@ -1890,6 +1912,8 @@ ConstraintTimeSpec: INITIALLY IMMEDIATE
 
 DropTrigStmt:  DROP TRIGGER name ON qualified_name opt_drop_behavior
            { $$ = cat_str(5, make_str("drop trigger"), $3, make_str("on"), $5, $6); }
+       | DROP TRIGGER IF_P EXISTS name ON qualified_name opt_drop_behavior
+           { $$ = cat_str(5, make_str("drop trigger if exists"), $5, make_str("on"), $7, $8); }
        ;
 
 /*****************************************************************************
@@ -1950,6 +1974,8 @@ def_elem:  ColLabel '=' def_arg       { $$ = cat_str(3, $1, make_str("="), $3); }
 
 /* Note: any simple identifier will be returned as a type name! */
 def_arg:  func_type                { $$ = $1; }
+       | func_name_keyword     { $$ = $1; }
+       | reserved_keyword      { $$ = $1; }
        | qual_all_Op           { $$ = $1; }
        | AllConst          { $$ = $1; }
        ;
@@ -2005,6 +2031,8 @@ opt_recheck:   RECHECK    { $$ = make_str("recheck"); }
 
 DropOpClassStmt: DROP OPERATOR CLASS any_name USING access_method opt_drop_behavior
            { $$ = cat_str(5,make_str("drop operator class"), $4, make_str("using"), $6, $7); }
+       | DROP OPERATOR CLASS IF_P EXISTS any_name USING access_method opt_drop_behavior
+           { $$ = cat_str(5,make_str("drop operator class if exists"), $6, make_str("using"), $8, $9); }
        ;
 
 /*****************************************************************************
@@ -2304,8 +2332,8 @@ opt_granted_by: GRANTED BY RoleId  { $$ = cat2_str(make_str("granted by"), $3);
  *****************************************************************************/
 
 IndexStmt: CREATE index_opt_unique INDEX index_name ON qualified_name
-               access_method_clause '(' index_params ')' OptTableSpace where_clause
-           { $$ = cat_str(12, make_str("create"), $2, make_str("index"), $4, make_str("on"), $6, $7, make_str("("), $9, make_str(")"), $11, $12); }
+               access_method_clause '(' index_params ')' opt_definition OptTableSpace where_clause
+           { $$ = cat_str(13, make_str("create"), $2, make_str("index"), $4, make_str("on"), $6, $7, make_str("("), $9, make_str(")"), $11, $12, $13); }
        ;
 
 index_opt_unique:  UNIQUE  { $$ = make_str("unique"); }
@@ -2464,14 +2492,20 @@ opt_restrict:   RESTRICT    { $$ = make_str("restrict"); }
 
 RemoveFuncStmt:  DROP FUNCTION func_name func_args opt_drop_behavior
            { $$ = cat_str(4, make_str("drop function"), $3, $4, $5); }
+       | DROP FUNCTION IF_P EXISTS func_name func_args opt_drop_behavior
+           { $$ = cat_str(4, make_str("drop function if exists"), $5, $6, $7); }
        ;
 
 RemoveAggrStmt:  DROP AGGREGATE func_name aggr_args opt_drop_behavior
            { $$ = cat_str(4, make_str("drop aggregate"), $3, $4, $5); }
+       | DROP AGGREGATE IF_P EXISTS func_name aggr_args opt_drop_behavior
+           { $$ = cat_str(4, make_str("drop aggregate if exists"), $5, $6, $7); }
        ;
 
 RemoveOperStmt:  DROP OPERATOR all_Op '(' oper_argtypes ')' opt_drop_behavior
            { $$ = cat_str(6, make_str("drop operator"), $3, make_str("("), $5, make_str(")"), $7); }
+       | DROP OPERATOR IF_P EXISTS any_operator '(' oper_argtypes ')' opt_drop_behavior
+           { $$ = cat_str(6, make_str("drop operator if exists"), $5, make_str("("), $7, make_str(")"), $9); }
        ;
 
 oper_argtypes: Typename
@@ -2504,8 +2538,12 @@ cast_context: AS ASSIGNMENT   { $$ = make_str("as assignment"); }
        ;
 
 
-DropCastStmt: DROP CAST '(' Typename AS Typename ')' opt_drop_behavior
-           { $$ = cat_str(6, make_str("drop cast ("), $4, make_str("as"), $6, make_str(")"), $8); }
+DropCastStmt: DROP CAST opt_if_exists  '(' Typename AS Typename ')' opt_drop_behavior
+           { $$ = cat_str(8, make_str("drop cast"), $3, make_str("("), $5, make_str("as"), $7, make_str(")"), $9); }
+       ;
+
+opt_if_exists: IF_P EXISTS { $$ = make_str("if exists"); }
+       | /* EMPTY */   { $$ = EMPTY; }
        ;
 
 /*****************************************************************************
@@ -2676,6 +2714,8 @@ opt_instead:  INSTEAD     { $$ = make_str("instead"); }
 
 DropRuleStmt:  DROP RULE name ON qualified_name opt_drop_behavior
            { $$ = cat_str(5, make_str("drop rule"), $3, make_str("on"), $5, $6);}
+       | DROP RULE IF_P EXISTS name ON qualified_name opt_drop_behavior
+           { $$ = cat_str(5, make_str("drop rule if exists"), $5, make_str("on"), $7, $8);}
        ;
 
 /*****************************************************************************
@@ -3025,7 +3065,7 @@ prep_type_list: Typename      { $$ = $1; }
 ExecuteStmt: EXECUTE name execute_param_clause
            { $$ = cat_str(3, make_str("execute"), $2, $3); }
        | CREATE OptTemp TABLE qualified_name OptCreateAs 
-           OptWithOids OnCommitOption OptTableSpace AS
+           OptWith OnCommitOption OptTableSpace AS
            EXECUTE name execute_param_clause
            { $$ = cat_str(11, make_str("create"), $2, make_str("table"), $4, $5, $6, $7, $8, make_str("as execute"), $11, $12); }
        ;
@@ -3050,16 +3090,13 @@ InsertStmt:  INSERT INTO qualified_name insert_rest
            { $$ = cat_str(3, make_str("insert into"), $3, $4); }
        ;
 
-insert_rest:  VALUES '(' insert_target_list ')'
-           { $$ = cat_str(3, make_str("values("), $3, make_str(")")); }
-       | DEFAULT VALUES
-           { $$ = make_str("default values"); }
-       | SelectStmt
+insert_rest:  
+       SelectStmt
            { $$ = $1; }
-       | '(' insert_column_list ')' VALUES '(' insert_target_list ')'
-           { $$ = cat_str(5, make_str("("), $2, make_str(") values ("), $6, make_str(")")); }
        | '(' insert_column_list ')' SelectStmt
            { $$ = cat_str(4, make_str("("), $2, make_str(")"), $4); }
+       | DEFAULT VALUES
+           { $$ = make_str("default values"); }
        ;
 
 insert_column_list: insert_column_list ',' insert_column_item
@@ -3219,6 +3256,8 @@ simple_select:    SELECT opt_distinct target_list
                    into_clause from_clause where_clause
                    group_clause having_clause
            { $$ = cat_str(8, make_str("select"), $2, $3, $4, $5, $6, $7, $8); }
+       | values_clause
+           { $$ = $1; }
        | select_clause UNION opt_all select_clause
            { $$ = cat_str(4, $1, make_str("union"), $3, $4); }
        | select_clause INTERSECT opt_all select_clause
@@ -3370,6 +3409,20 @@ locked_rels_list:
        | /* EMPTY */       { $$ = EMPTY; }
        ;
 
+values_clause:  VALUES '(' values_list ')'
+           { $$ = cat_str(3, make_str("values("), $3, make_str(")")); }
+       | values_clause ',' '(' values_list ')'
+           { $$ = cat_str(4, $1, make_str(", ("), $4, make_str(")")); }
+       ;
+
+values_list: values_item           { $$ = $1; }
+       | values_list ',' values_item   { $$ = cat_str(3, $1, make_str(","), $3); }
+       ;
+
+values_item:   a_expr      { $$ = $1; } 
+       | DEFAULT   { $$ = make_str("DEFAULT"); }
+       ;
+
 /*****************************************************************************
  *
  * clauses common to all Optimizable Stmts:
@@ -4346,17 +4399,6 @@ update_target_el:  ColId opt_indirection '=' a_expr
            { $$ = cat_str(3, $1, $2, make_str("= default")); }
        ;
 
-insert_target_list:  insert_target_list ',' insert_target_el
-               {   $$ = cat_str(3, $1, make_str(","), $3);  }
-       | insert_target_el
-               {   $$ = $1;  }
-       ;
-
-insert_target_el:  a_expr  { $$ = $1;  }
-       | DEFAULT   { $$ = make_str("default"); }
-       ;
-
-
 /*****************************************************************************
  *
  *    Names and constants
@@ -6009,24 +6051,25 @@ symbol: ColLabel                    { $$ = $1; }
  * is chosen in part to make keywords acceptable as names wherever possible.
  */
 
-ECPGColId:ident                        { $$ = $1; }
+ECPGColId:ident                    { $$ = $1; }
        | ECPGunreserved_interval   { $$ = $1; }
        | ECPGunreserved_con        { $$ = $1; }
-       | col_name_keyword          { $$ = $1; }
-       | ECPGKeywords              { $$ = $1; }
-       | ECPGCKeywords             { $$ = $1; }
-       | CHAR_P                    { $$ = make_str("char"); }
+       | col_name_keyword      { $$ = $1; }
+       | ECPGKeywords          { $$ = $1; }
+       | ECPGCKeywords         { $$ = $1; }
+       | CHAR_P            { $$ = make_str("char"); }
+       | VALUES            { $$ = make_str("values"); }
        ;
 /* Column identifier --- names that can be column, table, etc names.
  */
-ColId: ident                       { $$ = $1; }
+ColId: ident                   { $$ = $1; }
        | unreserved_keyword        { $$ = $1; }
-       | col_name_keyword          { $$ = $1; }
-       | ECPGKeywords              { $$ = $1; }
-       | ECPGCKeywords             { $$ = $1; }
-       | CHAR_P                    { $$ = make_str("char"); }
+       | col_name_keyword      { $$ = $1; }
+       | ECPGKeywords          { $$ = $1; }
+       | ECPGCKeywords         { $$ = $1; }
+       | CHAR_P            { $$ = make_str("char"); }
+       | VALUES            { $$ = make_str("values"); }
        ;
-
 /* Type identifier --- names that can be type names.
  */
 type_name: ident                   { $$ = $1; }
@@ -6060,15 +6103,15 @@ ColLabel:  ECPGColLabel             { $$ = $1; }
        ;
 
 ECPGColLabelCommon:  ident         { $$ = $1; }
-       | col_name_keyword          { $$ = $1; }
+       | col_name_keyword      { $$ = $1; }
        | func_name_keyword         { $$ = $1; }
        | ECPGKeywords_vanames      { $$ = $1; }
        ;
 
 ECPGColLabel:  ECPGColLabelCommon  { $$ = $1; }
-       | reserved_keyword          { $$ = $1; }
-       | ECPGunreserved            { $$ = $1; }
-       | ECPGKeywords_rest         { $$ = $1; }
+       | reserved_keyword      { $$ = $1; }
+       | ECPGunreserved        { $$ = $1; }
+       | ECPGKeywords_rest     { $$ = $1; }
        ;
 
 ECPGCKeywords: S_AUTO          { $$ = make_str("auto"); }
@@ -6191,6 +6234,7 @@ ECPGunreserved_con:     ABORT_P           { $$ = make_str("abort"); }
        | INCLUDING         { $$ = make_str("including"); }
        | INCREMENT         { $$ = make_str("increment"); }
        | INDEX             { $$ = make_str("index"); }
+       | INDEXES           { $$ = make_str("indexes"); }
        | INHERIT           { $$ = make_str("inherit"); }
        | INHERITS          { $$ = make_str("inherits"); }
        | INSENSITIVE       { $$ = make_str("insensitive"); }
@@ -6289,7 +6333,6 @@ ECPGunreserved_con:     ABORT_P           { $$ = make_str("abort"); }
        | TEMP              { $$ = make_str("temp"); }
        | TEMPLATE          { $$ = make_str("template"); }
        | TEMPORARY         { $$ = make_str("temporary"); }
-       | TOAST             { $$ = make_str("toast"); }
        | TRANSACTION       { $$ = make_str("transaction"); }
        | TRIGGER           { $$ = make_str("trigger"); }
        | TRUNCATE          { $$ = make_str("truncate"); }
@@ -6303,7 +6346,6 @@ ECPGunreserved_con:     ABORT_P           { $$ = make_str("abort"); }
        | UPDATE            { $$ = make_str("update"); }
        | VACUUM            { $$ = make_str("vacuum"); }
        | VALID             { $$ = make_str("valid"); }
-       | VALUES            { $$ = make_str("values"); }
        | VARYING           { $$ = make_str("varying"); }
        | VIEW              { $$ = make_str("view"); }
        | WITH              { $$ = make_str("with"); }
@@ -6364,6 +6406,8 @@ col_name_keyword:
        | TIMESTAMP     { $$ = make_str("timestamp"); }
        | TREAT         { $$ = make_str("treat"); }
        | TRIM          { $$ = make_str("trim"); }
+       /* VALUES creates a shift/reduce problem if listed here
+       | VALUES        { $$ = make_str("values"); } */
        | VARCHAR       { $$ = make_str("varchar"); }
        ;
 
index c88f43896c107958304b2138c9fb2858c0aad889..2e74972dab94712259e696e04daa64b23ee5ca1b 100644 (file)
@@ -1,46 +1,50 @@
-# $PostgreSQL: pgsql/src/interfaces/ecpg/test/Makefile,v 1.53 2006/02/08 09:10:05 meskes Exp $
+# $PostgreSQL: pgsql/src/interfaces/ecpg/test/Makefile,v 1.54 2006/08/02 13:43:23 meskes Exp $
 
 subdir = src/interfaces/ecpg/test
 top_builddir = ../../../..
 include $(top_builddir)/src/Makefile.global
 
-override CPPFLAGS := -I$(srcdir)/../include -I$(libpq_srcdir) $(CPPFLAGS)
-override CFLAGS += $(PTHREAD_CFLAGS)
+# port number for temp-installation test postmaster
+TEMP_PORT = 5$(DEF_PGPORT)
 
-ECPG = ../preproc/ecpg -I$(srcdir)/../include
+# default encoding
+MULTIBYTE = SQL_ASCII
 
-TESTS = test1 test2 test3 test4 test5 perftest dyntest dyntest2 test_notice \
-   test_code100 test_init testdynalloc num_test dt_test test_informix \
-   test_informix2 test_desc test_func
-ifeq ($(enable_thread_safety), yes)
-TESTS += test_thread test_thread_implicit
+# locale
+NOLOCALE :=
+ifdef NO_LOCALE
+NOLOCALE += --no-locale
 endif
 
-all: $(TESTS)
+all clean install installdirs uninstall dep depend distprep:
+   $(MAKE) -C connect $@
+   $(MAKE) -C sql $@
+   $(MAKE) -C pgtypeslib $@
+   $(MAKE) -C errors $@
+   $(MAKE) -C compat_informix $@
+   $(MAKE) -C complex $@
+   $(MAKE) -C thread $@
+# for some reason I couldn't figure out, ifeq($@,clean) ... does not work
+   if [ $@ = clean ]; then rm -f results/*.stdout results/*.stderr results/*.c; rm -rf tmp_check/; rm -f log/*.log; rm -f pg_regress.inc.sh regression.diff; fi
+
+all: pg_regress.sh
+
+pg_regress.sh: pg_regress.inc.sh
+
+pg_regress.inc.sh: pg_regress.inc.sh.in $(top_builddir)/src/Makefile.global
+   sed -e 's,@bindir@,$(bindir),g' \
+       -e 's,@libdir@,$(libdir),g' \
+       -e 's,@pkglibdir@,$(pkglibdir),g' \
+       -e 's,@datadir@,$(datadir),g' \
+       -e 's/@VERSION@/$(VERSION)/g' \
+       -e 's/@host_tuple@/$(host_tuple)/g' \
+       -e 's,@GMAKE@,$(MAKE),g' \
+       -e 's/@enable_shared@/$(enable_shared)/g' \
+       -e 's/@GCC@/$(GCC)/g' \
+     $< >$@
+
+test: all pg_regress.inc.sh
+   sh ./pg_regress.sh  --dbname=regress1 --debug --temp-install --top-builddir=$(top_builddir) --temp-port=$(TEMP_PORT) --listen-on-tcp --multibyte=$(MULTIBYTE) --load-language=plpgsql $(NOLOCALE)
+
+check: all test
 
-%: %.o
-   $(CC) $(CFLAGS) $(LDFLAGS) -L../ecpglib -L ../pgtypeslib -L../../libpq $^ $(LIBS) -lpgtypes -lecpg -lpq $(PTHREAD_LIBS) -o $@
-
-test_informix: test_informix.o
-   $(CC) $(CFLAGS) $(LDFLAGS) -L../compatlib -L../ecpglib -L ../pgtypeslib -L../../libpq $^ $(LIBS) -lpgtypes -lecpg -lecpg_compat -lpq $(PTHREAD_LIBS) -o $@
-
-test_informix2: test_informix2.o
-   $(CC) $(CFLAGS) $(LDFLAGS) -L../compatlib -L../ecpglib -L ../pgtypeslib -L../../libpq $^ $(LIBS) -lpgtypes -lecpg -lecpg_compat -lpq $(PTHREAD_LIBS) -o $@
-   
-test4: test4.o
-   $(CC) $(CFLAGS) $(LDFLAGS) -L../ecpglib -L ../pgtypeslib -L../../libpq $^ $(LIBS) -lpgtypes -lecpg -lpq $(PTHREAD_LIBS) -o $@
-
-%.c: %.pgc
-   $(ECPG) -o $@ -I$(srcdir) $<
-
-test_informix.c: test_informix.pgc
-   $(ECPG) -o $@ -C INFORMIX -r no_indicator $<
-
-test_informix2.c: test_informix2.pgc
-   $(ECPG) -o $@ -C INFORMIX  $<
-
-test4.c: test4.pgc
-   $(ECPG) -o $@ -c  $<
-
-clean:
-   rm -f $(TESTS) $(TESTS:%=%.o) $(TESTS:%=%.c) log