added animated gif support (Daichi Shinozaki)
[swftools.git] / src / swfdump.c
1 /* swfdump.c
2    Shows the structure of a swf file
3
4    Part of the swftools package.
5    
6    Copyright (c) 2001 Matthias Kramm <kramm@quiss.org>
7  
8    This program is free software; you can redistribute it and/or modify
9    it under the terms of the GNU General Public License as published by
10    the Free Software Foundation; either version 2 of the License, or
11    (at your option) any later version.
12
13    This program is distributed in the hope that it will be useful,
14    but WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16    GNU General Public License for more details.
17
18    You should have received a copy of the GNU General Public License
19    along with this program; if not, write to the Free Software
20    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
21
22 #include "../config.h"
23
24 #ifdef HAVE_SYS_STAT_H
25 #include <sys/stat.h>
26 #else
27 #undef HAVE_STAT
28 #endif
29
30 #ifdef HAVE_SYS_TYPES_H
31 #include <sys/types.h>
32 #else
33 #undef HAVE_STAT
34 #endif
35
36 #include <unistd.h>
37 #include <stdio.h>
38 #include <fcntl.h>
39 #include <stdarg.h>
40 #include "../lib/rfxswf.h"
41 #include "../lib/args.h"
42
43 static char * filename = 0;
44
45 /* idtab stores the ids which are defined in the file. This allows us
46    to detect errors in the file. (i.e. ids which are defined more than 
47    once */
48 static char idtab[65536];
49 static char * indent = "                ";
50
51 static int placements = 0;
52 static int action = 0;
53 static int html = 0;
54 static int xy = 0;
55 static int showtext = 0;
56 static int showshapes = 0;
57 static int hex = 0;
58 static int used = 0;
59 static int bbox = 0;
60
61 static struct options_t options[] = {
62 {"h", "help"},
63 {"D", "full"},
64 {"V", "version"},
65 {"e", "html"},
66 {"a", "action"},
67 {"t", "text"},
68 {"s", "shapes"},
69 {"p", "placements"},
70 {"X", "width"},
71 {"Y", "height"},
72 {"r", "rate"},
73 {"f", "frames"},
74 {"b", "bbox"},
75 {"d", "hex"},
76 {"u", "used"},
77 {0,0}
78 };
79
80 int args_callback_option(char*name,char*val)
81 {
82     if(!strcmp(name, "V")) {
83         printf("swfdump - part of %s %s\n", PACKAGE, VERSION);
84         exit(0);
85     } 
86     else if(name[0]=='a') {
87         action = 1;
88         return 0;
89     }
90     else if(name[0]=='p') {
91         placements = 1;
92         return 0;
93     }
94     else if(name[0]=='t') {
95         showtext = 1;
96         return 0;
97     }
98     else if(name[0]=='s') {
99         showshapes = 1;
100         return 0;
101     }
102     else if(name[0]=='e') {
103         html = 1;
104         return 0;
105     }
106     else if(name[0]=='X') {
107         xy |= 1;
108         return 0;
109     }
110     else if(name[0]=='Y') {
111         xy |= 2;
112         return 0;
113     }
114     else if(name[0]=='r') {
115         xy |= 4;
116         return 0;
117     }
118     else if(name[0]=='f') {
119         xy |= 8;
120         return 0;
121     }
122     else if(name[0]=='d') {
123         hex = 1;
124         return 0;
125     }
126     else if(name[0]=='u') {
127         used = 1;
128         return 0;
129     }
130     else if(name[0]=='b') {
131         bbox = 1;
132         return 0;
133     }
134     else if(name[0]=='D') {
135         action = placements = showtext = showshapes = 1;
136         return 0;
137     }
138     else {
139         printf("Unknown option: -%s\n", name);
140         exit(1);
141     }
142
143     return 0;
144 }
145 int args_callback_longoption(char*name,char*val)
146 {
147     return args_long2shortoption(options, name, val);
148 }
149 void args_callback_usage(char *name)
150 {
151     printf("\n");
152     printf("Usage: %s [-atpdu] file.swf\n", name);
153     printf("\n");
154     printf("-h , --help                    Print short help message and exit\n");
155     printf("-D , --full                    Show everything. Same as -atp\n");
156     printf("-V , --version                 Print version info and exit\n");
157     printf("-e , --html                    Print out html code for embedding the file\n");
158     printf("-a , --action                  Disassemble action tags\n");
159     printf("-t , --text                    Show text fields (like swfstrings).\n");
160     printf("-s , --shapes                  Show shape coordinates/styles\n");
161     printf("-p , --placements              Show placement information\n");
162     printf("-X , --width                   Prints out a string of the form \"-X width\".\n");
163     printf("-Y , --height                  Prints out a string of the form \"-Y height\".\n");
164     printf("-r , --rate                    Prints out a string of the form \"-r rate\".\n");
165     printf("-f , --frames                  Prints out a string of the form \"-f framenum\".\n");
166     printf("-d , --hex                     Print hex output of tag data, too.\n");
167     printf("-u , --used                    Show referred IDs for each Tag.\n");
168     printf("\n");
169 }
170 int args_callback_command(char*name,char*val)
171 {
172     if(filename) {
173         fprintf(stderr, "Only one file allowed. You supplied at least two. (%s and %s)\n",
174                  filename, name);
175     }
176     filename = name;
177     return 0;
178 }
179
180 char* what;
181 char* testfunc(char*str)
182 {
183     printf("%s: %s\n", what, str);
184     return 0;
185 }
186
187 void dumpButton2Actions(TAG*tag, char*prefix)
188 {
189     U32 oldTagPos;
190     U32 offsetpos;
191     U32 condition;
192
193     oldTagPos = swf_GetTagPos(tag);
194
195     // scan DefineButton2 Record
196     
197     swf_GetU16(tag);          // Character ID
198     swf_GetU8(tag);           // Flags;
199
200     offsetpos = swf_GetTagPos(tag);  // first offset
201     swf_GetU16(tag);
202
203     while (swf_GetU8(tag))      // state  -> parse ButtonRecord
204     { swf_GetU16(tag);          // id
205       swf_GetU16(tag);          // layer
206       swf_GetMatrix(tag,NULL);  // matrix
207       swf_GetCXForm(tag,NULL,1);  // cxform
208     }
209
210     while(offsetpos)
211     { U8 a;
212       ActionTAG*actions;
213
214       if(tag->pos >= tag->len)
215           break;
216         
217       offsetpos = swf_GetU16(tag);
218       condition = swf_GetU16(tag);                // condition
219       
220       actions = swf_ActionGet(tag);
221       printf("%s condition %04x\n", prefix, condition);
222       swf_DumpActions(actions, prefix);
223     }
224     
225     swf_SetTagPos(tag,oldTagPos);
226     return;
227 }
228
229 void dumpButtonActions(TAG*tag, char*prefix)
230 {
231     ActionTAG*actions;
232     swf_GetU16(tag); // id
233     while (swf_GetU8(tag))      // state  -> parse ButtonRecord
234     { swf_GetU16(tag);          // id
235       swf_GetU16(tag);          // layer
236       swf_GetMatrix(tag,NULL);  // matrix
237     }
238     actions = swf_ActionGet(tag);
239     swf_DumpActions(actions, prefix);
240 }
241
242 SWF swf;
243 int fontnum = 0;
244 SWFFONT**fonts;
245
246 void textcallback(void*self, int*glyphs, int*ypos, int nr, int fontid, int fontsize, int startx, int starty, RGBA*color) 
247 {
248     int font=-1,t;
249     printf("                <%2d glyphs in font %2d, color #%02x%02x%02x%02x> ",nr, fontid, color->r, color->g, color->b, color->a);
250     for(t=0;t<fontnum;t++)
251     {
252         if(fonts[t]->id == fontid) {
253             font = t;
254             break;
255         }
256     }
257
258     for(t=0;t<nr;t++)
259     {
260         unsigned char a; 
261         if(font>=0) {
262             if(glyphs[t] >= fonts[font]->numchars  /*glyph is in range*/
263                     || !fonts[font]->glyph2ascii /* font has ascii<->glyph mapping */
264               ) a = glyphs[t];
265             else
266                 a = fonts[font]->glyph2ascii[glyphs[t]];
267         } else {
268             a = glyphs[t];
269         }
270         if(a>=32)
271             printf("%c", a);
272         else
273             printf("\\x%x", (int)a);
274     }
275     printf("\n");
276 }
277
278 void handleText(TAG*tag) 
279 {
280   printf("\n");
281   swf_ParseDefineText(tag,textcallback, 0);
282 }
283             
284 void handleDefineSound(TAG*tag)
285 {
286     U16 id = swf_GetU16(tag);
287     U8 flags = swf_GetU8(tag);
288     int compression = (flags>>4)&3;
289     int rate = (flags>>2)&3;
290     int bits = flags&2?16:8;
291     int stereo = flags&1;
292     printf(" (");
293     if(compression == 0) printf("Raw ");
294     else if(compression == 1) printf("ADPCM ");
295     else if(compression == 2) printf("MP3 ");
296     else printf("? ");
297     if(rate == 0) printf("5.5Khz ");
298     if(rate == 1) printf("11Khz ");
299     if(rate == 2) printf("22Khz ");
300     if(rate == 3) printf("44Khz ");
301     printf("%dBit ", bits);
302     if(stereo) printf("stereo");
303     else printf("mono");
304     printf(")");
305 }
306
307 void handleDefineBits(TAG*tag)
308 {
309     U16 id;
310     U8 mode;
311     U16 width,height;
312     int bpp;
313     id = swf_GetU16(tag);
314     mode = swf_GetU8(tag);
315     width = swf_GetU16(tag);
316     height = swf_GetU16(tag);
317     printf(" image %dx%d",width,height);
318     if(mode == 3) printf(" (8 bpp)");
319     else if(mode == 4) printf(" (16 bpp)");
320     else if(mode == 5) printf(" (32 bpp)");
321     else printf(" (? bpp)");
322 }
323
324 void handleEditText(TAG*tag)
325 {
326     U16 id ;
327     U16 flags;
328     int t;
329     id = swf_GetU16(tag);
330     swf_GetRect(tag,0);
331     
332     //swf_ResetReadBits(tag);
333
334     if (tag->readBit)  
335     { tag->pos++; 
336       tag->readBit = 0; 
337     }
338     flags = swf_GetBits(tag,16);
339     if(flags & ET_HASFONT) {
340         swf_GetU16(tag); //font
341         swf_GetU16(tag); //fontheight
342     }
343     if(flags & ET_HASTEXTCOLOR) {
344         swf_GetU8(tag); //rgba
345         swf_GetU8(tag);
346         swf_GetU8(tag);
347         swf_GetU8(tag);
348     }
349     if(flags & ET_HASMAXLENGTH) {
350         swf_GetU16(tag); //maxlength
351     }
352     if(flags & ET_HASLAYOUT) {
353         swf_GetU8(tag); //align
354         swf_GetU16(tag); //left margin
355         swf_GetU16(tag); //right margin
356         swf_GetU16(tag); //indent
357         swf_GetU16(tag); //leading
358     }
359     printf(" variable \"%s\" ", &tag->data[tag->pos]);
360     if(flags & ET_HTML) printf("(html)");
361     if(flags & ET_NOSELECT) printf("(noselect)");
362     if(flags & ET_PASSWORD) printf("(password)");
363     if(flags & ET_READONLY) printf("(readonly)");
364
365     if(flags & (ET_X1 | ET_X3 ))
366     {
367         printf(" undefined flags: %08x (%08x)", (flags&(ET_X1|ET_X3)), flags);
368     }
369     
370     while(tag->data[tag->pos++]);
371     if(flags & ET_HASTEXT)
372    //  printf(" text \"%s\"\n", &tag->data[tag->pos]) //TODO
373         ;
374 }
375 void printhandlerflags(U32 handlerflags) 
376 {
377     if(handlerflags&1) printf("[on load]");
378     if(handlerflags&2) printf("[enter frame]");
379     if(handlerflags&4) printf("[unload]");
380     if(handlerflags&8) printf("[mouse move]");
381     if(handlerflags&16) printf("[mouse down]");
382     if(handlerflags&32) printf("[mouse up]");
383     if(handlerflags&64) printf("[key down]");
384     if(handlerflags&128) printf("[key up]");
385
386     if(handlerflags&256) printf("[data]");
387     if(handlerflags&512) printf("[initialize]");
388     if(handlerflags&1024) printf("[mouse press]");
389     if(handlerflags&2048) printf("[mouse release]");
390     if(handlerflags&4096) printf("[mouse release outside]");
391     if(handlerflags&8192) printf("[mouse rollover]");
392     if(handlerflags&16384) printf("[mouse rollout]");
393     if(handlerflags&32768) printf("[mouse drag over]");
394
395     if(handlerflags&0x10000) printf("[mouse drag out]");
396     if(handlerflags&0x20000) printf("[key press]");
397     if(handlerflags&0x40000) printf("[construct even]");
398     if(handlerflags&0xfff80000) printf("[???]");
399 }
400 void handleVideoStream(TAG*tag, char*prefix)
401 {
402     U16 id = swf_GetU16(tag);
403     U16 frames = swf_GetU16(tag);
404     U16 width = swf_GetU16(tag);
405     U16 height = swf_GetU16(tag);
406     U8 flags = swf_GetU8(tag); //5-2(videopacket 01=off 10=on)-1(smoothing 1=on)
407     U8 codec = swf_GetU8(tag);
408     printf(" (%d frames, %dx%d", frames, width, height);
409     if(flags&1)
410         printf(" smoothed");
411     if(codec == 2)
412         printf(" sorenson h.263)");
413     else
414         printf(" codec 0x%02x)", codec);
415 }
416 void handleVideoFrame(TAG*tag, char*prefix)
417 {
418     U32 code, version, reference, sizeflags;
419     U32 width=0, height=0;
420     U8 type;
421     U16 id = swf_GetU16(tag);
422     U16 frame = swf_GetU16(tag);
423     U8 deblock,flags, tmp, bit;
424     U32 quantizer;
425     char*types[] = {"I-frame", "P-frame", "disposable P-frame", "<reserved>"};
426     printf(" (frame %d) ", frame);
427
428     /* video packet follows */
429     code = swf_GetBits(tag, 17);
430     version = swf_GetBits(tag, 5);
431     reference = swf_GetBits(tag, 8);
432
433     sizeflags = swf_GetBits(tag, 3);
434     switch(sizeflags)
435     {
436         case 0: width = swf_GetBits(tag, 8); height = swf_GetBits(tag, 8); break;
437         case 1: width = swf_GetBits(tag, 16); height = swf_GetBits(tag, 16); break;
438         case 2: width = 352; height = 288; break;
439         case 3: width = 176; height = 144; break;
440         case 4: width = 128; height = 96; break;
441         case 5: width = 320; height = 240; break;
442         case 6: width = 160; height = 120; break;
443         case 7: width = -1; height = -1;/*reserved*/ break;
444     }
445     printf("%dx%d ", width, height);
446     type = swf_GetBits(tag, 2);
447     printf("%s", types[type]);
448
449     deblock = swf_GetBits(tag, 1);
450     if(deblock)
451         printf(" deblock ", deblock);
452     quantizer = swf_GetBits(tag, 5);
453     printf(" quant: %d ", quantizer);
454 }
455
456 void handlePlaceObject2(TAG*tag, char*prefix)
457 {
458     U8 flags = swf_GetU8(tag);
459     MATRIX m;
460     CXFORM cx;
461     char pstr[3][160];
462     int ppos[3] = {0,0,0};
463     swf_GetU16(tag); //depth
464
465     //flags&1: move
466     if(flags&2) swf_GetU16(tag); //id
467     if(flags&4) {
468         swf_GetMatrix(tag,&m);
469         if(placements) {
470             ppos[0] += sprintf(pstr[0], "| Matrix             ");
471             ppos[1] += sprintf(pstr[1], "| %5.3f %5.3f %6.2f ", m.sx/65536.0, m.r1/65536.0, m.tx/20.0);
472             ppos[2] += sprintf(pstr[2], "| %5.3f %5.3f %6.2f ", m.r0/65536.0, m.sy/65536.0, m.ty/20.0);
473         }
474     }
475     if(flags&8) {
476         swf_GetCXForm(tag, &cx, 1);
477         if(placements) {
478             ppos[0] += sprintf(pstr[0]+ppos[0], "| CXForm    r    g    b    a ");
479             ppos[1] += sprintf(pstr[1]+ppos[1], "| mul    %4.1f %4.1f %4.1f %4.1f ", cx.r0/256.0, cx.g0/256.0, cx.b0/256.0, cx.a0/256.0);
480             ppos[2] += sprintf(pstr[2]+ppos[2], "| add    %4d %4d %4d %4d ", cx.r1, cx.g1, cx.b1, cx.a1);
481         }
482     }
483     if(flags&16) {
484         U16 ratio = swf_GetU16(tag); //ratio
485         if(placements) {
486             ppos[0] += sprintf(pstr[0]+ppos[0], "| Ratio ");
487             ppos[1] += sprintf(pstr[1]+ppos[1], "| %-5d ", ratio);
488             ppos[2] += sprintf(pstr[2]+ppos[2], "|       ");
489         }
490     }
491     if(flags&64) {
492         U16 clip = swf_GetU16(tag); //clip
493         if(placements) {
494             ppos[0] += sprintf(pstr[0]+ppos[0], "| Clip  ");
495             ppos[1] += sprintf(pstr[1]+ppos[1], "| %-5d ", clip);
496             ppos[2] += sprintf(pstr[2]+ppos[2], "|       ");
497         }
498     }
499     if(flags&32) { while(swf_GetU8(tag)); }
500     if(placements && ppos[0]) {
501         printf("\n");
502         printf("%s %s\n", prefix, pstr[0]);
503         printf("%s %s\n", prefix, pstr[1]);
504         printf("%s %s", prefix, pstr[2]);
505     }
506     if(flags&128) {
507       if (action) {
508         U16 reserved;
509         U32 globalflags;
510         U32 handlerflags;
511         char is32 = 0;
512         printf("\n");
513         reserved = swf_GetU16(tag); // must be 0
514         globalflags = swf_GetU16(tag); //TODO: 32 if version>=6
515         if(reserved) {
516             printf("Unknown parameter field not zero: %04x\n", reserved);
517             return;
518         }
519         printf("global flags: %04x\n", globalflags);
520
521         handlerflags = swf_GetU16(tag); //TODO: 32 if version>=6
522         if(!handlerflags) {
523             handlerflags = swf_GetU32(tag);
524             is32 = 1;
525         }
526         while(handlerflags)  {
527             int length;
528             int t;
529             ActionTAG*a;
530
531             globalflags &= ~handlerflags;
532             printf("%s flags %08x ",prefix, handlerflags);
533             printhandlerflags(handlerflags);
534             length = swf_GetU32(tag);
535             printf(", %d bytes actioncode\n",length);
536             a = swf_ActionGet(tag);
537             swf_DumpActions(a,prefix);
538             swf_ActionFree(a);
539
540             handlerflags = is32?swf_GetU32(tag):swf_GetU16(tag); //TODO: 32 if version>=6
541         }
542         if(globalflags) // should go to sterr.
543             printf("ERROR: unsatisfied handlerflags: %02x\n", globalflags);
544     } else {
545       printf(" has action code\n");
546     }
547     } else printf("\n");
548 }
549
550 void handlePlaceObject(TAG*tag, char*prefix)
551 {
552     TAG*tag2 = swf_InsertTag(0, ST_PLACEOBJECT2);
553
554     U16 id = swf_GetU16(tag);
555     U16 depth = swf_GetU16(tag);
556     MATRIX matrix; 
557     CXFORM cxform;
558     swf_GetMatrix(tag, &matrix);
559     swf_GetCXForm(tag, &cxform, 0);
560
561     swf_SetU8(tag2, 14);
562     swf_SetU16(tag2, depth);
563     swf_SetMatrix(tag2, &matrix);
564     swf_SetCXForm(tag2, &cxform, 1);
565
566     handlePlaceObject2(tag2, prefix);
567 }
568 char stylebuf[256];
569 char* fillstyle2str(FILLSTYLE*style)
570 {
571     switch(style->type) {
572         case 0x00:
573             sprintf(stylebuf, "SOLID %02x%02x%02x%02x", style->color.r, style->color.g, style->color.b, style->color.a);
574             break;
575         case 0x10: case 0x12:
576             sprintf(stylebuf, "GRADIENT (%d steps)", style->gradient.num);
577             break;
578         case 0x40: case 0x41:
579             /* TODO: display information about that bitmap */
580             sprintf(stylebuf, "BITMAP %d", style->id_bitmap);
581             break;
582         default:
583             sprintf(stylebuf, "UNKNOWN[%02x]",style->type);
584     }
585     return stylebuf;
586 }
587 char* linestyle2str(LINESTYLE*style)
588 {
589     sprintf(stylebuf, "%.2f %02x%02x%02x%02x", style->width/20.0, style->color.r, style->color.g, style->color.b, style->color.a);
590     return stylebuf;
591 }
592
593 void handleShape(TAG*tag, char*prefix)
594 {
595     SHAPE2 shape;
596     SHAPELINE*line;
597     int t,max;
598
599     tag->pos = 0;
600     tag->readBit = 0;
601     swf_ParseDefineShape(tag, &shape);
602
603     max = shape.numlinestyles > shape.numfillstyles?shape.numlinestyles:shape.numfillstyles;
604
605     if(max) printf("%s | fillstyles(%02d)        linestyles(%02d)\n", 
606             prefix,
607             shape.numfillstyles,
608             shape.numlinestyles
609             );
610     else    printf("%s | (Neither line nor fill styles)\n", prefix);
611
612     for(t=0;t<max;t++) {
613         printf("%s", prefix);
614         if(t < shape.numfillstyles) {
615             printf(" | %-2d) %-18.18s", t+1, fillstyle2str(&shape.fillstyles[t]));
616         } else {
617             printf("                         ");
618         }
619         if(t < shape.numlinestyles) {
620             printf("%-2d) %s", t+1, linestyle2str(&shape.linestyles[t]));
621         }
622         printf("\n");
623     }
624
625     printf("%s |\n", prefix);
626
627     line = shape.lines;
628     while(line) {
629         printf("%s | fill: %02d/%02d line:%02d - ",
630                 prefix, 
631                 line->fillstyle0,
632                 line->fillstyle1,
633                 line->linestyle);
634         if(line->type == moveTo) {
635             printf("moveTo %.2f %.2f\n", line->x/20.0, line->y/20.0);
636         } else if(line->type == lineTo) {
637             printf("lineTo %.2f %.2f\n", line->x/20.0, line->y/20.0);
638         } else if(line->type == splineTo) {
639             printf("splineTo (%.2f %.2f) %.2f %.2f\n", 
640                     line->sx/20.0, line->sy/20.0,
641                     line->x/20.0, line->y/20.0
642                     );
643         }
644         line = line->next;
645     }
646     printf("%s |\n", prefix);
647 }
648     
649 void fontcallback1(void*self, U16 id,U8 * name)
650 { fontnum++;
651 }
652
653 void fontcallback2(void*self, U16 id,U8 * name)
654
655   swf_FontExtract(&swf,id,&fonts[fontnum]);
656   fontnum++;
657 }
658
659 static U8 printable(U8 a)
660 {
661     if(a<32 || a==127) return '.';
662     else return a;
663 }
664 void hexdumpTag(TAG*tag, char* prefix)
665 {
666     int t;
667     char ascii[32];
668     printf("                %s-=> ",prefix);
669     for(t=0;t<tag->len;t++) {
670         printf("%02x ", tag->data[t]);
671         ascii[t&15] = printable(tag->data[t]);
672         if((t && ((t&15)==15)) || (t==tag->len-1))
673         {
674             int s,p=((t)&15)+1;
675             ascii[p] = 0;
676             for(s=p-1;s<16;s++) {
677                 printf("   ");
678             }
679             if(t==tag->len-1)
680                 printf(" %s\n", ascii);
681             else
682                 printf(" %s\n                %s-=> ",ascii,prefix);
683         }
684     }
685 }
686
687 void handleExportAssets(TAG*tag, char* prefix)
688 {
689     int num;
690     U16 id;
691     char* name;
692     int t;
693     num = swf_GetU16(tag);
694     for(t=0;t<num;t++)
695     {
696         id = swf_GetU16(tag);
697         name = swf_GetString(tag);
698         printf("%sexports %04d as \"%s\"\n", prefix, id, name);
699     }
700 }
701
702 void dumperror(const char* format, ...)
703 {
704     char buf[1024];
705     va_list arglist;
706
707     va_start(arglist, format);
708     vsprintf(buf, format, arglist);
709     va_end(arglist);
710
711     if(!html && !xy)
712         printf("==== Error: %s ====\n", buf);
713 }
714
715 static char strbuf[800];
716 static int bufpos=0;
717
718 char* timestring(double f)
719 {
720     int hours   = (int)(f/3600);
721     int minutes = (int)((f-hours*3600)/60);
722     int seconds = (int)((f-hours*3600-minutes*60));
723     int useconds = (int)((f-(int)f)*1000+0.5);
724     bufpos+=100;
725     bufpos%=800;
726     sprintf(&strbuf[bufpos], "%02d:%02d:%02d,%03d",hours,minutes,seconds,useconds);
727     return &strbuf[bufpos];
728 }
729
730 int main (int argc,char ** argv)
731
732     TAG*tag;
733 #ifdef HAVE_STAT
734     struct stat statbuf;
735 #endif
736     int f;
737     int xsize,ysize;
738     char issprite = 0; // are we inside a sprite definition?
739     int spriteframe = 0;
740     int mainframe=0;
741     char* spriteframelabel = 0;
742     char* framelabel = 0;
743     char prefix[128];
744     int filesize = 0;
745     prefix[0] = 0;
746     memset(idtab,0,65536);
747
748     processargs(argc, argv);
749
750     if(!filename)
751     {
752         fprintf(stderr, "You must supply a filename.\n");
753         return 1;
754     }
755
756     f = open(filename,O_RDONLY|O_BINARY);
757
758     if (f<0)
759     { 
760         char buffer[256];
761         sprintf(buffer, "Couldn't open %s", filename);
762         perror(buffer);
763         exit(1);
764     }
765     if FAILED(swf_ReadSWF(f,&swf))
766     { 
767         fprintf(stderr, "%s is not a valid SWF file or contains errors.\n",filename);
768         close(f);
769         exit(1);
770     }
771
772 #ifdef HAVE_STAT
773     fstat(f, &statbuf);
774     if(statbuf.st_size != swf.fileSize && !swf.compressed)
775         dumperror("Real Filesize (%d) doesn't match header Filesize (%d)",
776                 statbuf.st_size, swf.fileSize);
777     filesize = statbuf.st_size;
778 #endif
779
780     close(f);
781
782     xsize = (swf.movieSize.xmax-swf.movieSize.xmin)/20;
783     ysize = (swf.movieSize.ymax-swf.movieSize.ymin)/20;
784     if(xy)
785     {
786         if(xy&1)
787         printf("-X %d", xsize);
788
789         if((xy&1) && (xy&6))
790         printf(" ");
791
792         if(xy&2)
793         printf("-Y %d", ysize);
794         
795         if((xy&3) && (xy&4))
796         printf(" ");
797
798         if(xy&4)
799         printf("-r %.2f", swf.frameRate/256.0);
800         
801         if((xy&7) && (xy&8))
802         printf(" ");
803         
804         if(xy&8)
805         printf("-f %d", swf.frameCount);
806         
807         printf("\n");
808         return 0;
809     }
810     if(html)
811     {
812         char*fileversions[] = {"","1,0,0,0", "2,0,0,0","3,0,0,0","4,0,0,0",
813                                "5,0,0,0","6,0,23,0","7,0,0,0","8,0,0,0","9,0,0,0"};
814         if(swf.fileVersion>9) {
815             fprintf(stderr, "Fileversion>9\n");
816             exit(1);
817         }
818         printf("<OBJECT CLASSID=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\"\n"
819                " WIDTH=\"%d\"\n"
820                //" BGCOLOR=#ffffffff\n"?
821                " HEIGHT=\"%d\"\n"
822                //http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,23,0?
823                " CODEBASE=\"http://active.macromedia.com/flash5/cabs/swflash.cab#version=%s\">\n"
824                "  <PARAM NAME=\"MOVIE\" VALUE=\"%s\">\n"
825                "  <PARAM NAME=\"PLAY\" VALUE=\"true\">\n" 
826                "  <PARAM NAME=\"LOOP\" VALUE=\"true\">\n"
827                "  <PARAM NAME=\"QUALITY\" VALUE=\"high\">\n"
828                "  <EMBED SRC=\"%s\" WIDTH=\"%d\" HEIGHT=\"%d\"\n" //bgcolor=#ffffff?
829                "   PLAY=\"true\" ALIGN=\"\" LOOP=\"true\" QUALITY=\"high\"\n"
830                "   TYPE=\"application/x-shockwave-flash\"\n"
831                "   PLUGINSPAGE=\"http://www.macromedia.com/go/getflashplayer\">\n"
832                "  </EMBED>\n" 
833                "</OBJECT>\n", xsize, ysize, fileversions[swf.fileVersion], 
834                               filename, filename, xsize, ysize);
835         return 0;
836     } 
837     printf("[HEADER]        File version: %d\n", swf.fileVersion);
838     if(swf.compressed) {
839         printf("[HEADER]        File is zlib compressed.");
840         if(filesize && swf.fileSize)
841             printf(" Ratio: %02d%%\n", filesize*100/(swf.fileSize));
842         else
843             printf("\n");
844     }
845     printf("[HEADER]        File size: %ld%s\n", swf.fileSize, swf.compressed?" (Depacked)":"");
846     printf("[HEADER]        Frame rate: %f\n",swf.frameRate/256.0);
847     printf("[HEADER]        Frame count: %d\n",swf.frameCount);
848     printf("[HEADER]        Movie width: %.2f",(swf.movieSize.xmax-swf.movieSize.xmin)/20.0);
849     if(swf.movieSize.xmin)
850         printf(" (left offset: %.2f)\n", swf.movieSize.xmin/20.0);
851     else 
852         printf("\n");
853     printf("[HEADER]        Movie height: %.2f",(swf.movieSize.ymax-swf.movieSize.ymin)/20.0);
854     if(swf.movieSize.ymin)
855         printf(" (top offset: %.2f)\n", swf.movieSize.ymin/20.0);
856     else 
857         printf("\n");
858
859     tag = swf.firstTag;
860    
861     if(showtext) {
862         fontnum = 0;
863         swf_FontEnumerate(&swf,&fontcallback1, 0);
864         fonts = (SWFFONT**)malloc(fontnum*sizeof(SWFFONT*));
865         fontnum = 0;
866         swf_FontEnumerate(&swf,&fontcallback2, 0);
867     }
868
869     while(tag) {
870         char*name = swf_TagGetName(tag);
871         char myprefix[128];
872         if(!name) {
873             dumperror("Unknown tag:0x%03x", tag->id);
874             //tag = tag->next;
875             //continue;
876         }
877         if(swf_TagGetName(tag)) {
878             printf("[%03x] %9ld %s%s", tag->id, tag->len, prefix, swf_TagGetName(tag));
879         } else {
880             printf("[%03x] %9ld %sUNKNOWN TAG %03x", tag->id, tag->len, prefix, tag->id);
881         }
882         
883         if(tag->id == ST_FREECHARACTER) {
884             U16 id = swf_GetU16(tag);
885             idtab[id] = 0;
886         }
887
888         if(swf_isDefiningTag(tag)) {
889             U16 id = swf_GetDefineID(tag);
890             printf(" defines id %04d", id);
891             if(idtab[id])
892                 dumperror("Id %04d is defined more than once.", id);
893             idtab[id] = 1;
894         }
895         else if(swf_isPseudoDefiningTag(tag)) {
896             U16 id = swf_GetDefineID(tag);
897             printf(" adds information to id %04d", id);
898             if(!idtab[id])
899                 dumperror("Id %04d is not yet defined.\n", id);
900         }
901         else if(tag->id == ST_PLACEOBJECT) {
902             printf(" places id %04d at depth %04x", swf_GetPlaceID(tag), swf_GetDepth(tag));
903             if(swf_GetName(tag))
904                 printf(" name \"%s\"",swf_GetName(tag));
905         }
906         else if(tag->id == ST_PLACEOBJECT2) {
907             if(tag->data[0]&1)
908                 printf(" moves");
909             else
910                 printf(" places");
911             
912             if(tag->data[0]&2)
913                 printf(" id %04d",swf_GetPlaceID(tag));
914             else
915                 printf(" object");
916
917             printf(" at depth %04d", swf_GetDepth(tag));
918             if(swf_GetName(tag))
919                 printf(" name \"%s\"",swf_GetName(tag));
920         }
921         else if(tag->id == ST_REMOVEOBJECT) {
922             printf(" removes id %04d from depth %04d", swf_GetPlaceID(tag), swf_GetDepth(tag));
923         }
924         else if(tag->id == ST_REMOVEOBJECT2) {
925             printf(" removes object from depth %04d", swf_GetDepth(tag));
926         }
927         else if(tag->id == ST_FREECHARACTER) {
928             printf(" frees object %04d", swf_GetPlaceID(tag));
929         }
930         else if(tag->id == ST_STARTSOUND) {
931             U8 flags;
932             U16 id;
933             id = swf_GetU16(tag);
934             flags = swf_GetU8(tag);
935             if(flags & 32)
936                 printf(" stops sound with id %04d", id);
937             else
938                 printf(" starts sound with id %04d", id);
939             if(flags & 16)
940                 printf(" (if not already playing)");
941             if(flags & 1)
942                 swf_GetU32(tag);
943             if(flags & 2)
944                 swf_GetU32(tag);
945             if(flags & 4) {
946                 printf(" looping %d times", swf_GetU16(tag));
947             }
948         }
949         else if(tag->id == ST_FRAMELABEL) {
950             int l = strlen(tag->data);
951             printf(" \"%s\"", tag->data);
952             if(l < tag->len-1) {
953                 printf(" has %d extra bytes", tag->len-1-l);
954                 if(tag ->len-1-l == 1 && tag->data[tag->len-1] == 1)
955                     printf(" (ANCHOR)");
956             }
957             if((framelabel && !issprite) ||
958                (spriteframelabel && issprite)) {
959                 dumperror("Frame %d has more than one label", 
960                         issprite?spriteframe:mainframe);
961             }
962             if(issprite) spriteframelabel = tag->data;
963             else framelabel = tag->data;
964         }
965         else if(tag->id == ST_SHOWFRAME) {
966             char*label = issprite?spriteframelabel:framelabel;
967             int frame = issprite?spriteframe:mainframe;
968             int nframe = frame;
969             if(!label) {
970                 while(tag->next && tag->next->id == ST_SHOWFRAME && tag->next->len == 0) {
971                     tag = tag->next;
972                     if(issprite) spriteframe++;
973                     else mainframe++;
974                     nframe++;
975                 }
976             }
977             if(nframe == frame)
978                 printf(" %d (%s)", frame+1, timestring(frame*(256.0/(swf.frameRate+0.1))));
979             else
980                 printf(" %d-%d (%s-%s)", frame+1, nframe+1,
981                         timestring(frame*(256.0/(swf.frameRate+0.1))),
982                         timestring(nframe*(256.0/(swf.frameRate+0.1)))
983                         );
984             if(label)
985                 printf(" (label \"%s\")", label);
986             if(issprite) {spriteframe++; spriteframelabel = 0;}
987             if(!issprite) {mainframe++; framelabel = 0;}
988         }
989
990         if(tag->id == ST_SETBACKGROUNDCOLOR) {
991             U8 r = swf_GetU8(tag);
992             U8 g = swf_GetU8(tag);
993             U8 b = swf_GetU8(tag);
994             printf(" (%02x/%02x/%02x)\n",r,g,b);
995         }
996         else if(tag->id == ST_PROTECT) {
997             if(tag->len>0) {
998                 printf(" %s\n", swf_GetString(tag));
999             } else {
1000                 printf("\n");
1001             }
1002         }
1003         else if(tag->id == ST_DEFINEBITSLOSSLESS ||
1004            tag->id == ST_DEFINEBITSLOSSLESS2) {
1005             handleDefineBits(tag);
1006             printf("\n");
1007         }
1008         else if(tag->id == ST_DEFINESOUND) {
1009             handleDefineSound(tag);
1010             printf("\n");
1011         }
1012         else if(tag->id == ST_VIDEOFRAME) {
1013             handleVideoFrame(tag, myprefix);
1014             printf("\n");
1015         }
1016         else if(tag->id == ST_DEFINEVIDEOSTREAM) {
1017             handleVideoStream(tag, myprefix);
1018             printf("\n");
1019         }
1020         else if(tag->id == ST_DEFINEEDITTEXT) {
1021             handleEditText(tag);
1022             printf("\n");
1023         }
1024         else if(tag->id == ST_DEFINEMOVIE) {
1025             U16 id = swf_GetU16(tag);
1026             char*s = swf_GetString(tag);
1027             printf(" URL: %s\n", s);
1028         }
1029         else if(tag->id == ST_DEFINETEXT || tag->id == ST_DEFINETEXT2) {
1030             if(showtext)
1031                 handleText(tag);
1032             else
1033                 printf("\n");
1034         }
1035         else if(tag->id == ST_PLACEOBJECT2) {
1036         }
1037         else if(tag->id == ST_NAMECHARACTER) {
1038             swf_GetU16(tag);
1039             printf(" \"%s\"\n", swf_GetString(tag));
1040         }
1041         else {
1042             printf("\n");
1043         }
1044
1045         if(bbox && swf_isDefiningTag(tag) && tag->id != ST_DEFINESPRITE) {
1046             SRECT r = swf_GetDefineBBox(tag);
1047             printf("                %s bbox [%.2f, %.2f, %.2f, %.2f]\n", prefix,
1048                     r.xmin/20.0,
1049                     r.ymin/20.0,
1050                     r.xmax/20.0,
1051                     r.ymax/20.0);
1052         }
1053         
1054         sprintf(myprefix, "                %s", prefix);
1055
1056         if(tag->id == ST_DEFINESPRITE) {
1057             sprintf(prefix, "         ");
1058             if(issprite) {
1059                 dumperror("Sprite definition inside a sprite definition");
1060             }
1061             issprite = 1;
1062             spriteframe = 0;
1063             spriteframelabel = 0;
1064         }
1065         else if(tag->id == ST_END) {
1066             *prefix = 0;
1067             issprite = 0;
1068             spriteframelabel = 0;
1069             if(tag->len)
1070                 dumperror("End Tag not empty");
1071         }
1072         else if(tag->id == ST_EXPORTASSETS) {
1073             handleExportAssets(tag, myprefix);
1074         }
1075         else if(tag->id == ST_DOACTION && action) {
1076             ActionTAG*actions;
1077             actions = swf_ActionGet(tag);
1078             swf_DumpActions(actions, myprefix);
1079         }
1080         else if(tag->id == ST_DOINITACTION && action) {
1081             ActionTAG*actions;
1082             swf_GetU16(tag); // id
1083             actions = swf_ActionGet(tag);
1084             swf_DumpActions(actions, myprefix);
1085         }
1086         else if(tag->id == ST_DEFINEBUTTON && action) {
1087             dumpButtonActions(tag, myprefix);
1088         }
1089         else if(tag->id == ST_DEFINEBUTTON2 && action) {
1090             dumpButton2Actions(tag, myprefix);
1091         }
1092         else if(tag->id == ST_PLACEOBJECT) {
1093             handlePlaceObject(tag, myprefix);
1094         }
1095         else if(tag->id == ST_PLACEOBJECT2) {
1096             handlePlaceObject2(tag, myprefix);
1097         }
1098         else if(tag->id == ST_DEFINESHAPE ||
1099                 tag->id == ST_DEFINESHAPE2 ||
1100                 tag->id == ST_DEFINESHAPE3) {
1101             if(showshapes)
1102                 handleShape(tag, myprefix);
1103         }
1104
1105         if(tag->len && used) {
1106             int num = swf_GetNumUsedIDs(tag);
1107             int* used;
1108             int t;
1109             if(num) {
1110                 used = (int*)malloc(sizeof(int)*num);
1111                 swf_GetUsedIDs(tag, used);
1112                 printf("%s%suses IDs: ", indent, prefix);
1113                 for(t=0;t<num;t++) {
1114                     int id;
1115                     swf_SetTagPos(tag, used[t]);
1116                     id = swf_GetU16(tag);
1117                     printf("%d%s", id, t<num-1?", ":"");
1118                     if(!idtab[id]) {
1119                         dumperror("Id %04d is not yet defined.\n", id);
1120                     }
1121                 }
1122                 printf("\n");
1123             }
1124         }
1125
1126         if(tag->len && hex) {
1127             hexdumpTag(tag, prefix);
1128         }
1129         tag = tag->next;
1130         fflush(stdout);
1131     }
1132
1133     swf_FreeTags(&swf);
1134     return 0;
1135 }
1136
1137