Fix my yesterday ChangeLog entry.
[official-gcc.git] / libstdc++-v3 / scripts / gen_includers.pl
blob477f028408fe999806a306fb2a9c57516d570f2d
1 #!/usr/bin/perl -w
2 use English;
4 $max = shift @ARGV;
6 $template_params = "typename _T1";
7 $template_params_unnamed = "typename";
8 $template_args = "_T1";
9 $params = "_T1 __a1";
10 $ref_params = "_T1& __a1";
11 $args = "__a1";
12 $bind_members = "_T1 _M_arg1;";
13 $bind_members_init = "_M_arg1(__a1)";
14 $mu_get_tuple_args = "::std::tr1::get<0>(__tuple)";
15 $bind_v_template_args = "typename result_of<_Mu<_T1> _CV(_T1, tuple<_GLIBCXX_BIND_TEMPLATE_ARGS>)>::type";
16 $bind_v_args = "_Mu<_T1>()(_M_arg1, ::std::tr1::tie(_GLIBCXX_BIND_ARGS))";
17 $tuple_add_cref = "typename __add_c_ref<_T1>::type __a1";
18 $tuple_copy_init = "_M_arg1(__in._M_arg1)";
19 $tuple_assign = "_M_arg1 = __in._M_arg1;";
20 $template_params_null_class = "typename _T1 = _NullClass";
21 $template_args_stripped = "typename __strip_reference_wrapper<_T1>::__type";
22 $template_params_u = "typename _U1";
23 $template_args_u = "_U1";
24 $ref_wrap_params = "ref(__a1)";
25 $ref_template_args = "_T1&";
26 for ($num_args = 2; $num_args <= $max; ++$num_args) {
27 $prev_args = $num_args - 1;
28 $next_args = $num_args + 1;
29 $template_params_shifted = $template_params;
30 $template_args_shifted = $template_args;
31 $params_shifted = $params;
32 $args_shifted = $args;
33 $template_params .= ", typename _T$num_args";
34 $template_params_unnamed .= ", typename";
35 $template_args .= ", _T$num_args";
36 $params .= ", _T$num_args __a$num_args";
37 $ref_params .=", _T$num_args& __a$num_args";
38 $args .= ", __a$num_args";
39 $bind_members .= " _T$num_args _M_arg$num_args;";
40 $bind_members_init .= ", _M_arg$num_args(__a$num_args)";
41 $mu_get_tuple_args .= ", ::std::tr1::get<$prev_args>(__tuple)";
42 $bind_v_template_args .= ", typename result_of<_Mu<_T$num_args> _CV(_T$num_args, tuple<_GLIBCXX_BIND_TEMPLATE_ARGS>)>::type";
43 $bind_v_args .= ", _Mu<_T$num_args>()(_M_arg$num_args, ::std::tr1::tie(_GLIBCXX_BIND_ARGS))";
44 $tuple_add_cref .= ", typename __add_c_ref<_T$num_args>::type __a$num_args";
45 $tuple_copy_init .= ", _M_arg$num_args(__in._M_arg$num_args)";
46 $tuple_assign .= " _M_arg$num_args = __in._M_arg$num_args;";
47 $template_params_null_class .= ", typename _T$num_args = _NullClass";
48 $template_args_stripped .= ", typename __strip_reference_wrapper<_T$num_args>::__type";
49 $template_params_u .= ", typename _U$num_args";
50 $template_args_u .= ", _U$num_args";
51 $ref_wrap_params .= ", ref(__a$num_args)";
52 $ref_template_args .= ", _T$num_args&";
54 if ($num_args == $max) {
55 print "#define _GLIBCXX_LAST_INCLUDE\n"
57 print "#define _GLIBCXX_NUM_ARGS $num_args\n";
58 print "#define _GLIBCXX_COMMA ,\n";
59 print "#define _GLIBCXX_TEMPLATE_PARAMS $template_params\n";
60 print "#define _GLIBCXX_TEMPLATE_ARGS $template_args\n";
61 print "#define _GLIBCXX_PARAMS $params\n";
62 print "#define _GLIBCXX_REF_PARAMS $ref_params\n";
63 print "#define _GLIBCXX_ARGS $args\n";
64 print "#define _GLIBCXX_COMMA_SHIFTED ,\n";
65 print "#define _GLIBCXX_TEMPLATE_PARAMS_SHIFTED $template_params_shifted\n";
66 print "#define _GLIBCXX_TEMPLATE_ARGS_SHIFTED $template_args_shifted\n";
67 print "#define _GLIBCXX_PARAMS_SHIFTED $params_shifted\n";
68 print "#define _GLIBCXX_ARGS_SHIFTED $args_shifted\n";
69 print "#define _GLIBCXX_BIND_MEMBERS $bind_members\n";
70 print "#define _GLIBCXX_BIND_MEMBERS_INIT $bind_members_init\n";
71 print "#define _GLIBCXX_MU_GET_TUPLE_ARGS $mu_get_tuple_args\n";
72 print "#define _GLIBCXX_BIND_V_TEMPLATE_ARGS(_CV) $bind_v_template_args\n";
73 print "#define _GLIBCXX_BIND_V_ARGS $bind_v_args\n";
74 print "#define _GLIBCXX_TUPLE_ADD_CREF $tuple_add_cref\n";
75 print "#define _GLIBCXX_TUPLE_COPY_INIT $tuple_copy_init\n";
76 print "#define _GLIBCXX_TUPLE_ASSIGN $tuple_assign\n";
77 print "#define _GLIBCXX_TEMPLATE_PARAMS_NULL_CLASS $template_params_null_class\n";
78 print "#define _GLIBCXX_TEMPLATE_ARGS_STRIPPED $template_args_stripped\n";
79 print "#define _GLIBCXX_TEMPLATE_PARAMS_U $template_params_u\n";
80 print "#define _GLIBCXX_TEMPLATE_ARGS_U $template_args_u\n";
81 print "#define _GLIBCXX_REF_WRAP_PARAMS $ref_wrap_params\n";
82 print "#define _GLIBCXX_REF_TEMPLATE_ARGS $ref_template_args\n";
83 print "#define _GLIBCXX_NUM_ARGS_PLUS_1 $next_args\n";
84 print "#define _GLIBCXX_T_NUM_ARGS_PLUS_1 _T$next_args\n";
85 print "#include _GLIBCXX_REPEAT_HEADER\n";
86 print "#undef _GLIBCXX_T_NUM_ARGS_PLUS_1\n";
87 print "#undef _GLIBCXX_NUM_ARGS_PLUS_1\n";
88 print "#undef _GLIBCXX_REF_TEMPLATE_ARGS\n";
89 print "#undef _GLIBCXX_REF_WRAP_PARAMS\n";
90 print "#undef _GLIBCXX_TEMPLATE_ARGS_U\n";
91 print "#undef _GLIBCXX_TEMPLATE_PARAMS_U\n";
92 print "#undef _GLIBCXX_TEMPLATE_ARGS_STRIPPED\n";
93 print "#undef _GLIBCXX_TEMPLATE_PARAMS_NULL_CLASS\n";
94 print "#undef _GLIBCXX_TUPLE_ASSIGN\n";
95 print "#undef _GLIBCXX_TUPLE_COPY_INIT\n";
96 print "#undef _GLIBCXX_TUPLE_ADD_CREF\n";
97 print "#undef _GLIBCXX_BIND_V_ARGS\n";
98 print "#undef _GLIBCXX_BIND_V_TEMPLATE_ARGS\n";
99 print "#undef _GLIBCXX_MU_GET_TUPLE_ARGS\n";
100 print "#undef _GLIBCXX_BIND_MEMBERS_INIT\n";
101 print "#undef _GLIBCXX_BIND_MEMBERS\n";
102 print "#undef _GLIBCXX_ARGS_SHIFTED\n";
103 print "#undef _GLIBCXX_PARAMS_SHIFTED\n";
104 print "#undef _GLIBCXX_TEMPLATE_ARGS_SHIFTED\n";
105 print "#undef _GLIBCXX_TEMPLATE_PARAMS_SHIFTED\n";
106 print "#undef _GLIBCXX_COMMA_SHIFTED\n";
107 print "#undef _GLIBCXX_ARGS\n";
108 print "#undef _GLIBCXX_REF_PARAMS\n";
109 print "#undef _GLIBCXX_PARAMS\n";
110 print "#undef _GLIBCXX_TEMPLATE_ARGS\n";
111 print "#undef _GLIBCXX_TEMPLATE_PARAMS\n";
112 print "#undef _GLIBCXX_COMMA\n";
113 print "#undef _GLIBCXX_NUM_ARGS\n";
114 if ($num_args == $max) {
115 print "#undef _GLIBCXX_LAST_INCLUDE\n"
119 print "\n";
120 print "#ifndef _GLIBCXX_TUPLE_ALL_TEMPLATE_PARAMS\n";
121 print "# define _GLIBCXX_TUPLE_ALL_TEMPLATE_PARAMS $template_params\n";
122 print "# define _GLIBCXX_TUPLE_ALL_TEMPLATE_PARAMS_UNNAMED $template_params_unnamed\n";
123 print "# define _GLIBCXX_TUPLE_ALL_TEMPLATE_ARGS $template_args\n";
124 print "#endif\n";
125 print "\n";