+/* used in enumerateUsedIDs */
+void swf_GetMorphGradient(TAG * tag, GRADIENT * gradient1, GRADIENT * gradient2)
+{
+ GRADIENT dummy1;
+ GRADIENT dummy2;
+ int t;
+ if(!gradient1)
+ gradient1 = &dummy1;
+ if(!gradient2)
+ gradient2 = &dummy2;
+ gradient1->num =
+ gradient2->num = swf_GetU8(tag);
+ for(t=0;t<gradient1->num;t++)
+ {
+ int s=t;
+ if(s>=8) //FIXME
+ s=7;
+ gradient1->ratios[t] = swf_GetU8(tag);
+ swf_GetRGBA(tag, &gradient1->rgba[t]);
+ gradient2->ratios[t] = swf_GetU8(tag);
+ swf_GetRGBA(tag, &gradient2->rgba[t]);
+ }
+}
+
+#define DEBUG_ENUMERATE if(0)
+
+static void enumerateUsedIDs_styles(TAG * tag, void (*callback)(TAG*, int, void*), void*callback_data, int num, int morph)
+{
+ U16 count;
+ int t;
+ count = swf_GetU8(tag);
+ if(count == 0xff && num>1) // defineshape2,3 only
+ count = swf_GetU16(tag);
+
+ for(t=0;t<count;t++)
+ {
+ int type;
+ U8*pos;
+ swf_ResetReadBits(tag);
+ type = swf_GetU8(tag); //type
+ if(type == 0) {
+ if(num == 3)
+ {swf_GetRGBA(tag, NULL);if(morph) swf_GetRGBA(tag, NULL);}
+ else
+ {swf_GetRGB(tag, NULL);if(morph) swf_GetRGB(tag, NULL);}
+ }
+ else if(type == 0x10 || type == 0x12)
+ {
+ swf_ResetReadBits(tag);
+ swf_GetMatrix(tag, NULL);
+ if(morph)
+ swf_GetMatrix(tag, NULL);
+ swf_ResetReadBits(tag);
+ if(morph)
+ swf_GetMorphGradient(tag, NULL, NULL);
+ else
+ swf_GetGradient(tag, NULL, /*alpha*/ num>=3?1:0);
+ }
+ else if(type == 0x40 || type == 0x41)
+ {
+ swf_ResetReadBits(tag);
+ // we made it.
+ if(tag->data[tag->pos] != 0xff ||
+ tag->data[tag->pos+1] != 0xff)
+ (callback)(tag, tag->pos, callback_data);
+
+ swf_GetU16(tag);
+ swf_ResetReadBits(tag);
+ swf_GetMatrix(tag, NULL);
+ if(morph)
+ swf_GetMatrix(tag, NULL);
+ }
+ else {
+ fprintf(stderr, "rfxswf:swftools.c Unknown fillstyle:0x%02x\n",type);
+ }
+ }
+ swf_ResetReadBits(tag);
+ count = swf_GetU8(tag); // line style array
+ if(count == 0xff)
+ count = swf_GetU16(tag);
+ for(t=0;t<count;t++)
+ {
+ swf_GetU16(tag);
+ if(morph)
+ swf_GetU16(tag);
+ if(num == 3)
+ {swf_GetRGBA(tag, NULL);if(morph) swf_GetRGBA(tag, NULL);}
+ else
+ {swf_GetRGB(tag, NULL);if(morph) swf_GetRGB(tag, NULL);}
+ }
+}
+
+void enumerateUsedIDs(TAG * tag, int base, void (*callback)(TAG*, int, void*), void*callback_data)
+{
+ int num = 1;
+ swf_ResetReadBits(tag);
+ tag->pos = 0;
+ switch(tag->id)
+ {
+ case ST_DEFINEBUTTONCXFORM: {
+ int t;
+ callback(tag, tag->pos + base, callback_data);
+ for(t=0;t<4;t++) {
+ int flags;
+ callback(tag, tag->pos + base, callback_data);
+ swf_GetU16(tag); //sound id
+ flags = swf_GetU8(tag);
+ if(flags&1)
+ swf_GetU32(tag); // in point
+ if(flags&2)
+ swf_GetU32(tag); // out points
+ if(flags&4)
+ swf_GetU16(tag); // loop count
+ if(flags&8)
+ {
+ int npoints = swf_GetU8(tag);
+ int s;
+ for(s=0;s<npoints;s++)
+ {
+ swf_GetU32(tag);
+ swf_GetU16(tag);
+ swf_GetU16(tag);
+ }
+ }
+ }
+ } break;
+ case ST_DEFINEBUTTONSOUND:
+ callback(tag, tag->pos + base, callback_data); //button id
+ break;
+
+ case ST_EXPORTASSETS: {
+ int num = swf_GetU16(tag);
+ int t;
+ for(t=0;t<num;t++) {
+ callback(tag, tag->pos + base, callback_data); //button id
+ swf_GetU16(tag); //id
+ while(swf_GetU8(tag)); //name
+ }
+ } break;
+
+ case ST_FREECHARACTER: /* unusual tags, which all start with an ID */
+ case ST_NAMECHARACTER:
+ case ST_GENERATORTEXT:
+ callback(tag, tag->pos + base, callback_data);
+ break;
+ case ST_PLACEOBJECT:
+ callback(tag, tag->pos + base, callback_data);
+ break;
+ case ST_PLACEOBJECT2:
+ // only if placeflaghascharacter
+ if(!(tag->data[0]&2))
+ break;
+ callback(tag, 3 + base, callback_data);
+ break;
+ case ST_REMOVEOBJECT:
+ callback(tag, tag->pos + base, callback_data);
+ break;
+ case ST_STARTSOUND:
+ callback(tag, tag->pos + base, callback_data);
+ break;
+ case ST_DEFINESPRITE: {
+ if(tag->len <= 4)
+ break; // sprite is expanded
+
+ swf_GetU16(tag); // id
+ swf_GetU16(tag); // framenum
+
+ while(1) {
+ U16 flags = swf_GetU16(tag);
+ U32 len;
+ U16 id = flags>>6;
+ TAG *tag2 = swf_InsertTag(NULL, id);
+ len = flags&0x3f;
+ if(len == 63)
+ len = swf_GetU32(tag);
+ if(id == ST_END)
+ break;
+ tag2->len = tag2->memsize = len;
+ tag2->data = malloc(len);
+ memcpy(tag2->data, &tag->data[tag->pos], len);
+ /* I never saw recursive sprites, but they are (theoretically)
+ possible, so better add base here again */
+ enumerateUsedIDs(tag2, tag->pos + base, callback, callback_data);
+ swf_DeleteTag(tag2);
+ swf_GetBlock(tag, NULL, len);
+ }
+ }
+ break;
+ case ST_DEFINEBUTTON2: // has some font ids in the button records
+ num++;
+ //fallthrough
+ case ST_DEFINEBUTTON: {
+ swf_GetU16(tag); //button id
+ if(num>1)
+ {
+ int offset;
+ swf_GetU8(tag); //flag
+ offset = swf_GetU16(tag); //offset
+ }
+ while(1)
+ {
+ U16 charid;
+ if(!swf_GetU8(tag)) //flags
+ break;
+ callback(tag, tag->pos + base, callback_data);
+ swf_GetU16(tag); //char
+ swf_GetU16(tag); //layer
+ swf_ResetReadBits(tag);
+ swf_GetMatrix(tag, NULL);
+ if(num>1) {
+ swf_ResetReadBits(tag);
+ swf_GetCXForm(tag, NULL, 1);
+ }
+ }
+ // ...
+ }
+ break;
+ case ST_DEFINEEDITTEXT: {
+ U8 flags1,flags2;
+ swf_GetU16(tag); //id
+ swf_GetRect(tag, NULL); //bounding box
+ swf_ResetReadBits(tag);
+ flags1 = swf_GetU8(tag);
+ flags2 = swf_GetU8(tag);
+ if(flags1 & 1)
+ callback(tag, tag->pos + base, callback_data);
+ }
+ break;
+ case ST_DEFINETEXT2:
+ num ++;
+ case ST_DEFINETEXT: {
+ int glyphbits, advancebits;
+ int id;
+ id = swf_GetU16(tag); //id
+ swf_GetRect(tag, NULL); //bounding box
+ swf_ResetReadBits(tag);
+ swf_GetMatrix(tag, NULL); //matrix
+ swf_ResetReadBits(tag);
+ glyphbits = swf_GetU8(tag); //glyphbits
+ advancebits = swf_GetU8(tag); //advancebits
+ while(1) {
+ U16 flags;
+ swf_ResetReadBits(tag);
+ flags = swf_GetBits(tag, 8);
+ if(!flags) break;
+ if(flags & 128) // text style record
+ {
+ swf_ResetReadBits(tag);
+ if(flags & 8) { // hasfont
+ callback(tag, tag->pos + base, callback_data);
+ id = swf_GetU16(tag);
+ }
+ if(flags & 4) { // hascolor
+ if(num==1) swf_GetRGB(tag, NULL);
+ else swf_GetRGBA(tag, NULL);
+ }
+ if(flags & 2) { //has x offset
+ swf_ResetReadBits(tag);
+ swf_GetU16(tag);
+ }
+ if(flags & 1) { //has y offset
+ swf_ResetReadBits(tag);
+ swf_GetU16(tag);
+ }
+ if(flags & 8) { //has height
+ swf_ResetReadBits(tag);
+ swf_GetU16(tag);
+ }
+ } else { // glyph record
+ int t;
+ swf_ResetReadBits(tag);
+ for(t=0;t<flags;t++) {
+ swf_GetBits(tag, glyphbits);
+ swf_GetBits(tag, advancebits);
+ }
+ }
+ }
+ break;
+ }
+ case ST_GLYPHNAMES:
+ case ST_DEFINEFONTINFO:
+ case ST_DEFINEFONTINFO2:
+ case ST_VIDEOFRAME:
+ callback(tag, tag->pos + base, callback_data);
+ break;
+ case ST_DEFINEVIDEOSTREAM:
+ break;
+
+ case ST_DOINITACTION:
+ callback(tag, tag->pos + base, callback_data);
+ break;
+
+ case ST_DEFINEMORPHSHAPE:
+ case ST_DEFINESHAPE3:
+ num++; //fallthrough
+ case ST_DEFINESHAPE2:
+ num++; //fallthrough
+ case ST_DEFINESHAPE: {
+ int fillbits;
+ int linebits;
+ int id;
+ int numshapes = 1;
+ int morph = 0;
+ if(tag->id == ST_DEFINEMORPHSHAPE) {
+ numshapes = 2;
+ morph = 1;
+ }
+
+ id = swf_GetU16(tag); // id;
+ swf_GetRect(tag, NULL); // bounds
+ if(morph) {
+ swf_ResetReadBits(tag);
+ swf_GetRect(tag, NULL); // bounds2
+ swf_GetU32(tag); //offset to endedges
+ }
+
+ DEBUG_ENUMERATE printf("Tag:%d Name:%s ID:%d\n", tag->id, swf_TagGetName(tag), id);
+
+ enumerateUsedIDs_styles(tag, callback, callback_data, num, morph);
+ DEBUG_ENUMERATE printf("-------\n");
+ while(--numshapes>=0) /* morph shapes define two shapes */
+ {
+ DEBUG_ENUMERATE printf("shape:%d\n", numshapes);
+ fillbits = swf_GetBits(tag, 4);
+ linebits = swf_GetBits(tag, 4);
+ DEBUG_ENUMERATE printf("%d %d\n", fillbits, linebits);
+ swf_ResetReadBits(tag);
+ while(1) {
+ int flags;
+ flags = swf_GetBits(tag, 1);
+ if(!flags) { //style change
+ flags = swf_GetBits(tag, 5);
+ if(!flags)
+ break;
+ if(flags&1) { //move
+ int n = swf_GetBits(tag, 5);
+ int x,y;
+ x = swf_GetBits(tag, n); //x
+ y = swf_GetBits(tag, n); //y
+ DEBUG_ENUMERATE printf("move %f %f\n",x/20.0,y/20.0);
+ }
+ if(flags&2) { //fill0
+ int fill0;
+ fill0 = swf_GetBits(tag, fillbits);
+ DEBUG_ENUMERATE printf("fill0 %d\n", fill0);
+ }
+ if(flags&4) { //fill1
+ int fill1;
+ fill1 = swf_GetBits(tag, fillbits);
+ DEBUG_ENUMERATE printf("fill1 %d\n", fill1);
+ }
+ if(flags&8) { //linestyle
+ int line;
+ line = swf_GetBits(tag, linebits);
+ DEBUG_ENUMERATE printf("linestyle %d\n",line);
+ }
+ if(flags&16) {
+ DEBUG_ENUMERATE printf("more fillstyles\n");
+ enumerateUsedIDs_styles(tag, callback, callback_data, num, 0);
+ fillbits = swf_GetBits(tag, 4);
+ linebits = swf_GetBits(tag, 4);
+ }
+ } else {
+ flags = swf_GetBits(tag, 1);
+ if(flags) { //straight edge
+ int n = swf_GetBits(tag, 4) + 2;
+ if(swf_GetBits(tag, 1)) { //line flag
+ int x,y;
+ x = swf_GetSBits(tag, n); //delta x
+ y = swf_GetSBits(tag, n); //delta y
+ DEBUG_ENUMERATE printf("line %f %f\n",x/20.0,y/20.0);
+ } else {
+ int v=swf_GetBits(tag, 1);
+ int d;
+ d = swf_GetSBits(tag, n); //vert/horz
+ DEBUG_ENUMERATE printf("%s %f\n",v?"vertical":"horizontal", d/20.0);
+ }
+ } else { //curved edge
+ int n = swf_GetBits(tag, 4) + 2;
+ int x1,y1,x2,y2;
+ x1 = swf_GetSBits(tag, n);
+ y1 = swf_GetSBits(tag, n);
+ x2 = swf_GetSBits(tag, n);
+ y2 = swf_GetSBits(tag, n);
+ DEBUG_ENUMERATE printf("curve %f %f %f %f\n", x1/20.0, y1/20.0, x2/20.0, y2/20.0);
+ }
+ }
+ }
+ }
+ }
+ break;
+ default:
+ break;
+ }
+}
+
+void callbackCount(TAG * t,int pos, void*ptr)
+{
+ (*(int*)ptr)++;
+ DEBUG_ENUMERATE printf("callback(%d) %d\n", pos, *(U16*)&t->data[pos]);
+}
+
+void callbackFillin(TAG * t,int pos, void*ptr)
+{
+ **(int**)ptr = pos;
+ (*(int**)ptr)++;
+ DEBUG_ENUMERATE printf("callback(%d) %d\n", pos, *(U16*)&t->data[pos]);
+}
+
+int swf_GetNumUsedIDs(TAG * t)
+{
+ int num = 0;
+ enumerateUsedIDs(t, 0, callbackCount, &num);
+ return num;
+}
+
+void swf_GetUsedIDs(TAG * t, int * positions)
+{
+ int * ptr = positions;
+ enumerateUsedIDs(t, 0, callbackFillin, &ptr);
+}
+
+void swf_Relocate (SWF*swf, char*bitmap)
+{
+ TAG*tag;
+ int slaveids[65536];
+ memset(slaveids, -1, sizeof(slaveids));
+ tag = swf->firstTag;
+ while(tag)
+ {
+ int num;
+ int *ptr;
+ int t;
+
+ if(swf_isDefiningTag(tag))
+ {
+ int newid;
+ int id;
+
+ id = swf_GetDefineID(tag); //own id
+
+ if(!bitmap[id]) { //free
+ newid = id;
+ }
+ else {
+ newid = 0;
+ for (t=1;t<65536;t++)
+ {
+ if(!bitmap[t])
+ {
+ newid = t;
+ break;
+ }
+ }
+ }
+ bitmap[newid] = 1;
+ slaveids[id] = newid;
+
+ swf_SetDefineID(tag, newid);
+ }
+
+ num = swf_GetNumUsedIDs(tag);
+ ptr = malloc(sizeof(int)*num);
+ swf_GetUsedIDs(tag, ptr);
+
+ for(t=0;t<num;t++) {
+ int id = GET16(&tag->data[ptr[t]]);
+ if(slaveids[id]<0) {
+ fprintf(stderr, "swf_Relocate: Mapping id never encountered before: %d\n", id);
+ return ;
+ }
+ id = slaveids[id];
+ PUT16(&tag->data[ptr[t]], id);
+ }
+ tag=tag->next;
+ }
+}
+
+void swf_RelocateDepth(SWF*swf, char*bitmap)
+{
+ TAG*tag;
+ int nr;
+ tag = swf->firstTag;
+ for(nr=65535;nr>=0;nr--) {
+ if(bitmap[nr] != 0)
+ break;
+ }
+ // now nr is the highest used depth. So we start
+ // assigning depths at nr+1
+ nr++;
+
+ while(tag)
+ {
+ /* TODO * clip depths
+ * sprites
+ */
+ int depth = swf_GetDepth(tag);
+ if(depth>=0) {
+ int newdepth = depth+nr;
+ if(newdepth>65535) {
+ fprintf(stderr, "Couldn't relocate depths: too large values\n");
+ newdepth = 65535;
+ }
+ swf_SetDepth(tag, newdepth);
+ }
+ tag=tag->next;
+ }
+}
+
+TAG* swf_Concatenate (TAG*list1,TAG*list2)
+{
+ TAG*tag=0,*lasttag=0;
+ char bitmap[65536];
+ char depthmap[65536];
+ SWF swf1,swf2;
+ memset(bitmap, 0, sizeof(bitmap));
+ memset(depthmap, 0, sizeof(depthmap));
+ memset(&swf1, 0, sizeof(swf1));
+ memset(&swf2, 0, sizeof(swf2));
+
+ swf1.firstTag = list1;
+ swf_FoldAll(&swf1);
+ swf2.firstTag = list2;
+ swf_FoldAll(&swf2);
+
+ tag = list1;
+ while(tag) {
+ if(!swf_isDefiningTag(tag)) {
+ int id = swf_GetDefineID(tag);
+ bitmap[id] = 1;
+ }
+ if(tag->id == ST_PLACEOBJECT ||
+ tag->id == ST_PLACEOBJECT2) {
+ int depth = swf_GetDepth(tag);
+ depthmap[depth] = 1;
+ }
+ if(tag->id == ST_REMOVEOBJECT ||
+ tag->id == ST_REMOVEOBJECT2) {
+ int depth = swf_GetDepth(tag);
+ depthmap[depth] = 0;
+ }
+ tag = tag->next;
+ lasttag = tag;
+ }
+ swf_Relocate(&swf2, bitmap);
+ swf_RelocateDepth(&swf2, depthmap);
+ lasttag->next = swf2.firstTag;
+ swf2.firstTag->prev = lasttag;
+
+ return swf1.firstTag;
+}