]>
Commit | Line | Data |
---|---|---|
7c673cae FG |
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 | } |