workbench/libs/iffparse/propchunk.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, PropChunk,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(struct IFFHandle *, iff, A0),
  19         AROS_LHA(LONG              , type, D0),
  20         AROS_LHA(LONG              , id, D1),
  21
  22 /*  LOCATION */
  23         struct Library *, IFFParseBase, 19, IFFParse)
  24
  25 /*  FUNCTION
  26         Installs an entry handler for chunks with the given type and id.
  27         When such  chunk is encoutered, the entry handler will insert
  28         a StoredProperty in the proper context.
  29         A stored property chunk returned by FindProp() will be the valid property
  30         for the current context.
  31
  32     INPUTS
  33         iff    - pointer to IFFHandle struct.
  34         type  -  type code for chunk to declare.
  35         id    -  identifier for chunk to declare.
  36
  37     RESULT
  38         error  - 0 if successful, IFFERR_#? otherwise.
  39
  40     NOTES
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47         PropChunks(), FindProp(), CollectionChunk()
  48
  49     INTERNALS
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     DEBUG_PROPCHUNK(dprintf("PropChunk: iff 0x%lx type 0x%08lx (%c%c%c%c) id 0x%08lx (%c%c%c%c)\n",
  56                             iff, type, dmkid(type), id, dmkid(id)));
  57
  58     ReturnInt
  59     (
  60         "PropChunk",
  61         LONG,
  62         EntryHandler
  63         (
  64             iff,
  65             type,
  66             id,
  67             IFFSLI_TOP,
  68             &(IPB(IFFParseBase)->prophook),
  69             iff
  70         )
  71     );
  72
  73     AROS_LIBFUNC_EXIT
  74 } /* PropChunk */