blob: ab4367da2c2bf825d50b8521677be32abf760f28 [file] [log] [blame]
Jeff Thompsona28eed82013-08-22 16:21:10 -07001#!/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
17use English;
18
19$max_args = $ARGV[0];
20
21open (OUT, ">maybe_include.hpp") or die("Cannot write to maybe_include.hpp");
22for($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 <ndnboost/function/function_template.hpp>\n";
33 print OUT "# endif\n";
34}
35print OUT "#else\n";
36print OUT "# error Cannot handle Boost.Function objects that accept more than $max_args arguments!\n";
37print OUT "#endif\n";