* es.po: Update.
[official-gcc.git] / libstdc++-v3 / scripts / gen_bind_includers.pl
blob52b11d28332b0b439bc201a123df3fb98f636500
1 #!/usr/bin/perl -w
2 use English;
4 $max = shift @ARGV;
6 $template_params = "typename _U1";
7 $template_args = "_U1";
8 $params = "_U1& __u1";
9 $args = "__u1";
11 for ($num_args = 2; $num_args <= $max; ++$num_args) {
12 $template_params .= ", typename _U$num_args";
13 $template_args .= ", _U$num_args";
14 $params .= ", _U$num_args& __u$num_args";
15 $args .= ", __u$num_args";
16 print "#define _GLIBCXX_BIND_NUM_ARGS $num_args\n";
17 print "#define _GLIBCXX_BIND_COMMA ,\n";
18 print "#define _GLIBCXX_BIND_TEMPLATE_PARAMS $template_params\n";
19 print "#define _GLIBCXX_BIND_TEMPLATE_ARGS $template_args\n";
20 print "#define _GLIBCXX_BIND_PARAMS $params\n";
21 print "#define _GLIBCXX_BIND_ARGS $args\n";
22 print "#include _GLIBCXX_BIND_REPEAT_HEADER\n";
23 print "#undef _GLIBCXX_BIND_ARGS\n";
24 print "#undef _GLIBCXX_BIND_PARAMS\n";
25 print "#undef _GLIBCXX_BIND_TEMPLATE_ARGS\n";
26 print "#undef _GLIBCXX_BIND_TEMPLATE_PARAMS\n";
27 print "#undef _GLIBCXX_BIND_COMMA\n";
28 print "#undef _GLIBCXX_BIND_NUM_ARGS\n";
29 print "\n";