From e4039220d7b88135122090d65af45aaae03fc185 Mon Sep 17 00:00:00 2001
From: Franz Zotter <fzotter@users.sourceforge.net>
Date: Tue, 25 Jan 2011 08:41:50 +0000
Subject: trying to fix build problems with Bessel function "jnf" from math.h
 (not all versions have it)

svn path=/trunk/externals/iem/iemmatrix/; revision=14824
---
 src/configure.ac | 3 +++
 src/mtx_bessel.c | 6 ++++++
 2 files changed, 9 insertions(+)

diff --git a/src/configure.ac b/src/configure.ac
index e78e9b2..0861866 100644
--- a/src/configure.ac
+++ b/src/configure.ac
@@ -74,6 +74,9 @@ AC_CHECK_LIB([gslcblas], [cblas_dgemm])
 AC_CHECK_LIB([gsl], [gsl_blas_dgemm])
 AC_CHECK_LIB([gsl], [gsl_eigen_nonsymm],AC_DEFINE(HAVE_GSL_EIGEN_NONSYMM,1,[can gsl compute complex eigenvalues?]))
 
+dnl for math.h Bessel/Neumann functions
+AC_CHECK_LIB([math], [jnf],AC_DEFINE(HAVE_MATH_BESSEL,1,[can math compute Bessel functions?]))
+
 
 if test "x$with_pd" != "x"; then
  if test -d "${with_pd}/src"; then
diff --git a/src/mtx_bessel.c b/src/mtx_bessel.c
index 77ac9ea..f17342f 100644
--- a/src/mtx_bessel.c
+++ b/src/mtx_bessel.c
@@ -121,6 +121,8 @@ static void mTXBesselMatrix (MTXBessel *x, t_symbol *s,
   int n,m,ofs;
 
 
+#ifdef HAVE_MATH_BESSEL
+
   /* size check */
   if (!size) 
     post("mtx_bessel: invalid dimensions");
@@ -165,6 +167,10 @@ static void mTXBesselMatrix (MTXBessel *x, t_symbol *s,
 
      mTXBesselBang(x);
   }
+
+#else
+  post("mtx_bessel: implementation requires math.h that implements jnf and ynf Bessel functions");
+#endif
 }
 
 void mtx_bessel_setup (void)
-- 
cgit v1.2.1