From a4dd0ad63c00f4dee3b86dfd3075d1d61b2b3180 Mon Sep 17 00:00:00 2001
From: sanine <sanine.not@pm.me>
Date: Sat, 27 Aug 2022 23:52:56 -0500
Subject: add plibsys

---
 3rdparty/portaudio/qa/loopback/src/paqa_tools.c | 171 ++++++++++++++++++++++++
 1 file changed, 171 insertions(+)
 create mode 100644 3rdparty/portaudio/qa/loopback/src/paqa_tools.c

(limited to '3rdparty/portaudio/qa/loopback/src/paqa_tools.c')

diff --git a/3rdparty/portaudio/qa/loopback/src/paqa_tools.c b/3rdparty/portaudio/qa/loopback/src/paqa_tools.c
new file mode 100644
index 0000000..2e44c63
--- /dev/null
+++ b/3rdparty/portaudio/qa/loopback/src/paqa_tools.c
@@ -0,0 +1,171 @@
+
+/*
+ * PortAudio Portable Real-Time Audio Library
+ * Latest Version at: http://www.portaudio.com
+ *
+ * Copyright (c) 1999-2010 Phil Burk and Ross Bencina
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining
+ * a copy of this software and associated documentation files
+ * (the "Software"), to deal in the Software without restriction,
+ * including without limitation the rights to use, copy, modify, merge,
+ * publish, distribute, sublicense, and/or sell copies of the Software,
+ * and to permit persons to whom the Software is furnished to do so,
+ * subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be
+ * included in all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+ * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
+ * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
+ * CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+ * WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ */
+
+/*
+ * The text above constitutes the entire PortAudio license; however,
+ * the PortAudio community also makes the following non-binding requests:
+ *
+ * Any person wishing to distribute modifications to the Software is
+ * requested to send the modifications to the original developer so that
+ * they can be incorporated into the canonical version. It is also
+ * requested that these non-binding requests be included along with the
+ * license above.
+ */
+
+#include "paqa_tools.h"
+
+
+/*******************************************************************/
+void PaQa_ListAudioDevices(void)
+{
+    int     i, numDevices;
+    const   PaDeviceInfo *deviceInfo;
+    numDevices = Pa_GetDeviceCount();
+    for( i=0; i<numDevices; i++ )
+    {
+        deviceInfo = Pa_GetDeviceInfo( i );
+        printf( "#%d: ", i );
+        printf( "%2d in", deviceInfo->maxInputChannels  );
+        printf( ", %2d out", deviceInfo->maxOutputChannels  );
+        printf( ",  %s", deviceInfo->name );
+        printf( ", on %s\n",  Pa_GetHostApiInfo( deviceInfo->hostApi )->name );
+    }
+}
+
+/*******************************************************************/
+void PaQa_ConvertToFloat( const void *input, int numSamples, PaSampleFormat inFormat, float *output )
+{
+    int i;
+    switch( inFormat )
+    {
+        case paUInt8:
+        {
+            unsigned char *data = (unsigned char *)input;
+            for( i=0; i<numSamples; i++ )
+            {
+                int value = *data++;
+                value -= 128;
+                *output++ = value / 128.0f;
+            }
+        }
+            break;
+
+        case paInt8:
+        {
+            char *data = (char *)input;
+            for( i=0; i<numSamples; i++ )
+            {
+                int value = *data++;
+                *output++ = value / 128.0f;
+            }
+        }
+            break;
+
+        case paInt16:
+        {
+            short *data = (short *)input;
+            for( i=0; i<numSamples; i++ )
+            {
+                *output++ = *data++ / 32768.0f;
+            }
+        }
+            break;
+
+        case paInt32:
+        {
+            int *data = (int *)input;
+            for( i=0; i<numSamples; i++ )
+            {
+                int value = (*data++) >> 8;
+                float fval = (float) (value / ((double) 0x00800000));
+                *output++ = fval;
+            }
+        }
+            break;
+    }
+
+}
+
+/*******************************************************************/
+void PaQa_ConvertFromFloat( const float *input, int numSamples, PaSampleFormat outFormat, void *output )
+{
+    int i;
+    switch( outFormat )
+    {
+        case paUInt8:
+        {
+            unsigned char *data = (unsigned char *)output;
+            for( i=0; i<numSamples; i++ )
+            {
+                float value = *input++;
+                int byte = ((int) (value * 127)) + 128;
+                *data++ = (unsigned char) byte;
+            }
+        }
+            break;
+
+        case paInt8:
+        {
+            char *data = (char *)output;
+            for( i=0; i<numSamples; i++ )
+            {
+                float value = *input++;
+                int byte = (int) (value * 127);
+                *data++ = (char) byte;
+            }
+        }
+            break;
+
+        case paInt16:
+        {
+            short *data = (short *)output;
+            for( i=0; i<numSamples; i++ )
+            {
+                float value = *input++;
+                // Use asymmetric conversion to avoid clipping.
+                short sval = value * 32767.0;
+                *data++ = sval;
+            }
+        }
+            break;
+
+        case paInt32:
+        {
+            int *data = (int *)output;
+            for( i=0; i<numSamples; i++ )
+            {
+                float value = *input++;
+                // Use asymmetric conversion to avoid clipping.
+                int ival = value * ((double) 0x007FFFF0);
+                ival = ival << 8;
+                *data++ = ival;
+            }
+        }
+            break;
+    }
+
+}
-- 
cgit v1.2.1