|
1 | | -// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*- |
2 | | -// |
3 | | -// InternalFunction.cpp: Rcpp R/C++ interface class library -- InternalFunction unit tests |
4 | | -// |
5 | | -// Copyright (C) 2014 Christian Authmann |
6 | | -// |
7 | | -// This file is part of Rcpp. |
8 | | -// |
9 | | -// Rcpp is free software: you can redistribute it and/or modify it |
10 | | -// under the terms of the GNU General Public License as published by |
11 | | -// the Free Software Foundation, either version 2 of the License, or |
12 | | -// (at your option) any later version. |
13 | | -// |
14 | | -// Rcpp is distributed in the hope that it will be useful, but |
15 | | -// WITHOUT ANY WARRANTY; without even the implied warranty of |
16 | | -// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
17 | | -// GNU General Public License for more details. |
18 | | -// |
19 | | -// You should have received a copy of the GNU General Public License |
20 | | -// along with Rcpp. If not, see <http://www.gnu.org/licenses/>. |
21 | | - |
22 | | - |
23 | | -#include <Rcpp.h> |
24 | | - |
25 | | - |
26 | | -int add(int a, int b) { |
27 | | - return a + b; |
28 | | -} |
29 | | - |
30 | | -void dummy(int a, int b) { |
31 | | - Rcpp::Rcout << "dummy called" << std::endl; |
32 | | -} |
33 | | - |
34 | | -// [[Rcpp::export]] |
35 | | -Rcpp::InternalFunction getDummy() { |
36 | | - return Rcpp::InternalFunction( &dummy ); |
37 | | -} |
38 | | - |
39 | | - |
40 | | -// [[Rcpp::export]] |
41 | | -Rcpp::InternalFunction getAdd() { |
42 | | - return Rcpp::InternalFunction( &add ); |
43 | | -} |
44 | | - |
45 | | - |
46 | | -std::string concatenate(std::string a, std::string b) { |
47 | | - return a + b; |
48 | | -} |
49 | | - |
50 | | -// [[Rcpp::export]] |
51 | | -Rcpp::InternalFunction getConcatenate() { |
52 | | - return Rcpp::InternalFunction( &concatenate ); |
53 | | -} |
54 | | - |
| 1 | +// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*- |
| 2 | +// |
| 3 | +// InternalFunction.cpp: Rcpp R/C++ interface class library -- InternalFunction unit tests |
| 4 | +// |
| 5 | +// Copyright (C) 2014 Christian Authmann |
| 6 | +// |
| 7 | +// This file is part of Rcpp. |
| 8 | +// |
| 9 | +// Rcpp is free software: you can redistribute it and/or modify it |
| 10 | +// under the terms of the GNU General Public License as published by |
| 11 | +// the Free Software Foundation, either version 2 of the License, or |
| 12 | +// (at your option) any later version. |
| 13 | +// |
| 14 | +// Rcpp is distributed in the hope that it will be useful, but |
| 15 | +// WITHOUT ANY WARRANTY; without even the implied warranty of |
| 16 | +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 17 | +// GNU General Public License for more details. |
| 18 | +// |
| 19 | +// You should have received a copy of the GNU General Public License |
| 20 | +// along with Rcpp. If not, see <http://www.gnu.org/licenses/>. |
| 21 | + |
| 22 | + |
| 23 | +#include <Rcpp.h> |
| 24 | + |
| 25 | + |
| 26 | +int add(int a, int b) { |
| 27 | + return a + b; |
| 28 | +} |
| 29 | + |
| 30 | +void dummy(int a, int b) { |
| 31 | + Rcpp::Rcout << "dummy called" << std::endl; |
| 32 | +} |
| 33 | + |
| 34 | +// [[Rcpp::export]] |
| 35 | +Rcpp::InternalFunction getDummy() { |
| 36 | + return Rcpp::InternalFunction( &dummy ); |
| 37 | +} |
| 38 | + |
| 39 | + |
| 40 | +// [[Rcpp::export]] |
| 41 | +Rcpp::InternalFunction getAdd() { |
| 42 | + return Rcpp::InternalFunction( &add ); |
| 43 | +} |
| 44 | + |
| 45 | + |
| 46 | +std::string concatenate(std::string a, std::string b) { |
| 47 | + return a + b; |
| 48 | +} |
| 49 | + |
| 50 | +// [[Rcpp::export]] |
| 51 | +Rcpp::InternalFunction getConcatenate() { |
| 52 | + return Rcpp::InternalFunction( &concatenate ); |
| 53 | +} |
| 54 | + |
0 commit comments