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