diff options
author | nijtmans <nijtmans@noemail.net> | 2010-08-14 17:13:01 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2010-08-14 17:13:01 (GMT) |
commit | 8178c8fd0f4d42f9ffee3b7348adf421c625f21f (patch) | |
tree | 4f5a2412e887b345c272cf9e43755763e7a3922f /generic/tclDecls.h | |
parent | 7c61e00e3c6725feafd96260458008724ce7aeb5 (diff) | |
download | tcl-8178c8fd0f4d42f9ffee3b7348adf421c625f21f.zip tcl-8178c8fd0f4d42f9ffee3b7348adf421c625f21f.tar.gz tcl-8178c8fd0f4d42f9ffee3b7348adf421c625f21f.tar.bz2 |
[Patch #2994165] Change signature of Tcl_FSGetNativePath and TclpDeleteFile
FossilOrigin-Name: 24edb97f5af71c239ff4b33291f9486bdf3f2cc0
Diffstat (limited to 'generic/tclDecls.h')
-rw-r--r-- | generic/tclDecls.h | 26 |
1 files changed, 18 insertions, 8 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 96e6a04..7043d2e 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDecls.h,v 1.178 2010/07/24 06:39:52 nijtmans Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.179 2010/08/14 17:13:02 nijtmans Exp $ */ #ifndef _TCLDECLS @@ -2765,10 +2765,10 @@ EXTERN Tcl_Obj * Tcl_FSNewNativePath( const Tcl_Filesystem *fromFilesystem, ClientData clientData); #endif -#ifndef Tcl_FSGetNativePath_TCL_DECLARED -#define Tcl_FSGetNativePath_TCL_DECLARED +#ifndef TclFSGetNativePath_TCL_DECLARED +#define TclFSGetNativePath_TCL_DECLARED /* 469 */ -EXTERN const char * Tcl_FSGetNativePath(Tcl_Obj *pathPtr); +EXTERN const char * TclFSGetNativePath(Tcl_Obj *pathPtr); #endif #ifndef Tcl_FSFileSystemInfo_TCL_DECLARED #define Tcl_FSFileSystemInfo_TCL_DECLARED @@ -3703,6 +3703,11 @@ EXTERN void* Tcl_FindSymbol(Tcl_Interp *interp, EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp, Tcl_LoadHandle handlePtr); #endif +#ifndef Tcl_FSGetNativePath_TCL_DECLARED +#define Tcl_FSGetNativePath_TCL_DECLARED +/* 630 */ +EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr); +#endif typedef struct TclStubHooks { const struct TclPlatStubs *tclPlatStubs; @@ -4207,7 +4212,7 @@ typedef struct TclStubs { Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */ int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */ Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */ - const char * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */ + const char * (*tclFSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */ Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */ Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */ Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */ @@ -4368,6 +4373,7 @@ typedef struct TclStubs { int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627 */ void* (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */ int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */ + const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 630 */ } TclStubs; #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) @@ -6274,9 +6280,9 @@ extern const TclStubs *tclStubsPtr; #define Tcl_FSNewNativePath \ (tclStubsPtr->tcl_FSNewNativePath) /* 468 */ #endif -#ifndef Tcl_FSGetNativePath -#define Tcl_FSGetNativePath \ - (tclStubsPtr->tcl_FSGetNativePath) /* 469 */ +#ifndef TclFSGetNativePath +#define TclFSGetNativePath \ + (tclStubsPtr->tclFSGetNativePath) /* 469 */ #endif #ifndef Tcl_FSFileSystemInfo #define Tcl_FSFileSystemInfo \ @@ -6918,6 +6924,10 @@ extern const TclStubs *tclStubsPtr; #define Tcl_FSUnloadFile \ (tclStubsPtr->tcl_FSUnloadFile) /* 629 */ #endif +#ifndef Tcl_FSGetNativePath +#define Tcl_FSGetNativePath \ + (tclStubsPtr->tcl_FSGetNativePath) /* 630 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |