diff options
author | jingham <jingham@noemail.net> | 1999-08-10 04:21:35 (GMT) |
---|---|---|
committer | jingham <jingham@noemail.net> | 1999-08-10 04:21:35 (GMT) |
commit | c11b818429525dfccc8a466e8d91847a58bd46a4 (patch) | |
tree | 0533635658f34f388349fc560bb1d0565a12ed25 | |
parent | eb54c0116544671aed8b3adeaba9fea43f6b5184 (diff) | |
download | tcl-c11b818429525dfccc8a466e8d91847a58bd46a4.zip tcl-c11b818429525dfccc8a466e8d91847a58bd46a4.tar.gz tcl-c11b818429525dfccc8a466e8d91847a58bd46a4.tar.bz2 |
Convert the directory name from Utf to External before passing it to the
Toolbox.
FossilOrigin-Name: 4c13132580e5d6eb34de1850a7e775d42d603ffc
-rw-r--r-- | mac/tclMacFile.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/mac/tclMacFile.c b/mac/tclMacFile.c index 45e0181..b3175d9 100644 --- a/mac/tclMacFile.c +++ b/mac/tclMacFile.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacFile.c,v 1.7 1999/05/11 07:12:09 jingham Exp $ + * RCS: @(#) $Id: tclMacFile.c,v 1.8 1999/08/10 04:21:35 jingham Exp $ */ /* @@ -129,7 +129,7 @@ TclpMatchFiles( * point to a location in pattern and must * not be static.*/ { - char *dirName, *patternEnd = tail; + char *patternEnd = tail; char savedChar; int result = TCL_OK; int baseLength = Tcl_DStringLength(dirPtr); @@ -147,8 +147,11 @@ TclpMatchFiles( * directory. */ - dirName = dirPtr->string; - FSpLocationFromPath(strlen(dirName), dirName, &dirSpec); + Tcl_UtfToExternalDString(NULL, dirPtr->string, dirPtr->length, &fileString); + + FSpLocationFromPath(fileString.length, fileString.string, &dirSpec); + Tcl_DStringFree(&fileString); + err = FSpGetDirectoryID(&dirSpec, &dirID, &isDirectory); if ((err != noErr) || !isDirectory) { return TCL_OK; |