mirror/postgresql
2
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2024-11-27 07:21:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

Last changes to src from Dr. George *wipes brow*

Browse Source
This commit is contained in:
Marc G. Fournier 1996-07-23 03:38:44 +00:00
parent 2206b5819d
commit 83c9ec765e
2 changed files with 29 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/interfaces/libpgtcl/Makefile
View File

@ -7,7 +7,7 @@
# #
# #
# IDENTIFICATION # IDENTIFICATION
# $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/Makefile,v 1.1.1.1 1996/07/09 06:22:16 scrappy Exp $ # $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/Makefile,v 1.2 1996/07/23 03:38:42 scrappy Exp $
# #
#------------------------------------------------------------------------- #-------------------------------------------------------------------------
@ -20,7 +20,8 @@ CFLAGS+= -I$(HEADERDIR) \
-I$(srcdir)/backend/include \ -I$(srcdir)/backend/include \
-I$(srcdir)/backend \ -I$(srcdir)/backend \
-I$(CURDIR) \ -I$(CURDIR) \
-I$(TCL_INCDIR) -I$(TCL_INCDIR) \
-I$(srcdir)/libpq
ifdef KRBVERS ifdef KRBVERS
CFLAGS+= $(KRBFLAGS) CFLAGS+= $(KRBFLAGS)

27
src/interfaces/libpgtcl/pgtclCmds.c
View File

@ -7,7 +7,7 @@
* *
* *
* IDENTIFICATION * IDENTIFICATION
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.1.1.1 1996/07/09 06:22:16 scrappy Exp $ * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.2 1996/07/23 03:38:44 scrappy Exp $
* *
*------------------------------------------------------------------------- *-------------------------------------------------------------------------
*/ */
@ -194,6 +194,8 @@ Pg_exec(AlientData cData, Tcl_Interp *interp, int argc, char* argv[])
the connection that produced the result the connection that produced the result
-assign arrayName -assign arrayName
assign the results to an array assign the results to an array
-assignbyidx arrayName
assign the results to an array using the first field as a key
-numTuples -numTuples
the number of tuples in the query the number of tuples in the query
-attributes -attributes
@ -211,6 +213,7 @@ Pg_result(ClientData cData, Tcl_Interp *interp, int argc, char* argv[])
char *opt; char *opt;
int i; int i;
int tupno; int tupno;
char prearrayInd[MAX_MESSAGE_LEN];
char arrayInd[MAX_MESSAGE_LEN]; char arrayInd[MAX_MESSAGE_LEN];
char *arrVar; char *arrVar;
@ -268,6 +271,27 @@ Pg_result(ClientData cData, Tcl_Interp *interp, int argc, char* argv[])
Tcl_AppendResult(interp, arrVar, 0); Tcl_AppendResult(interp, arrVar, 0);
return TCL_OK; return TCL_OK;
} }
else if (strcmp(opt, "-assignbyidx") == 0) {
if (argc != 4) {
Tcl_AppendResult(interp, "-assignbyidx option must be followed by a variable name",0);
return TCL_ERROR;
}
arrVar = argv[3];
/* this assignment assigns the table of result tuples into a giant
array with the name given in the argument,
the indices of the array or (tupno,attrName)*/
for (tupno = 0; tupno<PQntuples(result); tupno++) {
sprintf(prearrayInd,"%s",PQgetvalue(result,tupno,0));
for (i=1;i<PQnfields(result);i++) {
sprintf(arrayInd, "%s,%s", prearrayInd, PQfname(result,i));
Tcl_SetVar2(interp, arrVar, arrayInd,
PQgetvalue(result,tupno,i),
TCL_LEAVE_ERR_MSG);
}
}
Tcl_AppendResult(interp, arrVar, 0);
return TCL_OK;
}
else if (strcmp(opt, "-getTuple") == 0) { else if (strcmp(opt, "-getTuple") == 0) {
if (argc != 4) { if (argc != 4) {
Tcl_AppendResult(interp, "-getTuple option must be followed by a tuple number",0); Tcl_AppendResult(interp, "-getTuple option must be followed by a tuple number",0);
@ -307,6 +331,7 @@ Pg_result(ClientData cData, Tcl_Interp *interp, int argc, char* argv[])
"\t-status\n", "\t-status\n",
"\t-conn\n", "\t-conn\n",
"\t-assign arrayVarName\n", "\t-assign arrayVarName\n",
"\t-assignbyidx arrayVarName\n",
"\t-numTuples\n", "\t-numTuples\n",
"\t-attributes\n" "\t-attributes\n"
"\t-getTuple tupleNumber\n", "\t-getTuple tupleNumber\n",