diff options
author | vincentdarley <vincentdarley> | 2001-08-23 17:37:07 (GMT) |
---|---|---|
committer | vincentdarley <vincentdarley> | 2001-08-23 17:37:07 (GMT) |
commit | f319c32167c2c52995fe53b438ef4bc34e9a4914 (patch) | |
tree | 6169e1176aad79725e33cee0d99ca91f726feed6 /generic/tcl.decls | |
parent | 8d4c60866a8f603ab29fa193c8f4aff83f8beee7 (diff) | |
download | tcl-f319c32167c2c52995fe53b438ef4bc34e9a4914.zip tcl-f319c32167c2c52995fe53b438ef4bc34e9a4914.tar.gz tcl-f319c32167c2c52995fe53b438ef4bc34e9a4914.tar.bz2 |
fs update
Diffstat (limited to 'generic/tcl.decls')
-rw-r--r-- | generic/tcl.decls | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 482d5fa..65ff02a 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -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: tcl.decls,v 1.51 2001/07/31 19:12:06 vincentdarley Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.52 2001/08/23 17:37:07 vincentdarley Exp $ library tcl @@ -599,7 +599,8 @@ declare 167 unix { int Tcl_GetOpenFile(Tcl_Interp *interp, char *str, int forWriting, \ int checkUsage, ClientData *filePtr) } - +# Obsolete. Should now use Tcl_FSGetPathType which is objectified +# and therefore usually faster. declare 168 generic { Tcl_PathType Tcl_GetPathType(char *path) } @@ -1562,7 +1563,7 @@ declare 445 generic { char * pattern, Tcl_GlobTypeData * types) } declare 446 generic { - Tcl_Obj* Tcl_FSReadlink(Tcl_Obj *pathPtr) + Tcl_Obj* Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr) } declare 447 generic { int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr, \ @@ -1628,7 +1629,7 @@ declare 465 generic { ClientData Tcl_FSGetInternalRep(Tcl_Obj* pathObjPtr, Tcl_Filesystem *fsPtr) } declare 466 generic { - char* Tcl_FSGetTranslatedPath(Tcl_Interp *interp, Tcl_Obj* pathPtr) + Tcl_Obj* Tcl_FSGetTranslatedPath(Tcl_Interp *interp, Tcl_Obj* pathPtr) } declare 467 generic { int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName) @@ -1646,7 +1647,7 @@ declare 471 generic { Tcl_Obj* Tcl_FSPathSeparator(Tcl_Obj* pathObjPtr) } declare 472 generic { - int Tcl_FSListVolumes(Tcl_Interp *interp) + Tcl_Obj* Tcl_FSListVolumes(void) } declare 473 generic { int Tcl_FSRegister(ClientData clientData, Tcl_Filesystem *fsPtr) @@ -1657,6 +1658,9 @@ declare 474 generic { declare 475 generic { ClientData Tcl_FSData(Tcl_Filesystem *fsPtr) } +declare 476 generic { + char* Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp, Tcl_Obj* pathPtr) +} ############################################################################## |