ACE/bin/msvc_mpc_auto_compile.pl

   1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   2     & eval 'exec perl -S $0 $argv:q'
   3     if 0;
   4
   5 #   Win32 auto_compile script.
   6
   7 use File::Find;
   8 use Cwd;
   9
  10 if (!$ENV{ACE_ROOT}) {
  11     $ACE_ROOT = getcwd ()."\\";
  12     warn "ACE_ROOT not defined, defaulting to ACE_ROOT=$ACE_ROOT";
  13 }
  14 else {
  15     $ACE_ROOT = $ENV{ACE_ROOT};
  16     $TAO_ROOT = $ENV{TAO_ROOT};
  17 }
  18
  19 @directories = ();
  20
  21 @ace_core_dirs = ("$ACE_ROOT\\ace",
  22                   "$ACE_ROOT\\Kokyu",
  23                   "$ACE_ROOT\\ACEXML",
  24                   "$ACE_ROOT\\examples",
  25                   "$ACE_ROOT\\tests",
  26                   "$ACE_ROOT\\protocols");
  27
  28 @tao_core_dirs = ("$ACE_ROOT\\apps\\gperf\\src",
  29                   "$TAO_ROOT\\TAO_IDL",
  30                   "$TAO_ROOT\\tao",
  31                   "$TAO_ROOT\\tests");
  32
  33 @orbsvcs_core_dirs = ("$TAO_ROOT\\orbsvcs\\orbsvcs");
  34
  35 $debug = 0;
  36 $verbose = 0;
  37 $print_status = 0;
  38 $Ignore_errors = 0;              # By default, bail out if an error occurs.
  39 $Build_Debug = 0;
  40 $Build_Release = 0;
  41 $build_all = 0;
  42 $Build_Cmd = "/BUILD";
  43 $use_custom_dir = 0;
  44 $useenv = '';
  45 $vc7 = 0;
  46 $project_root = "$ACE_ROOT";
  47
  48 # Build_Config takes in a string of the type "project--configuration" and
  49 # runs msdev to build it.
  50 # sub Build_Config ($)
  51 #{
  52 #    my ($arg) = @_;
  53 #    my ($project, $config) = split /--/, $arg;
  54 #
  55 #    return Build ($project, $config);
  56 #}
  57
  58 # Build
  59 sub Build ($$)
  60 {
  61   my ($project, $config) = @_;
  62
  63   if ($debug == 1) {
  64     print "$project\n";
  65     return 0;
  66   }
  67   else {
  68     print "Auto_compiling $project : $config\n";
  69
  70     print "Building $project $config\n" if $verbose;
  71
  72     return system ("msdev.com $project /MAKE \"$config\" $Build_Cmd $useenv");
  73   }
  74 }
  75
  76 # Build
  77 sub Build_VC7 ($$)
  78 {
  79   my ($project, $config) = @_;
  80
  81   if ($debug == 1) {
  82     print "$project\n";
  83     return 0;
  84   }
  85   else {
  86     print "Auto_compiling $project : $config\n";
  87
  88     print "Building $project $config\n" if $verbose;
  89
  90     return system ("devenv.com $project $Build_Cmd $config $useenv");
  91   }
  92 }
  93
  94 sub Find_Dsw (@)
  95 {
  96     my (@dir) = @_;
  97     @array = ();
  98
  99     sub wanted_dsw {
 100         $array[++$#array] =
 101             $File::Find::name if ($File::Find::name =~ /\.dsw$/i);
 102     }
 103
 104     find (\&wanted_dsw, @dir);
 105
 106     print "List of dsw's\n" if ($verbose == 1);
 107     return @array;
 108 }
 109
 110 sub Find_Sln (@)
 111 {
 112     my (@dir) = @_;
 113     @array = ();
 114
 115     print "Searching for list of sln's\n" if ($verbose == 1);
 116
 117     sub wanted_sln {
 118         $array[++$#array] =
 119             $File::Find::name if ($File::Find::name =~ /\.sln$/i);
 120     }
 121
 122     find (\&wanted_sln, @dir);
 123
 124     print "List of sln's\n" if ($verbose == 1);
 125     return @array;
 126 }
 127
 128 # Only builds the core libraries.
 129 sub Build_Custom ()
 130 {
 131     print STDERR "Building Custom\n";
 132     print "Building Custom directories specified\n";# if ($verbose == 1);
 133
 134     print "Build " if ($verbose);
 135     print "Debug " if ($verbose) && ($Build_Debug);
 136     print "Release " if ($verbose) && ($Build_Release);
 137     print "\n" if ($verbose);
 138
 139     my @custom_list = Find_Dsw (@directories);
 140
 141     print "List now is @custom_list \n";
 142     foreach $c (@custom_list) {
 143         print "List now is $c \n";
 144         if ($Build_Debug) {
 145             $Status = Build ($c, "ALL - Win32 Debug");
 146             return if $Status != 0 && !$Ignore_errors;
 147         }
 148         if ($Build_Release) {
 149             $Status = Build ($c, "ALL - Win32 Release");
 150             return if $Status != 0 && !$Ignore_errors;
 151         }
 152     }
 153 }
 154
 155 # Build all examples and directories
 156 sub Build_All ()
 157 {
 158     push @directories, @ace_core_dirs;
 159     push @directories, @tao_core_dirs;
 160     push @directories, @orbsvcs_core_dirs;
 161
 162     print STDERR "First pass (libraries)\n" if ($print_status == 1);
 163     print "\nmsvc_mpc_auto_compile: First Pass CORE (libraries)\n";
 164
 165     Build_Custom ();
 166
 167     my @new_directory_search = "$project_root";
 168
 169     my @configurations = Find_Dsw (@new_directory_search);
 170
 171     print STDERR "Second pass (for other things)\n" if ($print_status == 1);
 172     print "\nmsvc_mpc_auto_compile: Second  Pass (rest of the stuff)\n";
 173
 174     foreach $c (@configurations) {
 175         print "\nUsing $c for compilation\n";
 176         if ($Build_Debug) {
 177             $Status = Build ($c, "ALL - Win32 Debug");
 178             return if $Status != 0 && !$Ignore_errors;
 179         }
 180         if ($Build_Release) {
 181             $Status = Build ($c, "ALL - Win32 Release");
 182             return if $Status != 0 && !$Ignore_errors;
 183         }
 184     }
 185 }
 186
 187
 188 # Only builds the core libraries.
 189 sub Build_Custom_VC7 ()
 190 {
 191     print STDERR "Building Custom\n";
 192     print "Building Custom directories specified\n";# if ($verbose == 1);
 193
 194     print "Build " if ($verbose);
 195     print "Debug " if ($verbose) && ($Build_Debug);
 196     print "Release " if ($verbose) && ($Build_Release);
 197     print "\n" if ($verbose);
 198
 199     my @custom_list = Find_Sln (@directories);
 200
 201     print "List now is @custom_list \n";
 202     foreach $c (@custom_list) {
 203         print "List now is $c \n";
 204         if ($Build_Debug) {
 205             $Status = Build_VC7 ($c, "debug");
 206             return if $Status != 0 && !$Ignore_errors;
 207         }
 208         if ($Build_Release) {
 209             $Status = Build_VC7 ($c, "release");
 210             return if $Status != 0 && !$Ignore_errors;
 211         }
 212     }
 213 }
 214
 215 # Build all examples and directories
 216 sub Build_All_VC7 ()
 217 {
 218     push @directories, @ace_core_dirs;
 219     push @directories, @tao_core_dirs;
 220     push @directories, @orbsvcs_core_dirs;
 221
 222     print STDERR "First pass (libraries)\n" if ($print_status == 1);
 223     print "\nmsvc_mpc_auto_compile: First Pass CORE (libraries)\n";
 224
 225     Build_Custom_VC7 ();
 226
 227     my @new_directory_search = "$project_root";
 228
 229     my @configurations = Find_Sln (@new_directory_search);
 230
 231     print STDERR "Second pass (for other things)\n" if ($print_status == 1);
 232     print "\nmsvc_mpc_auto_compile: Second  Pass (rest of the stuff)\n";
 233
 234     foreach $c (@configurations) {
 235         print "\nUsing $c for compilation\n";
 236         if ($Build_Debug) {
 237             $Status = Build_VC7 ($c, "debug");
 238             return if $Status != 0 && !$Ignore_errors;
 239         }
 240         if ($Build_Release) {
 241             $Status = Build_VC7 ($c, "release");
 242             return if $Status != 0 && !$Ignore_errors;
 243         }
 244     }
 245 }
 246
 247 ## Parse command line argument
 248 while ( $#ARGV >= 0  &&  $ARGV[0] =~ /^(-|\/)/ )
 249 {
 250     if ($ARGV[0] =~ '-k') {             # Ignore errors
 251         print "Ignore errors\n" if ( $verbose );
 252         $Ignore_errors = 1;
 253     }
 254     elsif ($ARGV[0] =~ /^-d$/i) {       # debug
 255         $debug = 1;
 256     }
 257     elsif ($ARGV[0] =~ '-vc7') {    # Use VC7 project and solution files.
 258         print "Using VC7 files\n" if ( $verbose );
 259         $vc7 = 1;
 260     }
 261     elsif ($ARGV[0] =~ '-vc8') {    # Use VC8 project and solution files.
 262         print "Using VC8 files\n" if ( $verbose );
 263         $vc7 = 1; # vc8 is like vc7
 264     }
 265     elsif ($ARGV[0] =~ '-vc9') {    # Use VC9 project and solution files.
 266         print "Using VC9 files\n" if ( $verbose );
 267         $vc7 = 1; # vc9 is like vc7
 268     }
 269     elsif ($ARGV[0] =~ '-v') {          # verbose mode
 270         $verbose = 1;
 271     }
 272     elsif ($ARGV[0] =~ '-s') {          # status messages
 273         $print_status = 1;
 274     }
 275     elsif ($ARGV[0] =~ '-u') {          # USEENV
 276         print "Using Environment\n" if ($verbose);
 277         $useenv = '/USEENV';
 278     }
 279     elsif ($ARGV[0] =~ '-ACE') {# Build ACE and its tests
 280         print "Building ACE\n" if ( $verbose );
 281         $use_custom_dir = 1;
 282         push @directories, @ace_core_dirs;
 283     }
 284     elsif ($ARGV[0] =~ '-TAO') {# Build TAO and its tests
 285         print "Building TAO\n" if ( $verbose );
 286         $use_custom_dir = 1;
 287         push @directories, @ace_core_dirs;
 288         push @directories, @tao_core_dirs;
 289     }
 290     elsif ($ARGV[0] =~ '-ORBSVCS') {# Build TAO/ORBSVCS and its tests
 291         print "Building ACE+TAO+orbsvcs\n" if ( $verbose );
 292         $use_custom_dir = 1;
 293         push @directories, @ace_core_dirs;
 294         push @directories, @tao_core_dirs;
 295         push @directories, @orbsvcs_core_dirs;
 296     }
 297     elsif ($ARGV[0] =~ '-ALL') {# Build all
 298         print "Building ALL \n" if ( $verbose );
 299         $build_all = 1;
 300     }
 301     elsif ($ARGV[0] =~ '-dir') {        # Compile only a specific directory
 302         shift;
 303         print "Adding directory $ARGV[0]\n" if ( $verbose );
 304         $use_custom_dir = 1;
 305         push @directories, $ARGV[0];
 306     }
 307     elsif ($ARGV[0] =~ '-project_root') {  # use different root than ACE_ROOT
 308         shift;
 309         print "Using project root $ARGV[0]\n" if ( $verbose );
 310         $project_root = $ARGV[0];
 311     }
 312     elsif ($ARGV[0] =~ '-rebuild') {    # Rebuild all
 313         print "Rebuild all\n" if ( $verbose );
 314         $Build_Cmd = "/REBUILD";
 315     }
 316     elsif ($ARGV[0] =~ '-clean') {      # Clean
 317         print "Cleaning all\n" if ( $verbose );
 318         $Build_Cmd = "/CLEAN";
 319     }
 320     elsif ($ARGV[0] =~ '-Debug') {      # Debug versions
 321         print "Building Debug Version\n" if ( $verbose );
 322         $Build_Debug = 1;
 323     }
 324     elsif ($ARGV[0] =~ '-Release') {    # Release versions
 325         print "Building Release Version\n" if ( $verbose );
 326         $Build_Release = 1;
 327     }
 328     elsif ($ARGV[0] =~ '-(\?|h)') {     # Help information
 329         print "Options\n";
 330         print "-d         = Debug (only print out projects)\n";
 331         print "-k         = Ignore Errors\n";
 332         print "-v         = Script verbose Mode\n";
 333         print "-s         = Print status messages to STDERR\n";
 334         print "-u         = Tell MSVC to use the environment\n";
 335         print "-vc7       = Use MSVC 7 toolset\n";
 336         print "-vc8       = Use MSVC 8 toolset\n";
 337         print "-vc9       = Use MSVC 9 toolset\n";
 338         print "\n";
 339         print "-ACE       = Build ACE and its tests\n";
 340         print "-TAO       = Build ACE+TAO and its tests\n";
 341         print "-ORBSVCS   = Build ACE+TAO+ORBSVCS and its tests\n";
 342         print "-dir <dir> = Compile custom directories\n";
 343         print "-project_root <dir> = Use different root directory than ACE_ROOT\n";
 344         print "\n";
 345         print "-rebuild   = Rebuild All\n";
 346         print "-clean     = Clean\n";
 347         print "-Debug     = Compile Debug versions\n";
 348         print "-Release   = Compile Release versions\n";
 349         exit;
 350     }
 351     else {
 352         warn "$0: error unknown option $ARGV[0]\n";
 353         die -1;
 354     }
 355     shift;
 356 }
 357
 358 if (!$Build_Debug && !$Build_Release) {
 359     $Build_Debug = 1;
 360     $Build_Release = 1;
 361 }
 362
 363 print "MPC version of msvc_mpc_auto_compile: Begin\n";
 364 if ($vc7) {
 365     Build_All_VC7 if ($build_all && !$use_custom_dir);
 366     Build_Custom_VC7 if $use_custom_dir;
 367 }
 368 else {
 369     Build_All if ($build_all && !$use_custom_dir);
 370     Build_Custom if $use_custom_dir;
 371 }
 372 print "msvc_mpc_auto_compile: End\n";
 373 print STDERR "End\n" if ($print_status == 1);