diff options
| author | vincentdarley <vincentdarley> | 2002-06-13 09:39:58 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2002-06-13 09:39:58 (GMT) |
| commit | 3db3abd0e6cfd42d48f513b1b4e7640fbb47c7c6 (patch) | |
| tree | bf267b96362f0e9d923d36bea51aa6f4a245f873 /generic/tclIOUtil.c | |
| parent | 49a14aec1a0aca882321df160ad18576749c19c4 (diff) | |
| download | tcl-3db3abd0e6cfd42d48f513b1b4e7640fbb47c7c6.zip tcl-3db3abd0e6cfd42d48f513b1b4e7640fbb47c7c6.tar.gz tcl-3db3abd0e6cfd42d48f513b1b4e7640fbb47c7c6.tar.bz2 | |
vfs, winfs testsuite
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 0858a58..2bf584c 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -17,7 +17,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOUtil.c,v 1.48 2002/06/12 09:28:58 vincentdarley Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.49 2002/06/13 09:40:00 vincentdarley Exp $ */ #include "tclInt.h" @@ -2708,15 +2708,16 @@ FSUnloadTempFile(clientData) */ Tcl_Obj * -Tcl_FSLink(pathPtr, toPtr) +Tcl_FSLink(pathPtr, toPtr, linkType) Tcl_Obj *pathPtr; /* Path of file to readlink or link */ Tcl_Obj *toPtr; /* NULL or path to be linked to */ + int linkType; /* Type of link to create */ { Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr); if (fsPtr != NULL) { Tcl_FSLinkProc *proc = fsPtr->linkProc; if (proc != NULL) { - return (*proc)(pathPtr, toPtr); + return (*proc)(pathPtr, toPtr, linkType); } } /* |