diff options
author | hershey <hershey@noemail.net> | 1999-04-17 00:32:26 (GMT) |
---|---|---|
committer | hershey <hershey@noemail.net> | 1999-04-17 00:32:26 (GMT) |
commit | d03bbbb9cd035c95266afbcff6098eaf5d8f4132 (patch) | |
tree | d397aeef664656316cd9691f280f0a3560670008 /generic/tclUtil.c | |
parent | d42918a82e5a3b7a832b806064ed99a2c42e307f (diff) | |
download | tcl-d03bbbb9cd035c95266afbcff6098eaf5d8f4132.zip tcl-d03bbbb9cd035c95266afbcff6098eaf5d8f4132.tar.gz tcl-d03bbbb9cd035c95266afbcff6098eaf5d8f4132.tar.bz2 |
changes make Tcl_Access and Tcl_Stat public.
also one minor fix in tests/all.tcl to fix bug 1770.
FossilOrigin-Name: 4dacfaef427258324af08e3a063813876a41327c
Diffstat (limited to 'generic/tclUtil.c')
-rw-r--r-- | generic/tclUtil.c | 49 |
1 files changed, 48 insertions, 1 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 54811df..556977b 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUtil.c,v 1.5 1999/04/16 00:46:55 stanton Exp $ + * RCS: @(#) $Id: tclUtil.c,v 1.6 1999/04/17 00:32:32 hershey Exp $ */ #include "tclInt.h" @@ -2157,4 +2157,51 @@ Tcl_Chdir(dirName) { return TclpChdir(dirName); } + +/* + *---------------------------------------------------------------------- + * + * Tcl_Access -- + * + * This function replaces the library version of access(). + * + * Results: + * See access() documentation. + * + * Side effects: + * See access() documentation. + * + *---------------------------------------------------------------------- + */ +int +Tcl_Access(path, mode) + CONST char *path; /* Path of file to access (UTF-8). */ + int mode; /* Permission setting. */ +{ + return TclpAccess(path, mode); +} + +/* + *---------------------------------------------------------------------- + * + * Tcl_Stat -- + * + * This function replaces the library version of stat(). + * + * Results: + * See stat() documentation. + * + * Side effects: + * See stat() documentation. + * + *---------------------------------------------------------------------- + */ + +int +Tcl_Stat(path, bufPtr) + CONST char *path; /* Path of file to stat (in UTF-8). */ + struct stat *bufPtr; /* Filled with results of stat call. */ +{ + return TclpStat(path, bufPtr); +} |