#!/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; }