diff options
author | dgp <dgp@noemail.net> | 2007-06-28 21:24:56 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2007-06-28 21:24:56 (GMT) |
commit | 8fac4eeecf30fc85a02e49d928433f3524ce6ae5 (patch) | |
tree | a52adf5624e0cd6ab29cc09e78d7e6ccce96e968 /generic/tclTestObj.c | |
parent | 8903ef776c43c52b6cf325f514ecec6a4d0af6d4 (diff) | |
download | tcl-8fac4eeecf30fc85a02e49d928433f3524ce6ae5.zip tcl-8fac4eeecf30fc85a02e49d928433f3524ce6ae5.tar.gz tcl-8fac4eeecf30fc85a02e49d928433f3524ce6ae5.tar.bz2 |
* generic/tclBasic.c: Removed dead code, including the
* generic/tclExecute.c: entire file tclMathOp.c.
* generic/tclInt.h:
* generic/tclMathOp.c (removed):
* generic/tclTestObj.c:
* win/tclWinFile.c:
* unix/Makefile.in: Updated to reflect deletion of tclMathOp.c.
* win/Makefile.in:
* win/makefile.bc:
* win/makefile.vc:
FossilOrigin-Name: 151eab934782cc12d150bd04e908ebfc8c09437e
Diffstat (limited to 'generic/tclTestObj.c')
-rw-r--r-- | generic/tclTestObj.c | 67 |
1 files changed, 1 insertions, 66 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index 0553005..f926c1f 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTestObj.c,v 1.19 2007/04/20 06:10:59 kennykb Exp $ + * RCS: @(#) $Id: tclTestObj.c,v 1.20 2007/06/28 21:24:57 dgp Exp $ */ #include "tclInt.h" @@ -42,11 +42,6 @@ static int TestbignumobjCmd(ClientData dummy, Tcl_Interp *interp, static int TestbooleanobjCmd(ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -#if 0 -static int TestconvertobjCmd(ClientData dummy, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); -#endif static int TestdoubleobjCmd(ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); static int TestindexobjCmd(ClientData dummy, Tcl_Interp *interp, @@ -97,10 +92,6 @@ TclObjTest_Init( (ClientData) 0, NULL); Tcl_CreateObjCommand(interp, "testbooleanobj", TestbooleanobjCmd, (ClientData) 0, NULL); -#if 0 - Tcl_CreateObjCommand(interp, "testconvertobj", TestconvertobjCmd, - (ClientData) 0, NULL); -#endif Tcl_CreateObjCommand(interp, "testdoubleobj", TestdoubleobjCmd, (ClientData) 0, NULL); Tcl_CreateObjCommand(interp, "testintobj", TestintobjCmd, @@ -362,62 +353,6 @@ TestbooleanobjCmd( return TCL_OK; } -#if 0 -/* - *---------------------------------------------------------------------- - * - * TestconvertobjCmd -- - * - * This function implements the "testconvertobj" command. It is used to - * test converting objects to new types. - * - * Results: - * A standard Tcl object result. - * - * Side effects: - * Converts objects to new types. - * - *---------------------------------------------------------------------- - */ - -static int -TestconvertobjCmd( - ClientData clientData, /* Not used. */ - Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ - Tcl_Obj *const objv[]) /* Argument objects. */ -{ - char *subCmd; - char buf[20]; - - if (objc < 3) { - wrongNumArgs: - Tcl_WrongNumArgs(interp, 1, objv, "option arg ?arg ...?"); - return TCL_ERROR; - } - - subCmd = Tcl_GetString(objv[1]); - if (strcmp(subCmd, "double") == 0) { - double d; - - if (objc != 3) { - goto wrongNumArgs; - } - if (Tcl_GetDoubleFromObj(interp, objv[2], &d) != TCL_OK) { - return TCL_ERROR; - } - sprintf(buf, "%f", d); - Tcl_AppendToObj(Tcl_GetObjResult(interp), buf, -1); - } else { - Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), - "bad option \"", Tcl_GetString(objv[1]), - "\": must be double", NULL); - return TCL_ERROR; - } - return TCL_OK; -} -#endif - /* *---------------------------------------------------------------------- * |