git.oblomov.eu Git - wine/blob - tools/winemaker

   1 #!/usr/bin/perl -w
   2
   3 # Copyright 2000 Francois Gouget for CodeWeavers
   4 # fgouget@codeweavers.com
   5 #
   6 my $version="0.5.1";
   7
   8 use Cwd;
   9 use File::Basename;
  10 use File::Copy;
  11
  12
  13
  14 #####
  15 #
  16 # Options
  17 #
  18 #####
  19
  20 # The following constants define what we do with the case of filenames
  21
  22 ##
  23 # Never rename a file to lowercase
  24 my $OPT_LOWER_NONE=0;
  25
  26 ##
  27 # Rename all files to lowercase
  28 my $OPT_LOWER_ALL=1;
  29
  30 ##
  31 # Rename only files that are all uppercase to lowercase
  32 my $OPT_LOWER_UPPERCASE=2;
  33
  34
  35 # The following constants define whether to ask questions or not
  36
  37 ##
  38 # No (synonym of never)
  39 my $OPT_ASK_NO=0;
  40
  41 ##
  42 # Yes (always)
  43 my $OPT_ASK_YES=1;
  44
  45 ##
  46 # Skip the questions till the end of this scope
  47 my $OPT_ASK_SKIP=-1;
  48
  49
  50 # General options
  51
  52 ##
  53 # Make a backup of the files
  54 my $opt_backup;
  55
  56 ##
  57 # Defines which files to rename
  58 my $opt_lower;
  59
  60
  61 # Options for the 'Source' method
  62
  63 ##
  64 # Specifies that we have only one target so that all sources relate
  65 # to this target. By default this variable is left undefined which
  66 # means winemaker should try to find out by itself what the targets
  67 # are. If not undefined then this contains the name of the default
  68 # target (without the extension).
  69 my $opt_single_target;
  70
  71 ##
  72 # If '$opt_single_target' has been specified then this is the type of
  73 # that target. Otherwise it specifies whether the default target type
  74 # is guiexe or cuiexe.
  75 my $opt_target_type;
  76
  77 ##
  78 # Contains the default set of flags to be used when creating a new target.
  79 my $opt_flags;
  80
  81 ##
  82 # If true then winemaker should ask questions to the user as it goes
  83 # along.
  84 my $opt_is_interactive;
  85 my $opt_ask_project_options;
  86 my $opt_ask_target_options;
  87
  88 ##
  89 # If true then winemaker should not generate any file (mostly
  90 # makefiles, thus the name, but also .spec files, configure.in, etc.)
  91 my $opt_no_makefile;
  92
  93 ##
  94 # Specifies not to print the banner if set.
  95 my $opt_no_banner;
  96
  97
  98
  99 #####
 100 #
 101 # Target modelization
 102 #
 103 #####
 104
 105 # The description of a target is stored in an array. The constants
 106 # below identify what is stored at each index of the array.
 107
 108 ##
 109 # This is the name of the target.
 110 my $T_NAME=0;
 111
 112 ##
 113 # Defines the type of target we want to build. See the TT_xxx
 114 # constants below
 115 my $T_TYPE=1;
 116
 117 ##
 118 # Defines the target's enty point, i.e. the function that is called
 119 # on startup.
 120 my $T_INIT=2;
 121
 122 ##
 123 # This is a bitfield containing flags refining the way the target
 124 # should be handled. See the TF_xxx constants below
 125 my $T_FLAGS=12;
 126
 127 ##
 128 # This is a reference to an array containing the list of the
 129 # resp. C, C++, RC, other (.h, .hxx, etc.) source files.
 130 my $T_SOURCES_C=3;
 131 my $T_SOURCES_CXX=4;
 132 my $T_SOURCES_RC=5;
 133 my $T_SOURCES_MISC=6;
 134
 135 ##
 136 # This is a reference to an array containing the list of macro
 137 # definitions
 138 my $T_DEFINES=7;
 139
 140 ##
 141 # This is a reference to an array containing the list of directory
 142 # names that constitute the include path
 143 my $T_INCLUDE_PATH=8;
 144
 145 ##
 146 # Same as T_INCLUDE_PATH but for the library search path
 147 my $T_LIBRARY_PATH=9;
 148
 149 ##
 150 # The list of libraries to link with
 151 my $T_IMPORTS=10;
 152
 153 ##
 154 # The list of dependencies between targets
 155 my $T_DEPENDS=11;
 156
 157
 158 # The following constants define the recognized types of target
 159
 160 ##
 161 # This is not a real target. This type of target is used to collect
 162 # the sources that don't seem to belong to any other target. Thus no
 163 # real target is generated for them, we just put the sources of the
 164 # fake target in the global source list.
 165 my $TT_SETTINGS=0;
 166
 167 ##
 168 # For executables in the windows subsystem
 169 my $TT_GUIEXE=1;
 170
 171 ##
 172 # For executables in the console subsystem
 173 my $TT_CUIEXE=2;
 174
 175 ##
 176 # For dynamically linked libraries
 177 my $TT_DLL=3;
 178
 179
 180 # The following constants further refine how the target should be handled
 181
 182 ##
 183 # This target needs a wrapper
 184 my $TF_WRAP=1;
 185
 186 ##
 187 # This target is a wrapper
 188 my $TF_WRAPPER=2;
 189
 190 ##
 191 # This target is an MFC-based target
 192 my $TF_MFC=4;
 193
 194 ##
 195 # Initialize a target:
 196 # - set the target type to TT_SETTINGS, i.e. no real target will
 197 #   be generated.
 198 sub target_init
 199 {
 200   my $target=$_[0];
 201
 202   @$target[$T_TYPE]=$TT_SETTINGS;
 203   # leaving $T_INIT undefined
 204   @$target[$T_FLAGS]=$opt_flags;
 205   @$target[$T_SOURCES_C]=[];
 206   @$target[$T_SOURCES_CXX]=[];
 207   @$target[$T_SOURCES_RC]=[];
 208   @$target[$T_SOURCES_MISC]=[];
 209   @$target[$T_DEFINES]=[];
 210   @$target[$T_INCLUDE_PATH]=[];
 211   @$target[$T_LIBRARY_PATH]=[];
 212   @$target[$T_IMPORTS]=[];
 213   @$target[$T_DEPENDS]=[];
 214 }
 215
 216 sub get_default_init
 217 {
 218   my $type=$_[0];
 219   if ($type == $TT_GUIEXE) {
 220     return "WinMain";
 221   } elsif ($type == $TT_CUIEXE) {
 222     return "main";
 223   } elsif ($type == $TT_DLL) {
 224     return "DllMain";
 225   }
 226 }
 227
 228
 229
 230 #####
 231 #
 232 # Project modelization
 233 #
 234 #####
 235
 236 # First we have the notion of project. A project is described by an
 237 # array (since we don't have structs in perl). The constants below
 238 # identify what is stored at each index of the array.
 239
 240 ##
 241 # This is the path in which this project is located. In other
 242 # words, this is the path to  the Makefile.
 243 my $P_PATH=0;
 244
 245 ##
 246 # This index contains a reference to an array containing the project-wide
 247 # settings. The structure of that arrray is actually identical to that of
 248 # a regular target since it can also contain extra sources.
 249 my $P_SETTINGS=1;
 250
 251 ##
 252 # This index contains a reference to an array of targets for this
 253 # project. Each target describes how an executable or library is to
 254 # be built. For each target this description takes the same form as
 255 # that of the project: an array. So this entry is an array of arrays.
 256 my $P_TARGETS=2;
 257
 258 ##
 259 # Initialize a project:
 260 # - set the project's path
 261 # - initialize the target list
 262 # - create a default target (will be removed later if unnecessary)
 263 sub project_init
 264 {
 265   my $project=$_[0];
 266   my $path=$_[1];
 267
 268   my $project_settings=[];
 269   target_init($project_settings);
 270
 271   @$project[$P_PATH]=$path;
 272   @$project[$P_SETTINGS]=$project_settings;
 273   @$project[$P_TARGETS]=[];
 274 }
 275
 276
 277
 278 #####
 279 #
 280 # Global variables
 281 #
 282 #####
 283
 284 my $usage;
 285 my %warnings;
 286
 287 my %templates;
 288
 289 ##
 290 # Contains the list of all projects. This list tells us what are
 291 # the subprojects of the main Makefile and where we have to generate
 292 # Makefiles.
 293 my @projects=();
 294
 295 ##
 296 # This is the main project, i.e. the one in the "." directory.
 297 # It may well be empty in which case the main Makefile will only
 298 # call out subprojects.
 299 my @main_project;
 300
 301 ##
 302 # Contains the defaults for the include path, etc.
 303 # We store the defaults as if this were a target except that we only
 304 # exploit the defines, include path, library path, library list and misc
 305 # sources fields.
 306 my @global_settings;
 307
 308 ##
 309 # If one of the projects requires the MFc then we set this global variable
 310 # to true so that configure asks the user to provide a path tothe MFC
 311 my $needs_mfc=0;
 312
 313
 314
 315 #####
 316 #
 317 # Utility functions
 318 #
 319 #####
 320
 321 ##
 322 # Cleans up a name to make it an acceptable Makefile
 323 # variable name.
 324 sub canonize
 325 {
 326   my $name=$_[0];
 327
 328   $name =~ tr/a-zA-Z0-9_/_/c;
 329   return $name;
 330 }
 331
 332 ##
 333 # Returns true is the specified pathname is absolute.
 334 # Note: pathnames that start with a variable '$' or
 335 # '~' are considered absolute.
 336 sub is_absolute
 337 {
 338   my $path=$_[0];
 339
 340   return ($path =~ /^[\/~\$]/);
 341 }
 342
 343 ##
 344 # Performs a binary search looking for the specified item
 345 sub bsearch
 346 {
 347   my $array=$_[0];
 348   my $item=$_[1];
 349   my $last=@{$array}-1;
 350   my $first=0;
 351
 352   while ($first<=$last) {
 353     my $index=int(($first+$last)/2);
 354     my $cmp=@$array[$index] cmp $item;
 355     if ($cmp<0) {
 356       $first=$index+1;
 357     } elsif ($cmp>0) {
 358       $last=$index-1;
 359     } else {
 360       return $index;
 361     }
 362   }
 363 }
 364
 365
 366
 367 #####
 368 #
 369 # 'Source'-based Project analysis
 370 #
 371 #####
 372
 373 ##
 374 # Allows the user to specify makefile and target specific options
 375 # - target: the structure in which to store the results
 376 # - options: the string containing the options
 377 sub source_set_options
 378 {
 379   my $target=$_[0];
 380   my $options=$_[1];
 381
 382   #FIXME: we must deal with escaping of stuff and all
 383   foreach $option (split / /,$options) {
 384     if (@$target[$T_TYPE] == $TT_SETTINGS and $option =~ /^-D/) {
 385       push @{@$target[$T_DEFINES]},$option;
 386     } elsif (@$target[$T_TYPE] == $TT_SETTINGS and $option =~ /^-I/) {
 387       push @{@$target[$T_INCLUDE_PATH]},$option;
 388     } elsif ($option =~ /^-L/) {
 389       push @{@$target[$T_LIBRARY_PATH]},$option;
 390     } elsif ($option =~ /^-l/) {
 391       push @{@$target[$T_IMPORTS]},$';
 392     } elsif (@$target[$T_TYPE] != $TT_SETTINGS and
 393              @$target[$T_TYPE] != $TT_DLL and
 394              $option =~ /^--wrap/) {
 395       @$target[$T_FLAGS]|=$TF_WRAP;
 396     } elsif (@$target[$T_TYPE] != $TT_SETTINGS and $option =~ /^--mfc/) {
 397       @$target[$T_FLAGS]|=$TF_MFC;
 398       if (@$target[$T_TYPE] != $TT_DLL) {
 399         @$target[$T_FLAGS]|=$TF_WRAP;
 400       }
 401     } else {
 402       print STDERR "warning: unknown option \"$option\", ignoring it\n";
 403     }
 404   }
 405 }
 406
 407 ##
 408 # Scans the specified directory to:
 409 # - see if we should create a Makefile in this directory. We normally do
 410 #   so if we find a project file and sources
 411 # - get a list of targets for this directory
 412 # - get the list of source files
 413 sub source_scan_directory
 414 {
 415   # a reference to the parent's project
 416   my $parent_project=$_[0];
 417   # the full relative path to the current directory, including a
 418   # trailing '/', or an empty string if this is the top level directory
 419   my $path=$_[1];
 420   # the name of this directory, including a trailing '/', or an empty
 421   # string if this is the top level directory
 422   my $dirname=$_[2];
 423
 424   # reference to the project for this directory. May not be used
 425   my $project;
 426   # list of targets found in the 'current' directory
 427   my %targets;
 428   # list of sources found in the current directory
 429   my @sources_c=();
 430   my @sources_cxx=();
 431   my @sources_rc=();
 432   my @sources_misc=();
 433   # true if this directory contains a Windows project
 434   my $has_win_project=0;
 435   # If we don't find any executable/library then we might make up targets
 436   # from the list of .dsp/.mak files we find since they usually have the
 437   # same name as their target.
 438   my @dsp_files=();
 439   my @mak_files=();
 440
 441   if (defined $opt_single_target or $dirname eq "") {
 442     # Either there is a single target and thus a single project,
 443     # or we are in the top level directory for which a project
 444     # already exists
 445     $project=$parent_project;
 446   } else {
 447     $project=[];
 448     project_init($project,$path);
 449   }
 450
 451   # First find out what this directory contains:
 452   # collect all sources, targets and subdirectories
 453   my $directory=get_directory_contents($path);
 454   foreach $dentry (@$directory) {
 455     if ($dentry =~ /^\./) {
 456       next;
 457     }
 458     my $fullentry="$path$dentry";
 459     if (-d "$fullentry") {
 460       if ($dentry =~ /^(Release|Debug)/i) {
 461         # These directories are often used to store the object files and the
 462         # resulting executable/library. They should not contain anything else.
 463         my @candidates=grep /\.(exe|dll)$/i, @{get_directory_contents("$fullentry")};
 464         foreach $candidate (@candidates) {
 465           if ($candidate =~ s/\.exe$//i) {
 466             $targets{$candidate}=1;
 467           } elsif ($candidate =~ s/^(.*)\.dll$/lib$1.so/i) {
 468             $targets{$candidate}=1;
 469           }
 470         }
 471       } else {
 472         # Recursively scan this directory. Any source file that cannot be
 473         # attributed to a project in one of the subdirectories will be attributed
 474         # to this project.
 475         source_scan_directory($project,"$fullentry/","$dentry/");
 476       }
 477     } elsif (-f "$fullentry") {
 478       if ($dentry =~ s/\.exe$//i) {
 479         $targets{$dentry}=1;
 480       } elsif ($dentry =~ s/^(.*)\.dll$/lib$1.so/i) {
 481         $targets{$dentry}=1;
 482       } elsif ($dentry =~ /\.c$/i and $dentry !~ /\.spec\.c$/) {
 483         push @sources_c,"$dentry";
 484       } elsif ($dentry =~ /\.(cpp|cxx)$/i) {
 485         push @sources_cxx,"$dentry";
 486       } elsif ($dentry =~ /\.rc$/i) {
 487         push @sources_rc,"$dentry";
 488       } elsif ($dentry =~ /\.(h|hxx|inl|rc2|dlg)$/i) {
 489         push @sources_misc,"$dentry";
 490       } elsif ($dentry =~ /\.dsp$/i) {
 491         push @dsp_files,"$dentry";
 492         $has_win_project=1;
 493       } elsif ($dentry =~ /\.mak$/i) {
 494         push @mak_files,"$dentry";
 495         $has_win_project=1;
 496       } elsif ($dentry =~ /^makefile/i) {
 497         $has_win_project=1;
 498       }
 499     }
 500   }
 501   closedir(DIRECTORY);
 502
 503   # If we have a single target then all we have to do is assign
 504   # all the sources to it and we're done
 505   # FIXME: does this play well with the --interactive mode?
 506   if ($opt_single_target) {
 507     my $target=@{@$project[$P_TARGETS]}[0];
 508     push @{@$target[$T_SOURCES_C]},map "$path$_",@sources_c;
 509     push @{@$target[$T_SOURCES_CXX]},map "$path$_",@sources_cxx;
 510     push @{@$target[$T_SOURCES_RC]},map "$path$_",@sources_rc;
 511     push @{@$target[$T_SOURCES_MISC]},map "$path$_",@sources_misc;
 512     return;
 513   }
 514
 515   my $project_settings=@$project[$P_SETTINGS];
 516   my $source_count=@sources_c+@sources_cxx+@sources_rc+
 517                    @{@$project_settings[$T_SOURCES_C]}+
 518                    @{@$project_settings[$T_SOURCES_CXX]}+
 519                    @{@$project_settings[$T_SOURCES_RC]};
 520   if ($source_count == 0) {
 521     # A project without real sources is not a project, get out!
 522     if ($project!=$parent_project) {
 523       $parent_settings=@$parent_project[$P_SETTINGS];
 524       push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_misc;
 525       push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@{@$project_settings[$T_SOURCES_MISC]};
 526     }
 527     return;
 528   }
 529   #print "targets=",%targets,"\n";
 530   #print "target_count=$target_count\n";
 531   #print "has_win_project=$has_win_project\n";
 532   #print "dirname=$dirname\n";
 533
 534   my $target_count;
 535   if (($has_win_project != 0) or ($dirname eq "")) {
 536     # Deal with cases where we could not find any executable/library, and
 537     # thus have no target, although we did find some sort of windows project.
 538     $target_count=keys %targets;
 539     if ($target_count == 0) {
 540       # Try to come up with a target list based on .dsp/.mak files
 541       my $prj_list;
 542       if (@dsp_files > 0) {
 543         $prj_list=\@dsp_files;
 544       } else {
 545         $prj_list=\@mak_files;
 546       }
 547       foreach $filename (@$prj_list) {
 548         $filename =~ s/\.(dsp|mak)$//i;
 549         if ($opt_target_type == $TT_DLL) {
 550           $filename = "lib$filename.so";
 551         }
 552         $targets{$filename}=1;
 553       }
 554       $target_count=keys %targets;
 555       if ($target_count == 0) {
 556         # Still nothing, try the name of the directory
 557         my $name;
 558         if ($dirname eq "") {
 559           # Bad luck, this is the top level directory!
 560           $name=(split /\//, cwd)[-1];
 561         } else {
 562           $name=$dirname;
 563           # Remove the trailing '/'. Also eliminate whatever is after the last
 564           # '.' as it is likely to be meaningless (.orig, .new, ...)
 565           $name =~ s+(/|\.[^.]*)$++;
 566           if ($name eq "src") {
 567             # 'src' is probably a subdirectory of the real project directory.
 568             # Try again with the parent (if any).
 569             my $parent=$path;
 570             if ($parent =~ s+([^/]*)/[^/]*/$+$1+) {
 571               $name=$parent;
 572             } else {
 573               $name=(split /\//, cwd)[-1];
 574             }
 575           }
 576         }
 577         $name =~ s+(/|\.[^.]*)$++;
 578         if ($opt_target_type == $TT_DLL) {
 579           $name = "lib$name.so";
 580         }
 581         $targets{$name}=1;
 582       }
 583     }
 584
 585     # Ask confirmation to the user if he wishes so
 586     if ($opt_is_interactive == $OPT_ASK_YES) {
 587       my $target_list=join " ",keys %targets;
 588       print "\n*** In $path\n";
 589       print "winemaker found the following list of (potential) targets\n";
 590       print "$target_list\n";
 591       print "Type enter to use it as is, your own comma-separated list of\n";
 592       print "targets, 'none' to assign the source files to a parent directory,\n";
 593       print "or 'ignore' to ignore everything in this directory tree.\n";
 594       print "Target list:\n";
 595       $target_list=<STDIN>;
 596       chomp $target_list;
 597       if ($target_list eq "") {
 598         # Keep the target list as is, i.e. do nothing
 599       } elsif ($target_list eq "none") {
 600         # Empty the target list
 601         undef %targets;
 602       } elsif ($target_list eq "ignore") {
 603         # Ignore this subtree altogether
 604         return;
 605       } else {
 606         undef %targets;
 607         foreach $target (split /,/,$target_list) {
 608           $target =~ s+^\s*++;
 609           $target =~ s+\s*$++;
 610           # Also accept .exe and .dll as a courtesy
 611           $target =~ s+(.*)\.dll$+lib$1.so+;
 612           $target =~ s+\.exe$++;
 613           $targets{$target}=1;
 614         }
 615       }
 616     }
 617   }
 618
 619   # If we have no project at this level, then transfer all
 620   # the sources to the parent project
 621   $target_count=keys %targets;
 622   if ($target_count == 0) {
 623     if ($project!=$parent_project) {
 624       my $parent_settings=@$parent_project[$P_SETTINGS];
 625       push @{@$parent_settings[$T_SOURCES_C]},map "$dirname$_",@sources_c;
 626       push @{@$parent_settings[$T_SOURCES_CXX]},map "$dirname$_",@sources_cxx;
 627       push @{@$parent_settings[$T_SOURCES_RC]},map "$dirname$_",@sources_rc;
 628       push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_misc;
 629       push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@{@$project_settings[$T_SOURCES_MISC]};
 630     }
 631     return;
 632   }
 633
 634   # Otherwise add this project to the project list, except for
 635   # the main project which is already in the list.
 636   if ($dirname ne "") {
 637     push @projects,$project;
 638   }
 639
 640   # Ask for project-wide options
 641   if ($opt_ask_project_options == $OPT_ASK_YES) {
 642     print "Type any project-wide options (-D/-I/-L/-l),\n";
 643     print "or 'skip' to skip the target specific options, or 'never' to not be\n";
 644     print "asked this question again:\n";
 645     my $options=<STDIN>;
 646     chomp $options;
 647     if ($options eq "skip") {
 648       $opt_ask_target_options=$OPT_ASK_SKIP;
 649     } elsif ($options eq "never") {
 650       $opt_ask_project_options="never";
 651     } else {
 652       source_set_options($project_settings,$options);
 653       print "project_settings: defines=@{@$project_settings[$T_DEFINES]}\n";
 654       print "project_settings: includes=@{@$project_settings[$T_INCLUDE_PATH]}\n";
 655     }
 656   }
 657
 658   # - Create the targets
 659   # - Check if we have both libraries and programs
 660   # - Match each target with source files (sort in reverse
 661   #   alphabetical order to get the longest matches first)
 662   my @local_imports=();
 663   my @local_depends=();
 664   my @program_list=();
 665   foreach $target_name (sort { $b cmp $a } keys %targets) {
 666     # Create the target...
 667     my $basename;
 668     my $target=[];
 669     target_init($target);
 670     @$target[$T_NAME]=$target_name;
 671     if ($target_name =~ /^lib(.*)\.so$/) {
 672       @$target[$T_TYPE]=$TT_DLL;
 673       @$target[$T_INIT]=get_default_init($TT_DLL);
 674       @$target[$T_FLAGS]&=~$TF_WRAP;
 675       $basename=$1;
 676       push @local_depends,$target_name;
 677       push @local_imports,$basename;
 678     } else {
 679       @$target[$T_TYPE]=$opt_target_type;
 680       @$target[$T_INIT]=get_default_init($opt_target_type);
 681       $basename=$target_name;
 682       push @program_list,$target;
 683     }
 684     push @{@$project[$P_TARGETS]},$target;
 685
 686     # Ask for target-specific options
 687     if ($opt_ask_target_options == $OPT_ASK_YES) {
 688       print "Specify any link option (-L/-l) specific to the target \"$target_name\"\n";
 689       print " or 'never' to not be asked this question again:\n";
 690       my $options=<STDIN>;
 691       chomp $options;
 692       if ($options eq "never") {
 693         $opt_ask_target_options=$OPT_ASK_NO;
 694       } else {
 695         source_set_options($target,$options);
 696       }
 697     }
 698     if (@$target[$T_FLAGS] & $TF_MFC) {
 699       @$project_settings[$T_FLAGS]|=$TF_MFC;
 700       push @{@$target[$T_LIBRARY_PATH]},"\$(MFC_LIBRARY_PATH)";
 701       push @{@$target[$T_IMPORTS]},"mfc";
 702     }
 703
 704     # Match sources...
 705     if ($target_count == 1) {
 706       push @{@$target[$T_SOURCES_C]},@sources_c;
 707       push @{@$target[$T_SOURCES_CXX]},@sources_cxx;
 708       push @{@$target[$T_SOURCES_RC]},@sources_rc;
 709       push @{@$target[$T_SOURCES_MISC]},@sources_misc;
 710       @sources_c=();
 711       @sources_cxx=();
 712       @sources_rc=();
 713       @sources_misc=();
 714     } else {
 715       foreach $source (@sources_c) {
 716         if ($source =~ /^$basename/i) {
 717           push @{@$target[$T_SOURCES_C]},$source;
 718           $source="";
 719         }
 720       }
 721       foreach $source (@sources_cxx) {
 722         if ($source =~ /^$basename/i) {
 723           push @{@$target[$T_SOURCES_CXX]},$source;
 724           $source="";
 725         }
 726       }
 727       foreach $source (@sources_rc) {
 728         if ($source =~ /^$basename/i) {
 729           push @{@$target[$T_SOURCES_RC]},$source;
 730           $source="";
 731         }
 732       }
 733       foreach $source (@sources_misc) {
 734         if ($source =~ /^$basename/i) {
 735           push @{@$target[$T_SOURCES_MISC]},$source;
 736           $source="";
 737         }
 738       }
 739     }
 740     @$target[$T_SOURCES_C]=[sort @{@$target[$T_SOURCES_C]}];
 741     @$target[$T_SOURCES_CXX]=[sort @{@$target[$T_SOURCES_CXX]}];
 742     @$target[$T_SOURCES_RC]=[sort @{@$target[$T_SOURCES_RC]}];
 743     @$target[$T_SOURCES_MISC]=[sort @{@$target[$T_SOURCES_MISC]}];
 744   }
 745   if ($opt_ask_target_options == $OPT_ASK_SKIP) {
 746     $opt_ask_target_options=$OPT_ASK_YES;
 747   }
 748
 749   if (@$project_settings[$T_FLAGS] & $TF_MFC) {
 750     push @{@$project_settings[$T_INCLUDE_PATH]},"\$(MFC_INCLUDE_PATH)";
 751   }
 752   # The sources that did not match, if any, go to the extra
 753   # source list of the project settings
 754   foreach $source (@sources_c) {
 755     if ($source ne "") {
 756       push @{@$project_settings[$T_SOURCES_C]},$source;
 757     }
 758   }
 759   @$project_settings[$T_SOURCES_C]=[sort @{@$project_settings[$T_SOURCES_C]}];
 760   foreach $source (@sources_cxx) {
 761     if ($source ne "") {
 762       push @{@$project_settings[$T_SOURCES_CXX]},$source;
 763     }
 764   }
 765   @$project_settings[$T_SOURCES_CXX]=[sort @{@$project_settings[$T_SOURCES_CXX]}];
 766   foreach $source (@sources_rc) {
 767     if ($source ne "") {
 768       push @{@$project_settings[$T_SOURCES_RC]},$source;
 769     }
 770   }
 771   @$project_settings[$T_SOURCES_RC]=[sort @{@$project_settings[$T_SOURCES_RC]}];
 772   foreach $source (@sources_misc) {
 773     if ($source ne "") {
 774       push @{@$project_settings[$T_SOURCES_MISC]},$source;
 775     }
 776   }
 777   @$project_settings[$T_SOURCES_MISC]=[sort @{@$project_settings[$T_SOURCES_MISC]}];
 778
 779   # Finally if we are building both libraries and programs in
 780   # this directory, then the programs should be linked with all
 781   # the libraries
 782   if (@local_imports > 0 and @program_list > 0) {
 783     foreach $target (@program_list) {
 784       push @{@$target[$T_LIBRARY_PATH]},".";
 785       push @{@$target[$T_IMPORTS]},@local_imports;
 786       push @{@$target[$T_DEPENDS]},@local_depends;
 787     }
 788   }
 789 }
 790
 791 ##
 792 # Scan the source directories in search of things to build
 793 sub source_scan
 794 {
 795   my $main_target=@{$main_project[$P_TARGETS]}[0];
 796
 797   # If there's a single target then this is going to be the default target
 798   if (defined $opt_single_target) {
 799     if ($opt_target_type == $TT_DLL) {
 800       @$main_target[$T_NAME]="lib$opt_single_target.so";
 801     } else {
 802       @$main_target[$T_NAME]="$opt_single_target";
 803     }
 804     @$main_target[$T_TYPE]=$opt_target_type;
 805   }
 806
 807   # The main directory is always going to be there
 808   push @projects,\@main_project;
 809
 810   # Now scan the directory tree looking for source files and, maybe, targets
 811   print "Scanning the source directories...\n";
 812   source_scan_directory(\@main_project,"","");
 813
 814   @projects=sort { @$a[$P_PATH] cmp @$b[$P_PATH] } @projects;
 815 }
 816
 817
 818
 819 #####
 820 #
 821 # 'vc.dsp'-based Project analysis
 822 #
 823 #####
 824
 825 #sub analyze_vc_dsp
 826 #{
 827 #
 828 #}
 829
 830
 831
 832 #####
 833 #
 834 # Creating the wrapper targets
 835 #
 836 #####
 837
 838 sub create_wrappers
 839 {
 840   foreach $project (@projects) {
 841     foreach $target (@{@$project[$P_TARGETS]}) {
 842       if ((@$target[$T_FLAGS] & $TF_WRAP) != 0) {
 843         my $wrapper=[];
 844         target_init($wrapper);
 845         @$wrapper[$T_NAME]=@$target[$T_NAME];
 846         @$wrapper[$T_TYPE]=@$target[$T_TYPE];
 847         @$wrapper[$T_INIT]=get_default_init(@$target[$T_TYPE]);
 848         @$wrapper[$T_FLAGS]=$TF_WRAPPER | (@$target[$T_FLAGS] & $TF_MFC);
 849         push @{@$wrapper[$T_SOURCES_C]},"@$wrapper[$T_NAME]_wrapper.c";
 850
 851         my $index=bsearch(@$target[$T_SOURCES_C],"@$wrapper[$T_NAME]_wrapper.c");
 852         if (defined $index) {
 853           splice(@{@$target[$T_SOURCES_C]},$index,1);
 854         }
 855         @$target[$T_NAME]="lib@$target[$T_NAME].so";
 856         @$target[$T_TYPE]=$TT_DLL;
 857
 858         push @{@$project[$P_TARGETS]},$wrapper;
 859       }
 860     }
 861   }
 862 }
 863
 864
 865
 866 #####
 867 #
 868 # Source search
 869 #
 870 #####
 871
 872 ##
 873 # Performs a directory traversal and renames the files so that:
 874 # - they have the case desired by the user
 875 # - their extension is of the appropriate case
 876 # - they don't contain annoying characters like ' ', '$', '#', ...
 877 sub fix_file_and_directory_names
 878 {
 879   my $dirname=$_[0];
 880
 881   if (opendir(DIRECTORY, "$dirname")) {
 882     foreach $dentry (readdir DIRECTORY) {
 883       if ($dentry =~ /^\./ or $dentry eq "CVS") {
 884         next;
 885       }
 886       # Set $warn to 1 if the user should be warned of the renaming
 887       my $warn=0;
 888
 889       # autoconf and make don't support these characters well
 890       my $new_name=$dentry;
 891       $new_name =~ s/[ \$]/_/g;
 892
 893       # Our Make.rules supports all-uppercase and all-lowercase extensions.
 894       # The others must be fixed.
 895       if (-f "$dirname/$new_name") {
 896         if ($new_name =~ /\.cpp/i and $new_name !~ /\.(cpp|CPP)/) {
 897           $new_name =~ s/\.cpp$/.cpp/i;
 898         }
 899         if ($new_name =~ s/\.cxx$/.cpp/i) {
 900           $warn=1;
 901         }
 902         if ($new_name =~ /\.rc/i and $new_name !~ /\.(rc|RC)/) {
 903           $new_name =~ s/\.rc$/.rc/i;
 904         }
 905         # And this last one is to avoid confusion then running make
 906         if ($new_name =~ s/^makefile$/makefile.win/) {
 907           $warn=1;
 908         }
 909       }
 910
 911       # Adjust the case to the user's preferences
 912       if (($opt_lower == $OPT_LOWER_ALL and $dentry =~ /[A-Z]/) or
 913           ($opt_lower == $OPT_LOWER_UPPERCASE and $dentry !~ /[a-z]/)
 914          ) {
 915         $new_name=lc $new_name;
 916       }
 917
 918       # And finally, perform the renaming
 919       if ($new_name ne $dentry) {
 920         if ($warn) {
 921           print STDERR "warning: in \"$dirname\", renaming \"$dentry\" to \"$new_name\"\n";
 922         }
 923         if (!rename("$dirname/$dentry","$dirname/$new_name")) {
 924           print STDERR "error: in \"$dirname\", unable to rename \"$dentry\" to \"$new_name\"\n";
 925           print STDERR "       $!\n";
 926           $new_name=$dentry;
 927         }
 928       }
 929       if (-d "$dirname/$new_name") {
 930         fix_file_and_directory_names("$dirname/$new_name");
 931       }
 932     }
 933     closedir(DIRECTORY);
 934   }
 935 }
 936
 937
 938
 939 #####
 940 #
 941 # Source fixup
 942 #
 943 #####
 944
 945 ##
 946 # This maps a directory name to a reference to an array listing
 947 # its contents (files and directories)
 948 my %directories;
 949
 950 ##
 951 # Retrieves the contents of the specified directory.
 952 # We either get it from the directories hashtable which acts as a
 953 # cache, or use opendir, readdir, closedir and store the result
 954 # in the hashtable.
 955 sub get_directory_contents
 956 {
 957   my $dirname=$_[0];
 958   my $directory;
 959
 960   #print "getting the contents of $dirname\n";
 961
 962   # check for a cached version
 963   $dirname =~ s+/$++;
 964   if ($dirname eq "") {
 965     $dirname=cwd;
 966   }
 967   $directory=$directories{$dirname};
 968   if (defined $directory) {
 969     #print "->@$directory\n";
 970     return $directory;
 971   }
 972
 973   # Read this directory
 974   if (opendir(DIRECTORY, "$dirname")) {
 975     my @files=readdir DIRECTORY;
 976     closedir(DIRECTORY);
 977     $directory=\@files;
 978   } else {
 979     # Return an empty list
 980     #print "error: cannot open $dirname\n";
 981     my @files;
 982     $directory=\@files;
 983   }
 984   #print "->@$directory\n";
 985   $directories{$dirname}=$directory;
 986   return $directory;
 987 }
 988
 989 ##
 990 # Try to find a file for the specified filename. The attempt is
 991 # case-insensitive which is why it's not trivial. If a match is
 992 # found then we return the pathname with the correct case.
 993 sub search_from
 994 {
 995   my $dirname=$_[0];
 996   my $path=$_[1];
 997   my $real_path="";
 998
 999   if ($dirname eq "" or $dirname eq ".") {
1000     $dirname=cwd;
1001   } elsif ($dirname =~ m+^[^/]+) {
1002     $dirname=cwd . "/" . $dirname;
1003   }
1004   if ($dirname !~ m+/$+) {
1005     $dirname.="/";
1006   }
1007
1008   foreach $component (@$path) {
1009     #print "  looking for $component in \"$dirname\"\n";
1010     if ($component eq ".") {
1011       # Pass it as is
1012       $real_path.="./";
1013     } elsif ($component eq "..") {
1014       # Go up one level
1015       $dirname=dirname($dirname) . "/";
1016       $real_path.="../";
1017     } else {
1018       my $directory=get_directory_contents $dirname;
1019       my $found;
1020       foreach $dentry (@$directory) {
1021         if ($dentry =~ /^$component$/i) {
1022           $dirname.="$dentry/";
1023           $real_path.="$dentry/";
1024           $found=1;
1025           last;
1026         }
1027       }
1028       if (!defined $found) {
1029         # Give up
1030         #print "  could not find $component in $dirname\n";
1031         return;
1032       }
1033     }
1034   }
1035   $real_path=~ s+/$++;
1036   #print "  ->found $real_path\n";
1037   return $real_path;
1038 }
1039
1040 ##
1041 # Performs a case-insensitive search for the specified file in the
1042 # include path.
1043 # $line is the line number that should be referenced when an error occurs
1044 # $filename is the file we are looking for
1045 # $dirname is the directory of the file containing the '#include' directive
1046 #    if '"' was used, it is an empty string otherwise
1047 # $project and $target specify part of the include path
1048 sub get_real_include_name
1049 {
1050   my $line=$_[0];
1051   my $filename=$_[1];
1052   my $dirname=$_[2];
1053   my $project=$_[3];
1054   my $target=$_[4];
1055
1056   if ($filename =~ /^([a-zA-Z]:)?[\/]/ or $filename =~ /^[a-zA-Z]:[\/]?/) {
1057     # This is not a relative path, we cannot make any check
1058     my $warning="path:$filename";
1059     if (!defined $warnings{$warning}) {
1060       $warnings{$warning}="1";
1061       print STDERR "warning: cannot check the case of absolute pathnames:\n";
1062       print STDERR "$line:   $filename\n";
1063     }
1064   } else {
1065     # Here's how we proceed:
1066     # - split the filename we look for into its components
1067     # - then for each directory in the include path
1068     #   - trace the directory components starting from that directory
1069     #   - if we fail to find a match at any point then continue with
1070     #     the next directory in the include path
1071     #   - otherwise, rejoice, our quest is over.
1072     my @file_components=split /[\/\\]+/, $filename;
1073     #print "Searching for $filename from @$project[$P_PATH]\n";
1074
1075     my $real_filename;
1076     if ($dirname ne "") {
1077       #print "  in $dirname (include \"\")\n";
1078       $real_filename=search_from($dirname,\@file_components);
1079       if (defined $real_filename) {
1080         return $real_filename;
1081       }
1082     }
1083     my $project_settings=@$project[$P_SETTINGS];
1084     foreach $dirname (@{@$target[$T_INCLUDE_PATH]}, @{@$project_settings[$T_INCLUDE_PATH]}) {
1085       #print "  in $dirname\n";
1086       $real_filename=search_from("$dirname",\@file_components);
1087       if (defined $real_filename) {
1088         return $real_filename;
1089       }
1090     }
1091     my $dotdotpath=@$project[$P_PATH];
1092     $dotdotpath =~ s/[^\/]+/../g;
1093     foreach $dirname (@{$global_settings[$T_INCLUDE_PATH]}) {
1094       my $ipath;
1095       if (!is_absolute($dirname)) {
1096         $ipath="$dotdotpath$dirname";
1097       } else {
1098         $ipath=$dirname;
1099       }
1100       #print "  in $ipath  (global setting)\n";
1101       $real_filename=search_from("$dirname",\@file_components);
1102       if (defined $real_filename) {
1103         return $real_filename;
1104       }
1105     }
1106   }
1107   $filename =~ s+\\\\+/+g; # in include ""
1108   $filename =~ s+\\+/+g; # in include <> !
1109   if ($filename =~ /^[A-Z_.\/\\]*$/) {
1110     #FIXME: should this depend on --lower-uppercase & co???
1111     return lc "$filename";
1112   }
1113   return $filename;
1114 }
1115
1116 ##
1117 # 'Parses' a source file and fixes constructs that would not work with
1118 # Winelib. The parsing is rather simple and not all non-portable features
1119 # are corrected. The most important feature that is corrected is the case
1120 # and path separator of '#include' directives. This requires that each
1121 # source file be associated to a project & target so that the proper
1122 # include path is used.
1123 sub fix_file
1124 {
1125   my $filename=$_[0];
1126   my $project=$_[1];
1127   my $target=$_[2];
1128   $filename="@$project[$P_PATH]$filename";
1129   if (! -e $filename) {
1130     return;
1131   }
1132
1133   my $is_rc=($filename =~ /\.(rc2?|dlg)$/i);
1134   my $dirname=dirname($filename);
1135   my $is_mfc=0;
1136   if (defined $target and (@$target[$T_FLAGS] & $TF_MFC)) {
1137     $is_mfc=1;
1138   }
1139
1140   print "  $filename\n";
1141   #FIXME:assuming that because there is a .bak file, this is what we want is
1142   #probably flawed. Or is it???
1143   if (! -e "$filename.bak") {
1144     if (!copy("$filename","$filename.bak")) {
1145       print STDERR "error: unable to make a backup of $filename:\n";
1146       print STDERR "       $!\n";
1147       return;
1148     }
1149   }
1150   if (!open(FILEI,"$filename.bak")) {
1151     print STDERR "error: unable to open $filename.bak for reading:\n";
1152     print STDERR "       $!\n";
1153     return;
1154   }
1155   if (!open(FILEO,">$filename")) {
1156     print STDERR "error: unable to open $filename for writing:\n";
1157     print STDERR "       $!\n";
1158     return;
1159   }
1160   my $line=0;
1161   my $modified=0;
1162   my $rc_block_depth=0;
1163   my $rc_textinclude_state=0;
1164   while (<FILEI>) {
1165     $line++;
1166     $_ =~ s/\r\n$/\n/;
1167     if ($is_rc and !$is_mfc and /^(\s*\#\s*include\s*)\"afxres\.h\"/) {
1168       # VC6 automatically includes 'afxres.h', an MFC specific header, in
1169       # the RC files it generates (even in non-MFC projects). So we replace
1170       # it with 'winres.h' its very close standard cousin so that non MFC
1171       # projects can compile in Wine without the MFC sources. This does not
1172       # harm VC but it will put 'afxres.h' back the next time the file is
1173       # edited.
1174       my $warning="mfc:afxres.h";
1175       if (!defined $warnings{$warning}) {
1176         $warnings{$warning}="1";
1177         print STDERR "warning: In non-MFC projects, winemaker replaces the MFC specific header 'afxres.h' with 'winres.h'\n";
1178         print STDERR "warning: the above warning is issued only once\n";
1179       }
1180       print FILEO "/* winemaker: $1\"afxres.h\" */\n";
1181       print FILEO "$1\"winres.h\"$'";
1182       $modified=1;
1183     } elsif (/^(\s*\#\s*include\s*)([\"<])([^\"]+)([\">])/) {
1184       my $from_file=($2 eq "<"?"":$dirname);
1185       my $real_include_name=get_real_include_name($line,$3,$from_file,$project,$target);
1186       print FILEO "$1$2$real_include_name$4$'";
1187       $modified|=($real_include_name ne $3);
1188     } elsif (/^(\s*\#\s*pragma\s*pack\s*\((\s*push\s*,?)?\s*)(\w*)(\s*\))/) {
1189       my $pragma_header=$1;
1190       my $size=$3;
1191       my $pragma_trailer=$4;
1192       #print "$pragma_header$size$pragma_trailer$'";
1193       #print "pragma push: size=$size\n";
1194       print FILEO "/* winemaker: $pragma_header$size$pragma_trailer */\n";
1195       $line++;
1196       if ($size eq "pop") {
1197         print FILEO "#include <poppack.h>$'";
1198       } elsif ($size eq "1") {
1199         print FILEO "#include <pshpack1.h>$'";
1200       } elsif ($size eq "2") {
1201         print FILEO "#include <pshpack2.h>$'";
1202       } elsif ($size eq "8") {
1203         print FILEO "#include <pshpack8.h>$'";
1204       } elsif ($size eq "4" or $size eq "") {
1205         print FILEO "#include <pshpack4.h>$'";
1206       } else {
1207         my $warning="pack:$size";
1208         if (!defined $warnings{$warning}) {
1209           $warnings{$warning}="1";
1210           print STDERR "warning: assuming that the value of $size is 4 in\n";
1211           print STDERR "$line:   $pragma_header$size$pragma_trailer\n";
1212           print STDERR "warning: the above warning is issued only once\n";
1213         }
1214         print FILEO "#include <pshpack4.h>$'";
1215         $modified=1;
1216       }
1217     } elsif ($is_rc) {
1218       if ($rc_block_depth == 0 and /^(\w+\s+(BITMAP|CURSOR|FONT|FONTDIR|ICON|MESSAGETABLE|TEXT)\s+((DISCARDABLE|FIXED|IMPURE|LOADONCALL|MOVEABLE|PRELOAD|PURE)\s+)*)([\"<]?)([^\">\r\n]+)([\">]?)/) {
1219         my $from_file=($5 eq "<"?"":$dirname);
1220         my $real_include_name=get_real_include_name($line,$6,$from_file,$project,$target);
1221         print FILEO "$1$5$real_include_name$7$'";
1222         $modified|=($real_include_name ne $6);
1223       } elsif (/^(\s*RCINCLUDE\s*)([\"<]?)([^\">\r\n]+)([\">]?)/) {
1224         my $from_file=($2 eq "<"?"":$dirname);
1225         my $real_include_name=get_real_include_name($line,$3,$from_file,$project,$target);
1226         print FILEO "$1$2$real_include_name$4$'";
1227         $modified|=($real_include_name ne $3);
1228       } elsif ($is_rc and !$is_mfc and $rc_block_depth == 0 and /^\s*\d+\s+TEXTINCLUDE\s*/) {
1229         $rc_textinclude_state=1;
1230         print FILEO;
1231       } elsif ($rc_textinclude_state == 3 and /^(\s*\"\#\s*include\s*\"\")afxres\.h(\"\"\\r\\n\")/) {
1232         print FILEO "$1winres.h$2$'";
1233         $modified=1;
1234       } elsif (/^\s*BEGIN(\W.*)?$/) {
1235         $rc_textinclude_state|=2;
1236         $rc_block_depth++;
1237         print FILEO;
1238       } elsif (/^\s*END(\W.*)?$/) {
1239         $rc_textinclude_state=0;
1240         if ($rc_block_depth>0) {
1241           $rc_block_depth--;
1242         }
1243         print FILEO;
1244       } else {
1245         print FILEO;
1246       }
1247     } else {
1248       print FILEO;
1249     }
1250   }
1251   close(FILEI);
1252   close(FILEO);
1253   if ($opt_backup == 0 or $modified == 0) {
1254     if (!unlink("$filename.bak")) {
1255       print STDERR "error: unable to delete $filename.bak:\n";
1256       print STDERR "       $!\n";
1257     }
1258   }
1259 }
1260
1261 ##
1262 # Analyzes each source file in turn to find and correct issues
1263 # that would cause it not to compile.
1264 sub fix_source
1265 {
1266   print "Fixing the source files...\n";
1267   foreach $project (@projects) {
1268     foreach $target (@$project[$P_SETTINGS],@{@$project[$P_TARGETS]}) {
1269       if (@$target[$T_FLAGS] & $TF_WRAPPER) {
1270         next;
1271       }
1272       foreach $source (@{@$target[$T_SOURCES_C]}, @{@$target[$T_SOURCES_CXX]}, @{@$target[$T_SOURCES_RC]}, @{@$target[$T_SOURCES_MISC]}) {
1273         fix_file($source,$project,$target);
1274       }
1275     }
1276   }
1277 }
1278
1279
1280
1281 #####
1282 #
1283 # File generation
1284 #
1285 #####
1286
1287 ##
1288 # Generates a target's .spec file
1289 sub generate_spec_file
1290 {
1291   my $path=$_[0];
1292   my $target=$_[1];
1293   my $project_settings=$_[2];
1294
1295   my $basename=@$target[$T_NAME];
1296   $basename =~ s+\.so$++;
1297   if (@$target[$T_FLAGS] & $TF_WRAP) {
1298     $basename =~ s+^lib++;
1299   } elsif (@$target[$T_FLAGS] & $TF_WRAPPER) {
1300     $basename.="_wrapper";
1301   }
1302
1303   if (!open(FILEO,">$path$basename.spec")) {
1304     print STDERR "error: could not open \"$path$basename.spec\" for writing\n";
1305     print STDERR "       $!\n";
1306     return;
1307   }
1308
1309   my $canon=canonize($basename);
1310   print FILEO "name    $canon\n";
1311   print FILEO "type    win32\n";
1312   if (@$target[$T_TYPE] == $TT_GUIEXE) {
1313     print FILEO "mode    guiexe\n";
1314   } elsif (@$target[$T_TYPE] == $TT_CUIEXE) {
1315     print FILEO "mode    cuiexe\n";
1316   } else {
1317     print FILEO "mode    dll\n";
1318   }
1319   if (defined @$target[$T_INIT] and ((@$target[$T_FLAGS] & $TF_WRAP) == 0)) {
1320     print FILEO "init    @$target[$T_INIT]\n";
1321   }
1322   if (@{@$target[$T_SOURCES_RC]} > 0) {
1323     if (@{@$target[$T_SOURCES_RC]} > 1) {
1324       print STDERR "warning: the target $basename has more than one RC file. Modify the Makefile.in to remove redundant RC files, and fix the spec file\n";
1325     }
1326     my $rcname=@{@$target[$T_SOURCES_RC]}[0];
1327     $rcname =~ s+\.rc$++i;
1328     print FILEO "rsrc    $rcname.res\n";
1329   }
1330   print FILEO "\n";
1331   # FIXME: we should try to remove duplicates in the import list
1332   foreach $library (@{$global_settings[$T_IMPORTS]}) {
1333     print FILEO "import $library\n";
1334   }
1335   if (defined $project_settings) {
1336     foreach $library (@{@$project_settings[$T_IMPORTS]}) {
1337       print FILEO "import $library\n";
1338     }
1339   }
1340   foreach $library (@{@$target[$T_IMPORTS]}) {
1341     print FILEO "import $library\n";
1342   }
1343
1344   # Don't forget to export the 'Main' function for wrapped executables,
1345   # except for MFC ones!
1346   if (@$target[$T_FLAGS] == $TF_WRAP) {
1347     if (@$target[$T_TYPE] == $TT_GUIEXE) {
1348       print FILEO "\n@ stdcall @$target[$T_INIT](long long ptr long) @$target[$T_INIT]\n";
1349     } elsif (@$target[$T_TYPE] == $TT_CUIEXE) {
1350       print FILEO "\n@ stdcall @$target[$T_INIT](long ptr ptr) @$target[$T_INIT]\n";
1351     } else {
1352       print FILEO "\n@ stdcall @$target[$T_INIT](ptr long ptr) @$target[$T_INIT]\n";
1353     }
1354   }
1355
1356   close(FILEO);
1357 }
1358
1359 ##
1360 # Generates a target's wrapper file
1361 sub generate_wrapper_file
1362 {
1363   my $path=$_[0];
1364   my $target=$_[1];
1365
1366   if (!defined $templates{"wrapper.c"}) {
1367     print STDERR "winemaker: internal error: No template called 'wrapper.c'\n";
1368     return;
1369   }
1370
1371   if (!open(FILEO,">$path@$target[$T_NAME]_wrapper.c")) {
1372     print STDERR "error: unable to open \"$path$basename.c\" for writing:\n";
1373     print STDERR "       $!\n";
1374     return;
1375   }
1376   my $app_name="\"@$target[$T_NAME]\"";
1377   my $app_type=(@$target[$T_TYPE]==$TT_GUIEXE?"GUIEXE":"CUIEXE");
1378   my $app_init=(@$target[$T_TYPE]==$TT_GUIEXE?"\"WinMain\"":"\"main\"");
1379   my $app_mfc=(@$target[$T_FLAGS] & $TF_MFC?"\"mfc\"":NULL);
1380   foreach $line (@{$templates{"wrapper.c"}}) {
1381     $line =~ s/\#\#WINEMAKER_APP_NAME\#\#/$app_name/;
1382     $line =~ s/\#\#WINEMAKER_APP_TYPE\#\#/$app_type/;
1383     $line =~ s/\#\#WINEMAKER_APP_INIT\#\#/$app_init/;
1384     $line =~ s/\#\#WINEMAKER_APP_MFC\#\#/$app_mfc/;
1385     print FILEO $line;
1386   }
1387   close(FILEO);
1388 }
1389
1390 ##
1391 # A convenience function to generate all the lists (defines,
1392 # C sources, C++ source, etc.) in the Makefile
1393 sub generate_list
1394 {
1395   my $name=$_[0];
1396   my $last=$_[1];
1397   my $list=$_[2];
1398   my $data=$_[3];
1399
1400   if ($name) {
1401     printf FILEO "%-9s =",$name;
1402   }
1403   if (defined $list and @$list > 0) {
1404     foreach $item (@$list) {
1405       my $value;
1406       if (defined $data) {
1407         $value=&$data($item);
1408       } else {
1409         $value=$item;
1410       }
1411       if ($value ne "") {
1412         print FILEO " \\\n\t$value";
1413       }
1414     }
1415   }
1416   if ($last) {
1417     print FILEO "\n\n";
1418   }
1419 }
1420
1421 ##
1422 # Generates a project's Makefile.in and all the target files
1423 sub generate_project_files
1424 {
1425   my $project=$_[0];
1426   my $project_settings=@$project[$P_SETTINGS];
1427   my @library_list=();
1428   my @program_list=();
1429
1430   # Then sort the targets and separate the libraries from the programs
1431   foreach $target (sort { @$a[$T_NAME] cmp @$b[$T_NAME] } @{@$project[$P_TARGETS]}) {
1432     if (@$target[$T_TYPE] == $TT_DLL) {
1433       push @library_list,$target;
1434     } else {
1435       push @program_list,$target;
1436     }
1437   }
1438   @$project[$P_TARGETS]=[];
1439   push @{@$project[$P_TARGETS]}, @library_list;
1440   push @{@$project[$P_TARGETS]}, @program_list;
1441
1442   if (!open(FILEO,">@$project[$P_PATH]Makefile.in")) {
1443     print STDERR "error: could not open \"@$project[$P_PATH]/Makefile.in\" for writing\n";
1444     print STDERR "       $!\n";
1445     return;
1446   }
1447
1448   print FILEO "### Generic autoconf variables\n\n";
1449   print FILEO "TOPSRCDIR = \@top_srcdir\@\n";
1450   print FILEO "TOPOBJDIR = .\n";
1451   print FILEO "SRCDIR    = \@srcdir\@\n";
1452   print FILEO "VPATH     = \@srcdir\@\n";
1453   print FILEO "\n";
1454   if (@$project[$P_PATH] eq "") {
1455     # This is the main project. It is also responsible for recursively
1456     # calling the other projects
1457     generate_list("SUBDIRS",1,\@projects,sub
1458                   {
1459                     if ($_[0] != \@main_project) {
1460                       my $subdir=@{$_[0]}[$P_PATH];
1461                       $subdir =~ s+/$++;
1462                       return $subdir;
1463                     }
1464                     # Eliminating the main project by returning undefined!
1465                   });
1466   }
1467   if (@{@$project[$P_TARGETS]} > 0) {
1468     generate_list("LIBRARIES",1,\@library_list,sub
1469                   {
1470                     return @{$_[0]}[$T_NAME];
1471                   });
1472     generate_list("PROGRAMS",1,\@program_list,sub
1473                   {
1474                     return @{$_[0]}[$T_NAME];
1475                   });
1476     print FILEO "\n\n";
1477
1478     print FILEO "### Global settings\n\n";
1479     # Make it so that the project-wide settings override the global settings
1480     generate_list("DEFINES",0,@$project_settings[$T_DEFINES],sub
1481                   {
1482                     return "$_[0]";
1483                   });
1484     generate_list("",1,$global_settings[$T_DEFINES],sub
1485                   {
1486                     return "$_[0]";
1487                   });
1488     generate_list("INCLUDE_PATH",$no_extra,@$project_settings[$T_INCLUDE_PATH],sub
1489                   {
1490                     return "$_[0]";
1491                   });
1492     generate_list("",1,$global_settings[$T_INCLUDE_PATH],sub
1493                   {
1494                     if ($_[0] !~ /^-I/) {
1495                       return "$_[0]";
1496                     }
1497                     if (is_absolute($')) {
1498                       return "$_[0]";
1499                     }
1500                     return "\$(TOPSRCDIR)/$_[0]";
1501                   });
1502     generate_list("LIBRARY_PATH",$no_extra,@$project_settings[$T_LIBRARY_PATH],sub
1503                   {
1504                     return "$_[0]";
1505                   });
1506     generate_list("",1,$global_settings[$T_LIBRARY_PATH],sub
1507                   {
1508                     if ($_[0] !~ /^-L/) {
1509                       return "$_[0]";
1510                     }
1511                     if (is_absolute($')) {
1512                       return "$_[0]";
1513                     }
1514                     return "\$(TOPSRCDIR)/$_[0]";
1515                   });
1516     generate_list("IMPORTS",$no_extra,@$project_settings[$T_IMPORTS],sub
1517                   {
1518                     return "$_[0]";
1519                   });
1520     generate_list("",1,$global_settings[$T_IMPORTS],sub
1521                   {
1522                     return "$_[0]";
1523                   });
1524     print FILEO "\n\n";
1525
1526     my $extra_source_count=@{@$project_settings[$T_SOURCES_C]}+
1527                            @{@$project_settings[$T_SOURCES_CXX]}+
1528                            @{@$project_settings[$T_SOURCES_RC]};
1529     my $no_extra=($extra_source_count == 0);
1530     if (!$no_extra) {
1531       print FILEO "### Extra source lists\n\n";
1532       generate_list("EXTRA_C_SRCS",1,@$project_settings[$T_SOURCES_C]);
1533       generate_list("EXTRA_CXX_SRCS",1,@$project_settings[$T_SOURCES_CXX]);
1534       generate_list("EXTRA_RC_SRCS",1,@$project_settings[$T_SOURCES_RC]);
1535       print FILEO "EXTRA_OBJS = \$(EXTRA_C_SRCS:.c=.o) \$(EXTRA_CXX_SRCS:.cpp=.o)\n";
1536       print FILEO "\n\n";
1537     }
1538
1539     # Iterate over all the targets...
1540     foreach $target (@{@$project[$P_TARGETS]}) {
1541       print FILEO "\n### @$target[$T_NAME] sources and settings\n\n";
1542       my $canon=canonize("@$target[$T_NAME]");
1543       $canon =~ s+_so$++;
1544       generate_list("${canon}_C_SRCS",1,@$target[$T_SOURCES_C]);
1545       generate_list("${canon}_CXX_SRCS",1,@$target[$T_SOURCES_CXX]);
1546       generate_list("${canon}_RC_SRCS",1,@$target[$T_SOURCES_RC]);
1547       my $basename=@$target[$T_NAME];
1548       $basename =~ s+\.so$++;
1549       if (@$target[$T_FLAGS] & $TF_WRAP) {
1550         $basename =~ s+^lib++;
1551       } elsif (@$target[$T_FLAGS] & $TF_WRAPPER) {
1552         $basename.="_wrapper";
1553       }
1554       generate_list("${canon}_SPEC_SRCS",1,[ "$basename.spec"]);
1555       generate_list("${canon}_LIBRARY_PATH",1,@$target[$T_LIBRARY_PATH],sub
1556                     {
1557                       return "$_[0]";
1558                     });
1559       generate_list("${canon}_IMPORTS",1,@$target[$T_IMPORTS],sub
1560                     {
1561                       return "$_[0]";
1562                     });
1563       generate_list("${canon}_DEPENDS",1,@$target[$T_DEPENDS],sub
1564                     {
1565                       return "$_[0]";
1566                     });
1567       print FILEO "${canon}_OBJS = \$(${canon}_SPEC_SRCS:.spec=.spec.o) \$(${canon}_C_SRCS:.c=.o) \$(${canon}_CXX_SRCS:.cpp=.o) \$(EXTRA_OBJS)\n";
1568       print FILEO "\n\n";
1569     }
1570     print FILEO "### Global source lists\n\n";
1571     generate_list("C_SRCS",$no_extra,@$project[$P_TARGETS],sub
1572                   {
1573                     my $canon=canonize(@{$_[0]}[$T_NAME]);
1574                     $canon =~ s+_so$++;
1575                     return "\$(${canon}_C_SRCS)";
1576                   });
1577     if (!$no_extra) {
1578       generate_list("",1,[ "\$(EXTRA_C_SRCS)" ]);
1579     }
1580     generate_list("CXX_SRCS",$no_extra,@$project[$P_TARGETS],sub
1581                   {
1582                     my $canon=canonize(@{$_[0]}[$T_NAME]);
1583                     $canon =~ s+_so$++;
1584                     return "\$(${canon}_CXX_SRCS)";
1585                   });
1586     if (!$no_extra) {
1587       generate_list("",1,[ "\$(EXTRA_CXX_SRCS)" ]);
1588     }
1589     generate_list("RC_SRCS",$no_extra,@$project[$P_TARGETS],sub
1590                   {
1591                     my $canon=canonize(@{$_[0]}[$T_NAME]);
1592                     $canon =~ s+_so$++;
1593                     return "\$(${canon}_RC_SRCS)";
1594                   });
1595     if (!$no_extra) {
1596       generate_list("",1,@$project_settings[$T_SOURCES_RC]);
1597     }
1598     generate_list("SPEC_SRCS",1,@$project[$P_TARGETS],sub
1599                   {
1600                     my $canon=canonize(@{$_[0]}[$T_NAME]);
1601                     $canon =~ s+_so$++;
1602                     return "\$(${canon}_SPEC_SRCS)";
1603                   });
1604     print FILEO "\n\n";
1605   }
1606
1607   print FILEO "### Generic autoconf targets\n\n";
1608   if (@$project[$P_PATH] eq "") {
1609     print FILEO "all: \$(SUBDIRS) \$(LIBRARIES) \$(PROGRAMS)\n";
1610   } else {
1611     print FILEO "all: \$(LIBRARIES) \$(PROGRAMS)\n";
1612   }
1613   print FILEO "\n";
1614   print FILEO "\@MAKE_RULES\@\n";
1615   print FILEO "\n";
1616   print FILEO "install::\n";
1617   if (@$project[$P_PATH] eq "") {
1618     # This is the main project. It is also responsible for recursively
1619     # calling the other projects
1620     print FILEO "\tfor i in \$(SUBDIRS); do (cd \$\$i; \$(MAKE) install) || exit 1; done\n";
1621   }
1622   if (@{@$project[$P_TARGETS]} > 0) {
1623     print FILEO "\tfor i in \$(PROGRAMS); do \$(INSTALL_PROGRAM) \$\$i \$(bindir); done\n";
1624     print FILEO "\tfor i in \$(LIBRARIES); do \$(INSTALL_LIBRARY) \$\$i \$(libdir); done\n";
1625   }
1626   print FILEO "\n";
1627   print FILEO "uninstall::\n";
1628   if (@$project[$P_PATH] eq "") {
1629     # This is the main project. It is also responsible for recursively
1630     # calling the other projects
1631     print FILEO "\tfor i in \$(SUBDIRS); do (cd \$\$i; \$(MAKE) uninstall) || exit 1; done\n";
1632   }
1633   if (@{@$project[$P_TARGETS]} > 0) {
1634     print FILEO "\tfor i in \$(PROGRAMS); do \$(RM) \$(bindir)/\$\$i;done\n";
1635     print FILEO "\tfor i in \$(LIBRARIES); do \$(RM) \$(libdir)/\$\$i;done\n";
1636   }
1637   print FILEO "\n\n\n";
1638
1639   if (@{@$project[$P_TARGETS]} > 0) {
1640     print FILEO "### Target specific build rules\n\n";
1641     foreach $target (@{@$project[$P_TARGETS]}) {
1642       my $canon=canonize("@$target[$T_NAME]");
1643       $canon =~ s/_so$//;
1644       print FILEO "\$(${canon}_SPEC_SRCS:.spec=.spec.c): \$(${canon}_RC_SRCS:.rc=.res)\n";
1645       print FILEO "\n";
1646       print FILEO "@$target[$T_NAME]: \$(${canon}_OBJS) \$(${canon}_DEPENDS) \n";
1647       if (@$target[$T_TYPE] eq $TT_DLL) {
1648         print FILEO "\t\$(LDSHARED) -shared -Wl,-soname,\$\@ -o \$\@ \$(${canon}_OBJS) \$(${canon}_LIBRARY_PATH) \$(${canon}_IMPORTS:%=-l%) \$(DLL_LINK) \$(LIBS)\n";
1649       } else {
1650         print FILEO "\t\$(CC) -o \$\@ \$(${canon}_OBJS) \$(${canon}_LIBRARY_PATH) \$(${canon}_IMPORTS:%=-l%) \$(DLL_LINK) \$(LIBS)\n";
1651       }
1652       print FILEO "\n";
1653     }
1654   }
1655   close(FILEO);
1656
1657   foreach $target (@{@$project[$P_TARGETS]}) {
1658     generate_spec_file(@$project[$P_PATH],$target,$project_settings);
1659     if (@$target[$T_FLAGS] & $TF_WRAPPER) {
1660       generate_wrapper_file(@$project[$P_PATH],$target);
1661     }
1662   }
1663 }
1664
1665 ##
1666 # Perform the replacements in the template configure files
1667 # Return 1 for success, 0 for failure
1668 sub generate_configure
1669 {
1670   my $filename=$_[0];
1671   my $a_source_file=$_[1];
1672
1673   if (!defined $templates{$filename}) {
1674     if ($filename ne "configure") {
1675       print STDERR "winemaker: internal error: No template called '$filename'\n";
1676     }
1677     return 0;
1678   }
1679
1680   if (!open(FILEO,">$filename")) {
1681     print STDERR "error: unable to open \"$filename\" for writing:\n";
1682     print STDERR "       $!\n";
1683     return 0;
1684   }
1685   foreach $line (@{$templates{$filename}}) {
1686     if ($line =~ /^\#\#WINEMAKER_PROJECTS\#\#$/) {
1687       foreach $project (@projects) {
1688         print FILEO "@$project[$P_PATH]Makefile\n";
1689       }
1690     } else {
1691       $line =~ s+\#\#WINEMAKER_SOURCE\#\#+$a_source_file+;
1692       $line =~ s+\#\#WINEMAKER_NEEDS_MFC\#\#+$needs_mfc+;
1693       print FILEO $line;
1694     }
1695   }
1696   close(FILEO);
1697   return 1;
1698 }
1699
1700 sub generate_generic
1701 {
1702   my $filename=$_[0];
1703
1704   if (!defined $templates{$filename}) {
1705     print STDERR "winemaker: internal error: No template called '$filename'\n";
1706     return;
1707   }
1708   if (!open(FILEO,">$filename")) {
1709     print STDERR "error: unable to open \"$filename\" for writing:\n";
1710     print STDERR "       $!\n";
1711     return;
1712   }
1713   foreach $line (@{$templates{$filename}}) {
1714     print FILEO $line;
1715   }
1716   close(FILEO);
1717 }
1718
1719 ##
1720 # Generates the global files:
1721 # configure
1722 # configure.in
1723 # Make.rules.in
1724 sub generate_global_files
1725 {
1726   generate_generic("Make.rules.in");
1727
1728   # Get the name of a source file for configure.in
1729   my $a_source_file;
1730   search_a_file: foreach $project (@projects) {
1731     foreach $target (@{@$project[$P_TARGETS]}) {
1732       $a_source_file=@{@$target[$T_SOURCES_C]}[0];
1733       if (!defined $a_source_file) {
1734         $a_source_file=@{@$target[$T_SOURCES_CXX]}[0];
1735       }
1736       if (!defined $a_source_file) {
1737         $a_source_file=@{@$target[$T_SOURCES_RC]}[0];
1738       }
1739       if (defined $a_source_file) {
1740         $a_source_file="@$project[$P_PATH]$a_source_file";
1741         last search_a_file;
1742       }
1743     }
1744   }
1745
1746   generate_configure("configure.in",$a_source_file);
1747   unlink("configure");
1748   if (generate_configure("configure",$a_source_file) == 0) {
1749     system("autoconf");
1750   }
1751   # Add execute permission to configure for whoever has the right to read it
1752   my @st=stat("configure");
1753   if (defined @st) {
1754     my $mode=$st[2];
1755     $mode|=($mode & 0444) >>2;
1756     chmod($mode,"configure");
1757   } else {
1758     print "warning: could not generate the configure script. You need to run autoconf\n";
1759   }
1760 }
1761
1762 ##
1763 #
1764 sub generate_read_templates
1765 {
1766   my $file;
1767
1768   while (<DATA>) {
1769     if (/^--- ((\w\.?)+) ---$/) {
1770       my $filename=$1;
1771       if (defined $templates{$filename}) {
1772         print STDERR "winemaker: internal error: There is more than one template for $filename\n";
1773         undef $file;
1774       } else {
1775         $file=[];
1776         $templates{$filename}=$file;
1777       }
1778     } elsif (defined $file) {
1779       push @$file, $_;
1780     }
1781   }
1782 }
1783
1784 ##
1785 # This is where we finally generate files. In fact this method does not
1786 # do anything itself but calls the methods that do the actual work.
1787 sub generate
1788 {
1789   print "Generating project files...\n";
1790   generate_read_templates();
1791   generate_global_files();
1792
1793   foreach $project (@projects) {
1794     my $path=@$project[$P_PATH];
1795     if ($path eq "") {
1796       $path=".";
1797     } else {
1798       $path =~ s+/$++;
1799     }
1800     print "  $path\n";
1801     generate_project_files($project);
1802   }
1803 }
1804
1805
1806
1807 #####
1808 #
1809 # Option defaults
1810 #
1811 #####
1812
1813 $opt_backup=1;
1814 $opt_lower=$OPT_LOWER_UPPERCASE;
1815
1816 # $opt_single_target=<undefined>
1817 $opt_target_type=$TT_GUIEXE;
1818 $opt_flags=0;
1819 $opt_is_interactive=$OPT_ASK_NO;
1820 $opt_ask_project_options=$OPT_ASK_NO;
1821 $opt_ask_target_options=$OPT_ASK_NO;
1822 $opt_no_makefile=0;
1823 $opt_no_banner=0;
1824
1825
1826
1827 #####
1828 #
1829 # Main
1830 #
1831 #####
1832
1833 project_init(\@main_project,"");
1834
1835 while (@ARGV>0) {
1836   my $arg=shift @ARGV;
1837   # General options
1838   if ($arg eq "--nobanner") {
1839     $opt_no_banner=1;
1840   } elsif ($arg eq "--backup") {
1841     $opt_backup=1;
1842   } elsif ($arg eq "--nobackup") {
1843     $opt_backup=0;
1844   } elsif ($arg eq "--single-target") {
1845     $opt_single_target=shift @ARGV;
1846   } elsif ($arg eq "--lower-none") {
1847     $opt_lower=$OPT_LOWER_NONE;
1848   } elsif ($arg eq "--lower-all") {
1849     $opt_lower=$OPT_LOWER_ALL;
1850   } elsif ($arg eq "--lower-uppercase") {
1851     $opt_lower=$OPT_LOWER_UPPERCASE;
1852   } elsif ($arg eq "--no-makefile") {
1853     $opt_no_makefile=1;
1854
1855   } elsif ($arg =~ /^-D/) {
1856     push @{$global_settings[$T_DEFINES]},$arg;
1857   } elsif ($arg =~ /^-I/) {
1858     push @{$global_settings[$T_INCLUDE_PATH]},$arg;
1859   } elsif ($arg =~ /^-L/) {
1860     push @{$global_settings[$T_LIBRARY_PATH]},$arg;
1861   } elsif ($arg =~ /^-l/) {
1862     push @{$global_settings[$T_IMPORTS]},$';
1863
1864   # 'Source'-based method options
1865   } elsif ($arg eq "--dll") {
1866     $opt_target_type=$TT_DLL;
1867   } elsif ($arg eq "--guiexe" or $arg eq "--windows") {
1868     $opt_target_type=$TT_GUIEXE;
1869   } elsif ($arg eq "--cuiexe" or $arg eq "--console") {
1870     $opt_target_type=$TT_CUIEXE;
1871   } elsif ($arg eq "--interactive") {
1872     $opt_is_interactive=$OPT_ASK_YES;
1873     $opt_ask_project_options=$OPT_ASK_YES;
1874     $opt_ask_target_options=$OPT_ASK_YES;
1875   } elsif ($arg eq "--wrap") {
1876     $opt_flags|=$TF_WRAP;
1877   } elsif ($arg eq "--nowrap") {
1878     $opt_flags&=~$TF_WRAP;
1879   } elsif ($arg eq "--mfc") {
1880     $opt_flags|=$TF_MFC|$TF_WRAP;
1881     $needs_mfc=1;
1882   } elsif ($arg eq "--nomfc") {
1883     $opt_flags&=~($TF_MFC|$TF_WRAP);
1884     $needs_mfc=0;
1885
1886   # Catch errors
1887   } else {
1888     if ($arg ne "--help" and $arg ne "-h" and $arg ne "-?") {
1889       print STDERR "Unknown option: $arg\n";
1890     }
1891     $usage=1;
1892     last;
1893   }
1894 }
1895
1896 if ($opt_no_banner == 0 or defined $usage) {
1897    print "Winemaker $version\n";
1898    print "Copyright 2000 Francois Gouget <fgouget\@codeweavers.com> for CodeWeavers\n";
1899 }
1900
1901 if (defined $usage) {
1902   print STDERR "Usage: winemaker [--nobanner] [--backup|--nobackup]\n";
1903   print STDERR "                 [--lower-none|--lower-all|--lower-uppercase]\n";
1904   print STDERR "                 [--guiexe|--windows|--cuiexe|--console|--dll]\n";
1905   print STDERR "                 [--wrap|--nowrap] [--mfc|--nomfc]\n";
1906   print STDERR "                 [-Dmacro[=defn]] [-Idir] [-Ldir] [-llibrary]\n";
1907   print STDERR "                 [--interactive] [--single-target name]\n";
1908   exit (2);
1909 }
1910
1911 # Fix the file and directory names
1912 fix_file_and_directory_names(".");
1913
1914 # Scan the sources to identify the projects and targets
1915 source_scan();
1916
1917 # Create targets for wrappers
1918 create_wrappers();
1919
1920 # Fix the source files
1921 fix_source();
1922
1923 # Generate the Makefile and the spec file
1924 if (! $opt_no_makefile) {
1925   generate();
1926 }
1927
1928
1929 __DATA__
1930 --- configure.in ---
1931 dnl Process this file with autoconf to produce a configure script.
1932 dnl Author: Michael Patra   <micky@marie.physik.tu-berlin.de>
1933 dnl                         <patra@itp1.physik.tu-berlin.de>
1934 dnl         Francois Gouget <fgouget@codeweavers.com> for CodeWeavers
1935
1936 AC_REVISION([configure.in 1.00])
1937 AC_INIT(##WINEMAKER_SOURCE##)
1938
1939 NEEDS_MFC=##WINEMAKER_NEEDS_MFC##
1940
1941 dnl **** Command-line arguments ****
1942
1943 AC_SUBST(OPTIONS)
1944
1945 dnl **** Check for some programs ****
1946
1947 AC_PROG_MAKE_SET
1948 AC_PROG_CC
1949 AC_PROG_CXX
1950 AC_PROG_CPP
1951 AC_PATH_XTRA
1952 AC_PROG_RANLIB
1953 AC_PROG_LN_S
1954 AC_PATH_PROG(LDCONFIG, ldconfig, true, /sbin:/usr/sbin:$PATH)
1955
1956 dnl **** Check for some libraries ****
1957
1958 dnl Check for -lm for BeOS
1959 AC_CHECK_LIB(m,sqrt)
1960 dnl Check for -li386 for NetBSD and OpenBSD
1961 AC_CHECK_LIB(i386,i386_set_ldt)
1962 dnl Check for -lossaudio for NetBSD
1963 AC_CHECK_LIB(ossaudio,_oss_ioctl)
1964 dnl Check for -lw for Solaris
1965 AC_CHECK_LIB(w,iswalnum)
1966 dnl Check for -lnsl for Solaris
1967 AC_CHECK_FUNCS(gethostbyname,, AC_CHECK_LIB(nsl, gethostbyname, X_EXTRA_LIBS="$X_EXTRA_LIBS -lnsl", AC_CHECK_LIB(socket, gethostbyname, X_EXTRA_LIBS="$X_EXTRA_LIBS -lnsl", , -lnsl), -lsocket))
1968 dnl Check for -lsocket for Solaris
1969 AC_CHECK_FUNCS(connect,,AC_CHECK_LIB(socket,connect))
1970 dnl Check for -lxpg4 for FreeBSD
1971 AC_CHECK_LIB(xpg4,setrunelocale)
1972 dnl Check for -lmmap for OS/2
1973 AC_CHECK_LIB(mmap,mmap)
1974 dnl Check for openpty
1975 AC_CHECK_FUNCS(openpty,,
1976         AC_CHECK_LIB(util,openpty,
1977                 AC_DEFINE(HAVE_OPENPTY)
1978                 LIBS="$LIBS -lutil"
1979         ))
1980
1981 AC_CHECK_HEADERS(dlfcn.h,
1982         AC_CHECK_FUNCS(dlopen,
1983                 AC_DEFINE(HAVE_DL_API),
1984                 AC_CHECK_LIB(dl,dlopen,
1985                         AC_DEFINE(HAVE_DL_API)
1986                         LIBS="$LIBS -ldl",
1987                 )
1988         ),
1989 )
1990 AC_SUBST(XLIB)
1991 AC_SUBST(X_DLLS)
1992 X_DLLS=""
1993 AC_SUBST(XFILES)
1994 XFILES=""
1995
1996 dnl **** Check which curses lib to use ***
1997 if test "$CURSES" = "yes"
1998 then
1999     AC_CHECK_HEADERS(ncurses.h)
2000     if test "$ac_cv_header_ncurses_h" = "yes"
2001     then
2002         AC_CHECK_LIB(ncurses,waddch)
2003     fi
2004     if test "$ac_cv_lib_ncurses_waddch" = "yes"
2005     then
2006         AC_CHECK_LIB(ncurses,resizeterm,AC_DEFINE(HAVE_RESIZETERM))
2007         AC_CHECK_LIB(ncurses,getbkgd,AC_DEFINE(HAVE_GETBKGD))
2008     else
2009         AC_CHECK_HEADERS(curses.h)
2010         if test "$ac_cv_header_curses_h" = "yes"
2011         then
2012             AC_CHECK_LIB(curses,waddch)
2013             if test "$ac_cv_lib_curses_waddch" = "yes"
2014             then
2015                 AC_CHECK_LIB(curses,resizeterm,AC_DEFINE(HAVE_RESIZETERM))
2016                 AC_CHECK_LIB(curses,getbkgd,AC_DEFINE(HAVE_GETBKGD))
2017             fi
2018         fi
2019     fi
2020 fi
2021
2022 dnl **** If ln -s doesn't work, use cp instead ****
2023 if test "$ac_cv_prog_LN_S" = "ln -s"; then : ; else LN_S=cp ; fi
2024
2025 dnl **** Check for gcc strength-reduce bug ****
2026
2027 if test "x${GCC}" = "xyes"
2028 then
2029   AC_CACHE_CHECK( "for gcc strength-reduce bug", ac_cv_c_gcc_strength_bug,
2030                   AC_TRY_RUN([
2031 int main(void) {
2032   static int Array[[3]];
2033   unsigned int B = 3;
2034   int i;
2035   for(i=0; i<B; i++) Array[[i]] = i - 3;
2036   exit( Array[[1]] != -2 );
2037 }],
2038     ac_cv_c_gcc_strength_bug="no",
2039     ac_cv_c_gcc_strength_bug="yes",
2040     ac_cv_c_gcc_strength_bug="yes") )
2041   if test "$ac_cv_c_gcc_strength_bug" = "yes"
2042   then
2043     CFLAGS="$CFLAGS -fno-strength-reduce"
2044   fi
2045 fi
2046
2047 dnl **** Check for underscore on external symbols ****
2048
2049 AC_CACHE_CHECK("whether external symbols need an underscore prefix",
2050                ac_cv_c_extern_prefix,
2051 [saved_libs=$LIBS
2052 LIBS="conftest_asm.s $LIBS"
2053 cat > conftest_asm.s <<EOF
2054         .globl _ac_test
2055 _ac_test:
2056         .long 0
2057 EOF
2058 AC_TRY_LINK([extern int ac_test;],[if (ac_test) return 1],
2059             ac_cv_c_extern_prefix="yes",ac_cv_c_extern_prefix="no")
2060 LIBS=$saved_libs])
2061 if test "$ac_cv_c_extern_prefix" = "yes"
2062 then
2063   AC_DEFINE(NEED_UNDERSCORE_PREFIX)
2064 fi
2065
2066 dnl **** Check for working dll ****
2067
2068 LDSHARED=""
2069 AC_CACHE_CHECK("whether we can build a Linux dll",
2070                ac_cv_c_dll_linux,
2071 [saved_cflags=$CFLAGS
2072 CFLAGS="$CFLAGS -fPIC -shared -Wl,-soname,conftest.so.1.0"
2073 AC_TRY_LINK(,[return 1],ac_cv_c_dll_linux="yes",ac_cv_c_dll_linux="no")
2074 CFLAGS=$saved_cflags
2075 ])
2076 if test "$ac_cv_c_dll_linux" = "yes"
2077 then
2078   LDSHARED="\$(CC) -shared -Wl,-soname,\$(SONAME),-rpath,\$(libdir)"
2079 else
2080   AC_CACHE_CHECK(whether we can build a UnixWare (Solaris) dll,
2081                 ac_cv_c_dll_unixware,
2082   [saved_cflags=$CFLAGS
2083   CFLAGS="$CFLAGS -fPIC -Wl,-G,-h,conftest.so.1.0"
2084   AC_TRY_LINK(,[return 1],ac_cv_c_dll_unixware="yes",ac_cv_c_dll_unixware="no")
2085   CFLAGS=$saved_cflags
2086   ])
2087   if test "$ac_cv_c_dll_unixware" = "yes"
2088   then
2089     LDSHARED="\$(CC) -Wl,-G,-h,\$(libdir)/\$(SONAME)"
2090   else
2091     AC_CACHE_CHECK("whether we can build a NetBSD dll",
2092                    ac_cv_c_dll_netbsd,
2093     [saved_cflags=$CFLAGS
2094     CFLAGS="$CFLAGS -fPIC -Bshareable -Bforcearchive"
2095     AC_TRY_LINK(,[return 1],ac_cv_c_dll_netbsd="yes",ac_cv_c_dll_netbsd="no")
2096     CFLAGS=$saved_cflags
2097     ])
2098     if test "$ac_cv_c_dll_netbsd" = "yes"
2099     then
2100       LDSHARED="ld -Bshareable -Bforcearchive"
2101     fi
2102   fi
2103 fi
2104 if test "$ac_cv_c_dll_linux" = "no" -a "$ac_cv_c_dll_unixware" = "no" -a "$ac_cv_c_dll_netbsd" = "no"
2105 then
2106   AC_MSG_ERROR([Could not find how to build a dynamically linked library])
2107 fi
2108
2109 DLLFLAGS="-fPIC"
2110 DLL_LINK="\$(WINELIB_LIBRARY_PATH) \$(DLLS:%=-l%) \$(IMPORTS:%=-l%) -lwine -lwine_unicode"
2111
2112 AC_SUBST(DLL_LINK)
2113 AC_SUBST(DLLFLAGS)
2114 AC_SUBST(LDSHARED)
2115
2116 dnl *** check for the need to define __i386__
2117
2118 AC_CACHE_CHECK("whether we need to define __i386__",ac_cv_cpp_def_i386,
2119  AC_EGREP_CPP(yes,[#if (defined(i386) || defined(__i386)) && !defined(__i386__)
2120 yes
2121 #endif],
2122  ac_cv_cpp_def_i386="yes", ac_cv_cpp_def_i386="no"))
2123 if test "$ac_cv_cpp_def_i386" = "yes"
2124 then
2125     CFLAGS="$CFLAGS -D__i386__"
2126 fi
2127
2128 dnl $GCC is set by autoconf
2129 GCC_NO_BUILTIN=""
2130 if test "$GCC" = "yes"
2131 then
2132     GCC_NO_BUILTIN="-fno-builtin"
2133 fi
2134 AC_SUBST(GCC_NO_BUILTIN)
2135
2136 dnl **** Test Winelib-related features of the C++ compiler
2137 AC_LANG_CPLUSPLUS()
2138 if test "x${GCC}" = "xyes"
2139 then
2140   OLDCXXFLAGS="$CXXFLAGS";
2141   CXXFLAGS="-fpermissive";
2142   AC_CACHE_CHECK("for g++ -fpermissive option", has_gxx_permissive,
2143     AC_TRY_COMPILE(,[
2144         for (int i=0;i<2;i++);
2145         i=0;
2146       ],
2147       [has_gxx_permissive="yes"],
2148       [has_gxx_permissive="no"])
2149    )
2150   CXXFLAGS="-fno-for-scope";
2151   AC_CACHE_CHECK("for g++ -fno-for-scope option", has_gxx_no_for_scope,
2152     AC_TRY_COMPILE(,[
2153         for (int i=0;i<2;i++);
2154         i=0;
2155       ],
2156       [has_gxx_no_for_scope="yes"],
2157       [has_gxx_no_for_scope="no"])
2158    )
2159   CXXFLAGS="$OLDCXXFLAGS";
2160   if test "$has_gxx_permissive" = "yes"
2161   then
2162     CXXFLAGS="$CXXFLAGS -fpermissive"
2163   fi
2164   if test "$has_gxx_no_for_scope" = "yes"
2165   then
2166     CXXFLAGS="$CXXFLAGS -fno-for-scope"
2167   fi
2168 fi
2169
2170 dnl **** Test Winelib-related features of the C compiler
2171 dnl none for now
2172
2173 dnl **** Try to find where winelib is located ****
2174
2175 dnl This section is implemented using custom code since autoconf does not
2176 dnl provide a standard method. Here is how other people have tried to
2177 dnl solve the same (or similar) problem.
2178 dnl See: http://www.geocrawler.com/archives/3/402/1999/4/50/2131449/
2179 dnl or   http://www.geocrawler.com/archives/3/402/1999/4/50/2131443/
2180 dnl      ftp://ftp.slac.stanford.edu/users/langston/autoconf/smr_macros-0.09.tar.gz
2181 dnl or   http://www.geocrawler.com/archives/3/402/1999/4/50/2131452/
2182 dnl or   http://www.geocrawler.com/archives/3/402/1999/4/50/2131446/
2183
2184 WINELIB_INCLUDE_ROOT="";
2185 WINELIB_INCLUDE_PATH="";
2186 WINELIB_LIBRARY_ROOT="";
2187 WINELIB_LIBRARY_PATH="";
2188 WINELIB_TOOL_PATH="";
2189 WINEBUILD="";
2190 WRC="";
2191
2192 AC_ARG_WITH(winelib-root,
2193 [  --with-winelib-root=DIR       take the Winelib includes, libraries and tools from this directory],
2194 [if test "$withval" != "no"; then
2195   WINELIB_ROOT="$withval";
2196   WINELIB_INCLUDES="";
2197   WINELIB_LIBRARIES="";
2198   WINELIB_TOOLS="";
2199 else
2200   WINELIB_ROOT="";
2201 fi])
2202 if test -n "$WINELIB_ROOT"
2203 then
2204   WINELIB_INCLUDE_ROOT="$WINELIB_ROOT/include";
2205   WINELIB_LIBRARY_ROOT="$WINELIB_ROOT";
2206   WINELIB_TOOL_PATH="$WINELIB_ROOT:$WINELIB_ROOT/bin:$WINELIB_ROOT/tools/wrc:$WINELIB_ROOT/tools/winebuild:$PATH";
2207 fi
2208
2209 AC_ARG_WITH(winelib-includes,
2210 [  --with-winelib-includes=DIR   take the Winelib includes from this directory],
2211 [if test "$withval" != "no"; then
2212   WINELIB_INCLUDES="$withval";
2213 else
2214   WINELIB_INCLUDES="";
2215 fi])
2216 if test -n "$WINELIB_INCLUDES"
2217 then
2218   WINELIB_INCLUDE_ROOT="$WINELIB_INCLUDES";
2219 fi
2220
2221 AC_ARG_WITH(winelib-libraries,
2222 [  --with-winelib-libraries=DIR  take the Winelib libraries from this directory],
2223 [if test "$withval" != "no"; then
2224   WINELIB_LIBRARIES="$withval";
2225 else
2226   WINELIB_LIBRARIES="";
2227 fi])
2228 if test -n "$WINELIB_LIBRARIES"
2229 then
2230   WINELIB_LIBRARY_ROOT="$WINELIB_LIBRARIES";
2231 fi
2232
2233 AC_ARG_WITH(winelib-tools,
2234 [  --with-winelib-tools=DIR      take the Winelib tools from this directory],
2235 [if test "$withval" != "no"; then
2236   WINELIB_TOOLS="$withval";
2237 else
2238   WINELIB_TOOLS="";
2239 fi])
2240 if test -n "$WINELIB_TOOLS"
2241 then
2242   WINELIB_TOOL_PATH="$WINELIB_TOOLS:$WINELIB_TOOLS/wrc:$WINELIB_TOOLS/winebuild";
2243 fi
2244
2245 if test -z "$WINELIB_INCLUDE_ROOT"
2246 then
2247   WINELIB_INCLUDE_ROOT="/usr/include/wine";
2248 fi
2249 if test ! -f "$WINELIB_INCLUDE_ROOT/windows.h"
2250 then
2251   AC_MSG_ERROR([Could not find the Winelib includes])
2252 fi
2253 WINELIB_INCLUDE_PATH="-I$WINELIB_INCLUDE_ROOT"
2254
2255 if test -z "$WINELIB_LIBRARY_ROOT"
2256 then
2257   WINELIB_LIBRARY_ROOT="/usr/lib/wine";
2258 fi
2259 if test ! -f "$WINELIB_LIBRARY_ROOT/libwine.so"
2260 then
2261   if test -f "$WINELIB_LIBRARY_ROOT/lib/libwine.so"
2262   then
2263     WINELIB_LIBRARY_ROOT="$WINELIB_LIBRARY_ROOT/lib";
2264   else
2265     AC_MSG_ERROR([Could not find the Winelib libraries (libwine)])
2266   fi
2267 fi
2268 if test -f "$WINELIB_LIBRARY_ROOT/libkernel32.so"
2269 then
2270   WINELIB_LIBRARY_PATH="-L$WINELIB_LIBRARY_ROOT";
2271 else
2272   if test -f "$WINELIB_LIBRARY_ROOT/dlls/libkernel32.so"
2273   then
2274     WINELIB_LIBRARY_PATH="-L$WINELIB_LIBRARY_ROOT -L$WINELIB_LIBRARY_ROOT/dlls";
2275   else
2276     AC_MSG_ERROR([Could not find the Winelib libraries (libkernel32)])
2277   fi
2278 fi
2279
2280 AC_PATH_PROG(WINEBUILD,winebuild,,$WINELIB_TOOL_PATH)
2281 if test -z "$WINEBUILD"
2282 then
2283   AC_MSG_ERROR([Could not find Winelib's winebuild tool])
2284 fi
2285 AC_PATH_PROG(WRC,wrc,,$WINELIB_TOOL_PATH)
2286 if test -z "$WRC"
2287 then
2288   AC_MSG_ERROR([Could not find Winelib's wrc tool])
2289 fi
2290
2291 AC_SUBST(WINELIB_INCLUDE_ROOT)
2292 AC_SUBST(WINELIB_INCLUDE_PATH)
2293 AC_SUBST(WINELIB_LIBRARY_ROOT)
2294 AC_SUBST(WINELIB_LIBRARY_PATH)
2295
2296 dnl **** Try to find where the MFC are located ****
2297
2298 if test "x$NEEDS_MFC" = "x1"
2299 then
2300   ATL_INCLUDE_ROOT="";
2301   ATL_INCLUDE_PATH="";
2302   MFC_INCLUDE_ROOT="";
2303   MFC_INCLUDE_PATH="";
2304   MFC_LIBRARY_ROOT="";
2305   MFC_LIBRARY_PATH="";
2306
2307   AC_ARG_WITH(mfc-root,
2308   [  --with-mfc-root=DIR           take the MFC includes and libraries from this directory],
2309   [if test "$withval" != "no"; then
2310     MFC_ROOT="$withval";
2311     ATL_INCLUDES="";
2312     MFC_INCLUDES="";
2313     MFC_LIBRARIES="";
2314   else
2315     MFC_ROOT="";
2316   fi])
2317   if test -n "$MFC_ROOT"
2318   then
2319     ATL_INCLUDE_ROOT="$MFC_ROOT";
2320     MFC_INCLUDE_ROOT="$MFC_ROOT";
2321     MFC_LIBRARY_ROOT="$MFC_ROOT";
2322   fi
2323
2324   AC_ARG_WITH(atl-includes,
2325   [  --with-atl-includes=DIR       take the ATL includes from this directory],
2326   [if test "$withval" != "no"; then
2327     ATL_INCLUDES="$withval";
2328   else
2329     ATL_INCLUDES="";
2330   fi])
2331   if test -n "$ATL_INCLUDES"
2332   then
2333     ATL_INCLUDE_ROOT="$ATL_INCLUDES";
2334   fi
2335
2336   AC_ARG_WITH(mfc-includes,
2337   [  --with-mfc-includes=DIR       take the MFC includes from this directory],
2338   [if test "$withval" != "no"; then
2339     MFC_INCLUDES="$withval";
2340   else
2341     MFC_INCLUDES="";
2342   fi])
2343   if test -n "$MFC_INCLUDES"
2344   then
2345     MFC_INCLUDE_ROOT="$MFC_INCLUDES";
2346   fi
2347
2348   AC_ARG_WITH(mfc-libraries,
2349   [  --with-mfc-libraries=DIR      take the MFC libraries from this directory],
2350   [if test "$withval" != "no"; then
2351     MFC_LIBRARIES="$withval";
2352   else
2353     MFC_LIBRARIES="";
2354   fi])
2355   if test -n "$MFC_LIBRARIES"
2356   then
2357     MFC_LIBRARY_ROOT="$MFC_LIBRARIES";
2358   fi
2359
2360   dnl FIXME: We should have an include path and just iterate through it.
2361   dnl These tests become ugly.
2362   if test -z "$ATL_INCLUDE_ROOT"
2363   then
2364     ATL_INCLUDE_ROOT="/usr/include";
2365   fi
2366   if test ! -f "$ATL_INCLUDE_ROOT/atlbase.h"
2367   then
2368     if test -f "$ATL_INCLUDE_ROOT/atl/atlbase.h"
2369     then
2370       ATL_INCLUDE_ROOT="$ATL_INCLUDE_ROOT/mfc"
2371     else
2372       if test -f "$ATL_INCLUDE_ROOT/atl/include/atlbase.h"
2373       then
2374         ATL_INCLUDE_ROOT="$ATL_INCLUDE_ROOT/mfc/include"
2375       else
2376         AC_MSG_ERROR([Could not find the ATL includes])
2377       fi
2378     fi
2379   fi
2380   ATL_INCLUDE_PATH="-I$ATL_INCLUDE_ROOT"
2381
2382   if test -z "$MFC_INCLUDE_ROOT"
2383   then
2384     MFC_INCLUDE_ROOT="/usr/include";
2385   fi
2386   if test ! -f "$MFC_INCLUDE_ROOT/afx.h"
2387   then
2388     if test -f "$MFC_INCLUDE_ROOT/mfc/afx.h"
2389     then
2390       MFC_INCLUDE_ROOT="$MFC_INCLUDE_ROOT/mfc"
2391     else
2392       if test -f "$MFC_INCLUDE_ROOT/mfc/include/afx.h"
2393       then
2394         MFC_INCLUDE_ROOT="$MFC_INCLUDE_ROOT/mfc/include"
2395       else
2396         AC_MSG_ERROR([Could not find the MFC includes])
2397       fi
2398     fi
2399   fi
2400   MFC_INCLUDE_PATH="-D_DLL -D_MT -I$MFC_INCLUDE_ROOT -I\$(WINELIB_INCLUDE_ROOT)/mixedcrt"
2401
2402   if test -z "$MFC_LIBRARY_ROOT"
2403   then
2404     MFC_LIBRARY_ROOT="/usr/lib/mfc";
2405   fi
2406   if test -f "$MFC_LIBRARY_ROOT/libmfc.so"
2407   then
2408     MFC_LIBRARY_ROOT="$MFC_LIBRARY_ROOT";
2409   else
2410     if test -f "$MFC_LIBRARY_ROOT/lib/libmfc.so"
2411     then
2412       MFC_LIBRARY_ROOT="$MFC_LIBRARY_ROOT/lib";
2413     else
2414       if test -f "$MFC_LIBRARY_ROOT/mfc/src/libmfc.so"
2415       then
2416         MFC_LIBRARY_ROOT="$MFC_LIBRARY_ROOT/mfc/src";
2417       else
2418         AC_MSG_ERROR([Could not find the MFC library (libmfc)])
2419       fi
2420     fi
2421   fi
2422   MFC_LIBRARY_PATH="-L$MFC_LIBRARY_ROOT"
2423
2424   AC_SUBST(ATL_INCLUDE_ROOT)
2425   AC_SUBST(ATL_INCLUDE_PATH)
2426   AC_SUBST(MFC_INCLUDE_ROOT)
2427   AC_SUBST(MFC_INCLUDE_PATH)
2428   AC_SUBST(MFC_LIBRARY_ROOT)
2429   AC_SUBST(MFC_LIBRARY_PATH)
2430 fi
2431
2432 dnl **** Generate output files ****
2433
2434 MAKE_RULES=Make.rules
2435 AC_SUBST_FILE(MAKE_RULES)
2436
2437 AC_OUTPUT([
2438 Make.rules
2439 ##WINEMAKER_PROJECTS##
2440  ])
2441
2442 echo
2443 echo "Configure finished.  Do 'make' to build the project."
2444 echo
2445
2446 dnl Local Variables:
2447 dnl comment-start: "dnl "
2448 dnl comment-end: ""
2449 dnl comment-start-skip: "\\bdnl\\b\\s *"
2450 dnl compile-command: "autoconf"
2451 dnl End:
2452 --- Make.rules.in ---
2453 # Copyright 2000 Francois Gouget for CodeWeavers
2454 # fgouget@codeweavers.com
2455 #
2456 # Global rules shared by all makefiles     -*-Makefile-*-
2457 #
2458 # Each individual makefile must define the following variables:
2459 # WINELIB_INCLUDE_ROOT: Winelib includes location
2460 # WINELIB_LIBRARY_ROOT: Winelib libraries location
2461 # TOPOBJDIR    : top-level object directory
2462 # SRCDIR       : source directory for this module
2463 #
2464 # Each individual makefile may define the following additional variables:
2465 #
2466 # SUBDIRS      : subdirectories that contain a Makefile
2467 # LIBRARIES    : libraries to be built
2468 # PROGRAMS     : programs to be built
2469 #
2470 # CEXTRA       : extra c flags (e.g. '-Wall')
2471 # CXXEXTRA     : extra c++ flags (e.g. '-Wall')
2472 # WRCEXTRA     : extra wrc flags (e.g. '-p _SysRes')
2473 # DEFINES      : defines (e.g. -DSTRICT)
2474 # INCLUDE_PATH : additional include path
2475 # LIBRARY_PATH : additional library path
2476 # IMPORTS      : additional libraries to link with
2477 #
2478 # C_SRCS       : C sources for the module
2479 # CXX_SRCS     : C++ sources for the module
2480 # RC_SRCS      : resource source files
2481 # SPEC_SRCS    : interface definition files
2482
2483
2484 # Where is Winelib
2485
2486 WINELIB_INCLUDE_ROOT = @WINELIB_INCLUDE_ROOT@
2487 WINELIB_INCLUDE_PATH = @WINELIB_INCLUDE_PATH@
2488 WINELIB_LIBRARY_ROOT = @WINELIB_LIBRARY_ROOT@
2489 WINELIB_LIBRARY_PATH = @WINELIB_LIBRARY_PATH@
2490
2491 # Where are the MFC
2492
2493 ATL_INCLUDE_ROOT = @ATL_INCLUDE_ROOT@
2494 ATL_INCLUDE_PATH = @ATL_INCLUDE_PATH@
2495 MFC_INCLUDE_ROOT = @MFC_INCLUDE_ROOT@
2496 MFC_INCLUDE_PATH = @MFC_INCLUDE_PATH@
2497 MFC_LIBRARY_ROOT = @MFC_LIBRARY_ROOT@
2498 MFC_LIBRARY_PATH = @MFC_LIBRARY_PATH@
2499
2500 # First some useful definitions
2501
2502 SHELL     = /bin/sh
2503 CC        = @CC@
2504 CPP       = @CPP@
2505 CFLAGS    = @CFLAGS@
2506 CXXFLAGS  = @CXXFLAGS@
2507 OPTIONS   = @OPTIONS@ -D_REENTRANT -DWINELIB
2508 X_CFLAGS  = @X_CFLAGS@
2509 X_LIBS    = @X_LIBS@
2510 XLIB      = @X_PRE_LIBS@ @XLIB@ @X_EXTRA_LIBS@
2511 DLL_LINK  = @DLL_LINK@
2512 LIBS      = @LIBS@ $(LIBRARY_PATH)
2513 YACC      = @YACC@
2514 LEX       = @LEX@
2515 LEXLIB    = @LEXLIB@
2516 LN_S      = @LN_S@
2517 DIVINCL   = -I$(SRCDIR) $(WINELIB_INCLUDE_PATH) $(INCLUDE_PATH)
2518 ALLCFLAGS = $(DIVINCL) $(CFLAGS) $(CEXTRA) $(OPTIONS) $(X_CFLAGS) $(DEFINES)
2519 ALLCXXFLAGS = $(DIVINCL) $(CXXFLAGS) $(CXXEXTRA) $(OPTIONS) $(X_CFLAGS) $(DEFINES)
2520 LDCOMBINE = ld -r
2521 LDSHARED  = @LDSHARED@
2522 RM        = rm -f
2523 MV        = mv
2524 MKDIR     = mkdir -p
2525 WINEBUILD = @WINEBUILD@
2526 WRC       = @WRC@
2527 WRCFLAGS  = -r -L
2528 @SET_MAKE@
2529
2530 # Installation infos
2531
2532 INSTALL         = @INSTALL@
2533 INSTALL_PROGRAM = @INSTALL_PROGRAM@
2534 INSTALL_DATA    = @INSTALL_DATA@
2535 prefix          = @prefix@
2536 exec_prefix     = @exec_prefix@
2537 bindir          = @bindir@
2538 libdir          = @libdir@
2539 infodir         = @infodir@
2540 mandir          = @mandir@
2541 prog_manext     = 1
2542 conf_manext     = 5
2543 CLEAN_FILES     = *.o *.a *.so \\\#*\\\# *~ *% .\\\#* *.orig *.rej \
2544                   *.spec.c y.tab.c y.tab.h lex.yy.c core
2545
2546 OBJS = $(SPEC_SRCS:.spec=.spec.o) $(C_SRCS:.c=.o) $(CXX_SRCS:.cpp=.o)
2547
2548 # DLL list
2549
2550 X_DLLS = \
2551         ddraw \
2552         x11drv
2553
2554 DLLS = \
2555         @X_DLLS@ \
2556         advapi32 \
2557         avifil32 \
2558         comctl32 \
2559         comdlg32 \
2560         crtdll \
2561         dciman32 \
2562         dinput \
2563         dplay \
2564         dplayx \
2565         dsound \
2566         gdi32 \
2567         imagehlp \
2568         imm32 \
2569         joystick.drv \
2570         kernel32 \
2571         lz32 \
2572         mcianim.drv \
2573         mciavi.drv \
2574         mcicda.drv \
2575         mciseq.drv \
2576         mciwave.drv \
2577         midimap.drv \
2578         mpr \
2579         msacm.drv \
2580         msacm32 \
2581         msnet32 \
2582         msvfw32 \
2583         odbc32 \
2584         ole32 \
2585         oleaut32 \
2586         olecli32 \
2587         oledlg \
2588         olepro32 \
2589         olesvr32 \
2590         psapi \
2591         rasapi32 \
2592         riched32 \
2593         rpcrt4 \
2594         serialui \
2595         shell32 \
2596         shfolder \
2597         shlwapi \
2598         tapi32 \
2599         ttydrv \
2600         urlmon \
2601         user32 \
2602         version \
2603         w32skrnl \
2604         wineoss.drv \
2605         wineps \
2606         wininet \
2607         winmm \
2608         winspool.drv \
2609         wnaspi32 \
2610         wow32 \
2611         ws2_32 \
2612         wsock32
2613
2614 # Implicit rules
2615
2616 .SUFFIXES: .C .cpp .CPP .cxx .CXX .rc .RC .res .spec .spec.c .spec.o
2617
2618 .c.o:
2619         $(CC) -c $(ALLCFLAGS) -o $@ $<
2620
2621 .C.o:
2622         $(CC) -c $(ALLCFLAGS) -o $@ $<
2623
2624 .cpp.o:
2625         $(CXX) -c $(ALLCXXFLAGS) -o $@ $<
2626
2627 .CPP.o:
2628         $(CXX) -c $(ALLCXXFLAGS) -o $@ $<
2629
2630 .cxx.o:
2631         $(CXX) -c $(ALLCXXFLAGS) -o $@ $<
2632
2633 .CXX.o:
2634         $(CXX) -c $(ALLCXXFLAGS) -o $@ $<
2635
2636 .spec.spec.c:
2637         $(WINEBUILD) @DLLFLAGS@ -o $@ -spec $<
2638
2639 .spec.c.spec.o:
2640         $(CC) -c $(ALLCFLAGS) @GCC_NO_BUILTIN@ -o $@ $<
2641
2642 .rc.res:
2643         $(WRC) $(WRCFLAGS) $(WRCEXTRA) $(DIVINCL) -o $@ $<
2644
2645 .RC.res:
2646         $(WRC) $(WRCFLAGS) $(WRCEXTRA) $(DIVINCL) -o $@ $<
2647
2648 .PHONY: all install uninstall clean distclean depend dummy
2649
2650 # 'all' target first in case the enclosing Makefile didn't define any target
2651
2652 all: Makefile
2653
2654 # Rules for makefile
2655
2656 Makefile: Makefile.in $(TOPSRCDIR)/configure
2657         @echo Makefile is older than $?, please rerun $(TOPSRCDIR)/configure
2658         @exit 1
2659
2660 # Rules for cleaning
2661
2662 $(SUBDIRS:%=%/__clean__): dummy
2663         cd `dirname $@` && $(MAKE) clean
2664
2665 $(EXTRASUBDIRS:%=%/__clean__): dummy
2666         -cd `dirname $@` && $(RM) $(CLEAN_FILES)
2667
2668 clean:: $(SUBDIRS:%=%/__clean__) $(EXTRASUBDIRS:%=%/__clean__)
2669         $(RM) $(CLEAN_FILES) $(RC_SRCS:.rc=.res) $(LIBRARIES) $(PROGRAMS)
2670
2671 # Rules for installing
2672
2673 $(SUBDIRS:%=%/__install__): dummy
2674         cd `dirname $@` && $(MAKE) install
2675
2676 $(SUBDIRS:%=%/__uninstall__): dummy
2677         cd `dirname $@` && $(MAKE) uninstall
2678
2679 # Misc. rules
2680
2681 $(SUBDIRS): dummy
2682         @cd $@ && $(MAKE)
2683
2684 dummy:
2685
2686 # End of global rules
2687 --- wrapper.c ---
2688 /*
2689  * Copyright 2000 Francois Gouget <fgouget@codeweavers.com> for CodeWeavers
2690  */
2691
2692 #include <dlfcn.h>
2693 #include <windows.h>
2694
2695
2696
2697 /*
2698  * Describe the wrapped application
2699  */
2700
2701 /**
2702  * This is either CUIEXE for a console based application or
2703  * GUIEXE for a regular windows application.
2704  */
2705 #define      APP_TYPE      ##WINEMAKER_APP_TYPE##
2706
2707 /**
2708  * This is the application library's base name, i.e. 'hello' if the
2709  * library is called 'libhello.so'.
2710  */
2711 static char* appName     = ##WINEMAKER_APP_NAME##;
2712
2713 /**
2714  * This is the name of the application's Windows module. If left NULL
2715  * then appName is used.
2716  */
2717 static char* appModule   = NULL;
2718
2719 /**
2720  * This is the application's entry point. This is usually "WinMain" for a
2721  * GUIEXE and 'main' for a CUIEXE application.
2722  */
2723 static char* appInit     = ##WINEMAKER_APP_INIT##;
2724
2725 /**
2726  * This is either non-NULL for MFC-based applications and is the name of the
2727  * MFC's module. This is the module in which we will take the 'WinMain'
2728  * function.
2729  */
2730 static char* mfcModule   = ##WINEMAKER_APP_MFC##;
2731
2732
2733
2734 /*
2735  * Implement the main.
2736  */
2737
2738 #if APP_TYPE == GUIEXE
2739 typedef int WINAPI (*WinMainFunc)(HINSTANCE hInstance, HINSTANCE hPrevInstance,
2740                                   PSTR szCmdLine, int iCmdShow);
2741 #else
2742 typedef int WINAPI (*MainFunc)(int argc, char** argv, char** envp);
2743 #endif
2744
2745 #if APP_TYPE == GUIEXE
2746 int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
2747                    PSTR szCmdLine, int iCmdShow)
2748 #else
2749 int WINAPI Main(int argc, char** argv, char** envp)
2750 #endif
2751 {
2752     void* appLibrary;
2753     HINSTANCE hApp,hMFC,hMain;
2754     void* appMain;
2755     char* libName;
2756     int retcode;
2757
2758     /* Load the application's library */
2759     libName=(char*)malloc(strlen(appName)+5+3+1);
2760     /* FIXME: we should get the wrapper's path and use that as the base for
2761      * the library
2762      */
2763     sprintf(libName,"./lib%s.so",appName);
2764     appLibrary=dlopen(libName,RTLD_NOW);
2765     if (appLibrary==NULL) {
2766         sprintf(libName,"lib%s.so",appName);
2767         appLibrary=dlopen(libName,RTLD_NOW);
2768     }
2769     if (appLibrary==NULL) {
2770         char format[]="Could not load the %s library:\r\n%s";
2771         char* error;
2772         char* msg;
2773
2774         error=dlerror();
2775         msg=(char*)malloc(strlen(format)+strlen(libName)+strlen(error));
2776         sprintf(msg,format,libName,error);
2777         MessageBox(NULL,msg,"dlopen error",MB_OK);
2778         free(msg);
2779         return 1;
2780     }
2781
2782     /* Then if this application is MFC based, load the MFC module */
2783     /* FIXME: I'm not sure this is really necessary */
2784     if (mfcModule!=NULL) {
2785         hMFC=LoadLibrary(mfcModule);
2786         if (hMFC==NULL) {
2787             char format[]="Could not load the MFC module %s (%d)";
2788             char* msg;
2789
2790             msg=(char*)malloc(strlen(format)+strlen(mfcModule)+11);
2791             sprintf(msg,format,mfcModule,GetLastError());
2792             MessageBox(NULL,msg,"LoadLibrary error",MB_OK);
2793             free(msg);
2794             return 1;
2795         }
2796         /* MFC is a special case: the WinMain is in the MFC library,
2797          * instead of the application's library.
2798          */
2799         hMain=hMFC;
2800     } else {
2801         hMFC=NULL;
2802     }
2803
2804     /* Load the application's module */
2805     if (appModule==NULL) {
2806         appModule=appName;
2807     }
2808     hApp=LoadLibrary(appModule);
2809     if (hApp==NULL) {
2810         char format[]="Could not load the application's module %s (%d)";
2811         char* msg;
2812
2813         msg=(char*)malloc(strlen(format)+strlen(appModule)+11);
2814         sprintf(msg,format,appModule,GetLastError());
2815         MessageBox(NULL,msg,"LoadLibrary error",MB_OK);
2816         free(msg);
2817         return 1;
2818     } else if (hMain==NULL) {
2819         hMain=hApp;
2820     }
2821
2822     /* Get the address of the application's entry point */
2823     appMain=(WinMainFunc*)GetProcAddress(hMain, appInit);
2824     if (appMain==NULL) {
2825         char format[]="Could not get the address of %s (%d)";
2826         char* msg;
2827
2828         msg=(char*)malloc(strlen(format)+strlen(appInit)+11);
2829         sprintf(msg,format,appInit,GetLastError());
2830         MessageBox(NULL,msg,"GetProcAddress error",MB_OK);
2831         free(msg);
2832         return 1;
2833     }
2834
2835     /* And finally invoke the application's entry point */
2836 #if APP_TYPE == GUIEXE
2837     retcode=(*((WinMainFunc)appMain))(hApp,hPrevInstance,szCmdLine,iCmdShow);
2838 #else
2839     retcode=(*((MainFunc)appMain))(argc,argv,envp);
2840 #endif
2841
2842     /* Cleanup and done */
2843     FreeLibrary(hApp);
2844     if (hMFC!=NULL) {
2845         FreeLibrary(hMFC);
2846     }
2847     dlclose(appLibrary);
2848     free(libName);
2849
2850     return retcode;
2851 }