CfsFileDescriptor touch:time: Not working in 8.0.2

[mpeters]

When I run the following code in Windows It returns an error
It worked in 7.0

| date array stream time fname |
fname := 'c:\test1'.
stream := CfsWriteFileStream openEmpty: fname.
stream nextPutAll: 'test1'.
stream close.
time := Time new
hours: 16
minutes: 30
seconds: 0.
date := Date new
year: 2005
month: 1
day: 2.
array := Array with: date with: time.
CfsFileDescriptor touch: fname time: array.

I tracked it down to this method in CfsFileDescriptor class
platformFunctionUtime: path times: mode

<c: int32 Utime safepointer safepointer>
^self primitiveFailed

I tried replacing esvm40.dll with the version from va70 and reran the code and it worked ( I know this isn't a solution).
Must be something wrong with the primitive.

[koschate]

When I run the following code in Windows It returns an error

What error do you get? What version of Windows, what service pack? I tried it on my system (Windows XP, SP3), and, while I don't get an error, it also doesn't change the timestamp of the file.

On the other hand, if I try it with 7.5.2, it makes my image crash. On the whole, I'd have to say I prefer the 8.0.2 behavior!

[mpeters]

the method returns a CfsError EIO (5) I/O error [0]
I've tried Windows XP SP3 and Windows 2000 SP4 and get the same error.
If you do a touch: without the time: parameter, it does set the file timestamp to the current time.

[koschate]

If you do a touch: without the time: parameter, it does set the file timestamp to the current time.

I get the same behavior. I did a little bit of playing and got the touch:time: working. Try this:

Code: Select all

CfsFileDescriptor class>>#tm: aDateAndTimeArray
   "Construct a utimbuf from @aDateAndTimeArray."

   | time |

   ^(OSUInt32 new: 4)
      at: 0 put: (time := (CfsOSTmPtr fromDateAndTime: aDateAndTimeArray) mktime);
      at: 2 put: time;
      yourself


[mpeters]

It worked, thanks for the quick response.

[koschate]

Glad to help. I'm sure we'll see an official fix in VA 8.0.3, assuming John hasn't fried his brains on tequila in Cancun.