"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic2' }"

"{ NameSpace: Smalltalk }"

FileStream subclass:#SoundStream

	instanceVariableNames:'sampleRate numberOfChannels bitsPerSample audioFormat handle1

		handle2 bufferOffset bufferSize lastErrorString fragmentSize'

	classVariableNames:'IsInitialized UnsupportedOperationSignal ConcreteClass'

	poolDictionaries:''

	category:'Streams-External'

!

SoundStream subclass:#DevAudio

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:SoundStream

!

SoundStream subclass:#IRISAudio

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:SoundStream

!

SoundStream subclass:#PortAudio

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:SoundStream

!

SoundStream subclass:#Win32DirectSound

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:SoundStream

!

SoundStream subclass:#Win32WaveSound

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:SoundStream

!

!SoundStream primitiveDefinitions!

%{

#include "stxOSDefs.h"

#ifdef __win32__

# ifndef NO_SOUND

# endif

#endif

#ifdef __iris__

# ifndef IRIX5

# endif

#endif

#  ifdef LINUX

#  endif

# endif

#endif

#ifndef NO_SOUND

# ifndef USED_AUDIO

#  ifdef __osx__

#  endif

# endif

#endif

# include <audio.h>

# define __ALportVal(o)  (ALport)(__externalAddressVal(o))

# define alPort handle1

#endif

# ifdef LINUX

#  include <alsa/asoundlib.h>

#  define MAX_NR_OF_CHANNELS 8

#  define DEBUG_SOUND

#  define readHandle handle1

#  define writeHandle handle2

# endif

#endif

# ifdef LINUX

#  include <stdio.h>

#  include <sys/soundcard.h>

#  define DEV_AUDIO_DEFAULT_FREQ (8000)

#  define DEV_AUDIO_DEFAULT_BUFFERSIZE (16384)

# endif

# ifdef FREEBSD

#  include <stdio.h>

#  include <sys/time.h>

#  include <sys/ioctl.h>

#  include <machine/pcaudioio.h>

#  define DEV_AUDIO_DEFAULT_FREQ (8000)

#  define DEV_AUDIO_DEFAULT_BUFFERSIZE (16384)

# endif

# if defined(sunos) || defined(solaris)

#  include <stdio.h>

#  ifdef solaris

#   include <sys/audioio.h>

#  else

#   include <sun/audioio.h>

#  endif

#  define DEV_AUDIO_DEFAULT_FREQ (8000)

#  define DEV_AUDIO_DEFAULT_BUFFERSIZE (16384)

# endif

# if defined(hpux)

#  include <stdio.h>

#  include <sys/ioctl.h>

#  include <sys/inode.h>

#  include <sys/audio.h>

#  include <sys/time.h>

#  include <unistd.h>

#  define DEV_AUDIO_DEFAULT_FREQ (22050)

#  define DEV_AUDIO_DEFAULT_BUFFERSIZE (16384)

# endif

// # include "pthread.h"

# include "portaudio.h"

# define PORTAUDIO_DEFAULT_FREQ (44100)

# define PORTAUDIO_DEFAULT_BUFFERSIZE (16384)

# define xINITLOCK(lk)    { pthread_mutex_init(&(lk), NULL); }

# define xRELEASELOCK(lk) { pthread_mutex_destroy(&(lk)); }

# define xLOCK(lk)        { pthread_mutex_lock(&(lk)); }

# define xUNLOCK(lk)      { pthread_mutex_unlock(&(lk)); }

# define xMUTEX            pthread_mutex_t

# define INITLOCK(lk)    { (lk) = 0; }

# define RELEASELOCK(lk) { (lk) = 0; }

# define LOCK(lk)        { while ((lk)) ; (lk) = 1; }

# define UNLOCK(lk)      { (lk) = 0; }

# define MUTEX           int

#ifdef __win32__

# define _WIN32

# undef INT

# undef Array

# undef Number

# undef Method

# undef Point

# undef Rectangle

# undef Block

# undef String

# undef Message

# undef Object

# undef Context

# undef Time

# undef Date

# undef Process

# undef Processor

# undef Set

# undef Signal

# undef Delay

/* # include <stdarg.h> /* */

# include <stdio.h> /* */

# include <windows.h>

#  define CINTERFACE

#  include "dsound.h"

#  define __DirectSoundVal(o) (LPDIRECTSOUND)(__externalAddressVal(o))

#  define __DSBufferVal(o)    (LPDIRECTSOUNDBUFFER)(__externalAddressVal(o))

#  define RT_BUFFER_SIZE 4096

#  define NBUFS          4

#  define pDirectSound handle1

#  define pDSBuffer    handle2

# else /* USE WAVE... */

#   define __WaveHandleVal(o)    (HWAVEOUT)(__externalAddressVal(o))

#   define MAXBUF      10        /* Maximum number of buffers */

#   define DATALEN     2048      /* Size of wave data buffer */

struct buf {

    WAVEHDR hdr;                /* Wave data header */

    char data[DATALEN];         /* Actual wave data */

    struct buf *next;           /* Next buffer in free list */

};

static struct buf *free_list = NULL;      /* List of available buffers */

static CRITICAL_SECTION free_list_lock;

static int free_buffers = 0;             /* Number of buffers in free list */

static int total_buffers = 0;            /* Total number of buffers allocated */

static HANDLE free_buffer_event;         /* Automatic-reset event triggered whenever */

#   define waveHandle handle1

# ifdef __DEF_Array

#  define Array __DEF_Array

# endif

# ifdef __DEF_Number

#  define Number __DEF_Number

# endif

# ifdef __DEF_Method

#  define Method __DEF_Method

# endif

# ifdef __DEF_Point

#  define Point __DEF_Point

# endif

# ifdef __DEF_Block

#  define Block __DEF_Block

# endif

# ifdef __DEF_String

#  define String __DEF_String

# endif

# ifdef __DEF_Message

#  define Message __DEF_Message

# endif

# ifdef __DEF_Object

#  define Object __DEF_Object

# endif

# ifdef __DEF_Context

#  define Context __DEF_Context

# endif

# ifdef __DEF_Time

#  define Time __DEF_Time

# endif

# ifdef __DEF_Date

#  define Date __DEF_Date

# endif

#ifdef __DEF_Process

# define Process __DEF_Process

#endif

#ifdef __DEF_Processor

# define Processor __DEF_Processor

#endif

#ifdef __DEF_Set

# define Set __DEF_Set

#endif

#ifdef __DEF_Signal

# define Signal __DEF_Signal

#endif

#ifdef __DEF_Delay

# define Delay __DEF_Delay

#endif

# define INT  STX_INT

# define UINT STX_UINT

#endif /* __win32__ */

#ifdef DEBUG_SOUND

# define DPRINTF(x) console_printf x

#else

# define DPRINTF(x) /* as nothing */

#endif

%}

! !

!SoundStream primitiveFunctions!

%{

/*

 * This routine will be called by windows when audio is needed.

 * It may called at interrupt level and by a separate thread, so don't do anything

 * that could mess up the system like calling malloc() or free().

 */

static void CALLBACK

waveCallBack(HWAVE waveHandle, UINT msg, DWORD_PTR inst, DWORD_PTR p1, DWORD_PTR p2)

{

    if (msg == MM_WOM_DONE) {

	struct buf *bp = (struct buf *)p1;

	EnterCriticalSection(&free_list_lock);

	bp->next = free_list;

	free_list = bp;

	free_buffers++;

	SetEvent(free_buffer_event);

	LeaveCriticalSection(&free_list_lock);

    }

}

static int DEBUGGING = 0;

struct paBuffer {

    void* sampleData;

    int bufferSize;

    struct paBuffer* nextBuffer;

};

struct paStreamData {

    PaStream *stream;

    MUTEX lock;

    int readOffset;

    int bytesPerSample;     // bytesPerSample (1, 2 or 4)

    int nChannels;          // num channels (1 or 2)

    int hasFinished;

    struct paBuffer* currentBuffer;

    struct paBuffer* lastBuffer;

    struct paBuffer* freeList;

};

/*

 * This routine will be called by the PortAudio engine when audio is needed.

 * It may called at interrupt level on some machines so don't do anything

 * that could mess up the system like calling malloc() or free().

 */

static int

paCallback( const void *inputBuffer, void *outputBuffer,

	    unsigned long framesPerBuffer,

	    const PaStreamCallbackTimeInfo* timeInfo,

	    PaStreamCallbackFlags statusFlags,

	    void *userData )

{

    struct paStreamData *paStreamData = (struct paStreamData *)userData;

    struct paBuffer *paBuffer = paStreamData->currentBuffer;

    int nBytesToOutput = paStreamData->bytesPerSample * paStreamData->nChannels * framesPerBuffer;

    int nBytesLeftInBuffer;

    int offsetInBuffer = paStreamData->readOffset;

    int nSent;

    int retVal = paContinue;

    if (paBuffer != NULL) {

	nBytesLeftInBuffer = paBuffer->bufferSize - offsetInBuffer;

	if (DEBUGGING) {

	    fprintf(stderr, "pa: Stream Callback (%d from %p; next: %p last: %p)\n",

			nBytesLeftInBuffer, paBuffer, paBuffer->nextBuffer, paStreamData->lastBuffer);

	}

    } else {

	nBytesLeftInBuffer = 0;

    }

    if (nBytesLeftInBuffer >= nBytesToOutput) {

	memcpy(outputBuffer, paBuffer->sampleData+offsetInBuffer, nBytesToOutput);

	nSent = nBytesToOutput;

    } else {

	nSent = nBytesLeftInBuffer;

	if (nSent > 0) {

	    memcpy(outputBuffer, paBuffer->sampleData+offsetInBuffer, nBytesLeftInBuffer);

	}

	memset(outputBuffer+offsetInBuffer+nBytesLeftInBuffer, 0, nBytesToOutput-nBytesLeftInBuffer);

    }

    LOCK(paStreamData->lock);

    if (paBuffer != NULL) {

	paStreamData->readOffset += nSent;

	if (paStreamData->readOffset >= paBuffer->bufferSize) {

	    // next buffer

	    paStreamData->readOffset = 0;

	    paStreamData->currentBuffer = paBuffer->nextBuffer;

	    // this buffer onto freeList

	    paBuffer->nextBuffer = paStreamData->freeList;

	    paStreamData->freeList = paBuffer;

	    if (DEBUGGING) {

		fprintf(stderr, "pa: put on freelist: %p\n", paBuffer);

	    }

	    if (paStreamData->currentBuffer == NULL) {

		if (DEBUGGING) {

		    fprintf(stderr, "pa: done with last buffer\n");

		}

		paStreamData->lastBuffer = NULL;

		retVal = paComplete;

	    }

	}

    }

    UNLOCK(paStreamData->lock);

    return paContinue;

}

/*

 * This routine is called by portaudio when playback is done.

 */

static void

paStreamFinished( void* userData )

{

    struct paStreamData *paStreamData = (struct paStreamData *)userData;

    paStreamData->hasFinished = 1;

    if (DEBUGGING) {

	fprintf(stderr, "pa: Stream Completed\n" );

    }

}

%}

! !

!SoundStream class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    Preliminary (unfinished) interface to an audio device.

    Currently works with

	LINUXs

	SUNs /dev/audio driver

	IRIX (indy).

    On iris, the default setup is for 8 bit mono

    so I can play the standard sound files I have here.

    It needs much more work, for stereo, different sampling rates etc.

    This is an experimental class - its interface & implementation

    may change in the future.

    [author:]

	Claus Gittinger

"

! !

!SoundStream class methodsFor:'initialization'!

initialize

    UnsupportedOperationSignal isNil ifTrue:[

	UnsupportedOperationSignal := StreamError newSignalMayProceed:true.

	UnsupportedOperationSignal nameClass:self message:#unsupportedOperationSignal.

	UnsupportedOperationSignal notifierString:'unsupported operation'.

    ]

! !

!SoundStream class methodsFor:'instance creation'!

determineConcreteClass

    self allSubclassesDo:[:each |

    ].

    ^ nil

!

new

    self == SoundStream ifTrue:[