summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-12-23 02:12:59 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-12-23 02:12:59 (GMT)
commit81a240828fe7d60234ab063b23b1666272126fb2 (patch)
treec15f7352ff30b6ef63061c5c44559b74fa0915f1
parent4357393a80b049950ddac5db40e7c2e2d5de136f (diff)
downloadtcl-81a240828fe7d60234ab063b23b1666272126fb2.zip
tcl-81a240828fe7d60234ab063b23b1666272126fb2.tar.gz
tcl-81a240828fe7d60234ab063b23b1666272126fb2.tar.bz2
Eliminate TclIsLocalScalar(). No callers left.
-rw-r--r--generic/tclInt.h1
-rw-r--r--generic/tclParse.c50
2 files changed, 0 insertions, 51 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 995da48..3f84717 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -2985,7 +2985,6 @@ MODULE_SCOPE void TclInitNotifier(void);
MODULE_SCOPE void TclInitObjSubsystem(void);
MODULE_SCOPE void TclInitSubsystems(void);
MODULE_SCOPE int TclInterpReady(Tcl_Interp *interp);
-MODULE_SCOPE int TclIsLocalScalar(const char *src, int len);
MODULE_SCOPE int TclIsSpaceProc(char byte);
MODULE_SCOPE int TclIsBareword(char byte);
MODULE_SCOPE Tcl_Obj * TclJoinPath(int elements, Tcl_Obj * const objv[]);
diff --git a/generic/tclParse.c b/generic/tclParse.c
index ca12be5..5524979 100644
--- a/generic/tclParse.c
+++ b/generic/tclParse.c
@@ -2526,56 +2526,6 @@ TclObjCommandComplete(
}
/*
- *----------------------------------------------------------------------
- *
- * TclIsLocalScalar --
- *
- * Check to see if a given string is a legal scalar variable name with no
- * namespace qualifiers or substitutions.
- *
- * Results:
- * Returns 1 if the variable is a local scalar.
- *
- * Side effects:
- * None.
- *
- *----------------------------------------------------------------------
- */
-
-int
-TclIsLocalScalar(
- const char *src,
- int len)
-{
- const char *p;
- const char *lastChar = src + (len - 1);
-
- for (p=src ; p<=lastChar ; p++) {
- if ((CHAR_TYPE(*p) != TYPE_NORMAL)
- && (CHAR_TYPE(*p) != TYPE_COMMAND_END)) {
- /*
- * TCL_COMMAND_END is returned for the last character of the
- * string. By this point we know it isn't an array or namespace
- * reference.
- */
-
- return 0;
- }
- if (*p == '(') {
- if (*lastChar == ')') { /* We have an array element */
- return 0;
- }
- } else if (*p == ':') {
- if ((p != lastChar) && *(p+1) == ':') { /* qualified name */
- return 0;
- }
- }
- }
-
- return 1;
-}
-
-/*
* Local Variables:
* mode: c
* c-basic-offset: 4