/extlibs/Boost/include/boost/function/gen_function_N.pl
Perl | 26 lines | 13 code | 3 blank | 10 comment | 2 complexity | 49867da40032f31cb330b53081b6f660 MD5 | raw file
1#!/usr/bin/perl -w 2# 3# Boost.Function library 4# 5# Copyright Douglas Gregor 2001-2003. Use, modification and 6# distribution is subject to the Boost Software License, Version 7# 1.0. (See accompanying file LICENSE_1_0.txt or copy at 8# http://www.boost.org/LICENSE_1_0.txt) 9# 10# For more information, see http://www.boost.org 11use English; 12 13if ($#ARGV < 0) { 14 print "Usage: perl gen_function_N <number of arguments>\n"; 15 exit; 16} 17 18 19$totalNumArgs = $ARGV[0]; 20for ($numArgs = 0; $numArgs <= $totalNumArgs; ++$numArgs) { 21 open OUT, ">function$numArgs.hpp"; 22 print OUT "#define BOOST_FUNCTION_NUM_ARGS $numArgs\n"; 23 print OUT "#include <boost/function/detail/maybe_include.hpp>\n"; 24 print OUT "#undef BOOST_FUNCTION_NUM_ARGS\n"; 25 close OUT; 26}