From 63876d3bac5a7471a7987da25a93c13a2534a644 Mon Sep 17 00:00:00 2001
From: Andrew Dunstan
Date: Tue, 3 Jan 2012 08:44:26 -0500
Subject: Support for building with MS Visual Studio 2010.

Brar Piening, reviewed by Craig Ringer.
---
 src/tools/msvc/VCBuildProject.pm | 267 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 267 insertions(+)
 create mode 100644 src/tools/msvc/VCBuildProject.pm

(limited to 'src/tools/msvc/VCBuildProject.pm')

diff --git a/src/tools/msvc/VCBuildProject.pm b/src/tools/msvc/VCBuildProject.pm
new file mode 100644
index 00000000000..97439d9d5c4
--- /dev/null
+++ b/src/tools/msvc/VCBuildProject.pm
@@ -0,0 +1,267 @@
+package VCBuildProject;
+
+#
+# Package that encapsulates a VCBuild (Visual C++ 2005/2008) project file
+#
+# src/tools/msvc/VCBuildProject.pm
+#
+
+use Carp;
+use strict;
+use warnings;
+use base qw(Project);
+
+sub _new
+{
+    my $classname = shift;
+    my $self = $classname->SUPER::_new(@_);
+    bless($self, $classname);
+
+    $self->{filenameExtension} = '.vcproj';
+
+    return $self;
+}
+
+sub WriteHeader
+{
+    my ($self, $f) = @_;
+
+    print $f <<EOF;
+<?xml version="1.0" encoding="Windows-1252"?>
+<VisualStudioProject ProjectType="Visual C++" Version="$self->{vcver}" Name="$self->{name}" ProjectGUID="$self->{guid}">
+ <Platforms><Platform Name="$self->{platform}"/></Platforms>
+ <Configurations>
+EOF
+    $self->WriteConfiguration($f, 'Debug',
+        { defs=>'_DEBUG;DEBUG=1;', wholeopt=>0, opt=>0, strpool=>'false', runtime=>3 });
+    $self->WriteConfiguration($f, 'Release',
+        { defs=>'', wholeopt=>0, opt=>3, strpool=>'true', runtime=>2 });
+    print $f <<EOF;
+ </Configurations>
+EOF
+    $self->WriteReferences($f);
+}
+
+sub WriteFiles
+{
+    my ($self, $f) = @_;
+    print $f <<EOF;
+ <Files>
+EOF
+    my @dirstack = ();
+    my %uniquefiles;
+    foreach my $fileNameWithPath (sort keys %{ $self->{files} })
+    {
+        confess "Bad format filename '$fileNameWithPath'\n"
+          unless ($fileNameWithPath =~ /^(.*)\\([^\\]+)\.[r]?[cyl]$/);
+        my $dir = $1;
+        my $file = $2;
+
+        # Walk backwards down the directory stack and close any dirs we're done with
+        while ($#dirstack >= 0)
+        {
+            if (join('\\',@dirstack) eq substr($dir, 0, length(join('\\',@dirstack))))
+            {
+                last if (length($dir) == length(join('\\',@dirstack)));
+                last if (substr($dir, length(join('\\',@dirstack)),1) eq '\\');
+            }
+            print $f ' ' x $#dirstack . "  </Filter>\n";
+            pop @dirstack;
+        }
+
+        # Now walk forwards and create whatever directories are needed
+        while (join('\\',@dirstack) ne $dir)
+        {
+            my $left = substr($dir, length(join('\\',@dirstack)));
+            $left =~ s/^\\//;
+            my @pieces = split /\\/, $left;
+            push @dirstack, $pieces[0];
+            print $f ' ' x $#dirstack . "  <Filter Name=\"$pieces[0]\" Filter=\"\">\n";
+        }
+
+        print $f ' ' x $#dirstack . "   <File RelativePath=\"$fileNameWithPath\"";
+        if ($fileNameWithPath =~ /\.y$/)
+        {
+            my $of = $fileNameWithPath;
+            $of =~ s/\.y$/.c/;
+            $of =~ s{^src\\pl\\plpgsql\\src\\gram.c$}{src\\pl\\plpgsql\\src\\pl_gram.c};
+            print $f '>'
+              . $self->GenerateCustomTool('Running bison on ' . $fileNameWithPath,
+                "perl src\\tools\\msvc\\pgbison.pl $fileNameWithPath", $of)
+              . '</File>' . "\n";
+        }
+        elsif ($fileNameWithPath =~ /\.l$/)
+        {
+            my $of = $fileNameWithPath;
+            $of =~ s/\.l$/.c/;
+            print $f '>'
+              . $self->GenerateCustomTool('Running flex on ' . $fileNameWithPath,
+                "perl src\\tools\\msvc\\pgflex.pl $fileNameWithPath", $of)
+              . '</File>' . "\n";
+        }
+        elsif (defined($uniquefiles{$file}))
+        {
+
+            # File already exists, so fake a new name
+            my $obj = $dir;
+            $obj =~ s/\\/_/g;
+            print $f
+"><FileConfiguration Name=\"Debug|$self->{platform}\"><Tool Name=\"VCCLCompilerTool\" ObjectFile=\".\\debug\\$self->{name}\\$obj"
+              . "_$file.obj\" /></FileConfiguration><FileConfiguration Name=\"Release|$self->{platform}\"><Tool Name=\"VCCLCompilerTool\" ObjectFile=\".\\release\\$self->{name}\\$obj"
+              . "_$file.obj\" /></FileConfiguration></File>\n";
+        }
+        else
+        {
+            $uniquefiles{$file} = 1;
+            print $f " />\n";
+        }
+    }
+    while ($#dirstack >= 0)
+    {
+        print $f ' ' x $#dirstack . "  </Filter>\n";
+        pop @dirstack;
+    }
+    print $f <<EOF;
+ </Files>
+EOF
+}
+
+sub Footer
+{
+    my ($self, $f) = @_;
+
+    print $f <<EOF;
+ <Globals/>
+</VisualStudioProject>
+EOF
+}
+
+sub WriteConfiguration
+{
+    my ($self, $f, $cfgname, $p) = @_;
+    my $cfgtype = ($self->{type} eq "exe")?1:($self->{type} eq "dll"?2:4);
+    my $libs = $self->GetAdditionalLinkerDependencies($cfgname, ' ');
+
+    my $targetmachine = $self->{platform} eq 'Win32' ? 1 : 17;
+
+    print $f <<EOF;
+  <Configuration Name="$cfgname|$self->{platform}" OutputDirectory=".\\$cfgname\\$self->{name}" IntermediateDirectory=".\\$cfgname\\$self->{name}"
+	ConfigurationType="$cfgtype" UseOfMFC="0" ATLMinimizesCRunTimeLibraryUsage="FALSE" CharacterSet="2" WholeProgramOptimization="$p->{wholeopt}">
+	<Tool Name="VCCLCompilerTool" Optimization="$p->{opt}"
+		AdditionalIncludeDirectories="$self->{prefixincludes}src/include;src/include/port/win32;src/include/port/win32_msvc;$self->{includes}"
+		PreprocessorDefinitions="WIN32;_WINDOWS;__WINDOWS__;__WIN32__;EXEC_BACKEND;WIN32_STACK_RLIMIT=4194304;_CRT_SECURE_NO_DEPRECATE;_CRT_NONSTDC_NO_DEPRECATE$self->{defines}$p->{defs}"
+		StringPooling="$p->{strpool}"
+		RuntimeLibrary="$p->{runtime}" DisableSpecificWarnings="$self->{disablewarnings}"
+		AdditionalOptions="/MP"
+EOF
+    print $f <<EOF;
+		AssemblerOutput="0" AssemblerListingLocation=".\\$cfgname\\$self->{name}\\" ObjectFile=".\\$cfgname\\$self->{name}\\"
+		ProgramDataBaseFileName=".\\$cfgname\\$self->{name}\\" BrowseInformation="0"
+		WarningLevel="3" SuppressStartupBanner="TRUE" DebugInformationFormat="3" CompileAs="0"/>
+	<Tool Name="VCLinkerTool" OutputFile=".\\$cfgname\\$self->{name}\\$self->{name}.$self->{type}"
+		AdditionalDependencies="$libs"
+		LinkIncremental="0" SuppressStartupBanner="TRUE" AdditionalLibraryDirectories="" IgnoreDefaultLibraryNames="libc"
+		StackReserveSize="4194304" DisableSpecificWarnings="$self->{disablewarnings}"
+		GenerateDebugInformation="TRUE" ProgramDatabaseFile=".\\$cfgname\\$self->{name}\\$self->{name}.pdb"
+		GenerateMapFile="FALSE" MapFileName=".\\$cfgname\\$self->{name}\\$self->{name}.map"
+		SubSystem="1" TargetMachine="$targetmachine"
+EOF
+    if ($self->{disablelinkerwarnings})
+    {
+        print $f "\t\tAdditionalOptions=\"/ignore:$self->{disablelinkerwarnings}\"\n";
+    }
+    if ($self->{implib})
+    {
+        my $l = $self->{implib};
+        $l =~ s/__CFGNAME__/$cfgname/g;
+        print $f "\t\tImportLibrary=\"$l\"\n";
+    }
+    if ($self->{def})
+    {
+        my $d = $self->{def};
+        $d =~ s/__CFGNAME__/$cfgname/g;
+        print $f "\t\tModuleDefinitionFile=\"$d\"\n";
+    }
+
+    print $f "\t/>\n";
+    print $f
+"\t<Tool Name=\"VCLibrarianTool\" OutputFile=\".\\$cfgname\\$self->{name}\\$self->{name}.lib\" IgnoreDefaultLibraryNames=\"libc\" />\n";
+    print $f
+      "\t<Tool Name=\"VCResourceCompilerTool\" AdditionalIncludeDirectories=\"src\\include\" />\n";
+    if ($self->{builddef})
+    {
+        print $f
+"\t<Tool Name=\"VCPreLinkEventTool\" Description=\"Generate DEF file\" CommandLine=\"perl src\\tools\\msvc\\gendef.pl $cfgname\\$self->{name} $self->{platform}\" />\n";
+    }
+    print $f <<EOF;
+  </Configuration>
+EOF
+}
+
+sub WriteReferences
+{
+    my ($self, $f) = @_;
+    print $f " <References>\n";
+    foreach my $ref (@{$self->{references}})
+    {
+        print $f
+"  <ProjectReference ReferencedProjectIdentifier=\"$ref->{guid}\" Name=\"$ref->{name}\" />\n";
+    }
+    print $f " </References>\n";
+}
+
+sub GenerateCustomTool
+{
+    my ($self, $desc, $tool, $output, $cfg) = @_;
+    if (!defined($cfg))
+    {
+        return $self->GenerateCustomTool($desc, $tool, $output, 'Debug')
+          .$self->GenerateCustomTool($desc, $tool, $output, 'Release');
+    }
+    return
+"<FileConfiguration Name=\"$cfg|$self->{platform}\"><Tool Name=\"VCCustomBuildTool\" Description=\"$desc\" CommandLine=\"$tool\" AdditionalDependencies=\"\" Outputs=\"$output\" /></FileConfiguration>";
+}
+
+package VC2005Project;
+
+#
+# Package that encapsulates a Visual C++ 2005 project file
+#
+
+use strict;
+use warnings;
+use base qw(VCBuildProject);
+
+sub new
+{
+    my $classname = shift;
+    my $self = $classname->SUPER::_new(@_);
+    bless($self, $classname);
+
+    $self->{vcver} = '8.00';
+
+    return $self;
+}
+
+package VC2008Project;
+
+#
+# Package that encapsulates a Visual C++ 2008 project file
+#
+
+use strict;
+use warnings;
+use base qw(VCBuildProject);
+
+sub new
+{
+    my $classname = shift;
+    my $self = $classname->SUPER::_new(@_);
+    bless($self, $classname);
+
+    $self->{vcver} = '9.00';
+
+    return $self;
+}
+
+1;
-- 
cgit v1.2.3