1
2 // lang.h: Rcpp R/C++ interface class library -- extra lang_* functions
3 //
4 // Copyright (C) 2011 - 2020 Dirk Eddelbuettel and Romain Francois
5 //
6 // This file is part of Rcpp.
7 //
8 // Rcpp is free software: you can redistribute it and/or modify it
9 // under the terms of the GNU General Public License as published by
10 // the Free Software Foundation, either version 2 of the License, or
11 // (at your option) any later version.
12 //
13 // Rcpp is distributed in the hope that it will be useful, but
14 // WITHOUT ANY WARRANTY; without even the implied warranty of
15 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 // GNU General Public License for more details.
17 //
18 // You should have received a copy of the GNU General Public License
19 // along with Rcpp. If not, see <http://www.gnu.org/licenses/>.
20
21 #ifndef Rcpp__lang_h
22 #define Rcpp__lang_h
23
24 #define Rcpp_list1 Rf_list1
25 #define Rcpp_lang1 Rf_lang1
26 #define Rcpp_lang2 Rf_lang2
27 #define Rcpp_lang3 Rf_lang3
28 #define Rcpp_lang4 Rf_lang4
29 #define Rcpp_lang5 Rf_lang5
30 #define Rcpp_lang6 Rf_lang6
31
32 #define Rcpp_lcons Rf_lcons
33
34 namespace Rcpp {
35
Rcpp_list2(SEXP x0,SEXP x1)36 inline SEXP Rcpp_list2(SEXP x0, SEXP x1) {
37 PROTECT(x0);
38 x0 = Rf_cons(x0, Rcpp_list1(x1));
39 UNPROTECT(1);
40 return x0;
41 }
42
Rcpp_list3(SEXP x0,SEXP x1,SEXP x2)43 inline SEXP Rcpp_list3(SEXP x0, SEXP x1, SEXP x2) {
44 PROTECT(x0);
45 x0 = Rf_cons(x0, Rcpp_list2(x1, x2));
46 UNPROTECT(1);
47 return x0;
48 }
49
Rcpp_list4(SEXP x0,SEXP x1,SEXP x2,SEXP x3)50 inline SEXP Rcpp_list4(SEXP x0, SEXP x1, SEXP x2, SEXP x3) {
51 PROTECT(x0);
52 x0 = Rf_cons(x0, Rcpp_list3(x1, x2, x3));
53 UNPROTECT(1);
54 return x0;
55 }
56
Rcpp_list5(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4)57 inline SEXP Rcpp_list5(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4) {
58 PROTECT(x0);
59 x0 = Rf_cons(x0, Rcpp_list4(x1, x2, x3, x4));
60 UNPROTECT(1);
61 return x0;
62 }
63
Rcpp_list6(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5)64 inline SEXP Rcpp_list6(SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5) {
65 PROTECT(x0);
66 x0 = Rf_cons(x0, Rcpp_list5(x1, x2, x3, x4, x5));
67 UNPROTECT(1);
68 return x0;
69 }
70
Rcpp_list7(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6)71 inline SEXP Rcpp_list7( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6 )
72 {
73 PROTECT(x0);
74 x0 = Rf_cons(x0, Rcpp_list6(x1, x2, x3, x4, x5, x6));
75 UNPROTECT(1);
76 return x0;
77 }
78
Rcpp_lang7(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6)79 inline SEXP Rcpp_lang7( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6 )
80 {
81 PROTECT(x0);
82 x0 = Rf_lcons(x0, Rcpp_list6(x1, x2, x3, x4, x5, x6));
83 UNPROTECT(1);
84 return x0;
85 }
86
Rcpp_list8(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7)87 inline SEXP Rcpp_list8( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7 )
88 {
89 PROTECT(x0);
90 x0 = Rf_cons(x0, Rcpp_list7(x1, x2, x3, x4, x5, x6, x7));
91 UNPROTECT(1);
92 return x0;
93 }
94
Rcpp_lang8(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7)95 inline SEXP Rcpp_lang8( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7 )
96 {
97 PROTECT(x0);
98 x0 = Rf_lcons(x0, Rcpp_list7(x1, x2, x3, x4, x5, x6, x7));
99 UNPROTECT(1);
100 return x0;
101 }
102
Rcpp_list9(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8)103 inline SEXP Rcpp_list9( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8 )
104 {
105 PROTECT(x0);
106 x0 = Rf_cons(x0, Rcpp_list8(x1, x2, x3, x4, x5, x6, x7, x8));
107 UNPROTECT(1);
108 return x0;
109 }
110
Rcpp_lang9(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8)111 inline SEXP Rcpp_lang9( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8 )
112 {
113 PROTECT(x0);
114 x0 = Rf_lcons(x0, Rcpp_list8(x1, x2, x3, x4, x5, x6, x7, x8));
115 UNPROTECT(1);
116 return x0;
117 }
118
Rcpp_list10(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9)119 inline SEXP Rcpp_list10( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9 )
120 {
121 PROTECT(x0);
122 x0 = Rf_cons(x0, Rcpp_list9(x1, x2, x3, x4, x5, x6, x7, x8, x9));
123 UNPROTECT(1);
124 return x0;
125 }
126
Rcpp_lang10(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9)127 inline SEXP Rcpp_lang10( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9 )
128 {
129 PROTECT(x0);
130 x0 = Rf_lcons(x0, Rcpp_list9(x1, x2, x3, x4, x5, x6, x7, x8, x9));
131 UNPROTECT(1);
132 return x0;
133 }
134
Rcpp_list11(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10)135 inline SEXP Rcpp_list11( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10 )
136 {
137 PROTECT(x0);
138 x0 = Rf_cons(x0, Rcpp_list10(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10));
139 UNPROTECT(1);
140 return x0;
141 }
142
Rcpp_lang11(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10)143 inline SEXP Rcpp_lang11( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10 )
144 {
145 PROTECT(x0);
146 x0 = Rf_lcons(x0, Rcpp_list10(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10));
147 UNPROTECT(1);
148 return x0;
149 }
150
Rcpp_list12(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11)151 inline SEXP Rcpp_list12( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11 )
152 {
153 PROTECT(x0);
154 x0 = Rf_cons(x0, Rcpp_list11(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11));
155 UNPROTECT(1);
156 return x0;
157 }
158
Rcpp_lang12(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11)159 inline SEXP Rcpp_lang12( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11 )
160 {
161 PROTECT(x0);
162 x0 = Rf_lcons(x0, Rcpp_list11(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11));
163 UNPROTECT(1);
164 return x0;
165 }
166
Rcpp_list13(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12)167 inline SEXP Rcpp_list13( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12 )
168 {
169 PROTECT(x0);
170 x0 = Rf_cons(x0, Rcpp_list12(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12));
171 UNPROTECT(1);
172 return x0;
173 }
174
Rcpp_lang13(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12)175 inline SEXP Rcpp_lang13( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12 )
176 {
177 PROTECT(x0);
178 x0 = Rf_lcons(x0, Rcpp_list12(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12));
179 UNPROTECT(1);
180 return x0;
181 }
182
Rcpp_list14(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13)183 inline SEXP Rcpp_list14( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13 )
184 {
185 PROTECT(x0);
186 x0 = Rf_cons(x0, Rcpp_list13(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13));
187 UNPROTECT(1);
188 return x0;
189 }
190
Rcpp_lang14(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13)191 inline SEXP Rcpp_lang14( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13 )
192 {
193 PROTECT(x0);
194 x0 = Rf_lcons(x0, Rcpp_list13(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13));
195 UNPROTECT(1);
196 return x0;
197 }
198
Rcpp_list15(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13,SEXP x14)199 inline SEXP Rcpp_list15( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13, SEXP x14 )
200 {
201 PROTECT(x0);
202 x0 = Rf_cons(x0, Rcpp_list14(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14));
203 UNPROTECT(1);
204 return x0;
205 }
206
Rcpp_lang15(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13,SEXP x14)207 inline SEXP Rcpp_lang15( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13, SEXP x14 )
208 {
209 PROTECT(x0);
210 x0 = Rf_lcons(x0, Rcpp_list14(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14));
211 UNPROTECT(1);
212 return x0;
213 }
214
Rcpp_list16(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13,SEXP x14,SEXP x15)215 inline SEXP Rcpp_list16( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13, SEXP x14, SEXP x15 )
216 {
217 PROTECT(x0);
218 x0 = Rf_cons(x0, Rcpp_list15(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15));
219 UNPROTECT(1);
220 return x0;
221 }
222
Rcpp_lang16(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13,SEXP x14,SEXP x15)223 inline SEXP Rcpp_lang16( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13, SEXP x14, SEXP x15 )
224 {
225 PROTECT(x0);
226 x0 = Rf_lcons(x0, Rcpp_list15(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15));
227 UNPROTECT(1);
228 return x0;
229 }
230
Rcpp_list17(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13,SEXP x14,SEXP x15,SEXP x16)231 inline SEXP Rcpp_list17( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13, SEXP x14, SEXP x15, SEXP x16 )
232 {
233 PROTECT(x0);
234 x0 = Rf_cons(x0, Rcpp_list16(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16));
235 UNPROTECT(1);
236 return x0;
237 }
238
Rcpp_lang17(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13,SEXP x14,SEXP x15,SEXP x16)239 inline SEXP Rcpp_lang17( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13, SEXP x14, SEXP x15, SEXP x16 )
240 {
241 PROTECT(x0);
242 x0 = Rf_lcons(x0, Rcpp_list16(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16));
243 UNPROTECT(1);
244 return x0;
245 }
246
Rcpp_list18(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13,SEXP x14,SEXP x15,SEXP x16,SEXP x17)247 inline SEXP Rcpp_list18( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13, SEXP x14, SEXP x15, SEXP x16, SEXP x17 )
248 {
249 PROTECT(x0);
250 x0 = Rf_cons(x0, Rcpp_list17(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17));
251 UNPROTECT(1);
252 return x0;
253 }
254
Rcpp_lang18(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13,SEXP x14,SEXP x15,SEXP x16,SEXP x17)255 inline SEXP Rcpp_lang18( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13, SEXP x14, SEXP x15, SEXP x16, SEXP x17 )
256 {
257 PROTECT(x0);
258 x0 = Rf_lcons(x0, Rcpp_list17(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17));
259 UNPROTECT(1);
260 return x0;
261 }
262
Rcpp_list19(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13,SEXP x14,SEXP x15,SEXP x16,SEXP x17,SEXP x18)263 inline SEXP Rcpp_list19( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13, SEXP x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18 )
264 {
265 PROTECT(x0);
266 x0 = Rf_cons(x0, Rcpp_list18(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18));
267 UNPROTECT(1);
268 return x0;
269 }
270
Rcpp_lang19(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13,SEXP x14,SEXP x15,SEXP x16,SEXP x17,SEXP x18)271 inline SEXP Rcpp_lang19( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13, SEXP x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18 )
272 {
273 PROTECT(x0);
274 x0 = Rf_lcons(x0, Rcpp_list18(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18));
275 UNPROTECT(1);
276 return x0;
277 }
278
Rcpp_list20(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13,SEXP x14,SEXP x15,SEXP x16,SEXP x17,SEXP x18,SEXP x19)279 inline SEXP Rcpp_list20( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13, SEXP x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19 )
280 {
281 PROTECT(x0);
282 x0 = Rf_cons(x0, Rcpp_list19(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19));
283 UNPROTECT(1);
284 return x0;
285 }
286
Rcpp_lang20(SEXP x0,SEXP x1,SEXP x2,SEXP x3,SEXP x4,SEXP x5,SEXP x6,SEXP x7,SEXP x8,SEXP x9,SEXP x10,SEXP x11,SEXP x12,SEXP x13,SEXP x14,SEXP x15,SEXP x16,SEXP x17,SEXP x18,SEXP x19)287 inline SEXP Rcpp_lang20( SEXP x0, SEXP x1, SEXP x2, SEXP x3, SEXP x4, SEXP x5, SEXP x6, SEXP x7, SEXP x8, SEXP x9, SEXP x10, SEXP x11, SEXP x12, SEXP x13, SEXP x14, SEXP x15, SEXP x16, SEXP x17, SEXP x18, SEXP x19 )
288 {
289 PROTECT(x0);
290 x0 = Rf_lcons(x0, Rcpp_list19(x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19));
291 UNPROTECT(1);
292 return x0;
293 }
294
295 }
296
297 #endif
298