workbench/libs/iffparse/freeiff.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_LH1(void, FreeIFF,
  14
  15 /*  SYNOPSIS */
  16         AROS_LHA(struct IFFHandle *, iff, A0),
  17
  18 /*  LOCATION */
  19         struct Library *, IFFParseBase, 9, IFFParse)
  20
  21 /*  FUNCTION
  22         Frees an IFFHandle struct previously allocated by AllocIFF.
  23
  24     INPUTS
  25         iff - pointer to an IFFHandle struct.
  26     RESULT
  27
  28     NOTES
  29
  30     EXAMPLE
  31
  32     BUGS
  33
  34     SEE ALSO
  35         AllocIFF(), CloseIFF()
  36
  37     INTERNALS
  38
  39 *****************************************************************************/
  40 {
  41     AROS_LIBFUNC_INIT
  42     AROS_LIBBASE_EXT_DECL(struct Library *,IFFParseBase)
  43     struct IntContextNode   * cn;
  44     struct LocalContextItem * node,
  45                             * nextnode;
  46
  47     if (iff != NULL)
  48     {
  49         /*
  50             We should free the LCIs of the default context-node
  51             ( CollectionItems and such )
  52         */
  53         cn = (struct IntContextNode*)RootChunk (iff);
  54
  55         node = (struct LocalContextItem*)cn->cn_LCIList.mlh_Head;
  56
  57         while ((nextnode = (struct LocalContextItem*)node->lci_Node.mln_Succ))
  58         {
  59             PurgeLCI (node, IPB(IFFParseBase));
  60
  61             node = nextnode;
  62         }
  63
  64         FreeMem (iff, sizeof (struct IntIFFHandle));
  65     }
  66
  67     AROS_LIBFUNC_EXIT
  68 } /* FreeIFF */