2 Allows to extract parts of the swf into a new file.
4 Part of the swftools package.
6 Copyright (c) 2001 Matthias Kramm <kramm@quiss.org>
8 This file is distributed under the GPL, see file COPYING for details */
13 #include "../lib/rfxswf.h"
14 #include "../lib/args.h"
19 #define _ZLIB_INCLUDED_
24 char * destfilename = "output.swf";
28 char* extractframes = 0;
29 char* extractjpegids = 0;
30 char* extractpngids = 0;
33 char* extractname = 0;
39 struct options_t options[] =
54 int args_callback_option(char*name,char*val)
56 if(!strcmp(name, "V")) {
57 printf("swfextract - part of %s %s\n", PACKAGE, VERSION);
60 else if(!strcmp(name, "o")) {
64 else if(!strcmp(name, "i")) {
68 fprintf(stderr, "You can only supply either name or id\n");
73 else if(!strcmp(name, "n")) {
77 fprintf(stderr, "You can only supply either name or id\n");
82 else if(!strcmp(name, "v")) {
86 else if(!strcmp(name, "m")) {
91 else if(!strcmp(name, "j")) {
93 fprintf(stderr, "Only one --jpegs argument is allowed. (Try to use a range, e.g. -j 1,2,3)\n");
100 #ifdef _ZLIB_INCLUDED_
101 else if(!strcmp(name, "p")) {
103 fprintf(stderr, "Only one --pngs argument is allowed. (Try to use a range, e.g. -p 1,2,3)\n");
111 else if(!strcmp(name, "f")) {
116 else if(!strcmp(name, "w")) {
121 printf("Unknown option: -%s\n", name);
127 int args_callback_longoption(char*name,char*val)
129 return args_long2shortoption(options, name, val);
131 void args_callback_usage(char*name)
133 printf("Usage: %s [-v] [-n name] [-ijf ids] file.swf\n", name);
134 printf("\t-v , --verbose\t\t\t Be more verbose\n");
135 printf("\t-o , --output filename\t\t set output filename\n");
136 printf("\t-n , --name name\t\t instance name of the object to extract\n");
137 printf("\t-i , --id IDs\t\t\t ID of the object to extract\n");
138 printf("\t-j , --jpeg IDs\t\t\t IDs of the JPEG pictures to extract\n");
139 #ifdef _ZLIB_INCLUDED_
140 printf("\t-p , --pngs IDs\t\t\t IDs of the PNG pictures to extract\n");
142 printf("\t-m , --mp3\t\t\t Extract main mp3 stream\n");
143 printf("\t-f , --frame frames\t\t frame numbers to extract\n");
144 printf("\t-w , --hollow\t\t\t hollow mode: don't remove empty frames (use with -f)\n");
145 printf("\t-V , --version\t\t\t Print program version and exit\n");
147 int args_callback_command(char*name,char*val)
150 fprintf(stderr, "Only one file allowed. You supplied at least two. (%s and %s)\n",
157 U8 mainr,maing,mainb;
158 /* 1 = used, not expanded,
160 5 = wanted, not expanded
168 void idcallback(void*data)
170 if(!(used[GET16(data)]&1)) {
172 used[GET16(data)] |= 1;
176 void enumerateIDs(TAG*tag, void(*callback)(void*))
182 data = (U8*)malloc(len);
183 PUT16(data, (tag->id<<6)+63);
184 *(U8*)&data[2] = tag->len;
185 *(U8*)&data[3] = tag->len>>8;
186 *(U8*)&data[4] = tag->len>>16;
187 *(U8*)&data[5] = tag->len>>24;
188 memcpy(&data[6], tag->data, tag->len);
191 data = (U8*)malloc(len);
192 PUT16(data, (tag->id<<6)+tag->len);
193 memcpy(&data[2], tag->data, tag->len);
195 map_ids_mem(data, len, callback);
198 void extractTag(SWF*swf, char*filename)
209 memset(&newswf,0x00,sizeof(SWF)); // set global movie parameters
211 newswf.fileVersion = swf->fileVersion;
212 newswf.frameRate = swf->frameRate;
213 newswf.movieSize = swf->movieSize;
215 newswf.firstTag = swf_InsertTag(NULL,ST_SETBACKGROUNDCOLOR);
216 desttag = newswf.firstTag;
220 swf_SetRGB(desttag,&rgb);
224 for(t=0;t<65536;t++) {
225 if(used[t] && !(used[t]&2)) {
226 if(tags[t]->id==ST_DEFINESPRITE) {
228 while(tag->id != ST_END)
230 enumerateIDs(tag, idcallback);
235 enumerateIDs(tags[t], idcallback);
242 srctag = swf->firstTag;
245 while(srctag && (srctag->id || sprite)) {
250 if(srctag->id == ST_END) {
253 if(srctag->id == ST_DEFINESPRITE)
255 if(swf_isDefiningTag(srctag)) {
256 int id = swf_GetDefineID(srctag);
260 if (((srctag->id == ST_PLACEOBJECT ||
261 srctag->id == ST_PLACEOBJECT2 ||
262 srctag->id == ST_STARTSOUND) && (used[swf_GetPlaceID(srctag)]&4) ) ||
263 (swf_isPseudoDefiningTag(srctag) && used[swf_GetDefineID(srctag)]) ||
270 if(srctag->id == ST_REMOVEOBJECT) {
271 if(!used[swf_GetPlaceID(srctag)])
276 TAG*ttag = (TAG*)malloc(sizeof(TAG));
277 desttag = swf_InsertTag(desttag, srctag->id);
278 desttag->len = desttag->memsize = srctag->len;
279 desttag->data = malloc(srctag->len);
280 memcpy(desttag->data, srctag->data, srctag->len);
285 srctag = srctag->next;
288 if(!extractframes && !hollow)
289 desttag = swf_InsertTag(desttag,ST_SHOWFRAME);
291 desttag = swf_InsertTag(desttag,ST_END);
293 f = open(filename, O_TRUNC|O_WRONLY|O_CREAT, 0644);
294 if FAILED(swf_WriteSWF(f,&newswf)) fprintf(stderr,"WriteSWF() failed.\n");
297 swf_FreeTags(&newswf); // cleanup
300 void listObjects(SWF*swf)
306 char*names[] = {"Shapes","MovieClips","JPEGs","PNGs","Sounds","Frames"};
307 printf("Objects in file %s:\n",filename);
315 (tag->id == ST_DEFINESHAPE ||
316 tag->id == ST_DEFINESHAPE2 ||
317 tag->id == ST_DEFINESHAPE3)) {
319 sprintf(text,"%d", swf_GetDefineID(tag));
322 if(tag->id == ST_DEFINESPRITE) {
325 sprintf(text,"%d", swf_GetDefineID(tag));
328 while(tag->id != ST_END)
332 if(t == 2 && (tag->id == ST_DEFINEBITS ||
333 tag->id == ST_DEFINEBITSJPEG2 ||
334 tag->id == ST_DEFINEBITSJPEG3)) {
336 sprintf(text,"%d", swf_GetDefineID(tag));
339 if(t == 3 && (tag->id == ST_DEFINEBITSLOSSLESS ||
340 tag->id == ST_DEFINEBITSLOSSLESS2)) {
342 sprintf(text,"%d", swf_GetDefineID(tag));
346 if(t == 4 && (tag->id == ST_DEFINESOUND)) {
348 sprintf(text,"%d", swf_GetDefineID(tag));
351 if(t == 5 && (tag->id == ST_SHOWFRAME)) {
353 sprintf(text,"%d", frame);
361 printf("%s: ", names[t]);
375 void handlejpegtables(TAG*tag)
377 if(tag->id == ST_JPEGTABLES) {
378 jpegtables = tag->data;
379 jpegtablessize = tag->len;
383 FILE* save_fopen(char* name, char* mode)
385 FILE*fi = fopen(name, mode);
387 fprintf(stderr, "Error: Couldn't open %s\n", name);
393 int findjpegboundary(U8*data, int len)
408 /* extract jpeg data out of a tag */
409 void handlejpeg(TAG*tag)
413 sprintf(name, "pic%d.jpeg", GET16(tag->data));
414 /* swf jpeg images have two streams, which both start with ff d8 and
415 end with ff d9. The following code handles sorting the middle
416 <ff d9 ff d8> bytes out, so that one stream remains */
417 if(tag->id == ST_DEFINEBITS && tag->len>2 && jpegtables) {
418 fi = save_fopen(name, "wb");
419 fwrite(jpegtables, 1, jpegtablessize-2, fi); //don't write end tag (ff,d8)
420 fwrite(&tag->data[2+2], tag->len-2-2, 1, fi); //don't write start tag (ff,d9)
423 if(tag->id == ST_DEFINEBITSJPEG2 && tag->len>2) {
425 int pos = findjpegboundary(&tag->data[2], tag->len-2);
429 fi = save_fopen(name, "wb");
430 fwrite(&tag->data[2], pos-2, 1, fi);
431 fwrite(&tag->data[pos+4], end-(pos+4), 1, fi);
434 if(tag->id == ST_DEFINEBITSJPEG3 && tag->len>6) {
435 U32 end = GET32(&tag->data[2])+6;
436 int pos = findjpegboundary(&tag->data[6], tag->len-6);
440 fi = save_fopen(name, "wb");
441 fwrite(&tag->data[6], pos-6, 1, fi);
442 fwrite(&tag->data[pos+4], end-(pos+4), 1, fi);
447 #ifdef _ZLIB_INCLUDED_
450 static U32*crc32_table = 0;
451 static void make_crc32_table(void)
456 crc32_table = (U32*)malloc(1024);
458 for (t = 0; t < 256; t++) {
461 for (s = 0; s < 8; s++) {
462 c = (0xedb88320L*(c&1)) ^ (c >> 1);
467 static void png_write_byte(FILE*fi, U8 byte)
469 fwrite(&byte,1,1,fi);
470 mycrc32 = crc32_table[(mycrc32 ^ byte) & 0xff] ^ (mycrc32 >> 8);
472 static void png_start_chunk(FILE*fi, char*type, int len)
474 U8 mytype[4]={0,0,0,0};
475 U32 mylen = REVERSESWAP32(len);
476 memcpy(mytype,type,strlen(type));
477 fwrite(&mylen, 4, 1, fi);
479 png_write_byte(fi,mytype[0]);
480 png_write_byte(fi,mytype[1]);
481 png_write_byte(fi,mytype[2]);
482 png_write_byte(fi,mytype[3]);
484 static void png_write_bytes(FILE*fi, U8*bytes, int len)
488 png_write_byte(fi,bytes[t]);
490 static void png_write_dword(FILE*fi, U32 dword)
492 png_write_byte(fi,dword>>24);
493 png_write_byte(fi,dword>>16);
494 png_write_byte(fi,dword>>8);
495 png_write_byte(fi,dword);
497 static void png_end_chunk(FILE*fi)
499 U32 tmp = REVERSESWAP32((mycrc32^0xffffffff));
504 /* extract a lossless image (png) out of a tag
505 This routine was originally meant to be a one-pager. I just
506 didn't know png is _that_ much fun. :) -mk
508 void handlelossless(TAG*tag)
525 U8 head[] = {137,80,78,71,13,10,26,10};
527 char alpha = tag->id == ST_DEFINEBITSLOSSLESS2;
535 if(tag->id != ST_DEFINEBITSLOSSLESS &&
536 tag->id != ST_DEFINEBITSLOSSLESS2)
540 format = swf_GetU8(tag);
541 if(format == 3) bpp = 8;
542 if(format == 4) bpp = 16;
543 if(format == 5) bpp = 32;
544 if(format!=3 && format!=5) {
546 fprintf(stderr, "Can't handle 16-bit palette images yet (image %d)\n",id);
548 fprintf(stderr, "Unknown image type %d in image %d\n", format, id);
551 width = swf_GetU16(tag);
552 height = swf_GetU16(tag);
553 if(format == 3) cols = swf_GetU8(tag) + 1;
554 // this is what format means according to the flash specification. (which is
556 // if(format == 4) cols = swf_GetU16(tag) + 1;
557 // if(format == 5) cols = swf_GetU32(tag) + 1;
560 logf("<verbose> Width %d", width);
561 logf("<verbose> Height %d", height);
562 logf("<verbose> Format %d", format);
563 logf("<verbose> Cols %d", cols);
564 logf("<verbose> Bpp %d", bpp);
566 datalen = (width*height*bpp/8+cols*8);
571 data = malloc(datalen);
572 error = uncompress (data, &datalen, &tag->data[tag->pos], tag->len-tag->pos);
573 } while(error == Z_BUF_ERROR);
575 fprintf(stderr, "Zlib error %d (image %d)\n", error, id);
578 logf("<verbose> Uncompressed image is %d bytes (%d colormap)", datalen, (3+alpha)*cols);
581 data2 = malloc(datalen2);
582 palette = (RGBA*)malloc(cols*sizeof(RGBA));
584 for(t=0;t<cols;t++) {
585 palette[t].r = data[pos++];
586 palette[t].g = data[pos++];
587 palette[t].b = data[pos++];
589 palette[t].a = data[pos++];
593 sprintf(name, "pic%d.png", id);
594 fi = save_fopen(name, "wb");
595 fwrite(head,sizeof(head),1,fi);
597 png_start_chunk(fi, "IHDR", 13);
598 png_write_dword(fi,width);
599 png_write_dword(fi,height);
600 png_write_byte(fi,8);
602 png_write_byte(fi,3); //indexed
604 png_write_byte(fi,2); //rgb
607 png_write_byte(fi,0); //compression mode
608 png_write_byte(fi,0); //filter mode
609 png_write_byte(fi,0); //interlace mode
613 png_start_chunk(fi, "PLTE", 768);
615 png_write_byte(fi,palette[t].r);
616 png_write_byte(fi,palette[t].g);
617 png_write_byte(fi,palette[t].b);
624 int srcwidth = width * (bpp/8);
625 datalen3 = width*height*4;
626 data3 = (U8*)malloc(datalen3);
627 for(y=0;y<height;y++)
629 data3[pos2++]=0; //filter type
631 // 32 bit to 24 bit "conversion"
632 for(x=0;x<width;x++) {
633 data3[pos2++]=data[pos+1];
634 data3[pos2++]=data[pos+2];
635 data3[pos2++]=data[pos+3];
636 pos+=4; //ignore padding byte
640 for(x=0;x<srcwidth;x++)
641 data3[pos2++]=data[pos++];
644 pos+=((srcwidth+3)&~3)-srcwidth; //align
649 if(compress (data2, &datalen2, data3, datalen3) != Z_OK) {
650 fprintf(stderr, "zlib error in pic %d\n", id);
653 logf("<verbose> Compressed data is %d bytes", datalen2);
654 png_start_chunk(fi, "IDAT", datalen2);
655 png_write_bytes(fi,data2,datalen2);
657 png_start_chunk(fi, "IEND", 0);
667 void handlesoundstream(TAG*tag)
669 char*filename = "output.mp3";
671 filename = destfilename;
672 if(!strcmp(filename,"output.swf"))
673 filename = "output.mp3";
676 case ST_SOUNDSTREAMHEAD:
677 if((tag->data[1]&0x30) == 0x20) { //mp3 compression
678 mp3file = fopen(filename, "wb");
679 logf("<notice> Writing mp3 data to %s",filename);
682 logf("<error> Soundstream is not mp3");
684 case ST_SOUNDSTREAMHEAD2:
685 if((tag->data[1]&0x30) == 0x20) {//mp3 compression
686 mp3file = fopen("mainstream.mp3", "wb");
687 logf("<notice> Writing mp3 data to %s",filename);
690 logf("<error> Soundstream is not mp3 (2)");
692 case ST_SOUNDSTREAMBLOCK:
694 fwrite(&tag->data[4],tag->len-4,1,mp3file);
699 int main (int argc,char ** argv)
708 char listavailable = 0;
709 processargs(argc, argv);
711 if(!extractframes && !extractids && ! extractname && !extractjpegids && !extractpngids
717 fprintf(stderr, "You must supply a filename.\n");
720 initLog(0,-1,0,0,-1, verbose);
722 f = open(filename,O_RDONLY);
726 perror("Couldn't open file: ");
729 if (swf_ReadSWF(f,&swf) < 0)
731 fprintf(stderr, "%s is not a valid SWF file or contains errors.\n",filename);
750 tagused = (char*)malloc(tagnum);
751 memset(tagused, 0, tagnum);
752 memset(used, 0, 65536);
753 memset(depths, 0, 65536);
758 if(swf_isAllowedSpriteTag(tag)) {
760 if(extractframes && is_in_range(frame, extractframes)) {
762 if(tag->id == ST_PLACEOBJECT || tag->id == ST_PLACEOBJECT2) {
763 depths[swf_GetDepth(tag)] = 1;
765 if(tag->id == ST_REMOVEOBJECT || tag->id == ST_REMOVEOBJECT2) {
766 int depth = swf_GetDepth(tag);
769 depths[swf_GetDepth(tag)] = 0;
772 if((tag->id == ST_REMOVEOBJECT || tag->id == ST_REMOVEOBJECT2) &&
773 (depths[swf_GetDepth(tag)]) && hollow) {
775 depths[swf_GetDepth(tag)] = 0;
779 enumerateIDs(tag, idcallback);
785 if(tag->id == ST_SOUNDSTREAMHEAD ||
786 tag->id == ST_SOUNDSTREAMHEAD2 ||
787 tag->id == ST_SOUNDSTREAMBLOCK) {
788 handlesoundstream(tag);
791 if(tag->id == ST_JPEGTABLES)
792 handlejpegtables(tag);
794 if(swf_isDefiningTag(tag)) {
795 int id = swf_GetDefineID(tag);
797 if(extractids && is_in_range(id, extractids)) {
801 if(extractjpegids && is_in_range(id, extractjpegids)) {
804 #ifdef _ZLIB_INCLUDED_
805 if(extractpngids && is_in_range(id, extractpngids)) {
810 else if (tag->id == ST_SETBACKGROUNDCOLOR) {
811 mainr = tag->data[0];
812 maing = tag->data[1];
813 mainb = tag->data[2];
815 else if(tag->id == ST_PLACEOBJECT2) {
816 char*name = swf_GetName(tag);
817 if(name && extractname && !strcmp(name, extractname)) {
818 int id = swf_GetPlaceID(tag);
822 depths[swf_GetDepth(tag)] = 1;
825 else if(tag->id == ST_SHOWFRAME) {
833 if(tag->id == ST_DEFINESPRITE) {
834 while(tag->id != ST_END) {
843 extractTag(&swf, destfilename);