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",
  38                     (unsigned)fib->fib_Protection);
  39             }
  40             else
  41             {
  42                 printf("ExamineFH() failed, ioerr = %d\n", (int)IoErr());
  43                 result = RETURN_FAIL;
  44             }
  45
  46             if (strcasecmp(fib->fib_FileName, FilePart(argv[1])) != 0)
  47             {
  48                 printf("File name from FIB does not match"
  49                     " file name from argument\n");
  50                 result = RETURN_ERROR;
  51             }
  52
  53             FreeDosObject(DOS_FIB, fib);
  54         }
  55         else
  56         {
  57             printf("couldn't allocate fileinfoblock\n");
  58             result = RETURN_FAIL;
  59         }
  60
  61         Close(fh);
  62     }
  63     else
  64     {
  65         printf("Couldn't open file\n");
  66         result = RETURN_FAIL;
  67     }
  68
  69     return result;
  70 }