mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

The last patch fixes some incongruences in the #define used to compile the

Browse Source 
Tcl arrays support. Here are the correct values to be defined in config.h
and pgtclCmds.c.

Submitted by: Massimo Dal Zotto <dz@cs.unitn.it>
This commit is contained in:
Marc G. Fournier 1997-01-23 19:47:18 +00:00
parent 37a8bdba43
commit fdaf47f9f4
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/include/config.h
View File

@ -318,7 +318,7 @@ typedef unsigned char slock_t;
* of postgres C-like arrays, for example {{"a1" "a2"} {"b1" "b2"}} instead
* of {{"a1","a2"},{"b1","b2"}}.
*/
#define TCL_ARRAY
#define TCL_ARRAYS
/*
* The comparison routines for text and char data type give incorrect results

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

@ -7,7 +7,7 @@
*
*
* IDENTIFICATION
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.11 1997/01/11 14:28:51 scrappy Exp $
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.12 1997/01/23 19:47:18 scrappy Exp $
*
*-------------------------------------------------------------------------
*/
@ -43,7 +43,7 @@ translate_escape(char *p, int isArray)
{
register char c, *q, *s;
#ifdef DEBUG_ESCAPE
#ifdef TCL_ARRAYS_DEBUG_ESCAPE
printf(" escape = '%s'\n", p);
#endif
/* Address of the first character after the escape sequence */
@ -125,7 +125,7 @@ translate_escape(char *p, int isArray)
*q++ = *s++;
}
*q = '\0';
#ifdef DEBUG_ESCAPE
#ifdef TCL_ARRAYS_DEBUG_ESCAPE
printf(" after = '%s'\n", p);
#endif
return p;
@ -143,13 +143,13 @@ static char *
tcl_value (char *value)
{
int literal, last;
register char c, *p, *q, *s;
register char *p;
if (!value) {
return ((char *) NULL);
}
#ifdef DEBUG
#ifdef TCL_ARRAYS_DEBUG
printf("pq_value = '%s'\n", value);
#endif
last = strlen(value)-1;
@ -202,7 +202,7 @@ tcl_value (char *value)
}
}
}
#ifdef DEBUG
#ifdef TCL_ARRAYS_DEBUG
printf("tcl_value = '%s'\n\n", value);
#endif
return (value);