test/dos/examinefh.c

   1 /*
   2     Copyright © 1995-2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <dos/dos.h>
   7 #include <proto/dos.h>
   8 #include <stdio.h>
   9 #include <string.h>
  10
  11 int main(int argc, char **argv)
  12 {
  13     BPTR fh;
  14     LONG result = RETURN_OK;
  15
  16     if (argc < 2)
  17     {
  18         printf("Usage: %s <file name>\n", argv[0]);
  19         return RETURN_FAIL;
  20     }
  21
  22     fh = Open(argv[1], MODE_OLDFILE);
  23
  24     if (fh != BNULL)
  25     {
  26         struct FileInfoBlock *fib;
  27
  28         printf("IsInteractive: %d\n", (int)IsInteractive(fh));
  29
  30         fib = AllocDosObject(DOS_FIB, NULL);
  31         if (fib != NULL)
  32         {
  33             if (ExamineFH(fh, fib))
  34             {
  35                 printf("Got FIB:\n");
  36                 printf("Filename   = %s\n"    , fib->fib_FileName);
  37                 printf("Protection = 0x%08X\n", (unsigned)fib->fib_Protection);
  38             }
  39             else
  40             {
  41                 printf("ExamineFH() failed, ioerr = %d\n", (int)IoErr());
  42                 result = RETURN_FAIL;
  43             }
  44
  45             if (strcasecmp(fib->fib_FileName, FilePart(argv[1])) != 0)
  46             {
  47                 printf("File name from FIB does not match"
  48                     " file name from argument\n");
  49                 result = RETURN_ERROR;
  50             }
  51
  52             FreeDosObject(DOS_FIB, fib);
  53         }
  54         else
  55         {
  56             printf("couldn't allocate fileinfoblock\n");
  57             result = RETURN_FAIL;
  58         }
  59
  60         Close(fh);
  61     }
  62     else
  63     {
  64         printf("Couldn't open file\n");
  65         result = RETURN_FAIL;
  66     }
  67
  68     return result;
  69 }