aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-03-08 12:26:22 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-03-08 12:26:22 +0000
commit2a25aa524f166365813bcfd62635817a7f320a96 (patch)
tree2b48111d47cdbbaacd0f75ae1feea8a09f5da0ff
parent4b0c20b7c18c0f185afb04da4c407c59a28f5efb (diff)
downloadusdx-2a25aa524f166365813bcfd62635817a7f320a96.tar.gz
usdx-2a25aa524f166365813bcfd62635817a7f320a96.tar.xz
usdx-2a25aa524f166365813bcfd62635817a7f320a96.zip
more tests and floating point exception problem resolved on darwin through setting the exception mask.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2184 b956fd51-792f-4845-bead-9b4dfca2ff2c
-rw-r--r--test/TestPortAudioDevice.pas80
1 files changed, 68 insertions, 12 deletions
diff --git a/test/TestPortAudioDevice.pas b/test/TestPortAudioDevice.pas
index 0747e412..ff5b70bc 100644
--- a/test/TestPortAudioDevice.pas
+++ b/test/TestPortAudioDevice.pas
@@ -37,6 +37,9 @@ program TestPortAudioDevice;
uses
SysUtils,
ctypes,
+{$IF Defined(DARWIN)} // for setting the floating point exception mask
+ math,
+{$IFEND}
PortAudio in '../src/lib/portaudio/portaudio.pas';
const
@@ -124,18 +127,70 @@ begin
end;
end;
-function DummyCallback(input: pointer; output: pointer; frameCount: longword;
- timeInfo: PPaStreamCallbackTimeInfo; statusFlags: TPaStreamCallbackFlags;
- userData: pointer): integer; cdecl;
+{
+type
+ TAudioSampleFormat = (
+ asfU8, asfS8, // unsigned/signed 8 bits
+ asfU16LSB, asfS16LSB, // unsigned/signed 16 bits (endianness: LSB)
+ asfU16MSB, asfS16MSB, // unsigned/signed 16 bits (endianness: MSB)
+ asfU16, asfS16, // unsigned/signed 16 bits (endianness: System)
+ asfS32, // signed 32 bits (endianness: System)
+ asfFloat, // float
+ asfDouble // double
+ );
+ TAudioFormatInfo = ;
+ TAudioInputDevice = record
+ AudioFormat: TAudioFormatInfo; // capture format info (e.g. 44.1kHz SInt16 stereo)
+ CaptureChannel: array of TCaptureBuffer; // sound-buffer references used for mono or stereo channel's capture data
+ end;
+
+procedure HandleMicrophoneData(Buffer: PByteArray; Size: integer; InputDevice: TAudioInputDevice);
+var
+ MultiChannelBuffer: PByteArray; // buffer handled as array of bytes (offset relative to channel)
+ SingleChannelBuffer: PByteArray; // temporary buffer for new samples per channel
+ SingleChannelBufferSize: integer;
+ ChannelIndex: integer;
+ CaptureChannel: TCaptureBuffer;
+ AudioFormat: TAudioFormatInfo;
+ SampleSize: integer;
+ SamplesPerChannel: integer;
+ i: integer;
begin
- result := paContinue;
-end;
+ AudioFormat := InputDevice.AudioFormat;
+ SampleSize := AudioSampleSize[AudioFormat.Format];
+ SamplesPerChannel := Size div AudioFormat.FrameSize;
+
+ SingleChannelBufferSize := SamplesPerChannel * SampleSize;
+ GetMem(SingleChannelBuffer, SingleChannelBufferSize);
+
+ // process channels
+ for ChannelIndex := 0 to High(InputDevice.CaptureChannel) do
+ begin
+ CaptureChannel := InputDevice.CaptureChannel[ChannelIndex];
+ // check if a capture buffer was assigned, otherwise there is nothing to do
+ if (CaptureChannel <> nil) then
+ begin
+ // set offset according to channel index
+ MultiChannelBuffer := @Buffer[ChannelIndex * SampleSize];
+ // separate channel-data from interleaved multi-channel (e.g. stereo) data
+ for i := 0 to SamplesPerChannel-1 do
+ begin
+ Move(MultiChannelBuffer[i*AudioFormat.FrameSize],
+ SingleChannelBuffer[i*SampleSize],
+ SampleSize);
+ end;
+ CaptureChannel.ProcessNewBuffer(SingleChannelBuffer, SingleChannelBufferSize);
+ end;
+ end;
+ FreeMem(SingleChannelBuffer);
+end;
+}
function MicrophoneCallback(input: pointer; output: pointer; frameCount: longword;
timeInfo: PPaStreamCallbackTimeInfo; statusFlags: TPaStreamCallbackFlags;
inputDevice: pointer): integer; cdecl;
begin
-// AudioInputProcessor.HandleMicrophoneData(input, frameCount*4, inputDevice);
+// HandleMicrophoneData(input, frameCount*4, inputDevice);
result := paContinue;
end;
@@ -309,7 +364,10 @@ begin
else
writeln ('Sample rate: ', sampleRate:5:0, ' : Error: ', Pa_GetErrorText(PaError));
-{$IF not Defined(DARWIN)} // as long as the darwin bug is not resolved
+{$IF Defined(DARWIN)} // floating point exceptions are raised. Therefore, set the exception mask.
+ SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide,
+ exOverflow, exUnderflow, exPrecision]);
+{$IFEND}
for j := low(standardSampleRates) to high(standardSampleRates) do
begin
sampleRate := standardSampleRates[j];
@@ -319,7 +377,6 @@ begin
else
writeln ('Sample rate: ', sampleRate:5:0, ' : Error: ', PaError);
end;
-{$IFEND}
writeln;
for j := low(SampleFormat) to high(SampleFormat) do
@@ -352,8 +409,6 @@ begin
writeln ('Device[', i, '] ', deviceInfo^.name, ':');
New(inputParameters);
New(outputParameters);
- New(stream);
- New(userData);
if deviceInfo^.maxInputChannels > 0 then
begin
inputParameters^.device := deviceIndex;
@@ -376,7 +431,8 @@ begin
sampleRate := deviceInfo^.defaultSampleRate;
framesPerBuffer := paFramesPerBufferUnspecified;
streamFlags := paNoFlag;
- streamCallback := @DummyCallback;
+ streamCallback := nil;
+ userData := nil;
PaError := Pa_OpenStream(
stream,
@@ -388,7 +444,7 @@ begin
streamCallback,
userData
);
- if PaError = paNoError then
+ if (PaError = paNoError) and (stream <> nil) then
writeln ('Pa_OpenStream: success')
else
writeln ('Pa_OpenStream: ', Pa_GetErrorText(PaError));