--- 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!