"

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

FileStream subclass:#SoundStream

	instanceVariableNames:'sampleRate numberOfChannels bitsPerSample audioFormat alPort

		handle1 handle2 bufferOffset bufferSize'

	classVariableNames:'UnsupportedOperationSignal'

	poolDictionaries:''

	category:'Streams-External'

!

!SoundStream primitiveDefinitions!

%{

#ifdef IRIS

# ifndef IRIX5

#  define IRIS_AUDIO

# endif

#endif

#ifdef IRIS_AUDIO

# include <audio.h>

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

#endif

#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

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

# undef Signal

# undef Delay

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

# include <stdio.h> /* */

# include <windows.h>

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

#  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

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

# define Set __DEF_Set

#endif

#ifdef __DEF_Signal

# define Signal __DEF_Signal

#endif

#ifdef __DEF_Delay

# define Delay __DEF_Delay

#endif

# define INT int

#endif /* WIN32 */

%}

! !

!SoundStream primitiveFunctions!

%{

#ifdef WIN32

# ifndef USE_DIRECTSOUND

static void CALLBACK 

waveCallBack(HWAVE waveHandle, UINT msg, DWORD inst, DWORD p1, DWORD 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

#endif

%}

! !

!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 := StreamErrorSignal newSignalMayProceed:true.

        UnsupportedOperationSignal nameClass:self message:#unsupportedOperationSignal.

        UnsupportedOperationSignal notifierString:'unsupported operation'.

    ]

! !

!SoundStream class methodsFor:'instance creation'!

reading

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

    |newStream|

    newStream := (self basicNew) initialize.

    newStream openForReading isNil ifTrue:[^nil].

    newStream buffered:false.

    newStream binary.

    ^ 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 buffered:false.

    newStream binary.

    ^ 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 buffered:false.

    newStream binary.

    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 getCPUType ~= 'irix' ifTrue:[

	self error:'unsupported audio mode'.

    ].

    newStream := (self basicNew) initialize.

    newStream buffered:false.

    newStream binary.

    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

	"17 "     -15548

	"18 "     -15033

	"19 "     -14519

	"20 "     -14005

	"21 "     -13491

	"22 "     -12977

	"23 "     -12463

	"24 "     -11949

	"25 "     -11435

	"26 "     -10920

	"27 "     -10406

	"28 "     -9892

	"29 "     -9378

	"30 "     -8864

	"31 "     -8350

	"32 "     -7964

	"33 "     -7707

	"34 "     -7450

	"35 "     -7193

	"36 "     -6936

	"37 "     -6679

	"38 "     -6422

	"39 "     -6165

	"40 "     -5908

	"41 "     -5651

	"42 "     -5394

	"43 "     -5137

	"44 "     -4880

	"45 "     -4623

	"46 "     -4365

	"47 "     -4108

	"48 "     -3916

	"49 "     -3787

	"50 "     -3659

	"51 "     -3530

	"52 "     -3402

	"53 "     -3273

	"54 "     -3144

	"55 "     -3016

	"56 "     -2887

	"57 "     -2759

	"58 "     -2630

	"59 "     -2502

	"60 "     -2373

	"61 "     -2245

	"62 "     -2116

	"63 "     -1988

	"64 "     -1891

	"65 "     -1827

	"66 "     -1763

	"67 "     -1698

	"68 "     -1634

	"69 "     -1570

	"70 "     -1506

	"71 "     -1441

	"72 "     -1377

	"73 "     -1313

	"74 "     -1249

	"75 "     -1184

	"76 "     -1120

	"77 "     -1056