videostream.xs

来自「flash swf file player」· XS 代码 · 共 45 行

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "SWF.h"
#include "perl_swf.h"

MODULE = SWF::VideoStream       PACKAGE = SWF::VideoStream            PREFIX = SWFVideoStream_
PROTOTYPES: ENABLE

SWF::VideoStream
SWFVideoStream_new(package="SWF::VideoStream", filename=NULL)
	char *package
	char *filename
	PREINIT:
	FILE *f;
	CODE:
	if(filename && (f = fopen(filename, "rb"))) 
		RETVAL = newSWFVideoStream_fromFile(f);
	else 
		RETVAL = newSWFVideoStream();
	
	ST(0) = sv_newmortal();
	sv_setref_pv(ST(0), package, (void*)RETVAL);


void destroySWFVideoStream(stream)
	SWF::VideoStream stream
	ALIAS:
	SWF::VideoStream::DESTROY = 1
	CODE:
	swf_stash_refcnt_dec((SV*)SvRV(ST(0)));
	destroySWFVideoStream(stream);

int SWFVideoStream_getNumFrames(stream)
	SWF::VideoStream stream
	
void SWFVideoStream_setDimension(stream, width, height)
	SWF::VideoStream stream
	int width
	int height