diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-13 20:17:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-13 20:17:44 (GMT) |
| commit | f685c98a417dcab25fd035553cd16b61fbdeb74d (patch) | |
| tree | 69c1cf099037463b92eee539e8aea5d87a745d83 /generic/tclFileName.c | |
| parent | cbd41f6910eac83dfe47c930b5d9ab50c503596a (diff) | |
| download | tcl-f685c98a417dcab25fd035553cd16b61fbdeb74d.zip tcl-f685c98a417dcab25fd035553cd16b61fbdeb74d.tar.gz tcl-f685c98a417dcab25fd035553cd16b61fbdeb74d.tar.bz2 | |
Make TclGlob() a static function
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index b553621..3cdd52f 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -37,6 +37,17 @@ static Tcl_Obj * SplitUnixPath(const char *path); static int DoGlob(Tcl_Interp *interp, Tcl_Obj *resultPtr, const char *separators, Tcl_Obj *pathPtr, int flags, char *pattern, Tcl_GlobTypeData *types); +static int TclGlob(Tcl_Interp *interp, char *pattern, + Tcl_Obj *pathPrefix, int globFlags, + Tcl_GlobTypeData *types); + +/* Flag values used by TclGlob() */ + +#ifdef TCL_NO_DEPRECATED +# define TCL_GLOBMODE_NO_COMPLAIN 1 +# define TCL_GLOBMODE_DIR 4 +# define TCL_GLOBMODE_TAILS 8 +#endif /* * When there is no support for getting the block size of a file in a stat() @@ -1688,7 +1699,7 @@ Tcl_GlobObjCmd( *---------------------------------------------------------------------- */ -int +static int TclGlob( Tcl_Interp *interp, /* Interpreter for returning error message or * appending list of matching file names. */ |