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