R-beta: DXML instead of BLAS on DEC ALPHAs

[Albrecht Gebhardt]

Hi,

I do not want to send only error messages from the DEC Alpha port of R, so
here is a success message:

I got R working with Digitals DXML (=digital extended math library,
which replaces BLAS functions)

The following patch generates a new configure script which accepts a
"--enable-dxml" option, to be used instead of "--enable-blas".

Now it first searches for -ldxml befor searching for -lblas, so it should
work on other platforms too.

It seems to work: I tested it with the chol() function, which in turn
calls "ddot" as one of the blas functions.

###################################################################
--- configure.in.orig	Mon Aug 17 23:25:14 1998
+++ configure.in	Tue Aug 18 00:14:30 1998
@@ -91,6 +91,14 @@
   fi],
   use_blas=true)
 
+AC_ARG_ENABLE(dxml,
+  [  --enable-dxml           use DXML library (if available)],
+  [if test "$enableval" = no;
+    then use_dxml=false;
+    else use_dxml=true;
+  fi],
+  use_dxml=true)
+
 AC_ARG_ENABLE(readline,
   [  --enable-readline       use readline library (if available)],
   [if test "$enableval" = no;
@@ -324,8 +332,12 @@
 ))
 AC_CHECK_LIB(dl, dlopen)
 BLAS="blas.o"
-if ${use_blas}; then
-  AC_CHECK_LIB(blas, main, LIBS="-lblas ${LIBS}" BLAS="")
+if ${use_dxml}; then
+  AC_CHECK_LIB(dxml, main, LIBS="-ldxml ${LIBS}" BLAS="")
+else
+  if ${use_blas}; then
+    AC_CHECK_LIB(blas, main, LIBS="-lblas ${LIBS}" BLAS="")
+  fi
 fi
 AC_SUBST(BLAS)
 if ${use_readline}; then
###################################################################
 


Albrecht

------------------------------------------------------------------------------
Albrecht Gebhardt          email: albrecht.gebhardt at uni-klu.ac.at
Institut fuer Mathematik   Tel. : (++43 463) 2700/837
Universitaet Klagenfurt    Fax  : (++43 463) 2700/834
Villacher Str. 161         WWW  : http://www-stat.uni-klu.ac.at/~agebhard
A-9020 Klagenfurt, Austria
------------------------------------------------------------------------------



-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._