stc/exp/ml_stc_linux_make_v1.0/include/boost/function/gen_function_N.pl

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