boost/boost/function/gen_function_N.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # Boost.Function library
   4 #
   5 # Copyright (C) 2001-2003 Doug Gregor (gregod@cs.rpi.edu)
   6 #
   7 # Permission to copy, use, sell and distribute this software is granted
   8 # provided this copyright notice appears in all copies.
   9 # Permission to modify the code and to distribute modified code is granted
  10 # provided this copyright notice appears in all copies, and a notice
  11 # that the code was modified is included with the copyright notice.
  12 #
  13 # This software is provided "as is" without express or implied warranty,
  14 # and with no claim as to its suitability for any purpose.
  15 #
  16 # For more information, see http://www.boost.org
  17 use English;
  18
  19 if ($#ARGV < 0) {
  20   print "Usage: perl gen_function_N <number of arguments>\n";
  21   exit;
  22 }
  23
  24
  25 $totalNumArgs = $ARGV[0];
  26 for ($numArgs = 0; $numArgs <= $totalNumArgs; ++$numArgs) {
  27   open OUT, ">function$numArgs.hpp";
  28   print OUT "#define BOOST_FUNCTION_NUM_ARGS $numArgs\n";
  29   print OUT "#include <boost/function/detail/maybe_include.hpp>\n";
  30   print OUT "#undef BOOST_FUNCTION_NUM_ARGS\n";
  31   close OUT;
  32 }