+++ /dev/null
-/* flash.c
- Various routines for reading and writing swf files and tags.
-
- Part of the swftools package.
-
- Copyright (c) 2001 Matthias Kramm <kramm@quiss.org>
-
- This file is distributed under the GPL, see file COPYING for details */
-
-#include "flash.h"
-#include "bitio.h"
-
-void swf_init(struct reader_t*r, uchar*newdata, int newlength)
-{
- reader_init (r, &newdata[3], newlength - 3);
-}
-
-struct flash_header swf_read_header(struct reader_t*r)
-{
- struct flash_header head;
- u16 rate;
- u16 count;
- char version;
- int length;
- u8* oldpos = reader_getinputpos(r);
-
- reader_input1(r,&version);
- head.version = version;
- reader_input4(r,&length);
- head.length = length;
-
- reader_resetbits(r);
- head.boundingBox = readRECT(r);
- reader_input2(r,&rate);
- head.rate = rate;
- reader_input2(r,&count);
- head.count = count;
-
- head.headerlength = reader_getinputpos(r) - oldpos;
- head.headerdata = oldpos;
-
- return head;
-}
-
-void swf_write_header(struct writer_t*w, struct flash_header*head)
-{
- writer_writeu8(w, head->version);
- writer_writeu32(w, head->length);
-
- writer_writebits(w, 31, 5);
- writer_writebits(w, head->boundingBox.x1, 31);
- writer_writebits(w, head->boundingBox.x2, 31);
- writer_writebits(w, head->boundingBox.y1, 31);
- writer_writebits(w, head->boundingBox.y2, 31);
- writer_resetbits(w);
- writer_writeu16(w, head->rate);
- writer_writeu16(w, head->count);
-}
-
-struct RGB readRGB(struct reader_t*r)
-{
- struct RGB rgb;
- reader_input1(r,&rgb.r);
- reader_input1(r,&rgb.g);
- reader_input1(r,&rgb.b);
- return rgb;
-}
-
-struct RGBA readRGBA(struct reader_t*r)
-{
- struct RGBA rgba;
- reader_input1(r,&rgba.r);
- reader_input1(r,&rgba.g);
- reader_input1(r,&rgba.b);
- reader_input1(r,&rgba.a);
- return rgba;
-}
-
-struct GRADIENT readGRADIENT(struct reader_t*r, int shape)
-{
- struct GRADIENT gradient;
- int t;
- gradient.num = reader_readu8(r);
- for(t=0;t<gradient.num;t++)
- {
- gradient.ratios[t] = reader_readu8(r);
- if(shape<3)
- gradient.rgb[t] = readRGB(r);
- else
- gradient.rgba[t] = readRGBA(r);
- }
- return gradient;
-}
-
-struct RECT readRECT(struct reader_t*reader)
-{
- u32 a;
- struct RECT r;
- s32 b;
- reader_readbits(reader,&a,5);
- reader_readsbits(reader,&b,a);
- r.x1=b;
- reader_readsbits(reader,&b,a);
- r.x2=b;
- reader_readsbits(reader,&b,a);
- r.y1=b;
- reader_readsbits(reader,&b,a);
- r.y2=b;
- return r;
-}
-
-
-void writeRECT(u8**pos, struct RECT*r)
-{
- struct writer_t w;
- int t=0;
- writer_init(&w, *pos, 256);
- writer_writebits(&w, 31, 5); //FIXME:count
- writer_writebits(&w, r->x1, 31);
- writer_writebits(&w, r->x2, 31);
- writer_writebits(&w, r->y1, 31);
- writer_writebits(&w, r->y2, 31);
- writer_resetbits(&w);
- *pos = writer_getpos(&w);
-}
-
-struct CXFORM readCXFORM(struct reader_t*r, char alpha)
-{
- struct CXFORM c;
- int bits;
- c.hasadd=reader_readbit(r);
- c.hasmult=reader_readbit(r);
- bits=reader_getbits(r,4);
- c.alpha = alpha;
-
- if (c.hasmult)
- {
- c.rmult=reader_getsbits(r,bits)/65536.0;
- c.gmult=reader_getsbits(r,bits)/65536.0;
- c.bmult=reader_getsbits(r,bits)/65536.0;
- if(c.alpha)
- c.amult=reader_getsbits(r,bits)/65536.0;
- }
- if (c.hasadd)
- {
- c.radd=reader_getsbits(r,bits)/65536.0;
- c.gadd=reader_getsbits(r,bits)/65536.0;
- c.badd=reader_getsbits(r,bits)/65536.0;
- if(c.alpha)
- c.aadd=reader_getsbits(r,bits)/65536.0;
- }
- return c;
-}
-
-void CXFORM_write(struct CXFORM *obj, struct writer_t*w)
-{
- int bits = 15;
- writer_writebit(w,obj->hasadd);
- writer_writebit(w,obj->hasmult);
- writer_writebits(w, bits, 4);
- if (obj->hasmult)
- {
- writer_writebits(w, obj->rmult, bits);
- writer_writebits(w, obj->gmult, bits);
- writer_writebits(w, obj->bmult, bits);
- if(obj->alpha)
- writer_writebits(w, obj->amult, 4);
- }
- if (obj->hasadd)
- {
- writer_writebits(w, obj->radd, bits);
- writer_writebits(w, obj->gadd, bits);
- writer_writebits(w, obj->badd, bits);
- if(obj->alpha)
- writer_writebits(w, obj->aadd, 4);
- }
-}
-
-unsigned char* readSTRING(struct reader_t*r)
-{
- unsigned char*now = reader_getinputpos(r);
- char a;
- do
- {
- reader_input1(r,&a);
- }
- while(a);
- return now;
-}
-void MATRIX_init(struct MATRIX*m)
-{
- m->hasrotate = 0;
- m->hasscale = 0;
- m->b[0] = 0;
- m->b[1] = 0;
- m->a[0][0] = 1;
- m->a[1][1] = 1;
- m->a[1][0] = 0;
- m->a[0][1] = 0;
-}
-struct MATRIX readMATRIX(struct reader_t*r)
-{
- struct MATRIX m;
- u8 hasrotate;
- u8 translatebits;
- u32 translatex;
- u32 translatey;
-
- m.a[0][0] = m.a[1][1] = 1;
- m.a[0][1] = m.a[1][0] = 0;
- m.hasscale=reader_readbit(r);
- if(m.hasscale)
- {
- u8 scalebits=reader_getbits(r,5);
- s32 scalex=reader_getsbits(r,scalebits);
- s32 scaley=reader_getsbits(r,scalebits);
- m.a[0][0]=scalex/65536.0;
- m.a[1][1]=scaley/65536.0;
- }
- m.hasrotate=reader_readbit(r);
- if(m.hasrotate)
- {
- u8 rotbits=reader_getbits(r,5);
- s32 rotateskew0=reader_getsbits(r,rotbits);
- s32 rotateskew1=reader_getsbits(r,rotbits);
- m.a[0][1]=rotateskew0/65536.0;
- m.a[1][0]=rotateskew1/65536.0;
- }
-
- translatebits=reader_getbits(r,5);
- translatex=reader_getsbits(r,translatebits);
- translatey=reader_getsbits(r,translatebits);
- m.b[0]=translatex;
- m.b[1]=translatey;
-
- return m;
-}
-
-void MATRIX_write(struct MATRIX * m , struct writer_t*w)
-{
- writer_writebit (w, m->hasscale);
- if(m->hasscale)
- {
- int bits = 31;
- writer_writebits(w, bits, 5);
- writer_writebits(w, (u32)(m->a[0][0]*65536.0), bits);
- writer_writebits(w, (u32)(m->a[1][1]*65536.0), bits);
- }
- writer_writebit (w, m->hasrotate);
- if(m->hasrotate)
- {
- int bits = 31;
- writer_writebits(w, bits, 5);
- writer_writebits(w, (u32)(m->a[0][1]*65536.0), bits);
- writer_writebits(w, (u32)(m->a[1][0]*65536.0), bits);
- }
-
- //translate
- {
- int bits = 31;
- writer_writebits(w, bits, 5);
- writer_writebits(w, (u32)(m->b[0]), bits);
- writer_writebits(w, (u32)(m->b[1]), bits);
- }
-}
-
-
-int swf_read_tag(struct reader_t*r, struct swf_tag* swftag)
-{
- u8*pos2,*pos = reader_getinputpos(r);
- u16 tag;
- u32 taglength;
- u32 tagid;
- int t;
-
- reader_input2(r, &tag);
-
- taglength = tag & 0x3f;
- if (taglength == 0x3f)
- {
- reader_input4(r, &taglength);
- }
-
- swftag->id=tag>>6;
- swftag->length = taglength;
- swftag->data = reader_getinputpos(r);
- reader_skip(r,taglength);
- pos2 = reader_getinputpos(r);
- swftag->fulllength = pos2 - pos;
- swftag->fulldata = pos;
- return 1;
-}
-
-int swf_count_tags(struct reader_t*r)
-{
- u8*pos = reader_getinputpos(r);
- int t=0;
- struct swf_tag tag;
-
- while(1)
- {
- swf_read_tag(r,&tag);
- t++;
- if (tag.id == 0)
- break;
- }
-
- reader_setinputpos(r,pos);
- return t;
-}
-
-void placeobject_init (struct PlaceObject*obj, struct swf_tag*tag)
-{
- struct reader_t r;
- reader_init (&r, tag->data, tag->length);
- obj -> id = reader_readu16(&r);
- obj -> depth = reader_readu16(&r);
- obj -> matrix = readMATRIX(&r);
- obj -> hascxform = (reader_getinputpos(&r) < &tag->data[tag->length]);
- if(obj -> hascxform)
- obj -> cxform = readCXFORM(&r, 0);
-}
-
-void placeobject_write (struct PlaceObject*obj, struct writer_t*w)
-{
- u16 taghead = 0x3f | TAGID_PLACEOBJECT<<6;
- u8*pos;
- u8*lenpos;
- U32 len;
- writer_resetbits(w);
- writer_write(w, &taghead, 2);
- lenpos = writer_getpos(w);
-
- writer_write(w, &taghead, 2);
- writer_write(w, &taghead, 2);
-
- pos = writer_getpos(w);
-
- writer_write(w, &obj->id, 2);
- writer_write(w, &obj->depth, 2);
- MATRIX_write(&obj->matrix, w);
-
- if(obj->hascxform)
- {
- CXFORM_write(&obj->cxform, w);
- }
- writer_resetbits(w);
-
- len = (u8*)writer_getpos(w) - pos;
- lenpos[0] = len;
- lenpos[1] = len>>8;
- lenpos[2] = len>>16;
- lenpos[3] = len>>24;
-}
-
-void placeobject2_init (struct PlaceObject2*obj,struct swf_tag*tag)
-{
- struct reader_t r;
- u8 b;
- reader_init (&r, tag->data, tag->length);
- b=reader_readu8(&r);
- obj->reserved= (b>>7)&1;
- obj->hasclipactions= (b>>6)&1;
- obj->hasname= (b>>5)&1;
- obj->hasratio= (b>>4)&1;
- obj->hascolortransform=(b>>3)&1;
- obj->hasmatrix= (b>>2)&1;
- obj->hascharacter= (b>>1)&1;
- obj->hasmove= (b>>0)&1;
-
- obj->depth = reader_readu16(&r);
- obj->id = -1;
- if(obj->hascharacter) {
- obj->id = reader_readu16(&r);
- }
- if(obj->hasmatrix) {
- obj->matrix = readMATRIX(&r);
- }
- if(obj->hascolortransform) {
- obj->cxform = readCXFORM(&r,0);
- }
- if(obj->hasratio) {
- obj->ratio=reader_readu16(&r);
- }
- obj->name = 0;
- if(obj->hasname) {
- obj->name=readSTRING(&r);
- }
- if(obj->hasclipactions) {
- obj->clipactions=reader_readu16(&r);
- }
-}
-
-void placeobject2_write (struct PlaceObject2*obj, struct writer_t*w)
-{
- u8 flags = obj->reserved<<7 | obj->hasclipactions<<6 | obj->hasname<<5 | obj->hasratio<<4 |
- obj->hascolortransform<<3 | obj->hasmatrix<<2 | obj->hascharacter<<1 | obj->hasmove;
- u16 taghead = SWAP16(0x3f | TAGID_PLACEOBJECT2<<6);
- u8*pos;
- u8*lenpos;
- U32 len;
- writer_resetbits(w);
- writer_write(w, &taghead, 2);
- lenpos = writer_getpos(w);
- writer_write(w, &taghead, 2);
- writer_write(w, &taghead, 2);
-
- pos = writer_getpos(w);
-
- writer_writeu8(w, flags);
- writer_writeu16(w, obj->depth);
- if(obj->hascharacter)
- writer_writeu16(w, obj->id);
- if(obj->hasmatrix)
- MATRIX_write(&obj->matrix, w);
- if(obj->hascolortransform)
- CXFORM_write(&obj->cxform, w);
- if(obj->hasratio)
- writer_writeu16(w, obj->ratio);
- writer_resetbits(w);
- if(obj->hasname)
- writer_write(w, obj->name, strlen(obj->name) + 1);
- if(obj->hasclipactions)
- writer_writeu16(w, obj->clipactions);
- writer_resetbits(w);
-
- len = (u8*)writer_getpos(w) - pos;
- lenpos[0] = len;
- lenpos[1] = len>>8;
- lenpos[2] = len>>16;
- lenpos[3] = len>>24;
-}
-
-void read_swf(struct swffile*swf, uchar*data, int length)
-{
- int pos;
- struct flash_header head;
- int tagnum;
- struct reader_t r;
- swf_init(&r, data, length);
- head = swf_read_header(&r);
- logf("<debug> [HEADER] the version is %d", head.version);
- logf("<debug> [HEADER] the length is %d", head.length);
- logf("<debug> [HEADER] the boundingBox is %d:%d:%d:%d",
- head.boundingBox.x1,head.boundingBox.y1,
- head.boundingBox.x2,head.boundingBox.y2);
- logf("<debug> [HEADER] the rate (frames/second) is %d", head.rate);
- logf("<debug> [HEADER] the count (frame number) is %d", head.count);
-
- tagnum = swf_count_tags(&r);
- swf->tags = (struct swf_tag*)malloc(sizeof(struct swf_tag)*tagnum);
-
- logf("<debug> [HEADER] the file consists of %d tags", tagnum);
-
- pos = 0;
- while(1)
- {
- struct swf_tag tag;
- swf_read_tag(&r, &tag);
- logf("<debug> read tag %02x (%d bytes)", tag.id, tag.length);
- swf->tags[pos] = tag;
- pos++;
- if(tag.id == TAGID_END)
- break;
- }
- swf->tagnum = tagnum;
- swf->header = head;
-}
-
-int definingtagids[] =
-{TAGID_DEFINESHAPE,
- TAGID_DEFINESHAPE2,
- TAGID_DEFINESHAPE3,
- TAGID_DEFINEMORPHSHAPE,
- TAGID_DEFINEFONT,
- TAGID_DEFINEFONT2,
- TAGID_DEFINETEXT,
- TAGID_DEFINETEXT2,
- TAGID_DEFINEEDITTEXT,
- TAGID_DEFINEBITS,
- TAGID_DEFINEBITSJPEG2,
- TAGID_DEFINEBITSJPEG3,
- TAGID_DEFINEBITSLOSSLESS,
- TAGID_DEFINEBITSLOSSLESS2,
- TAGID_DEFINEMOVIE,
- TAGID_DEFINESPRITE,
- TAGID_DEFINEBUTTON,
- TAGID_DEFINEBUTTON2,
- TAGID_DEFINESOUND,
- -1
-};
-
-// tags which may be used inside a sprite definition
-int spritetagids[] =
-{TAGID_SHOWFRAME,
- TAGID_PLACEOBJECT,
- TAGID_PLACEOBJECT2,
- TAGID_REMOVEOBJECT,
- TAGID_REMOVEOBJECT2, //?
- TAGID_DOACTION,
- TAGID_STARTSOUND,
- TAGID_FRAMELABEL,
- TAGID_SOUNDSTREAMHEAD,
- TAGID_SOUNDSTREAMHEAD2,
- TAGID_SOUNDSTREAMBLOCK,
- TAGID_END,
- -1
-};
-
-int getidfromtag(struct swf_tag* tag)
-{
- int num = 1;
- switch(tag->id) {
- case TAGID_PLACEOBJECT2:
- num++;
- case TAGID_PLACEOBJECT: {
- struct reader_t r;
- reader_init (&r, tag->data, tag->length);
- if(num>=2) {
- char b = reader_readu8(&r);
- if(!(b&2))
- return -1;
- }
- reader_readu16(&r);
- return reader_readu16(&r);
- }
- break;
- case TAGID_REMOVEOBJECT:
- return tag->data[0]+tag->data[1]*256;
- break;
- case TAGID_REMOVEOBJECT2:
- return -1;
- break;
- }
-
- return tag->data[0]+tag->data[1]*256;
-}
-
-void setidintag(struct swf_tag* tag, int id)
-{
- tag->data[0] = id;
- tag->data[1] = id>>8;
-}
-
-char is_sprite_tag (int id)
-{
- int t=0;
- while(spritetagids[t]>=0)
- {
- if(spritetagids[t] == id)
- return 1;
- t++;
- }
- return 0;
-}
-
-char is_defining_tag (int id)
-{
- int t=0;
- while(definingtagids[t]>=0)
- {
- if(definingtagids[t] == id)
- return 1;
- t++;
- }
- return 0;
-}
-
-struct swf_tag* duptag(struct swf_tag*tag)
-{
- struct swf_tag* newtag = (struct swf_tag*)malloc(sizeof(struct swf_tag));
- newtag->id = tag->id;
- newtag->fulldata = (u8*)malloc(tag->fulllength);
- newtag->fulllength = tag->fulllength;
- newtag->data = newtag->fulldata + (tag->data - tag->fulldata);
- newtag->length = tag->length;
- memcpy(newtag->fulldata, tag->fulldata, tag->fulllength);
- return newtag;
-}
-