workbench/libs/iffparse/collectionchunks.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define DEBUG 0
   7 #include <aros/debug.h>
   8 #include "iffparse_intern.h"
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <proto/iffparse.h>
  14
  15         AROS_LH3(LONG, CollectionChunks,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(struct IFFHandle *, iff, A0),
  19         AROS_LHA(const LONG       *, propArray, A1),
  20         AROS_LHA(LONG              , numPairs, D0),
  21
  22 /*  LOCATION */
  23         struct Library *, IFFParseBase, 24, IFFParse)
  24
  25 /*  FUNCTION
  26         Does multiple CollectionChunk() calls on the supplied list.
  27         An easy way to install several collction chunks.
  28
  29     INPUTS
  30         iff       - pointer to an IFFHandle struct.
  31         propArray  - pointer to an array of longword chunk types and identifiers.
  32         numPairs  - number of type/id pairs in the propArray.
  33
  34     RESULT
  35         error      - 0 if successfull, IFFERR_#? otherwise.
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44         CollectionChunk()
  45
  46     INTERNALS
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     LONG count;
  53     LONG err;
  54
  55     DEBUG_COLLECTIONCHUNKS(dprintf("CollectionChunks: iff 0x%lx array 0x%lx num %d\n",
  56                             iff, propArray, numPairs));
  57
  58 #if DEBUG
  59     {
  60     LONG * lptr = propArray;
  61     bug ("CollectionChunks (iff=%p, [\n", iff);
  62     for (count = 0; count < numPairs; count++)
  63     {
  64         bug ("    {%c%c%c%c,%c%c%c%c}, ",
  65             dmkid(lptr[0]),
  66             dmkid(lptr[1])
  67         );
  68         lptr += 2;
  69     }
  70     bug ("    ])\n");
  71     }
  72 #endif
  73
  74     for (count = 0; count < numPairs; count ++ )
  75     {
  76         if ((err = CollectionChunk(iff, propArray[0], propArray[1])))
  77             return (err);
  78         propArray += 2;
  79     }
  80
  81     ReturnInt("CollectionChunks",LONG,0L);
  82     AROS_LIBFUNC_EXIT
  83 } /* CollectionChunks */