Rcpp Version 0.12.14
expands_to_logical.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 // expands_to_logical.h: Rcpp R/C++ interface class library --
5 //
6 // Copyright (C) 2010 - 2011 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__expands_to_logical_h
24 #define Rcpp__traits__expands_to_logical_h
25 
26 // helper trait to disambiguate things that want to be logical vectors
27 // from containers of int
28 
29 namespace Rcpp{
30 namespace traits{
31 
32  template <int RTYPE>
34 
35  template <>
36  struct expands_to_logical__impl<LGLSXP> {
37  struct r_expands_to_logical{};
38  } ;
39 
40  template<typename T>
42  template<typename U> struct _Wrap_type { };
43 
44  template<typename U>
46 
47  template<typename U>
48  static __two __test(...);
49 
50  public:
51  static const bool value = sizeof(__test<T>(0)) == 1;
52  };
53 
54  template<typename T> struct expands_to_logical :
55  integral_constant<bool, _has_rtype_helper<T>::value >{ };
56 
57 
58 }
59 }
60 
61 #endif
Rcpp API.
Definition: algo.h:28