libstdc++-v3/scripts/gen_bind_includers.pl

   1 #!/usr/bin/perl -w
   2 use English;
   3
   4 $max = shift @ARGV;
   5
   6 $template_params = "typename _U1";
   7 $template_args = "_U1";
   8 $params = "_U1& __u1";
   9 $args = "__u1";
  10
  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";
  30 }