UnixOperatingSystem.st
changeset 8248 d5d8da879eee
parent 7889 5e96f8cdf9aa
child 8279 e16a20ee2c6d
--- a/UnixOperatingSystem.st	Sat Mar 20 16:24:25 2004 +0100
+++ b/UnixOperatingSystem.st	Sat Mar 20 16:26:02 2004 +0100
@@ -4602,9 +4602,9 @@
 %}.
      mode notNil ifTrue:[
         "/ now done lazy in FileStatusInfo
-        "/ atime := AbsoluteTime fromOSTime:(aOStime * 1000).
-        "/ mtime := AbsoluteTime fromOSTime:(mOStime * 1000).
-        "/ ctime := AbsoluteTime fromOSTime:(cOStime * 1000).
+        "/ atime := Timestamp fromOSTime:(aOStime * 1000).
+        "/ mtime := Timestamp fromOSTime:(mOStime * 1000).
+        "/ ctime := Timestamp fromOSTime:(cOStime * 1000).
 
         ^ FileStatusInfo
                     type:type 
@@ -4901,7 +4901,7 @@
      the info is cached for some time (5 minutes)"
 
     CacheMountPointsTimeStamp notNil ifTrue:[
-        AbsoluteTime now > (CacheMountPointsTimeStamp addSeconds:5*60) ifTrue:[
+        Timestamp now > (CacheMountPointsTimeStamp addSeconds:5*60) ifTrue:[
             CacheMountPointsTimeStamp := CachedMountPoints := nil.
         ].
     ].
@@ -4909,7 +4909,7 @@
 
     '/proc/mounts' asFilename exists ifTrue:[
         CachedMountPoints := self mountPointsFromProcFS.
-        CacheMountPointsTimeStamp := AbsoluteTime now.
+        CacheMountPointsTimeStamp := Timestamp now.
         ^ CachedMountPoints
     ].
 
@@ -5088,7 +5088,7 @@
      For nonexistent files, nil is returned."
 
     "could be implemented as:
-	(self infoOf:aPathName) accessed 
+        (self infoOf:aPathName) accessed 
     "
     |osSeconds i|
 %{
@@ -5098,21 +5098,21 @@
 
     if (__isString(aPathName)) {
 # ifdef TRACE_STAT_CALLS
-	printf("stat on '%s' for timeOfLastAccess\n", __stringVal(aPathName));
-# endif
-	__BEGIN_INTERRUPTABLE__
-	do {
-	    ret = stat((char *) __stringVal(aPathName), &buf);
-	} while (ret < 0 && errno == EINTR);
-	__END_INTERRUPTABLE__
-	if (ret < 0) {
-	    @global(LastErrorNumber) = __MKSMALLINT(errno);
-	    RETURN (nil);
-	}
-	osSeconds = __MKUINT(buf.st_atime);
-    }
-%}.
-    osSeconds notNil ifTrue:[^ AbsoluteTime fromOSTime:(osSeconds * 1000)].
+        printf("stat on '%s' for timeOfLastAccess\n", __stringVal(aPathName));
+# endif
+        __BEGIN_INTERRUPTABLE__
+        do {
+            ret = stat((char *) __stringVal(aPathName), &buf);
+        } while (ret < 0 && errno == EINTR);
+        __END_INTERRUPTABLE__
+        if (ret < 0) {
+            @global(LastErrorNumber) = __MKSMALLINT(errno);
+            RETURN (nil);
+        }
+        osSeconds = __MKUINT(buf.st_atime);
+    }
+%}.
+    osSeconds notNil ifTrue:[^ Timestamp fromOSTime:(osSeconds * 1000)].
 
     i := self infoOf:aPathName.
     i notNil ifTrue:[^ i accessed].
@@ -5128,7 +5128,7 @@
      For nonexistent files, nil is returned."
 
     "could be implemented as:
-	(self infoOf:aPathName) modified
+        (self infoOf:aPathName) modified
     "
 
     |osSeconds i|
@@ -5139,21 +5139,21 @@
 
     if (__isString(aPathName)) {
 # ifdef TRACE_STAT_CALLS
-	printf("stat on '%s' for timeOfLastChange\n", __stringVal(aPathName));
-# endif
-	__BEGIN_INTERRUPTABLE__
-	do {
-	    ret = stat((char *) __stringVal(aPathName), &buf);
-	} while (ret < 0 && errno == EINTR);
-	__END_INTERRUPTABLE__
-	if (ret < 0) {
-	    @global(LastErrorNumber) = __MKSMALLINT(errno);
-	    RETURN ( nil );
-	}
-	osSeconds = __MKUINT(buf.st_mtime);
-    }
-%}.
-    osSeconds notNil ifTrue:[^ AbsoluteTime fromOSTime:(osSeconds * 1000)].
+        printf("stat on '%s' for timeOfLastChange\n", __stringVal(aPathName));
+# endif
+        __BEGIN_INTERRUPTABLE__
+        do {
+            ret = stat((char *) __stringVal(aPathName), &buf);
+        } while (ret < 0 && errno == EINTR);
+        __END_INTERRUPTABLE__
+        if (ret < 0) {
+            @global(LastErrorNumber) = __MKSMALLINT(errno);
+            RETURN ( nil );
+        }
+        osSeconds = __MKUINT(buf.st_mtime);
+    }
+%}.
+    osSeconds notNil ifTrue:[^ Timestamp fromOSTime:(osSeconds * 1000)].
 
     i := self infoOf:aPathName.
     i notNil ifTrue:[^ i modified].
@@ -8351,7 +8351,7 @@
 
      Dont use this method in application code since it is an internal (private)
      interface. For compatibility with ST-80, use Time>>millisecondClockValue.
-     or use instances of Time, Date or AbsoluteTime to work with.
+     or use instances of Time, Date or Timestamp to work with.
     "
 
     |time seconds millis|
@@ -8380,7 +8380,7 @@
 
      Dont use this method in application code since it is an internal (private)
      interface. For compatibility with ST-80, use Time>>millisecondClockValue.
-     or use instances of Time, Date or AbsoluteTime to work with.
+     or use instances of Time, Date or Timestamp to work with.
     "
 
 %{  /* NOCONTEXT */
@@ -10460,8 +10460,8 @@
     "return accessed"
 
     accessed isInteger ifTrue:[
-	"/ lazy time conversion
-	accessed := AbsoluteTime fromOSTime:(accessed * 1000).
+        "/ lazy time conversion
+        accessed := Timestamp fromOSTime:(accessed * 1000).
     ].
     ^ accessed
 !
@@ -10519,8 +10519,8 @@
     "return modified"
 
     modified isInteger ifTrue:[
-	"/ lazy time conversion
-	modified := AbsoluteTime fromOSTime:(modified * 1000).
+        "/ lazy time conversion
+        modified := Timestamp fromOSTime:(modified * 1000).
     ].
     ^ modified
 !
@@ -10564,8 +10564,8 @@
 
 statusChangeTime
     statusChanged isInteger ifTrue:[
-	"/ lazy time conversion
-	statusChanged := AbsoluteTime fromOSTime:(statusChanged * 1000).
+        "/ lazy time conversion
+        statusChanged := Timestamp fromOSTime:(statusChanged * 1000).
     ].
     ^ statusChanged
 !
@@ -12336,7 +12336,7 @@
 !UnixOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.205 2004-02-06 22:33:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.206 2004-03-20 15:26:02 stefan Exp $'
 ! !
 
 UnixOperatingSystem initialize!