lib/rfxswf.c

   1 /* rfxswf.c
   2
   3    Library for creating and reading SWF files or parts of it.
   4    There's a module directory which provides some extended functionality.
   5    Most modules are included at the bottom of this file.
   6
   7    Part of the swftools package.
   8
   9    Copyright (c) 2000, 2001 Rainer Böhme <rfxswf@reflex-studio.de>
  10
  11    This file is distributed under the GPL, see file COPYING for details
  12
  13 */
  14
  15 #include "rfxswf.h"
  16
  17 #ifdef HAVE_LIBJPEG
  18 #ifdef HAVE_JPEGLIB_H
  19 #include <jpeglib.h>
  20 #define _JPEGLIB_INCLUDED_
  21 #endif // HAVE_JPEGLIB_H
  22 #endif // HAVE_LIBJPEG
  23
  24 #ifdef HAVE_LIBZ
  25 #ifdef HAVE_ZLIB_H
  26 #include <zlib.h>
  27 #define _ZLIB_INCLUDED_
  28 #endif // HAVE_ZLIB_H
  29 #endif // HAVE_LIBZ
  30
  31 // Win32 support may be broken since it was only tested in an older version for Watcom C
  32 #ifdef __NT__
  33 #  include <io.h>
  34 #  include <malloc.h>
  35 #  include <string.h>
  36 #  ifdef DEBUG_RFXSWF
  37 #    include <stdio.h>
  38 #  endif
  39 #else
  40 #endif
  41
  42 // internal constants
  43
  44 #define MALLOC_SIZE     128
  45 #define INSERT_RFX_TAG
  46
  47 #define MEMSIZE(l) (((l/MALLOC_SIZE)+1)*MALLOC_SIZE)
  48
  49 // inline wrapper functions
  50
  51 TAG * swf_NextTag(TAG * t) { return t->next; }
  52 TAG * swf_PrevTag(TAG * t) { return t->prev; }
  53 int   swf_GetFrameNo(TAG * t)  { return t->frame; }
  54 U16   swf_GetTagID(TAG * t)    { return t->id; }
  55 U32   swf_GetDataSize(TAG * t) { return t->len; }
  56 U8*   swf_GetDataSizePtr(TAG * t) { return &(t->data[t->len]); }
  57 U32   swf_GetTagPos(TAG * t)   { return t->pos; }
  58
  59 // Basic Data Access Functions
  60
  61 #define swf_ResetReadBits(tag)   if (tag->readBit)  { tag->pos++; tag->readBit = 0; }
  62 #define swf_ResetWriteBits(tag)  if (tag->writeBit) { tag->writeBit = 0; }
  63
  64 // for future purpose: avoid high level lib functions to change tagpos/bitpos
  65
  66 #define swf_SaveTagPos(tag)
  67 #define swf_RestoreTagPos(tag)
  68
  69 void swf_SetTagPos(TAG * t,U32 pos)
  70 { swf_ResetReadBits(t);
  71   if (pos<=t->len) t->pos = pos;
  72   #ifdef DEBUG_RFXSWF
  73   else fprintf(stderr,"SetTagPos() out of bounds: TagID = %i\n",t->id);
  74   #endif
  75 }
  76
  77 U8 swf_GetU8(TAG * t)
  78 { swf_ResetReadBits(t);
  79   #ifdef DEBUG_RFXSWF
  80     if (t->pos>=t->len)
  81     { fprintf(stderr,"GetU8() out of bounds: TagID = %i\n",t->id);
  82       return 0;
  83     }
  84   #endif
  85   return t->data[t->pos++];
  86 }
  87
  88 U16 swf_GetU16(TAG * t)
  89 { U16 res;
  90   swf_ResetReadBits(t);
  91   #ifdef DEBUG_RFXSWF
  92     if (t->pos>(t->len-2))
  93     { fprintf(stderr,"GetU16() out of bounds: TagID = %i\n",t->id);
  94       return 0;
  95     }
  96   #endif
  97   res = t->data[t->pos] | (t->data[t->pos+1]<<8);
  98   t->pos+=2;
  99   return res;
 100 }
 101
 102 U32 swf_GetU32(TAG * t)
 103 { U32 res;
 104   swf_ResetReadBits(t);
 105   #ifdef DEBUG_RFXSWF
 106     if (t->pos>(t->len-4))
 107     { fprintf(stderr,"GetU32() out of bounds: TagID = %i\n",t->id);
 108       return 0;
 109     }
 110   #endif
 111   res = t->data[t->pos]        | (t->data[t->pos+1]<<8) |
 112        (t->data[t->pos+2]<<16) | (t->data[t->pos+3]<<24);
 113   t->pos+=4;
 114   return res;
 115 }
 116
 117 int swf_GetBlock(TAG * t,U8 * b,int l)
 118 // returns number of bytes written (<=l)
 119 // b = NULL -> skip data
 120 { swf_ResetReadBits(t);
 121   if ((t->len-t->pos)<l) l=t->len-t->pos;
 122   if (b && l) memcpy(b,&t->data[t->pos],l);
 123   t->pos+=l;
 124   return l;
 125 }
 126
 127 int swf_SetBlock(TAG * t,U8 * b,int l)
 128 // Appends Block to the end of Tagdata, returns size
 129 { U32 newlen = t->len + l;
 130   swf_ResetWriteBits(t);
 131   if (newlen>t->memsize)
 132   { U32  newmem  = MEMSIZE(newlen);
 133     U8 * newdata = (U8*)((t->data)?realloc(t->data,newmem):malloc(newmem));
 134     if (!newdata)
 135     {
 136       #ifdef DEBUG_RFXSWF
 137         fprintf(stderr,"Fatal Error: malloc()/realloc() failed.\n");
 138       #endif
 139       return 0;
 140     }
 141     t->memsize = newmem;
 142     t->data    = newdata;
 143   }
 144   if (b) memcpy(&t->data[t->len],b,l);
 145   else memset(&t->data[t->len],0x00,l);
 146   t->len+=l;
 147   return l;
 148 }
 149
 150 int swf_SetU8(TAG * t,U8 v)
 151 { swf_ResetWriteBits(t);
 152   if ((t->len+1)>t->memsize) return (swf_SetBlock(t,&v,1)==1)?0:-1;
 153   t->data[t->len++] = v;
 154   return 0;
 155 }
 156
 157 int swf_SetU16(TAG * t,U16 v)
 158 { U8 a[2];
 159   a[0] = v&0xff;
 160   a[1] = v>>8;
 161
 162   swf_ResetWriteBits(t);
 163   if ((t->len+2)>t->memsize) return (swf_SetBlock(t,a,2)==2)?0:-1;
 164   t->data[t->len++] = a[0];
 165   t->data[t->len++] = a[1];
 166   return 0;
 167 }
 168
 169 int swf_SetU32(TAG * t,U32 v)
 170 { U8 a[4];
 171   a[0] = v&0xff;        // to ensure correct handling of non-intel byteorder
 172   a[1] = (v>>8)&0xff;
 173   a[2] = (v>>16)&0xff;
 174   a[3] = (v>>24)&0xff;
 175
 176   swf_ResetWriteBits(t);
 177   if ((t->len+4)>t->memsize) return (swf_SetBlock(t,a,4)==4)?0:-1;
 178   t->data[t->len++] = a[0];
 179   t->data[t->len++] = a[1];
 180   t->data[t->len++] = a[2];
 181   t->data[t->len++] = a[3];
 182   return 0;
 183 }
 184
 185 U32 swf_GetBits(TAG * t,int nbits)
 186 { U32 res = 0;
 187   if (!nbits) return 0;
 188   if (!t->readBit) t->readBit = 0x80;
 189   while (nbits)
 190   { res<<=1;
 191     if (t->data[t->pos]&t->readBit) res|=1;
 192     t->readBit>>=1;
 193     nbits--;
 194     if (!t->readBit)
 195     { if (nbits) t->readBit = 0x80;
 196       #ifdef DEBUG_RFXSWF
 197       if (t->pos>=t->len)
 198       { fprintf(stderr,"GetBits() out of bounds: TagID = %i\n",t->id);
 199         return res;
 200       }
 201       #endif
 202       t->pos++;
 203     }
 204   }
 205   return res;
 206 }
 207
 208 S32 swf_GetSBits(TAG * t,int nbits)
 209 { U32 res = swf_GetBits(t,nbits);
 210   if (res&(1<<(nbits-1))) res|=(0xffffffff<<nbits);
 211   return (S32)res;
 212 }
 213
 214 int swf_SetBits(TAG * t,U32 v,int nbits)
 215 { U32 bm = 1<<(nbits-1);
 216
 217   while (nbits)
 218   { if (!t->writeBit)
 219     { if (FAILED(swf_SetU8(t,0))) return -1;
 220       t->writeBit = 0x80;
 221     }
 222     if (v&bm) t->data[t->len-1] |= t->writeBit;
 223     bm>>=1;
 224     t->writeBit>>=1;
 225     nbits--;
 226   }
 227   return 0;
 228 }
 229
 230 // Advanced Data Access Functions
 231
 232 int swf_SetRGB(TAG * t,RGBA * col)
 233 { if (!t) return -1;
 234   if (col)
 235   { swf_SetU8(t,col->r);
 236     swf_SetU8(t,col->g);
 237     swf_SetU8(t,col->b);
 238   } else swf_SetBlock(t,NULL,3);
 239   return 0;
 240 }
 241
 242 int swf_SetRGBA(TAG * t,RGBA * col)
 243 { if (!t) return -1;
 244   if (col)
 245   { swf_SetU8(t,col->r);
 246     swf_SetU8(t,col->g);
 247     swf_SetU8(t,col->b);
 248     swf_SetU8(t,col->a);
 249   } else swf_SetBlock(t,NULL,4);
 250   return 0;
 251 }
 252
 253 int swf_CountBits(U32 v,int nbits)
 254 { int n = 33;
 255   U32 m = 0x80000000;
 256   if (!v) n = 0; else
 257   if (v&m)
 258   { while (v&m)
 259     { n--;
 260       m>>=1;
 261       if (!m) break;
 262     }
 263   }
 264   else
 265   { while (!(v&m))
 266     { n--;
 267       m>>=1;
 268       if (!m) break;
 269     }
 270   }
 271   return (n>nbits)?n:nbits;
 272 }
 273
 274 int swf_GetRect(TAG * t,SRECT * r)
 275 { int nbits;
 276   SRECT dummy;
 277   if (!r) r = &dummy;
 278   nbits = (int) swf_GetBits(t,5);
 279   r->xmin = swf_GetSBits(t,nbits);
 280   r->xmax = swf_GetSBits(t,nbits);
 281   r->ymin = swf_GetSBits(t,nbits);
 282   r->ymax = swf_GetSBits(t,nbits);
 283   return 0;
 284 }
 285
 286 int swf_SetRect(TAG * t,SRECT * r)
 287 { int nbits;
 288
 289   nbits = swf_CountBits(r->xmin,0);
 290   nbits = swf_CountBits(r->xmax,nbits);
 291   nbits = swf_CountBits(r->ymin,nbits);
 292   nbits = swf_CountBits(r->ymax,nbits);
 293
 294   swf_SetBits(t,nbits,5);
 295   swf_SetBits(t,r->xmin,nbits);
 296   swf_SetBits(t,r->xmax,nbits);
 297   swf_SetBits(t,r->ymin,nbits);
 298   swf_SetBits(t,r->ymax,nbits);
 299
 300   return 0;
 301 }
 302
 303 int swf_GetMatrix(TAG * t,MATRIX * m)
 304 { MATRIX dummy;
 305   int nbits;
 306
 307   if (!m) m = &dummy;
 308
 309   if (!t)
 310   { m->sx = m->sy = 0x10000;
 311     m->r0 = m->r1 = 0;
 312     m->tx = m->ty = 0;
 313     return -1;
 314   }
 315
 316   swf_ResetReadBits(t);
 317
 318   if (swf_GetBits(t,1))
 319   { nbits = swf_GetBits(t,5);
 320     m->sx = swf_GetSBits(t,nbits);
 321     m->sy = swf_GetSBits(t,nbits);
 322   }
 323   else m->sx = m->sy = 0x10000;
 324
 325   if (swf_GetBits(t,1))
 326   { nbits = swf_GetBits(t,5);
 327     m->r0 = swf_GetSBits(t,nbits);
 328     m->r1 = swf_GetSBits(t,nbits);
 329   }
 330   else m->r0 = m->r1 = 0x0;
 331
 332   nbits = swf_GetBits(t,5);
 333   m->tx = swf_GetSBits(t,nbits);
 334   m->ty = swf_GetSBits(t,nbits);
 335
 336   return 0;
 337 }
 338
 339 int swf_SetMatrix(TAG * t,MATRIX * m)
 340 { int nbits;
 341   MATRIX ma;
 342
 343   if (!m)
 344   { m = &ma;
 345     ma.sx = ma.sy = 0x10000;
 346     ma.r0 = ma.r1 = 0;
 347     ma.tx = ma.ty = 0;
 348   }
 349
 350   swf_ResetWriteBits(t);
 351
 352   if ((m->sx==0x10000)&&(m->sy==0x10000)) swf_SetBits(t,0,1);
 353   else
 354   { swf_SetBits(t,1,1);
 355     nbits = swf_CountBits(m->sx,0);
 356     nbits = swf_CountBits(m->sy,nbits);
 357     swf_SetBits(t,nbits,5);
 358     swf_SetBits(t,m->sx,nbits);
 359     swf_SetBits(t,m->sy,nbits);
 360   }
 361
 362   if ((!m->r0)&&(!m->r1)) swf_SetBits(t,0,1);
 363   else
 364   { swf_SetBits(t,1,1);
 365     nbits = swf_CountBits(m->r0,0);
 366     nbits = swf_CountBits(m->r1,nbits);
 367     swf_SetBits(t,nbits,5);
 368     swf_SetBits(t,m->r0,nbits);
 369     swf_SetBits(t,m->r1,nbits);
 370   }
 371
 372   nbits = swf_CountBits(m->tx,0);
 373   nbits = swf_CountBits(m->ty,nbits);
 374   swf_SetBits(t,nbits,5);
 375   swf_SetBits(t,m->tx,nbits);
 376   swf_SetBits(t,m->ty,nbits);
 377
 378   return 0;
 379 }
 380
 381 int swf_GetCXForm(TAG * t,CXFORM * cx,U8 alpha) //FIXME: alpha should be type bool
 382 { CXFORM cxf;
 383   int hasadd;
 384   int hasmul;
 385   int nbits;
 386
 387   if (!cx) cx = &cxf;
 388
 389   cx->a0 = cx->r0 = cx->g0 = cx->b0 = 256;
 390   cx->a1 = cx->r1 = cx->g1 = cx->b1 = 0;
 391
 392   if (!t) return 0;
 393
 394   swf_ResetReadBits(t);
 395   hasadd = swf_GetBits(t,1);
 396   hasmul = swf_GetBits(t,1);
 397   nbits  = swf_GetBits(t,4);
 398
 399   if (hasmul)
 400   { cx->r0 = (S16)swf_GetSBits(t,nbits);
 401     cx->g0 = (S16)swf_GetSBits(t,nbits);
 402     cx->b0 = (S16)swf_GetSBits(t,nbits);
 403     if (alpha)
 404       cx->a0 = (S16)swf_GetSBits(t,nbits);
 405   }
 406
 407   if (hasadd)
 408   { cx->r1 = (S16)swf_GetSBits(t,nbits);
 409     cx->g1 = (S16)swf_GetSBits(t,nbits);
 410     cx->b1 = (S16)swf_GetSBits(t,nbits);
 411     if (alpha)
 412       cx->a1 = (S16)swf_GetSBits(t,nbits);
 413   }
 414
 415   return 0;
 416 }
 417
 418 int swf_SetCXForm(TAG * t,CXFORM * cx,U8 alpha)
 419 { CXFORM cxf;
 420   int hasadd;
 421   int hasmul;
 422   int nbits;
 423
 424   if (!cx)
 425   { cx = &cxf;
 426     cx->a0 = cx->r0 = cx->g0 = cx->b0 = 256;
 427     cx->a1 = cx->r1 = cx->g1 = cx->b1 = 0;
 428   }
 429
 430   if (!alpha)
 431   { cx->a0 = 256;
 432     cx->a1 = 0;
 433   }
 434
 435   nbits = 0;
 436
 437   hasmul = (cx->a0!=256)||(cx->r0!=256)||(cx->g0!=256)||(cx->b0!=256);
 438   hasadd = cx->a1|cx->r1|cx->g1|cx->b1;
 439
 440   if (hasmul)
 441   { if (alpha) nbits = swf_CountBits((S32)cx->a0,nbits);
 442     nbits = swf_CountBits((S32)cx->r0,nbits);
 443     nbits = swf_CountBits((S32)cx->g0,nbits);
 444     nbits = swf_CountBits((S32)cx->b0,nbits);
 445   }
 446
 447   if (hasadd)
 448   { if (alpha) nbits = swf_CountBits((S32)cx->a1,nbits);
 449     nbits = swf_CountBits((S32)cx->r1,nbits);
 450     nbits = swf_CountBits((S32)cx->g1,nbits);
 451     nbits = swf_CountBits((S32)cx->b1,nbits);
 452   }
 453
 454   swf_ResetWriteBits(t);
 455   swf_SetBits(t,hasadd?1:0,1);
 456   swf_SetBits(t,hasmul?1:0,1);
 457   swf_SetBits(t,nbits,4);
 458
 459   if (hasmul)
 460   { swf_SetBits(t,cx->r0,nbits);
 461     swf_SetBits(t,cx->g0,nbits);
 462     swf_SetBits(t,cx->b0,nbits);
 463     if (alpha) swf_SetBits(t,cx->a0,nbits);
 464   }
 465
 466   if (hasadd)
 467   { swf_SetBits(t,cx->r1,nbits);
 468     swf_SetBits(t,cx->g1,nbits);
 469     swf_SetBits(t,cx->b1,nbits);
 470     if (alpha) swf_SetBits(t,cx->a1,nbits);
 471   }
 472
 473   return 0;
 474 }
 475
 476 int swf_GetPoint(TAG * t,SPOINT * p) { return 0; }
 477 int swf_SetPoint(TAG * t,SPOINT * p) { return 0; }
 478
 479 // Tag List Manipulating Functions
 480
 481 int RFXSWF_UpdateFrame(TAG * t,S8 delta)
 482 // returns number of frames
 483 { int res = -1;
 484   while (t)
 485   { t->frame+=delta;
 486     res = t->frame;
 487     t = t->next;
 488   }
 489   return res;
 490 }
 491
 492 #define swf_UpdateFrame(a,b) RFXSWF_UpdateFrame(a,b)
 493
 494 TAG * swf_InsertTag(TAG * after,U16 id)     // updates frames, if nescessary
 495 { TAG * t;
 496
 497   t = (TAG *)malloc(sizeof(TAG));
 498   if (t)
 499   { memset(t,0x00,sizeof(TAG));
 500     t->id = id;
 501     t->writeBit = 0x80;
 502
 503     if (after)
 504     { t->frame = after->frame;
 505       t->prev  = after;
 506       t->next  = after->next;
 507       after->next = t;
 508       if (t->next) t->next->prev = t;
 509
 510       if (id==ST_SHOWFRAME) swf_UpdateFrame(t->next,+1);
 511     }
 512   }
 513   return t;
 514 }
 515
 516 int swf_DeleteTag(TAG * t)
 517 { if (!t) return -1;
 518
 519   if (t->id==ST_SHOWFRAME) swf_UpdateFrame(t->next,-1);
 520
 521   if (t->prev) t->prev->next = t->next;
 522   if (t->next) t->next->prev = t->prev;
 523
 524   if (t->data) free(t->data);
 525   free(t);
 526   return 0;
 527 }
 528
 529 TAG * RFXSWF_ReadTag(int handle,TAG * prev)
 530 { TAG * t;
 531   U16 raw;
 532   U32 len;
 533   int id;
 534
 535   if (read(handle,&raw,2)!=2) return NULL;
 536
 537   len = raw&0x3f;
 538   id  = raw>>6;
 539
 540   if (len==0x3f)
 541   { if (read(handle,&len,4)!=4) return NULL;
 542   }
 543
 544   if (id==ST_DEFINESPRITE) len = 2*sizeof(U16);
 545   // Sprite handling fix: Flaten sprite tree
 546
 547   t = (TAG *)malloc(sizeof(TAG));
 548
 549   if (!t)
 550   {
 551     #ifdef DEBUG_RFXSWF
 552       fprintf(stderr,"Fatal Error: malloc()/realloc() failed.\n");
 553     #endif
 554     return NULL;
 555   }
 556
 557   memset(t,0x00,sizeof(TAG));
 558
 559   t->len = len;
 560   t->id  = id;
 561
 562   if (t->len)
 563   { t->data = (U8*)malloc(t->len);
 564     if (!t->data)
 565     {
 566       #ifdef DEBUG_RFXSWF
 567         fprintf(stderr,"Fatal Error: malloc()/realloc() failed.\n");
 568       #endif
 569       return NULL;
 570     }
 571     t->memsize = t->len;
 572     if (read(handle,t->data,t->len)!=t->len) return NULL;
 573   }
 574
 575   if (prev)
 576   { t->frame = prev->frame+((prev->id==ST_SHOWFRAME)?1:0);
 577     t->prev  = prev;
 578     prev->next = t;
 579   }
 580
 581   return t;
 582 }
 583
 584 int RFXSWF_DefineSprite_GetRealSize(TAG * t);
 585
 586 int RFXSWF_WriteTag(int handle,TAG * t)
 587 // returns tag length in bytes (incl. Header), -1 = Error
 588 // handle = -1 -> no output
 589 { U16 raw[3];
 590   U32 len;
 591   int short_tag;
 592
 593   if (!t) return -1;
 594
 595   len = (t->id==ST_DEFINESPRITE)?RFXSWF_DefineSprite_GetRealSize(t):t->len;
 596
 597   short_tag = len<0x3f;
 598
 599   if (handle>=0)
 600   { if (short_tag)
 601     { raw[0] = len|((t->id&0x3ff)<<6);
 602       if (write(handle,raw,2)!=2)
 603       {
 604         #ifdef DEBUG_RFXSWF
 605           fprintf(stderr,"WriteTag() failed: Short Header.\n");
 606         #endif
 607         return -1;
 608       }
 609     }
 610     else
 611     { raw[0] = (t->id<<6)|0x3f;
 612       raw[1] = (U16)(len&0xffff);
 613       raw[2] = (U16)(len>>16);
 614       if (write(handle,raw,6)!=6)
 615       {
 616         #ifdef DEBUG_RFXSWF
 617           fprintf(stderr,"WriteTag() failed: Long Header.\n");
 618         #endif
 619         return -1;
 620       }
 621     }
 622
 623     if (t->data)
 624     { if (write(handle,t->data,t->len)!=t->len)
 625       {
 626         #ifdef DEBUG_RFXSWF
 627           fprintf(stderr,"WriteTag() failed: Data.\n");
 628         #endif
 629         return -1;
 630       }
 631     }
 632     #ifdef DEBUG_RFXSWF
 633       else if (t->len) fprintf(stderr,"WriteTag(): Tag Data Error, id=%i\n",t->id);
 634     #endif
 635   }
 636
 637   return t->len+(short_tag?2:6);
 638 }
 639
 640 int RFXSWF_DefineSprite_GetRealSize(TAG * t)
 641 // Sprite Handling: Helper function to pack DefineSprite-Tag
 642 { U32 len = t->len;
 643   do
 644   { t = swf_NextTag(t);
 645     if (t->id!=ST_DEFINESPRITE) len += RFXSWF_WriteTag(-1,t);
 646     else t = NULL;
 647   } while (t&&(t->id!=ST_END));
 648   return len;
 649 }
 650
 651 #define swf_ReadTag(a,b)  RFXSWF_ReadTag(a,b)
 652 #define swf_WriteTag(a,b) RFXSWF_WriteTag(a,b)
 653
 654 // Movie Functions
 655
 656 int swf_ReadSWF(int handle,SWF * swf)   // Reads SWF to memory (malloc'ed), returns length or <0 if fails
 657 {
 658   if (!swf) return -1;
 659   memset(swf,0x00,sizeof(SWF));
 660
 661   { char b[32];                         // read Header
 662     TAG t1;
 663     TAG * t;
 664
 665     memset(&t1,0x00,sizeof(TAG));
 666
 667     if ((t1.len=read(handle,b,32))<21) return -1;
 668     t1.data = (U8*)b;
 669
 670     if (swf_GetU8(&t1)!=(U8)'F') return -1;
 671     if (swf_GetU8(&t1)!=(U8)'W') return -1;
 672     if (swf_GetU8(&t1)!=(U8)'S') return -1;
 673
 674     swf->fileVersion = swf_GetU8(&t1);
 675     swf->fileSize    = swf_GetU32(&t1);
 676     swf_GetRect(&t1,&swf->movieSize);
 677     swf->frameRate   = swf_GetU16(&t1);
 678     swf->frameCount  = swf_GetU16(&t1);
 679
 680     swf_GetU8(&t1);
 681     lseek(handle,swf_GetTagPos(&t1)-1,SEEK_SET);
 682
 683                                         // reda tags and connect to list
 684     t = &t1;
 685     while (t) t = swf_ReadTag(handle,t);
 686     swf->firstTag = t1.next;
 687     t1.next->prev = NULL;
 688   }
 689
 690   return 0;
 691 }
 692 int  swf_WriteSWF(int handle,SWF * swf)     // Writes SWF to file, returns length or <0 if fails
 693 { U32 len;
 694   TAG * t;
 695
 696   if (!swf) return -1;
 697
 698   // Insert REFLEX Tag
 699
 700 #ifdef INSERT_RFX_TAG
 701
 702   if (swf_NextTag(swf->firstTag))
 703     if (swf_GetTagID(swf_NextTag(swf->firstTag))!=ST_REFLEX)
 704       swf_SetBlock(swf_InsertTag(swf->firstTag,ST_REFLEX),"rfx",3);
 705
 706 #endif // INSERT_RFX_TAG
 707
 708   // Count Frames + File Size
 709
 710   len = 0;
 711   t = swf->firstTag;
 712   swf->frameCount = 0;
 713
 714   while(t)
 715   { len += swf_WriteTag(-1,t);
 716     if (t->id==ST_SHOWFRAME) swf->frameCount++;
 717     t = swf_NextTag(t);
 718   }
 719
 720   { TAG t1;
 721     char b[64];
 722     U32 l;
 723
 724     memset(&t1,0x00,sizeof(TAG));
 725     t1.data    = (U8*)b;
 726     t1.memsize = 64;
 727
 728     swf_SetU8(&t1,'F');
 729     swf_SetU8(&t1,'W');
 730     swf_SetU8(&t1,'S');
 731     swf_SetU8(&t1,swf->fileVersion);
 732
 733     swf_SetU32(&t1,0);                      // Keep space for filesize
 734     swf_SetRect(&t1,&swf->movieSize);
 735     swf_SetU16(&t1,swf->frameRate);
 736     swf_SetU16(&t1,swf->frameCount);
 737
 738     l = swf_GetDataSize(&t1);
 739     swf->fileSize = l+len;
 740     t1.len = 4;                         // bad & ugly trick !
 741     swf_SetU32(&t1,swf->fileSize);
 742
 743     if (handle>=0)
 744     {
 745       int ret = write(handle,b,l);
 746       if (ret!=l)
 747       {
 748         #ifdef DEBUG_RFXSWF
 749           printf("ret:%d (fd:%d)\n",ret, handle);
 750           perror("write:");
 751           fprintf(stderr,"WriteSWF() failed: Header.\n");
 752         #endif
 753         return -1;
 754       }
 755
 756       t = swf->firstTag;
 757       while (t)
 758       { if (swf_WriteTag(handle,t)<0) return -1;
 759         t = swf_NextTag(t);
 760       }
 761     }
 762   }
 763   return (int)swf->fileSize;
 764 }
 765
 766 int WriteCGI(SWF * swf)
 767 { int len;
 768   char s[1024];
 769
 770   len = swf_WriteSWF(-1,swf);
 771
 772   if (len<0) return -1;
 773
 774   sprintf(s,"Content-type: application/x-shockwave-flash\n"
 775             "Accept-Ranges: bytes\n"
 776             "Content-Length: %lu\n"
 777             "Expires: Thu, 13 Apr 2000 23:59:59 GMT\n"
 778             "\n",len);
 779
 780   write(fileno(stdout),s,strlen(s));
 781   return swf_WriteSWF(fileno(stdout),swf);
 782 }
 783
 784 void swf_FreeTags(SWF * swf)                 // Frees all malloc'ed memory for tags
 785 { TAG * t = swf->firstTag;
 786
 787   while (t)
 788   { TAG * tnew = t->next;
 789     if (t->data) free(t->data);
 790     free(t);
 791     t = tnew;
 792   }
 793 }
 794
 795 // include advanced functions
 796
 797 #ifdef __NT__
 798
 799 #include "modules\swfdump.c"
 800 #include "modules\swfshape.c"
 801 #include "modules\swftext.c"
 802 #include "modules\swfobject.c"
 803 #include "modules\swfbutton.c"
 804 #include "modules\swftools.c"
 805 #include "modules\swfcgi.c"
 806 #include "modules\swfbits.c"
 807 #include "modules\swfaction.c"
 808
 809 #else
 810
 811 #include "modules/swfdump.c"
 812 #include "modules/swfshape.c"
 813 #include "modules/swftext.c"
 814 #include "modules/swfobject.c"
 815 #include "modules/swfbutton.c"
 816 #include "modules/swftools.c"
 817 #include "modules/swfcgi.c"
 818 #include "modules/swfbits.c"
 819 #include "modules/swfaction.c"
 820
 821 #endif
 822
 823