You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and dots ('.'), can be up to 35 characters long. Letters must be lowercase.
26 lines
739 B
26 lines
739 B
#!/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; |
|
}
|
|
|