22//
33// RcppCommon.h: Rcpp R/C++ interface class library -- common include and defines statements
44//
5- // Copyright (C) 2008 - 2009 Dirk Eddelbuettel
6- // Copyright (C) 2009 - 2013 Dirk Eddelbuettel and Romain Francois
5+ // Copyright (C) 2008 - 2009 Dirk Eddelbuettel
6+ // Copyright (C) 2009 - 2015 Dirk Eddelbuettel and Romain Francois
77//
88// This file is part of Rcpp.
99//
3131/* *
3232 * \brief Rcpp API
3333 */
34- namespace Rcpp {
34+ namespace Rcpp {
3535
3636 /* *
3737 * \brief traits used to dispatch wrap
3838 */
39- namespace traits {
39+ namespace traits {
4040 } // traits
4141
4242 /* *
4343 * \brief internal implementation details
4444 */
45- namespace internal {
45+ namespace internal {
4646 } // internal
4747} // Rcpp
4848
@@ -71,33 +71,33 @@ namespace Rcpp{
7171#include < Rmath.h>
7272#include < Rcpp/sugar/undoRmath.h>
7373
74- namespace Rcpp {
74+ namespace Rcpp {
7575
76- SEXP Rcpp_eval (SEXP expr_, SEXP env = R_GlobalEnv ) ;
77- class Module ;
76+ SEXP Rcpp_eval (SEXP expr_, SEXP env = R_GlobalEnv) ;
77+ class Module ;
7878
79- namespace traits {
80- template <typename T> class named_object ;
79+ namespace traits {
80+ template <typename T> class named_object ;
8181 }
8282
83- inline SEXP Rcpp_PreserveObject (SEXP x){
84- if ( x != R_NilValue ) {
83+ inline SEXP Rcpp_PreserveObject (SEXP x) {
84+ if ( x != R_NilValue) {
8585 R_PreserveObject (x);
8686 }
87- return x ;
87+ return x;
8888 }
8989
90- inline void Rcpp_ReleaseObject (SEXP x){
90+ inline void Rcpp_ReleaseObject (SEXP x) {
9191 if (x != R_NilValue) {
9292 R_ReleaseObject (x);
9393 }
9494 }
9595
96- inline SEXP Rcpp_ReplaceObject (SEXP x, SEXP y){
97- if ( Rf_isNull (x) ) {
98- Rcpp_PreserveObject ( y ) ;
99- } else if ( Rf_isNull (y) ) {
100- Rcpp_ReleaseObject ( x ) ;
96+ inline SEXP Rcpp_ReplaceObject (SEXP x, SEXP y) {
97+ if ( Rf_isNull (x)) {
98+ Rcpp_PreserveObject (y) ;
99+ } else if ( Rf_isNull (y)) {
100+ Rcpp_ReleaseObject (x) ;
101101 } else {
102102 // if we are setting to the same SEXP as we already have, do nothing
103103 if (x != y) {
@@ -110,7 +110,7 @@ namespace Rcpp{
110110
111111 }
112112 }
113- return y ;
113+ return y;
114114 }
115115
116116}
@@ -131,12 +131,12 @@ namespace Rcpp{
131131
132132#include < Rcpp/Interrupt.h>
133133
134- namespace Rcpp {
135- template <typename T> class object ;
136- class String ;
137- namespace internal {
138- template <typename Class> SEXP make_new_object ( Class* ptr ) ;
139- }
134+ namespace Rcpp {
135+ template <typename T> class object ;
136+ class String ;
137+ namespace internal {
138+ template <typename Class> SEXP make_new_object (Class* ptr) ;
139+ }
140140}
141141
142142#include < Rcpp/longlong.h>
0 commit comments