Return devices

c_src/membrane_portaudio_plugin/pa_devices.c

@@ -1,31 +1,48 @@
 #include "pa_devices.h"
 
-UNIFEX_TERM list(UnifexEnv *env) {
+UNIFEX_TERM list(UnifexEnv *env)
+{
   Pa_Initialize();
   int numDevices = Pa_GetDeviceCount();
-  if (numDevices < 0) {
+  device devices[numDevices];
+  char names[numDevices][255];
+  if (numDevices < 0)
+  {
     printf("\nERROR: Pa_CountDevices returned 0x%x\n", numDevices);
-    return list_result(env);
-  } else if (numDevices == 0) {
+    return list_result_ok(env, devices, numDevices);
+  }
+  else if (numDevices == 0)
+  {
     printf("\nNo audio devices found\n");
-  } else {
+  }
+  else
+  {
     printf("\nAvailable audio devices:\n\n");
     int default_input_id = Pa_GetDefaultInputDevice();
     int default_output_id = Pa_GetDefaultOutputDevice();
-    for (int i = 0; i < numDevices; i++) {
+    for (int i = 0; i < numDevices; i++)
+    {
       const PaDeviceInfo *device_info = Pa_GetDeviceInfo(i);
       const char *default_str =
           i == default_input_id
               ? " (default input)"
-              : i == default_output_id ? " (default output)" : "";
+          : i == default_output_id ? " (default output)"
+                                   : "";
 
       printf("%s%s\r\n\tid: %d\r\n\tmax_input_channels: "
              "%d\r\n\tmax_output_channels: %d\r\n\n",
              device_info->name, default_str, i, device_info->maxInputChannels,
              device_info->maxOutputChannels);
+
+      strncpy(names[i], device_info->name, 255);
+
+      devices[i].id = i;
+      devices[i].name = names[i];
+      devices[i].max_output_channels = device_info->maxOutputChannels;
+      devices[i].max_input_channels = device_info->maxInputChannels;
     }
   }
 
   Pa_Terminate();
-  return list_result(env);
+  return list_result_ok(env, devices, numDevices);
 }

c_src/membrane_portaudio_plugin/pa_devices.spec.exs

@@ -1,3 +1,12 @@
 module Membrane.PortAudio.Devices
 
-spec list() :: :ok
+type(
+  device :: %Device{
+    id: int,
+    name: string,
+    max_input_channels: int,
+    max_output_channels: int
+  }
+)
+
+spec list() :: {:ok :: label, devices :: [device]}