*** empty log message ***

diff --git a/src/interfaces/ecpg/ChangeLog b/src/interfaces/ecpg/ChangeLog
index aaa63f6..fec7608 100644 (file)
--- a/src/interfaces/ecpg/ChangeLog
+++ b/src/interfaces/ecpg/ChangeLog
@@ -790,6 +790,9 @@ Thu Jan 27 08:12:05 CET 2000
        - Fixed error messages in pgc.l.
        - Improved variable parsing.
        - Synced preproc.y with gram.y.
+
+Mon Feb 14 10:35:18 CET 2000
+
+       - Synced preproc.y with gram.y.
        - Set library version to 3.0.10.
        - Set ecpg version to 2.7.0.
-

diff --git a/src/interfaces/ecpg/lib/ecpglib.c b/src/interfaces/ecpg/lib/ecpglib.c
index 7e75578..15440d0 100644 (file)
--- a/src/interfaces/ecpg/lib/ecpglib.c
+++ b/src/interfaces/ecpg/lib/ecpglib.c
@@ -395,7 +395,7 @@ ECPGexecute(struct statement * stmt)
 {
        bool            status = false;
        char       *copiedquery;
-       PGresult   *results;
+       PGresult   *results, *query;
        PGnotify   *notify;
        struct variable *var;
 
@@ -669,7 +669,8 @@ ECPGexecute(struct statement * stmt)
                                {
                                        char       *pval;
                                        char       *scan_length;
-
+                                       char       *array_query;
+                                       
                                        if (var == NULL)
                                        {
                                                ECPGlog("ECPGexecute line %d: Too few arguments.\n", stmt->lineno);
@@ -724,10 +725,15 @@ ECPGexecute(struct statement * stmt)
                                                *((void **) var->pointer) = var->value;
                                                add_mem(var->value, stmt->lineno);
                                        }
-                                       
-                                       
-                                       ECPGlog("ECPGexecute line %d: TYPE db: %d c: %d\n", stmt->lineno, PQftype(results, act_field), var->type);
-
+                                                                               
+#if 0
+                                       array_query = (char *)ecpg_alloc(strlen("select typelem from pg_type where oid=") + 11, stmt -> lineno);
+                                       sprintf(array_query, "select typelem from pg_type where oid=%d", PQftype(results, act_field));
+                                       query = PQexec(stmt->connection->connection, array_query);
+                                       if (PQresultStatus(query) == PGRES_TUPLES_OK)
+                                               ECPGlog("ECPGexecute line %d: TYPE database: %d C: %d array OID: %s\n", stmt->lineno, PQftype(results, act_field), var->type, (char *)PQgetvalue(query, 0, 0));
+                                       PQclear(query);
+#endif
                                        for (act_tuple = 0; act_tuple < ntuples && status; act_tuple++)
                                        {
                                                pval = (char *)PQgetvalue(results, act_tuple, act_field);

diff --git a/src/interfaces/ecpg/preproc/extern.h b/src/interfaces/ecpg/preproc/extern.h
index 9aae32a..682ead4 100644 (file)
--- a/src/interfaces/ecpg/preproc/extern.h
+++ b/src/interfaces/ecpg/preproc/extern.h
@@ -37,7 +37,7 @@ extern void lex_init(void);
 extern char *input_filename;
 extern int     yyparse(void);
 extern int     yylex(void);
-extern void yyerror(const char * error);
+extern void yyerror(char *);
 extern void *mm_alloc(size_t), *mm_realloc(void *, size_t);
 extern char *mm_strdup(const char *);
 extern void mmerror(enum errortype, char * );

diff --git a/src/interfaces/ecpg/preproc/preproc.y b/src/interfaces/ecpg/preproc/preproc.y
index 28b66ab..be4227e 100644 (file)
--- a/src/interfaces/ecpg/preproc/preproc.y
+++ b/src/interfaces/ecpg/preproc/preproc.y
@@ -760,9 +760,9 @@ adjust_array(enum ECPGttype type_enum, int *dimension, int *length, int type_dim
 %type  <str>   opt_collate Datetime datetime opt_timezone opt_interval
 %type  <str>   numeric a_expr_or_null row_expr row_descriptor row_list
 %type  <str>   SelectStmt SubSelect result OptTemp OptTempType OptTempScope
-%type  <str>   opt_table opt_all opt_unique sort_clause sortby_list
+%type  <str>   opt_table opt_all sort_clause sortby_list
 %type  <str>   sortby OptUseOp opt_inh_star relation_name_list name_list
-%type  <str>   group_clause having_clause from_clause
+%type  <str>   group_clause having_clause from_clause opt_distinct
 %type  <str>   table_list join_outer where_clause relation_expr sub_type
 %type  <str>   opt_column_list insert_rest InsertStmt OptimizableStmt
 %type  <str>    columnList DeleteStmt LockStmt UpdateStmt CursorStmt
@@ -1306,35 +1306,35 @@ AlterTableStmt:
 /* ALTER TABLE <name> ADD [COLUMN] <coldef> */
         ALTER TABLE relation_name opt_inh_star ADD opt_column columnDef
                {
-                       $$ = cat_str(5, make_str("alter table"), $3, $4, make_str("add"), $6, $7);
+                       $$ = cat_str(6, make_str("alter table"), $3, $4, make_str("add"), $6, $7);
                }
 /* ALTER TABLE <name> ALTER [COLUMN] <colname> {SET DEFAULT <expr>|DROP
 DEFAULT} */
        | ALTER TABLE relation_name opt_inh_star ALTER opt_column ColId
                alter_column_action
                {
-                       $$ = cat_str(6, make_str("alter table"), $3, $4, make_str("alter"), $6, $7, $8);
+                       $$ = cat_str(7, make_str("alter table"), $3, $4, make_str("alter"), $6, $7, $8);
                }
 /* ALTER TABLE <name> DROP [COLUMN] <name> {RESTRICT|CASCADE} */
-       | ALTER TABLE relation_name opt_inh_star DROP opt_column ColId
-               /* drop_behavior */
+       | ALTER TABLE relation_name opt_inh_star DROP opt_column ColId drop_behavior
                {
-                       $$ = cat_str(5, make_str("alter table"), $3, $4, make_str("drop"), $6, $7);
+                       $$ = cat_str(7, make_str("alter table"), $3, $4, make_str("drop"), $6, $7, $8);
                }
 /* ALTER TABLE <name> ADD CONSTRAINT ... */
        | ALTER TABLE relation_name opt_inh_star ADD TableConstraint
                {
-                       $$ = cat_str(4, make_str("alter table"), $3, $4, make_str("add"), $6);
+                       $$ = cat_str(5, make_str("alter table"), $3, $4, make_str("add"), $6);
                }
 /* ALTER TABLE <name> DROP CONSTRAINT ... */
        | ALTER TABLE relation_name opt_inh_star DROP CONSTRAINT name drop_behavior
                {
-                       $$ = cat_str(5, make_str("alter table"), $3, $4, make_str("drop constraint"), $7, $8);
+                       $$ = cat_str(6, make_str("alter table"), $3, $4, make_str("drop constraint"), $7, $8);
                }
                ;
 
 alter_column_action:
-        SET DEFAULT a_expr_or_null { $$ = cat2_str(make_str("set default"), $3); }
+        SET DEFAULT a_expr     { $$ = cat2_str(make_str("set default"), $3); }
+        | SET DEFAULT NULL_P    { $$ = make_str("set default null"); }
         | DROP DEFAULT          { $$ = make_str("drop default"); }
         ;
 
@@ -1579,7 +1579,6 @@ key_match:  MATCH FULL
                }
                | /*EMPTY*/
                {
-                       mmerror(ET_WARN, "FOREIGN KEY match type UNSPECIFIED not implemented yet");
                        $$ = EMPTY;
                }
                ;
@@ -1735,7 +1734,7 @@ CreateTrigStmt:  CREATE TRIGGER name TriggerActionTime TriggerEvents ON
                                {
                                        $$ = cat_str(12, make_str("create trigger"), $3, $4, $5, make_str("on"), $7, $8, make_str("execute procedure"), $11, make_str("("), $13, make_str(")"));
                                }
-       |       CREATE CONSTRAINT TRIGGER name AFTER TriggerOneEvent ON
+       |       CREATE CONSTRAINT TRIGGER name AFTER TriggerEvents ON
                                 relation_name OptConstrFromTable
                                ConstraintAttributeSpec
                                 FOR EACH ROW EXECUTE PROCEDURE
@@ -2507,12 +2506,8 @@ UnlistenStmt:  UNLISTEN relation_name
  *
  *              Transactions:
  *
- *              abort transaction
- *                              (ABORT)
- *              begin transaction
- *                              (BEGIN)
- *              end transaction  
- *                              (END)
+ *       BEGIN / COMMIT / ROLLBACK
+ *      (also older versions END / ABORT)
  *
  *****************************************************************************/
 TransactionStmt:  ABORT_TRANS opt_trans        { $$ = make_str("rollback"); }
@@ -2912,7 +2907,7 @@ select_clause: '(' select_clause ')'
                        }
                ;
 
-SubSelect:     SELECT opt_unique target_list
+SubSelect:     SELECT opt_distinct target_list
                          result from_clause where_clause
                          group_clause having_clause
                                {
@@ -2937,8 +2932,8 @@ opt_all:  ALL                                             { $$ = make_str("all"); }
                | /*EMPTY*/                             { $$ = EMPTY; }
                ;
 
-opt_unique:  DISTINCT                                  { $$ = make_str("distinct"); }
-               | DISTINCT ON ColId                     { $$ = cat2_str(make_str("distinct on"), $3); }
+opt_distinct:  DISTINCT                                        { $$ = make_str("distinct"); }
+               | DISTINCT ON '(' expr_list ')'         { $$ = cat_str(3, make_str("distinct on ("), $4, make_str(")")); }
                | ALL                                   { $$ = make_str("all"); }
                | /*EMPTY*/                             { $$ = EMPTY; }
                ;
@@ -5428,7 +5423,7 @@ blockend : '}' {
 
 %%
 
-void yyerror(const char * error)
+void yyerror(char * error)
 {
        mmerror(ET_ERROR, error);
 }

diff --git a/src/interfaces/ecpg/test/stp.pgc b/src/interfaces/ecpg/test/stp.pgc
index 6021ae0..a069077 100644 (file)
--- a/src/interfaces/ecpg/test/stp.pgc
+++ b/src/interfaces/ecpg/test/stp.pgc
@@ -5,9 +5,19 @@ int my_fun (void)
        EXEC SQL BEGIN DECLARE SECTION;
        int                     sql_index = 0;
        EXEC SQL END DECLARE SECTION;   
+       FILE *dbgs;
+
+       if ((dbgs = fopen("/tmp/log", "w")) != NULL)
+                ECPGdebug(1, dbgs);
 
        EXEC SQL WHENEVER SQLERROR GOTO Error;
+
+       EXEC SQL CONNECT TO 'mm';
        EXEC SQL SELECT MIN(index) INTO :sql_index FROM tab;
+       EXEC SQL DISCONNECT;
+
+       if (dbgs != NULL)
+                fclose(dbgs);  
 
        return (sql_index);
 

diff --git a/src/interfaces/ecpg/test/test5.pgc b/src/interfaces/ecpg/test/test5.pgc
index 1e0c60c..3c8c424 100644 (file)
--- a/src/interfaces/ecpg/test/test5.pgc
+++ b/src/interfaces/ecpg/test/test5.pgc
@@ -13,7 +13,6 @@ int main (void)
        EXEC SQL END DECLARE SECTION;
        FILE *dbgs;
        
-       
         if ((dbgs = fopen("log", "w")) != NULL)
                 ECPGdebug(1, dbgs);