test/dos/setfilesize.c

   1 /*
   2     Copyright © 1995-2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <exec/types.h>
   7
   8 #include <proto/exec.h>
   9 #include <proto/dos.h>
  10
  11 #include <stdio.h>
  12 #include <stdlib.h>
  13
  14 int main(int argc, char **argv)
  15 {
  16     BPTR fh = BNULL;
  17     LONG result = RETURN_OK, error = 0, size;
  18     struct FileInfoBlock *fib;
  19
  20     fib = AllocDosObject(DOS_FIB, NULL);
  21     if (fib == NULL)
  22     {
  23         error = IoErr();
  24         result = RETURN_FAIL;
  25     }
  26
  27     if (error == 0 && argc != 3)
  28     {
  29         printf("Usage: %s filename newsize\n", argv[0]);
  30         error = ERROR_REQUIRED_ARG_MISSING;
  31         result = RETURN_WARN;
  32     }
  33
  34     if (error == 0)
  35     {
  36         fh = Open(argv[1], MODE_READWRITE);
  37         if (fh == BNULL)
  38         {
  39             error = IoErr();
  40             result = RETURN_ERROR;
  41         }
  42     }
  43
  44     if (error == 0)
  45     {
  46         size = atol(argv[2]);
  47         if (SetFileSize(fh, atol(argv[2]), OFFSET_BEGINNING) != size)
  48         {
  49             error = IoErr();
  50             result = RETURN_ERROR;
  51         }
  52     }
  53
  54     if (error == 0)
  55     {
  56         if (!ExamineFH(fh, fib))
  57         {
  58             error = IoErr();
  59             result = RETURN_ERROR;
  60         }
  61     }
  62
  63     if (error == 0)
  64     {
  65         Printf("New size is %ld bytes\n", fib->fib_Size);
  66         if (fib->fib_Size != size)
  67         {
  68             if (fib->fib_Size > size)
  69                 error = ERROR_OBJECT_TOO_LARGE;
  70             else
  71                 error = ERROR_UNKNOWN;
  72             result = RETURN_ERROR;
  73         }
  74     }
  75
  76     if (fib != NULL)
  77         FreeDosObject(DOS_FIB, fib);
  78     if (fh != BNULL)
  79         Close(fh);
  80
  81     PrintFault(error, "SetFileSize");
  82     return result;
  83 }