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 postgres C-like arrays, for example {{"a1" "a2"} {"b1" "b2"}} instead
* of {{"a1","a2"},{"b1","b2"}}. * of {{"a1","a2"},{"b1","b2"}}.
*/ */
#define TCL_ARRAY #define TCL_ARRAYS
/* /*
* The comparison routines for text and char data type give incorrect results * 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 * 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; register char c, *q, *s;
#ifdef DEBUG_ESCAPE #ifdef TCL_ARRAYS_DEBUG_ESCAPE
printf(" escape = '%s'\n", p); printf(" escape = '%s'\n", p);
#endif #endif
/* Address of the first character after the escape sequence */ /* Address of the first character after the escape sequence */
@ -125,7 +125,7 @@ translate_escape(char *p, int isArray)
*q++ = *s++; *q++ = *s++;
} }
*q = '\0'; *q = '\0';
#ifdef DEBUG_ESCAPE #ifdef TCL_ARRAYS_DEBUG_ESCAPE
printf(" after = '%s'\n", p); printf(" after = '%s'\n", p);
#endif #endif
return p; return p;
@ -143,13 +143,13 @@ static char *
tcl_value (char *value) tcl_value (char *value)
{ {
int literal, last; int literal, last;
register char c, *p, *q, *s; register char *p;
if (!value) { if (!value) {
return ((char *) NULL); return ((char *) NULL);
} }
#ifdef DEBUG #ifdef TCL_ARRAYS_DEBUG
printf("pq_value = '%s'\n", value); printf("pq_value = '%s'\n", value);
#endif #endif
last = strlen(value)-1; 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); printf("tcl_value = '%s'\n\n", value);
#endif #endif
return (value); return (value);