STK_Integer.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:  stkpp:stkernel::base
 * Purpose:  Define the fundamental type Integer.
 * Author:   Serge Iovleff, S..._Dot_I..._At_stkpp_Dot_org (see copyright for ...)
 *
 **/
 
#ifndef STK_INTEGER_H
#define STK_INTEGER_H
 
#include <map>
 
// for building
#ifdef IS_RTKPP_LIB
#include "Rtkpp/include/STK_RcppTraits.h"
#endif
 
namespace STK
{
template<>
struct Arithmetic<Integer>: public std::numeric_limits<Integer>
{
#ifdef IS_RTKPP_LIB
  enum
  {
    Rtype_ = hidden::RcppTraits<Integer>::Rtype_
  };
#endif
  static const bool hasNA = true;
  static inline Integer NA() throw() { return std::numeric_limits<Integer>::min();}
  static inline bool isNA(Integer const& x) throw()
  { return (x==std::numeric_limits<Integer>::min());}
  static inline Integer min() throw() { return std::numeric_limits<Integer>::min() +1; }
  static inline bool isInfinite(Integer const& x) throw() { return false; }
  static inline bool isFinite(Integer const& x) throw() { return (!isNA(x));}
};
 
template<>
struct IdTypeImpl<Integer>
{
  static inline Base::IdType returnType() { return(Base::integer_);}
};
 
#ifdef IS_RTKPP_LIB
template<>
struct Arithmetic<const Integer>
{
  enum
  {
    Rtype_ = hidden::RcppTraits<const Integer>::Rtype_
  };
  static const bool hasNA = true;
  static inline Integer NA() throw() { return std::numeric_limits<Integer>::min();}
  static inline bool isNA(Integer const& x) throw()
  { return (x==std::numeric_limits<Integer>::min());}
  static inline Integer min() throw() { return std::numeric_limits<Integer>::min() +1; }
  static inline bool isInfinite(Integer const& x) throw() { return false; }
  static inline bool isFinite(Integer const& x) throw() { return (!isNA(x));}
};
 
template<>
struct IdTypeImpl<const Integer>
{
  static inline Base::IdType returnType() { return(Base::integer_);}
};
 
#endif /* IS_RTKPP_LIB */
 
inline Integer stringToInt( String const& str)
{
  Integer x;
  istringstream is(str);
  is >> Proxy<Integer>(x);
  return x;
}
inline Integer stringToInt( String const& str, std::map<String, Integer> const& mapping)
{
  std::map<String, Integer>::const_iterator it=mapping.find(str);
  return (it == mapping.end()) ? Arithmetic<Integer>::NA() : it->second;
}
 
inline String intToString( Integer const& value, std::ios_base& (*f)(std::ios_base&) = std::dec)
{
  if (Arithmetic<Integer>::isNA(value)) return stringNa;
  ostringstream os;
  os << f << value;
  return os.str();
}
 
inline String intToString( Integer const& value, std::map<Integer, String> const& mapping)
{
  std::map<Integer, String>::const_iterator it=mapping.find(value);
  return (it == mapping.end()) ? stringNa : it->second;
}
 
template<>
inline Integer stringToType<Integer>( String const& s)
{ return stringToInt(s);}
 
template<>
inline String typeToString<Integer>( Integer const& t, std::ios_base& (*f)(std::ios_base&))
{ return intToString(t, f);}
 
} // namespace STK
 
#endif /*STK_INTEGER_H*/