summaryrefslogtreecommitdiff
path: root/ACE/MPC/modules/VC8WorkspaceCreator.pm
diff options
context:
space:
mode:
Diffstat (limited to 'ACE/MPC/modules/VC8WorkspaceCreator.pm')
-rw-r--r--ACE/MPC/modules/VC8WorkspaceCreator.pm248
1 files changed, 248 insertions, 0 deletions
diff --git a/ACE/MPC/modules/VC8WorkspaceCreator.pm b/ACE/MPC/modules/VC8WorkspaceCreator.pm
new file mode 100644
index 00000000000..60dfd7c7187
--- /dev/null
+++ b/ACE/MPC/modules/VC8WorkspaceCreator.pm
@@ -0,0 +1,248 @@
+package VC8WorkspaceCreator;
+
+# ************************************************************
+# Description : A VC8 Workspace Creator
+# Author : Johnny Willemsen
+# Create Date : 4/21/2004
+# ************************************************************
+
+# ************************************************************
+# Pragmas
+# ************************************************************
+
+use strict;
+
+use VC8ProjectCreator;
+use VC71WorkspaceCreator;
+
+use vars qw(@ISA);
+@ISA = qw(VC71WorkspaceCreator);
+
+# ************************************************************
+# Data Section
+# ************************************************************
+
+my %lang_map = (Creator::cplusplus => 'Visual C#',
+ Creator::csharp => 'Visual C#',
+ Creator::vb => 'Visual Basic',
+ Creator::java => 'Visual J#');
+
+# ************************************************************
+# Subroutine Section
+# ************************************************************
+
+sub pre_workspace {
+ my($self, $fh) = @_;
+ my $crlf = $self->crlf();
+
+ ## This identifies it as a Visual Studio 2005 file
+ print $fh '', $crlf,
+ 'Microsoft Visual Studio Solution File, Format Version 9.00', $crlf;
+
+ ## Optionally print the workspace comment
+ $self->print_workspace_comment($fh,
+ '# Visual Studio 2005', $crlf,
+ '# $Id$', $crlf,
+ '#', $crlf,
+ '# This file was generated by MPC. Any changes made directly to', $crlf,
+ '# this file will be lost the next time it is generated.', $crlf,
+ '#', $crlf,
+ '# MPC Command:', $crlf,
+ '# ', $self->create_command_line_string($0, @ARGV), $crlf);
+}
+
+sub post_workspace {
+ my($self, $fh, $creator) = @_;
+ my $pjs = $self->get_project_info();
+ my @projects = $self->sort_dependencies($self->get_projects(), 0);
+ my %gmap;
+
+ ## Store a map of the project name to project guid and whether or not
+ ## it is suitable to be referenced. Adding a reference to a
+ ## non-managed c++ library or a "utility" project causes a warning in
+ ## Visual Studio 2008 and higher.
+ foreach my $project (@projects) {
+ my($name, $deps, $guid, $lang, $custom_only, $nocross, $managed) = @{$$pjs{$project}};
+ $gmap{$name} = [$guid, !$custom_only && ($managed ||
+ $lang ne Creator::cplusplus)];
+ }
+
+ ## Now go through the projects and check for the need to add external
+ ## references.
+ foreach my $project (@projects) {
+ my $ph = new FileHandle();
+ my $outdir = $self->get_outdir();
+ $outdir = $self->getcwd() if ($outdir eq '.');
+ if (open($ph, "$outdir/$project")) {
+ my $write;
+ my @read;
+ my $crlf = $self->crlf();
+ my $cwd = $self->getcwd();
+ my $lang = $$pjs{$project}->[3];
+ my $managed = $$pjs{$project}->[6];
+
+ while(<$ph>) {
+ ## This is a comment found in vc8.mpd if the project contains the
+ ## 'after' keyword setting and the 'add_references' template
+ ## variable setting.
+ if (/^(\s*)<!\-\-\s+MPC\s+ADD\s+DEPENDENCIES/) {
+ my $spc = $1;
+ my $deps = $self->get_validated_ordering($project);
+ foreach my $dep (@$deps) {
+ my $relative = $self->get_relative_dep_file($creator,
+ "$cwd/$project",
+ $dep);
+ if (defined $relative) {
+ if ($lang eq Creator::cplusplus) {
+ ## If the current project is not managed, then we will
+ ## add references (although I doubt that will be useful).
+ ## If the current project is managed, then the reference
+ ## project must be managed or a non-c++ project.
+ if (!$managed || ($managed && $gmap{$dep}->[1])) {
+ push(@read, $spc . '<ProjectReference' . $crlf .
+ $spc . "\tReferencedProjectIdentifier=" .
+ "\"\{$gmap{$dep}->[0]\}\"$crlf" .
+ $spc . "\tRelativePathToProject=\"$relative\"$crlf" .
+ $spc . '/>' . $crlf);
+ }
+ }
+ ## This is a non-c++ language. So, it should not reference
+ ## unmanaged c++ libraries. If it's a managed project or
+ ## it's not a c++ project, it's ok to add a reference.
+ elsif ($gmap{$dep}->[1]) {
+ push(@read, $spc . '<ProjectReference Include="' .
+ $relative . '">' . $crlf,
+ $spc . ' <Project>{' . $gmap{$dep}->[0] .
+ '}</Project>' . $crlf,
+ $spc . ' <Name>' . $dep . '</Name>' . $crlf,
+ $spc . '</ProjectReference>' . $crlf);
+ }
+
+ ## Indicate that we need to re-write the file
+ $write = 1;
+ }
+ }
+ last if (!$write);
+ }
+ else {
+ push(@read, $_);
+ }
+ }
+ close($ph);
+
+ ## If we need to re-write the file, then do so
+ if ($write && open($ph, ">$outdir/$project")) {
+ foreach my $line (@read) {
+ print $ph $line;
+ }
+ close($ph);
+ }
+ }
+ }
+}
+
+sub adjust_names {
+ my($self, $name, $proj, $lang) = @_;
+
+ ## For websites, the project needs to be the directory of the actual
+ ## project file with a trailing slash. The name needs a trailing slash
+ ## too.
+ if ($lang eq Creator::website) {
+ $proj = $self->mpc_dirname($proj);
+ $proj .= '\\';
+ $name .= '\\';
+ }
+
+ ## This always needs to be a path with the Windows style directory
+ ## separator.
+ $proj =~ s/\//\\/g;
+ return $name, $proj;
+}
+
+sub get_short_config_name {
+ #my($self, $cfg) = @_;
+ return $_[1];
+}
+
+sub get_solution_config_section_name {
+ #my $self = shift;
+ return 'SolutionConfigurationPlatforms';
+}
+
+sub get_project_config_section_name {
+ #my $self = shift;
+ return 'ProjectConfigurationPlatforms';
+}
+
+sub print_additional_sections {
+ my($self, $fh) = @_;
+ my $crlf = $self->crlf();
+
+ print $fh "\tGlobalSection(SolutionProperties) = preSolution$crlf",
+ "\t\tHideSolutionNode = FALSE$crlf",
+ "\tEndGlobalSection$crlf";
+}
+
+sub allow_empty_dependencies {
+ #my $self = shift;
+ return 0;
+}
+
+sub print_inner_project {
+ my($self, $fh, $gen, $currguid, $deps, $name, $name_to_guid_map, $proj_language, $cfgs) = @_;
+
+ ## We need to perform a lot of work, but only for websites.
+ if ($proj_language eq Creator::website) {
+ my $crlf = $self->crlf();
+ my $directory = ($name eq '.\\' ?
+ $self->get_workspace_name() . '\\' : $name);
+
+ ## We need the directory name with no trailing back-slash for use
+ ## below.
+ my $notrail = $directory;
+ $notrail =~ s/\\$//;
+
+ # Print the website project.
+ print $fh "\tProjectSection(WebsiteProperties) = preProject", $crlf;
+
+ ## Print out the references
+ my $references;
+ foreach my $dep (@$deps) {
+ if (defined $$name_to_guid_map{$dep}) {
+ $references = "\t\t" .
+ 'ProjectReferences = "' if (!defined $references);
+ $references .= "{$$name_to_guid_map{$dep}}|$dep;";
+ }
+ }
+ print $fh $references, '"', $crlf if (defined $references);
+
+ ## And now the configurations
+ my %cfg_seen;
+ foreach my $config (@$cfgs) {
+ $config =~ s/\|.*//;
+ if (!$cfg_seen{$config}) {
+ print $fh "\t\t$config.AspNetCompiler.VirtualPath = \"/$notrail\"", $crlf,
+ "\t\t$config.AspNetCompiler.PhysicalPath = \"$directory\"", $crlf,
+ "\t\t$config.AspNetCompiler.TargetPath = \"PrecompiledWeb\\$directory\"", $crlf,
+ "\t\t$config.AspNetCompiler.Updateable = \"true\"", $crlf,
+ "\t\t$config.AspNetCompiler.ForceOverwrite = \"true\"", $crlf,
+ "\t\t$config.AspNetCompiler.FixedNames = \"true\"", $crlf,
+ "\t\t$config.AspNetCompiler.Debug = \"",
+ ($config =~ /debug/i ? 'True' : 'False'), "\"", $crlf;
+ $cfg_seen{$config} = 1;
+ }
+ }
+ print $fh "\t\tVWDPort = \"1573\"", $crlf,
+ "\t\tDefaultWebSiteLanguage = \"",
+ $lang_map{$self->get_language()}, "\"", $crlf,
+ "\tEndProjectSection", $crlf;
+ }
+ else {
+ # We can ignore this project and pass it to the
+ # SUPER since it's not a website.
+ $self->SUPER::print_inner_project($fh, $gen, $currguid, $deps,
+ $name, $name_to_guid_map);
+ }
+}
+
+1;
View Lorry Controller Status