STK_Real.h

Go to the documentation of this file.

/*--------------------------------------------------------------------*/
/*     Copyright (C) 2004-2016  Serge Iovleff, Université Lille 1, Inria
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU Lesser General Public License as
    published by the Free Software Foundation; either version 2 of the
    License, or (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU Lesser General Public License for more details.
 
    You should have received a copy of the GNU Lesser General Public
    License along with this program; if not, write to the
    Free Software Foundation, Inc.,
    59 Temple Place,
    Suite 330,
    Boston, MA 02111-1307
    USA
 
    Contact : S..._Dot_I..._At_stkpp_Dot_org (see copyright for ...)
*/
 
/*
 * Project:  Base
 * Purpose:  Define the fundamental type Real.
 * Author:   Serge Iovleff, S..._Dot_I..._At_stkpp_Dot_org (see copyright for ...)
 *
 **/
 
#ifndef STK_REAL_H
#define STK_REAL_H
 
#include <map>
 
#ifdef IS_RTKPP_LIB
#include "Rtkpp/include/STK_RcppTraits.h"
#endif
 
namespace STK
{
// forward declarations
template<typename Type> struct Arithmetic;
template<typename Type> struct IdTypeImpl;
 
 
template<>
struct Arithmetic<Real> : public std::numeric_limits<Real>
{
#ifdef IS_RTKPP_LIB
  enum
  {
    Rtype_ = hidden::RcppTraits<Real>::Rtype_
  };
#endif
  static const bool hasNA = true;
  static inline Real NA() throw() { return std::numeric_limits<Real>::quiet_NaN();}
  static const bool has_quiet_NaN = false;
  static inline bool isNA(Real const& x) throw() { return !(x==x);}
  static inline bool isInfinite(Real const& x) throw()
  { return ( (x < -std::numeric_limits<Real>::max())||(x > std::numeric_limits<Real>::max()));}
  static inline bool isFinite(Real const& x) throw() { return (!isNA(x) && !isInfinite(x));}
};
 
template<>
struct IdTypeImpl<Real>
{
  static Base::IdType returnType() { return(Base::real_);}
};
 
#ifdef IS_RTKPP_LIB
template<>
struct Arithmetic<const Real>
{
  enum
  {
    Rtype_ = hidden::RcppTraits<Real>::Rtype_
  };
  static const bool hasNA = true;
  static inline Real NA() throw() { return std::numeric_limits<Real>::quiet_NaN();}
  static const bool has_quiet_NaN = false;
  static inline bool isNA(Real const& x) throw() { return !(x==x);}
  static inline bool isInfinite(Real const& x) throw()
  { return ( (x < -std::numeric_limits<Real>::max())||(x > std::numeric_limits<Real>::max()));}
  static inline bool isFinite(Real const& x) throw() { return (!isNA(x) && !isInfinite(x));}
};
 
template<>
struct IdTypeImpl<const Real>
{
  static Base::IdType returnType() { return(Base::real_);}
};
 
#endif // IS_RTKPP_LIB
 
inline Real stringToReal( String const& str)
{
  istringstream is(str);
  Real x;
  is >> Proxy<Real>(x);
  return x;
}
 
inline Real stringToReal( String const& str, std::map<String, Real> const& mapping)
{
  std::map<String, Real>::const_iterator it=mapping.find(str);
  return (it == mapping.end()) ? Arithmetic<Real>::NA() : it->second;
}
 
inline String realToString( Real const& value, std::ios_base& (*f)(std::ios_base&) = std::dec)
{
  if (isNA(value)) return stringNa;
  ostringstream os;
  os << f << value;
  return os.str();
}
 
inline String realToString( Real const& type, std::map<Real, String> const& mapping)
{
  std::map<Real, String>::const_iterator it=mapping.find(type);
  if (it == mapping.end())  return stringNa;
  return it->second;
}
 
template<>
inline Real stringToType<Real>( String const& str)
{ return stringToReal(str);}
 
template<>
inline String typeToString<Real>( Real const& value, std::ios_base& (*f)(std::ios_base&))
{ return realToString(value, f);}
 
} // namespace STK
 
#endif /*STK_REAL_H*/