diff options
Diffstat (limited to 'generic/tclInt.decls')
-rw-r--r-- | generic/tclInt.decls | 34 |
1 files changed, 33 insertions, 1 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 36b19a8..3b5dc5d 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -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: tclInt.decls,v 1.81 2004/10/14 15:06:02 dkf Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.82 2004/10/27 17:13:58 davygrvy Exp $ library tcl @@ -810,6 +810,38 @@ declare 199 generic { int TclMatchIsTrivial(CONST char *pattern) } +# 200-208 exported for use by the test suite [Bug 1054748] +declare 200 generic { + int TclpObjRemoveDirectory (Tcl_Obj *pathPtr, int recursive, + Tcl_Obj **errorPtr) +} +declare 201 generic { + int TclpObjCopyDirectory (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, + Tcl_Obj **errorPtr) +} +declare 202 generic { + int TclpObjCreateDirectory (Tcl_Obj *pathPtr) +} +declare 203 generic { + int TclpObjDeleteFile (Tcl_Obj *pathPtr) +} +declare 204 generic { + int TclpObjCopyFile (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr) +} +declare 205 generic { + int TclpObjRenameFile (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr) +} +declare 206 generic { + int TclpObjStat (Tcl_Obj *pathPtr, Tcl_StatBuf *buf) +} +declare 207 generic { + int TclpObjAccess (Tcl_Obj *pathPtr, int mode) +} +declare 208 generic { + Tcl_Channel TclpOpenFileChannel (Tcl_Interp *interp, + Tcl_Obj *pathPtr, int mode, int permissions) +} + ############################################################################## # Define the platform specific internal Tcl interface. These functions are |