workbench/libs/iffparse/stoponexit.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, StopOnExit,
  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, 25, IFFParse)
  24
  25 /*  FUNCTION
  26         Inserts an exit handler for the given type and id, that will cause the parser
  27         to stop when such a chunk is left.
  28
  29     INPUTS
  30          iff   - Pointer to IFFHandle struct. (does not need to be open).
  31         type  - IFF chunk type declarator for chunk to stop at.
  32         id    -  IFF chunk id identifier for chunk to stop at.
  33
  34     RESULT
  35         error  -  0 if successful, IFFERR_#? otherwise.
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44         ParseIFF()
  45
  46     INTERNALS
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     DEBUG_STOPONEXIT(dprintf("StopOnExit: iff 0x%lx type 0x%08lx (%c%c%c%c) id 0x%08lx (%c%c%c%c)\n",
  53                             iff, type, dmkid(type), id, dmkid(id)));
  54
  55 #if DEBUG
  56     bug ("StopOnExit (iff=%p, type=%c%c%c%c, id=%c%c%c%c)\n",
  57         iff,
  58         dmkid(type),
  59         dmkid(id)
  60     );
  61 #endif
  62
  63     /* Install an ExitHandler */
  64     return
  65     (
  66         ExitHandler
  67         (
  68             iff,
  69             type,
  70             id,
  71             IFFSLI_TOP,
  72             &(IPB(IFFParseBase)->exitcontexthook),
  73             iff
  74         )
  75     );
  76
  77     AROS_LIBFUNC_EXIT
  78 } /* StopOnExit */
  79
  80
  81 /**********************/
  82 /* Exit entry-handler */
  83 /**********************/
  84
  85 LONG ExitContextFunc
  86 (
  87     struct Hook *hook,
  88      APTR         obj,
  89      APTR         p
  90 )
  91 {
  92     return (IFFERR_EOC);
  93 }