summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorsuresh <suresh>1998-05-20 16:53:03 (GMT)
committersuresh <suresh>1998-05-20 16:53:03 (GMT)
commit6b7c77f618a86f95b65e4aae0332373a102aee62 (patch)
tree5f1ed8dfd84101c28a55279508e491aa12bfa378 /generic
parent258204483c0b1f65d8f040ce63189c31f081fc13 (diff)
downloadtcl-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.c12
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;
}