Check for SYS/GL during library init. Reason is that
[AROS.git] / workbench / libs / iffparse / entryhandler.c
blobf3aaa82d37ac8018640b9c3bac2b420f7a7169d1
1 /*
2 Copyright © 1995-2007, The AROS Development Team. All rights reserved.
3 $Id$
4 */
6 #define DEBUG 0
7 #include <aros/debug.h>
8 #include "iffparse_intern.h"
10 /*****************************************************************************
12 NAME */
13 #include <proto/iffparse.h>
15 AROS_LH6(LONG, EntryHandler,
17 /* SYNOPSIS */
18 AROS_LHA(struct IFFHandle *, iff, A0),
19 AROS_LHA(LONG , type, D0),
20 AROS_LHA(LONG , id, D1),
21 AROS_LHA(LONG , position, D2),
22 AROS_LHA(struct Hook *, handler, A1),
23 AROS_LHA(APTR , object, A2),
25 /* LOCATION */
26 struct Library *, IFFParseBase, 17, IFFParse)
28 /* FUNCTION
29 Installs an entry handler for a specific chunk type
30 that wil be called whenever a chunk of that type is pushed on the contextstack
31 via ParseIFF().
34 INPUTS
35 iff - pointer to an iffhandle struct.
36 type - type code for the chunk to handle. (ex: "ILBM").
37 id - ID code for the chunk to handle. (ex: "CMAP")
38 position - position of localcontextitem. See StoreLocalItem for
39 more info.
40 handler - an initialised Hook structure for the handler function.
41 object - pointer to some kind of object that will be passed to
42 your handler function.
44 RESULT
45 error - 0 If successfull, IFFERR_#? elsewise.
47 NOTES
49 EXAMPLE
51 BUGS
53 SEE ALSO
54 ExitHandler(), StoreLocalItem(), StoreItemInContext()
58 INTERNALS
60 *****************************************************************************/
62 AROS_LIBFUNC_INIT
64 struct LocalContextItem *lci;
65 struct HandlerInfo *hi;
67 D(bug ("EntryHandler (iff=%p, type=%c%c%c%c, id=%c%c%c%c, position=%d, handler=%p, object=%p)\n",
68 iff,
69 dmkid(type),
70 dmkid(id),
71 position, handler, object
72 ));
74 if (!(lci = AllocLocalItem(
75 type,
76 id,
77 IFFLCI_ENTRYHANDLER,
78 sizeof (struct HandlerInfo))))
80 ReturnInt ("EntryHandler",LONG,IFFERR_NOMEM);
83 /* Get pointer to the user data */
84 hi = LocalItemData(lci);
86 hi->hi_Hook = handler;
88 hi->hi_Object = object;
90 ReturnInt
92 "EntryHandler",
93 LONG,
94 StoreLocalItem
96 iff,
97 lci,
98 position
102 AROS_LIBFUNC_EXIT
103 } /* EntryHandler */