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

2004-07-20 Stefan Jones <stefan.jones@multigig.com> 

* src/tclspice.c:
	blt_plot() - look for BLT vectors ::spice::[XY]_Data
This commit is contained in:
stefanjones 2004-07-20 22:14:54 +00:00
parent 47176111ed
commit 8ed3da8079
2 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
2004-07-20 Stefan Jones <stefan.jones@multigig.com>
* src/tclspice.c:
blt_plot() - look for BLT vectors ::spice::[XY]_Data
2004-07-19 Stefan Jones <stefan.jones@multigig.com>
* src/tclspice.c:

21
src/tclspice.c
View File

@ -517,7 +517,7 @@ static int _thread_stop(){
#endif
}
if(!fl_exited) {
fprintf(stderr,"couldn't stop tclspice\n");
fprintf(stderr,"Couldn't stop tclspice\n");
return TCL_ERROR;
}
#ifdef HAVE_LIBPTHREAD
@ -527,10 +527,16 @@ static int _thread_stop(){
ft_intrpt = FALSE;
return TCL_OK;
}else {
fprintf(stderr,"spice not running\n");
fprintf(stderr,"Spice not running\n");
}
return TCL_OK;
}
void sighandler_tclspice(int num) {
if(fl_running) _thread_stop();
return;
}
#endif /*THREADS*/
static int _run(int argc,char **argv){
@ -1325,11 +1331,11 @@ int blt_plot(struct dvec *y,struct dvec *x){
char buf[1024];
/* A bug in these functions? , crashes if used so make vectors in Tcl
Blt_CreateVector(spice_interp,"spice::X_Data",1,&X_Data);
Blt_CreateVector(spice_interp,"spice::Y_Data",1,&Y_Data);
Blt_CreateVector(spice_interp,"::spice::X_Data",1,&X_Data);
Blt_CreateVector(spice_interp,"::spice::Y_Data",1,&Y_Data);
*/
Blt_GetVector(spice_interp,"spice::X_Data",&X_Data);
Blt_GetVector(spice_interp,"spice::Y_Data",&Y_Data);
Blt_GetVector(spice_interp,"::spice::X_Data",&X_Data);
Blt_GetVector(spice_interp,"::spice::Y_Data",&Y_Data);
if(!X_Data || !Y_Data) {
fprintf(stderr,"Error: Blt vector X_Data or Y_Data not created\n");
@ -2019,6 +2025,9 @@ bot:
#ifdef HAVE_LIBPTHREAD
pthread_mutex_init(&triggerMutex,NULL);
#endif
#ifdef THREADS
signal(SIGINT,sighandler_tclspice);
#endif
/*register functions*/
for (i = 0;(key = cp_coms[i].co_comname); i++) {