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