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-21 Stefan Jones <stefan.jones@multigig.com> 

* src/tclspice.c:
	add getplot() command
This commit is contained in:
stefanjones 2004-07-21 20:25:16 +00:00
parent fd4614a8d9
commit f2faaef81d
2 changed files with 12 additions and 0 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-21 Stefan Jones <stefan.jones@multigig.com>
* src/tclspice.c:
add getplot() command
2004-07-20 Stefan Jones <stefan.jones@multigig.com> 2004-07-20 Stefan Jones <stefan.jones@multigig.com>
* src/tclspice.c: * src/tclspice.c:

7
src/tclspice.c
View File

@ -922,6 +922,12 @@ static int plot_getvector TCL_CMDPROCARGS(clientData,interp,argc,argv) {
return TCL_OK; return TCL_OK;
} }
static int plot_getplot TCL_CMDPROCARGS(clientData,interp,argc,argv) {
if(plot_cur) {
Tcl_SetObjResult(interp,Tcl_NewStringObj(plot_cur->pl_typename,-1));
}
return TCL_OK;
}
/*******************************************/ /*******************************************/
/* Misc functions */ /* Misc functions */
@ -2063,6 +2069,7 @@ bot:
Tcl_CreateCommand(interp, TCLSPICE_prefix "plot_nvars", plot_nvars, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateCommand(interp, TCLSPICE_prefix "plot_nvars", plot_nvars, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
Tcl_CreateCommand(interp, TCLSPICE_prefix "plot_defaultscale", plot_defaultscale, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateCommand(interp, TCLSPICE_prefix "plot_defaultscale", plot_defaultscale, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
Tcl_CreateCommand(interp, TCLSPICE_prefix "plot_getvector", plot_getvector, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateCommand(interp, TCLSPICE_prefix "plot_getvector", plot_getvector, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
Tcl_CreateCommand(interp, TCLSPICE_prefix "getplot", plot_getplot, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
Tcl_CreateCommand(interp, TCLSPICE_prefix "registerTrigger", registerTrigger, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateCommand(interp, TCLSPICE_prefix "registerTrigger", registerTrigger, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
Tcl_CreateCommand(interp, TCLSPICE_prefix "registerTriggerCallback", registerTriggerCallback, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateCommand(interp, TCLSPICE_prefix "registerTriggerCallback", registerTriggerCallback, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);