"{ 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'

	classVariableNames:'UnsupportedOperationSignal'

	poolDictionaries:''

	category:'Streams-External'

!

!SoundStream primitiveDefinitions!

%{

#include "stxOSDefs.h"

#ifdef __win32__

# ifndef NO_SOUND

#  define xxxUSE_WIN32_DIRECTSOUND

#  define USE_WIN32_WAVESOUND

# endif

#endif

#ifdef __iris__

# ifndef IRIX5

#  define USE_IRIS_AUDIO

# endif

#endif

#ifndef USE_IRIS_AUDIO

# ifndef USE_ALSA_AUDIO

#  ifdef LINUX

#   define USE_DEV_AUDIO

#  endif

# endif

#endif

#ifdef USE_IRIS_AUDIO

# define IRIS_AUDIO

# include <audio.h>

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

# define alPort handle1

#endif

#ifdef USE_ALSA_AUDIO

# ifdef LINUX

#  define ALSA_AUDIO

#  include <alsa/asoundlib.h>

#  define MAX_NR_OF_CHANNELS 8

#  define DEBUG_SOUND

#  define readHandle handle1

#  define writeHandle handle2

# endif

#endif

#ifdef USE_DEV_AUDIO

# ifdef LINUX

#  include <stdio.h>

#  include <sys/soundcard.h>

#  define DEV_AUDIO_DEFAULT_FREQ (8000)

#  define DEV_AUDIO_DEFAULT_BUFFERSIZE (16384)

#  define DEV_AUDIO

# 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)

#  define DEV_AUDIO

# 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)

#  define DEV_AUDIO

# 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)

#  define DEV_AUDIO

# endif

#endif /* USE_DEV_AUDIO */

#ifndef __win32__

# ifndef O_WRONLY

#  include <sys/fcntl.h>

# endif

# include <errno.h>

#endif

#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>

# ifdef USE_WIN32_DIRECTSOUND

#  define WIN32_DIRECTSOUND

#  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... */

#  ifdef USE_WIN32_WAVESOUND

#   define WIN32_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

#  endif /* USE_WIN32_WAVESOUND */

# endif /* USE_WIN32_DIRECTSOUND */

# 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!

%{

#ifdef WIN32_WAVE

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);

    }

}

#endif /* WIN32_WAVE */

%}

! !

!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 audio device.

    Currently works with LINUXs or SUNs /dev/audio driver and

    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'!

readWrite

    "create and return a new soundStream for readWrite (i.e. filtering)"

    |newStream|

    newStream := (self basicNew) initialize.

    newStream openForReadWrite isNil ifTrue:[^nil].

    ^ newStream

    "SoundStream readWrite"

!

reading

    "create and return a new soundStream for reading (i.e. recording)"

    |newStream|

    newStream := (self basicNew) initialize.

    newStream openForReading isNil ifTrue:[^nil].

    ^ newStream

    "SoundStream reading"

    "Modified: / 12.12.1997 / 16:51:56 / cg"

!

writing

    "create and return a new soundStream for writing (i.e. playback)"

    |newStream|

    newStream := (self basicNew) initialize.

    newStream openForWriting isNil ifTrue:[^nil].

    ^ newStream

    "

     SoundStream writing

    "

    "Created: / 17.11.1995 / 17:25:42 / cg"

    "Modified: / 12.12.1997 / 16:51:38 / cg"

!

writing16Bit

    "just an example, has never been tried (I also

     have no samples for this ... leave it as an exercise)"

    |newStream|

    newStream := (self basicNew) initialize.

    newStream bitsPerSample:16.

    newStream openForWriting isNil ifTrue:[^nil].

    ^ newStream

    "SoundStream writing16Bit"

    "Modified: / 12.12.1997 / 16:51:49 / cg"

    "Created: / 21.12.1998 / 00:02:17 / cg"

!

writing16BitStereo

    "just an example, has never been tried (I also

     have no samples for this ... leave it as an exercise)"

    |newStream|

    OperatingSystem getOSType ~= 'irix' ifTrue:[

        self error:'unsupported audio mode'.

    ].

    newStream := (self basicNew) initialize.

    newStream bitsPerSample:16.

    newStream numberOfChannels:2.

    newStream openForWriting isNil ifTrue:[^nil].

    ^ newStream

    "SoundStream writing16BitStereo"

    "Modified: / 12.12.1997 / 16:51:49 / cg"

! !

!SoundStream class methodsFor:'Signal constants'!

unsupportedOperationSignal

    ^ UnsupportedOperationSignal

! !

!SoundStream class methodsFor:'conversion helpers'!

linear16ToUlaw:a16bitSignedValue

    "given a 16it signed value, encode into uLaw byte"

    |absVal sign exp mantissa byte|

%{

    /*

     * so heavily used when playing sounds ...

     * made it a primitive.

     */

    if (__isSmallInteger(a16bitSignedValue)) {

	int __sign = 0;

	int __absVal = __intVal(a16bitSignedValue);

	int __exp, __mantissa, __byte;

	static char __uLawExp[] =

		    {

			0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,

			5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,

			6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,

			6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,

			7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,

			7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,

			7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,

			7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7

		    };

	if (__absVal < 0) {

	    if (__absVal <= -32256) {

		RETURN (__MKSMALLINT(0));

	    }

	    __absVal = -__absVal;

	    __sign = 0x80;

	} else {

	    if (__absVal >= 32256) {

		RETURN (__MKSMALLINT(128));

	    }

	}

	__exp = __uLawExp[__absVal >> 8];

	__mantissa = (__absVal >> (__exp+3)) & 0xF;

	__byte = ~(__sign | (__exp<<4) | __mantissa) & 0xFF;

	RETURN (__MKSMALLINT(__byte));

    }

%}.

    "/

    "/ fallback for non-integral argument

    "/

    a16bitSignedValue isInteger ifFalse:[

	^ self uLawToLinear16:a16bitSignedValue asInteger

    ].

    ^ 0

    "

     SoundStream uLawToLinear16:(SoundStream linear16ToUlaw:0)

     SoundStream uLawToLinear16:(SoundStream linear16ToUlaw:32256)

     SoundStream uLawToLinear16:(SoundStream linear16ToUlaw:-32256)

     SoundStream uLawToLinear16:(SoundStream linear16ToUlaw:32767)

     SoundStream uLawToLinear16:(SoundStream linear16ToUlaw:-32767)

     SoundStream uLawToLinear16:(SoundStream linear16ToUlaw:100)

     SoundStream uLawToLinear16:(SoundStream linear16ToUlaw:-100)

     SoundStream uLawToLinear16:(SoundStream linear16ToUlaw:104)

     SoundStream uLawToLinear16:(SoundStream linear16ToUlaw:-104)

    "

    "Modified: / 9.12.1997 / 16:46:24 / cg"

!

uLawToLinear16:uLawValue

    "given a uLaw byte, return the decoded signed 16bit value.

     Currently unused - but will be"

    ^ #(

	"0  "     -32256

	"1  "     -31228

	"2  "     -30200

	"3  "     -29172

	"4  "     -28143

	"5  "     -27115

	"6  "     -26087

	"7  "     -25059

	"8  "     -24031

	"9  "     -23002

	"10 "     -21974

	"11 "     -20946

	"12 "     -19918

	"13 "     -18889

	"14 "     -17861

	"15 "     -16833

	"16 "     -16062