Various cleanups from D'Arcy

diff --git a/src/backend/parser/gram.y b/src/backend/parser/gram.y
index 184b20c6feb15dc50b7ea5d1115f4cf940308d10..1e599c9e65a0182de3fb4d89ac72e8fe58aedceb 100644 (file)
--- 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.14 1996/11/08 20:45:33 momjian Exp $
+ *    $Header: /cvsroot/pgsql/src/backend/parser/gram.y,v 1.15 1996/11/11 12:14:09 scrappy Exp $
  *
  * HISTORY
  *    AUTHOR           DATE            MAJOR EVENT
@@ -56,8 +56,6 @@ extern List *parsetree;
  */
 /*#define __YYSCLASS*/
 
-extern void yyerror(char message[]);
-
 static char *xlateSqlType(char *);
 static Node *makeA_Expr(int op, char *opname, Node *lexpr, Node *rexpr);
 

diff --git a/src/bin/psql/rlstubs.c b/src/bin/psql/rlstubs.c
index 98a1f6ebf10c0920f345a2a916364f9527eef579..05d527da690b272eaabbf30fc169decf3543a1c1 100644 (file)
--- a/src/bin/psql/rlstubs.c
+++ b/src/bin/psql/rlstubs.c
@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *    $Header: /cvsroot/pgsql/src/bin/psql/Attic/rlstubs.c,v 1.3 1996/11/11 05:55:32 momjian Exp $
+ *    $Header: /cvsroot/pgsql/src/bin/psql/Attic/rlstubs.c,v 1.4 1996/11/11 12:14:21 scrappy Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -15,8 +15,13 @@
 
 #include "rlstubs.h"
 
+extern char *readline(const char *);
+extern int write_history(const char *);
+extern int using_history(void);
+extern int add_history(const char *);
+
 char *
-readline(char *prompt)
+readline(const char *prompt)
 {
     static char buf[500];
 

diff --git a/src/interfaces/libpgtcl/pgtcl.c b/src/interfaces/libpgtcl/pgtcl.c
index ad9b68b41d0956962c2b316dcd8191f7f106d942..2cbec47395d40b6ee78b134b947e891b65e37615 100644 (file)
--- a/src/interfaces/libpgtcl/pgtcl.c
+++ b/src/interfaces/libpgtcl/pgtcl.c
@@ -9,14 +9,18 @@
  *
  *
  * IDENTIFICATION
- *    $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.4 1996/11/09 10:39:40 scrappy Exp $
+ *    $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.5 1996/11/11 12:14:38 scrappy Exp $
  *
  *-------------------------------------------------------------------------
  */
 
+#include <stdlib.h>
+
+#include "postgres.h"
 #include "tcl.h"
 #include "libpgtcl.h"
 #include "pgtclCmds.h"
+#include "pgtclId.h"
 
 /*
  * Pgtcl_Init 
@@ -27,7 +31,7 @@
 /*
  * Tidy up forgotten postgres connection at Tcl_Exit
  */
-void
+static void
 Pgtcl_AtExit (ClientData cData)
 {
   Pg_clientData *cd = (Pg_clientData *)cData;
@@ -52,7 +56,7 @@ Pgtcl_AtExit (ClientData cData)
 /*
  * Tidy up forgotten postgres connections on Interpreter deletion
  */
-void
+static void
 Pgtcl_Shutdown (ClientData cData, Tcl_Interp *interp)
 {
   Pgtcl_AtExit(cData);

diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c
index 397bcd15f7a7a12658cc298e38e866aa928d1d63..980055e378dd85c76ddc2e3127770308aab3125a 100644 (file)
--- a/src/interfaces/libpgtcl/pgtclCmds.c
+++ b/src/interfaces/libpgtcl/pgtclCmds.c
@@ -7,16 +7,17 @@
  *
  *
  * IDENTIFICATION
- *    $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.6 1996/11/09 10:39:41 scrappy Exp $
+ *    $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.7 1996/11/11 12:14:42 scrappy Exp $
  *
  *-------------------------------------------------------------------------
  */
 
-
 #include <stdio.h>
 #include <stdlib.h>
-#include <tcl.h>
 #include <string.h>
+#include <tcl.h>
+
+#include "postgres.h"
 #include "libpq/pqcomm.h"
 #include "libpq-fe.h"
 #include "libpq/libpq-fs.h"
@@ -224,7 +225,7 @@ tcl_value (char *value)
  **********************************/
 
 int
-Pg_conndefaults(ClientData cData, Tcl_Interp *interp, int argc, char* argv[])
+Pg_conndefaults(ClientData cData, Tcl_Interp *interp, int argc, char **argv)
 {
     PQconninfoOption *option;
     char       buf[8192];
@@ -581,7 +582,7 @@ Pg_result(ClientData cData, Tcl_Interp *interp, int argc, char* argv[])
       Tcl_ResetResult(interp);
       for (i = 0; i < PQnfields(result); i++) {
           sprintf(buf, "{%s} %ld %d", PQfname(result, i),
-                                     PQftype(result, i),
+                                     (long) PQftype(result, i),
                                      PQfsize(result, i));
           Tcl_AppendElement(interp, buf);
       }
@@ -1125,7 +1126,7 @@ Pg_select(ClientData cData, Tcl_Interp *interp, int argc, char **argv)
     Pg_clientData *cd = (Pg_clientData *)cData;
        PGconn *conn;
        PGresult *result;
-    int ch_flag, r;
+    int r;
     size_t tupno, column, ncols;
        Tcl_DString headers;
        struct {

diff --git a/src/interfaces/libpgtcl/pgtclId.c b/src/interfaces/libpgtcl/pgtclId.c
index 53654b6da7f5ac18666ec1b10854def9fb3c8b11..f39342c002e9aa88009a8f24e7bd0826b07cd458 100644 (file)
--- a/src/interfaces/libpgtcl/pgtclId.c
+++ b/src/interfaces/libpgtcl/pgtclId.c
@@ -12,15 +12,16 @@
  *
  *
  * IDENTIFICATION
- *    $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclId.c,v 1.2 1996/10/30 06:18:41 scrappy Exp $
+ *    $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclId.c,v 1.3 1996/11/11 12:14:45 scrappy Exp $
  *
  *-------------------------------------------------------------------------
  */
 
 #include <stdlib.h>
 #include <string.h>
-#include "tcl.h"
+#include <tcl.h>
 
+#include "postgres.h"
 #include "pgtclCmds.h"
 #include "pgtclId.h"