workbench/libs/iffparse/propchunks.c

   1 /*
   2     Copyright © 1995-2016, 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, PropChunks,
  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, 20, IFFParse)
  24
  25 /*  FUNCTION
  26         Does multiple PropChunk() calls on the supplied list.
  27         An easy way to install several prop chunk handlers
  28
  29
  30     INPUTS
  31         iff       - pointer to an IFFHandle struct.
  32         propArray  - pointer to an array of longword chunk types and identifiers.
  33         numPairs  - number of type/id pairs in the propArray.
  34
  35
  36     RESULT
  37         error      - 0 if successful, IFFERR_#? otherwise.
  38
  39
  40     NOTES
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47
  48     INTERNALS
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53     LONG count;
  54     LONG err;
  55
  56     DEBUG_PROPCHUNKS(dprintf("PropChunks: iff 0x%lx array 0x%lx num %d\n",
  57                             iff, propArray, numPairs));
  58
  59 #if DEBUG
  60     {
  61     LONG * lptr = propArray;
  62     bug ("PropChunks (iff=%p, [\n", iff);
  63     for (count = 0; count < numPairs; count++)
  64     {
  65         bug ("    {%c%c%c%c,%c%c%c%c}, ",
  66             dmkid(lptr[0]),
  67             dmkid(lptr[1])
  68         );
  69         lptr += 2;
  70     }
  71     bug ("    ])\n");
  72     }
  73 #endif
  74
  75     for (count = 0; count < numPairs; count ++ )
  76     {
  77         if ((err = PropChunk(iff, propArray[0], propArray[1])))
  78             ReturnInt("PropChunks",LONG,err);
  79
  80         propArray += 2;
  81     }
  82
  83     ReturnInt("PropChunks",LONG,0L);
  84     AROS_LIBFUNC_EXIT
  85 } /* PropChunks */