From e45697711705c31ad2089dcabae0c48cc898d39f Mon Sep 17 00:00:00 2001
From: stefanjones <stefanjones>
Date: Wed, 4 Aug 2004 22:34:04 +0000
Subject: [PATCH] 2004-08-04 Stefan Jones <stefan.jones@multigig.com>

       * src/tclspice.c:
       Added escape_brackets() escapes square brackets,
       use before before Tcl_Eval is called.
---
 ChangeLog      |  6 ++++++
 src/tclspice.c | 18 ++++++++++++++++++
 2 files changed, 24 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 5ad5a40a1..8e01f7127 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2004-08-04 Stefan Jones <stefan.jones@multigig.com>
+
+	* src/tclspice.c:
+	Added escape_brackets() escapes square brackets,
+	use before before Tcl_Eval is called.
+	
 2004-07-22 Stefan Jones <stefan.jones@multigig.com>
 
 	* src/Makefile.am:
diff --git a/src/tclspice.c b/src/tclspice.c
index a8991e9f1..96663eada 100755
--- a/src/tclspice.c
+++ b/src/tclspice.c
@@ -1332,6 +1332,23 @@ static void dvecToBlt(Blt_Vector *Data, struct dvec *x) {
   return;
 }
 
+static void escape_brackets(char *string) {
+  int printed=strlen(string), i;
+
+  for(i=0;i<printed;i++) {
+    if(string[i] == ']' || string[i] == '[') {
+      int j;
+      for(j=printed;j>=i;j--) {
+        string[j+1] = string[j];
+      }
+      string[i] = '\\';
+      i++;
+      printed++;
+    }
+  }
+  return;
+}
+
 int blt_plot(struct dvec *y,struct dvec *x,int new){
   static int ctr=-1;
   Blt_Vector *X_Data=NULL, *Y_Data=NULL;
@@ -1357,6 +1374,7 @@ int blt_plot(struct dvec *y,struct dvec *x,int new){
   sprintf(buf,"spice_gr_Plot %s %s %s %s %s %s %d",
 	  x->v_name, ft_typenames(x->v_type), ft_typabbrev(x->v_type),
 	  y->v_name, ft_typenames(y->v_type), ft_typabbrev(y->v_type),ctr);
+  escape_brackets(buf);
 
   if(Tcl_Eval(spice_interp,buf) != TCL_OK) {
     Tcl_ResetResult(spice_interp);