workbench/libs/iffparse/prophooks.c

   1 /*
   2     Copyright © 1995-2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Hook funtions needed for PropChunk().
   6 */
   7
   8 #include "iffparse_intern.h"
   9
  10
  11
  12 /****************************/
  13 /* PropLCI Purge func  */
  14 /****************************/
  15
  16 #define IFFParseBase IPB(hook->h_Data)
  17
  18 IPTR PropPurgeFunc
  19 (
  20     struct Hook             * hook,
  21     struct LocalContextItem * lci,
  22     ULONG                     p
  23 )
  24 {
  25     struct StoredProperty *sp;
  26
  27     DEBUG_PROPHOOKS(dprintf("PropPurgeFunc: hook %p lci %p p 0x%lx", hook, lci, p));
  28
  29     /* Get the stored property structure */
  30     sp = (struct StoredProperty*)LocalItemData(lci);
  31
  32     /* Free the chunk buffer */
  33     if (sp->sp_Data) FreeMem(sp->sp_Data, sp->sp_Size);
  34
  35     /* Free the local item itself */
  36     FreeLocalItem(lci);
  37
  38     DEBUG_PROPHOOKS(dprintf("PropPurgeFunc: return NULL\n"));
  39
  40     return 0;
  41 }
  42
  43 /****************************/
  44 /* PropChunk entry-handler  */
  45 /****************************/
  46
  47 struct PF_ResourceInfo
  48 {
  49     struct LocalContextItem *LCI;
  50     APTR                    Buffer;
  51     LONG                    BufferSize;
  52 };
  53
  54 #undef IFFParseBase
  55
  56 VOID PF_FreeResources(struct PF_ResourceInfo *ri,
  57     struct IFFParseBase_intern * IFFParseBase)
  58 {
  59     if (ri->LCI)     FreeLocalItem(ri->LCI);
  60     if (ri->Buffer)  FreeMem(ri->Buffer, ri->BufferSize);
  61
  62     return;
  63 }
  64
  65
  66 #define IFFParseBase IPB(hook->h_Data)
  67
  68 LONG PropFunc
  69 (
  70     struct Hook         * hook,
  71     struct IFFHandle    * iff,
  72     APTR                  p
  73 )
  74 {
  75     struct LocalContextItem *lci;
  76
  77
  78     struct StoredProperty    *sp;
  79     struct ContextNode      *cn;
  80
  81     struct PF_ResourceInfo resinfo = {0}; /* = {0} is important */
  82
  83
  84     LONG   type,
  85           id,
  86           size;
  87
  88     LONG  bytesread,
  89           err;
  90
  91     APTR  buf;
  92
  93     DEBUG_PROPHOOKS(dprintf("PropFunc: hook %p iff %p p %p\n", hook, iff, p));
  94
  95     /* The Chunk that caused us to be invoked is always the top chunk */
  96     cn = TopChunk(iff);
  97
  98     type   = cn->cn_Type;
  99     id    = cn->cn_ID;
 100
 101     /* Allocate new LCI for containig the property */
 102
 103     lci = AllocLocalItem
 104     (
 105         type,
 106         id,
 107         IFFLCI_PROP,
 108         sizeof (struct StoredProperty)
 109     );
 110     if (!lci)
 111     {
 112         DEBUG_PROPHOOKS(dprintf("PropFunc: return IFFERR_NOMEM #1\n"));
 113
 114         return IFFERR_NOMEM;
 115     }
 116
 117     resinfo.LCI = lci;
 118
 119
 120     /* Get userdata (storedproperty) */
 121     sp = (struct StoredProperty*)LocalItemData(lci);
 122
 123
 124     /* Allocate buffer to read chunk into */
 125     if ((size = cn->cn_Size))
 126     {
 127         buf = AllocMem(size, MEMF_ANY);
 128         if (!buf)
 129         {
 130             DEBUG_PROPHOOKS(dprintf("PropFunc: return IFFERR_NOMEM #2\n"));
 131
 132             PF_FreeResources(&resinfo, IFFParseBase);
 133
 134             return (IFFERR_NOMEM);
 135         }
 136     } else buf = NULL;
 137
 138     resinfo.Buffer = buf;
 139     resinfo.BufferSize = size;
 140
 141     sp->sp_Data = buf;
 142     sp->sp_Size = size;
 143
 144     DEBUG_PROPHOOKS(dprintf("PropFunc: ReadChunkBytes(iff %p, buf %p, size %ld)\n", iff, buf, size));
 145
 146     if (buf)
 147     {
 148         /* Read chunk into the buffer */
 149         bytesread = ReadChunkBytes(iff, buf, size);
 150
 151         DEBUG_PROPHOOKS(dprintf("PropFunc: ReadChunkBytes returned %lu\n", bytesread));
 152
 153         /* Success ? */
 154         if (bytesread != size)
 155         {
 156             DEBUG_PROPHOOKS(dprintf("PropFunc: incomplete read! (%ld != %ld)\n", bytesread, size));
 157             PF_FreeResources(&resinfo, IFFParseBase);
 158
 159             /* IFFERR_.. ? */
 160             if (bytesread >= 0)
 161             {
 162                 DEBUG_PROPHOOKS(dprintf("PropFunc: err = IFFERR_MANGLED\n"));
 163                 err = IFFERR_MANGLED;
 164                 /* FIXME: should return err here? */
 165             }
 166         }
 167     }
 168
 169
 170     /* Store the new item IN PROP, so it may be found with FindProp() */
 171     err = StoreLocalItem(iff,lci,IFFSLI_PROP/*IFFSLI_ROOT*/);
 172
 173     if (err)
 174     {
 175         DEBUG_PROPHOOKS(dprintf("PropFunc: return %ld\n", err));
 176
 177         PF_FreeResources(&resinfo, IFFParseBase);
 178
 179         return err;
 180     }
 181
 182
 183     SetLocalItemPurge(lci, &IFFParseBase->proppurgehook);
 184
 185     DEBUG_PROPHOOKS(dprintf("PropFunc: return 0\n"));
 186     return 0;
 187 }
 188