diff options
| author | davygrvy <davygrvy@pobox.com> | 2004-10-27 17:13:58 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2004-10-27 17:13:58 (GMT) |
| commit | ae40e74a872262866a65b2bdbe48cfd49bfe7a61 (patch) | |
| tree | d38e2e996f76b486c2c2fb432f57ca4fececc7e2 /generic/tclInt.decls | |
| parent | bbf8d929edc48523f1dbbb816c26ccc93a57518f (diff) | |
| download | tcl-ae40e74a872262866a65b2bdbe48cfd49bfe7a61.zip tcl-ae40e74a872262866a65b2bdbe48cfd49bfe7a61.tar.gz tcl-ae40e74a872262866a65b2bdbe48cfd49bfe7a61.tar.bz2 | |
* generic/tclInt.decls: The following 9 functions were moved from
* generic/tclInt.h: tclInt.h to the internal Stubs table for
* generic/tclIntDecls.h: use by the test suite. As tclTest.obj is
* generic/tclStubInit.c: linked to the shell, these functions need
"blessed" status so as to always be exported from the library. Being
placed in the Stubs table guarantees this [Bug 1054748]:
TclpObjRemoveDirectory, TclpObjCopyDirectory,
TclpObjCreateDirectory, TclpObjDeleteFile,
TclpObjCopyFile, TclpObjRenameFile,
TclpObjStat, TclpObjAccess,
TclpOpenFileChannel
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 |