tools/winapi/msvcmaker

   1 #!/usr/bin/perl
   2
   3 # Copyright 2002 Patrik Stridvall
   4
   5 use strict;
   6 use warnings 'all';
   7
   8 BEGIN {
   9     $0 =~ m%^(.*?/?tools)/winapi/msvcmaker$%;
  10     require "$1/winapi/setup.pm";
  11 }
  12
  13 use setup qw($current_dir $wine_dir);
  14 use lib $setup::winapi_dir;
  15 use config qw(get_spec_files get_makefile_in_files);
  16 use output qw($output);
  17 use util qw(replace_file);
  18
  19 use msvcmaker_options qw($options);
  20
  21 if($options->progress) {
  22     $output->enable_progress;
  23 } else {
  24     $output->disable_progress;
  25 }
  26
  27 ########################################################################
  28 # main
  29
  30 my @spec_files = get_spec_files("winelib");
  31 my @makefile_in_files = get_makefile_in_files("winelib");
  32
  33 my $wine = 1;
  34
  35 my $output_prefix_dir = "Output";
  36 my $no_release = 1;
  37
  38 my %modules;
  39
  40 # These DLLs don't have a hope of compiling properly
  41 my @unix_dependent_dlls = qw(iphlpapi mountmgr.sys ntdll mswsock opengl32
  42                              secur32 winex11 wnaspi32 ws2_32);
  43
  44 sub is_unix_dependent_dll($) {
  45     my $dll = shift;
  46
  47     foreach my $unix_only_dll (@unix_dependent_dlls) {
  48         if($dll eq $unix_only_dll) {
  49             return 1;
  50         }
  51     }
  52
  53     return 0;
  54 }
  55
  56 sub read_spec_file($) {
  57     my $spec_file = shift;
  58
  59     my $module = $spec_file;
  60     $module =~ s%^.*?([^/]+)\.spec$%$1%;
  61     $module .= ".dll" if $module !~ /\./;
  62
  63     my $type = "win32";
  64
  65     open(IN, "< $wine_dir/$spec_file") || die "Error: Can't open $wine_dir/$spec_file: $!\n";
  66
  67     my $header = 1;
  68     my $lookahead = 0;
  69     while($lookahead || defined($_ = <IN>)) {
  70         $lookahead = 0;
  71
  72         s/^\s*?(.*?)\s*$/$1/; # remove whitespace at beginning and end of line
  73         s/^(.*?)\s*#.*$/$1/;  # remove comments
  74         /^$/ && next;         # skip empty lines
  75
  76         if($header)  {
  77             if(/^(?:\d+|@)/) {
  78                 $header = 0;
  79                 $lookahead = 1;
  80             }
  81             next;
  82         }
  83
  84         if(/^(\d+|@)\s+pascal(?:16)?/) {
  85             $type = "win16";
  86             last;
  87         }
  88     }
  89     close(IN);
  90
  91     # FIXME: Kludge
  92     if($module =~ /^(?:(?:imm|ole2conv|ole2prox|ole2thk|rasapi16|msacm|windebug)\.dll|comm\.drv)$/) {
  93         $type = "win16";
  94     }
  95
  96     if($type eq "win32") {
  97         $modules{$module}{module} = $module;
  98         $modules{$module}{type} = $type;
  99         $modules{$module}{spec_file} = $spec_file;
 100     }
 101 }
 102
 103 if ($options->wine || $options->winetest) {
 104     foreach my $spec_file (@spec_files) {
 105         my $dll = $spec_file;
 106         $dll =~ s%dlls/([^/]+)/[^/]+\.spec%$1%;
 107         if(!is_unix_dependent_dll($dll)) {
 108             read_spec_file($spec_file);
 109         }
 110     }
 111 }
 112
 113 my @gdi32_dirs = qw(dlls/gdi32/enhmfdrv dlls/gdi32/mfdrv);
 114
 115 push @makefile_in_files, "libs/wine/Makefile.in";
 116 push @makefile_in_files, "tools/winebuild/Makefile.in";
 117
 118 sub filter_files($$) {
 119     my $files = shift;
 120     my $filter = shift;
 121
 122     my $filtered_files = [];
 123     my $rest_of_files = [];
 124     foreach my $file (@$files) {
 125         if($file =~ /$filter/) {
 126             $file =~ s%.*?([^/]+)$%./$1%; # FIXME: Kludge
 127             push @$filtered_files, $file;
 128         } else {
 129             push @$rest_of_files, $file;
 130         }
 131     }
 132     return ($rest_of_files, $filtered_files);
 133 }
 134
 135 my %wine_test_dsp_files;
 136
 137 MAKEFILE_IN: foreach my $makefile_in_file (@makefile_in_files) {
 138     open(IN, "< $wine_dir/$makefile_in_file") || die "Error: Can't open $wine_dir/$makefile_in_file: $!\n";
 139
 140     my $topobjdir;
 141     my $module;
 142     my $testdll;
 143     my @imports;
 144     my $type;
 145     my $dll;
 146
 147     my %vars;
 148
 149     my $again = 0;
 150     my $lookahead = 0;
 151
 152     $dll = $makefile_in_file;
 153     $dll =~ s%dlls/([^/]+)/Makefile\.in%$1%;
 154
 155     if($makefile_in_file eq "loader/Makefile.in" ||
 156        is_unix_dependent_dll($dll)) {
 157         next;
 158     }
 159
 160     while($again || defined(my $line = <IN>)) {
 161         if(!$again) {
 162             chomp $line;
 163             if($lookahead) {
 164                 $lookahead = 0;
 165                 $_ .= " " . $line;
 166             } else {
 167                 $_ = $line;
 168             }
 169         } else {
 170             $again = 0;
 171         }
 172
 173         s/^\s*?(.*?)\s*$/$1/; # remove whitespace at beginning and end of line
 174         s/^(.*?)\s*#.*$/$1/;  # remove comments
 175         /^$/ && next;         # skip empty lines
 176
 177         if(s/\\$/ /s) {
 178             $lookahead = 1;
 179             next;
 180         }
 181
 182         if(/^MODULE\s*=\s*([\w\.-]+)$/) {
 183             $module = $1;
 184         } elsif (/^\@MAKE_IMPLIB_RULES\@/) {
 185             $type = "lib";
 186         } elsif(/^TOPOBJDIR\s*=\s*(\S+)\s*$/) {
 187             $topobjdir = $1;
 188         } elsif (/^TESTDLL\s*=\s*(\S+)\s*$/) {
 189             $testdll = $1;
 190         } elsif (/^IMPORTS\s*=\s*/) {
 191             push @imports, grep !/^ntdll$/, split /\s+/s, $';
 192         } elsif (/^DELAYIMPORTS\s*=\s*/) {
 193             push @imports, $;
 194         } elsif (/^EXTRALIBS\s*=\s*/) {
 195             push @imports, map { /^-l(dxerr8|dxerr9|dxguid|strmiids|uuid)$/ ? $1 : () } split /\s+/s, $';
 196         } elsif (/^CTESTS\s*=\s*/ || ( ($makefile_in_file =~ /\/tests\/Makefile\.in$/) && /^C_SRCS\s*=\s*/ ) ) {
 197             my @files = split /\s+/s, $';
 198
 199             my $dir = $makefile_in_file;
 200             $dir =~ s/\/Makefile\.in$//;
 201
 202             my $dsp_file = $testdll;
 203             $dsp_file =~ s/\.(dll|drv|ocx)$/_test.dsp/;
 204             $dsp_file = "$dir/$dsp_file";
 205
 206             $wine_test_dsp_files{$dsp_file}{files} = [@files, "testlist.c"];
 207             $wine_test_dsp_files{$dsp_file}{imports} = [@imports];
 208         } elsif(/^(\w+)\s*=\s*/) {
 209             my $var = $1;
 210             my @files = split /\s+/s, $';
 211
 212             @files = map {
 213                 if(/^\$\((\w+):\%=(.*?)\%(.*?)\)$/) {
 214                     my @list = @{$vars{$1}};
 215                     my $prefix = $2;
 216                     my $suffix = $3;
 217                     foreach my $item (@list) {
 218                         $item = "$prefix$item$suffix";
 219                     }
 220                     @list;
 221                 } elsif(/^\$\(TOPOBJDIR\)(.*?)$/) {
 222                     "$topobjdir$1";
 223                 } elsif(/^\$/) {
 224                     print STDERR "unknown variable '$_'\n" if 0;
 225                     ();
 226                 } else {
 227                     $_;
 228                 }
 229             } @files;
 230
 231             $vars{$var} = \@files;
 232         }
 233     }
 234
 235     close(IN);
 236
 237     if (!$module) {
 238         if ($makefile_in_file eq "libs/wine/Makefile.in") {
 239             $module = "wine.lib";
 240         } elsif ($makefile_in_file eq "tools/winebuild/Makefile.in") {
 241             $module = "winebuild.exe";
 242         }
 243     }
 244
 245     next if !$module;
 246
 247     my $c_srcs = [];
 248     my $source_files = [];
 249     if(exists($vars{C_SRCS})) {
 250         $c_srcs = [sort(@{$vars{C_SRCS}})];
 251         $source_files = [sort(@{$vars{C_SRCS}})];
 252     }
 253
 254     my $header_files = [];
 255     if(exists($vars{H_SRCS})) {
 256         $header_files = [sort(@{$vars{H_SRCS}})];
 257     }
 258
 259     my $resource_files = [];
 260     if(exists($vars{RC_SRCS})) {
 261         $resource_files = [sort(@{$vars{RC_SRCS}})];
 262     }
 263
 264     my $idl_h_files = [];
 265     if(exists($vars{IDL_H_SRCS})) {
 266         $idl_h_files = [sort(@{$vars{IDL_H_SRCS}})];
 267     }
 268
 269     my $idl_c_files = [];
 270     if(exists($vars{IDL_C_SRCS})) {
 271         $idl_c_files = [sort(@{$vars{IDL_C_SRCS}})];
 272     }
 273
 274     my $idl_s_files = [];
 275     if(exists($vars{IDL_S_SRCS})) {
 276         $idl_s_files = [sort(@{$vars{IDL_S_SRCS}})];
 277     }
 278
 279     my $idl_p_files = [];
 280     if(exists($vars{IDL_P_SRCS})) {
 281         $idl_p_files = [sort(@{$vars{IDL_P_SRCS}})];
 282     }
 283
 284     my $idl_tlb_files = [];
 285     if(exists($vars{IDL_TLB_SRCS})) {
 286         $idl_tlb_files = [sort(@{$vars{IDL_TLB_SRCS}})];
 287     }
 288
 289     my $extradefs;
 290     if(exists($vars{EXTRADEFS})) {
 291         $extradefs = $vars{EXTRADEFS};
 292     }
 293
 294     my $project = $module;
 295     $project =~ s/\.(?:dll|exe|lib)$//;
 296     $project =~ y/./_/;
 297
 298     if($module =~ /\.exe$/) {
 299         $type = "exe";
 300     } elsif($module =~ /\.lib$/) {
 301         $type = "lib";
 302     } elsif(!$type) {
 303         $type = "dll";
 304     }
 305
 306     my $dsp_file = $makefile_in_file;
 307     $dsp_file =~ s/Makefile.in$/$project.dsp/;
 308
 309     if($module eq "gdi32.dll") {
 310         foreach my $dir (@gdi32_dirs) {
 311             my $dir2 = $dir;
 312             $dir2 =~ s%^.*?/([^/]+)$%$1%;
 313
 314             my $module = "gdi32_$dir2.lib";
 315             $module =~ s%/%_%g;
 316
 317             my $project = "gdi32_$dir2";
 318             $project =~ s%/%_%g;
 319
 320             my $type = "lib";
 321             my $dsp_file = "$dir/$project.dsp";
 322
 323             ($source_files, my $local_source_files) = filter_files($source_files, "$dir2/");
 324             ($header_files, my $local_header_files) = filter_files($header_files, "$dir2/");
 325             ($resource_files, my $local_resource_files) = filter_files($resource_files, "$dir2/");
 326             ($idl_h_files, my $local_idl_h_files) = filter_files($idl_h_files, "$dir2/");
 327
 328             $modules{$module}{wine} = 1;
 329             $modules{$module}{winetest} = 0;
 330             $modules{$module}{project} = $project;
 331             $modules{$module}{type} = $type;
 332             $modules{$module}{dsp_file} = $dsp_file;
 333             $modules{$module}{c_srcs} = $c_srcs;
 334             $modules{$module}{source_files} = $local_source_files;
 335             $modules{$module}{header_files} = $local_header_files;
 336             $modules{$module}{resource_files} = $local_resource_files;
 337             $modules{$module}{imports} = [];
 338             $modules{$module}{idl_h_files} = $local_idl_h_files;
 339             $modules{$module}{idl_c_files} = [];
 340             $modules{$module}{idl_s_files} = [];
 341             $modules{$module}{idl_p_files} = [];
 342             $modules{$module}{idl_tlb_files} = [];
 343             $modules{$module}{extradefs} = $extradefs if $extradefs;
 344         }
 345     }
 346
 347     $modules{$module}{wine} = 1;
 348     $modules{$module}{winetest} = 0;
 349     $modules{$module}{project} = $project;
 350     $modules{$module}{type} = $type;
 351     $modules{$module}{dsp_file} = $dsp_file;
 352     $modules{$module}{c_srcs} = $c_srcs;
 353     $modules{$module}{source_files} = $source_files;
 354     $modules{$module}{header_files} = $header_files;
 355     $modules{$module}{resource_files} = $resource_files;
 356     $modules{$module}{imports} = [@imports];
 357     $modules{$module}{idl_h_files} = $idl_h_files;
 358     $modules{$module}{idl_c_files} = $idl_c_files;
 359     $modules{$module}{idl_s_files} = $idl_s_files;
 360     $modules{$module}{idl_p_files} = $idl_p_files;
 361     $modules{$module}{idl_tlb_files} = $idl_tlb_files;
 362     $modules{$module}{extradefs} = $extradefs if $extradefs;
 363 }
 364
 365 $wine_test_dsp_files{"wineruntests.dsp"}{files} = ["runtests.c"];
 366 $wine_test_dsp_files{"wineruntests.dsp"}{imports} = [];
 367
 368 $wine_test_dsp_files{"winetest.dsp"}{files} = [
 369   'include/wine/exception.h',
 370   'include/wine/test.h',
 371   'include/wine/unicode.h',
 372   'winetest.c'
 373 ];
 374 $wine_test_dsp_files{"winetest.dsp"}{imports} = [];
 375
 376 my %runtests = ();
 377
 378 foreach my $dsp_file (keys(%wine_test_dsp_files)) {
 379     my $project = $dsp_file;
 380     $project =~ s%^(?:.*?/)?([^/]+)\.dsp$%$1%;
 381
 382     my @files = @{$wine_test_dsp_files{$dsp_file}{files}};
 383     my @imports = @{$wine_test_dsp_files{$dsp_file}{imports}};
 384
 385     my $type;
 386     my $c_srcs = [];
 387     my $source_files = [];
 388     my $header_files = [];
 389     my $resource_files = [];
 390     my $idl_h_files = [];
 391
 392     my @tests = ();
 393
 394     if ($project eq "winetest") {
 395         $type = "lib";
 396         $c_srcs = [@files];
 397         $source_files = [@files];
 398         $header_files = [];
 399         $resource_files = [];
 400     } elsif ($project eq "wineruntests") {
 401         $type = "exe";
 402         $c_srcs = [@files];
 403         $source_files = [@files];
 404         $header_files = [];
 405         $resource_files = [];
 406     } else {
 407         $type = "exe";
 408         $c_srcs = [@files];
 409         $source_files = [@files];
 410         $header_files = [];
 411         $resource_files = [];
 412
 413         @tests = map {
 414             if (/^testlist\.c$/) {
 415                 ();
 416             } else {
 417                 s/\.c$//;
 418                 $_;
 419             }
 420         } @files;
 421
 422         $runtests{$dsp_file} = [@tests];
 423     }
 424     my $module = "$project.$type";
 425
 426     $modules{$module}{wine} = 0;
 427     $modules{$module}{winetest} = 1;
 428
 429     $modules{$module}{project} = $project;
 430     $modules{$module}{type} = $type;
 431     $modules{$module}{dsp_file} = $dsp_file;
 432     $modules{$module}{c_srcs} = $c_srcs;
 433     $modules{$module}{source_files} = $source_files;
 434     $modules{$module}{header_files} = $header_files;
 435     $modules{$module}{resource_files} = $resource_files;
 436     $modules{$module}{imports} = [@imports];
 437     $modules{$module}{idl_h_files} = [];
 438     $modules{$module}{idl_c_files} = [];
 439     $modules{$module}{idl_s_files} = [];
 440     $modules{$module}{idl_p_files} = [];
 441     $modules{$module}{idl_tlb_files} = [];
 442
 443     $modules{$module}{tests} = [@tests];
 444 }
 445
 446 foreach my $module (sort(keys(%modules))) {
 447     if($module =~ /^(?:ttydrv.dll|x11drv.dll)$/) {
 448         delete $modules{$module};
 449     }
 450 }
 451
 452 my @modules = ();
 453 foreach my $module (sort(keys(%modules))) {
 454     if (($options->wine && $modules{$module}{wine}) ||
 455         ($options->winetest && $modules{$module}{winetest}))
 456     {
 457         push @modules, $module;
 458     }
 459 }
 460
 461 my $progress_output;
 462 my $progress_current = 0;
 463 my $progress_max = scalar(@modules);
 464
 465 foreach my $module (@modules) {
 466     my $dsp_file = $modules{$module}{dsp_file};
 467     replace_file("$wine_dir/$dsp_file", \&_generate_dsp, $module);
 468 }
 469
 470 sub output_dsp_idl_rules($$$) {
 471     my $wine_include_dir = shift;
 472     my $ext = shift;
 473     my @idl_src_files = @{(shift)};
 474
 475     foreach my $idl_src_file (@idl_src_files) {
 476         $idl_src_file =~ s%/%\\%g;
 477         if($idl_src_file !~ /^\./) {
 478             $idl_src_file = ".\\$idl_src_file";
 479         }
 480
 481         print OUT "# Begin Source File\r\n";
 482         print OUT "\r\n";
 483
 484         print OUT "SOURCE=$idl_src_file\r\n";
 485
 486         my $basename = $idl_src_file;
 487         $basename =~ s/\.idl$//;
 488
 489         print OUT "# PROP Ignore_Default_Tool 1\r\n";
 490         print OUT "# Begin Custom Build\r\n";
 491         print OUT "InputPath=$idl_src_file\r\n";
 492         print OUT "\r\n";
 493         print OUT "BuildCmds= \\\r\n";
 494         print OUT "\tmidl /nologo /I $wine_include_dir $idl_src_file ";
 495         if ($ext eq ".h") {
 496             print OUT "/client none /server none /notlb /h ";
 497         } elsif ($ext eq "_c.c") {
 498             print OUT "/server none /notlb /cstub ";
 499         } elsif ($ext eq "_s.c") {
 500             print OUT "/client none /notlb /sstub ";
 501         } elsif ($ext eq "_p.c") {
 502             print OUT "/client none /server none /notlb /proxy ";
 503         } elsif ($ext eq ".tlb") {
 504             print OUT "/client none /server none /tlb ";
 505         }
 506         print OUT "$basename$ext\r\n";
 507         print OUT "\r\n";
 508         print OUT "\"$basename$ext\" : \$(SOURCE) \"\$(INTDIR)\" \"\$(OUTDIR)\"\r\n";
 509         print OUT "   \$(BuildCmds)\r\n";
 510         print OUT "# End Custom Build\r\n";
 511
 512         print OUT "# End Source File\r\n";
 513     }
 514 }
 515
 516 sub _generate_dsp($$) {
 517     local *OUT = shift;
 518
 519     my $module = shift;
 520
 521     my $dsp_file = $modules{$module}{dsp_file};
 522     my $project = $modules{$module}{project};
 523     my @imports = @{$modules{$module}{imports}};
 524
 525     my $lib = ($modules{$module}{type} eq "lib");
 526     my $dll = ($modules{$module}{type} eq "dll");
 527     my $exe = ($modules{$module}{type} eq "exe");
 528
 529     my $console = $exe; # FIXME: Not always correct
 530
 531     my $msvc_wine_dir = do {
 532         my @parts = split(m%/%, $dsp_file);
 533         if($#parts == 1) {
 534             "..";
 535         } elsif($#parts == 2) {
 536             "..\\..";
 537         } else {
 538             "..\\..\\..";
 539         }
 540     };
 541     my $wine_include_dir = "$msvc_wine_dir\\include";
 542
 543     $progress_current++;
 544     $output->progress("$dsp_file (file $progress_current of $progress_max)");
 545
 546     my $base_module = $module;
 547         $base_module =~ s/\.(?:dll)$//;
 548
 549     my @c_srcs = @{$modules{$module}{c_srcs}};
 550     my @source_files = @{$modules{$module}{source_files}};
 551     my @header_files = @{$modules{$module}{header_files}};
 552     my @resource_files = @{$modules{$module}{resource_files}};
 553     my @idl_h_files = @{$modules{$module}{idl_h_files}};
 554     my @idl_c_files = @{$modules{$module}{idl_c_files}};
 555     my @idl_s_files = @{$modules{$module}{idl_s_files}};
 556     my @idl_p_files = @{$modules{$module}{idl_p_files}};
 557     my @idl_tlb_files = @{$modules{$module}{idl_tlb_files}};
 558
 559     if ($project !~ /^wine(?:build|runtests|test)?$/ &&
 560         $project !~ /^(?:gdi32)_.+?$/ &&
 561         $project !~ /_test$/ &&
 562         !$lib)
 563     {
 564         push @source_files, "$base_module.spec";
 565         @source_files = sort(@source_files);
 566     }
 567
 568     my $no_cpp = 1;
 569     my $no_msvc_headers = 1;
 570     if ($project =~ /^wine(?:runtests|test)$/ || $project =~ /_test$/) {
 571         $no_msvc_headers = 0;
 572     }
 573
 574     my @cfgs;
 575
 576     push @cfgs, "$project - Win32";
 577
 578     if (!$no_cpp) {
 579         my @_cfgs;
 580         foreach my $cfg (@cfgs) {
 581             push @_cfgs, "$cfg C";
 582             push @_cfgs, "$cfg C++";
 583         }
 584         @cfgs = @_cfgs;
 585     }
 586
 587     if (!$no_release) {
 588         my @_cfgs;
 589         foreach my $cfg (@cfgs) {
 590             push @_cfgs, "$cfg Debug";
 591             push @_cfgs, "$cfg Release";
 592         }
 593         @cfgs = @_cfgs;
 594     } else {
 595         my @_cfgs;
 596         foreach my $cfg (@cfgs) {
 597             push @_cfgs, "$cfg Debug";
 598         }
 599         @cfgs = @_cfgs;
 600     }
 601
 602     if (!$no_msvc_headers) {
 603         my @_cfgs;
 604         foreach my $cfg (@cfgs) {
 605             push @_cfgs, "$cfg MSVC Headers";
 606             push @_cfgs, "$cfg Wine Headers";
 607         }
 608         @cfgs = @_cfgs;
 609     }
 610
 611     my $default_cfg = $cfgs[$#cfgs];
 612
 613     print OUT "# Microsoft Developer Studio Project File - Name=\"$project\" - Package Owner=<4>\r\n";
 614     print OUT "# Microsoft Developer Studio Generated Build File, Format Version 6.00\r\n";
 615     print OUT "# ** DO NOT EDIT **\r\n";
 616     print OUT "\r\n";
 617
 618     if ($lib) {
 619         print OUT "# TARGTYPE \"Win32 (x86) Static Library\" 0x0104\r\n";
 620     } elsif ($dll) {
 621         print OUT "# TARGTYPE \"Win32 (x86) Dynamic-Link Library\" 0x0102\r\n";
 622     } else {
 623         print OUT "# TARGTYPE \"Win32 (x86) Console Application\" 0x0103\r\n";
 624     }
 625     print OUT "\r\n";
 626
 627     print OUT "CFG=$default_cfg\r\n";
 628     print OUT "!MESSAGE This is not a valid makefile. To build this project using NMAKE,\r\n";
 629     print OUT "!MESSAGE use the Export Makefile command and run\r\n";
 630     print OUT "!MESSAGE \r\n";
 631     print OUT "!MESSAGE NMAKE /f \"$project.mak\".\r\n";
 632     print OUT "!MESSAGE \r\n";
 633     print OUT "!MESSAGE You can specify a configuration when running NMAKE\r\n";
 634     print OUT "!MESSAGE by defining the macro CFG on the command line. For example:\r\n";
 635     print OUT "!MESSAGE \r\n";
 636     print OUT "!MESSAGE NMAKE /f \"$project.mak\" CFG=\"$default_cfg\"\r\n";
 637     print OUT "!MESSAGE \r\n";
 638     print OUT "!MESSAGE Possible choices for configuration are:\r\n";
 639     print OUT "!MESSAGE \r\n";
 640     foreach my $cfg (@cfgs) {
 641         if ($lib) {
 642             print OUT "!MESSAGE \"$cfg\" (based on \"Win32 (x86) Static Library\")\r\n";
 643         } elsif ($dll) {
 644             print OUT "!MESSAGE \"$cfg\" (based on \"Win32 (x86) Dynamic-Link Library\")\r\n";
 645         } else {
 646             print OUT "!MESSAGE \"$cfg\" (based on \"Win32 (x86) Console Application\")\r\n";
 647         }
 648     }
 649     print OUT "!MESSAGE \r\n";
 650     print OUT "\r\n";
 651
 652     print OUT "# Begin Project\r\n";
 653     print OUT "# PROP AllowPerConfigDependencies 0\r\n";
 654     print OUT "# PROP Scc_ProjName \"\"\r\n";
 655     print OUT "# PROP Scc_LocalPath \"\"\r\n";
 656     print OUT "CPP=cl.exe\r\n";
 657     print OUT "MTL=midl.exe\r\n" if !$lib && !$exe;
 658     print OUT "RSC=rc.exe\r\n";
 659     print OUT "\r\n";
 660
 661     my $n = 0;
 662
 663     my $output_dir;
 664     foreach my $cfg (@cfgs) {
 665         if($#cfgs == 0) {
 666             # Nothing
 667         } elsif($n == 0) {
 668             print OUT "!IF  \"\$(CFG)\" == \"$cfg\"\r\n";
 669             print OUT "\r\n";
 670         } else {
 671             print OUT "\r\n";
 672             print OUT "!ELSEIF  \"\$(CFG)\" == \"$cfg\"\r\n";
 673             print OUT "\r\n";
 674         }
 675
 676         my $debug = ($cfg !~ /Release/);
 677         my $msvc_headers = ($cfg =~ /MSVC Headers/);
 678
 679         print OUT "# PROP BASE Use_MFC 0\r\n";
 680
 681         if($debug) {
 682             print OUT "# PROP BASE Use_Debug_Libraries 1\r\n";
 683         } else {
 684             print OUT "# PROP BASE Use_Debug_Libraries 0\r\n";
 685         }
 686
 687         $output_dir = $cfg;
 688         $output_dir =~ s/^$project - //;
 689         $output_dir =~ s/ /_/g;
 690         $output_dir =~ s/C\+\+/Cxx/g;
 691         if($output_prefix_dir) {
 692             $output_dir = "$output_prefix_dir\\$output_dir";
 693         }
 694
 695         print OUT "# PROP BASE Output_Dir \"$output_dir\"\r\n";
 696         print OUT "# PROP BASE Intermediate_Dir \"$output_dir\"\r\n";
 697
 698         print OUT "# PROP BASE Target_Dir \"\"\r\n";
 699
 700         print OUT "# PROP Use_MFC 0\r\n";
 701         if($debug) {
 702             print OUT "# PROP Use_Debug_Libraries 1\r\n";
 703         } else {
 704             print OUT "# PROP Use_Debug_Libraries 0\r\n";
 705         }
 706         print OUT "# PROP Output_Dir \"$output_dir\"\r\n";
 707         print OUT "# PROP Intermediate_Dir \"$output_dir\"\r\n";
 708
 709         print OUT "# PROP Ignore_Export_Lib 0\r\n" if $dll;
 710         print OUT "# PROP Target_Dir \"\"\r\n";
 711
 712         print OUT "# ADD BASE CPP /nologo ";
 713         my @defines = qw(WINVER=0x0600 _WIN32_WINNT=0x0600 _WIN32_IE=0x0700 WIN32);
 714         if($debug) {
 715             if($lib || $exe) {
 716                 push @defines, qw(_DEBUG _MBCS _LIB);
 717             } else {
 718                 print OUT "/MDd ";
 719                 push @defines, qw(_DEBUG _WINDOWS _MBCS _USRDLL);
 720             }
 721             print OUT "/W3 /Gm /GX /Zi /Od";
 722         } else {
 723             if($lib || $exe) {
 724                 push @defines, qw(NDEBUG _MBCS _LIB);
 725             } else {
 726                 print OUT "/MD ";
 727                 push @defines, qw(NDEBUG _WINDOWS _MBCS _USRDLL);
 728             }
 729             print OUT "/W3 /GX /O2";
 730         }
 731
 732         foreach my $define (@defines) {
 733             if ($define !~ /=/) {
 734                 print OUT " /D \"$define\"";
 735             } else {
 736                 print OUT " /D $define";
 737             }
 738         }
 739         print OUT " /YX" if $lib || $exe;
 740         print OUT " /FD";
 741         print OUT " /GZ" if $debug;
 742         print OUT " /c";
 743         print OUT "\r\n";
 744
 745         my @defines2 = qw(_CRT_SECURE_NO_DEPRECATE _CRT_NONSTDC_NO_DEPRECATE
 746                           USE_COMPILER_EXCEPTIONS _USE_MATH_DEFINES
 747                           WINVER=0x0600 _WIN32_WINNT=0x0600 _WIN32_IE=0x0700);
 748         if($debug) {
 749             if($lib) {
 750                 print OUT "# ADD CPP /nologo /MDd /W3 /Gm /GX /Zi /Od";
 751                 push @defines2, qw(WIN32 _DEBUG _WINDOWS _MBCS _LIB);
 752             } else {
 753                 print OUT "# ADD CPP /nologo /MDd /W3 /Gm /GX /Zi /Od";
 754                 push @defines2, qw(_DEBUG WIN32 _WINDOWS _MBCS _USRDLL);
 755             }
 756         } else {
 757             if($lib) {
 758                 print OUT "# ADD CPP /nologo /MD /W3 /GX /O2";
 759                 push @defines2, qw(WIN32 NDEBUG _WINDOWS _MBCS _LIB);
 760             } else {
 761                 print OUT "# ADD CPP /nologo /MD /W3 /GX /O2";
 762                 push @defines2, qw(NDEBUG WIN32 _WINDOWS _MBCS _USRDLL);
 763             }
 764         }
 765
 766         my @includes = ();
 767         if($wine) {
 768             push @defines2, qw(__WINESRC__) if $project !~ /^(?:wine(?:build|test)|.*?_test)$/;
 769             if ($msvc_headers) {
 770                 push @defines2, qw(__WINE_USE_NATIVE_HEADERS);
 771             }
 772             my $output_dir2 = $output_dir;
 773             $output_dir2 =~ s/\\/\\\\/g;
 774             push @defines2, "__WINETEST_OUTPUT_DIR=\\\"$output_dir2\\\"";
 775             push @defines2, qw(__i386__ _X86_);
 776
 777             if ($project eq "wine") {
 778                 push @defines2, "WINE_UNICODE_API=";
 779             }
 780
 781             if ($project =~ /_test$/) {
 782                 push @includes, "$msvc_wine_dir\\$output_dir";
 783             }
 784
 785             if (!$msvc_headers || $project eq "winetest") {
 786                 push @includes, $wine_include_dir;
 787             }
 788         }
 789
 790         if($wine) {
 791             foreach my $include (@includes) {
 792                 print OUT " /I \"$include\"";
 793             }
 794         }
 795
 796         foreach my $define (@defines2) {
 797             if ($define !~ /=/) {
 798                 print OUT " /D \"$define\"";
 799             } else {
 800                 print OUT " /D $define";
 801             }
 802         }
 803         print OUT " /D inline=__inline" if $wine;
 804         print OUT " /D \"__STDC__\"" if 0 && $wine;
 805
 806         if(exists($modules{$module}{extradefs})) {
 807             print OUT " @{$modules{$module}{extradefs}} ";
 808         }
 809
 810         print OUT " /YX" if $lib;
 811         print OUT " /FR" if !$lib;
 812         print OUT " /FD";
 813         print OUT " /GZ" if $debug;
 814         print OUT " /c";
 815         print OUT " /TP" if !$no_cpp;
 816         print OUT "\r\n";
 817
 818         if($debug) {
 819             print OUT "# SUBTRACT CPP /X /YX\r\n" if $dll;
 820             print OUT "# ADD BASE MTL /nologo /D \"_DEBUG\" /mktyplib203 /win32\r\n" if $dll;
 821             print OUT "# ADD MTL /nologo /D \"_DEBUG\" /mktyplib203 /win32\r\n" if $dll;
 822             print OUT "# ADD BASE RSC /l 0x41d /d \"_DEBUG\"\r\n";
 823             print OUT "# ADD RSC /l 0x41d";
 824             if($wine) {
 825                 foreach my $include (@includes) {
 826                     print OUT " /i \"$include\"";
 827                 }
 828             }
 829             print OUT " /d \"_DEBUG\"\r\n";
 830         } else {
 831             print OUT "# SUBTRACT CPP /YX\r\n" if $dll;
 832             print OUT "# ADD BASE MTL /nologo /D \"NDEBUG\" /mktyplib203 /win32\r\n" if $dll;
 833             print OUT "# ADD MTL /nologo /D \"NDEBUG\" /mktyplib203 /win32\r\n" if $dll;
 834             print OUT "# ADD BASE RSC /l 0x41d /d \"NDEBUG\"\r\n";
 835             print OUT "# ADD RSC /l 0x41d";
 836             if($wine) {
 837                 foreach my $include (@includes) {
 838                     print OUT " /i \"$include\"";
 839                 }
 840             }
 841             print OUT "/d \"NDEBUG\"\r\n";
 842         }
 843         print OUT "BSC32=bscmake.exe\r\n";
 844         print OUT "# ADD BASE BSC32 /nologo\r\n";
 845         print OUT "# ADD BSC32 /nologo\r\n";
 846
 847         if($exe || $dll) {
 848             print OUT "LINK32=link.exe\r\n";
 849             print OUT "# ADD BASE LINK32";
 850             my @libraries = qw(kernel32.lib user32.lib gdi32.lib winspool.lib
 851                                comdlg32.lib advapi32.lib shell32.lib ole32.lib
 852                                oleaut32.lib uuid.lib odbc32.lib odbccp32.lib);
 853             foreach my $library (@libraries) {
 854                 print OUT " $library";
 855             }
 856             print OUT " /nologo";
 857             print OUT " /dll" if $dll;
 858             print OUT " /subsystem:console" if $console;
 859             print OUT " /debug" if $debug;
 860             print OUT " /machine:I386";
 861             print OUT " /pdbtype:sept" if $debug;
 862             print OUT "\r\n";
 863
 864             print OUT "# ADD LINK32";
 865             print OUT " libcmt.lib" if $project =~ /^ntdll$/; # FIXME: Kludge
 866             foreach my $import (@imports) {
 867                 print OUT " $import.lib" if ($import ne "msvcrt");
 868             }
 869             print OUT " /nologo";
 870             print OUT " /dll" if $dll;
 871             print OUT " /subsystem:console" if $console;
 872             print OUT " /debug" if $debug;
 873             print OUT " /machine:I386";
 874             print OUT " /nodefaultlib" if $project =~ /^ntdll$/; # FIXME: Kludge
 875             print OUT " /def:\"$project.def\"" if $dll;
 876             print OUT " /pdbtype:sept" if $debug;
 877             print OUT "\r\n";
 878         } else {
 879             print OUT "LIB32=link.exe -lib\r\n";
 880             print OUT "# ADD BASE LIB32 /nologo\r\n";
 881             print OUT "# ADD LIB32 /nologo\r\n";
 882         }
 883
 884         $n++;
 885     }
 886
 887     if($#cfgs != 0) {
 888         print OUT "\r\n";
 889         print OUT "!ENDIF \r\n";
 890         print OUT "\r\n";
 891     }
 892
 893     print OUT "# Begin Target\r\n";
 894     print OUT "\r\n";
 895     foreach my $cfg (@cfgs) {
 896         print OUT "# Name \"$cfg\"\r\n";
 897     }
 898
 899     print OUT "# Begin Group \"Source Files\"\r\n";
 900     print OUT "\r\n";
 901     print OUT "# PROP Default_Filter \"cpp;c;cxx;rc;def;r;odl;idl;hpj;bat\"\r\n";
 902
 903     if ($project eq "winebuild") {
 904         for my $ source_file ("getopt.c", "getopt1.c", "mkstemps.c")
 905         {
 906             print OUT "# Begin Source File\r\n";
 907             print OUT "\r\n";
 908             print OUT "SOURCE=..\\..\\libs\\port\\$source_file\r\n";
 909             print OUT "# End Source File\r\n";
 910         }
 911     }
 912
 913     foreach my $source_file (@source_files) {
 914         $source_file =~ s%/%\\%g;
 915         if($source_file !~ /^\./) {
 916             $source_file = ".\\$source_file";
 917         }
 918
 919         print OUT "# Begin Source File\r\n";
 920         print OUT "\r\n";
 921
 922         print OUT "SOURCE=$source_file\r\n";
 923
 924         if ($project eq "wine" && $source_file eq ".\\config.c") {
 925             print OUT "# ADD CPP /D BINDIR=\\\"\\\" /D DLLDIR=\\\"\\\" /D LIB_TO_BINDIR=\\\"\\\" /D LIB_TO_DLLDIR=\\\"\\\" /D BIN_TO_DLLDIR=\\\"\\\" /D LIB_TO_DATADIR=\\\"\\\" /D BIN_TO_DATADIR=\\\"\\\"\r\n";
 926         }
 927
 928         if($source_file =~ /^(.*?)\.spec$/) {
 929             my $basename = $1;
 930
 931             my $spec_file = $source_file;
 932             my $def_file = "$basename.def";
 933
 934             my $srcdir = "."; # FIXME: Is this really always correct?
 935
 936             print OUT "# Begin Custom Build\r\n";
 937             print OUT "InputPath=$spec_file\r\n";
 938             print OUT "\r\n";
 939             print OUT "BuildCmds= \\\r\n";
 940             print OUT "\t..\\..\\tools\\winebuild\\$output_dir\\winebuild.exe -w --def -k -o $def_file --export $spec_file\r\n";
 941             print OUT "\r\n";
 942             print OUT "\"$def_file\" : \$(SOURCE) \"\$(INTDIR)\" \"\$(OUTDIR)\"\r\n";
 943             print OUT "   \$(BuildCmds)\r\n";
 944             print OUT "# End Custom Build\r\n";
 945         } elsif($source_file =~ /([^\\]*?\.h)$/) {
 946             my $h_file = $1;
 947
 948             foreach my $cfg (@cfgs) {
 949                 if($#cfgs == 0) {
 950                     # Nothing
 951                 } elsif($n == 0) {
 952                     print OUT "!IF  \"\$(CFG)\" == \"$cfg\"\r\n";
 953                     print OUT "\r\n";
 954                 } else {
 955                     print OUT "\r\n";
 956                     print OUT "!ELSEIF  \"\$(CFG)\" == \"$cfg\"\r\n";
 957                     print OUT "\r\n";
 958                 }
 959
 960                 $output_dir = $cfg;
 961                 $output_dir =~ s/^$project - //;
 962                 $output_dir =~ s/ /_/g;
 963                 $output_dir =~ s/C\+\+/Cxx/g;
 964                 if($output_prefix_dir) {
 965                     $output_dir = "$output_prefix_dir\\$output_dir";
 966                 }
 967
 968                 print OUT "# Begin Custom Build\r\n";
 969                 print OUT "OutDir=$output_dir\r\n";
 970                 print OUT "InputPath=$source_file\r\n";
 971                 print OUT "\r\n";
 972                 print OUT "\"\$(OutDir)\\wine\\$h_file\" : \$(SOURCE) \"\$(INTDIR)\" \"\$(OUTDIR)\"\r\n";
 973                 print OUT "\tcopy \"\$(InputPath)\" \"\$(OutDir)\\wine\"\r\n";
 974                 print OUT "\r\n";
 975                 print OUT "# End Custom Build\r\n";
 976             }
 977
 978             if($#cfgs != 0) {
 979                 print OUT "\r\n";
 980                 print OUT "!ENDIF \r\n";
 981                 print OUT "\r\n";
 982             }
 983         }
 984
 985         print OUT "# End Source File\r\n";
 986     }
 987
 988     output_dsp_idl_rules $wine_include_dir, ".h", \@idl_h_files;
 989     output_dsp_idl_rules $wine_include_dir, "_c.c", \@idl_c_files;
 990     output_dsp_idl_rules $wine_include_dir, "_s.c", \@idl_s_files;
 991     output_dsp_idl_rules $wine_include_dir, "_p.c", \@idl_p_files;
 992     # Hack - stdole2.idl cannot be compiled with midl
 993     if($project ne "include") {
 994         output_dsp_idl_rules $wine_include_dir, ".tlb", \@idl_tlb_files;
 995     }
 996
 997     print OUT "# End Group\r\n";
 998
 999     print OUT "# Begin Group \"Header Files\"\r\n";
1000     print OUT "\r\n";
1001     print OUT "# PROP Default_Filter \"h;hpp;hxx;hm;inl\"\r\n";
1002     foreach my $header_file (@header_files) {
1003         print OUT "# Begin Source File\r\n";
1004         print OUT "\r\n";
1005         print OUT "SOURCE=.\\$header_file\r\n";
1006         print OUT "# End Source File\r\n";
1007     }
1008     print OUT "# End Group\r\n";
1009
1010
1011
1012     print OUT "# Begin Group \"Resource Files\"\r\n";
1013     print OUT "\r\n";
1014     print OUT "# PROP Default_Filter \"ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe\"\r\n";
1015     foreach my $resource_file (@resource_files) {
1016         print OUT "# Begin Source File\r\n";
1017         print OUT "\r\n";
1018         print OUT "SOURCE=.\\$resource_file\r\n";
1019         print OUT "# End Source File\r\n";
1020     }
1021     print OUT "# End Group\r\n";
1022
1023     print OUT "# End Target\r\n";
1024     print OUT "# End Project\r\n";
1025
1026     close(OUT);
1027 }
1028
1029 sub _generate_dsw_header($) {
1030     local *OUT = shift;
1031
1032     print OUT "Microsoft Developer Studio Workspace File, Format Version 6.00\r\n";
1033     print OUT "# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE!\r\n";
1034     print OUT "\r\n";
1035 }
1036
1037 sub _generate_dsw_project($$$$) {
1038     local *OUT = shift;
1039
1040     my $project = shift;
1041     my $dsp_file = shift;
1042     my @dependencies = @{(shift)};
1043
1044     $dsp_file = "./$dsp_file";
1045     $dsp_file =~ y%/%\\%;
1046
1047     @dependencies = sort(@dependencies);
1048
1049     print OUT "###############################################################################\r\n";
1050     print OUT "\r\n";
1051     print OUT "Project: \"$project\"=$dsp_file - Package Owner=<4>\r\n";
1052     print OUT "\r\n";
1053     print OUT "Package=<5>\r\n";
1054     print OUT "{{{\r\n";
1055     print OUT "}}}\r\n";
1056     print OUT "\r\n";
1057     print OUT "Package=<4>\r\n";
1058     print OUT "{{{\r\n";
1059     foreach my $dependency (@dependencies) {
1060         print OUT "    Begin Project Dependency\r\n";
1061         print OUT "    Project_Dep_Name $dependency\r\n";
1062         print OUT "    End Project Dependency\r\n";
1063     }
1064     print OUT "}}}\r\n";
1065     print OUT "\r\n";
1066 }
1067
1068 sub _generate_dsw_footer($) {
1069     local *OUT = shift;
1070
1071     print OUT "###############################################################################\r\n";
1072     print OUT "\r\n";
1073     print OUT "Global:\r\n";
1074     print OUT "\r\n";
1075     print OUT "Package=<5>\r\n";
1076     print OUT "{{{\r\n";
1077     print OUT "}}}\r\n";
1078     print OUT "\r\n";
1079     print OUT "Package=<3>\r\n";
1080     print OUT "{{{\r\n";
1081     print OUT "}}}\r\n";
1082     print OUT "\r\n";
1083     print OUT "###############################################################################\r\n";
1084     print OUT "\r\n";
1085 }
1086
1087 if ($options->wine) {
1088     my $dsw_file = "wine.dsw";
1089     $output->progress("$dsw_file");
1090     replace_file("$wine_dir/$dsw_file", \&_generate_wine_dsw);
1091 }
1092
1093 sub _generate_wine_dsw($) {
1094     local *OUT = shift;
1095
1096     _generate_dsw_header(\*OUT);
1097     foreach my $module (sort(keys(%modules))) {
1098         next if $module =~ /(?:winetest\.lib|wineruntests\.exe|_test\.exe)$/;
1099
1100         my $project = $modules{$module}{project};
1101         my $dsp_file = $modules{$module}{dsp_file};
1102
1103         my @dependencies;
1104         if($project eq "wine") {
1105             @dependencies = ();
1106         } elsif($project eq "winebuild") {
1107             @dependencies = ("wine");
1108         } elsif($project =~ /^(?:gdi32)_.+?$/) {
1109             @dependencies = ();
1110         } else {
1111             @dependencies = ("wine", "include", "winebuild");
1112         }
1113
1114         if($project =~ /^gdi32$/) {
1115             foreach my $dir (@gdi32_dirs) {
1116                 my $dir2 = $dir;
1117                 $dir2 =~ s%^.*?/([^/]+)$%$1%;
1118
1119                 my $module = "gdi32_$dir2";
1120                 $module =~ s%/%_%g;
1121                 push @dependencies, $module;
1122             }
1123         }
1124
1125         _generate_dsw_project(\*OUT, $project, $dsp_file, \@dependencies);
1126     }
1127     _generate_dsw_footer(\*OUT);
1128
1129     return 1;
1130 }
1131
1132 if ($options->winetest) {
1133     my $dsw_file = "winetest.dsw";
1134     $output->progress("$dsw_file");
1135     replace_file("$wine_dir/$dsw_file", \&_generate_winetest_dsw);
1136 }
1137
1138 sub _generate_winetest_dsw($) {
1139     local *OUT = shift;
1140
1141     _generate_dsw_header(\*OUT);
1142
1143     my @runtests_dependencies = ();
1144     foreach my $module (sort(keys(%modules))) {
1145         next if $module !~ /(?:winetest\.lib|wineruntests\.exe|_test\.exe)$/;
1146         next if $module eq "wineruntests";
1147
1148         my $project = $modules{$module}{project};
1149
1150         push @runtests_dependencies, $project;
1151     }
1152
1153     foreach my $module (sort(keys(%modules))) {
1154         next if $module !~ /(?:winetest\.lib|wineruntests\.exe|_test\.exe)$/;
1155
1156         my $project = $modules{$module}{project};
1157         my $dsp_file = $modules{$module}{dsp_file};
1158
1159         my @dependencies;
1160         if($project =~ /^winetest$/) {
1161             @dependencies = ();
1162         } elsif($project =~ /^wineruntests$/) {
1163             @dependencies = @runtests_dependencies;
1164         } else {
1165             @dependencies = ("winetest");
1166         }
1167
1168         _generate_dsw_project(\*OUT, $project, $dsp_file, \@dependencies);
1169     }
1170
1171     _generate_dsw_footer(\*OUT);
1172 }
1173
1174 if ($options->winetest) {
1175     foreach my $module (sort(keys(%modules))) {
1176         next if $module !~ /_test\.exe$/;
1177
1178         my $project = $modules{$module}{project};
1179         my $dsp_file = $modules{$module}{dsp_file};
1180         my @tests = @{$modules{$module}{tests}};
1181
1182         my $testlist_c = $dsp_file;
1183         $testlist_c =~ s%[^/]*\.dsp$%testlist.c%;
1184
1185         replace_file("$wine_dir/$testlist_c", \&_generate_testlist_c, \@tests);
1186     }
1187 }
1188
1189 # ***** Keep in sync with tools/make_ctests *****
1190 sub _generate_testlist_c($$) {
1191     local *OUT = shift;
1192
1193     my @tests = @{(shift)};
1194
1195     print OUT "/* Automatically generated file; DO NOT EDIT!! */\n";
1196     print OUT "\n";
1197     print OUT "/* stdarg.h is needed for Winelib */\n";
1198     print OUT "#include <stdarg.h>\n";
1199     print OUT "#include <stdio.h>\n";
1200     print OUT "#include <stdlib.h>\n";
1201     print OUT "#include \"windef.h\"\n";
1202     print OUT "#include \"winbase.h\"\n";
1203     print OUT "\n";
1204     print OUT "#define STANDALONE\n";
1205     print OUT "#include \"wine/test.h\"\n";
1206     print OUT "\n";
1207     foreach my $test (@tests) {
1208         print OUT "extern void func_$test(void);\n";
1209     }
1210     print OUT "\n";
1211     print OUT "const struct test winetest_testlist[] =\n";
1212     print OUT "{\n";
1213     foreach my $test (@tests) {
1214         print OUT "    { \"$test\", func_$test },\n";
1215     }
1216     print OUT "    { 0, 0 }\n";
1217     print OUT "};\n";
1218 }
1219
1220 if ($options->winetest) {
1221     replace_file("$wine_dir/runtests.c", \&_generate_runtests_c);
1222 }
1223
1224 sub _generate_runtests_c($) {
1225     local *OUT = shift;
1226
1227     print OUT "/* Automatically generated file; DO NOT EDIT!! */\n";
1228
1229     print OUT "\n";
1230     print OUT "#include <stdio.h>\n";
1231     print OUT "#include <stdlib.h>\n";
1232     print OUT "\n";
1233
1234     print OUT "int main(int argc, char *argv[])\n";
1235     print OUT "{\n";
1236     print OUT "    char output_dir[] = __WINETEST_OUTPUT_DIR;\n";
1237     print OUT "    char command[4096];\n";
1238     print OUT "\n";
1239     foreach my $dsp_file (keys(%runtests)) {
1240         my @tests =  @{$runtests{$dsp_file}};
1241
1242         my $project = $dsp_file;
1243         $project =~ s%^(.*?)/?([^/]+)\.dsp$%$2%;
1244         my $dir = $1;
1245         $dir =~ s%/%\\\\%g;
1246
1247         foreach my $test (@tests) {
1248             print OUT "    sprintf(command, \"$dir\\\\%s\\\\$project.exe $test\", output_dir);\n";
1249             print OUT "    system(command);\n";
1250             print OUT "\n";
1251         }
1252     }
1253     print OUT "    return 0;\n";
1254     print OUT "}\n";
1255 }
1256
1257 if ($options->winetest) {
1258     replace_file("$wine_dir/winetest.c", \&_generate_winetest_c);
1259 }
1260
1261 sub _generate_winetest_c($) {
1262     local *OUT = shift;
1263
1264     print OUT "/* Automatically generated file; DO NOT EDIT!! */\n\n";
1265
1266     print OUT "/* Force the linker to generate a .lib file */\n";
1267     print OUT "void __wine_dummy_lib_function(void)\n{\n}\n\n";
1268 }
1269
1270 if ($options->wine) {
1271     my $config_h = "include/config.h";
1272
1273     $output->progress("$config_h");
1274
1275     replace_file("$wine_dir/$config_h", \&_generate_config_h);
1276 }
1277
1278 sub _generate_config_h($) {
1279     local *OUT = shift;
1280     my @defines;
1281
1282     print OUT "#define __WINE_CONFIG_H\n";
1283     print OUT "\n";
1284
1285     my @headers = qw(direct.h float.h memory.h io.h stdlib.h string.h process.h sys/stat.h sys/types.h);
1286     foreach my $header (@headers) {
1287         $header =~ y/\.\//__/;
1288         push @defines, "HAVE_\U$header\E 1";
1289     }
1290
1291     my @functions = qw(
1292         _pclose _popen _snprintf _spawnvp _stricmp _strnicmp _strdup
1293         _strtoi64 _strtoui64 _vsnprintf
1294         chsize memmove strdup spawnvp strerror vsnprintf
1295     );
1296     foreach my $function (@functions) {
1297         push @defines, "HAVE_\U$function\E 1";
1298     }
1299
1300     my @types = qw(
1301         long_long off_t size_t
1302     );
1303     foreach my $type (@types) {
1304         push @defines, "HAVE_\U$type\E 1";
1305     }
1306
1307     foreach my $define (sort(@defines)) {
1308         print OUT "#define $define\n";
1309         print OUT "\n";
1310     }
1311
1312     print OUT "/* Define to the address where bug reports for this package should be sent. */\n";
1313     print OUT "#define PACKAGE_BUGREPORT \"\"\n";
1314     print OUT "\n";
1315
1316     print OUT "/* Define to the full name of this package. */\n";
1317     print OUT "#define PACKAGE_NAME \"Wine\"\n";
1318     print OUT "\n";
1319
1320     print OUT "/* Define to the full name and version of this package. */\n";
1321     print OUT "#define PACKAGE_STRING \"Wine YYYYMMDD\"\n";
1322     print OUT "\n";
1323
1324     print OUT "/* Define to the one symbol short name of this package. */\n";
1325     print OUT "#define PACKAGE_TARNAME \"wine\"\n";
1326     print OUT "\n";
1327
1328     print OUT "/* Define to the version of this package. */\n";
1329     print OUT "#define PACKAGE_VERSION \"YYYYMMDD\"\n";
1330     print OUT "\n";
1331
1332     print OUT "#define X_DISPLAY_MISSING 1\n";
1333     print OUT "\n";
1334
1335     print OUT "/* Define to a macro to generate an assembly function directive */\n";
1336     print OUT "#define __ASM_FUNC(name) \"\"\n";
1337     print OUT "\n";
1338
1339     print OUT "/* Define to a macro to generate an assembly name from a C symbol */\n";
1340     print OUT "#define __ASM_NAME(name) name\n";
1341     print OUT "\n";
1342
1343     close(OUT);
1344 }