use Solution;

use Cwd;

use File::Copy;

use File::Basename;

use Config;

use VSObjectFactory;

use List::Utilqw(first);

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

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

$pg_xlogdump->AddDefine('FRONTEND');

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

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");

$pg_xlogdump->AddFile($xf)

}

copy(

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

'contrib/pg_xlogdump/xlogreader.c');

$pg_xlogdump->AddFile('src\backend\access\transam\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