Add mod_ladspa (Audio plugin framework for linux) http://http://www.ladspa.org/…

Add mod_ladspa (Audio plugin framework for linux) http://http://www.ladspa.org/ try it with autotalent http://web.mit.edu/tbaran/www/autotalent.html

conf/dialplan/default/ladspa.xml

+<include>
+  
+  <X-PRE-PROCESS cmd="set" data="AT_EPENT1=0 0 0 -1 -1 0 -1 0 -1 -1 0 -1"/>
+  <X-PRE-PROCESS cmd="set" data="AT_EPENT2=1 1 1 -1 -1 1 -1 1 -1 -1 1 -1"/>
+  <X-PRE-PROCESS cmd="set" data="AT_CPENT1=0 -1 -1 0 -1 0 0 0 -1 -1 0 -1"/>
+  <X-PRE-PROCESS cmd="set" data="AT_CPENT2=1 -1 -1 1 -1 1 1 1 -1 -1 1 -1"/>
+  <X-PRE-PROCESS cmd="set" data="AT_CMAJ1=0 -1 0 0 -1 0 -1 0 0 -1 0 -1"/>
+  <X-PRE-PROCESS cmd="set" data="AT_CMAJ2=1 -1 1 1 -1 1 -1 1 1 -1 1 -1"/>
+  <X-PRE-PROCESS cmd="set" data="AT_BBLUES=1 -1 1 -1 -1 1 -1 1 1 1 -1 -1"/>
+  <X-PRE-PROCESS cmd="set" data="ATGPENT2=-1 1 -1 1 -1 1 -1 -1 1 -1 1 -1"/>
+  
+  <extension name="101"> 
+    <condition field="destination_number" expression="^101$"> 
+      <!-- AUTOTALENT DEFAULTS 
+      <action application="set" data="AT_TUNE=440"/>
+      <action application="set" data="AT_FIXED=0"/>
+      <action application="set" data="AT_PULL=0"/>
+      <action application="set" data="AT_A=0"/>
+      <action application="set" data="AT_Bb=-1"/>
+      <action application="set" data="AT_B=0"/>
+      <action application="set" data="AT_C=0"/>
+      <action application="set" data="AT_Db=-1"/>
+      <action application="set" data="AT_D=0"/>
+      <action application="set" data="AT_Eb=-1"/>
+      <action application="set" data="AT_E=0"/>
+      <action application="set" data="AT_F=0"/>
+      <action application="set" data="AT_Gb=-1"/>
+      <action application="set" data="AT_G=0"/>
+      <action application="set" data="AT_Ab=-1"/>
+      <action application="set" data="AT_AMOUNT=1"/>
+      <action application="set" data="AT_SMOOTH=0"/>
+      <action application="set" data="AT_SHIFT=0"/>
+      <action application="set" data="AT_OUTSCALE=0"/>
+      <action application="set" data="AT_LFODEPTH=0"/>
+      <action application="set" data="AT_LFORATE=5"/>
+      <action application="set" data="AT_LFOSHAPE=0"/>
+      <action application="set" data="AT_LFOSYMM=0"/>
+      <action application="set" data="AT_LFOQUANT=0"/>
+      <action application="set" data="AT_FCORR=0"/>
+      <action application="set" data="AT_FWARP=0"/>
+      <action application="set" data="AT_MIX=1"/>
+      -->
+
+
+      <action application="set" data="AT_TUNE=440"/>
+      <action application="set" data="AT_FIXED=0"/>
+      <action application="set" data="AT_PULL=0"/>
+
+      <action application="set" data="AT_AMOUNT=1"/>
+      <action application="set" data="AT_SMOOTH=0"/>
+      <action application="set" data="AT_SHIFT=1"/>
+      <action application="set" data="AT_OUTSCALE=0"/>
+      <action application="set" data="AT_LFODEPTH=0"/>
+      <action application="set" data="AT_LFORATE=5"/>
+      <action application="set" data="AT_LFOSHAPE=0"/>
+      <action application="set" data="AT_LFOSYMM=0"/>
+      <action application="set" data="AT_LFOQUANT=0"/>
+      <action application="set" data="AT_FCORR=0"/>
+      <action application="set" data="AT_FWARP=0"/>
+      <action application="set" data="AT_MIX=1"/>
+
+      <!-- you have to download the ladspa package and the desired plugins from their desired site -->
+
+      <action application="set" data="ladspa_params=${AT_TUNE} ${AT_FIXED} ${AT_PULL} ${AT_EPENT2} ${AT_AMOUNT} ${AT_SMOOTH} ${AT_SHIFT} ${AT_OUTSCALE} ${AT_LFODEPTH} ${AT_LFORATE} ${AT_LFOSHAPE} ${AT_LFOSYMM} ${AT_LFOQUANT} ${AT_FCORR} ${AT_FWARP} ${AT_MIX}"/>
+					
+	<action application="ladspa_run" data="r|autotalent||${ladspa_params}"/>
+	<action application="ladspa_run" data="r|tap_chorusflanger||"/>
+	<action application="ladspa_run" data="r|phasers_1217.so|autoPhaser|"/>
+	<action application="bridge" data="sofia/internal/888@conference.freeswitch.org"/>
+      </condition> 
+  </extension> 
+
+</include>

src/mod/applications/mod_ladspa/Makefile

+BASE=../../../..
+
+LOCAL_OBJS += load.o
+include $(BASE)/build/modmake.rules
+

src/mod/applications/mod_ladspa/load.c

+/* load.c
+
+   Free software by Richard W.E. Furse. Do with as you will. No
+   warranty. */
+
+/*****************************************************************************/
+
+#include <dlfcn.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+/*****************************************************************************/
+
+#include "ladspa.h"
+#include "utils.h"
+#include "inttypes.h"
+#include "switch.h"
+/*****************************************************************************/
+
+/* This function provides a wrapping of dlopen(). When the filename is
+   not an absolute path (i.e. does not begin with / character), this
+   routine will search the LADSPA_PATH for the file. */
+static void *dlopenLADSPA(const char *pcFilename, int iFlag)
+{
+
+	char *pcBuffer;
+	const char *pcEnd;
+	const char *pcLADSPAPath;
+	const char *pcStart;
+	int iEndsInSO;
+	int iNeedSlash;
+	size_t iFilenameLength;
+	void *pvResult;
+
+	iFilenameLength = strlen(pcFilename);
+	pvResult = NULL;
+
+	if (pcFilename[0] == '/') {
+
+		/* The filename is absolute. Assume the user knows what he/she is
+		   doing and simply dlopen() it. */
+
+		pvResult = dlopen(pcFilename, iFlag);
+		if (pvResult != NULL)
+			return pvResult;
+
+	} else {
+
+		/* If the filename is not absolute then we wish to check along the
+		   LADSPA_PATH path to see if we can find the file there. We do
+		   NOT call dlopen() directly as this would find plugins on the
+		   LD_LIBRARY_PATH, whereas the LADSPA_PATH is the correct place
+		   to search. */
+
+		pcLADSPAPath = getenv("LADSPA_PATH");
+
+		if (pcLADSPAPath) {
+
+			pcStart = pcLADSPAPath;
+			while (*pcStart != '\0') {
+				pcEnd = pcStart;
+				while (*pcEnd != ':' && *pcEnd != '\0')
+					pcEnd++;
+
+				pcBuffer = malloc(iFilenameLength + 2 + (pcEnd - pcStart));
+				if (pcEnd > pcStart)
+					strncpy(pcBuffer, pcStart, pcEnd - pcStart);
+				iNeedSlash = 0;
+				if (pcEnd > pcStart)
+					if (*(pcEnd - 1) != '/') {
+						iNeedSlash = 1;
+						pcBuffer[pcEnd - pcStart] = '/';
+					}
+				strcpy(pcBuffer + iNeedSlash + (pcEnd - pcStart), pcFilename);
+
+				pvResult = dlopen(pcBuffer, iFlag);
+
+				free(pcBuffer);
+				if (pvResult != NULL)
+					return pvResult;
+
+				pcStart = pcEnd;
+				if (*pcStart == ':')
+					pcStart++;
+			}
+		}
+	}
+
+	/* As a last ditch effort, check if filename does not end with
+	   ".so". In this case, add this suffix and recurse. */
+	iEndsInSO = 0;
+	if (iFilenameLength > 3)
+		iEndsInSO = (strcmp(pcFilename + iFilenameLength - 3, ".so") == 0);
+	if (!iEndsInSO) {
+		pcBuffer = malloc(iFilenameLength + 4);
+		strcpy(pcBuffer, pcFilename);
+		strcat(pcBuffer, ".so");
+		pvResult = dlopenLADSPA(pcBuffer, iFlag);
+		free(pcBuffer);
+	}
+
+	if (pvResult != NULL)
+		return pvResult;
+
+	/* If nothing has worked, then at least we can make sure we set the
+	   correct error message - and this should correspond to a call to
+	   dlopen() with the actual filename requested. The dlopen() manual
+	   page does not specify whether the first or last error message
+	   will be kept when multiple calls are made to dlopen(). We've
+	   covered the former case - now we can handle the latter by calling
+	   dlopen() again here. */
+	return dlopen(pcFilename, iFlag);
+}
+
+/*****************************************************************************/
+
+void *loadLADSPAPluginLibrary(const char *pcPluginFilename)
+{
+
+	void *pvPluginHandle;
+
+	pvPluginHandle = dlopenLADSPA(pcPluginFilename, RTLD_NOW);
+	if (!pvPluginHandle) {
+		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Failed to load plugin \"%s\": %s\n", pcPluginFilename, dlerror());
+	}
+
+	return pvPluginHandle;
+}
+
+/*****************************************************************************/
+
+void unloadLADSPAPluginLibrary(void *pvLADSPAPluginLibrary)
+{
+	dlclose(pvLADSPAPluginLibrary);
+}
+
+/*****************************************************************************/
+
+const LADSPA_Descriptor *findLADSPAPluginDescriptor(void *pvLADSPAPluginLibrary, const char *pcPluginLibraryFilename, const char *pcPluginLabel)
+{
+
+	const LADSPA_Descriptor *psDescriptor;
+	LADSPA_Descriptor_Function pfDescriptorFunction;
+	unsigned long lPluginIndex;
+
+	dlerror();
+	pfDescriptorFunction = (LADSPA_Descriptor_Function) (intptr_t)dlsym(pvLADSPAPluginLibrary, "ladspa_descriptor");
+	if (!pfDescriptorFunction) {
+		const char *pcError = dlerror();
+		if (pcError) {
+			switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR,
+							  "Unable to find ladspa_descriptor() function in plugin "
+							  "library file \"%s\": %s.\n" "Are you sure this is a LADSPA plugin file?\n", pcPluginLibraryFilename, pcError);
+			return NULL;
+		}
+	}
+
+	for (lPluginIndex = 0;; lPluginIndex++) {
+		psDescriptor = pfDescriptorFunction(lPluginIndex);
+		if (psDescriptor == NULL) {
+			switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR,
+							  "Unable to find label \"%s\" in plugin library file \"%s\".\n", pcPluginLabel, pcPluginLibraryFilename);
+			return NULL;
+		}
+		if (strcmp(psDescriptor->Label, pcPluginLabel) == 0)
+			return psDescriptor;
+	}
+}
+
+/*****************************************************************************/
+
+/* EOF */

src/mod/applications/mod_ladspa/utils.h

+/* utils.h
+
+   Free software by Richard W.E. Furse. Do with as you will. No
+   warranty. */
+
+#ifndef LADSPA_SDK_LOAD_PLUGIN_LIB
+#define LADSPA_SDK_LOAD_PLUGIN_LIB
+
+/*****************************************************************************/
+
+#include "ladspa.h"
+
+/*****************************************************************************/
+
+/* Functions in load.c: */
+
+/* This function call takes a plugin library filename, searches for
+   the library along the LADSPA_PATH, loads it with dlopen() and
+   returns a plugin handle for use with findPluginDescriptor() or
+   unloadLADSPAPluginLibrary(). Errors are handled by writing a
+   message to stderr and calling exit(1). It is alright (although
+   inefficient) to call this more than once for the same file. */
+void * loadLADSPAPluginLibrary(const char * pcPluginFilename);
+
+/* This function unloads a LADSPA plugin library. */
+void unloadLADSPAPluginLibrary(void * pvLADSPAPluginLibrary);
+
+/* This function locates a LADSPA plugin within a plugin library
+   loaded with loadLADSPAPluginLibrary(). Errors are handled by
+   writing a message to stderr and calling exit(1). Note that the
+   plugin library filename is only included to help provide
+   informative error messages. */
+const LADSPA_Descriptor *
+findLADSPAPluginDescriptor(void * pvLADSPAPluginLibrary,
+			   const char * pcPluginLibraryFilename,
+			   const char * pcPluginLabel);
+
+/*****************************************************************************/
+
+/* Functions in search.c: */
+
+/* Callback function for use with LADSPAPluginSearch(). The callback
+   function passes the filename (full path), a plugin handle (dlopen()
+   style) and a LADSPA_DescriptorFunction (from which
+   LADSPA_Descriptors can be acquired). */
+typedef void LADSPAPluginSearchCallbackFunction
+(const char * pcFullFilename, 
+ void * pvPluginHandle,
+ LADSPA_Descriptor_Function fDescriptorFunction);
+
+/* Search through the $(LADSPA_PATH) (or a default path) for any
+   LADSPA plugin libraries. Each plugin library is tested using
+   dlopen() and dlsym(,"ladspa_descriptor"). After loading each
+   library, the callback function is called to process it. This
+   function leaves items passed to the callback function open. */
+void LADSPAPluginSearch(LADSPAPluginSearchCallbackFunction fCallbackFunction);
+
+/*****************************************************************************/
+
+/* Function in default.c: */
+
+/* Find the default value for a port. Return 0 if a default is found
+   and -1 if not. */
+int getLADSPADefault(const LADSPA_PortRangeHint * psPortRangeHint,
+		     const unsigned long          lSampleRate,
+		     LADSPA_Data                * pfResult);
+
+/*****************************************************************************/
+
+#endif
+
+/* EOF */