#!/usr/bin/perl -w | |
# | |
# Boost.Function library | |
# | |
# Copyright Douglas Gregor 2001-2003. Use, modification and | |
# distribution is subject to the Boost Software License, Version | |
# 1.0. (See accompanying file LICENSE_1_0.txt or copy at | |
# http://www.boost.org/LICENSE_1_0.txt) | |
# | |
# For more information, see http://www.boost.org | |
use English; | |
if ($#ARGV < 0) { | |
print "Usage: perl gen_function_N <number of arguments>\n"; | |
exit; | |
} | |
$totalNumArgs = $ARGV[0]; | |
for ($numArgs = 0; $numArgs <= $totalNumArgs; ++$numArgs) { | |
open OUT, ">function$numArgs.hpp"; | |
print OUT "#define BOOST_FUNCTION_NUM_ARGS $numArgs\n"; | |
print OUT "#include <boost/function/detail/maybe_include.hpp>\n"; | |
print OUT "#undef BOOST_FUNCTION_NUM_ARGS\n"; | |
close OUT; | |
} |