3rdparty/boost/boost/function/gen_function_N.pl

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