diff options
| author | dgp <dgp@noemail.net> | 2005-05-03 18:07:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2005-05-03 18:07:33 (GMT) |
| commit | 75342426b3d9fbf5be1a5a0ce82d15e8241cea7b (patch) | |
| tree | b6fcb467e2e876bcc285aba2c7258bb0988cbe54 /generic/tclEnv.c | |
| parent | aa0ad456e7885aad90c04bd167e5a4c13ff84902 (diff) | |
| download | tcl-75342426b3d9fbf5be1a5a0ce82d15e8241cea7b.zip tcl-75342426b3d9fbf5be1a5a0ce82d15e8241cea7b.tar.gz tcl-75342426b3d9fbf5be1a5a0ce82d15e8241cea7b.tar.bz2 | |
* doc/DString.3: Eliminated use of identifier "string" in Tcl's
* doc/Environment.3: public C API to avoid conflict/confusion with
* doc/Eval.3: the std::string of C++.
* doc/ExprLong.3, doc/ExprLongObj.3, doc/GetInt.3, doc/GetOpnFl.3:
* doc/ParseCmd.3, doc/RegExp.3, doc/SetResult.3, doc/StrMatch.3:
* doc/Utf.3, generic/tcl.decls, generic/tclBasic.c, generic/tclEnv.c:
* generic/tclGet.c, generic/tclParse.c, generic/tclParseExpr.c:
* generic/tclRegexp.c, generic/tclResult.c, generic/tclUtf.c:
* generic/tclUtil.c, unix/tclUnixChan.c:
* generic/tclDecls.h: `make genstubs`
FossilOrigin-Name: 83aa957ebe8d942b417ec080d6731e06e930ba73
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index af7ddcd..e4d7b23 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEnv.c,v 1.22 2004/04/06 22:25:50 dgp Exp $ + * RCS: @(#) $Id: tclEnv.c,v 1.23 2005/05/03 18:08:17 dgp Exp $ */ #include "tclInt.h" @@ -320,15 +320,15 @@ TclSetEnv(name, value) */ int -Tcl_PutEnv(string) - CONST char *string; /* Info about environment variable in the +Tcl_PutEnv(assignment) + CONST char *assignment; /* Info about environment variable in the * form NAME=value. (native) */ { Tcl_DString nameString; CONST char *name; char *value; - if (string == NULL) { + if (assignment == NULL) { return 0; } @@ -338,7 +338,7 @@ Tcl_PutEnv(string) * all of the real work. */ - name = Tcl_ExternalToUtfDString(NULL, string, -1, &nameString); + name = Tcl_ExternalToUtfDString(NULL, assignment, -1, &nameString); value = strchr(name, '='); if ((value != NULL) && (value != name)) { |