/*
    (C) 1995-96 AROS - The Amiga Replacement OS
    $Id: findpropcontext.c,v 1.1 1997/02/03 16:44:23 digulla Exp $

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

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

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

	AROS_LH1(struct ContextNode *, FindPropContext,

/*  SYNOPSIS */
	AROS_LHA(struct IFFHandle *, iff, A0),

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

/*  FUNCTION
	Finds the proper context in which to store a property.
	If we have installed a property entry handler via PropChunk()
	and such a property chunk (for example id is "CMAP" and type is "ILBM"
	inside a form, then the storedproperty will be stored in the enclosing
	FORM chink. If the chunk was inside a PROP chunk inside a LIST, then
	the storedproperty would be installed in the LIST context.

    INPUTS
	iff - pointer to IFFHandle struct.

    RESULT
	cn  -  pointer to contextnode where the property might be installed, or
	      NULL if no such context exists.

    NOTES
	This function is most for internal use.

    EXAMPLE

    BUGS

    SEE ALSO
	ParentChunk(), CurrentChunk(), StoreItemInContext(), PropChunk()

    INTERNALS

    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 ContextNode	 *node;

    node = TopChunk(iff);

    /* Start at the parent of the top node */
    while ((node = ParentChunk(node) ))
    {
	/* If this node is a FORM or a LIST, then we have acorrect property */
	if
	(
	    (node->cn_ID == ID_FORM)
	&&
	    (node->cn_ID == ID_LIST)
	)
	    return(node);

    }

    /* No proper context found */
    return (NULL);


    AROS_LIBFUNC_EXIT
} /* FindPropContext */