soundstream.xs

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

/* ====================================================================
 * Copyright (c) 2000-2001 by Soheil Seyfaie. All rights reserved.
 * This program is free software; you can redistribute it and/or modify
 * it under the same terms as Perl itself.
 * ====================================================================
 *
 * $Author: whamann $
 */


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

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


MODULE = SWF::SoundStream       PACKAGE = SWF::SoundStream            PREFIX = SWFSoundStream_
PROTOTYPES: ENABLE


SWF::SoundStream
SWFSoundStream_new(package="SWF::SoundStream", filename)
       char *package
       char *filename
       PREINIT:
       FILE    *f;
       CODE:
       if (items < 1)
           fprintf(stderr, "SWF::SoundStream called with one argument\n\n");
       if (!(f = fopen(filename, "rb"))) {
               fprintf(stderr, "Unable to open %s\n", filename);
               ST(0) = &sv_undef;
       } else {
               RETVAL = newSWFSoundStream(f);
               ST(0) = sv_newmortal();
               sv_setref_pv(ST(0), package, (void*)RETVAL);
       }


int SWFSoundStream_getFrames(sound)
	SWF::SoundStream	sound


void
destroySWFSoundStream(sound)
	SWF::SoundStream	sound
        ALIAS:
        SWF::SoundStream::DESTROY = 1
        CODE:
        S_DEBUG(2, fprintf(stderr, "SoundStream DESTROY CALLED\n"));
        destroySWFSoundStream(sound);