diff options
| author | suresh <suresh> | 1998-05-20 16:53:03 (GMT) |
|---|---|---|
| committer | suresh <suresh> | 1998-05-20 16:53:03 (GMT) |
| commit | 6b7c77f618a86f95b65e4aae0332373a102aee62 (patch) | |
| tree | 5f1ed8dfd84101c28a55279508e491aa12bfa378 /generic | |
| parent | 258204483c0b1f65d8f040ce63189c31f081fc13 (diff) | |
| download | tcl-6b7c77f618a86f95b65e4aae0332373a102aee62.zip tcl-6b7c77f618a86f95b65e4aae0332373a102aee62.tar.gz tcl-6b7c77f618a86f95b65e4aae0332373a102aee62.tar.bz2 | |
Changed call ref's of 'stat(...)' to 'TclStat(...)' & 'access(...)' to
'TclAccess(...)'.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCmdAH.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 4c5fd0a..2c467f9 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -972,7 +972,7 @@ checkAccess: if (fileName == NULL) { Tcl_SetObjResult(interp, Tcl_NewBooleanObj(0)); } else { - Tcl_SetBooleanObj(resultPtr, (access(fileName, mode) != -1)); + Tcl_SetBooleanObj(resultPtr, (TclAccess(fileName, mode) != -1)); } goto done; case FILE_WRITABLE: @@ -1015,7 +1015,7 @@ checkAccess: goto not3Args; } - if (stat(fileName, &statBuf) == -1) { + if (TclStat(fileName, &statBuf) == -1) { goto badStat; } Tcl_SetLongObj(resultPtr, (long) statBuf.st_atime); @@ -1056,7 +1056,7 @@ checkAccess: errorString = "mtime name"; goto not3Args; } - if (stat(fileName, &statBuf) == -1) { + if (TclStat(fileName, &statBuf) == -1) { goto badStat; } Tcl_SetLongObj(resultPtr, (long) statBuf.st_mtime); @@ -1107,7 +1107,7 @@ checkAccess: errorString = "size name"; goto not3Args; } - if (stat(fileName, &statBuf) == -1) { + if (TclStat(fileName, &statBuf) == -1) { goto badStat; } Tcl_SetLongObj(resultPtr, (long) statBuf.st_size); @@ -1119,7 +1119,7 @@ checkAccess: goto done; } - if (stat(fileName, &statBuf) == -1) { + if (TclStat(fileName, &statBuf) == -1) { badStat: Tcl_AppendStringsToObj(resultPtr, "couldn't stat \"", Tcl_GetStringFromObj(objv[2], &length), @@ -1143,7 +1143,7 @@ badStat: goto done; } - if (stat(fileName, &statBuf) == -1) { + if (TclStat(fileName, &statBuf) == -1) { Tcl_SetBooleanObj(resultPtr, 0); goto done; } |