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 PyObject* tag_setU8(PyObject * self, PyObject*other)
98 //----------------------------------------------------------------------------
99 static PyMethodDef common_tagfunctions[] =
100 {{"setU8", tag_setU8, METH_VARARGS, "sets a byte to the tag data"},
101 {NULL, NULL, 0, NULL}
104 static int fillTAG(PyObject*self)
106 TagObject*tag = (TagObject*)self;
107 if(tag->internals.tag)
109 if(!tag->internals.fillTAG) {
110 PyErr_SetString(PyExc_Exception, setError("No way to fill TAG with data"));
113 if(!tag->internals.fillTAG(&tag->internals)) {
114 return 0; // pass through exception
116 if(!tag->internals.tag) {
117 PyErr_SetString(PyExc_Exception, setError("Couldn't fill tag"));
122 static PyObject* tag_getattr(PyObject * self, char* a)
124 TagObject*tag = (TagObject*)self;
125 PyObject* ret = NULL;
129 if(!strcmp(a, "tagid")) {
132 return Py_BuildValue("i", tag->internals.tag->id);
134 if(!strcmp(a, "name")) {
137 char* name = swf_TagGetName(tag->internals.tag);
138 return Py_BuildValue("s", name);
140 if(tag->internals.getattr) {
141 PyObject* ret = tag->internals.getattr(&tag->internals, a);
146 /* search for a tag specific function */
147 if(tag->internals.tagfunctions) {
148 mylog(" %08x(%d) tag_getattr: tag has specific functions\n", (int)self, self->ob_refcnt);
149 ret = Py_FindMethod(tag->internals.tagfunctions, self, a);
151 ret = FindMethodMore(ret, common_tagfunctions, self, a);
152 mylog(" %08x(%d) tag_getattr %s: %08x\n", (int)self, self->ob_refcnt, a, ret);
156 ret = Py_FindMethod(common_tagfunctions, self, a);
158 mylog(" %08x(%d) tag_getattr %s: %08x\n", (int)self, self->ob_refcnt, a, ret);
161 static int tag_setattr(PyObject * self, char* a, PyObject * o)
163 TagObject*tag = (TagObject*)self;
164 if(tag->internals.setattr) {
165 int ret = tag->internals.setattr(&tag->internals, a, o);
170 //----------------------------------------------------------------------------
172 //----------------------------------------------------------------------------
173 PyObject* tag_new(tag_internals_t*tag_internals)
175 TagObject*tag = PyObject_New(TagObject, &TagClass);
176 mylog("+%08x(%d) tag_new\n", (int)tag, tag->ob_refcnt);
177 memcpy(&tag->internals, tag_internals, sizeof(tag_internals_t));
178 if(tag->internals.datasize) {
179 tag->internals.data = malloc(tag->internals.datasize);
180 memset(tag->internals.data , 0, tag->internals.datasize);
182 tag->internals.data = 0;
184 tag->internals.tag = 0;
185 tag->internals.tagmap = tagmap_new();
187 return (PyObject*)tag;
189 PyObject* tag_new2(TAG*t, PyObject* tagmap)
191 TagObject*tag = PyObject_New(TagObject, &TagClass);
192 mylog("+%08x(%d) tag_new2 tag=%08x id=%d (%s)\n", (int)tag, tag->ob_refcnt, t, t->id, swf_TagGetName(t));
194 PyObject*mytagmap = tagmap_new();
196 int num = swf_GetNumUsedIDs(t);
197 if(num) { // tag has dependencies
198 int * positions = malloc(num*sizeof(int));
199 swf_GetUsedIDs(t, positions);
202 int id = GET16(&t->data[positions[i]]);
203 PyObject*obj = tagmap_id2obj(tagmap, id);
205 PyErr_SetString(PyExc_Exception, setError("TagID %d not defined", id));
208 //mylog("+%08x(%d) tag_new2 handling id %d at %d/%d\n", (int)tag, tag->ob_refcnt, id, positions[i], t->len);
209 //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);
210 tagmap_addMapping(mytagmap, id, obj);
215 tag_internals_t*spec = get_parser(t->id);
217 memcpy(&tag->internals, spec, sizeof(tag_internals_t));
219 memcpy(&tag->internals, &generic_tag, sizeof(tag_internals_t));
221 if(tag->internals.datasize) {
222 tag->internals.data = malloc(tag->internals.datasize);
223 memset(tag->internals.data, 0, tag->internals.datasize);
225 tag->internals.data = 0;
227 tag->internals.tag = swf_InsertTag(0, t->id);
228 swf_SetBlock(tag->internals.tag, t->data, t->len);
229 tag->internals.tagmap = mytagmap;
231 // call tag->internals.init()?
233 return (PyObject*)tag;
235 //----------------------------------------------------------------------------
237 TAG* tag_getTAG(PyObject*self, TAG*prevTag, PyObject*tagmap)
239 TagObject*tag = (TagObject*)self;
243 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));
245 TAG* t = swf_InsertTag(prevTag, tag->internals.tag->id);
246 swf_SetBlock(t, tag->internals.tag->data, tag->internals.tag->len);
248 if(swf_isDefiningTag(t)) {
249 int newid = tagmap_add(tagmap, self);
250 swf_SetDefineID(t, newid);
253 int num = swf_GetNumUsedIDs(t);
254 if(num) { // tag has dependencies
255 int * positions = malloc(num*sizeof(int));
256 swf_GetUsedIDs(t, positions);
259 int id = GET16(&t->data[positions[i]]);
260 PyObject* obj = tagmap_id2obj(tag->internals.tagmap, id);
262 PyErr_SetString(PyExc_Exception, setError("Internal error: id %d not known in taglist:"));
266 //int newid = tagmap_obj2id(tag->internals.tagmap, obj);
267 int newid = tagmap_obj2id(tagmap, obj);
269 mylog(" %08x(%d) tag_getTAG: dependency %d) %d->%08x -> assigning(%08x) id %d", (int)self, self->ob_refcnt, i, id, obj, tagmap, newid);
271 /* TODO: this is only needed for sprites, so maybe it should throw an
272 exception otherwise */
273 newid = tagmap_add(tagmap, obj);
274 mylog(" %08x(%d) tag_getTAG: added dependency %d) %d->%08x -> assigning(%08x) id %d", (int)self, self->ob_refcnt, i, id, obj, tagmap, newid);
276 PUT16(&t->data[positions[i]], newid);
282 //----------------------------------------------------------------------------
283 tag_internals_t* tag_getinternals(PyObject*self)
285 TagObject*tag = (TagObject*)self;
286 mylog(" %08x(%d) tag_getInternals\n", (int)self, self->ob_refcnt);
287 return &tag->internals;
289 //----------------------------------------------------------------------------
290 PyObject* tag_getDependencies(PyObject*self)
292 TagObject*tag = (TagObject*)self;
293 mylog(" %08x(%d) tag_getDependencies\n", (int)self, self->ob_refcnt);
294 return tagmap_getObjectList(tag->internals.tagmap);
296 //----------------------------------------------------------------------------
297 int tag_print(PyObject * self, FILE * fi, int flags)
299 TagObject*tag = (TagObject*)self;
300 mylog(" %08x(%d) tag_print flags=%08x\n", (int)self, self->ob_refcnt, flags);
303 fprintf(fi, "tag-%08x-%d-%s", (int)tag->internals.tag, tag->internals.tag->id, swf_TagGetName(tag->internals.tag));
306 //----------------------------------------------------------------------------
307 PyTypeObject TagClass =
309 PyObject_HEAD_INIT(NULL)
312 tp_basicsize: sizeof(TagObject),
314 tp_dealloc: tag_dealloc,
316 tp_getattr: tag_getattr,
317 tp_setattr: tag_setattr,