workbench/libs/iffparse/findpropcontext.c

   1 /*
   2     Copyright © 1995-2004, 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_LH1(struct ContextNode *, FindPropContext,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(struct IFFHandle *, iff, A0),
  19
  20 /*  LOCATION */
  21         struct Library *, IFFParseBase, 28, IFFParse)
  22
  23 /*  FUNCTION
  24         Finds the proper context in which to store a property.
  25         If we have installed a property entry handler via PropChunk()
  26         and such a property chunk (for example id is "CMAP" and type is "ILBM"
  27         inside a form, then the storedproperty will be stored in the enclosing
  28         FORM chink. If the chunk was inside a PROP chunk inside a LIST, then
  29         the storedproperty would be installed in the LIST context.
  30
  31     INPUTS
  32         iff - pointer to IFFHandle struct.
  33
  34     RESULT
  35         cn  -  pointer to contextnode where the property might be installed, or
  36               NULL if no such context exists.
  37
  38     NOTES
  39         This function is most for internal use.
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46         ParentChunk(), CurrentChunk(), StoreItemInContext(), PropChunk()
  47
  48     INTERNALS
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53     AROS_LIBBASE_EXT_DECL(struct Library *,IFFParseBase)
  54
  55     struct ContextNode   *node;
  56
  57     D(bug ("FindPropContext (iff=%p)\n", iff));
  58
  59     node = TopChunk(iff);
  60
  61     /* Start at the parent of the top node */
  62     do
  63     {
  64         DB2(bug("   node=%p (%c%c%c%c)\n",
  65             node,
  66             dmkid(node->cn_ID)
  67         ));
  68
  69         /* If this node is a FORM or a LIST, then we have acorrect property */
  70         if ( (node->cn_ID == ID_FORM) || (node->cn_ID == ID_LIST) )
  71             ReturnPtr ("FindPropContext",struct ContextNode *,node);
  72
  73     }
  74     while ((node = ParentChunk(node) ));
  75
  76     /* No proper context found */
  77     ReturnPtr ("FindPropContext",struct ContextNode *,NULL);
  78     AROS_LIBFUNC_EXIT
  79 } /* FindPropContext */