workbench/libs/iffparse/freeiff.c

   1 /*
   2     Copyright © 1995-2007, 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     struct IntContextNode   * cn;
  43     struct LocalContextItem * node,
  44                             * nextnode;
  45
  46     if (iff != NULL)
  47     {
  48         /*
  49             We should free the LCIs of the default context-node
  50             ( CollectionItems and such )
  51         */
  52         cn = (struct IntContextNode*)RootChunk (iff);
  53
  54         node = (struct LocalContextItem*)cn->cn_LCIList.mlh_Head;
  55
  56         while ((nextnode = (struct LocalContextItem*)node->lci_Node.mln_Succ))
  57         {
  58             PurgeLCI (node, IPB(IFFParseBase));
  59
  60             node = nextnode;
  61         }
  62
  63         FreeMem (iff, sizeof (struct IntIFFHandle));
  64     }
  65
  66     AROS_LIBFUNC_EXIT
  67 } /* FreeIFF */