| Brian Silverman | e458090 | 2018-08-04 23:36:31 -0700 | [diff] [blame^] | 1 | #!/usr/bin/perl -w |
| 2 | # |
| 3 | # Boost.Function library |
| 4 | # |
| 5 | # Copyright Douglas Gregor 2001-2003. Use, modification and |
| 6 | # distribution is subject to the Boost Software License, Version |
| 7 | # 1.0. (See accompanying file LICENSE_1_0.txt or copy at |
| 8 | # http://www.boost.org/LICENSE_1_0.txt) |
| 9 | # |
| 10 | # For more information, see http://www.boost.org |
| 11 | use English; |
| 12 | |
| 13 | if ($#ARGV < 0) { |
| 14 | print "Usage: perl gen_function_N <number of arguments>\n"; |
| 15 | exit; |
| 16 | } |
| 17 | |
| 18 | |
| 19 | $totalNumArgs = $ARGV[0]; |
| 20 | for ($numArgs = 0; $numArgs <= $totalNumArgs; ++$numArgs) { |
| 21 | open OUT, ">function$numArgs.hpp"; |
| 22 | print OUT "#define BOOST_FUNCTION_NUM_ARGS $numArgs\n"; |
| 23 | print OUT "#include <boost/function/detail/maybe_include.hpp>\n"; |
| 24 | print OUT "#undef BOOST_FUNCTION_NUM_ARGS\n"; |
| 25 | close OUT; |
| 26 | } |