luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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.
This commit is contained in:
stefanjones 2004-08-04 22:34:04 +00:00
parent f82b52ed68
commit e456977117
2 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -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:

18
src/tclspice.c
View File

@ -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);