1 /* ====================================================================
2  * Copyright (c) 2000 by Soheil Seyfaie. All rights reserved.
3  * This program is free software; you can redistribute it and/or modify
4  * it under the same terms as Perl itself.
5  * ====================================================================
6  */
7 
8 
9 
10 
11 #ifndef PERL_SWF_H_INCLUDED
12 #define PERL_SWF_H_INCLUDED
13 
14 
15 typedef SWFMovieClip       SWF__MovieClip;
16 typedef SWFMovie           SWF__Movie;
17 typedef SWFShape           SWF__Shape;
18 typedef SWFBlock           SWF__Block;
19 typedef SWFFont            SWF__Font;
20 typedef SWFFill            SWF__Fill;
21 typedef SWFText            SWF__Text;
22 typedef SWFDisplayItem     SWF__DisplayItem;
23 typedef SWFFillStyle       SWF__FillStyle;
24 typedef SWFGradient        SWF__Gradient;
25 typedef SWFBitmap          SWF__Bitmap;
26 typedef SWFButton          SWF__Button;
27 typedef SWFCharacter       SWF__Character;
28 typedef SWFAction          SWF__Action;
29 typedef SWFMorph           SWF__Morph;
30 typedef SWFTextField       SWF__TextField;
31 typedef SWFSound           SWF__Sound;
32 typedef SWFSoundInstance   SWF__SoundInstance;
33 typedef SWFSoundStream     SWF__SoundStream;
34 typedef SWFVideoStream	   SWF__VideoStream;
35 typedef SWFPrebuiltClip	   SWF__PrebuiltClip;
36 typedef SWFFontCharacter   SWF__FontCharacter;
37 typedef SWFButtonRecord    SWF__ButtonRecord;
38 typedef SWFBinaryData      SWF__BinaryData;
39 typedef SWFInitAction      SWF__InitAction;
40 typedef SWFMatrix     	   SWF__Matrix;
41 typedef SWFBlur     	   SWF__Blur;
42 typedef SWFShadow     	   SWF__Shadow;
43 typedef SWFFilterMatrix	   SWF__FilterMatrix;
44 typedef SWFFilter	   SWF__Filter;
45 typedef SWFCXform	   SWF__CXform;
46 typedef SWFBrowserFont	   SWF__BrowserFont;
47 typedef SWFFontCollection  SWF__FontCollection;
48 
49 #ifndef sv_undef
50 #define sv_undef PL_sv_undef
51 #endif
52 
53 #ifndef na
54 #define na PL_na
55 #endif
56 
57 #ifndef pTHX_
58 #define aTHXo_
59 #endif
60 
61 #ifndef GvCV_set
62 # define GvCV_set(G, C) (GvCV(G) = (C))
63 #endif
64 
65 #ifndef S_DEBUG
66 #define swf_debug 0   /* Should we get this from, say, $SWF::debug? */
67 #define S_DEBUG(level,code)  if (swf_debug >= level) { code; }
68 #endif
69 
70 void swf_stash_refcnt_inc(SV *sv_key, SV *sv_value);
71 void swf_stash_refcnt_dec(SV *sv_key);
72 
73 #endif /* PERL_SWF_H_INCLUDED */
74 
75