diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclInt.decls | 8 | ||||
| -rw-r--r-- | generic/tclIntPlatDecls.h | 15 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 3 |
3 files changed, 23 insertions, 3 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index aef1260..47ce454 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.95 2006/02/08 21:41:27 dgp Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.96 2006/03/21 11:06:22 das Exp $ library tcl @@ -1097,3 +1097,9 @@ declare 17 macosx { CONST Tcl_StatBuf *statBufPtr) } +declare 18 macosx { + int TclMacOSXMatchType(Tcl_Interp *interp, CONST char *pathName, + CONST char *fileName, Tcl_StatBuf *statBufPtr, + Tcl_GlobTypeData *types) +} + diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index c05b3a5..248a7e6 100644 --- a/generic/tclIntPlatDecls.h +++ b/generic/tclIntPlatDecls.h @@ -9,7 +9,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.28 2005/12/13 22:43:18 kennykb Exp $ + * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.29 2006/03/21 11:06:22 das Exp $ */ #ifndef _TCLINTPLATDECLS @@ -295,6 +295,14 @@ EXTERN int TclMacOSXCopyFileAttributes _ANSI_ARGS_(( CONST char * src, CONST char * dst, CONST Tcl_StatBuf * statBufPtr)); #endif +#ifndef TclMacOSXMatchType_TCL_DECLARED +#define TclMacOSXMatchType_TCL_DECLARED +/* 18 */ +EXTERN int TclMacOSXMatchType _ANSI_ARGS_((Tcl_Interp * interp, + CONST char * pathName, CONST char * fileName, + Tcl_StatBuf * statBufPtr, + Tcl_GlobTypeData * types)); +#endif #endif /* MAC_OSX_TCL */ typedef struct TclIntPlatStubs { @@ -354,6 +362,7 @@ typedef struct TclIntPlatStubs { int (*tclMacOSXGetFileAttribute) _ANSI_ARGS_((Tcl_Interp * interp, int objIndex, Tcl_Obj * fileName, Tcl_Obj ** attributePtrPtr)); /* 15 */ int (*tclMacOSXSetFileAttribute) _ANSI_ARGS_((Tcl_Interp * interp, int objIndex, Tcl_Obj * fileName, Tcl_Obj * attributePtr)); /* 16 */ int (*tclMacOSXCopyFileAttributes) _ANSI_ARGS_((CONST char * src, CONST char * dst, CONST Tcl_StatBuf * statBufPtr)); /* 17 */ + int (*tclMacOSXMatchType) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * pathName, CONST char * fileName, Tcl_StatBuf * statBufPtr, Tcl_GlobTypeData * types)); /* 18 */ #endif /* MAC_OSX_TCL */ } TclIntPlatStubs; @@ -547,6 +556,10 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; #define TclMacOSXCopyFileAttributes \ (tclIntPlatStubsPtr->tclMacOSXCopyFileAttributes) /* 17 */ #endif +#ifndef TclMacOSXMatchType +#define TclMacOSXMatchType \ + (tclIntPlatStubsPtr->tclMacOSXMatchType) /* 18 */ +#endif #endif /* MAC_OSX_TCL */ #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 45b947f..79130e2 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -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: tclStubInit.c,v 1.129 2006/02/08 21:41:27 dgp Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.130 2006/03/21 11:06:22 das Exp $ */ #include "tclInt.h" @@ -375,6 +375,7 @@ TclIntPlatStubs tclIntPlatStubs = { TclMacOSXGetFileAttribute, /* 15 */ TclMacOSXSetFileAttribute, /* 16 */ TclMacOSXCopyFileAttributes, /* 17 */ + TclMacOSXMatchType, /* 18 */ #endif /* MAC_OSX_TCL */ }; |