test/dos/setfiledate.c

   1 #include <dos/dos.h>
   2 #include <proto/dos.h>
   3 #include <dos/datetime.h>
   4
   5 int main(void)
   6 {
   7     struct DateTime curr;
   8     char day[LEN_DATSTRING];
   9     char time[LEN_DATSTRING];
  10     char date[LEN_DATSTRING];
  11     struct DateStamp stamp;
  12
  13     curr.dat_Format  = FORMAT_DOS;
  14     curr.dat_Flags   = 0;
  15     curr.dat_StrDay  = day;
  16     curr.dat_StrDate = date;
  17     curr.dat_StrTime = time;
  18
  19     DateStamp(&curr.dat_Stamp);
  20     DateToStr(&curr);
  21     Printf("Current time: %s, %s, %s\n", day, date, time);
  22
  23     BPTR fh = Open("__TEST__", MODE_NEWFILE);
  24
  25     if (fh != BNULL)
  26     {
  27         struct FileInfoBlock *fib = AllocDosObject(DOS_FIB, NULL);
  28
  29         if (fib != NULL)
  30         {
  31             if (ExamineFH(fh, fib))
  32             {
  33                 curr.dat_Stamp = fib->fib_Date;
  34                 DateToStr(&curr);
  35                 Printf("File modification time: %s, %s, %s\n", day, date, time);
  36             }
  37             else
  38                 PrintFault(IoErr(), "Examine failed");
  39
  40             Printf("Waiting 5 seconds\n");
  41             Delay(5*50);
  42
  43             DateStamp(&stamp);
  44
  45             Printf("Calling SetFileDate\n");
  46             if(SetFileDate("__TEST__", &stamp)) {
  47                 if (ExamineFH(fh, fib))
  48                 {
  49                     curr.dat_Stamp = fib->fib_Date;
  50                     DateToStr(&curr);
  51                     Printf("New file modification time: %s, %s, %s\n", day, date, time);
  52                 }
  53                 else
  54                     PrintFault(IoErr(), "Examine failed");
  55             }
  56             else
  57                 PrintFault(IoErr(), "SetFileDate");
  58
  59             FreeDosObject(DOS_FIB, fib);
  60         }
  61         else
  62             PrintFault(IoErr(), "Couldn't alloc FileInfoBlock");
  63
  64         Close(fh);
  65         DeleteFile("__TEST__");
  66     }
  67     else
  68         PrintFault(IoErr(), "Couldn't create file");
  69
  70     return 0;
  71 }