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

#include "ppport.h"

#include <bass.h>
#include "callback.c"
#include "const-c.inc"

MODULE = Audio::BASSXS		PACKAGE = Audio::BASSXS		

INCLUDE: const-xs.inc

PROTOTYPES: DISABLE

HSTREAM 
BASS_StreamCreate(freq, chans, flags, proc, user)
    DWORD freq
    DWORD chans
    DWORD flags
    SV *  proc
    DWORD user
CODE:
    if (streamproccallback == (SV*)NULL)
        /* First time, so create a new SV */
        streamproccallback = newSVsv(proc) ;
    else
        /* Been here before, so overwrite */
        SvSetSV(streamproccallback, proc) ;
    RETVAL = BASS_StreamCreate(freq,chans,flags,(STREAMPROC*)MyStreamProc, user);
OUTPUT:
    RETVAL