workbench/libs/iffparse/storelocalitem.c

   1 /*
   2     Copyright © 1995-2007, 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_LH3(LONG, StoreLocalItem,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(struct IFFHandle        *, iff, A0),
  19         AROS_LHA(struct LocalContextItem *, localItem, A1),
  20         AROS_LHA(LONG                     , position, D0),
  21
  22 /*  LOCATION */
  23         struct Library *, IFFParseBase, 36, IFFParse)
  24
  25 /*  FUNCTION
  26         Stores the given local context item in a context node.
  27         Which context node this is depends on the value of the position
  28         argument:
  29             IFFSLI_ROOT - insert into the default contextnode.
  30             IFFSLI_PROP  -  insert into the node returned by FindPropContext().
  31             IFFSLI_TOP  -  insert item into the current contextnode.
  32
  33
  34     INPUTS
  35         iff        - pointer to IFFHandle struct.
  36         localItem  -  pointer to local context item.
  37         position  -  IFFSLI_ROOT, IFFSLI_PROP or IFFSLI_TOP.
  38
  39     RESULT
  40         error     -  0 if succesfull, IFFERR_#? otherwise.
  41
  42     NOTES
  43
  44     EXAMPLE
  45
  46     BUGS
  47
  48     SEE ALSO
  49         StoreItemInContext(), FindLocalItem(), EntryHandler(), ExitHandler()
  50
  51     INTERNALS
  52
  53 *****************************************************************************/
  54 {
  55     AROS_LIBFUNC_INIT
  56
  57     LONG err = 0;
  58     struct ContextNode *cn;
  59
  60 #if DEBUG
  61     bug ("StoreLocalItem (iff=%p, localItem=%p, position=%d)\n",
  62         iff, localItem, position
  63     );
  64 #endif
  65
  66     switch (position)
  67     {
  68         case IFFSLI_ROOT:
  69             /* Store in default context-node */
  70             StoreItemInContext
  71             (
  72                 iff,
  73                 localItem,
  74                 RootChunk(iff)
  75             );
  76             break;
  77
  78         case IFFSLI_TOP:
  79             /* Store in top context-node */
  80             StoreItemInContext
  81             (
  82                 iff,
  83                 localItem,
  84                 TopChunk(iff)
  85             );
  86             break;
  87
  88         case IFFSLI_PROP:
  89             /* Store in top FORM or LIST chunk */
  90
  91             cn = FindPropContext(iff);
  92
  93             if (!cn)
  94                 err = IFFERR_NOSCOPE;
  95             else
  96             {
  97                 StoreItemInContext
  98                 (
  99                     iff,
 100                     localItem,
 101                     cn
 102                     );
 103             }
 104             break;
 105
 106
 107     }    /* End of switch */
 108
 109     ReturnInt ("StoreLocalItem",LONG,err);
 110     AROS_LIBFUNC_EXIT
 111 } /* StoreLocalItem */