diff options
Diffstat (limited to 'src/tools/msvc/Project.pm')
| -rw-r--r-- | src/tools/msvc/Project.pm | 384 |
1 files changed, 384 insertions, 0 deletions
diff --git a/src/tools/msvc/Project.pm b/src/tools/msvc/Project.pm new file mode 100644 index 00000000000..239a4737dfd --- /dev/null +++ b/src/tools/msvc/Project.pm @@ -0,0 +1,384 @@ +package Project; + +use Carp; +use strict; +use warnings; + +sub new { + my ($junk, $name, $type, $solution) = @_; + my $good_types = { + lib => 1, + exe => 1, + dll => 1, + }; + confess("Bad project type: $type\n") unless exists $good_types->{$type}; + my $self = { + name => $name, + type => $type, + guid => Win32::GuidGen(), + files => {}, + references => [], + libraries => '', + includes => '', + defines => ';', + solution => $solution, + disablewarnings => '4018;4244', + }; + + bless $self; + return $self; +} + +sub AddFile { + my ($self, $filename) = @_; + + $self->{files}->{$filename} = 1; +} + +sub AddFiles { + my $self = shift; + my $dir = shift; + + while (my $f = shift) { + $self->{files}->{$dir . "\\" . $f} = 1; + } +} + +sub ReplaceFile { + my ($self, $filename, $newname) = @_; + my $re = "\\\\$filename\$"; + + foreach my $file ( keys %{ $self->{files} } ) { + # Match complete filename + if ($filename =~ /\\/) { + if ($file eq $filename) { + delete $self->{files}{$file}; + $self->{files}{$newname} = 1; + return; + } + } + elsif ($file =~ m/($re)/) { + delete $self->{files}{$file}; + $self->{files}{ "$newname\\$filename" } = 1; + return; + } + } + confess("Could not find file $filename to replace\n"); +} + +sub RemoveFile { + my ($self, $filename) = @_; + my $orig = scalar keys %{ $self->{files} }; + delete $self->{files}->{$filename}; + if ($orig > scalar keys %{$self->{files}} ) { + return; + } + confess("Could not find file $filename to remove\n"); +} + +sub AddReference { + my $self = shift; + + while (my $ref = shift) { + push @{$self->{references}},$ref; + $self->AddLibrary("debug\\" . $ref->{name} . "\\" . $ref->{name} . ".lib") if ($ref->{type} eq "exe"); + } +} + +sub AddLibrary { + my ($self, $lib) = @_; + + if ($self->{libraries} ne '') { + $self->{libraries} .= ' '; + } + $self->{libraries} .= $lib; +} + +sub AddIncludeDir { + my ($self, $inc) = @_; + + if ($self->{includes} ne '') { + $self->{includes} .= ';'; + } + $self->{includes} .= $inc; +} + +sub AddDefine { + my ($self, $def) = @_; + + $self->{defines} .= $def . ';'; +} + +sub FullExportDLL { + my ($self, $libname) = @_; + + $self->{builddef} = 1; + $self->{def} = ".\\debug\\$self->{name}\\$self->{name}.def"; + $self->{implib} = "debug\\$self->{name}\\$libname"; +} + +sub UseDef { + my ($self, $def) = @_; + + $self->{def} = $def; +} + +sub AddDir { + my ($self, $reldir) = @_; + my $MF; + + my $t = $/;undef $/; + open($MF,"$reldir\\Makefile") || open($MF,"$reldir\\GNUMakefile") || croak "Could not open $reldir\\Makefile\n"; + my $mf = <$MF>; + close($MF); + + $mf =~ s{\\\s*[\r\n]+}{}mg; + if ($mf =~ m{^(?:SUB)?DIRS[^=]*=\s*(.*)$}mg) { + foreach my $subdir (split /\s+/,$1) { + next if $subdir eq "\$(top_builddir)/src/timezone"; #special case for non-standard include + $self->AddDir($reldir . "\\" . $subdir); + } + } + while ($mf =~ m{^(?:EXTRA_)?OBJS[^=]*=\s*(.*)$}m) { + my $s = $1; + my $filter_re = qr{\$\(filter ([^,]+),\s+\$\(([^\)]+)\)\)}; + while ($s =~ /$filter_re/) { +# Process $(filter a b c, $(VAR)) expressions + my $list = $1; + my $filter = $2; + $list =~ s/\.o/\.c/g; + my @pieces = split /\s+/, $list; + my $matches = ""; + foreach my $p (@pieces) { + if ($filter eq "LIBOBJS") { + if (grep(/$p/, @main::pgportfiles) == 1) { + $p =~ s/\.c/\.o/; + $matches .= $p . " "; + } + } + else { + confess "Unknown filter $filter\n"; + } + } + $s =~ s/$filter_re/$matches/; + } + foreach my $f (split /\s+/,$s) { + next if $f =~ /^\s*$/; + next if $f eq "\\"; + next if $f =~ /\/SUBSYS.o$/; + $f =~ s/,$//; # Remove trailing comma that can show up from filter stuff + next unless $f =~ /.*\.o$/; + $f =~ s/\.o$/\.c/; + if ($f =~ /^\$\(top_builddir\)\/(.*)/) { + $f = $1; + $f =~ s/\//\\/g; + $self->{files}->{$f} = 1; + } + else { + $f =~ s/\//\\/g; + $self->{files}->{"$reldir\\$f"} = 1; + } + } + $mf =~ s{OBJS[^=]*=\s*(.*)$}{}m; + } + +# Match rules that pull in source files from different directories + my $replace_re = qr{^([^:\n\$]+\.c)\s*:\s*(?:%\s*: )?\$(\([^\)]+\))\/(.*)\/[^\/]+$}; + while ($mf =~ m{$replace_re}m) { + my $match = $1; + my $top = $2; + my $target = $3; + $target =~ s{/}{\\}g; + my @pieces = split /\s+/,$match; + foreach my $fn (@pieces) { + if ($top eq "(top_srcdir)") { + eval { $self->ReplaceFile($fn, $target) }; + } + elsif ($top eq "(backend_src)") { + eval { $self->ReplaceFile($fn, "src\\backend\\$target") }; + } + else { + confess "Bad replacement top: $top, on line $_\n"; + } + } + $mf =~ s{$replace_re}{}m; + } + +# See if this Makefile contains a description, and should have a RC file + if ($mf =~ /^PGFILEDESC\s*=\s*\"([^\"]+)\"/m) { + my $desc = $1; + my $ico; + if ($mf =~ /^PGAPPICON\s*=\s*(.*)$/m) { $ico = $1; } + $self->AddResourceFile($reldir,$desc,$ico); + } + $/ = $t; +} + +sub AddResourceFile { + my ($self, $dir, $desc, $ico) = @_; + + my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); + my $d = ($year - 100) . "$yday"; + + if (Solution::IsNewer("$dir\\win32ver.rc",'src\port\win32ver.rc')) { + print "Generating win32ver.rc for $dir\n"; + open(I,'src\port\win32ver.rc') || confess "Could not open win32ver.rc"; + open(O,">$dir\\win32ver.rc") || confess "Could not write win32ver.rc"; + my $icostr = $ico?"IDI_ICON ICON \"src/port/$ico.ico\"":""; + while (<I>) { + s/FILEDESC/"$desc"/gm; + s/_ICO_/$icostr/gm; + s/(VERSION.*),0/$1,$d/; + if ($self->{type} eq "dll") { + s/VFT_APP/VFT_DLL/gm; + } + print O; + } + } + close(O); + close(I); + $self->AddFile("$dir\\win32ver.rc"); +} + +sub Save { + my ($self) = @_; + +# If doing DLL and haven't specified a DEF file, do a full export of all symbols +# in the project. + if ($self->{type} eq "dll" && !$self->{def}) { + $self->FullExportDLL($self->{name} . ".lib"); + } + +# Dump the project + open(F, ">$self->{name}.vcproj") || croak("Could not write to $self->{name}.vcproj\n"); + $self->WriteHeader(*F); + $self->WriteReferences(*F); + print F <<EOF; + <Files> +EOF + my @dirstack = (); + my %uniquefiles; + foreach my $f (sort keys %{ $self->{files} }) { + confess "Bad format filename '$f'\n" unless ($f =~ /^(.*)\\([^\\]+)\.[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=\"$f\""; + if ($f =~ /\.y$/) { + my $of = $f; + $of =~ s/\.y$/.c/; + $of =~ s{^src\\pl\\plpgsql\\src\\gram.c$}{src\\pl\\plpgsql\\src\\pl_gram.c}; + print F '><FileConfiguration Name="Debug|Win32"><Tool Name="VCCustomBuildTool" Description="Running bison on ' . $f . '" CommandLine="vcbuild\pgbison.bat ' . $f . '" AdditionalDependencies="" Outputs="' . $of . '" /></FileConfiguration></File>' . "\n"; + } + elsif ($f =~ /\.l$/) { + my $of = $f; + $of =~ s/\.l$/.c/; + $of =~ s{^src\\pl\\plpgsql\\src\\scan.c$}{src\\pl\\plpgsql\\src\\pl_scan.c}; + print F "><FileConfiguration Name=\"Debug|Win32\"><Tool Name=\"VCCustomBuildTool\" Description=\"Running flex on $f\" CommandLine=\"vcbuild\\pgflex.bat $f\" AdditionalDependencies=\"\" Outputs=\"$of\" /></FileConfiguration></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|Win32\"><Tool Name=\"VCCLCompilerTool\" ObjectFile=\".\\debug\\$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; + } + $self->Footer(*F); + close(F); +} + +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 WriteHeader { + my ($self, $f) = @_; + + my $cfgtype = ($self->{type} eq "exe")?1:($self->{type} eq "dll"?2:4); + + print $f <<EOF; +<?xml version="1.0" encoding="Windows-1252"?> +<VisualStudioProject ProjectType="Visual C++" Version="8.00" Name="$self->{name}" ProjectGUID="$self->{guid}"> + <Platforms><Platform Name="Win32"/></Platforms> + <Configurations> + <Configuration Name="Debug|Win32" OutputDirectory=".\\Debug\\$self->{name}" IntermediateDirectory=".\\Debug\\$self->{name}" + ConfigurationType="$cfgtype" UseOfMFC="0" ATLMinimizesCRunTimeLibraryUsage="FALSE" CharacterSet="2"> + <Tool Name="VCCLCompilerTool" Optimization="0" + AdditionalIncludeDirectories="src/include;src/include/port/win32;src/include/port/win32_msvc;$self->{solution}->{options}->{pthread};$self->{includes}" + PreprocessorDefinitions="WIN32;_DEBUG;_WINDOWS;__WINDOWS__;DEBUG=1;__WIN32__;EXEC_BACKEND;_CRT_SECURE_NO_DEPRECATE;_CRT_NONSTDC_NO_DEPRECATE$self->{defines}" + RuntimeLibrary="3" DisableSpecificWarnings="$self->{disablewarnings}" +EOF + print $f <<EOF; + AssemblerOutput="0" AssemblerListingLocation=".\\debug\\$self->{name}\\" ObjectFile=".\\debug\\$self->{name}\\" + ProgramDataBaseFileName=".\\debug\\$self->{name}\\" BrowseInformation="0" + WarningLevel="3" SuppressStartupBanner="TRUE" DebugInformationFormat="3" CompileAs="0"/> + <Tool Name="VCLinkerTool" OutputFile=".\\debug\\$self->{name}\\$self->{name}.$self->{type}" + AdditionalDependencies="$self->{libraries}" + LinkIncremental="0" SuppressStartupBanner="TRUE" AdditionalLibraryDirectories="" IgnoreDefaultLibraryNames="libc" + StackReserveSize="4194304" DisableSpecificWarnings="$self->{disablewarnings}" + GenerateDebugInformation="TRUE" ProgramDatabaseFile=".\\debug\\$self->{name}\\$self->{name}.pdb" + GenerateMapFile="FALSE" MapFileName=".\\debug\\$self->{name}\\$self->{name}.map" + SubSystem="1" TargetMachine="1" +EOF + if ($self->{implib}) { + print $f "\t\tImportLibrary=\"$self->{implib}\"\n"; + } + if ($self->{def}) { + print $f "\t\tModuleDefinitionFile=\"$self->{def}\"\n"; + } + + print $f "\t/>\n"; + print $f "\t<Tool Name=\"VCLibrarianTool\" OutputFile=\".\\Debug\\$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 vcbuild\\gendef.pl debug\\$self->{name}\" />\n"; + } + print $f <<EOF; + </Configuration> + </Configurations> +EOF +} + +sub Footer { + my ($self, $f) = @_; + + print $f <<EOF; + </Files> + <Globals/> +</VisualStudioProject> +EOF +} + + +1; |