diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-09-22 18:51:12 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-09-22 18:51:12 (GMT) |
commit | 3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7 (patch) | |
tree | 69afbb41089c8358615879f7cd3c4cf7997f4c7e /tcl8.6/tools/tsdPerf.c | |
parent | a0e17db23c0fd7c771c0afce8cce350c98f90b02 (diff) | |
download | blt-3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7.zip blt-3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7.tar.gz blt-3fa8e6dc88e8041b6cb88d1b1e9c05676d3346b7.tar.bz2 |
update to tcl/tk 8.6.7
Diffstat (limited to 'tcl8.6/tools/tsdPerf.c')
-rw-r--r-- | tcl8.6/tools/tsdPerf.c | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/tcl8.6/tools/tsdPerf.c b/tcl8.6/tools/tsdPerf.c deleted file mode 100644 index 40004b1..0000000 --- a/tcl8.6/tools/tsdPerf.c +++ /dev/null @@ -1,59 +0,0 @@ -#include <tcl.h> - -extern DLLEXPORT Tcl_PackageInitProc Tsdperf_Init; - -static Tcl_ThreadDataKey key; - -typedef struct { - int value; -} TsdPerf; - - -static int -tsdPerfSetObjCmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv) { - TsdPerf *perf = Tcl_GetThreadData(&key, sizeof(TsdPerf)); - int i; - - if (2 != objc) { - Tcl_WrongNumArgs(interp, 1, objv, "value"); - return TCL_ERROR; - } - - if (TCL_OK != Tcl_GetIntFromObj(interp, objv[1], &i)) { - return TCL_ERROR; - } - - perf->value = i; - - return TCL_OK; -} - -static int -tsdPerfGetObjCmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv) { - TsdPerf *perf = Tcl_GetThreadData(&key, sizeof(TsdPerf)); - - - Tcl_SetObjResult(interp, Tcl_NewIntObj(perf->value)); - - return TCL_OK; -} - -int -Tsdperf_Init(Tcl_Interp *interp) { - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { - return TCL_ERROR; - } - - Tcl_CreateObjCommand(interp, "tsdPerfSet", tsdPerfSetObjCmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "tsdPerfGet", tsdPerfGetObjCmd, NULL, NULL); - - return TCL_OK; -} - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ |