test/dos/setfiledate.c

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