mirror of https://github.com/postgres/postgres
Brar Piening, reviewed by Craig Ringer.pull/1/head
Andrew Dunstan
14 years ago
parent
f132824c24
commit
63876d3bac
@ -0,0 +1,388 @@ |
|||||||
|
package MSBuildProject; |
||||||
|
|
||||||
|
# |
||||||
|
# Package that encapsulates a MSBuild (Visual C++ 2010) project file |
||||||
|
# |
||||||
|
# src/tools/msvc/MSBuildProject.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} = '.vcxproj'; |
||||||
|
|
||||||
|
return $self; |
||||||
|
} |
||||||
|
|
||||||
|
sub WriteHeader |
||||||
|
{ |
||||||
|
my ($self, $f) = @_; |
||||||
|
|
||||||
|
print $f <<EOF; |
||||||
|
<?xml version="1.0" encoding="Windows-1252"?> |
||||||
|
<Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> |
||||||
|
<ItemGroup Label="ProjectConfigurations"> |
||||||
|
EOF |
||||||
|
$self->WriteConfigurationHeader($f, 'Debug'); |
||||||
|
$self->WriteConfigurationHeader($f, 'Release'); |
||||||
|
print $f <<EOF; |
||||||
|
</ItemGroup> |
||||||
|
<PropertyGroup Label="Globals"> |
||||||
|
<ProjectGuid>$self->{guid}</ProjectGuid> |
||||||
|
</PropertyGroup> |
||||||
|
<Import Project="\$(VCTargetsPath)\\Microsoft.Cpp.Default.props" /> |
||||||
|
EOF |
||||||
|
$self->WriteConfigurationPropertyGroup($f, 'Release',{ wholeopt=>'false' }); |
||||||
|
$self->WriteConfigurationPropertyGroup($f, 'Debug',{ wholeopt=>'false' }); |
||||||
|
print $f <<EOF; |
||||||
|
<Import Project="\$(VCTargetsPath)\\Microsoft.Cpp.props" /> |
||||||
|
<ImportGroup Label="ExtensionSettings"> |
||||||
|
</ImportGroup> |
||||||
|
EOF |
||||||
|
$self->WritePropertySheetsPropertyGroup($f, 'Release'); |
||||||
|
$self->WritePropertySheetsPropertyGroup($f, 'Debug'); |
||||||
|
print $f <<EOF; |
||||||
|
<PropertyGroup Label="UserMacros" /> |
||||||
|
<PropertyGroup> |
||||||
|
<_ProjectFileVersion>10.0.30319.1</_ProjectFileVersion> |
||||||
|
EOF |
||||||
|
$self->WriteAdditionalProperties($f, 'Debug'); |
||||||
|
$self->WriteAdditionalProperties($f, 'Release'); |
||||||
|
print $f <<EOF; |
||||||
|
</PropertyGroup> |
||||||
|
EOF |
||||||
|
$self->WriteItemDefinitionGroup( |
||||||
|
$f, 'Debug', |
||||||
|
{ |
||||||
|
defs=>'_DEBUG;DEBUG=1;', |
||||||
|
opt=>'Disabled', |
||||||
|
strpool=>'false', |
||||||
|
runtime=>'MultiThreadedDebugDLL' |
||||||
|
} |
||||||
|
); |
||||||
|
$self->WriteItemDefinitionGroup($f, 'Release', |
||||||
|
{ defs=>'', opt=>'Full', strpool=>'true', runtime=>'MultiThreadedDLL' }); |
||||||
|
} |
||||||
|
|
||||||
|
sub AddDefine |
||||||
|
{ |
||||||
|
my ($self, $def) = @_; |
||||||
|
|
||||||
|
$self->{defines} .= $def . ';'; |
||||||
|
} |
||||||
|
|
||||||
|
sub WriteReferences |
||||||
|
{ |
||||||
|
my ($self, $f) = @_; |
||||||
|
|
||||||
|
my @references = @{$self->{references}}; |
||||||
|
|
||||||
|
if (scalar(@references)) |
||||||
|
{ |
||||||
|
print $f <<EOF; |
||||||
|
<ItemGroup> |
||||||
|
EOF |
||||||
|
foreach my $ref (@references) |
||||||
|
{ |
||||||
|
print $f <<EOF; |
||||||
|
<ProjectReference Include="$ref->{name}$ref->{filenameExtension}"> |
||||||
|
<Project>$ref->{guid}</Project> |
||||||
|
</ProjectReference> |
||||||
|
EOF |
||||||
|
} |
||||||
|
print $f <<EOF; |
||||||
|
</ItemGroup> |
||||||
|
EOF |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
sub WriteFiles |
||||||
|
{ |
||||||
|
my ($self, $f) = @_; |
||||||
|
print $f <<EOF; |
||||||
|
<ItemGroup> |
||||||
|
EOF |
||||||
|
my @grammarFiles = (); |
||||||
|
my @resourceFiles = (); |
||||||
|
my %uniquefiles; |
||||||
|
foreach my $fileNameWithPath (sort keys %{ $self->{files} }) |
||||||
|
{ |
||||||
|
confess "Bad format filename '$fileNameWithPath'\n" |
||||||
|
unless ($fileNameWithPath =~ /^(.*)\\([^\\]+)\.[r]?[cyl]$/); |
||||||
|
my $dir = $1; |
||||||
|
my $fileName = $2; |
||||||
|
if ($fileNameWithPath =~ /\.y$/ or $fileNameWithPath =~ /\.l$/) |
||||||
|
{ |
||||||
|
push @grammarFiles, $fileNameWithPath; |
||||||
|
} |
||||||
|
elsif ($fileNameWithPath =~ /\.rc$/) |
||||||
|
{ |
||||||
|
push @resourceFiles, $fileNameWithPath; |
||||||
|
} |
||||||
|
elsif (defined($uniquefiles{$fileName})) |
||||||
|
{ |
||||||
|
|
||||||
|
# File already exists, so fake a new name |
||||||
|
my $obj = $dir; |
||||||
|
$obj =~ s/\\/_/g; |
||||||
|
|
||||||
|
print $f <<EOF; |
||||||
|
<ClCompile Include="$fileNameWithPath"> |
||||||
|
<ObjectFileName Condition="'\$(Configuration)|\$(Platform)'=='Debug|$self->{platform}'">.\\debug\\$self->{name}\\${obj}_$fileName.obj</ObjectFileName> |
||||||
|
<ObjectFileName Condition="'\$(Configuration)|\$(Platform)'=='Release|$self->{platform}'">.\\release\\$self->{name}\\${obj}_$fileName.obj</ObjectFileName> |
||||||
|
</ClCompile> |
||||||
|
EOF |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
$uniquefiles{$fileName} = 1; |
||||||
|
print $f <<EOF; |
||||||
|
<ClCompile Include="$fileNameWithPath" /> |
||||||
|
EOF |
||||||
|
} |
||||||
|
|
||||||
|
} |
||||||
|
print $f <<EOF; |
||||||
|
</ItemGroup> |
||||||
|
EOF |
||||||
|
if (scalar(@grammarFiles)) |
||||||
|
{ |
||||||
|
print $f <<EOF; |
||||||
|
<ItemGroup> |
||||||
|
EOF |
||||||
|
foreach my $grammarFile (@grammarFiles) |
||||||
|
{ |
||||||
|
(my $outputFile = $grammarFile) =~ s/\.(y|l)$/.c/; |
||||||
|
if ($grammarFile =~ /\.y$/) |
||||||
|
{ |
||||||
|
$outputFile =~ s{^src\\pl\\plpgsql\\src\\gram.c$}{src\\pl\\plpgsql\\src\\pl_gram.c}; |
||||||
|
print $f <<EOF; |
||||||
|
<CustomBuild Include="$grammarFile"> |
||||||
|
<Message Condition="'\$(Configuration)|\$(Platform)'=='Debug|$self->{platform}'">Running bison on $grammarFile</Message> |
||||||
|
<Command Condition="'\$(Configuration)|\$(Platform)'=='Debug|$self->{platform}'">perl "src\\tools\\msvc\\pgbison.pl" "$grammarFile"</Command> |
||||||
|
<AdditionalInputs Condition="'\$(Configuration)|\$(Platform)'=='Debug|$self->{platform}'">%(AdditionalInputs)</AdditionalInputs> |
||||||
|
<Outputs Condition="'\$(Configuration)|\$(Platform)'=='Debug|$self->{platform}'">$outputFile;%(Outputs)</Outputs> |
||||||
|
<Message Condition="'\$(Configuration)|\$(Platform)'=='Release|$self->{platform}'">Running bison on $grammarFile</Message> |
||||||
|
<Command Condition="'\$(Configuration)|\$(Platform)'=='Release|$self->{platform}'">perl "src\\tools\\msvc\\pgbison.pl" "$grammarFile"</Command> |
||||||
|
<AdditionalInputs Condition="'\$(Configuration)|\$(Platform)'=='Release|$self->{platform}'">%(AdditionalInputs)</AdditionalInputs> |
||||||
|
<Outputs Condition="'\$(Configuration)|\$(Platform)'=='Release|$self->{platform}'">$outputFile;%(Outputs)</Outputs> |
||||||
|
</CustomBuild> |
||||||
|
EOF |
||||||
|
} |
||||||
|
else #if ($grammarFile =~ /\.l$/) |
||||||
|
{ |
||||||
|
print $f <<EOF; |
||||||
|
<CustomBuild Include="$grammarFile"> |
||||||
|
<Message Condition="'\$(Configuration)|\$(Platform)'=='Debug|$self->{platform}'">Running flex on $grammarFile</Message> |
||||||
|
<Command Condition="'\$(Configuration)|\$(Platform)'=='Debug|$self->{platform}'">perl "src\\tools\\msvc\\pgflex.pl" "$grammarFile"</Command> |
||||||
|
<AdditionalInputs Condition="'\$(Configuration)|\$(Platform)'=='Debug|$self->{platform}'">%(AdditionalInputs)</AdditionalInputs> |
||||||
|
<Outputs Condition="'\$(Configuration)|\$(Platform)'=='Debug|$self->{platform}'">$outputFile;%(Outputs)</Outputs> |
||||||
|
<Message Condition="'\$(Configuration)|\$(Platform)'=='Release|$self->{platform}'">Running flex on $grammarFile</Message> |
||||||
|
<Command Condition="'\$(Configuration)|\$(Platform)'=='Release|$self->{platform}'">perl "src\\tools\\msvc\\pgflex.pl" "$grammarFile"</Command> |
||||||
|
<AdditionalInputs Condition="'\$(Configuration)|\$(Platform)'=='Release|$self->{platform}'">%(AdditionalInputs)</AdditionalInputs> |
||||||
|
<Outputs Condition="'\$(Configuration)|\$(Platform)'=='Release|$self->{platform}'">$outputFile;%(Outputs)</Outputs> |
||||||
|
</CustomBuild> |
||||||
|
EOF |
||||||
|
} |
||||||
|
} |
||||||
|
print $f <<EOF; |
||||||
|
</ItemGroup> |
||||||
|
EOF |
||||||
|
} |
||||||
|
if (scalar(@resourceFiles)) |
||||||
|
{ |
||||||
|
print $f <<EOF; |
||||||
|
<ItemGroup> |
||||||
|
EOF |
||||||
|
foreach my $rcFile (@resourceFiles) |
||||||
|
{ |
||||||
|
print $f <<EOF; |
||||||
|
<ResourceCompile Include="$rcFile" /> |
||||||
|
EOF |
||||||
|
} |
||||||
|
print $f <<EOF; |
||||||
|
</ItemGroup> |
||||||
|
EOF |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
sub WriteConfigurationHeader |
||||||
|
{ |
||||||
|
my ($self, $f, $cfgname) = @_; |
||||||
|
print $f <<EOF; |
||||||
|
<ProjectConfiguration Include="$cfgname|$self->{platform}"> |
||||||
|
<Configuration>$cfgname</Configuration> |
||||||
|
<Platform>$self->{platform}</Platform> |
||||||
|
</ProjectConfiguration> |
||||||
|
EOF |
||||||
|
} |
||||||
|
|
||||||
|
sub WriteConfigurationPropertyGroup |
||||||
|
{ |
||||||
|
my ($self, $f, $cfgname, $p) = @_; |
||||||
|
my $cfgtype = |
||||||
|
($self->{type} eq "exe") |
||||||
|
?'Application' |
||||||
|
:($self->{type} eq "dll"?'DynamicLibrary':'StaticLibrary'); |
||||||
|
|
||||||
|
print $f <<EOF; |
||||||
|
<PropertyGroup Condition="'\$(Configuration)|\$(Platform)'=='$cfgname|$self->{platform}'" Label="Configuration"> |
||||||
|
<ConfigurationType>$cfgtype</ConfigurationType> |
||||||
|
<UseOfMfc>false</UseOfMfc> |
||||||
|
<CharacterSet>MultiByte</CharacterSet> |
||||||
|
<WholeProgramOptimization>$p->{wholeopt}</WholeProgramOptimization> |
||||||
|
</PropertyGroup> |
||||||
|
EOF |
||||||
|
} |
||||||
|
|
||||||
|
sub WritePropertySheetsPropertyGroup |
||||||
|
{ |
||||||
|
my ($self, $f, $cfgname) = @_; |
||||||
|
print $f <<EOF; |
||||||
|
<ImportGroup Condition="'\$(Configuration)|\$(Platform)'=='$cfgname|$self->{platform}'" Label="PropertySheets"> |
||||||
|
<Import Project="\$(UserRootDir)\\Microsoft.Cpp.\$(Platform).user.props" Condition="exists('\$(UserRootDir)\\Microsoft.Cpp.\$(Platform).user.props')" Label="LocalAppDataPlatform" /> |
||||||
|
</ImportGroup> |
||||||
|
EOF |
||||||
|
} |
||||||
|
|
||||||
|
sub WriteAdditionalProperties |
||||||
|
{ |
||||||
|
my ($self, $f, $cfgname) = @_; |
||||||
|
print $f <<EOF; |
||||||
|
<OutDir Condition="'\$(Configuration)|\$(Platform)'=='$cfgname|$self->{platform}'">.\\$cfgname\\$self->{name}\\</OutDir> |
||||||
|
<IntDir Condition="'\$(Configuration)|\$(Platform)'=='$cfgname|$self->{platform}'">.\\$cfgname\\$self->{name}\\</IntDir> |
||||||
|
<LinkIncremental Condition="'\$(Configuration)|\$(Platform)'=='$cfgname|$self->{platform}'">false</LinkIncremental> |
||||||
|
EOF |
||||||
|
} |
||||||
|
|
||||||
|
sub WriteItemDefinitionGroup |
||||||
|
{ |
||||||
|
my ($self, $f, $cfgname, $p) = @_; |
||||||
|
my $cfgtype = |
||||||
|
($self->{type} eq "exe") |
||||||
|
?'Application' |
||||||
|
:($self->{type} eq "dll"?'DynamicLibrary':'StaticLibrary'); |
||||||
|
my $libs = $self->GetAdditionalLinkerDependencies($cfgname, ';'); |
||||||
|
|
||||||
|
my $targetmachine = $self->{platform} eq 'Win32' ? 'MachineX86' : 'MachineX64'; |
||||||
|
|
||||||
|
my $includes = $self->{includes}; |
||||||
|
unless ($includes eq '' or $includes =~ /;$/) |
||||||
|
{ |
||||||
|
$includes .= ';'; |
||||||
|
} |
||||||
|
print $f <<EOF; |
||||||
|
<ItemDefinitionGroup Condition="'\$(Configuration)|\$(Platform)'=='$cfgname|$self->{platform}'"> |
||||||
|
<ClCompile> |
||||||
|
<Optimization>$p->{opt}</Optimization> |
||||||
|
<AdditionalIncludeDirectories>$self->{prefixincludes}src/include;src/include/port/win32;src/include/port/win32_msvc;$includes\%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> |
||||||
|
<PreprocessorDefinitions>WIN32;_WINDOWS;__WINDOWS__;__WIN32__;EXEC_BACKEND;WIN32_STACK_RLIMIT=4194304;_CRT_SECURE_NO_DEPRECATE;_CRT_NONSTDC_NO_DEPRECATE$self->{defines}$p->{defs}\%(PreprocessorDefinitions)</PreprocessorDefinitions> |
||||||
|
<StringPooling>$p->{strpool}</StringPooling> |
||||||
|
<RuntimeLibrary>$p->{runtime}</RuntimeLibrary> |
||||||
|
<DisableSpecificWarnings>$self->{disablewarnings};\%(DisableSpecificWarnings)</DisableSpecificWarnings> |
||||||
|
<AdditionalOptions>/MP \%(AdditionalOptions)</AdditionalOptions> |
||||||
|
<AssemblerOutput> |
||||||
|
</AssemblerOutput> |
||||||
|
<AssemblerListingLocation>.\\$cfgname\\$self->{name}\\</AssemblerListingLocation> |
||||||
|
<ObjectFileName>.\\$cfgname\\$self->{name}\\</ObjectFileName> |
||||||
|
<ProgramDataBaseFileName>.\\$cfgname\\$self->{name}\\</ProgramDataBaseFileName> |
||||||
|
<BrowseInformation>false</BrowseInformation> |
||||||
|
<WarningLevel>Level3</WarningLevel> |
||||||
|
<SuppressStartupBanner>true</SuppressStartupBanner> |
||||||
|
<DebugInformationFormat>ProgramDatabase</DebugInformationFormat> |
||||||
|
<CompileAs>Default</CompileAs> |
||||||
|
</ClCompile> |
||||||
|
<Link> |
||||||
|
<OutputFile>.\\$cfgname\\$self->{name}\\$self->{name}.$self->{type}</OutputFile> |
||||||
|
<AdditionalDependencies>$libs;\%(AdditionalDependencies)</AdditionalDependencies> |
||||||
|
<SuppressStartupBanner>true</SuppressStartupBanner> |
||||||
|
<AdditionalLibraryDirectories>\%(AdditionalLibraryDirectories)</AdditionalLibraryDirectories> |
||||||
|
<IgnoreSpecificDefaultLibraries>libc;\%(IgnoreSpecificDefaultLibraries)</IgnoreSpecificDefaultLibraries> |
||||||
|
<StackReserveSize>4194304</StackReserveSize> |
||||||
|
<GenerateDebugInformation>true</GenerateDebugInformation> |
||||||
|
<ProgramDatabaseFile>.\\$cfgname\\$self->{name}\\$self->{name}.pdb</ProgramDatabaseFile> |
||||||
|
<GenerateMapFile>false</GenerateMapFile> |
||||||
|
<MapFileName>.\\$cfgname\\$self->{name}\\$self->{name}.map</MapFileName> |
||||||
|
<SubSystem>Console</SubSystem> |
||||||
|
<TargetMachine>$targetmachine</TargetMachine> |
||||||
|
EOF |
||||||
|
if ($self->{disablelinkerwarnings}) |
||||||
|
{ |
||||||
|
print $f |
||||||
|
" <AdditionalOptions>/ignore:$self->{disablelinkerwarnings} \%(AdditionalOptions)</AdditionalOptions>\n"; |
||||||
|
} |
||||||
|
if ($self->{implib}) |
||||||
|
{ |
||||||
|
my $l = $self->{implib}; |
||||||
|
$l =~ s/__CFGNAME__/$cfgname/g; |
||||||
|
print $f " <ImportLibrary>$l</ImportLibrary>\n"; |
||||||
|
} |
||||||
|
if ($self->{def}) |
||||||
|
{ |
||||||
|
my $d = $self->{def}; |
||||||
|
$d =~ s/__CFGNAME__/$cfgname/g; |
||||||
|
print $f " <ModuleDefinitionFile>$d</ModuleDefinitionFile>\n"; |
||||||
|
} |
||||||
|
print $f <<EOF; |
||||||
|
</Link> |
||||||
|
<ResourceCompile> |
||||||
|
<AdditionalIncludeDirectories>src\\include;\%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> |
||||||
|
</ResourceCompile> |
||||||
|
EOF |
||||||
|
if ($self->{builddef}) |
||||||
|
{ |
||||||
|
print $f <<EOF; |
||||||
|
<PreLinkEvent> |
||||||
|
<Message>Generate DEF file</Message> |
||||||
|
<Command>perl src\\tools\\msvc\\gendef.pl $cfgname\\$self->{name} $self->{platform}</Command> |
||||||
|
</PreLinkEvent> |
||||||
|
EOF |
||||||
|
} |
||||||
|
print $f <<EOF; |
||||||
|
</ItemDefinitionGroup> |
||||||
|
EOF |
||||||
|
} |
||||||
|
|
||||||
|
sub Footer |
||||||
|
{ |
||||||
|
my ($self, $f) = @_; |
||||||
|
$self->WriteReferences($f); |
||||||
|
|
||||||
|
print $f <<EOF; |
||||||
|
<Import Project="\$(VCTargetsPath)\\Microsoft.Cpp.targets" /> |
||||||
|
<ImportGroup Label="ExtensionTargets"> |
||||||
|
</ImportGroup> |
||||||
|
</Project> |
||||||
|
EOF |
||||||
|
} |
||||||
|
|
||||||
|
package VC2010Project; |
||||||
|
|
||||||
|
# |
||||||
|
# Package that encapsulates a Visual C++ 2010 project file |
||||||
|
# |
||||||
|
|
||||||
|
use strict; |
||||||
|
use warnings; |
||||||
|
use base qw(MSBuildProject); |
||||||
|
|
||||||
|
sub new |
||||||
|
{ |
||||||
|
my $classname = shift; |
||||||
|
my $self = $classname->SUPER::_new(@_); |
||||||
|
bless($self, $classname); |
||||||
|
|
||||||
|
$self->{vcver} = '10.00'; |
||||||
|
|
||||||
|
return $self; |
||||||
|
} |
||||||
|
|
||||||
|
1; |
||||||
@ -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; |
||||||
@ -0,0 +1,122 @@ |
|||||||
|
package VSObjectFactory; |
||||||
|
|
||||||
|
# |
||||||
|
# Package that creates Visual Studio wrapper objects for msvc build |
||||||
|
# |
||||||
|
# src/tools/msvc/VSObjectFactory.pm |
||||||
|
# |
||||||
|
|
||||||
|
use Carp; |
||||||
|
use strict; |
||||||
|
use warnings; |
||||||
|
|
||||||
|
use Exporter; |
||||||
|
use Project; |
||||||
|
use Solution; |
||||||
|
use VCBuildProject; |
||||||
|
use MSBuildProject; |
||||||
|
|
||||||
|
our (@ISA, @EXPORT); |
||||||
|
@ISA = qw(Exporter); |
||||||
|
@EXPORT = qw(CreateSolution CreateProject DetermineVisualStudioVersion); |
||||||
|
|
||||||
|
sub CreateSolution |
||||||
|
{ |
||||||
|
my $visualStudioVersion = shift; |
||||||
|
|
||||||
|
if (!defined($visualStudioVersion)) |
||||||
|
{ |
||||||
|
$visualStudioVersion = DetermineVisualStudioVersion(); |
||||||
|
} |
||||||
|
|
||||||
|
if ($visualStudioVersion eq '8.00') |
||||||
|
{ |
||||||
|
return new VS2005Solution(@_); |
||||||
|
} |
||||||
|
elsif ($visualStudioVersion eq '9.00') |
||||||
|
{ |
||||||
|
return new VS2008Solution(@_); |
||||||
|
} |
||||||
|
elsif ($visualStudioVersion eq '10.00') |
||||||
|
{ |
||||||
|
return new VS2010Solution(@_); |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
croak "The requested Visual Studio version is not supported."; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
sub CreateProject |
||||||
|
{ |
||||||
|
my $visualStudioVersion = shift; |
||||||
|
|
||||||
|
if (!defined($visualStudioVersion)) |
||||||
|
{ |
||||||
|
$visualStudioVersion = DetermineVisualStudioVersion(); |
||||||
|
} |
||||||
|
|
||||||
|
if ($visualStudioVersion eq '8.00') |
||||||
|
{ |
||||||
|
return new VC2005Project(@_); |
||||||
|
} |
||||||
|
elsif ($visualStudioVersion eq '9.00') |
||||||
|
{ |
||||||
|
return new VC2008Project(@_); |
||||||
|
} |
||||||
|
elsif ($visualStudioVersion eq '10.00') |
||||||
|
{ |
||||||
|
return new VC2010Project(@_); |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
croak "The requested Visual Studio version is not supported."; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
sub DetermineVisualStudioVersion |
||||||
|
{ |
||||||
|
my $nmakeVersion = shift; |
||||||
|
|
||||||
|
if (!defined($nmakeVersion)) |
||||||
|
{ |
||||||
|
|
||||||
|
# Determine version of nmake command, to set proper verison of visual studio |
||||||
|
# we use nmake as it has existed for a long time and still exists in visual studio 2010 |
||||||
|
open(P,"nmake /? 2>&1 |") |
||||||
|
|| croak "Unable to determine Visual Studio version: The nmake command wasn't found."; |
||||||
|
while(<P>) |
||||||
|
{ |
||||||
|
chomp; |
||||||
|
if (/(\d+)\.(\d+)\.\d+(\.\d+)?$/) |
||||||
|
{ |
||||||
|
return _GetVisualStudioVersion($1, $2); |
||||||
|
} |
||||||
|
} |
||||||
|
close(P); |
||||||
|
} |
||||||
|
elsif($nmakeVersion =~ /(\d+)\.(\d+)\.\d+(\.\d+)?$/) |
||||||
|
{ |
||||||
|
return _GetVisualStudioVersion($1, $2); |
||||||
|
} |
||||||
|
croak "Unable to determine Visual Studio version: The nmake version could not be determined."; |
||||||
|
} |
||||||
|
|
||||||
|
sub _GetVisualStudioVersion |
||||||
|
{ |
||||||
|
my($major, $minor) = @_; |
||||||
|
if ($major > 10) |
||||||
|
{ |
||||||
|
carp |
||||||
|
"The determined version of Visual Studio is newer than the latest supported version. Returning the latest supported version instead."; |
||||||
|
return '10.00'; |
||||||
|
} |
||||||
|
elsif ($major < 6) |
||||||
|
{ |
||||||
|
croak |
||||||
|
"Unable to determine Visual Studio version: Visual Studio versions before 6.0 aren't supported."; |
||||||
|
} |
||||||
|
return "$major.$minor"; |
||||||
|
} |
||||||
|
|
||||||
|
1; |
||||||
Loading…
Reference in new issue