tools/winapi/msvcmaker

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