/*
    (C) 1995-96 AROS - The Amiga Replacement OS
    $Id: allociff.c,v 1.2 1997/02/04 14:09:48 digulla Exp $

    Desc:
    Lang: english
*/
#include "iffparse_intern.h"

/*****************************************************************************

    NAME */
#include <proto/iffparse.h>

	AROS_LH0(struct IFFHandle *, AllocIFF,

/*  SYNOPSIS */
	/* void */

/*  LOCATION */
	struct Library *, IFFParseBase, 5, IFFParse)

/*  FUNCTION
      Allocates an IFFHandle struct.

    INPUTS


    RESULT
	An unitialized IFFHandle structure.

    NOTES
	The default context-node is created in AllocIFF() and persists until
	FreeIFF().

    EXAMPLE

    BUGS

    SEE ALSO
	FreeIFF()

    INTERNALS
	Since the default contextnode persistes from AllocIFF until FreeIFF, it
	is built-in into the internal IFFHandle structure


    HISTORY
  27-11-96    digulla automatically created from
	  iffparse_lib.fd and clib/iffparse_protos.h

*****************************************************************************/
{
    AROS_LIBFUNC_INIT
    AROS_LIBBASE_EXT_DECL(struct Library *,IFFParseBase)

    struct IntIFFHandle *intiff;

    if ( (intiff=(struct IntIFFHandle*)AllocMem (sizeof(struct IntIFFHandle),
	    MEMF_ANY|MEMF_CLEAR)
    ) )
    {

	GetIH(intiff)->iff_Flags = (0L|IFFF_READ);


	/* No need for buffering yet */
	intiff->iff_BufferStartDepth = 0;

	/* Initialize the context-stack list */
	NewList ((struct List*)&(intiff->iff_CNStack));


	/* Initialize the default context node */
	NewList ((struct List*)&(intiff->iff_DefaultCN.cn_LCIList));

	/* And add it to the stack */
	AddHead
	(
	    (struct List*)&(intiff->iff_CNStack),
	    (struct Node*)&(intiff->iff_DefaultCN)
	);

	/* Depth is 0 even if we have a default contextnode */
	GetIH(intiff)->iff_Depth = 0;

    }
    return ((struct IFFHandle*)intiff);

    AROS_LIBFUNC_EXIT
} /* AllocIFF */