Ugly, not-to-be-pushed sucking in of all of Boost to get windows to work.
[dyninst.git] / external / boost / function / gen_function_N.pl
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 }