1169691Skan#!/usr/bin/perl -w 2169691Skanuse English; 3169691Skan 4169691Skan$max = shift @ARGV; 5169691Skan 6169691Skan$template_params = "typename _U1"; 7169691Skan$template_args = "_U1"; 8169691Skan$params = "_U1& __u1"; 9169691Skan$args = "__u1"; 10169691Skan 11169691Skanfor ($num_args = 2; $num_args <= $max; ++$num_args) { 12169691Skan $template_params .= ", typename _U$num_args"; 13169691Skan $template_args .= ", _U$num_args"; 14169691Skan $params .= ", _U$num_args& __u$num_args"; 15169691Skan $args .= ", __u$num_args"; 16169691Skan print "#define _GLIBCXX_BIND_NUM_ARGS $num_args\n"; 17169691Skan print "#define _GLIBCXX_BIND_COMMA ,\n"; 18169691Skan print "#define _GLIBCXX_BIND_TEMPLATE_PARAMS $template_params\n"; 19169691Skan print "#define _GLIBCXX_BIND_TEMPLATE_ARGS $template_args\n"; 20169691Skan print "#define _GLIBCXX_BIND_PARAMS $params\n"; 21169691Skan print "#define _GLIBCXX_BIND_ARGS $args\n"; 22169691Skan print "#include _GLIBCXX_BIND_REPEAT_HEADER\n"; 23169691Skan print "#undef _GLIBCXX_BIND_ARGS\n"; 24169691Skan print "#undef _GLIBCXX_BIND_PARAMS\n"; 25169691Skan print "#undef _GLIBCXX_BIND_TEMPLATE_ARGS\n"; 26169691Skan print "#undef _GLIBCXX_BIND_TEMPLATE_PARAMS\n"; 27169691Skan print "#undef _GLIBCXX_BIND_COMMA\n"; 28169691Skan print "#undef _GLIBCXX_BIND_NUM_ARGS\n"; 29169691Skan print "\n"; 30169691Skan} 31169691Skan 32