test/misc/iffparsewrite.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7 #include <proto/dos.h>
   8 #include <proto/iffparse.h>
   9 #include <dos/dos.h>
  10 #include <libraries/iffparse.h>
  11 #include <datatypes/pictureclass.h>
  12
  13 #include <stdio.h>
  14 #include <string.h>
  15 #include <stdlib.h>
  16
  17 struct Library *IFFParseBase;
  18
  19 static struct IFFHandle *iff;
  20 static LONG err;
  21
  22 int main(void)
  23 {
  24     IFFParseBase = OpenLibrary("iffparse.library",0);
  25     if (!IFFParseBase)
  26     {
  27         printf("Could not open iffparse.library!");
  28         exit(0);
  29     }
  30
  31     printf("Trying to write a test file called \"ram:test.iff\" ...\n\n");
  32
  33     if ((iff = AllocIFF()))
  34     {
  35         if ((iff->iff_Stream = (IPTR) Open("ram:test.iff", MODE_NEWFILE)))
  36         {
  37             InitIFFasDOS(iff);
  38
  39             err = OpenIFF(iff, IFFF_WRITE);
  40             if (err == 0)
  41             {
  42                 err = PushChunk(iff, ID_ILBM, ID_FORM, IFFSIZE_UNKNOWN);
  43                 if (err == 0)
  44                 {
  45                     err = PushChunk(iff, ID_ILBM, MAKE_ID('A', 'B', 'C', 'D'), IFFSIZE_UNKNOWN);
  46                     if (err == 0)
  47                     {
  48                         char *buffer = "1234567890";
  49
  50                         err = WriteChunkBytes(iff, buffer, strlen(buffer));
  51                         if (err == strlen(buffer))
  52                         {
  53                             printf("********* No errors during writing :-) **************\n");
  54
  55                         } else printf("WriteChunkBytes(iff, buffer, strlen(buffer)) returned %ld\n",(long)err);
  56
  57                         PopChunk(iff);
  58
  59                     } else printf("PushChunk(iff, ID_ILBM, MAKE_ID('A', 'B', 'C', 'D'), IFFSIZE_UNKNOWN) returned error %ld\n",(long)err);
  60
  61                     PopChunk(iff);
  62
  63                 } else printf("PushChunk(iff, ID_ILBM, ID_FORM, IFFSIZE) returned error %ld\n",(long)err);
  64
  65                 CloseIFF(iff);
  66
  67             } else printf("OpenIFF returned error %ld\n",(long)err);
  68
  69             Close((BPTR) iff->iff_Stream);
  70
  71         } else printf("Could not open ram:test.iff for write!\n");
  72
  73         FreeIFF(iff);
  74
  75     } else printf("AllocIFF failed!\n");
  76
  77     CloseLibrary(IFFParseBase);
  78
  79     return 0;
  80 }