1 /* ==================================================================== 2 * Copyright (c) 2000-2001 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 * $Author$ 8 * $Id$ 9 */ 10 11 12 #include "EXTERN.h" 13 #include "perl.h" 14 #include "XSUB.h" 15 16 #include "SWF.h" 17 #include "perl_swf.h" 18 callXS(void (* subaddr)(CV * cv),CV * cv,SV ** mark)19static void callXS (void (*subaddr)(CV* cv), CV *cv, SV **mark) { 20 int items; 21 dSP; 22 PUSHMARK (mark); 23 (*subaddr)(cv); 24 PUTBACK; 25 } 26 27 28 29 MODULE = SWF PACKAGE = SWF PREFIX = Ming_ 30 PROTOTYPES: ENABLE 31 32 INCLUDE: Boot.xsh 33 34 void 35 fileOutputMethod(b, data) 36 byte b 37 void * data 38 39 40 void 41 Ming_setScale(scale) 42 float scale 43 44 float 45 Ming_getScale() 46 47 void 48 Ming_setCubicThreshold(num) 49 int num 50 51 void 52 Ming_useSWFVersion(version) 53 int version 54 ALIAS: 55 SWF::setVersion = 1 56 57 int 58 Ming_setSWFCompression(level); 59 int level 60 61 void 62 Ming_useConstants(flag) 63 int flag 64 CODE: 65 Ming_useConstants(flag); 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82