6 #include "primitives.h"
11 //----------------------------------------------------------------------------
13 typedef struct _TagObject {
15 tag_internals_t internals;
18 //----------------------------------------------------------------------------
19 static PyMethodDef generic_methods[] =
23 static tag_internals_t generic_tag =
28 tagfunctions: generic_methods,
31 //----------------------------------------------------------------------------
33 static struct tag_parser {
36 struct tag_parser* next;
38 static char parsers_initialized = 0;
40 void register_tag(int id, tag_internals_t*spec)
42 assert(id>=0 && id<1024);
43 if(!parsers_initialized) {
44 memset(tag_parsers, 0, sizeof(tag_parsers));
45 parsers_initialized = 1;
47 tag_parsers[id].id = id;
48 tag_parsers[id].spec = spec;
51 static tag_internals_t* get_parser(int id)
53 if(parsers_initialized<2) {
55 struct tag_parser*last = &tag_parsers[0];
57 if(tag_parsers[t].spec) {
58 last->next = &tag_parsers[t];
59 last = &tag_parsers[t];
62 parsers_initialized = 2;
64 assert(id>=0 && id<1024);
65 return tag_parsers[id].spec;
68 //----------------------------------------------------------------------------
69 static void tag_dealloc(PyObject * self)
71 TagObject*tag = (TagObject*)self;
72 if(tag->internals.tag)
73 mylog("-%08x(%d) tag_dealoc [%s]\n", (int)self, self->ob_refcnt, swf_TagGetName(tag->internals.tag));
75 mylog("-%08x(%d) tag_dealoc [?]\n", (int)self, self->ob_refcnt);
76 if(tag->internals.dealloc) {
77 if(!tag->internals.data)
78 mylog("-%08x(%d) tag_dealoc: Warning: calling dealloc without any data(?)\n", (int)self, self->ob_refcnt);
79 tag->internals.dealloc(&tag->internals);
81 if(tag->internals.data) {
82 free(tag->internals.data);
83 tag->internals.data = 0;
85 if(tag->internals.tag) {
86 swf_DeleteTag(tag->internals.tag);
87 tag->internals.tag = 0;
89 Py_DECREF(tag->internals.tagmap);
90 tag->internals.tagmap = 0;
93 //----------------------------------------------------------------------------
94 static int fillTAG(PyObject*self)
96 TagObject*tag = (TagObject*)self;
97 if(tag->internals.tag)
99 if(!tag->internals.fillTAG) {
100 PyErr_SetString(PyExc_Exception, setError("No way to fill TAG with data"));
103 if(!tag->internals.fillTAG(&tag->internals)) {
104 return 0; // pass through exception
106 if(!tag->internals.tag) {
107 PyErr_SetString(PyExc_Exception, setError("Couldn't fill tag"));
112 //----------------------------------------------------------------------------
113 static PyObject* tag_isShape(PyObject * _self, PyObject*args)
115 TagObject*self = (TagObject*)_self;
116 if(!PyArg_ParseTuple(args, ""))
118 if(!fillTAG((PyObject*)self))
120 return PyInt_FromLong(swf_isShapeTag(self->internals.tag));
122 //----------------------------------------------------------------------------
123 static PyMethodDef common_tagfunctions[] =
124 {{"isShape", tag_isShape, METH_VARARGS, "tests whether the tag is a shape tag"},
125 {NULL, NULL, 0, NULL}
128 static PyObject* tag_getattr(PyObject * self, char* a)
130 TagObject*tag = (TagObject*)self;
131 PyObject* ret = NULL;
135 if(!strcmp(a, "tagid")) {
138 return Py_BuildValue("i", tag->internals.tag->id);
140 if(!strcmp(a, "name")) {
143 char* name = swf_TagGetName(tag->internals.tag);
144 return Py_BuildValue("s", name);
146 if(tag->internals.getattr) {
147 PyObject* ret = tag->internals.getattr(&tag->internals, a);
151 /* search for a tag specific function */
152 if(tag->internals.tagfunctions) {
153 mylog(" %08x(%d) tag_getattr: tag has specific functions\n", (int)self, self->ob_refcnt);
154 ret = Py_FindMethod(tag->internals.tagfunctions, self, a);
157 ret = FindMethodMore(ret, common_tagfunctions, self, a);
158 mylog(" %08x(%d) tag_getattr %s: %08x\n", (int)self, self->ob_refcnt, a, ret);
163 ret = Py_FindMethod(common_tagfunctions, self, a);
165 mylog(" %08x(%d) tag_getattr %s: %08x\n", (int)self, self->ob_refcnt, a, ret);
168 static int tag_setattr(PyObject * _self, char* a, PyObject * o)
170 TagObject*self= (TagObject*)_self;
171 /* a setattr will almost certainly change the tag data,
173 if(self->internals.tag) {
174 swf_DeleteTag(self->internals.tag);
175 self->internals.tag = 0;
177 if(self->internals.setattr) {
178 int ret = self->internals.setattr(&self->internals, a, o);
183 //----------------------------------------------------------------------------
185 //----------------------------------------------------------------------------
186 PyObject* tag_new(tag_internals_t*tag_internals)
188 TagObject*tag = PyObject_New(TagObject, &TagClass);
189 mylog("+%08x(%d) tag_new\n", (int)tag, tag->ob_refcnt);
190 memcpy(&tag->internals, tag_internals, sizeof(tag_internals_t));
191 if(tag->internals.datasize) {
192 tag->internals.data = malloc(tag->internals.datasize);
193 memset(tag->internals.data , 0, tag->internals.datasize);
195 tag->internals.data = 0;
197 tag->internals.tag = 0;
198 tag->internals.tagmap = tagmap_new();
200 return (PyObject*)tag;
202 PyObject* tag_new2(TAG*t, PyObject* tagmap)
204 TagObject*tag = PyObject_New(TagObject, &TagClass);
205 mylog("+%08x(%d) tag_new2 tag=%08x id=%d (%s)\n", (int)tag, tag->ob_refcnt, t, t->id, swf_TagGetName(t));
207 PyObject*mytagmap = tagmap_new();
209 int num = swf_GetNumUsedIDs(t);
210 if(num) { // tag has dependencies
211 int * positions = malloc(num*sizeof(int));
212 swf_GetUsedIDs(t, positions);
215 int id = GET16(&t->data[positions[i]]);
216 PyObject*obj = tagmap_id2obj(tagmap, id);
218 PyErr_SetString(PyExc_Exception, setError("TagID %d not defined", id));
221 //mylog("+%08x(%d) tag_new2 handling id %d at %d/%d\n", (int)tag, tag->ob_refcnt, id, positions[i], t->len);
222 //mylog("+%08x(%d) tag_new2 add dependency %d to id %d, object %08x(%d)\n", (int)tag, tag->ob_refcnt, i, id, obj, obj->ob_refcnt);
223 tagmap_addMapping(mytagmap, id, obj);
228 tag_internals_t*spec = get_parser(t->id);
230 memcpy(&tag->internals, spec, sizeof(tag_internals_t));
232 memcpy(&tag->internals, &generic_tag, sizeof(tag_internals_t));
234 if(tag->internals.datasize) {
235 tag->internals.data = malloc(tag->internals.datasize);
236 memset(tag->internals.data, 0, tag->internals.datasize);
238 tag->internals.data = 0;
240 tag->internals.tag = swf_InsertTag(0, t->id);
241 swf_SetBlock(tag->internals.tag, t->data, t->len);
242 tag->internals.tagmap = mytagmap;
244 // call tag->internals.init()?
246 return (PyObject*)tag;
248 //----------------------------------------------------------------------------
250 TAG* tag_getTAG(PyObject*self, TAG*prevTag, PyObject*tagmap)
252 TagObject*tag = (TagObject*)self;
256 mylog(" %08x(%d) tag_getTAG: tag=%08x id=%d (%s)", (int)self, self->ob_refcnt, tag->internals.tag, tag->internals.tag->id, swf_TagGetName(tag->internals.tag));
258 TAG* t = swf_InsertTag(prevTag, tag->internals.tag->id);
259 swf_SetBlock(t, tag->internals.tag->data, tag->internals.tag->len);
261 if(swf_isDefiningTag(t)) {
262 int newid = tagmap_add(tagmap, self);
263 swf_SetDefineID(t, newid);
266 int num = swf_GetNumUsedIDs(t);
267 if(num) { // tag has dependencies
268 int * positions = malloc(num*sizeof(int));
269 swf_GetUsedIDs(t, positions);
272 int id = GET16(&t->data[positions[i]]);
273 PyObject* obj = tagmap_id2obj(tag->internals.tagmap, id);
275 PyErr_SetString(PyExc_Exception, setError("Internal error: id %d not known in taglist:"));
279 //int newid = tagmap_obj2id(tag->internals.tagmap, obj);
280 int newid = tagmap_obj2id(tagmap, obj);
282 mylog(" %08x(%d) tag_getTAG: dependency %d) %d->%08x -> assigning(%08x) id %d", (int)self, self->ob_refcnt, i, id, obj, tagmap, newid);
284 /* TODO: this is only needed for sprites, so maybe it should throw an
285 exception otherwise */
286 newid = tagmap_add(tagmap, obj);
287 mylog(" %08x(%d) tag_getTAG: added dependency %d) %d->%08x -> assigning(%08x) id %d", (int)self, self->ob_refcnt, i, id, obj, tagmap, newid);
289 PUT16(&t->data[positions[i]], newid);
295 //----------------------------------------------------------------------------
296 tag_internals_t* tag_getinternals(PyObject*self)
298 TagObject*tag = (TagObject*)self;
299 mylog(" %08x(%d) tag_getInternals\n", (int)self, self->ob_refcnt);
300 return &tag->internals;
302 //----------------------------------------------------------------------------
303 PyObject* tag_getDependencies(PyObject*self)
305 TagObject*tag = (TagObject*)self;
306 mylog(" %08x(%d) tag_getDependencies\n", (int)self, self->ob_refcnt);
307 return tagmap_getObjectList(tag->internals.tagmap);
309 //----------------------------------------------------------------------------
310 int tag_print(PyObject * self, FILE * fi, int flags)
312 TagObject*tag = (TagObject*)self;
313 mylog(" %08x(%d) tag_print flags=%08x\n", (int)self, self->ob_refcnt, flags);
316 //fprintf(fi, "tag-%08x-%d-%s", (int)tag->internals.tag, tag->internals.tag->id, swf_TagGetName(tag->internals.tag));
317 fprintf(fi, "%s", swf_TagGetName(tag->internals.tag));
320 //----------------------------------------------------------------------------
321 PyTypeObject TagClass =
323 PyObject_HEAD_INIT(NULL)
326 tp_basicsize: sizeof(TagObject),
328 tp_dealloc: tag_dealloc,
330 tp_getattr: tag_getattr,
331 tp_setattr: tag_setattr,