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

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

Submitted by: Massimo Dal Zotto 

diff --git a/src/include/config.h b/src/include/config.h
index 64664d127d512f9ffd4a1f74635a7788a96f555b..b70533556c320d5a96f46e93097780f886f632c0 100644 (file)
--- a/src/include/config.h
+++ b/src/include/config.h
@@ -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

diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c
index 0cfc3cb3a8670a4760fd3d0039a4755ecc454b0f..1babd8890e8e0aaed52e5b15b73a36bc02f926e7 100644 (file)
--- a/src/interfaces/libpgtcl/pgtclCmds.c
+++ b/src/interfaces/libpgtcl/pgtclCmds.c
@@ -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);