1 #include "EXTERN.h" 2 #include "perl.h" 3 #include "XSUB.h" 4 5 #include "SWF.h" 6 #include "perl_swf.h" 7 8 9 MODULE = SWF::BinaryData PACKAGE = SWF::BinaryData PREFIX = SWFBinaryData_ 10 PROTOTYPES: ENABLE 11 12 SWF::BinaryData 13 SWFBinaryData_new(package="SWF::BinaryData", data, length) 14 char *package 15 char *data 16 int length 17 CODE: 18 RETVAL = newSWFBinaryData(data, length); 19 ST(0) = sv_newmortal(); 20 sv_setref_pv(ST(0), package, (void*)RETVAL); 21 22 void 23 destroySWFBinaryData(bd) 24 SWF::BinaryData bd 25 ALIAS: 26 SWF::BinaryData::DESTROY = 1 27 CODE: 28 destroySWFBinaryData(bd); 29 30 31