workbench/libs/iffparse/stopchunk.c

   1 /*
   2     Copyright © 1995-2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "iffparse_intern.h"
   7
   8 /*****************************************************************************
   9
  10     NAME */
  11 #include <proto/iffparse.h>
  12
  13         AROS_LH3(LONG, StopChunk,
  14
  15 /*  SYNOPSIS */
  16         AROS_LHA(struct IFFHandle *, iff, A0),
  17         AROS_LHA(LONG              , type, D0),
  18         AROS_LHA(LONG              , id, D1),
  19
  20 /*  LOCATION */
  21         struct Library *, IFFParseBase, 21, IFFParse)
  22
  23 /*  FUNCTION
  24         Inserts an entry handler for the given type and id, that will cause the parser
  25         to stop when such a chunk is entered.
  26
  27     INPUTS
  28          iff   - Pointer to IFFHandle struct. (does not need to be open).
  29         type  - IFF chunk type declarator for chunk to stop at.
  30         id    -  IFF chunk id identifier for chunk to stop at.
  31
  32     RESULT
  33         error  -  0 if successfull, IFFERR_#? otherwise.
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42         StopChunks(), ParseIFF()
  43
  44     INTERNALS
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49     AROS_LIBBASE_EXT_DECL(struct Library *,IFFParseBase)
  50
  51     DEBUG_STOPCHUNK(dprintf("StopChunk: iff 0x%lx type 0x%08lx (%c%c%c%c) id 0x%08lx (%c%c%c%c)\n",
  52                             iff, type, dmkid(type), id, dmkid(id)));
  53
  54     /* Install an EntryHandler */
  55     return
  56     (
  57         EntryHandler
  58         (
  59             iff,
  60             type,
  61             id,
  62             IFFSLI_TOP,
  63             &(IPB(IFFParseBase)->stophook),
  64             iff
  65         )
  66     );
  67
  68     AROS_LIBFUNC_EXIT
  69 } /* StopChunk */