1 // -*- C++ -*-
2
3 // Copyright (C) 2005-2014 Free Software Foundation, Inc.
4 //
5 // This file is part of the GNU ISO C++ Library. This library is free
6 // software; you can redistribute it and/or modify it under the
7 // terms of the GNU General Public License as published by the
8 // Free Software Foundation; either version 3, or (at your option)
9 // any later version.
10
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 // GNU General Public License for more details.
15
16 // Under Section 7 of GPL version 3, you are granted additional
17 // permissions described in the GCC Runtime Library Exception, version
18 // 3.1, as published by the Free Software Foundation.
19
20 // You should have received a copy of the GNU General Public License and
21 // a copy of the GCC Runtime Library Exception along with this program;
22 // see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
23 // <http://www.gnu.org/licenses/>.
24
25 // Copyright (C) 2004 Ami Tavory and Vladimir Dreizin, IBM-HRL.
26
27 // Permission to use, copy, modify, sell, and distribute this software
28 // is hereby granted without fee, provided that the above copyright
29 // notice appears in all copies, and that both that copyright notice and
30 // this permission notice appear in supporting documentation. None of
31 // the above authors, nor IBM Haifa Research Laboratories, make any
32 // representation about the suitability of this software for any
33 // purpose. It is provided "as is" without express or implied warranty.
34
35 /**
36 * @file ext/typelist.h
37 * This file is a GNU extension to the Standard C++ Library.
38 *
39 * Contains typelist_chain definitions.
40 * Typelists are an idea by Andrei Alexandrescu.
41 */
42
43 #ifndef _TYPELIST_H
44 #define _TYPELIST_H 1
45
46 #include <ext/type_traits.h>
47
_GLIBCXX_VISIBILITY(default)48 namespace __gnu_cxx _GLIBCXX_VISIBILITY(default)
49 {
50 _GLIBCXX_BEGIN_NAMESPACE_VERSION
51
52 /** @namespace __gnu_cxx::typelist
53 * @brief GNU typelist extensions for public compile-time use.
54 */
55 namespace typelist
56 {
57 struct null_type { };
58
59 template<typename Root>
60 struct node
61 {
62 typedef Root root;
63 };
64
65 // Forward declarations of functors.
66 template<typename Hd, typename Typelist>
67 struct chain
68 {
69 typedef Hd head;
70 typedef Typelist tail;
71 };
72
73 // Apply all typelist types to unary functor.
74 template<typename Fn, typename Typelist>
75 void
76 apply(Fn&, Typelist);
77
78 /// Apply all typelist types to generator functor.
79 template<typename Gn, typename Typelist>
80 void
81 apply_generator(Gn&, Typelist);
82
83 // Apply all typelist types and values to generator functor.
84 template<typename Gn, typename TypelistT, typename TypelistV>
85 void
86 apply_generator(Gn&, TypelistT, TypelistV);
87
88 template<typename Typelist0, typename Typelist1>
89 struct append;
90
91 template<typename Typelist_Typelist>
92 struct append_typelist;
93
94 template<typename Typelist, typename T>
95 struct contains;
96
97 template<typename Typelist, template<typename T> class Pred>
98 struct filter;
99
100 template<typename Typelist, int i>
101 struct at_index;
102
103 template<typename Typelist, template<typename T> class Transform>
104 struct transform;
105
106 template<typename Typelist_Typelist>
107 struct flatten;
108
109 template<typename Typelist>
110 struct from_first;
111
112 template<typename T1>
113 struct create1;
114
115 template<typename T1, typename T2>
116 struct create2;
117
118 template<typename T1, typename T2, typename T3>
119 struct create3;
120
121 template<typename T1, typename T2, typename T3, typename T4>
122 struct create4;
123
124 template<typename T1, typename T2, typename T3, typename T4, typename T5>
125 struct create5;
126
127 template<typename T1, typename T2, typename T3,
128 typename T4, typename T5, typename T6>
129 struct create6;
130 } // namespace typelist
131
132 _GLIBCXX_END_NAMESPACE_VERSION
133 } // namespace
134
135
_GLIBCXX_VISIBILITY(default)136 namespace __gnu_cxx _GLIBCXX_VISIBILITY(default)
137 {
138 _GLIBCXX_BEGIN_NAMESPACE_VERSION
139
140 namespace typelist
141 {
142 namespace detail
143 {
144 template<typename Fn, typename Typelist_Chain>
145 struct apply_;
146
147 template<typename Fn, typename Hd, typename Tl>
148 struct apply_<Fn, chain<Hd, Tl> >
149 {
150 void
151 operator()(Fn& f)
152 {
153 f.operator()(Hd());
154 apply_<Fn, Tl> next;
155 next(f);
156 }
157 };
158
159 template<typename Fn>
160 struct apply_<Fn, null_type>
161 {
162 void
163 operator()(Fn&) { }
164 };
165
166 template<typename Gn, typename Typelist_Chain>
167 struct apply_generator1_;
168
169 template<typename Gn, typename Hd, typename Tl>
170 struct apply_generator1_<Gn, chain<Hd, Tl> >
171 {
172 void
173 operator()(Gn& g)
174 {
175 g.template operator()<Hd>();
176 apply_generator1_<Gn, Tl> next;
177 next(g);
178 }
179 };
180
181 template<typename Gn>
182 struct apply_generator1_<Gn, null_type>
183 {
184 void
185 operator()(Gn&) { }
186 };
187
188 template<typename Gn, typename TypelistT_Chain, typename TypelistV_Chain>
189 struct apply_generator2_;
190
191 template<typename Gn, typename Hd1, typename TlT, typename Hd2, typename TlV>
192 struct apply_generator2_<Gn, chain<Hd1, TlT>, chain<Hd2, TlV> >
193 {
194 void
195 operator()(Gn& g)
196 {
197 g.template operator()<Hd1, Hd2>();
198 apply_generator2_<Gn, TlT, TlV> next;
199 next(g);
200 }
201 };
202
203 template<typename Gn>
204 struct apply_generator2_<Gn, null_type, null_type>
205 {
206 void
207 operator()(Gn&) { }
208 };
209
210 template<typename Typelist_Chain0, typename Typelist_Chain1>
211 struct append_;
212
213 template<typename Hd, typename Tl, typename Typelist_Chain>
214 struct append_<chain<Hd, Tl>, Typelist_Chain>
215 {
216 private:
217 typedef append_<Tl, Typelist_Chain> append_type;
218
219 public:
220 typedef chain<Hd, typename append_type::type> type;
221 };
222
223 template<typename Typelist_Chain>
224 struct append_<null_type, Typelist_Chain>
225 {
226 typedef Typelist_Chain type;
227 };
228
229 template<typename Typelist_Chain>
230 struct append_<Typelist_Chain, null_type>
231 {
232 typedef Typelist_Chain type;
233 };
234
235 template<>
236 struct append_<null_type, null_type>
237 {
238 typedef null_type type;
239 };
240
241 template<typename Typelist_Typelist_Chain>
242 struct append_typelist_;
243
244 template<typename Hd>
245 struct append_typelist_<chain<Hd, null_type> >
246 {
247 typedef chain<Hd, null_type> type;
248 };
249
250 template<typename Hd, typename Tl>
251 struct append_typelist_<chain< Hd, Tl> >
252 {
253 private:
254 typedef typename append_typelist_<Tl>::type rest_type;
255
256 public:
257 typedef typename append<Hd, node<rest_type> >::type::root type;
258 };
259
260 template<typename Typelist_Chain, typename T>
261 struct contains_;
262
263 template<typename T>
264 struct contains_<null_type, T>
265 {
266 enum
267 {
268 value = false
269 };
270 };
271
272 template<typename Hd, typename Tl, typename T>
273 struct contains_<chain<Hd, Tl>, T>
274 {
275 enum
276 {
277 value = contains_<Tl, T>::value
278 };
279 };
280
281 template<typename Tl, typename T>
282 struct contains_<chain<T, Tl>, T>
283 {
284 enum
285 {
286 value = true
287 };
288 };
289
290 template<typename Typelist_Chain, template<typename T> class Pred>
291 struct chain_filter_;
292
293 template<template<typename T> class Pred>
294 struct chain_filter_<null_type, Pred>
295 {
296 typedef null_type type;
297 };
298
299 template<typename Hd, typename Tl, template<typename T> class Pred>
300 struct chain_filter_<chain<Hd, Tl>, Pred>
301 {
302 private:
303 enum
304 {
305 include_hd = Pred<Hd>::value
306 };
307
308 typedef typename chain_filter_<Tl, Pred>::type rest_type;
309 typedef chain<Hd, rest_type> chain_type;
310
311 public:
312 typedef typename __conditional_type<include_hd, chain_type, rest_type>::__type type;
313 };
314
315 template<typename Typelist_Chain, int i>
316 struct chain_at_index_;
317
318 template<typename Hd, typename Tl>
319 struct chain_at_index_<chain<Hd, Tl>, 0>
320 {
321 typedef Hd type;
322 };
323
324 template<typename Hd, typename Tl, int i>
325 struct chain_at_index_<chain<Hd, Tl>, i>
326 {
327 typedef typename chain_at_index_<Tl, i - 1>::type type;
328 };
329
330 template<class Typelist_Chain, template<typename T> class Transform>
331 struct chain_transform_;
332
333 template<template<typename T> class Transform>
334 struct chain_transform_<null_type, Transform>
335 {
336 typedef null_type type;
337 };
338
339 template<class Hd, class Tl, template<typename T> class Transform>
340 struct chain_transform_<chain<Hd, Tl>, Transform>
341 {
342 private:
343 typedef typename chain_transform_<Tl, Transform>::type rest_type;
344 typedef typename Transform<Hd>::type transform_type;
345
346 public:
347 typedef chain<transform_type, rest_type> type;
348 };
349
350 template<typename Typelist_Typelist_Chain>
351 struct chain_flatten_;
352
353 template<typename Hd_Tl>
354 struct chain_flatten_<chain<Hd_Tl, null_type> >
355 {
356 typedef typename Hd_Tl::root type;
357 };
358
359 template<typename Hd_Typelist, class Tl_Typelist>
360 struct chain_flatten_<chain<Hd_Typelist, Tl_Typelist> >
361 {
362 private:
363 typedef typename chain_flatten_<Tl_Typelist>::type rest_type;
364 typedef append<Hd_Typelist, node<rest_type> > append_type;
365 public:
366 typedef typename append_type::type::root type;
367 };
368 } // namespace detail
369 } // namespace typelist
370
371 _GLIBCXX_END_NAMESPACE_VERSION
372 } // namespace
373
374 #define _GLIBCXX_TYPELIST_CHAIN1(X0) __gnu_cxx::typelist::chain<X0, __gnu_cxx::typelist::null_type>
375 #define _GLIBCXX_TYPELIST_CHAIN2(X0, X1) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN1(X1) >
376 #define _GLIBCXX_TYPELIST_CHAIN3(X0, X1, X2) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN2(X1, X2) >
377 #define _GLIBCXX_TYPELIST_CHAIN4(X0, X1, X2, X3) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN3(X1, X2, X3) >
378 #define _GLIBCXX_TYPELIST_CHAIN5(X0, X1, X2, X3, X4) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN4(X1, X2, X3, X4) >
379 #define _GLIBCXX_TYPELIST_CHAIN6(X0, X1, X2, X3, X4, X5) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN5(X1, X2, X3, X4, X5) >
380 #define _GLIBCXX_TYPELIST_CHAIN7(X0, X1, X2, X3, X4, X5, X6) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN6(X1, X2, X3, X4, X5, X6) >
381 #define _GLIBCXX_TYPELIST_CHAIN8(X0, X1, X2, X3, X4, X5, X6, X7) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN7(X1, X2, X3, X4, X5, X6, X7) >
382 #define _GLIBCXX_TYPELIST_CHAIN9(X0, X1, X2, X3, X4, X5, X6, X7, X8) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN8(X1, X2, X3, X4, X5, X6, X7, X8) >
383 #define _GLIBCXX_TYPELIST_CHAIN10(X0, X1, X2, X3, X4, X5, X6, X7, X8, X9) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN9(X1, X2, X3, X4, X5, X6, X7, X8, X9) >
384 #define _GLIBCXX_TYPELIST_CHAIN11(X0, X1, X2, X3, X4, X5, X6, X7, X8, X9, X10) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN10(X1, X2, X3, X4, X5, X6, X7, X8, X9, X10) >
385 #define _GLIBCXX_TYPELIST_CHAIN12(X0, X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN11(X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11) >
386 #define _GLIBCXX_TYPELIST_CHAIN13(X0, X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN12(X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12) >
387 #define _GLIBCXX_TYPELIST_CHAIN14(X0, X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN13(X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13) >
388 #define _GLIBCXX_TYPELIST_CHAIN15(X0, X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN14(X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14) >
389 #define _GLIBCXX_TYPELIST_CHAIN16(X0, X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14, X15) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN15(X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14, X15) >
390 #define _GLIBCXX_TYPELIST_CHAIN17(X0, X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14, X15, X16) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN16(X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14, X15, X16) >
391 #define _GLIBCXX_TYPELIST_CHAIN18(X0, X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14, X15, X16, X17) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN17(X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14, X15, X16, X17) >
392 #define _GLIBCXX_TYPELIST_CHAIN19(X0, X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14, X15, X16, X17, X18) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN18(X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14, X15, X16, X17, X18) >
393 #define _GLIBCXX_TYPELIST_CHAIN20(X0, X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14, X15, X16, X17, X18, X19) __gnu_cxx::typelist::chain<X0, _GLIBCXX_TYPELIST_CHAIN19(X1, X2, X3, X4, X5, X6, X7, X8, X9, X10, X11, X12, X13, X14, X15, X16, X17, X18, X19) >
394
395 namespace __gnu_cxx _GLIBCXX_VISIBILITY(default)
396 {
397 _GLIBCXX_BEGIN_NAMESPACE_VERSION
398
399 namespace typelist
400 {
401 template<typename Fn, typename Typelist>
402 void
403 apply(Fn& fn, Typelist)
404 {
405 detail::apply_<Fn, typename Typelist::root> a;
406 a(fn);
407 }
408
409 template<typename Fn, typename Typelist>
410 void
411 apply_generator(Fn& fn, Typelist)
412 {
413 detail::apply_generator1_<Fn, typename Typelist::root> a;
414 a(fn);
415 }
416
417 template<typename Fn, typename TypelistT, typename TypelistV>
418 void
419 apply_generator(Fn& fn, TypelistT, TypelistV)
420 {
421 typedef typename TypelistT::root rootT;
422 typedef typename TypelistV::root rootV;
423 detail::apply_generator2_<Fn, rootT, rootV> a;
424 a(fn);
425 }
426
427 template<typename Typelist0, typename Typelist1>
428 struct append
429 {
430 private:
431 typedef typename Typelist0::root root0_type;
432 typedef typename Typelist1::root root1_type;
433 typedef detail::append_<root0_type, root1_type> append_type;
434
435 public:
436 typedef node<typename append_type::type> type;
437 };
438
439 template<typename Typelist_Typelist>
440 struct append_typelist
441 {
442 private:
443 typedef typename Typelist_Typelist::root root_type;
444 typedef detail::append_typelist_<root_type> append_type;
445
446 public:
447 typedef node<typename append_type::type> type;
448 };
449
450 template<typename Typelist, typename T>
451 struct contains
452 {
453 private:
454 typedef typename Typelist::root root_type;
455
456 public:
457 enum
458 {
459 value = detail::contains_<root_type, T>::value
460 };
461 };
462
463 template<typename Typelist, template<typename T> class Pred>
464 struct filter
465 {
466 private:
467 typedef typename Typelist::root root_type;
468 typedef detail::chain_filter_<root_type, Pred> filter_type;
469
470 public:
471 typedef node<typename filter_type::type> type;
472 };
473
474 template<typename Typelist, int i>
475 struct at_index
476 {
477 private:
478 typedef typename Typelist::root root_type;
479 typedef detail::chain_at_index_<root_type, i> index_type;
480
481 public:
482 typedef typename index_type::type type;
483 };
484
485 template<typename Typelist, template<typename T> class Transform>
486 struct transform
487 {
488 private:
489 typedef typename Typelist::root root_type;
490 typedef detail::chain_transform_<root_type, Transform> transform_type;
491
492 public:
493 typedef node<typename transform_type::type> type;
494 };
495
496 template<typename Typelist_Typelist>
497 struct flatten
498 {
499 private:
500 typedef typename Typelist_Typelist::root root_type;
501 typedef typename detail::chain_flatten_<root_type>::type flatten_type;
502
503 public:
504 typedef node<flatten_type> type;
505 };
506
507 template<typename Typelist>
508 struct from_first
509 {
510 private:
511 typedef typename at_index<Typelist, 0>::type first_type;
512
513 public:
514 typedef node<chain<first_type, null_type> > type;
515 };
516
517 template<typename T1>
518 struct create1
519 {
520 typedef node<_GLIBCXX_TYPELIST_CHAIN1(T1)> type;
521 };
522
523 template<typename T1, typename T2>
524 struct create2
525 {
526 typedef node<_GLIBCXX_TYPELIST_CHAIN2(T1,T2)> type;
527 };
528
529 template<typename T1, typename T2, typename T3>
530 struct create3
531 {
532 typedef node<_GLIBCXX_TYPELIST_CHAIN3(T1,T2,T3)> type;
533 };
534
535 template<typename T1, typename T2, typename T3, typename T4>
536 struct create4
537 {
538 typedef node<_GLIBCXX_TYPELIST_CHAIN4(T1,T2,T3,T4)> type;
539 };
540
541 template<typename T1, typename T2, typename T3,
542 typename T4, typename T5>
543 struct create5
544 {
545 typedef node<_GLIBCXX_TYPELIST_CHAIN5(T1,T2,T3,T4,T5)> type;
546 };
547
548 template<typename T1, typename T2, typename T3,
549 typename T4, typename T5, typename T6>
550 struct create6
551 {
552 typedef node<_GLIBCXX_TYPELIST_CHAIN6(T1,T2,T3,T4,T5,T6)> type;
553 };
554 } // namespace typelist
555 _GLIBCXX_END_NAMESPACE_VERSION
556 } // namespace
557
558
559 #endif
560