Ugly, not-to-be-pushed sucking in of all of Boost to get windows to work.
[dyninst.git] / external / boost / function / detail / gen_maybe_include.pl
1 #!/usr/bin/perl -w
2 #
3 # Boost.Function library
4 #
5 # Copyright (C) 2001-2003 Douglas Gregor (gregod@cs.rpi.edu)
6 #
7 # Permission to copy, use, sell and distribute this software is granted
8 # provided this copyright notice appears in all copies.
9 # Permission to modify the code and to distribute modified code is granted
10 # provided this copyright notice appears in all copies, and a notice
11 # that the code was modified is included with the copyright notice.
12 #
13 # This software is provided "as is" without express or implied warranty,
14 # and with no claim as to its suitability for any purpose.
15 #
16 # For more information, see http://www.boost.org
17 use English;
18
19 $max_args = $ARGV[0];
20
21 open (OUT, ">maybe_include.hpp") or die("Cannot write to maybe_include.hpp");
22 for($on_arg = 0; $on_arg <= $max_args; ++$on_arg) {
23     if ($on_arg == 0) {
24         print OUT "#if";
25     }
26     else {
27         print OUT "#elif";
28     }
29     print OUT " BOOST_FUNCTION_NUM_ARGS == $on_arg\n";
30     print OUT "#  ifndef BOOST_FUNCTION_$on_arg\n";
31     print OUT "#    define BOOST_FUNCTION_$on_arg\n";
32     print OUT "#    include <boost/function/function_template.hpp>\n";
33     print OUT "#  endif\n";
34 }
35 print OUT "#else\n";
36 print OUT "#  error Cannot handle Boost.Function objects that accept more than $max_args arguments!\n";
37 print OUT "#endif\n";