ACE/bin/PerlACE/MSProject.pm

   1 #!/usr/bin/env perl
   2
   3 package PerlACE::MSProject;
   4
   5 use strict;
   6 use FileHandle;
   7
   8 ###############################################################################
   9
  10 # Constructor
  11
  12 sub new
  13 {
  14     my $proto = shift;
  15     my $class = ref ($proto) || $proto;
  16     my $self = {};
  17
  18     $self->{FILENAME} = shift;
  19     $self->{VERSION} = undef;
  20     $self->{NAME} = undef;
  21     %{$self->{CONFIGS}} = ();
  22
  23     bless ($self, $class);
  24     return $self;
  25 }
  26
  27 ###############################################################################
  28
  29 # Accessors
  30
  31 sub Filename
  32 {
  33     my $self = shift;
  34
  35     if (@_ != 0) {
  36         $self->{FILENAME} = shift;
  37     }
  38
  39     return $self->{FILENAME};
  40 }
  41
  42 sub Version ()
  43 {
  44     my $self = shift;
  45     return $self->{VERSION};
  46 }
  47
  48 sub Name ()
  49 {
  50     my $self = shift;
  51     return $self->{NAME};
  52 }
  53
  54 sub Configs ()
  55 {
  56     my $self = shift;
  57     return keys %{$self->{CONFIGS}};
  58 }
  59
  60 sub DepOutputFile ($)
  61 {
  62     my $self = shift;
  63     my $config = shift;
  64
  65     if (!defined $config) {
  66         print STDERR "Error: No configuration specified\n";
  67         return;
  68     }
  69
  70     my $name = $self->OutputFile ($config);
  71
  72     if ($name =~ m/\.dll$/) {
  73         $name = $self->LibraryFile ($config);
  74     }
  75
  76     $name =~ s/.*\\//; # / <- For devenv
  77     $name =~ s/.*\///;
  78
  79     return $name;
  80 }
  81
  82 sub OutputFile ($)
  83 {
  84     my $self = shift;
  85     my $config = shift;
  86
  87     if (!defined $config) {
  88         print STDERR "Error: No configuration specified\n";
  89         return;
  90     }
  91
  92     if (%{$self->{CONFIGS}}->{$config}->{LINK} =~ m/out\:\"([^\"]*)\"/) {
  93         return $1;
  94     }
  95     elsif (defined $self->Name ()) {
  96         my $filename = $self->Filename;
  97         my $ext = "";
  98
  99         if (%{$self->{CONFIGS}}->{$config}->{LINK} =~ m/\/dll/) {
 100             $ext = ".dll";
 101         }
 102         elsif (%{$self->{CONFIGS}}->{$config}->{LINK} =~ m/\/subsystem\:/) {
 103             $ext = ".exe";
 104         }
 105         else {
 106             $ext = ".lib";
 107         }
 108
 109         $filename =~ s/\.[^\.]*$/$ext/;
 110         return $filename;
 111     }
 112 }
 113
 114
 115 sub LibraryFile ($)
 116 {
 117     my $self = shift;
 118     my $config = shift;
 119     my $dll = undef;
 120
 121     if (!defined $config) {
 122         print STDERR "Error: No configuration specified\n";
 123         return;
 124     }
 125
 126     if ($self->OutputFile ($config) =~ m/([^\/\\]*)\.dll$/i) {
 127         $dll = $1;
 128     }
 129
 130     if (defined $dll) {
 131         if (%{$self->{CONFIGS}}->{$config}->{LINK} =~ m/implib\:\"([^\"]*)\"/i) {
 132             return $1;
 133         }
 134         else {
 135             $dll =~ s/.*\\//ig; # / <- Just here to fix color coding in devenv beta
 136             return $self->OutputDir ($config). $dll . ".lib";
 137         }
 138     }
 139 }
 140
 141 sub OutputDir ($)
 142 {
 143     my $self = shift;
 144     my $config = shift;
 145
 146     if (!defined $config) {
 147         print STDERR "Error: No configuration specified\n";
 148         return;
 149     }
 150
 151     return %{$self->{CONFIGS}}->{$config}->{OUTPUTDIR};
 152 }
 153
 154 sub IntermidiateDir ($)
 155 {
 156     my $self = shift;
 157     my $config = shift;
 158
 159     if (!defined $config) {
 160         print STDERR "Error: No configuration specified\n";
 161         return;
 162     }
 163
 164     return %{$self->{CONFIGS}}->{$config}->{INTERMEDIATEDIR};
 165 }
 166
 167 sub TargetDir ($)
 168 {
 169     my $self = shift;
 170     my $config = shift;
 171
 172     if (!defined $config) {
 173         print STDERR "Error: No configuration specified\n";
 174         return;
 175     }
 176
 177     return %{$self->{CONFIGS}}->{$config}->{TARGETDIR};
 178 }
 179
 180 sub CPPOptions ($)
 181 {
 182     my $self = shift;
 183     my $config = shift;
 184
 185     if (!defined $config) {
 186         print STDERR "Error: No configuration specified\n";
 187         return;
 188     }
 189
 190     return %{$self->{CONFIGS}}->{$config}->{CPP};
 191 }
 192
 193 sub LINKOptions ($)
 194 {
 195     my $self = shift;
 196     my $config = shift;
 197
 198     if (!defined $config) {
 199         print STDERR "Error: No configuration specified\n";
 200         return;
 201     }
 202
 203     return %{$self->{CONFIGS}}->{$config}->{LINK};
 204 }
 205
 206 sub Libs($)
 207 {
 208     my $self = shift;
 209     my $config = shift;
 210
 211     if (!defined $config) {
 212         print STDERR "Error: No configuration specified\n";
 213         return;
 214     }
 215
 216     return %{$self->{CONFIGS}}->{$config}->{LIBS};
 217 }
 218
 219 sub UsesTAOIDL ()
 220 {
 221     my $self = shift;
 222
 223     return $self->{TAOIDL};
 224 }
 225
 226 sub Compiler ()
 227 {
 228     my $self = shift;
 229
 230     return $self->{COMPILER};
 231 }
 232
 233 ###############################################################################
 234
 235 # Big methods
 236
 237 sub Load ()
 238 {
 239     my $self = shift;
 240     my $config = "Unknown";
 241
 242     $self->{valid} = 0;
 243
 244     my $fh = new FileHandle;
 245
 246     unless ($fh->open ("<" . $self->{FILENAME})) {
 247         print "Could not open file ", $self->{FILENAME}, ": ", $_;
 248         return;
 249     }
 250
 251     while (<$fh>) {
 252         if (m/^\#.*Project File - Name=\"([^\"]*)\"/) {
 253             $self->{NAME} = $1;
 254         }
 255
 256         if (m/^\#.*Format Version (.*)/) {
 257             $self->{VERSION} = $1;
 258         }
 259
 260         # Check for configurations
 261
 262         if (m/^\!.*IF  \"\$\(CFG\)\" == \".* - (.*)$\"/) {
 263             $config = $1;
 264         }
 265         elsif (m/^\!ENDIF$/) {
 266             $config = "";
 267         }
 268
 269         # Check for directories
 270
 271         if (m/\# PROP Output_Dir \"(.*)\"/) {
 272             %{$self->{CONFIGS}}->{$config}->{OUTPUTDIR} = $1;
 273         }
 274         elsif (m/\# PROP Intermediate_Dir \"(.*)\"/) {
 275             %{$self->{CONFIGS}}->{$config}->{INTERMEDIATEDIR} = $1;
 276         }
 277         elsif (m/\# PROP Target_Dir \"(.*)\"/) {
 278             %{$self->{CONFIGS}}->{$config}->{TARGETDIR} = $1;
 279         }
 280
 281         # Look at CPP options
 282
 283         if (m/\# ADD BASE CPP(.*)$/ || m/\# ADD CPP(.*)$/) {
 284             my @flags = split (/ \//, $1);
 285
 286             foreach my $flag (@flags) {
 287                 if ($flag && %{$self->{CONFIGS}}->{$config}->{CPP} !~ m/$flag/) {
 288                     %{$self->{CONFIGS}}->{$config}->{CPP} .= " /$flag";
 289                 }
 290             }
 291         }
 292         elsif (m/\# SUBTRACT CPP(.*)$/ || m/\# SUBTRACT BASE CPP(.*)$/) {
 293             my @flags = split (/ \//, $1);
 294
 295             foreach my $flag (@flags) {
 296                 if ($flag && %{$self->{CONFIGS}}->{$config}->{CPP} =~ m/$flag/) {
 297                     %{$self->{CONFIGS}}->{$config}->{CPP} =~ s/ \/$flag//g;
 298                 }
 299             }
 300         }
 301
 302         # Look at LINK32 options
 303
 304         if (m/\# ADD BASE LINK32(.*)$/ || m/\# ADD LINK32(.*)$/
 305             || m/\# ADD BASE LIB32(.*)$/ || m/\# ADD LIB32(.*)$/) {
 306             my @flags = split (/ \//, $1);
 307
 308             foreach my $flag (@flags) {
 309                 my $found = 0;
 310                 my @libs = split (/ /, $flag);
 311
 312                 foreach my $lib (@libs) {
 313                     if ($lib =~ m/\.lib$/) {
 314                         if (%{$self->{CONFIGS}}->{$config}->{LIBS} !~ m/\Q$lib\E/) {
 315                             %{$self->{CONFIGS}}->{$config}->{LIBS} .= " $lib";
 316                         }
 317                         $found = 1;
 318                     }
 319                 }
 320
 321                 if (!$found && $flag) {
 322                     my $shortflag = $flag;
 323                     if ($flag =~ m/^(.*)\:/) {
 324                         $shortflag = $1;
 325                     }
 326
 327                     if (%{$self->{CONFIGS}}->{$config}->{LINK} !~ m/ \/$shortflag/) {
 328                         %{$self->{CONFIGS}}->{$config}->{LINK} .= " /$flag";
 329                     }
 330                 }
 331             }
 332         }
 333         elsif (m/\# SUBTRACT BASE LINK32(.*)$/ || m/\# SUBTRACT LINK32(.*)$/
 334                || m/\# SUBTRACT BASE LIB32(.*)$/ || m/\# SUBTRACT LIB32(.*)$/) {
 335             my @flags = split (/ \//, $1);
 336
 337             foreach my $flag (@flags) {
 338                 my $shortflag = $flag;
 339                 if ($flag =~ m/^(.*)\:/) {
 340                     $shortflag = $1;
 341                 }
 342
 343                 if ($flag && %{$self->{CONFIGS}}->{$config}->{LINK} =~ m/ (\/$shortflag\:[^ ]*)/) {
 344                     %{$self->{CONFIGS}}->{$config}->{LINK} =~ s/ \Q$1\E//ig;
 345                 }
 346             }
 347         }
 348
 349         if (m/^\# Name \".* - (.*)\"/ && defined %{$self->{CONFIGS}}->{"Unknown"}) {
 350             %{$self->{CONFIGS}}->{$1} = %{$self->{CONFIGS}}->{"Unknown"};
 351             delete %{$self->{CONFIGS}}->{"Unknown"};
 352         }
 353
 354         if (m/tao\_idl/ && m/\$\(InputName\)\.idl/ || m/tao\_idl/ && m/\$\(InputPath\)/) {
 355             $self->{TAOIDL} = 1;
 356         }
 357     }
 358     $fh->close ();
 359     $self->{valid} = 1;
 360 }
 361
 362 ###############################################################################
 363
 364 # Build functions
 365
 366 sub Build ($)
 367 {
 368     my $self = shift;
 369     my ($config) = @_;
 370
 371     my $command = $self->Compiler () . " " . $self->Filename ()
 372                   . " /USEENV"
 373                   . " /MAKE \"" . $self->Name ()
 374                   . " - " . $config . "\"";
 375
 376     system $command;
 377 }
 378
 379 sub Clean ($)
 380 {
 381     my $self = shift;
 382     my ($config) = @_;
 383
 384     my $command = $self->Compiler () . " " . $self->Filename ()
 385                   . " /USEENV"
 386                   . " /MAKE \"" . $self->Name ()
 387                   . " - " . $config . "\" /CLEAN";
 388
 389     system $command;
 390 }
 391
 392
 393 1;