@@ -2046,11 +2046,11 @@ namespace attributes {
2046
2046
<< getCCallable (packageCpp () + " _" + function.name ()) << " ;"
2047
2047
<< std::endl;
2048
2048
ostr () << " }" << std::endl;
2049
- ostr () << " RObject RCPP_result_gen_ ;" << std::endl;
2049
+ ostr () << " RObject rcpp_result_gen ;" << std::endl;
2050
2050
ostr () << " {" << std::endl;
2051
2051
if (it->rng ())
2052
2052
ostr () << " RNGScope RCPP_rngScope_gen;" << std::endl;
2053
- ostr () << " RCPP_result_gen_ = " << ptrName << " (" ;
2053
+ ostr () << " rcpp_result_gen = " << ptrName << " (" ;
2054
2054
2055
2055
const std::vector<Argument>& args = function.arguments ();
2056
2056
for (std::size_t i = 0 ; i<args.size (); i++) {
@@ -2062,18 +2062,18 @@ namespace attributes {
2062
2062
ostr () << " );" << std::endl;
2063
2063
ostr () << " }" << std::endl;
2064
2064
2065
- ostr () << " if (RCPP_result_gen_ .inherits(\" interrupted-error\" ))"
2065
+ ostr () << " if (rcpp_result_gen .inherits(\" interrupted-error\" ))"
2066
2066
<< std::endl
2067
2067
<< " throw Rcpp::internal::InterruptedException();"
2068
2068
<< std::endl;
2069
- ostr () << " if (RCPP_result_gen_ .inherits(\" try-error\" ))"
2069
+ ostr () << " if (rcpp_result_gen .inherits(\" try-error\" ))"
2070
2070
<< std::endl
2071
2071
<< " throw Rcpp::exception(as<std::string>("
2072
- << " RCPP_result_gen_ ).c_str());"
2072
+ << " rcpp_result_gen ).c_str());"
2073
2073
<< std::endl;
2074
2074
if (!function.type ().isVoid ()) {
2075
2075
ostr () << " return Rcpp::as<" << function.type () << " >"
2076
- << " (RCPP_result_gen_ );" << std::endl;
2076
+ << " (rcpp_result_gen );" << std::endl;
2077
2077
}
2078
2078
2079
2079
ostr () << " }" << std::endl << std::endl;
@@ -2149,7 +2149,7 @@ namespace attributes {
2149
2149
}
2150
2150
2151
2151
std::string CppExportsIncludeGenerator::getHeaderGuard () const {
2152
- return " RCPP_ " + packageCpp () + " _RcppExports_h_gen_" ;
2152
+ return " _RCPP_ " + packageCpp () + " _RcppExports_h_gen_" ;
2153
2153
}
2154
2154
2155
2155
CppPackageIncludeGenerator::CppPackageIncludeGenerator (
@@ -2197,7 +2197,7 @@ namespace attributes {
2197
2197
}
2198
2198
2199
2199
std::string CppPackageIncludeGenerator::getHeaderGuard () const {
2200
- return " RCPP_ " + packageCpp () + " _h_gen_" ;
2200
+ return " _RCPP_ " + packageCpp () + " _h_gen_" ;
2201
2201
}
2202
2202
2203
2203
RExportsGenerator::RExportsGenerator (const std::string& packageDir,
@@ -2583,9 +2583,9 @@ namespace attributes {
2583
2583
ostr << args << " ) {" << std::endl;
2584
2584
ostr << " BEGIN_RCPP" << std::endl;
2585
2585
if (!function.type ().isVoid ())
2586
- ostr << " Rcpp::RObject RCPP_result_gen_ ;" << std::endl;
2586
+ ostr << " Rcpp::RObject rcpp_result_gen ;" << std::endl;
2587
2587
if (!cppInterface && attribute.rng ())
2588
- ostr << " Rcpp::RNGScope RCPP_rngScope_gen_ ;" << std::endl;
2588
+ ostr << " Rcpp::RNGScope rcpp_rngScope_gen ;" << std::endl;
2589
2589
for (size_t i = 0 ; i<arguments.size (); i++) {
2590
2590
const Argument& argument = arguments[i];
2591
2591
@@ -2596,7 +2596,7 @@ namespace attributes {
2596
2596
2597
2597
ostr << " " ;
2598
2598
if (!function.type ().isVoid ())
2599
- ostr << " RCPP_result_gen_ = Rcpp::wrap(" ;
2599
+ ostr << " rcpp_result_gen = Rcpp::wrap(" ;
2600
2600
ostr << function.name () << " (" ;
2601
2601
for (size_t i = 0 ; i<arguments.size (); i++) {
2602
2602
const Argument& argument = arguments[i];
@@ -2610,7 +2610,7 @@ namespace attributes {
2610
2610
2611
2611
if (!function.type ().isVoid ())
2612
2612
{
2613
- ostr << " return RCPP_result_gen_ ;" << std::endl;
2613
+ ostr << " return rcpp_result_gen ;" << std::endl;
2614
2614
}
2615
2615
else
2616
2616
{
@@ -2624,11 +2624,11 @@ namespace attributes {
2624
2624
if (cppInterface) {
2625
2625
ostr << " RcppExport SEXP " << funcName << " (" << args << " ) {"
2626
2626
<< std::endl;
2627
- ostr << " SEXP RCPP_result_gen_ ;" << std::endl;
2627
+ ostr << " SEXP rcpp_result_gen ;" << std::endl;
2628
2628
ostr << " {" << std::endl;
2629
2629
if (attribute.rng ())
2630
- ostr << " Rcpp::RNGScope RCPP_rngScope_gen_ ;" << std::endl;
2631
- ostr << " RCPP_result_gen_ = PROTECT(" << funcName
2630
+ ostr << " Rcpp::RNGScope rcpp_rngScope_gen ;" << std::endl;
2631
+ ostr << " rcpp_result_gen = PROTECT(" << funcName
2632
2632
<< kTrySuffix << " (" ;
2633
2633
for (size_t i = 0 ; i<arguments.size (); i++) {
2634
2634
const Argument& argument = arguments[i];
@@ -2638,21 +2638,21 @@ namespace attributes {
2638
2638
}
2639
2639
ostr << " ));" << std::endl;
2640
2640
ostr << " }" << std::endl;
2641
- ostr << " Rboolean RCPP_isInterrupt_gen_ = Rf_inherits(RCPP_result_gen_ , \" interrupted-error\" );"
2641
+ ostr << " Rboolean rcpp_isError_gen = Rf_inherits(rcpp_result_gen , \" interrupted-error\" );"
2642
2642
<< std::endl
2643
- << " if (RCPP_isInterrupt_gen_ ) {" << std::endl
2643
+ << " if (rcpp_isError_gen ) {" << std::endl
2644
2644
<< " UNPROTECT(1);" << std::endl
2645
2645
<< " Rf_onintr();" << std::endl
2646
2646
<< " }" << std::endl
2647
- << " Rboolean RCPP_isError_gen_ = Rf_inherits(RCPP_result_gen_ , \" try-error\" );"
2647
+ << " Rboolean rcpp_isError_gen = Rf_inherits(rcpp_result_gen , \" try-error\" );"
2648
2648
<< std::endl
2649
- << " if (RCPP_isError_gen_ ) {" << std::endl
2650
- << " SEXP RCPP_msgSEXP_gen_ = Rf_asChar(RCPP_result_gen_ );" << std::endl
2649
+ << " if (rcpp_isError_gen ) {" << std::endl
2650
+ << " SEXP rcpp_msgSEXP_gen = Rf_asChar(rcpp_result_gen );" << std::endl
2651
2651
<< " UNPROTECT(1);" << std::endl
2652
- << " Rf_error(CHAR(RCPP_msgSEXP_gen_ ));" << std::endl
2652
+ << " Rf_error(CHAR(rcpp_msgSEXP_gen ));" << std::endl
2653
2653
<< " }" << std::endl
2654
2654
<< " UNPROTECT(1);" << std::endl
2655
- << " return RCPP_result_gen_ ;" << std::endl
2655
+ << " return rcpp_result_gen ;" << std::endl
2656
2656
<< " }" << std::endl;
2657
2657
}
2658
2658
}
0 commit comments