diff options
| author | das <das@noemail.net> | 2006-03-21 11:06:20 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2006-03-21 11:06:20 (GMT) |
| commit | 1358da471fe59ed5173bdbb4fea8d95cc3c328b7 (patch) | |
| tree | 9b31284ec3cc00460868746481c7082902a886a4 /generic/tclIntPlatDecls.h | |
| parent | edc238ca48c1635d1917e8a9cdd899564aed9f6d (diff) | |
| download | tcl-1358da471fe59ed5173bdbb4fea8d95cc3c328b7.zip tcl-1358da471fe59ed5173bdbb4fea8d95cc3c328b7.tar.gz tcl-1358da471fe59ed5173bdbb4fea8d95cc3c328b7.tar.bz2 | |
* generic/tclInt.decls: implement globbing for HFS creator & type
* macosx/tclMacOSXFCmd.c: codes and 'hidden' flag, as documented in
* tests/macOSXFCmd.test: glob.n; objectified OSType handling in [glob]
* unix/tclUnixFile.c: and [file attributes]; fix globbing for hidden
files with pattern==NULL arg. [Bug 823329]
* generic/tclIntPlatDecls.h:
* generic/tclStubInit.c: make genstubs
FossilOrigin-Name: c72a1b963bebae88298ba81a6d1a67515c913790
Diffstat (limited to 'generic/tclIntPlatDecls.h')
| -rw-r--r-- | generic/tclIntPlatDecls.h | 15 |
1 files changed, 14 insertions, 1 deletions
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) */ |