diff options
author | hobbs <hobbs> | 2000-01-11 22:09:18 (GMT) |
---|---|---|
committer | hobbs <hobbs> | 2000-01-11 22:09:18 (GMT) |
commit | 80aca675e000cc95aa5910d75144bada69786139 (patch) | |
tree | 6d094056c0cb17773c790dd3b5d4daa596cd5cb4 /unix/tclUnixFile.c | |
parent | 6cf44cfd1a6b849cbfabaf7d6b2279499e3b068e (diff) | |
download | tcl-80aca675e000cc95aa5910d75144bada69786139.zip tcl-80aca675e000cc95aa5910d75144bada69786139.tar.gz tcl-80aca675e000cc95aa5910d75144bada69786139.tar.bz2 |
* unix/tclUnixFile.c: fixed signature style on functions
* unix/Makefile.in: made sure tcl.m4 would be installed with dist
* unix/tcl.m4: added ELF support for NetBSD [Bug: 3959]
Diffstat (limited to 'unix/tclUnixFile.c')
-rw-r--r-- | unix/tclUnixFile.c | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index 12653f3..2679fdb 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixFile.c,v 1.8 1999/12/13 03:05:52 hobbs Exp $ + * RCS: @(#) $Id: tclUnixFile.c,v 1.9 2000/01/11 22:09:19 hobbs Exp $ */ #include "tclInt.h" @@ -195,15 +195,15 @@ TclpFindExecutable(argv0) */ int -TclpMatchFilesTypes( - Tcl_Interp *interp, /* Interpreter to receive results. */ - char *separators, /* Directory separators to pass to TclDoGlob. */ - Tcl_DString *dirPtr, /* Contains path to directory to search. */ - char *pattern, /* Pattern to match against. */ - char *tail, /* Pointer to end of pattern. Tail must +TclpMatchFilesTypes(interp, separators, dirPtr, pattern, tail, types) + Tcl_Interp *interp; /* Interpreter to receive results. */ + char *separators; /* Directory separators to pass to TclDoGlob */ + Tcl_DString *dirPtr; /* Contains path to directory to search. */ + char *pattern; /* Pattern to match against. */ + char *tail; /* Pointer to end of pattern. Tail must * point to a location in pattern and must - * not be static.*/ - GlobTypeData *types) /* Object containing list of acceptable types. + * not be static. */ + GlobTypeData *types; /* Object containing list of acceptable types. * May be NULL. */ { char *native, *fname, *dirName, *patternEnd = tail; @@ -424,14 +424,14 @@ TclpMatchFilesTypes( * 'TclpMatchFilesTypes' instead. */ int -TclpMatchFiles( - Tcl_Interp *interp, /* Interpreter to receive results. */ - char *separators, /* Directory separators to pass to TclDoGlob. */ - Tcl_DString *dirPtr, /* Contains path to directory to search. */ - char *pattern, /* Pattern to match against. */ - char *tail) /* Pointer to end of pattern. Tail must +TclpMatchFiles(interp, separators, dirPtr, pattern, tail) + Tcl_Interp *interp; /* Interpreter to receive results. */ + char *separators; /* Directory separators to pass to TclDoGlob */ + Tcl_DString *dirPtr; /* Contains path to directory to search. */ + char *pattern; /* Pattern to match against. */ + char *tail; /* Pointer to end of pattern. Tail must * point to a location in pattern and must - * not be static.*/ + * not be static. */ { return TclpMatchFilesTypes(interp,separators,dirPtr,pattern,tail,NULL); } |