summaryrefslogtreecommitdiff
path: root/ACE/bin/PerlACE/MSProject.pm
diff options
context:
space:
mode:
Diffstat (limited to 'ACE/bin/PerlACE/MSProject.pm')
-rw-r--r--ACE/bin/PerlACE/MSProject.pm393
1 files changed, 393 insertions, 0 deletions
diff --git a/ACE/bin/PerlACE/MSProject.pm b/ACE/bin/PerlACE/MSProject.pm
new file mode 100644
index 00000000000..86e6548456a
--- /dev/null
+++ b/ACE/bin/PerlACE/MSProject.pm
@@ -0,0 +1,393 @@
+# $Id$
+
+package PerlACE::MSProject;
+
+use strict;
+use FileHandle;
+
+###############################################################################
+
+# Constructor
+
+sub new
+{
+ my $proto = shift;
+ my $class = ref ($proto) || $proto;
+ my $self = {};
+
+ $self->{FILENAME} = shift;
+ $self->{VERSION} = undef;
+ $self->{NAME} = undef;
+ %{$self->{CONFIGS}} = ();
+
+ bless ($self, $class);
+ return $self;
+}
+
+###############################################################################
+
+# Accessors
+
+sub Filename
+{
+ my $self = shift;
+
+ if (@_ != 0) {
+ $self->{FILENAME} = shift;
+ }
+
+ return $self->{FILENAME};
+}
+
+sub Version ()
+{
+ my $self = shift;
+ return $self->{VERSION};
+}
+
+sub Name ()
+{
+ my $self = shift;
+ return $self->{NAME};
+}
+
+sub Configs ()
+{
+ my $self = shift;
+ return keys %{$self->{CONFIGS}};
+}
+
+sub DepOutputFile ($)
+{
+ my $self = shift;
+ my $config = shift;
+
+ if (!defined $config) {
+ print STDERR "Error: No configuration specified\n";
+ return;
+ }
+
+ my $name = $self->OutputFile ($config);
+
+ if ($name =~ m/\.dll$/) {
+ $name = $self->LibraryFile ($config);
+ }
+
+ $name =~ s/.*\\//; # / <- For devenv
+ $name =~ s/.*\///;
+
+ return $name;
+}
+
+sub OutputFile ($)
+{
+ my $self = shift;
+ my $config = shift;
+
+ if (!defined $config) {
+ print STDERR "Error: No configuration specified\n";
+ return;
+ }
+
+ if (%{$self->{CONFIGS}}->{$config}->{LINK} =~ m/out\:\"([^\"]*)\"/) {
+ return $1;
+ }
+ elsif (defined $self->Name ()) {
+ my $filename = $self->Filename;
+ my $ext = "";
+
+ if (%{$self->{CONFIGS}}->{$config}->{LINK} =~ m/\/dll/) {
+ $ext = ".dll";
+ }
+ elsif (%{$self->{CONFIGS}}->{$config}->{LINK} =~ m/\/subsystem\:/) {
+ $ext = ".exe";
+ }
+ else {
+ $ext = ".lib";
+ }
+
+ $filename =~ s/\.[^\.]*$/$ext/;
+ return $filename;
+ }
+}
+
+
+sub LibraryFile ($)
+{
+ my $self = shift;
+ my $config = shift;
+ my $dll = undef;
+
+ if (!defined $config) {
+ print STDERR "Error: No configuration specified\n";
+ return;
+ }
+
+ if ($self->OutputFile ($config) =~ m/([^\/\\]*)\.dll$/i) {
+ $dll = $1;
+ }
+
+ if (defined $dll) {
+ if (%{$self->{CONFIGS}}->{$config}->{LINK} =~ m/implib\:\"([^\"]*)\"/i) {
+ return $1;
+ }
+ else {
+ $dll =~ s/.*\\//ig; # / <- Just here to fix color coding in devenv beta
+ return $self->OutputDir ($config). $dll . ".lib";
+ }
+ }
+}
+
+sub OutputDir ($)
+{
+ my $self = shift;
+ my $config = shift;
+
+ if (!defined $config) {
+ print STDERR "Error: No configuration specified\n";
+ return;
+ }
+
+ return %{$self->{CONFIGS}}->{$config}->{OUTPUTDIR};
+}
+
+sub IntermidiateDir ($)
+{
+ my $self = shift;
+ my $config = shift;
+
+ if (!defined $config) {
+ print STDERR "Error: No configuration specified\n";
+ return;
+ }
+
+ return %{$self->{CONFIGS}}->{$config}->{INTERMEDIATEDIR};
+}
+
+sub TargetDir ($)
+{
+ my $self = shift;
+ my $config = shift;
+
+ if (!defined $config) {
+ print STDERR "Error: No configuration specified\n";
+ return;
+ }
+
+ return %{$self->{CONFIGS}}->{$config}->{TARGETDIR};
+}
+
+sub CPPOptions ($)
+{
+ my $self = shift;
+ my $config = shift;
+
+ if (!defined $config) {
+ print STDERR "Error: No configuration specified\n";
+ return;
+ }
+
+ return %{$self->{CONFIGS}}->{$config}->{CPP};
+}
+
+sub LINKOptions ($)
+{
+ my $self = shift;
+ my $config = shift;
+
+ if (!defined $config) {
+ print STDERR "Error: No configuration specified\n";
+ return;
+ }
+
+ return %{$self->{CONFIGS}}->{$config}->{LINK};
+}
+
+sub Libs($)
+{
+ my $self = shift;
+ my $config = shift;
+
+ if (!defined $config) {
+ print STDERR "Error: No configuration specified\n";
+ return;
+ }
+
+ return %{$self->{CONFIGS}}->{$config}->{LIBS};
+}
+
+sub UsesTAOIDL ()
+{
+ my $self = shift;
+
+ return $self->{TAOIDL};
+}
+
+sub Compiler ()
+{
+ my $self = shift;
+
+ return $self->{COMPILER};
+}
+
+###############################################################################
+
+# Big methods
+
+sub Load ()
+{
+ my $self = shift;
+ my $config = "Unknown";
+
+ $self->{valid} = 0;
+
+ my $fh = new FileHandle;
+
+ unless ($fh->open ("<" . $self->{FILENAME})) {
+ print "Could not open file ", $self->{FILENAME}, ": ", $_;
+ return;
+ }
+
+ while (<$fh>) {
+ if (m/^\#.*Project File - Name=\"([^\"]*)\"/) {
+ $self->{NAME} = $1;
+ }
+
+ if (m/^\#.*Format Version (.*)/) {
+ $self->{VERSION} = $1;
+ }
+
+ # Check for configurations
+
+ if (m/^\!.*IF \"\$\(CFG\)\" == \".* - (.*)$\"/) {
+ $config = $1;
+ }
+ elsif (m/^\!ENDIF$/) {
+ $config = "";
+ }
+
+ # Check for directories
+
+ if (m/\# PROP Output_Dir \"(.*)\"/) {
+ %{$self->{CONFIGS}}->{$config}->{OUTPUTDIR} = $1;
+ }
+ elsif (m/\# PROP Intermediate_Dir \"(.*)\"/) {
+ %{$self->{CONFIGS}}->{$config}->{INTERMEDIATEDIR} = $1;
+ }
+ elsif (m/\# PROP Target_Dir \"(.*)\"/) {
+ %{$self->{CONFIGS}}->{$config}->{TARGETDIR} = $1;
+ }
+
+ # Look at CPP options
+
+ if (m/\# ADD BASE CPP(.*)$/ || m/\# ADD CPP(.*)$/) {
+ my @flags = split (/ \//, $1);
+
+ foreach my $flag (@flags) {
+ if ($flag && %{$self->{CONFIGS}}->{$config}->{CPP} !~ m/$flag/) {
+ %{$self->{CONFIGS}}->{$config}->{CPP} .= " /$flag";
+ }
+ }
+ }
+ elsif (m/\# SUBTRACT CPP(.*)$/ || m/\# SUBTRACT BASE CPP(.*)$/) {
+ my @flags = split (/ \//, $1);
+
+ foreach my $flag (@flags) {
+ if ($flag && %{$self->{CONFIGS}}->{$config}->{CPP} =~ m/$flag/) {
+ %{$self->{CONFIGS}}->{$config}->{CPP} =~ s/ \/$flag//g;
+ }
+ }
+ }
+
+ # Look at LINK32 options
+
+ if (m/\# ADD BASE LINK32(.*)$/ || m/\# ADD LINK32(.*)$/
+ || m/\# ADD BASE LIB32(.*)$/ || m/\# ADD LIB32(.*)$/) {
+ my @flags = split (/ \//, $1);
+
+ foreach my $flag (@flags) {
+ my $found = 0;
+ my @libs = split (/ /, $flag);
+
+ foreach my $lib (@libs) {
+ if ($lib =~ m/\.lib$/) {
+ if (%{$self->{CONFIGS}}->{$config}->{LIBS} !~ m/\Q$lib\E/) {
+ %{$self->{CONFIGS}}->{$config}->{LIBS} .= " $lib";
+ }
+ $found = 1;
+ }
+ }
+
+ if (!$found && $flag) {
+ my $shortflag = $flag;
+ if ($flag =~ m/^(.*)\:/) {
+ $shortflag = $1;
+ }
+
+ if (%{$self->{CONFIGS}}->{$config}->{LINK} !~ m/ \/$shortflag/) {
+ %{$self->{CONFIGS}}->{$config}->{LINK} .= " /$flag";
+ }
+ }
+ }
+ }
+ elsif (m/\# SUBTRACT BASE LINK32(.*)$/ || m/\# SUBTRACT LINK32(.*)$/
+ || m/\# SUBTRACT BASE LIB32(.*)$/ || m/\# SUBTRACT LIB32(.*)$/) {
+ my @flags = split (/ \//, $1);
+
+ foreach my $flag (@flags) {
+ my $shortflag = $flag;
+ if ($flag =~ m/^(.*)\:/) {
+ $shortflag = $1;
+ }
+
+ if ($flag && %{$self->{CONFIGS}}->{$config}->{LINK} =~ m/ (\/$shortflag\:[^ ]*)/) {
+ %{$self->{CONFIGS}}->{$config}->{LINK} =~ s/ \Q$1\E//ig;
+ }
+ }
+ }
+
+ if (m/^\# Name \".* - (.*)\"/ && defined %{$self->{CONFIGS}}->{"Unknown"}) {
+ %{$self->{CONFIGS}}->{$1} = %{$self->{CONFIGS}}->{"Unknown"};
+ delete %{$self->{CONFIGS}}->{"Unknown"};
+ }
+
+ if (m/tao\_idl/ && m/\$\(InputName\)\.idl/ || m/tao\_idl/ && m/\$\(InputPath\)/) {
+ $self->{TAOIDL} = 1;
+ }
+ }
+ $fh->close ();
+ $self->{valid} = 1;
+}
+
+###############################################################################
+
+# Build functions
+
+sub Build ($)
+{
+ my $self = shift;
+ my ($config) = @_;
+
+ my $command = $self->Compiler () . " " . $self->Filename ()
+ . " /USEENV"
+ . " /MAKE \"" . $self->Name ()
+ . " - " . $config . "\"";
+
+ system $command;
+}
+
+sub Clean ($)
+{
+ my $self = shift;
+ my ($config) = @_;
+
+ my $command = $self->Compiler () . " " . $self->Filename ()
+ . " /USEENV"
+ . " /MAKE \"" . $self->Name ()
+ . " - " . $config . "\" /CLEAN";
+
+ system $command;
+}
+
+
+1; \ No newline at end of file
View Lorry Controller Status