23 lines
394 B
Text
23 lines
394 B
Text
|
MODULE SetModTime EXPORTS Main;
|
||
|
|
|
||
|
|
IMPORT Date, FS;
|
||
|
|
|
||
|
|
<*FATAL ANY*>
|
||
|
|
|
||
|
|
VAR
|
||
|
|
date: Date.T;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
(* Set the modification time to January 1st, 1999 *)
|
||
|
|
date.year := 1999;
|
||
|
|
date.month := Date.Month.Jan;
|
||
|
|
date.day := 1;
|
||
|
|
date.hour := 0;
|
||
|
|
date.minute := 0;
|
||
|
|
date.second := 0;
|
||
|
|
date.offset := 21601;
|
||
|
|
date.zone := "CST";
|
||
|
|
|
||
|
|
FS.SetModificationTime("test.txt", Date.ToTime(date));
|
||
|
|
END SetModTime.
|