diff options
| author | dkf <dkf@noemail.net> | 2012-07-03 14:52:55 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2012-07-03 14:52:55 (GMT) |
| commit | 55bca015216b30f90bdf9a9eb01a4f27b806d052 (patch) | |
| tree | 84118ecaa9257d1f2e99228c0ae52bc98d574b97 /unix/tclUnixFile.c | |
| parent | 8b683092eb10a30155e93fc7f0a590b8c4761b19 (diff) | |
| download | tcl-55bca015216b30f90bdf9a9eb01a4f27b806d052.zip tcl-55bca015216b30f90bdf9a9eb01a4f27b806d052.tar.gz tcl-55bca015216b30f90bdf9a9eb01a4f27b806d052.tar.bz2 | |
Factor out a number of common patterns of use of Tcl_DStringAppend.
FossilOrigin-Name: 4dd736c95fc5e333c574e4d23aeccb7e0bdd41ae
Diffstat (limited to 'unix/tclUnixFile.c')
| -rw-r--r-- | unix/tclUnixFile.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index e676215..c213050 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -105,11 +105,11 @@ TclpFindExecutable( while ((*p != ':') && (*p != 0)) { p++; } - Tcl_DStringSetLength(&buffer, 0); + TclDStringClear(&buffer); if (p != name) { Tcl_DStringAppend(&buffer, name, p - name); if (p[-1] != '/') { - Tcl_DStringAppend(&buffer, "/", 1); + TclDStringAppendLiteral(&buffer, "/"); } } name = Tcl_DStringAppend(&buffer, argv0, -1); @@ -174,11 +174,10 @@ TclpFindExecutable( Tcl_UtfToExternalDString(NULL, Tcl_DStringValue(&cwd), Tcl_DStringLength(&cwd), &buffer); if (Tcl_DStringValue(&cwd)[Tcl_DStringLength(&cwd) -1] != '/') { - Tcl_DStringAppend(&buffer, "/", 1); + TclDStringAppendLiteral(&buffer, "/"); } Tcl_DStringFree(&cwd); - Tcl_DStringAppend(&buffer, Tcl_DStringValue(&nameString), - Tcl_DStringLength(&nameString)); + TclDStringAppendDString(&buffer, &nameString); Tcl_DStringFree(&nameString); encoding = Tcl_GetEncoding(NULL, NULL); @@ -288,7 +287,7 @@ TclpMatchInDirectory( */ if (dirName[dirLength-1] != '/') { - dirName = Tcl_DStringAppend(&dsOrig, "/", 1); + dirName = TclDStringAppendLiteral(&dsOrig, "/"); dirLength++; } } |