Skip to content

Commit c06c1d4

Browse files
eddelbuetteleddelbuettel
committed
updated header file generator script
1 parent 0190ce0 commit c06c1d4

2 files changed

Lines changed: 254 additions & 265 deletions

File tree

‎scripts/generator_Module_CppMethod.R‎

Lines changed: 41 additions & 45 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ fun <- function(i) {
1616
x <- collapse(sprintf( "x%d", index))
1717
U <- collapse(sprintf( "U%d", index))
1818

19-
txt <- sprintf('
19+
txt <- sprintf('
2020
2121
template <typename Class, typename RESULT_TYPE, %s> class CppMethod%d : public CppMethod<Class> {
2222
public:
@@ -96,50 +96,46 @@ public:
9696
9797
private:
9898
Method met ;
99-
} ;
100-
101-
',
102-
typenames, # typename U0, ...
103-
i,
104-
u, # U0 u0, ...
105-
i,
106-
input_parameter,
107-
x, # Rcpp::as<U0>( args[0] ) , ...
108-
i,
109-
U,
110-
111-
typenames, # typename U0, ...
112-
i,
113-
U, # U0, ...
114-
u, # U0 u0, ...
115-
i,
116-
input_parameter,
117-
x,
118-
i,
119-
U,
120-
121-
122-
typenames, # typename U0, ...
123-
i,
124-
u, # U0 u0, ...
125-
i,
126-
input_parameter,
127-
x, # Rcpp::as<U0>( args[0] ) , ...
128-
i,
129-
U,
130-
131-
typenames, # typename U0, ...
132-
i,
133-
U, # U0, ...
134-
u, # U0 u0, ...
135-
i,
136-
input_parameter,
137-
x,
138-
i,
139-
U
140-
141-
)
142-
99+
};',
100+
typenames, # typename U0, ...
101+
i,
102+
u, # U0 u0, ...
103+
i,
104+
input_parameter,
105+
x, # Rcpp::as<U0>( args[0] ) , ...
106+
i,
107+
U,
108+
109+
typenames, # typename U0, ...
110+
i,
111+
U, # U0, ...
112+
u, # U0 u0, ...
113+
i,
114+
input_parameter,
115+
x,
116+
i,
117+
U,
118+
119+
120+
typenames, # typename U0, ...
121+
i,
122+
u, # U0 u0, ...
123+
i,
124+
input_parameter,
125+
x, # Rcpp::as<U0>( args[0] ) , ...
126+
i,
127+
U,
128+
129+
typenames, # typename U0, ...
130+
i,
131+
U, # U0, ...
132+
u, # U0 u0, ...
133+
i,
134+
input_parameter,
135+
x,
136+
i,
137+
U
138+
)
143139
}
144140

145141
file <- sprintf(

0 commit comments

Comments
 (0)