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