+void listObjects(SWF*swf)
+{
+ TAG*tag;
+ char first;
+ int t;
+ int frame = 0;
+ char*names[] = {"Shapes","MovieClips","JPEGs","Sounds","Frames"};
+ printf("Objects in file %s:\n",filename);
+ for(t=0;t<5;t++) {
+ tag = swf->firstTag;
+ first = 1;
+ while(tag) {
+ char show = 0;
+ char text[80];
+ if(t == 0 &&
+ (tag->id == ST_DEFINESHAPE ||
+ tag->id == ST_DEFINESHAPE2 ||
+ tag->id == ST_DEFINESHAPE3)) {
+ show = 1;
+ sprintf(text,"%d", swf_GetDefineID(tag));
+ }
+
+ if(tag->id == ST_DEFINESPRITE) {
+ if (t == 1) {
+ show = 1;
+ sprintf(text,"%d", swf_GetDefineID(tag));
+ }
+
+ while(tag->id != ST_END)
+ tag = tag->next;
+ }
+
+ if(t == 2 && (tag->id == ST_DEFINEBITS ||
+ tag->id == ST_DEFINEBITSJPEG2 ||
+ tag->id == ST_DEFINEBITSJPEG3)) {
+ show = 1;
+ sprintf(text,"%d", swf_GetDefineID(tag));
+ }
+
+ if(t == 3 && (tag->id == ST_DEFINESOUND)) {
+ show = 1;
+ sprintf(text,"%d", swf_GetDefineID(tag));
+ }
+
+ if(t == 4 && (tag->id == ST_SHOWFRAME)) {
+ show = 1;
+ sprintf(text,"%d", frame);
+ frame ++;
+ }
+
+ if(show) {
+ if(!first)
+ printf(", ");
+ else
+ printf("%s: ", names[t]);
+ printf("%s", text);
+ first = 0;
+ }
+ tag=tag->next;
+ }
+ if(!first)
+ printf("\n");
+ }
+}
+
+U8*jpegtables = 0;
+int jpegtablessize;
+
+void handlejpegtables(TAG*tag)
+{
+ if(tag->id == ST_JPEGTABLES) {
+ jpegtables = tag->data;
+ jpegtablessize = tag->len;
+ }
+}
+
+FILE* save_fopen(char* name, char* mode)
+{
+ FILE*fi = fopen(name, mode);
+ if(!fi) {
+ fprintf(stderr, "Error: Couldn't open %s\n", name);
+ exit(1);
+ }
+ return fi;
+}
+
+int findjpegboundary(U8*data, int len)
+{
+ int t;
+ int pos=-1;
+ for(t=0;t<len;t++) {
+ if(data[t ]==0xff &&
+ data[t+1]==0xd9 &&
+ data[t+2]==0xff &&
+ data[t+3]==0xd8) {
+ pos = t;
+ }
+ }
+ return pos;
+}
+
+/* extract jpeg data out of a tag */
+void handlejpeg(TAG*tag)
+{
+ char name[80];
+ FILE*fi;
+ sprintf(name, "pic%d.jpeg", *(U16*)tag->data);
+ /* swf jpeg images have two streams, which both start with ff d8 and
+ end with ff d9. The following code handles sorting the middle
+ <ff d9 ff d8> bytes out, so that one stream remains */
+ if(tag->id == ST_DEFINEBITS && tag->len>2 && jpegtables) {
+ fi = save_fopen(name, "wb");
+ fwrite(jpegtables, 1, jpegtablessize-2, fi); //don't write end tag (ff,d8)
+ fwrite(&tag->data[2+2], tag->len-2-2, 1, fi); //don't write start tag (ff,d9)
+ fclose(fi);
+ }
+ if(tag->id == ST_DEFINEBITSJPEG2 && tag->len>2) {
+ int end = tag->len;
+ int pos = findjpegboundary(&tag->data[2], tag->len-2);
+ if(pos<0)
+ return;
+ pos+=2;
+ fi = save_fopen(name, "wb");
+ fwrite(&tag->data[2], pos-2, 1, fi);
+ fwrite(&tag->data[pos+4], end-(pos+4), 1, fi);
+ fclose(fi);
+ }
+ if(tag->id == ST_DEFINEBITSJPEG3 && tag->len>6) {
+ U32 end = *(U32*)&tag->data[2]+6;
+ int pos = findjpegboundary(&tag->data[6], tag->len-6);
+ if(pos<0)
+ return;
+ pos+=6;
+ fi = save_fopen(name, "wb");
+ fwrite(&tag->data[6], pos-6, 1, fi);
+ fwrite(&tag->data[pos+4], end-(pos+4), 1, fi);
+ fclose(fi);
+ }
+}
+