Rcpp Version 0.12.14
as.h
Go to the documentation of this file.
1 // Copyright (C) 2013 Romain Francois
2 //
3 // This file is part of Rcpp.
4 //
5 // Rcpp is free software: you can redistribute it and/or modify it
6 // under the terms of the GNU General Public License as published by
7 // the Free Software Foundation, either version 2 of the License, or
8 // (at your option) any later version.
9 //
10 // Rcpp is distributed in the hope that it will be useful, but
11 // WITHOUT ANY WARRANTY; without even the implied warranty of
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 // GNU General Public License for more details.
14 //
15 // You should have received a copy of the GNU General Public License
16 // along with Rcpp. If not, see <http://www.gnu.org/licenses/>.
17 
18 #ifndef Rcpp_api_meat_as_h
19 #define Rcpp_api_meat_as_h
20 
21 namespace Rcpp{
22 namespace internal{
23 
24  inline void* as_module_object_internal(SEXP obj){
25  Environment env(obj) ;
26  SEXP xp = env.get(".pointer") ;
27  return R_ExternalPtrAddr(xp );
28  }
29 
30 }
31 }
32 
33 #endif
void * as_module_object_internal(SEXP obj)
Definition: as.h:24
Rcpp API.
Definition: algo.h:28
Environment_Impl< PreserveStorage > Environment
Definition: Environment.h:401