From: Jose Maria Garcia <josemaria.alkala@gmail.com>
To: alpine-aports@lists.alpinelinux.org
Cc: Jose Maria Garcia <josemaria.alkala@gmail.com>
Subject: [alpine-aports] [PATCH] testing/tfel: new aport
Date: Mon, 20 Nov 2017 23:56:33 +0100
Message-Id: <20171120225633.4313-1-josemaria.alkala@gmail.com>
Precedence: list

http://tfel.sourceforge.net/
MFront code generator and TFEL library
---
 testing/tfel/APKBUILD                      |  66 ++++
 testing/tfel/MTestMain.cxx                 | 491 +++++++++++++++++++++++++++++
 testing/tfel/floating_point_exceptions.hxx |  53 ++++
 3 files changed, 610 insertions(+)
 create mode 100644 testing/tfel/APKBUILD
 create mode 100644 testing/tfel/MTestMain.cxx
 create mode 100644 testing/tfel/floating_point_exceptions.hxx

diff --git a/testing/tfel/APKBUILD b/testing/tfel/APKBUILD
new file mode 100644
index 0000000000..0885583c5c
--- /dev/null
+++ b/testing/tfel/APKBUILD
@@ -0,0 +1,66 @@
+# Contributor: Jose Maria Garcia <josemaria.alkala@gmail.com>
+# Maintainer: Jose Maria Garcia <josemaria.alkala@gmail.com>
+# http://tfel.sourceforge.net/packages.html
+# https://sourceforge.net/p/tfel/discussion/installation/thread/bfa5bf1b/ 
+pkgname=tfel
+pkgver=3.0.2
+pkgrel=0
+pkgdesc="MFront code generator and TFEL library"
+url="http://tfel.sourceforge.net/"
+arch="all"
+license="GPL"
+depends=""
+makedepends="python2 gfortran cmake gnuplot py2-numpy python2-dev boost-python boost-dev"
+install=""
+subpackages="$pkgname-dev $pkgname-doc"
+
+source="https://sourceforge.net/projects/tfel/files/${pkgname}-${pkgver}.tar.bz2"
+builddir="$srcdir/${pkgname}-${pkgver}"
+
+prepare() {
+	echo "Preparing"
+	echo "cp -f ${srcdir}/../MTestMain.cxx ${builddir}/mtest/src/"
+	cp -f ${srcdir}/../MTestMain.cxx ${builddir}/mtest/src/
+	echo "cp -f ${srcdir}/../floating_point_exceptions.hxx ${builddir}/include/TFEL/Math/General/"
+	cp -f ${srcdir}/../floating_point_exceptions.hxx ${builddir}/include/TFEL/Math/General/
+}
+
+build() {
+	mkdir -p "${builddir}/build"
+   	cd "${builddir}/build"
+	# cmake ../trunk -Dlocal-castem-header=ON -Denable-fortran=ON -Denable-python=ON -Denable-python-bindings=ON -Denable-aster=ON -Denable-zmat=OFF -Denable-cyrano=ON -Denable-portable-build=ON -DLIB_SUFFIX=64
+	cmake ../ \
+		-DCMAKE_BUILD_TYPE=Release \
+		-Denable-fortran=ON \
+		-Denable-python=ON \
+		-Denable-python-bindings=ON \
+		-Denable-aster=ON \
+		-Denable-abaqus=ON \
+		-Denable-europlexus=ON \
+		-Denable-zmat=OFF \
+		-Denable-cyrano=ON \
+		-Denable-cadna=OFF \
+		-Denable-portable-build=ON \
+		-Dlocal-castem-header=ON \
+		-Denable-castem-pleiades=ON \
+		-Denable-reference-doc=OFF \
+		-DCMAKE_INSTALL_PREFIX=/usr
+		#-DCASTEM_INSTALL_PATH=/home/th202608/codes/castem/2014/install/ \
+		#-Denable-java=ON \
+		#-DZSET_INSTALL_PATH=/home/th202608/codes/ZeBuLoN/8.5/Z8.5 \
+		#-DCADNA_INSTALL_PATH=/home/th202608/codes/cadna/3.0/install \
+
+		#-Denable-website=ON \
+	make
+
+}
+
+package() {
+	cd "${builddir}/build/"
+	#echo "Creating package....$pkgname"
+        install -m 755 -d "${pkgdir}"
+	make install DESTDIR=${pkgdir}
+}
+
+
+sha512sums="8463d749a81472ffee32cfb986bd6be3f2baaf0b269c72b3bf1b8ca7df4d02daed8b646cde16279fe1069ecb22490cc22ec693f4855385466185550683e87989  tfel-3.0.2.tar.bz2"
diff --git a/testing/tfel/MTestMain.cxx b/testing/tfel/MTestMain.cxx
new file mode 100644
index 0000000000..6419eca3fa
--- /dev/null
+++ b/testing/tfel/MTestMain.cxx
@@ -0,0 +1,491 @@
+/*! 
+ * \file   mfront/mtest/MTestMain.cxx
+ * \brief
+ * \author Helfer Thomas
+ * \brief  05 avril 2013
+ * \copyright Copyright (C) 2006-2014 CEA/DEN, EDF R&D. All rights 
+ * reserved. 
+ * This project is publicly released under either the GNU GPL Licence 
+ * or the CECILL-A licence. A copy of thoses licences are delivered 
+ * with the sources of TFEL. CEA or EDF may also distribute this 
+ * project under specific licensing conditions. 
+ */
+
+#include<iostream>
+#include<cstdlib>
+#include<vector>
+#include<string>
+#include<fenv.h>
+
+#if defined _WIN32 || defined _WIN64
+#ifndef NOMINMAX
+#define NOMINMAX
+#endif
+#include<windows.h>
+#endif
+
+#include"TFEL/Utilities/ArgumentParserBase.hxx"
+
+#if ! (defined _WIN32 || defined _WIN64 ||defined __CYGWIN__)
+#include"TFEL/System/SignalManager.hxx"
+#endif
+
+#include"MFront/MFrontLogStream.hxx"
+
+#include"MTest/MTest.hxx"
+#include"MTest/MTestParser.hxx"
+#include"MTest/PipeTest.hxx"
+#include"MTest/PipeTestParser.hxx"
+#include"MTest/Constraint.hxx"
+#include"MTest/Evolution.hxx"
+
+#include"TFEL/Tests/TestManager.hxx"
+#include"TFEL/Tests/XMLTestOutput.hxx"
+
+namespace mtest
+{
+
+  struct MTestMain
+    : tfel::utilities::ArgumentParserBase<MTestMain>
+  {
+    MTestMain(const int, 
+	      const char *const *const);
+    /*!
+     * \brief main entry point
+     * \return EXIT_SUCESS on success
+     */
+    int execute();
+    //! destructor
+    ~MTestMain();
+  protected:
+    enum {
+      MTEST,
+      PTEST,
+      DEFAULT
+    } scheme = DEFAULT;
+    friend struct tfel::utilities::ArgumentParserBase<MTestMain>;
+    virtual void treatUnknownArgument() override;
+    void treatVerbose();
+    void treatScheme();
+    void treatXMLOutput();
+    void treatResultFileOutput();
+    void treatResidualFileOutput();
+    TFEL_NORETURN void treatHelpCommandsList();
+    TFEL_NORETURN void treatHelpCommands();
+    TFEL_NORETURN void treatHelpCommand();
+    void treatEnableFloatingPointExceptions();
+#if ! (defined _WIN32 || defined _WIN64 ||defined __CYGWIN__)
+    void treatBacktrace();
+#endif
+    virtual std::string 
+    getVersionDescription() const override;
+    virtual std::string 
+    getUsageDescription() const override;
+    void registerArgumentCallBacks();
+    //! input files
+    std::vector<std::string> inputs;
+    //! external commands
+    std::vector<std::string> ecmds;
+    //! substitutions
+    std::map<std::string,std::string> substitutions;
+    // xml output
+    bool xml_output = false;
+    // generate result file
+    bool result_file_output = true;
+    // generate residual file
+    bool residual_file_output = false;
+  };
+
+  MTestMain::MTestMain(const int argc, const char *const *const argv)
+    : tfel::utilities::ArgumentParserBase<MTestMain>(argc,argv)
+  {
+    this->registerArgumentCallBacks();
+    this->parseArguments();
+    if(this->inputs.empty()){
+      throw(std::runtime_error("MTestMain::MTestMain: "
+			       "no input file defined"));
+    }
+  }
+
+  void 
+  MTestMain::registerArgumentCallBacks()
+  {
+    this->registerNewCallBack("--verbose",&MTestMain::treatVerbose,
+			      "set verbose output",true);
+    this->registerNewCallBack("--scheme",&MTestMain::treatScheme,
+			      "set scheme",true);
+    this->registerNewCallBack("--xml-output",&MTestMain::treatXMLOutput,
+			      "control xml output (default no)",true);
+    this->registerNewCallBack("--result-file-output",&MTestMain::treatResultFileOutput,
+			      "control result output (default yes)",true);
+    this->registerNewCallBack("--residual-file-output",&MTestMain::treatResidualFileOutput,
+			      "control residual output (default no)",true);
+    this->registerNewCallBack("--help-keywords",
+			      &MTestMain::treatHelpCommands,
+			      "display the help of all available commands and exit.");
+    this->registerNewCallBack("--help-commands",
+			      &MTestMain::treatHelpCommands,
+			      "display the help of all available commands and exit."
+			      "(this is equivalent to --help-keywords option).");
+    this->registerNewCallBack("--help-keywords-list",
+			      &MTestMain::treatHelpCommandsList,
+			      "list available commands and exit.");
+    this->registerNewCallBack("--help-commands-list",
+			      &MTestMain::treatHelpCommandsList,
+			      "list available commands and exit "
+			      "(this is equivalent to --help-keywords-list option).");
+    this->registerNewCallBack("--help-keyword",
+			      &MTestMain::treatHelpCommand,
+			      "display the help associated with a "
+			      "keyword and exit.",true);
+    this->registerNewCallBack("--help-command",
+			      &MTestMain::treatHelpCommand,
+			      "display the help associated with a "
+			      "keyword and exit."
+			      "(this is equivalent to "
+			      "--help-keyword option).",true);
+    this->registerNewCallBack("--floating-point-exceptions","-fpe",
+			      &MTestMain::treatEnableFloatingPointExceptions,
+			      "handle floating point exceptions through SIGFPE signals");
+#if ! (defined _WIN32 || defined _WIN64 ||defined __CYGWIN__)
+    this->registerNewCallBack("--backtrace","-bt",&MTestMain::treatBacktrace,
+			      "print process stack when getting SIGSEGV or SIGFPE signals");
+#endif
+  }
+
+  void
+  MTestMain::treatScheme()
+  {
+    if(this->currentArgument->getOption().empty()){
+      throw(std::runtime_error("MTestMain::treatScheme: "
+			       "no option given"));
+    }
+    if(this->scheme!=DEFAULT){
+      throw(std::runtime_error("MTestMain::treatScheme: "
+			       "scheme already given"));
+    }
+    const auto& s = this->currentArgument->getOption();
+    if((s=="MTest")||(s=="mtest")){
+      this->scheme = MTEST;
+    } else if((s=="PTest")||(s=="ptest")){
+      this->scheme = PTEST;
+    } else {
+      throw(std::runtime_error("MTestMain::treatScheme: "
+			       "invalid scheme '"+s+"'"));
+    }
+  } // end of MTestMain::treatScheme
+  
+  void
+  MTestMain::treatEnableFloatingPointExceptions()
+  {
+    // mathematical
+#if ! (defined _WIN32 || defined _WIN64 ||defined __CYGWIN__||defined __APPLE__)
+#ifdef HAVE_FENV
+    ::feclearexcept(FE_ALL_EXCEPT);
+#ifdef __GLIBC__
+    ::feenableexcept(FE_DIVBYZERO); // division by zero
+    ::feenableexcept(FE_INVALID);   // invalid operation
+#endif /* __GLIBC__ */
+#endif /* HAVE_FENV */
+#endif
+  } // end of MTestMain::treatEnableFloatingPointExceptions
+
+#if ! (defined _WIN32 || defined _WIN64 ||defined __CYGWIN__)
+  void
+  MTestMain::treatBacktrace()
+  {
+    using namespace tfel::system;
+    // posix signals
+    auto& sm = SignalManager::getSignalManager();
+    // blocking all signals during treatment of signals SIGSEGV, SIGFPE
+    struct sigaction action;
+    sigfillset(&(action.sa_mask));
+    action.sa_flags = 0;
+    sm.registerHandler(SIGSEGV,sigPtrFun(SignalManager::printBackTrace),action);
+    sm.registerHandler(SIGFPE,sigPtrFun(SignalManager::printBackTrace),action);
+  } // end of MTestMain::treatBacktrace(void)
+#endif
+
+  void
+  MTestMain::treatVerbose()
+  {
+    if(this->currentArgument->getOption().empty()){
+      mfront::setVerboseMode(mfront::VERBOSE_LEVEL1);
+    } else {
+      const auto& option = this->currentArgument->getOption();
+      if(option=="quiet"){
+	mfront::setVerboseMode(mfront::VERBOSE_QUIET);
+      } else if(option=="level0"){
+	mfront::setVerboseMode(mfront::VERBOSE_LEVEL0);
+      } else if(option=="level1"){
+	mfront::setVerboseMode(mfront::VERBOSE_LEVEL1);
+      } else if (option=="level2"){
+	mfront::setVerboseMode(mfront::VERBOSE_LEVEL2);
+      } else if (option=="level3"){
+	mfront::setVerboseMode(mfront::VERBOSE_LEVEL3);
+      } else if (option=="debug"){
+	mfront::setVerboseMode(mfront::VERBOSE_DEBUG);
+      } else if (option=="full"){
+	mfront::setVerboseMode(mfront::VERBOSE_FULL);
+      } else {
+	throw(std::runtime_error("MTestMain::treatVerbose : "
+				 "unknown option '"+option+"'"));
+      }
+    }
+  } // end of MTestMain::treatVerbose
+
+  void
+  MTestMain::treatXMLOutput()
+  {
+    if(this->currentArgument->getOption().empty()){
+      this->xml_output = true;
+    } else {
+      const auto& option = this->currentArgument->getOption();
+      if(option=="true"){
+	this->xml_output = true;
+      } else if(option=="false"){
+	this->xml_output = false;
+      } else {
+	throw(std::runtime_error("MTestMain::treatXMLOutput: "
+				 "unknown option '"+option+"'"));
+      }
+    }
+  } // end of MTestMain::treatXMLOutput
+
+  void
+  MTestMain::treatResultFileOutput()
+  {
+    if(this->currentArgument->getOption().empty()){
+      this->result_file_output = true;
+    } else {
+      const auto& option = this->currentArgument->getOption();
+      if(option=="true"){
+	this->result_file_output = true;
+      } else if(option=="false"){
+	this->result_file_output = false;
+      } else {
+	throw(std::runtime_error("MTestMain::treatResultFileOutput: "
+				 "unknown option '"+option+"'"));
+      }
+    }
+  } // end of MTestMain::treatResultFileOutput
+
+  void
+  MTestMain::treatResidualFileOutput()
+  {
+    if(this->currentArgument->getOption().empty()){
+      this->residual_file_output = true;
+    } else {
+      const auto& option = this->currentArgument->getOption();
+      if(option=="true"){
+	this->residual_file_output = true;
+      } else if(option=="false"){
+	this->residual_file_output = false;
+      } else {
+	throw(std::runtime_error("MTestMain::treatResidualFileOutput : "
+				 "unknown option '"+option+"'"));
+      }
+    }
+  } // end of MTestMain::treatResidualFileOutput
+
+  void
+  MTestMain::treatHelpCommandsList()
+  {
+    if((this->scheme==MTEST)||(this->scheme==DEFAULT)){
+      MTestParser().displayKeyWordsList();
+    } else if(this->scheme==PTEST){
+      PipeTestParser().displayKeyWordsList();
+    }
+    ::exit(EXIT_SUCCESS);
+  } // end of MTestMain::treatHelpCommandsList
+
+  void
+  MTestMain::treatHelpCommands()
+  {
+    if((this->scheme==MTEST)||(this->scheme==DEFAULT)){
+      MTestParser().displayKeyWordsHelp();
+    } else if(this->scheme==PTEST){
+      PipeTestParser().displayKeyWordsList();
+    }
+    ::exit(EXIT_SUCCESS);
+  } // end of MTestMain::treatHelpCommands
+  
+  void MTestMain::treatHelpCommand()
+  {
+    const auto& k = this->currentArgument->getOption();
+    if(k.empty()){
+      throw(std::runtime_error("MTestMain::treatHelpCommand : "
+			       "no command specified"));
+    }
+    if((this->scheme==MTEST)||(this->scheme==DEFAULT)){
+      MTestParser().displayKeyWordDescription(k);
+    } else if(this->scheme==PTEST){
+      PipeTestParser().displayKeyWordDescription(k);
+    }
+    ::exit(EXIT_SUCCESS);
+  }
+
+  void MTestMain::treatUnknownArgument()
+  {
+    const auto& a = this->currentArgument->as_string();
+    if(a[0]=='-'){
+      if((a.size()>4)&&((a[1]=='-')&&(a[2]=='@'))){
+	if(a.back()=='@'){
+	  const auto s1 = a.substr(2);
+	  if(std::count(s1.begin(),s1.end(),'@')!=2){
+	    throw(std::runtime_error("MTestMain::treatUnknownArgument: "
+				     "bas substitution pattern '"+s1+"'"));
+	  }
+	  const auto s2 = this->currentArgument->getOption();
+	  if(s2.empty()){
+	    throw(std::runtime_error("MTestMain::treatUnknownArgument: "
+				     "no substitution given for pattern '"+s1+"'"));
+	  }
+	  if(mfront::getVerboseMode()>=mfront::VERBOSE_LEVEL2){
+	    mfront::getLogStream() << "substituting '" << s1 << "' by '" << s2 << "'\n";
+	  }
+	  if(!this->substitutions.insert({s1,s2}).second){
+	    throw(std::runtime_error("MTestMain::treatUnknownArgument: "
+				     "a substitution for '"+s1+"' has "
+				     "already been defined"));
+	  }
+	  return;
+	} else {
+	  const auto o = this->currentArgument->getOption();
+	  auto cmd = a.substr(2);
+	  if(!o.empty()){
+	    cmd += ' '+o;
+	  }
+	  cmd += ';';
+	  this->ecmds.push_back(cmd);
+	  return;
+	}
+      }
+#if ! (defined _WIN32 || defined _WIN64 ||defined __CYGWIN__)
+      ArgumentParserBase<MTestMain>::treatUnknownArgument();
+#else
+      std::cerr << "mtest : unsupported option '" << a << "'\n";
+      exit(EXIT_FAILURE);
+#endif /* __CYGWIN__ */
+    }
+    this->inputs.push_back(this->currentArgument->as_string());
+  } // end of MTestMain::treatUnknownArgument()
+
+  std::string MTestMain::getVersionDescription() const
+  {
+    return "mtest is an behaviour testing utility";
+  }
+
+  std::string MTestMain::getUsageDescription() const
+  {
+    return "Usage : mtest [options] [filesusage]";
+  }
+
+  int MTestMain::execute()
+  {
+    auto mtest = [](const std::string& f,
+		    const std::vector<std::string>& e,
+		    const std::map<std::string,std::string>& s)
+      -> std::shared_ptr<SchemeBase> {
+      auto t = std::make_shared<MTest>();
+      t->readInputFile(f,e,s);
+      return t;
+    };
+    auto ptest = [](const std::string& f,
+		    const std::vector<std::string>& e,
+		    const std::map<std::string,std::string>& s)
+      -> std::shared_ptr<SchemeBase> {
+      auto t = std::make_shared<PipeTest>();
+      PipeTestParser().execute(*t,f,e,s);
+      return t;
+    };
+    using namespace std;
+    using namespace tfel::tests;
+    auto& tm = TestManager::getTestManager();
+    for(const auto& i : this->inputs){
+      string tname;
+      string ext;
+      const auto pos = i.rfind('.');
+      if(pos!=string::npos){
+	tname = i.substr(0,pos);
+	ext   = i.substr(pos); 
+      } else {
+	tname = i;
+      }
+      if(tname.back()=='/'){
+	throw(std::runtime_error("MTestMain::execute: "
+				 "invalid input file name '"+i+"'"));
+      }
+      const auto pos2 = tname.rfind('/');
+      if(pos2!=string::npos){
+	tname = tname.substr(pos2+1);
+      }
+      if(tname.empty()){
+	throw(std::runtime_error("MTestMain::execute: "
+				 "invalid input file name '"+i+"'"));
+	
+      }
+      auto t = std::shared_ptr<SchemeBase>{};
+      if(this->scheme==MTEST){
+	t = mtest(i,this->ecmds,this->substitutions);
+      } else if (this->scheme==PTEST){
+	t = ptest(i,this->ecmds,this->substitutions);
+      } else if (this->scheme==DEFAULT){
+	if(ext==".ptest"){
+	  t = ptest(i,this->ecmds,this->substitutions);
+	} else {
+	  t = mtest(i,this->ecmds,this->substitutions);
+	}
+      }
+      if(this->result_file_output){
+	if(!t->isOutputFileNameDefined()){
+	  t->setOutputFileName(tname+".res");
+	}
+      }
+      if(this->residual_file_output){
+	if(!t->isResidualFileNameDefined()){
+	  t->setResidualFileName(tname+"-residual.res");
+	}
+      }
+      tm.addTest("MTest/"+tname,t);
+      if(this->xml_output){
+	shared_ptr<TestOutput> o;
+	if(!t->isXMLOutputFileNameDefined()){
+	  o = shared_ptr<TestOutput>(new XMLTestOutput(tname+".xml"));
+	} else {
+	  o = shared_ptr<TestOutput>(new XMLTestOutput(t->getXMLOutputFileName()));
+	}
+	tm.addTestOutput("MTest/"+tname,o);
+      }
+      tm.addTestOutput("MTest/"+tname,cout);
+    }
+    const auto r = tm.execute();
+    return r.success() ?  EXIT_SUCCESS : EXIT_FAILURE;
+  }
+
+  MTestMain::~MTestMain()
+  {}
+
+} // end of namespace mtest
+
+/* coverity [UNCAUGHT_EXCEPT]*/
+int main(const int argc,
+	 const char * const * const argv)
+{
+  using namespace std;
+  using namespace mtest;
+  int r = EXIT_FAILURE;
+#if defined _WIN32 || defined _WIN64 ||defined __CYGWIN__
+  try{
+#endif /* __CYGWIN__ */
+    MTestMain m(argc,argv);
+    r = m.execute();
+#if defined _WIN32 || defined _WIN64 ||defined __CYGWIN__
+  }
+  catch(exception& e){
+    cerr << e.what() << endl;
+    return r;
+  }
+#endif /* __CYGWIN__ */
+  return r;
+} // end of main
diff --git a/testing/tfel/floating_point_exceptions.hxx b/testing/tfel/floating_point_exceptions.hxx
new file mode 100644
index 0000000000..691dfc5dec
--- /dev/null
+++ b/testing/tfel/floating_point_exceptions.hxx
@@ -0,0 +1,53 @@
+/*!
+ * \file   include/TFEL/Math/General/floating_point_exceptions.hxx
+ * \brief  
+ * 
+ * \author Helfer Thomas
+ * \date   03 Jul 2006
+ * \copyright Copyright (C) 2006-2014 CEA/DEN, EDF R&D. All rights 
+ * reserved. 
+ * This project is publicly released under either the GNU GPL Licence 
+ * or the CECILL-A licence. A copy of thoses licences are delivered 
+ * with the sources of TFEL. CEA or EDF may also distribute this 
+ * project under specific licensing conditions. 
+ */
+
+#ifndef LIB_TFEL_FLOATING_POINT_EXCEPTIONS_HXX_
+#define LIB_TFEL_FLOATING_POINT_EXCEPTIONS_HXX_ 
+
+#ifdef HAVE_FENV
+#include "fenv.h"
+#endif /* LIB_TFEL_FLOATING_POINT_EXCEPTIONS_HXX_ */
+
+namespace tfel{
+  
+  namespace math{
+
+    /*!
+     * this function enables C99 floating point rounding and exception handling:
+     * - FE_DIVBYZERO: the DivideByZero exception occurs when an operation on finite numbers produces infinity as exact answer.
+     * - FE_UNDERFLOW: the  Overflow  exception  occurs  when  a result has to be represented as a floating point number, but has (much) larger absolute value than the largest (finite) floating point number that is representable.
+     * - FE_OVERFLOW: the Underflow exception occurs when a result has to be represented as a floating point number,  but  has  smaller absolute  value  than  the  smallest positive normalized floating point number (and would lose much accuracy when represented as a denormalized number).
+     * - FE_INEXACT: the Inexact exception occurs when the rounded result of an operation is  not  equal  to  the  infinite  precision result.  It may occur whenever Overflow or Underflow occurs.
+     */
+    inline void init_floating_point_exceptions(void);
+
+    void init_floating_point_exceptions(void)
+    {
+#ifdef HAVE_FENV
+#ifdef __GLIBC__
+      feenableexcept(FE_DIVBYZERO); //	division by zero
+      feenableexcept(FE_UNDERFLOW); //	result not representable due to underflow
+      feenableexcept(FE_OVERFLOW);  //	result not representable due to overflow
+      feenableexcept(FE_INVALID);   //	invalid operation
+      fedisableexcept(FE_INEXACT);  // The Inexact exception occurs when the  rounded  result  of  an operation  is  not equal to the infinite precision result.
+#endif /* __GLIBC__ */
+#endif /* LIB_TFEL_FLOATING_POINT_EXCEPTIONS_HXX_ */
+    }    
+    
+  } // end of namespace math
+
+} // end of namespace tfel
+
+#endif /* LIB_TFEL_FLOATING_POINT_EXCEPTIONS_HXX_ */
+
-- 
2.15.0



---
Unsubscribe:  alpine-aports+unsubscribe@lists.alpinelinux.org
Help:         alpine-aports+help@lists.alpinelinux.org
---