Rcpp Version 0.12.14
r_sexptype_traits.h
Go to the documentation of this file.
1 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*-
2 /* :tabSize=4:indentSize=4:noTabs=false:folding=explicit:collapseFolds=1: */
3 //
4 // r_sexptype_traits.h: Rcpp R/C++ interface class library -- traits to help wrap
5 //
6 // Copyright (C) 2010 - 2013 Dirk Eddelbuettel and Romain Francois
7 //
8 // This file is part of Rcpp.
9 //
10 // Rcpp is free software: you can redistribute it and/or modify it
11 // under the terms of the GNU General Public License as published by
12 // the Free Software Foundation, either version 2 of the License, or
13 // (at your option) any later version.
14 //
15 // Rcpp is distributed in the hope that it will be useful, but
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 // GNU General Public License for more details.
19 //
20 // You should have received a copy of the GNU General Public License
21 // along with Rcpp. If not, see <http://www.gnu.org/licenses/>.
22 
23 #ifndef Rcpp__traits__r_sexptype_traits__h
24 #define Rcpp__traits__r_sexptype_traits__h
25 
26 namespace Rcpp{
27 namespace traits{
28 
33 template <typename T> struct r_sexptype_traits{ enum{ rtype = VECSXP }; } ;
34 template<> struct r_sexptype_traits<int>{ enum{ rtype = INTSXP } ; } ;
35 template<> struct r_sexptype_traits<const int>{ enum{ rtype = INTSXP } ; } ;
36 template<> struct r_sexptype_traits<double>{ enum{ rtype = REALSXP } ; } ;
37 template<> struct r_sexptype_traits<const double>{ enum{ rtype = REALSXP } ; } ;
38 template<> struct r_sexptype_traits<bool>{ enum{ rtype = LGLSXP } ; } ;
39 template<> struct r_sexptype_traits<std::string>{ enum{ rtype = STRSXP } ; } ;
40 template<> struct r_sexptype_traits<Rcomplex>{ enum{ rtype = CPLXSXP } ; } ;
41 template<> struct r_sexptype_traits<Rbyte>{ enum{ rtype = RAWSXP } ; } ;
42 
43 
44 template<> struct r_sexptype_traits<unsigned int>{ enum{ rtype = REALSXP } ; } ;
45 template<> struct r_sexptype_traits<float>{ enum{ rtype = REALSXP } ; } ;
46 
47 /* long are represented as numeric vectors which allows more precision
48  to be preserved than int */
49 template<> struct r_sexptype_traits<long>{ enum{ rtype = REALSXP } ; } ;
50 template<> struct r_sexptype_traits<unsigned long>{ enum{ rtype = REALSXP } ; } ;
51 
52 /* long double are represented as numeric vectors because we cannot do better in R
53  some precision will be lost though
54 */
55 template<> struct r_sexptype_traits<long double>{ enum{ rtype = REALSXP } ; } ;
56 
57 /* short are represented as integer vector in R
58 */
59 template<> struct r_sexptype_traits<short>{ enum{ rtype = INTSXP } ; } ;
60 template<> struct r_sexptype_traits<unsigned short>{ enum{ rtype = INTSXP } ; } ;
61 
62 /* std::complex */
63 template<> struct r_sexptype_traits< std::complex<double> >{ enum{ rtype = CPLXSXP } ; } ;
64 template<> struct r_sexptype_traits< std::complex<float> >{ enum{ rtype = CPLXSXP } ; } ;
65 
69 template <typename T> struct r_sexptype_needscast : public true_type{};
70 template<> struct r_sexptype_needscast<int> : public false_type{} ;
71 template<> struct r_sexptype_needscast<double> : public false_type{} ;
72 template<> struct r_sexptype_needscast<Rcomplex> : public false_type{} ;
73 template<> struct r_sexptype_needscast<Rbyte> : public false_type{} ;
74 
75 
76 } // traits
77 } // Rcpp
78 
79 #endif
Definition: swap.h:25
Rcpp API.
Definition: algo.h:28