|
7 | 7 | *
|
8 | 8 | *
|
9 | 9 | * IDENTIFICATION
|
10 |
| - * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.6 1996/11/09 10:39:41 scrappy Exp $ |
| 10 | + * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.7 1996/11/11 12:14:42 scrappy Exp $ |
11 | 11 | *
|
12 | 12 | *-------------------------------------------------------------------------
|
13 | 13 | */
|
14 | 14 |
|
15 |
| - |
16 | 15 | #include <stdio.h>
|
17 | 16 | #include <stdlib.h>
|
18 |
| -#include <tcl.h> |
19 | 17 | #include <string.h>
|
| 18 | +#include <tcl.h> |
| 19 | + |
| 20 | +#include "postgres.h" |
20 | 21 | #include "libpq/pqcomm.h"
|
21 | 22 | #include "libpq-fe.h"
|
22 | 23 | #include "libpq/libpq-fs.h"
|
@@ -224,7 +225,7 @@ tcl_value (char *value)
|
224 | 225 | **********************************/
|
225 | 226 |
|
226 | 227 | int
|
227 |
| -Pg_conndefaults(ClientData cData, Tcl_Interp *interp, int argc, char* argv[]) |
| 228 | +Pg_conndefaults(ClientData cData, Tcl_Interp *interp, int argc, char **argv) |
228 | 229 | {
|
229 | 230 | PQconninfoOption *option;
|
230 | 231 | char buf[8192];
|
@@ -581,7 +582,7 @@ Pg_result(ClientData cData, Tcl_Interp *interp, int argc, char* argv[])
|
581 | 582 | Tcl_ResetResult(interp);
|
582 | 583 | for (i = 0; i < PQnfields(result); i++) {
|
583 | 584 | sprintf(buf, "{%s} %ld %d", PQfname(result, i),
|
584 |
| - PQftype(result, i), |
| 585 | + (long) PQftype(result, i), |
585 | 586 | PQfsize(result, i));
|
586 | 587 | Tcl_AppendElement(interp, buf);
|
587 | 588 | }
|
@@ -1125,7 +1126,7 @@ Pg_select(ClientData cData, Tcl_Interp *interp, int argc, char **argv)
|
1125 | 1126 | Pg_clientData *cd = (Pg_clientData *)cData;
|
1126 | 1127 | PGconn *conn;
|
1127 | 1128 | PGresult *result;
|
1128 |
| - int ch_flag, r; |
| 1129 | + int r; |
1129 | 1130 | size_t tupno, column, ncols;
|
1130 | 1131 | Tcl_DString headers;
|
1131 | 1132 | struct {
|
|
0 commit comments