1 files changed, 0 insertions, 156 deletions
diff --git a/tcl8.6/generic/tclGet.c b/tcl8.6/generic/tclGet.c
deleted file mode 100644
index 97e8c7b..0000000
--- a/tcl8.6/generic/tclGet.c
+++ /dev/null
@@ -1,156 +0,0 @@
-/*
- * tclGet.c --
- *
- *	This file contains functions to convert strings into other forms, like
- *	integers or floating-point numbers or booleans, doing syntax checking
- *	along the way.
- *
- * Copyright (c) 1990-1993 The Regents of the University of California.
- * Copyright (c) 1994-1997 Sun Microsystems, Inc.
- *
- * See the file "license.terms" for information on usage and redistribution of
- * this file, and for a DISCLAIMER OF ALL WARRANTIES.
- */
-
-#include "tclInt.h"
-
-/*
- *----------------------------------------------------------------------
- *
- * Tcl_GetInt --
- *
- *	Given a string, produce the corresponding integer value.
- *
- * Results:
- *	The return value is normally TCL_OK; in this case *intPtr will be set
- *	to the integer value equivalent to src.  If src is improperly formed
- *	then TCL_ERROR is returned and an error message will be left in the
- *	interp's result.
- *
- * Side effects:
- *	None.
- *
- *----------------------------------------------------------------------
- */
-
-int
-Tcl_GetInt(
-    Tcl_Interp *interp,		/* Interpreter to use for error reporting. */
-    const char *src,		/* String containing a (possibly signed)
-				 * integer in a form acceptable to
-				 * Tcl_GetIntFromObj(). */
-    int *intPtr)		/* Place to store converted result. */
-{
-    Tcl_Obj obj;
-    int code;
-
-    obj.refCount = 1;
-    obj.bytes = (char *) src;
-    obj.length = strlen(src);
-    obj.typePtr = NULL;
-
-    code = Tcl_GetIntFromObj(interp, &obj, intPtr);
-    if (obj.refCount > 1) {
-	Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
-    }
-    TclFreeIntRep(&obj);
-    return code;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * Tcl_GetDouble --
- *
- *	Given a string, produce the corresponding double-precision
- *	floating-point value.
- *
- * Results:
- *	The return value is normally TCL_OK; in this case *doublePtr will be
- *	set to the double-precision value equivalent to src. If src is
- *	improperly formed then TCL_ERROR is returned and an error message will
- *	be left in the interp's result.
- *
- * Side effects:
- *	None.
- *
- *----------------------------------------------------------------------
- */
-
-int
-Tcl_GetDouble(
-    Tcl_Interp *interp,		/* Interpreter used for error reporting. */
-    const char *src,		/* String containing a floating-point number
-				 * in a form acceptable to
-				 * Tcl_GetDoubleFromObj(). */
-    double *doublePtr)		/* Place to store converted result. */
-{
-    Tcl_Obj obj;
-    int code;
-
-    obj.refCount = 1;
-    obj.bytes = (char *) src;
-    obj.length = strlen(src);
-    obj.typePtr = NULL;
-
-    code = Tcl_GetDoubleFromObj(interp, &obj, doublePtr);
-    if (obj.refCount > 1) {
-	Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
-    }
-    TclFreeIntRep(&obj);
-    return code;
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * Tcl_GetBoolean --
- *
- *	Given a string, return a 0/1 boolean value corresponding to the
- *	string.
- *
- * Results:
- *	The return value is normally TCL_OK; in this case *boolPtr will be set
- *	to the 0/1 value equivalent to src. If src is improperly formed then
- *	TCL_ERROR is returned and an error message will be left in the
- *	interp's result.
- *
- * Side effects:
- *	None.
- *
- *----------------------------------------------------------------------
- */
-
-int
-Tcl_GetBoolean(
-    Tcl_Interp *interp,		/* Interpreter used for error reporting. */
-    const char *src,		/* String containing one of the boolean values
-				 * 1, 0, true, false, yes, no, on, off. */
-    int *boolPtr)		/* Place to store converted result, which will
-				 * be 0 or 1. */
-{
-    Tcl_Obj obj;
-    int code;
-
-    obj.refCount = 1;
-    obj.bytes = (char *) src;
-    obj.length = strlen(src);
-    obj.typePtr = NULL;
-
-    code = TclSetBooleanFromAny(interp, &obj);
-    if (obj.refCount > 1) {
-	Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
-    }
-    if (code == TCL_OK) {
-	*boolPtr = obj.internalRep.longValue;
-    }
-    return code;
-}
-
-/*
- * Local Variables:
- * mode: c
- * c-basic-offset: 4
- * fill-column: 78
- * End:
- */