database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-04-22 23:02:54 +03:00
Code

Build perlchunks.h for plperl on MSVC

Browse Source
This commit is contained in:
Andrew Dunstan 2010-01-09 14:45:47 +00:00
parent c79640efb2
commit 0346442b5d
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/tools/msvc/Mkvcbuild.pm
View File

@ -3,7 +3,7 @@ package Mkvcbuild;
# #
# Package that generates build files for msvc build # Package that generates build files for msvc build
# #
# $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.44 2009/11/12 00:13:00 tgl Exp $ # $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.45 2010/01/09 14:45:47 adunstan Exp $
# #
use Carp; use Carp;
use Win32; use Win32;
@ -11,6 +11,8 @@ use strict;
use warnings; use warnings;
use Project; use Project;
use Solution; use Solution;
use Cwd;
use File::Copy;
use Exporter; use Exporter;
our (@ISA, @EXPORT_OK); our (@ISA, @EXPORT_OK);
@ -103,6 +105,31 @@ sub mkvcbuild
die 'Failed to create SPI.c' . "\n"; die 'Failed to create SPI.c' . "\n";
} }
} }
if ( Solution::IsNewer('src\pl\plperl\perlchunks.h','src\pl\plperl\plc_perlboot.pl')
||Solution::IsNewer('src\pl\plperl\perlchunks.h','src\pl\plperl\plc_safe_bad.pl')
||Solution::IsNewer('src\pl\plperl\perlchunks.h','src\pl\plperl\plc_safe_ok.pl'))
{
print 'Building src\pl\plperl\perlchunks.h ...' . "\n";
my $basedir = getcwd;
chdir 'src\pl\plperl';
system( $solution->{options}->{perl}
. '/bin/perl '
. 'text2macro.pl '
. '--strip="^(\#.*|\s*)$$" '
. 'plc_perlboot.pl plc_safe_bad.pl plc_safe_ok.pl '
. '>perlchunks.htmp');
chdir $basedir;
if ((!(-f 'src\pl\plperl\perlchunks.htmp')) || -z 'src\pl\plperl\perlchunks.htmp')
{
unlink('src\pl\plperl\perlchunks.htmp'); # if zero size
die 'Failed to create perlchunks.h' . "\n";
}
else
{
move('src\pl\plperl\perlchunks.htmp','src\pl\plperl\perlchunks.h');
}
}
$plperl->AddReference($postgres); $plperl->AddReference($postgres);
my @perl_libs = grep {/perl\d+.lib$/ } my @perl_libs = grep {/perl\d+.lib$/ }
glob($solution->{options}->{perl} . '\lib\CORE\perl*.lib'); glob($solution->{options}->{perl} . '\lib\CORE\perl*.lib');