From 6b7c77f618a86f95b65e4aae0332373a102aee62 Mon Sep 17 00:00:00 2001
From: suresh <suresh>
Date: Wed, 20 May 1998 16:53:03 +0000
Subject: Changed call ref's of 'stat(...)' to 'TclStat(...)' & 'access(...)'
 to   'TclAccess(...)'.

---
 generic/tclCmdAH.c | 12 ++++++------
 1 file 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;
     }
-- 
cgit v0.12