use Solution;

use Cwd;

use File::Copy;

use File::Basename;

use Config;

use VSObjectFactory;

use List::Utilqw(first);

my$contrib_extrasource = {

'cube'=> ['cubescan.l','cubeparse.y' ],

'seg'=> ['segscan.l','segparse.y' ],

'pg_xlogdump'=> ['../../src/backend/access/transam/xlogreader.c',

map {"../../$_" }glob('src/backend/access/rmgrdesc/*desc.c') ],

};

my@contrib_excludes = ('pgcrypto','intagg','sepgsql');

$pgregress->AddDefine('HOST_TUPLE="i686-pc-win32vc"');

$pgregress->AddReference($libpgport,$libpgcommon);

my$pg_xlogdump = (grep {$_->{name}eq'pg_xlogdump'} @{$solution->{projects}->{contrib}} )[0];

delete$pg_xlogdump->{files}->{'contrib\\pg_xlogdump\\xlogreader.c'};

my$pg_xlogdump = (grep {$_->{name}eq'pg_xlogdump'}

@{$solution->{projects}->{contrib}} )[0];

$pg_xlogdump->AddDefine('FRONTEND');

foreachmy$xf (glob('src/backend/access/rmgrdesc/*desc.c') )

{

my$bf = basename$xf;

copy($xf,"contrib/pg_xlogdump/$bf");

$pg_xlogdump->AddFile("contrib\\pg_xlogdump\\$bf");

}

copy('src/backend/access/transam/xlogreader.c',

'contrib/pg_xlogdump/xlogreader.c');

$solution->Save();

return$solution->{vcver};

ifexist contrib\pg_xlogdump\xlogreader.cdel /q contrib\pg_xlogdump\xlogreader.c

for%%fin (contrib\pg_xlogdump\*desc.c)doifnot%%f==contrib\pg_xlogdump\rmgrdesc.cdel /q%%f