luke/ngspice
1
0
Fork 0
mirror of https://git.code.sf.net/p/ngspice/ngspice synced 2026-08-22 05:47:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

2004-07-21 Stefan Jones <[email protected]>

Browse Source 
* 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
Download Patch File Download Diff File Expand all files Collapse all files
ChangeLog
+5
View File
@@ -1,3 +1,8 @@
2004-07-21 Stefan Jones <[email protected]>
* src/tclspice.c:
add getplot() command
2004-07-20 Stefan Jones <[email protected]> 2004-07-20 Stefan Jones <[email protected]>
* src/tclspice.c: * src/tclspice.c:
src/tclspice.c
+7
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);