granicus.if.org Git - postgresql/blob - src/tools/msvc/Mkvcbuild.pm

   1 package Mkvcbuild;
   2
   3 #
   4 # Package that generates build files for msvc build
   5 #
   6 # $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.22 2007/10/13 22:55:38 tgl Exp $
   7 #
   8 use Carp;
   9 use Win32;
  10 use strict;
  11 use warnings;
  12 use Project;
  13 use Solution;
  14
  15 use Exporter;
  16 our (@ISA, @EXPORT_OK);
  17 @ISA = qw(Exporter);
  18 @EXPORT_OK = qw(Mkvcbuild);
  19
  20 my $solution;
  21 my $libpgport;
  22 my $postgres;
  23 my $libpq;
  24
  25 my $contrib_defines = {'refint' => 'REFINT_VERBOSE'};
  26 my @contrib_uselibpq = ('dblink', 'oid2name', 'pgbench', 'vacuumlo');
  27 my @contrib_uselibpgport = ('oid2name', 'pgbench', 'pg_standby', 'vacuumlo');
  28 my $contrib_extralibs = {'pgbench' => ['wsock32.lib']};
  29 my $contrib_extraincludes = {'tsearch2' => ['contrib/tsearch2']};
  30 my $contrib_extrasource = {
  31     'cube' => ['cubescan.l','cubeparse.y'],
  32     'seg' => ['segscan.l','segparse.y']
  33 };
  34 my @contrib_excludes = ('pgcrypto','uuid-ossp');
  35
  36 sub mkvcbuild
  37 {
  38     our $config = shift;
  39
  40     chdir('..\..\..') if (-d '..\msvc' && -d '..\..\..\src');
  41     die 'Must run from root or msvc directory' unless (-d 'src\tools\msvc' && -d 'src');
  42
  43     $solution = new Solution($config);
  44
  45     our @pgportfiles = qw(
  46       chklocale.c crypt.c fseeko.c getrusage.c inet_aton.c random.c srandom.c
  47       unsetenv.c getaddrinfo.c gettimeofday.c kill.c open.c rand.c
  48       snprintf.c strlcat.c strlcpy.c copydir.c dirmod.c exec.c noblock.c path.c pipe.c
  49       pgsleep.c pgstrcasecmp.c qsort.c qsort_arg.c sprompt.c thread.c
  50       getopt.c getopt_long.c dirent.c rint.c win32error.c);
  51
  52     $libpgport = $solution->AddProject('libpgport','lib','misc');
  53     $libpgport->AddDefine('FRONTEND');
  54     $libpgport->AddFiles('src\port',@pgportfiles);
  55
  56     $postgres = $solution->AddProject('postgres','exe','','src\backend');
  57     $postgres->AddIncludeDir('src\backend');
  58     $postgres->AddDir('src\backend\port\win32');
  59     $postgres->AddFile('src\backend\utils\fmgrtab.c');
  60     $postgres->ReplaceFile('src\backend\port\dynloader.c','src\backend\port\dynloader\win32.c');
  61     $postgres->ReplaceFile('src\backend\port\pg_sema.c','src\backend\port\win32_sema.c');
  62     $postgres->ReplaceFile('src\backend\port\pg_shmem.c','src\backend\port\win32_shmem.c');
  63     $postgres->AddFiles('src\port',@pgportfiles);
  64     $postgres->AddDir('src\timezone');
  65     $postgres->AddFiles('src\backend\parser','scan.l','gram.y');
  66     $postgres->AddFiles('src\backend\bootstrap','bootscanner.l','bootparse.y');
  67     $postgres->AddFiles('src\backend\utils\misc','guc-file.l');
  68     $postgres->AddDefine('BUILDING_DLL');
  69     $postgres->AddLibrary('wsock32.lib ws2_32.lib secur32.lib');
  70     $postgres->AddLibrary('wldap32.lib') if ($solution->{options}->{ldap});
  71     $postgres->FullExportDLL('postgres.lib');
  72
  73     my $snowball = $solution->AddProject('dict_snowball','dll','','src\backend\snowball');
  74     $snowball->RelocateFiles('src\backend\snowball\libstemmer', sub {
  75         return shift !~ /dict_snowball.c$/;
  76     });
  77     $snowball->AddIncludeDir('src\include\snowball');
  78     $snowball->AddReference($postgres);
  79
  80     my $plpgsql = $solution->AddProject('plpgsql','dll','PLs','src\pl\plpgsql\src');
  81     $plpgsql->AddFiles('src\pl\plpgsql\src','scan.l','gram.y');
  82     $plpgsql->AddReference($postgres);
  83
  84     if ($solution->{options}->{perl})
  85     {
  86         my $plperl = $solution->AddProject('plperl','dll','PLs','src\pl\plperl');
  87         $plperl->AddIncludeDir($solution->{options}->{perl} . '/lib/CORE');
  88         $plperl->AddDefine('PLPERL_HAVE_UID_GID');
  89         if (Solution::IsNewer('src\pl\plperl\SPI.c','src\pl\plperl\SPI.xs'))
  90         {
  91             print 'Building src\pl\plperl\SPI.c...' . "\n";
  92             system( $solution->{options}->{perl}
  93                   . '/bin/perl '
  94                   . $solution->{options}->{perl}
  95                   . '/lib/ExtUtils/xsubpp -typemap '
  96                   . $solution->{options}->{perl}
  97                   . '/lib/ExtUtils/typemap src\pl\plperl\SPI.xs >src\pl\plperl\SPI.c');
  98             if ((!(-f 'src\pl\plperl\SPI.c')) || -z 'src\pl\plperl\SPI.c')
  99             {
 100                 unlink('src\pl\plperl\SPI.c'); # if zero size
 101                 die 'Failed to create SPI.c' . "\n";
 102             }
 103         }
 104         $plperl->AddReference($postgres);
 105         $plperl->AddLibrary($solution->{options}->{perl} . '\lib\CORE\perl58.lib');
 106     }
 107
 108     if ($solution->{options}->{python})
 109     {
 110         my $plpython = $solution->AddProject('plpython','dll','PLs','src\pl\plpython');
 111         $plpython->AddIncludeDir($solution->{options}->{python} . '\include');
 112         $solution->{options}->{python} =~ /\\Python(\d{2})/i
 113           || croak "Could not determine python version from path";
 114         $plpython->AddLibrary($solution->{options}->{python} . "\\Libs\\python$1.lib");
 115         $plpython->AddReference($postgres);
 116     }
 117
 118     if ($solution->{options}->{tcl})
 119     {
 120         my $pltcl = $solution->AddProject('pltcl','dll','PLs','src\pl\tcl');
 121         $pltcl->AddIncludeDir($solution->{options}->{tcl} . '\include');
 122         $pltcl->AddReference($postgres);
 123         $pltcl->AddLibrary($solution->{options}->{tcl} . '\lib\tcl84.lib');
 124     }
 125
 126     $libpq = $solution->AddProject('libpq','dll','interfaces','src\interfaces\libpq');
 127     $libpq->AddDefine('FRONTEND');
 128     $libpq->AddIncludeDir('src\port');
 129     $libpq->AddLibrary('wsock32.lib');
 130     $libpq->AddLibrary('secur32.lib');
 131     $libpq->AddLibrary('wldap32.lib') if ($solution->{options}->{ldap});
 132     $libpq->UseDef('src\interfaces\libpq\libpqdll.def');
 133     $libpq->ReplaceFile('src\interfaces\libpq\libpqrc.c','src\interfaces\libpq\libpq.rc');
 134     $libpq->AddReference($libpgport);
 135
 136     my $pgtypes =
 137       $solution->AddProject('libpgtypes','dll','interfaces','src\interfaces\ecpg\pgtypeslib');
 138     $pgtypes->AddDefine('FRONTEND');
 139     $pgtypes->AddReference($libpgport);
 140     $pgtypes->UseDef('src\interfaces\ecpg\pgtypeslib\pgtypeslib.def');
 141     $pgtypes->AddIncludeDir('src\interfaces\ecpg\include');
 142
 143     my $libecpg =$solution->AddProject('libecpg','dll','interfaces','src\interfaces\ecpg\ecpglib');
 144     $libecpg->AddDefine('FRONTEND');
 145     $libecpg->AddIncludeDir('src\interfaces\ecpg\include');
 146     $libecpg->AddIncludeDir('src\interfaces\libpq');
 147     $libecpg->AddIncludeDir('src\port');
 148     $libecpg->UseDef('src\interfaces\ecpg\ecpglib\ecpglib.def');
 149     $libecpg->AddLibrary('wsock32.lib');
 150     $libecpg->AddReference($libpq,$pgtypes,$libpgport);
 151
 152     my $libecpgcompat =
 153       $solution->AddProject('libecpg_compat','dll','interfaces','src\interfaces\ecpg\compatlib');
 154     $libecpgcompat->AddIncludeDir('src\interfaces\ecpg\include');
 155     $libecpgcompat->AddIncludeDir('src\interfaces\libpq');
 156     $libecpgcompat->UseDef('src\interfaces\ecpg\compatlib\compatlib.def');
 157     $libecpgcompat->AddReference($pgtypes,$libecpg,$libpgport);
 158
 159     my $ecpg = $solution->AddProject('ecpg','exe','interfaces','src\interfaces\ecpg\preproc');
 160     $ecpg->AddIncludeDir('src\interfaces\ecpg\include');
 161     $ecpg->AddIncludeDir('src\interfaces\libpq');
 162     $ecpg->AddPrefixInclude('src\interfaces\ecpg\preproc');
 163     $ecpg->AddFiles('src\interfaces\ecpg\preproc','pgc.l','preproc.y');
 164     $ecpg->AddDefine('MAJOR_VERSION=4');
 165     $ecpg->AddDefine('MINOR_VERSION=2');
 166     $ecpg->AddDefine('PATCHLEVEL=1');
 167     $ecpg->AddReference($libpgport);
 168
 169     my $pgregress_ecpg = $solution->AddProject('pg_regress_ecpg','exe','misc');
 170     $pgregress_ecpg->AddFile('src\interfaces\ecpg\test\pg_regress_ecpg.c');
 171     $pgregress_ecpg->AddFile('src\test\regress\pg_regress.c');
 172     $pgregress_ecpg->AddIncludeDir('src\port');
 173     $pgregress_ecpg->AddIncludeDir('src\test\regress');
 174     $pgregress_ecpg->AddDefine('HOST_TUPLE="i686-pc-win32vc"');
 175     $pgregress_ecpg->AddDefine('FRONTEND');
 176     $pgregress_ecpg->AddReference($libpgport);
 177
 178     # src/bin
 179     my $initdb = AddSimpleFrontend('initdb');
 180     $initdb->AddIncludeDir('src\interfaces\libpq');
 181     $initdb->AddLibrary('wsock32.lib ws2_32.lib');
 182
 183     my $pgconfig = AddSimpleFrontend('pg_config');
 184
 185     my $pgcontrol = AddSimpleFrontend('pg_controldata');
 186
 187     my $pgctl = AddSimpleFrontend('pg_ctl', 1);
 188
 189     my $pgreset = AddSimpleFrontend('pg_resetxlog');
 190
 191     my $pgevent = $solution->AddProject('pgevent','dll','bin');
 192     $pgevent->AddFiles('src\bin\pgevent','pgevent.c','pgmsgevent.rc');
 193     $pgevent->AddResourceFile('src\bin\pgevent','Eventlog message formatter');
 194     $pgevent->RemoveFile('src\bin\pgevent\win32ver.rc');
 195     $pgevent->UseDef('src\bin\pgevent\pgevent.def');
 196     $pgevent->DisableLinkerWarnings('4104');
 197
 198     my $psql = AddSimpleFrontend('psql', 1);
 199     $psql->AddIncludeDir('src\bin\pg_dump');
 200     $psql->AddIncludeDir('src\backend');
 201     $psql->AddFile('src\bin\psql\psqlscan.l');
 202
 203     my $pgdump = AddSimpleFrontend('pg_dump', 1);
 204     $pgdump->AddIncludeDir('src\backend');
 205     $pgdump->AddFile('src\bin\pg_dump\pg_dump.c');
 206     $pgdump->AddFile('src\bin\pg_dump\common.c');
 207     $pgdump->AddFile('src\bin\pg_dump\pg_dump_sort.c');
 208
 209     my $pgdumpall = AddSimpleFrontend('pg_dump', 1);
 210     $pgdumpall->{name} = 'pg_dumpall';
 211     $pgdumpall->AddIncludeDir('src\backend');
 212     $pgdumpall->AddFile('src\bin\pg_dump\pg_dumpall.c');
 213
 214     my $pgrestore = AddSimpleFrontend('pg_dump', 1);
 215     $pgrestore->{name} = 'pg_restore';
 216     $pgrestore->AddIncludeDir('src\backend');
 217     $pgrestore->AddFile('src\bin\pg_dump\pg_restore.c');
 218
 219     my $zic = $solution->AddProject('zic','exe','utils');
 220     $zic->AddFiles('src\timezone','zic.c','ialloc.c','scheck.c','localtime.c');
 221     $zic->AddReference($libpgport);
 222
 223     if ($solution->{options}->{xml})
 224     {
 225         $contrib_extraincludes->{'pgxml'} = [
 226             $solution->{options}->{xml} . '\include',
 227             $solution->{options}->{xslt} . '\include',
 228             $solution->{options}->{iconv} . '\include'
 229         ];
 230
 231         $contrib_extralibs->{'pgxml'} = [
 232             $solution->{options}->{xml} . '\lib\libxml2.lib',
 233             $solution->{options}->{xslt} . '\lib\libxslt.lib'
 234         ];
 235     }
 236     else
 237     {
 238         push @contrib_excludes,'xml2';
 239     }
 240
 241     if (!$solution->{options}->{openssl})
 242     {
 243         push @contrib_excludes,'sslinfo';
 244     }
 245
 246     # Pgcrypto makefile too complex to parse....
 247     my $pgcrypto = $solution->AddProject('pgcrypto','dll','crypto');
 248     $pgcrypto->AddFiles(
 249         'contrib\pgcrypto','pgcrypto.c','px.c','px-hmac.c',
 250         'px-crypt.c','crypt-gensalt.c','crypt-blowfish.c','crypt-des.c',
 251         'crypt-md5.c','mbuf.c','pgp.c','pgp-armor.c',
 252         'pgp-cfb.c','pgp-compress.c','pgp-decrypt.c','pgp-encrypt.c',
 253         'pgp-info.c','pgp-mpi.c','pgp-pubdec.c','pgp-pubenc.c',
 254         'pgp-pubkey.c','pgp-s2k.c','pgp-pgsql.c'
 255     );
 256     if ($solution->{options}->{openssl})
 257     {
 258         $pgcrypto->AddFiles('contrib\pgcrypto', 'openssl.c','pgp-mpi-openssl.c');
 259     }
 260     else
 261     {
 262         $pgcrypto->AddFiles(
 263             'contrib\pgcrypto', 'md5.c','sha1.c','sha2.c',
 264             'internal.c','internal-sha2.c','blf.c','rijndael.c',
 265             'fortuna.c','random.c','pgp-mpi-internal.c','imath.c'
 266         );
 267     }
 268     $pgcrypto->AddReference($postgres);
 269     $pgcrypto->AddLibrary('wsock32.lib');
 270     my $mf = Project::read_file('contrib/pgcrypto/Makefile');
 271     GenerateContribSqlFiles('pgcrypto', $mf);
 272
 273     my $D;
 274     opendir($D, 'contrib') || croak "Could not opendir on contrib!\n";
 275     while (my $d = readdir($D))
 276     {
 277         next if ($d =~ /^\./);
 278         next unless (-f "contrib/$d/Makefile");
 279         next if (grep {/^$d$/} @contrib_excludes);
 280         AddContrib($d);
 281     }
 282     closedir($D);
 283
 284     $mf = Project::read_file('src\backend\utils\mb\conversion_procs\Makefile');
 285     $mf =~ s{\\s*[\r\n]+}{}mg;
 286     $mf =~ m{DIRS\s*=\s*(.*)$}m || die 'Could not match in conversion makefile' . "\n";
 287     foreach my $sub (split /\s+/,$1)
 288     {
 289         my $mf = Project::read_file('src\backend\utils\mb\conversion_procs\\' . $sub . '\Makefile');
 290         my $p = $solution->AddProject($sub, 'dll', 'conversion procs');
 291         $p->AddFile('src\backend\utils\mb\conversion_procs\\' . $sub . '\\' . $sub . '.c');
 292         if ($mf =~ m{^SRCS\s*\+=\s*(.*)$}m)
 293         {
 294             $p->AddFile('src\backend\utils\mb\conversion_procs\\' . $sub . '\\' . $1);
 295         }
 296         $p->AddReference($postgres);
 297     }
 298
 299     $mf = Project::read_file('src\bin\scripts\Makefile');
 300     $mf =~ s{\\s*[\r\n]+}{}mg;
 301     $mf =~ m{PROGRAMS\s*=\s*(.*)$}m || die 'Could not match in bin\scripts\Makefile' . "\n";
 302     foreach my $prg (split /\s+/,$1)
 303     {
 304         my $proj = $solution->AddProject($prg,'exe','bin');
 305         $mf =~ m{$prg\s*:\s*(.*)$}m || die 'Could not find script define for $prg' . "\n";
 306         my @files = split /\s+/,$1;
 307         foreach my $f (@files)
 308         {
 309             if ($f =~ /\/keywords\.o$/)
 310             {
 311                 $proj->AddFile('src\backend\parser\keywords.c');
 312                 $proj->AddIncludeDir('src\backend');
 313             }
 314             else
 315             {
 316                 $f =~ s/\.o$/\.c/;
 317                 if ($f eq 'dumputils.c')
 318                 {
 319                     $proj->AddFile('src\bin\pg_dump\dumputils.c');
 320                 }
 321                 elsif ($f =~ /print\.c$/)
 322                 { # Also catches mbprint.c
 323                     $proj->AddFile('src\bin\psql\\' . $f);
 324                 }
 325                 else
 326                 {
 327                     $proj->AddFile('src\bin\scripts\\' . $f);
 328                 }
 329             }
 330         }
 331         $proj->AddIncludeDir('src\interfaces\libpq');
 332         $proj->AddIncludeDir('src\bin\pg_dump');
 333         $proj->AddIncludeDir('src\bin\psql');
 334         $proj->AddReference($libpq,$libpgport);
 335         $proj->AddResourceFile('src\bin\scripts','PostgreSQL Utility');
 336     }
 337
 338     # Regression DLL and EXE
 339     my $regress = $solution->AddProject('regress','dll','misc');
 340     $regress->AddFile('src\test\regress\regress.c');
 341     $regress->AddReference($postgres);
 342
 343     my $pgregress = $solution->AddProject('pg_regress','exe','misc');
 344     $pgregress->AddFile('src\test\regress\pg_regress.c');
 345     $pgregress->AddFile('src\test\regress\pg_regress_main.c');
 346     $pgregress->AddIncludeDir('src\port');
 347     $pgregress->AddDefine('HOST_TUPLE="i686-pc-win32vc"');
 348     $pgregress->AddReference($libpgport);
 349
 350     $solution->Save();
 351 }
 352
 353 #####################
 354 # Utility functions #
 355 #####################
 356
 357 # Add a simple frontend project (exe)
 358 sub AddSimpleFrontend
 359 {
 360     my $n = shift;
 361     my $uselibpq= shift;
 362
 363     my $p = $solution->AddProject($n,'exe','bin');
 364     $p->AddDir('src\bin\\' . $n);
 365     $p->AddReference($libpgport);
 366     if ($uselibpq)
 367     {
 368         $p->AddIncludeDir('src\interfaces\libpq');
 369         $p->AddReference($libpq);
 370     }
 371     return $p;
 372 }
 373
 374 # Add a simple contrib project
 375 sub AddContrib
 376 {
 377     my $n = shift;
 378     my $mf = Project::read_file('contrib\\' . $n . '\Makefile');
 379
 380     if ($mf =~ /^MODULE_big\s*=\s*(.*)$/mg)
 381     {
 382         my $dn = $1;
 383         $mf =~ s{\\\s*[\r\n]+}{}mg;
 384         my $proj = $solution->AddProject($dn, 'dll', 'contrib');
 385         $mf =~ /^OBJS\s*=\s*(.*)$/gm || croak "Could not find objects in MODULE_big for $n\n";
 386         foreach my $o (split /\s+/, $1)
 387         {
 388             $o =~ s/\.o$/.c/;
 389             $proj->AddFile('contrib\\' . $n . '\\' . $o);
 390         }
 391         $proj->AddReference($postgres);
 392         if ($mf =~ /^SUBDIRS\s*:?=\s*(.*)$/mg)
 393         {
 394             foreach my $d (split /\s+/, $1)
 395             {
 396                 my $mf2 = Project::read_file('contrib\\' . $n . '\\' . $d . '\Makefile');
 397                 $mf2 =~ s{\\\s*[\r\n]+}{}mg;
 398                 $mf2 =~ /^SUBOBJS\s*=\s*(.*)$/gm
 399                   || croak "Could not find objects in MODULE_big for $n, subdir $d\n";
 400                 foreach my $o (split /\s+/, $1)
 401                 {
 402                     $o =~ s/\.o$/.c/;
 403                     $proj->AddFile('contrib\\' . $n . '\\' . $d . '\\' . $o);
 404                 }
 405             }
 406         }
 407         AdjustContribProj($proj);
 408     }
 409     elsif ($mf =~ /^MODULES\s*=\s*(.*)$/mg)
 410     {
 411         foreach my $mod (split /\s+/, $1)
 412         {
 413             my $proj = $solution->AddProject($mod, 'dll', 'contrib');
 414             $proj->AddFile('contrib\\' . $n . '\\' . $mod . '.c');
 415             $proj->AddReference($postgres);
 416             AdjustContribProj($proj);
 417         }
 418     }
 419     elsif ($mf =~ /^PROGRAM\s*=\s*(.*)$/mg)
 420     {
 421         my $proj = $solution->AddProject($1, 'exe', 'contrib');
 422         $mf =~ /^OBJS\s*=\s*(.*)$/gm || croak "Could not find objects in MODULE_big for $n\n";
 423         foreach my $o (split /\s+/, $1)
 424         {
 425             $o =~ s/\.o$/.c/;
 426             $proj->AddFile('contrib\\' . $n . '\\' . $o);
 427         }
 428         AdjustContribProj($proj);
 429     }
 430     else
 431     {
 432         croak "Could not determine contrib module type for $n\n";
 433     }
 434
 435     # Are there any output data files to build?
 436     GenerateContribSqlFiles($n, $mf);
 437 }
 438
 439 sub GenerateContribSqlFiles
 440 {
 441     my $n = shift;
 442     my $mf = shift;
 443     if ($mf =~ /^DATA_built\s*=\s*(.*)$/mg)
 444     {
 445         my $l = $1;
 446
 447         # Strip out $(addsuffix) rules
 448         if (index($l, '$(addsuffix ') >= 0)
 449         {
 450             my $pcount = 0;
 451             my $i;
 452             for ($i = index($l, '$(addsuffix ') + 12; $i < length($l); $i++)
 453             {
 454                 $pcount++ if (substr($l, $i, 1) eq '(');
 455                 $pcount-- if (substr($l, $i, 1) eq ')');
 456                 last if ($pcount < 0);
 457             }
 458             $l = substr($l, 0, index($l, '$(addsuffix ')) . substr($l, $i+1);
 459         }
 460
 461         # Special case for contrib/spi
 462         $l = "autoinc.sql insert_username.sql moddatetime.sql refint.sql timetravel.sql"
 463           if ($n eq 'spi');
 464
 465         foreach my $d (split /\s+/, $l)
 466         {
 467             my $in = "$d.in";
 468             my $out = "$d";
 469
 470             # tsearch2 uses inconsistent naming
 471             $in = "tsearch.sql.in" if ($in eq "tsearch2.sql.in");
 472             $in = "untsearch.sql.in" if ($in eq "uninstall_tsearch2.sql.in");
 473             if (Solution::IsNewer("contrib/$n/$out", "contrib/$n/$in"))
 474             {
 475                 print "Building $out from $in (contrib/$n)...\n";
 476                 my $cont = Project::read_file("contrib/$n/$in");
 477                 my $dn = $out;
 478                 $dn =~ s/\.sql$//;
 479                 if ($mf =~ /^MODULE_big\s*=\s*(.*)$/m) { $dn = $1 }
 480                 $cont =~ s/MODULE_PATHNAME/\$libdir\/$dn/g;
 481                 my $o;
 482                 open($o,">contrib/$n/$out") || croak "Could not write to contrib/$n/$d";
 483                 print $o $cont;
 484                 close($o);
 485             }
 486         }
 487     }
 488 }
 489
 490 sub AdjustContribProj
 491 {
 492     my $proj = shift;
 493     my $n = $proj->{name};
 494
 495     if ($contrib_defines->{$n})
 496     {
 497         foreach my $d ($contrib_defines->{$n})
 498         {
 499             $proj->AddDefine($d);
 500         }
 501     }
 502     if (grep {/^$n$/} @contrib_uselibpq)
 503     {
 504         $proj->AddIncludeDir('src\interfaces\libpq');
 505         $proj->AddReference($libpq);
 506     }
 507     if (grep {/^$n$/} @contrib_uselibpgport)
 508     {
 509         $proj->AddReference($libpgport);
 510     }
 511     if ($contrib_extralibs->{$n})
 512     {
 513         foreach my $l (@{$contrib_extralibs->{$n}})
 514         {
 515             $proj->AddLibrary($l);
 516         }
 517     }
 518     if ($contrib_extraincludes->{$n})
 519     {
 520         foreach my $i (@{$contrib_extraincludes->{$n}})
 521         {
 522             $proj->AddIncludeDir($i);
 523         }
 524     }
 525     if ($contrib_extrasource->{$n})
 526     {
 527         $proj->AddFiles('contrib\\' . $n, @{$contrib_extrasource->{$n}});
 528     }
 529 }
 530
 531 1;