4 # Copyright 2000-2004 Francois Gouget for CodeWeavers
5 # Copyright 2004 Dimitrie O. Paun
7 # This library is free software; you can redistribute it and/or
8 # modify it under the terms of the GNU Lesser General Public
9 # License as published by the Free Software Foundation; either
10 # version 2.1 of the License, or (at your option) any later version.
12 # This library is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 # Lesser General Public License for more details.
17 # You should have received a copy of the GNU Lesser General Public
18 # License along with this library; if not, write to the Free Software
19 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
36 # The following constants define what we do with the case of filenames
39 # Never rename a file to lowercase
43 # Rename all files to lowercase
47 # Rename only files that are all uppercase to lowercase
48 my $OPT_LOWER_UPPERCASE=2;
51 # The following constants define whether to ask questions or not
54 # No (synonym of never)
62 # Skip the questions till the end of this scope
69 # This is the directory in which winemaker will operate.
73 # Make a backup of the files
77 # Defines which files to rename
81 # If we don't find the file referenced by an include, lower it
82 my $opt_lower_include;
85 # If true then winemaker should not attempt to fix the source. This is
86 # useful if the source is known to be already in a suitable form and is
88 my $opt_no_source_fix;
90 # Options for the 'Source' method
93 # Specifies that we have only one target so that all sources relate
94 # to this target. By default this variable is left undefined which
95 # means winemaker should try to find out by itself what the targets
96 # are. If not undefined then this contains the name of the default
97 # target (without the extension).
98 my $opt_single_target;
101 # If '$opt_single_target' has been specified then this is the type of
102 # that target. Otherwise it specifies whether the default target type
103 # is guiexe or cuiexe.
107 # Contains the default set of flags to be used when creating a new target.
111 # If true then winemaker should ask questions to the user as it goes
113 my $opt_is_interactive;
114 my $opt_ask_project_options;
115 my $opt_ask_target_options;
118 # If false then winemaker should not generate the makefiles.
119 my $opt_no_generated_files;
122 # Specifies not to print the banner if set.
129 # Target modelization
133 # The description of a target is stored in an array. The constants
134 # below identify what is stored at each index of the array.
137 # This is the name of the target.
141 # Defines the type of target we want to build. See the TT_xxx
146 # This is a bitfield containing flags refining the way the target
147 # should be handled. See the TF_xxx constants below
151 # This is a reference to an array containing the list of the
152 # resp. C, C++, RC, other (.h, .hxx, etc.) source files.
156 my $T_SOURCES_MISC=6;
159 # This is a reference to an array containing the list of
164 # This is a reference to an array containing the list of
165 # C++ compiler options
169 # This is a reference to an array containing the list of
170 # RC compiler options
174 # This is a reference to an array containing the list of macro
179 # This is a reference to an array containing the list of directory
180 # names that constitute the include path
181 my $T_INCLUDE_PATH=11;
184 # Flags for the linker
188 # Same as T_INCLUDE_PATH but for the dll search path
192 # The list of Windows dlls to import
196 # Same as T_INCLUDE_PATH but for the library search path
197 my $T_LIBRARY_PATH=15;
200 # The list of Unix libraries to link with
204 # The list of dependencies between targets
208 # The following constants define the recognized types of target
211 # This is not a real target. This type of target is used to collect
212 # the sources that don't seem to belong to any other target. Thus no
213 # real target is generated for them, we just put the sources of the
214 # fake target in the global source list.
218 # For executables in the windows subsystem
222 # For executables in the console subsystem
226 # For dynamically linked libraries
230 # The following constants further refine how the target should be handled
233 # This target is an MFC-based target
237 # User has specified --nomfc option for this target or globally
241 # --nodlls option: Do not use standard DLL set
245 # --nomsvcrt option: Do not link with msvcrt
249 # Initialize a target:
250 # - set the target type to TT_SETTINGS, i.e. no real target will
256 @
$target[$T_TYPE]=$TT_SETTINGS;
257 # leaving $T_INIT undefined
258 @
$target[$T_FLAGS]=$opt_flags;
259 @
$target[$T_SOURCES_C]=[];
260 @
$target[$T_SOURCES_CXX]=[];
261 @
$target[$T_SOURCES_RC]=[];
262 @
$target[$T_SOURCES_MISC]=[];
263 @
$target[$T_CEXTRA]=[];
264 @
$target[$T_CXXEXTRA]=[];
265 @
$target[$T_RCEXTRA]=[];
266 @
$target[$T_DEFINES]=[];
267 @
$target[$T_INCLUDE_PATH]=[];
268 @
$target[$T_LDFLAGS]=[];
269 @
$target[$T_DLL_PATH]=[];
270 @
$target[$T_DLLS]=[];
271 @
$target[$T_LIBRARY_PATH]=[];
272 @
$target[$T_LIBRARIES]=[];
279 # Project modelization
283 # First we have the notion of project. A project is described by an
284 # array (since we don't have structs in perl). The constants below
285 # identify what is stored at each index of the array.
288 # This is the path in which this project is located. In other
289 # words, this is the path to the Makefile.
293 # This index contains a reference to an array containing the project-wide
294 # settings. The structure of that arrray is actually identical to that of
295 # a regular target since it can also contain extra sources.
299 # This index contains a reference to an array of targets for this
300 # project. Each target describes how an executable or library is to
301 # be built. For each target this description takes the same form as
302 # that of the project: an array. So this entry is an array of arrays.
306 # Initialize a project:
307 # - set the project's path
308 # - initialize the target list
309 # - create a default target (will be removed later if unnecessary)
315 my $project_settings=[];
316 target_init
($project_settings);
318 @
$project[$P_PATH]=$path;
319 @
$project[$P_SETTINGS]=$project_settings;
320 @
$project[$P_TARGETS]=[];
336 # This maps a directory name to a reference to an array listing
337 # its contents (files and directories)
341 # Contains the list of all projects. This list tells us what are
342 # the subprojects of the main Makefile and where we have to generate
347 # This is the main project, i.e. the one in the "." directory.
348 # It may well be empty in which case the main Makefile will only
349 # call out subprojects.
353 # Contains the defaults for the include path, etc.
354 # We store the defaults as if this were a target except that we only
355 # exploit the defines, include path, library path, library list and misc
368 # Cleans up a name to make it an acceptable Makefile
374 $name =~ tr/a-zA-Z0-9_/_/c;
379 # Returns true is the specified pathname is absolute.
380 # Note: pathnames that start with a variable '$' or
381 # '~' are considered absolute.
386 return ($path =~ /^[\/~\
$]/);
390 # Performs a binary search looking for the specified item
395 my $last=@
{$array}-1;
398 while ($first<=$last) {
399 my $index=int(($first+$last)/2);
400 my $cmp=@
$array[$index] cmp $item;
412 # Retrieves the contents of the specified directory.
413 # We either get it from the directories hashtable which acts as a
414 # cache, or use opendir, readdir, closedir and store the result
416 sub get_directory_contents
($)
421 #print "getting the contents of $dirname\n";
423 # check for a cached version
425 if ($dirname eq "") {
428 $directory=$directories{$dirname};
429 if (defined $directory) {
430 #print "->@$directory\n";
434 # Read this directory
435 if (opendir(DIRECTORY
, "$dirname")) {
436 my @files=readdir DIRECTORY
;
440 # Return an empty list
441 #print "error: cannot open $dirname\n";
445 #print "->@$directory\n";
446 $directories{$dirname}=$directory;
454 # 'Source'-based Project analysis
459 # Allows the user to specify makefile and target specific options
460 # - target: the structure in which to store the results
461 # - options: the string containing the options
462 sub source_set_options
($$)
467 #FIXME: we must deal with escaping of stuff and all
468 foreach my $option (split / /,$options) {
469 if (@
$target[$T_TYPE] == $TT_SETTINGS and $option =~ /^-D/) {
470 push @
{@
$target[$T_DEFINES]},$option;
471 } elsif (@
$target[$T_TYPE] == $TT_SETTINGS and $option =~ /^-I/) {
472 push @
{@
$target[$T_INCLUDE_PATH]},$option;
473 } elsif ($option =~ /^-P/) {
474 push @
{@
$target[$T_DLL_PATH]},"-L$'";
475 } elsif ($option =~ /^-i/) {
476 push @
{@
$target[$T_DLLS]},"$'";
477 } elsif ($option =~ /^-L/) {
478 push @
{@
$target[$T_LIBRARY_PATH]},$option;
479 } elsif ($option =~ /^-l/) {
480 push @
{@
$target[$T_LIBRARIES]},"$'";
481 } elsif ($option =~ /^--mfc/) {
482 @
$target[$T_FLAGS]|=$TF_MFC;
483 @
$target[$T_FLAGS]&=~$TF_NOMFC;
484 } elsif ($option =~ /^--nomfc/) {
485 @
$target[$T_FLAGS]&=~$TF_MFC;
486 @
$target[$T_FLAGS]|=$TF_NOMFC;
487 } elsif ($option =~ /^--nodlls/) {
488 @
$target[$T_FLAGS]|=$TF_NODLLS;
489 } elsif ($option =~ /^--nomsvcrt/) {
490 @
$target[$T_FLAGS]|=$TF_NOMSVCRT;
492 print STDERR
"error: unknown option \"$option\"\n";
500 # Scans the specified directory to:
501 # - see if we should create a Makefile in this directory. We normally do
502 # so if we find a project file and sources
503 # - get a list of targets for this directory
504 # - get the list of source files
505 sub source_scan_directory
($$$$);
506 sub source_scan_directory
($$$$)
508 # a reference to the parent's project
509 my $parent_project=$_[0];
510 # the full relative path to the current directory, including a
511 # trailing '/', or an empty string if this is the top level directory
513 # the name of this directory, including a trailing '/', or an empty
514 # string if this is the top level directory
516 # if set then no targets will be looked for and the sources will all
517 # end up in the parent_project's 'misc' bucket
520 # reference to the project for this directory. May not be used
522 # list of targets found in the 'current' directory
524 # list of sources found in the current directory
529 # true if this directory contains a Windows project
530 my $has_win_project=0;
531 # true if this directory contains headers
533 # If we don't find any executable/library then we might make up targets
534 # from the list of .dsp/.mak files we find since they usually have the
535 # same name as their target.
539 if (defined $opt_single_target or $dirname eq "") {
540 # Either there is a single target and thus a single project,
541 # or we are in the top level directory for which a project
543 $project=$parent_project;
546 project_init
($project,$path);
548 my $project_settings=@
$project[$P_SETTINGS];
550 # First find out what this directory contains:
551 # collect all sources, targets and subdirectories
552 my $directory=get_directory_contents
($path);
553 foreach my $dentry (@
$directory) {
554 if ($dentry =~ /^\./) {
557 my $fullentry="$path$dentry";
558 if (-d
"$fullentry") {
559 if ($dentry =~ /^(Release|Debug)/i) {
560 # These directories are often used to store the object files and the
561 # resulting executable/library. They should not contain anything else.
562 my @candidates=grep /\.(exe|dll)$/i, @
{get_directory_contents
("$fullentry")};
563 foreach my $candidate (@candidates) {
564 $targets{$candidate}=1;
566 } elsif ($dentry =~ /^include/i) {
567 # This directory must contain headers we're going to need
568 push @
{@
$project_settings[$T_INCLUDE_PATH]},"-I$dentry";
569 source_scan_directory
($project,"$fullentry/","$dentry/",1);
571 # Recursively scan this directory. Any source file that cannot be
572 # attributed to a project in one of the subdirectories will be
573 # attributed to this project.
574 source_scan_directory
($project,"$fullentry/","$dentry/",$no_target);
576 } elsif (-f
"$fullentry") {
577 if ($dentry =~ /\.(exe|dll)$/i) {
579 } elsif ($dentry =~ /\.c$/i and $dentry !~ /\.(dbg|spec)\.c$/) {
580 push @sources_c,"$dentry";
581 } elsif ($dentry =~ /\.(cpp|cxx)$/i) {
582 if ($dentry =~ /^stdafx.cpp$/i && !(@
$project_settings[$T_FLAGS] & $TF_NOMFC)) {
583 push @sources_misc,"$dentry";
584 @
$project_settings[$T_FLAGS]|=$TF_MFC;
586 push @sources_cxx,"$dentry";
588 } elsif ($dentry =~ /\.rc$/i) {
589 push @sources_rc,"$dentry";
590 } elsif ($dentry =~ /\.(h|hxx|hpp|inl|rc2|dlg)$/i) {
592 push @sources_misc,"$dentry";
593 if ($dentry =~ /^stdafx.h$/i && !(@
$project_settings[$T_FLAGS] & $TF_NOMFC)) {
594 @
$project_settings[$T_FLAGS]|=$TF_MFC;
596 } elsif ($dentry =~ /\.dsp$/i) {
597 push @dsp_files,"$dentry";
599 } elsif ($dentry =~ /\.mak$/i) {
600 push @mak_files,"$dentry";
602 } elsif ($dentry =~ /^makefile/i) {
610 push @
{@
$project_settings[$T_INCLUDE_PATH]},"-I.";
612 # If we have a single target then all we have to do is assign
613 # all the sources to it and we're done
614 # FIXME: does this play well with the --interactive mode?
615 if ($opt_single_target) {
616 my $target=@
{@
$project[$P_TARGETS]}[0];
617 push @
{@
$target[$T_SOURCES_C]},map "$path$_",@sources_c;
618 push @
{@
$target[$T_SOURCES_CXX]},map "$path$_",@sources_cxx;
619 push @
{@
$target[$T_SOURCES_RC]},map "$path$_",@sources_rc;
620 push @
{@
$target[$T_SOURCES_MISC]},map "$path$_",@sources_misc;
624 my $parent_settings=@
$parent_project[$P_SETTINGS];
625 push @
{@
$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_c;
626 push @
{@
$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_cxx;
627 push @
{@
$parent_settings[$T_SOURCES_MISC]},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]};
633 my $source_count=@sources_c+@sources_cxx+@sources_rc+
634 @
{@
$project_settings[$T_SOURCES_C]}+
635 @
{@
$project_settings[$T_SOURCES_CXX]}+
636 @
{@
$project_settings[$T_SOURCES_RC]};
637 if ($source_count == 0) {
638 # A project without real sources is not a project, get out!
639 if ($project!=$parent_project) {
640 my $parent_settings=@
$parent_project[$P_SETTINGS];
641 push @
{@
$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_misc;
642 push @
{@
$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@
{@
$project_settings[$T_SOURCES_MISC]};
646 #print "targets=",%targets,"\n";
647 #print "target_count=$target_count\n";
648 #print "has_win_project=$has_win_project\n";
649 #print "dirname=$dirname\n";
652 if (($has_win_project != 0) or ($dirname eq "")) {
653 # Deal with cases where we could not find any executable/library, and
654 # thus have no target, although we did find some sort of windows project.
655 $target_count=keys %targets;
656 if ($target_count == 0) {
657 # Try to come up with a target list based on .dsp/.mak files
659 if (@dsp_files > 0) {
660 $prj_list=\
@dsp_files;
662 $prj_list=\
@mak_files;
664 foreach my $filename (@
$prj_list) {
665 $filename =~ s/\.(dsp|mak)$//i;
666 if ($opt_target_type == $TT_DLL) {
667 $filename = "$filename.dll";
669 $targets{$filename}=1;
671 $target_count=keys %targets;
672 if ($target_count == 0) {
673 # Still nothing, try the name of the directory
675 if ($dirname eq "") {
676 # Bad luck, this is the top level directory!
677 $name=(split /\//, cwd
)[-1];
680 # Remove the trailing '/'. Also eliminate whatever is after the last
681 # '.' as it is likely to be meaningless (.orig, .new, ...)
682 $name =~ s
+(/|\
.[^.]*)$++;
683 if ($name eq "src") {
684 # 'src' is probably a subdirectory of the real project directory.
685 # Try again with the parent (if any).
687 if ($parent =~ s
+([^/]*)/[^/]*/$+$1+) {
690 $name=(split /\//, cwd
)[-1];
694 $name =~ s
+(/|\
.[^.]*)$++;
695 if ($opt_target_type == $TT_DLL) {
704 # Ask confirmation to the user if he wishes so
705 if ($opt_is_interactive == $OPT_ASK_YES) {
706 my $target_list=join " ",keys %targets;
707 print "\n*** In ",($path?
$path:"./"),"\n";
708 print "* winemaker found the following list of (potential) targets\n";
709 print "* $target_list\n";
710 print "* Type enter to use it as is, your own comma-separated list of\n";
711 print "* targets, 'none' to assign the source files to a parent directory,\n";
712 print "* or 'ignore' to ignore everything in this directory tree.\n";
713 print "* Target list:\n";
714 $target_list=<STDIN
>;
716 if ($target_list eq "") {
717 # Keep the target list as is, i.e. do nothing
718 } elsif ($target_list eq "none") {
719 # Empty the target list
721 } elsif ($target_list eq "ignore") {
722 # Ignore this subtree altogether
726 foreach my $target (split /,/,$target_list) {
735 # If we have no project at this level, then transfer all
736 # the sources to the parent project
737 $target_count=keys %targets;
738 if ($target_count == 0) {
739 if ($project!=$parent_project) {
740 my $parent_settings=@
$parent_project[$P_SETTINGS];
741 push @
{@
$parent_settings[$T_SOURCES_C]},map "$dirname$_",@sources_c;
742 push @
{@
$parent_settings[$T_SOURCES_CXX]},map "$dirname$_",@sources_cxx;
743 push @
{@
$parent_settings[$T_SOURCES_RC]},map "$dirname$_",@sources_rc;
744 push @
{@
$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_misc;
745 push @
{@
$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@
{@
$project_settings[$T_SOURCES_MISC]};
750 # Otherwise add this project to the project list, except for
751 # the main project which is already in the list.
752 if ($dirname ne "") {
753 push @projects,$project;
756 # Ask for project-wide options
757 if ($opt_ask_project_options == $OPT_ASK_YES) {
759 if ((@
$project_settings[$T_FLAGS] & $TF_MFC)!=0) {
762 print "* Type any project-wide options (-D/-I/-P/-i/-L/-l/--mfc),\n";
763 if (defined $flag_desc) {
764 print "* (currently $flag_desc)\n";
766 print "* or 'skip' to skip the target specific options,\n";
767 print "* or 'never' to not be asked this question again:\n";
771 if ($options eq "skip") {
772 $opt_ask_target_options=$OPT_ASK_SKIP;
774 } elsif ($options eq "never") {
775 $opt_ask_project_options=$OPT_ASK_NO;
777 } elsif (source_set_options
($project_settings,$options)) {
780 print "Please re-enter the options:\n";
784 # - Create the targets
785 # - Check if we have both libraries and programs
786 # - Match each target with source files (sort in reverse
787 # alphabetical order to get the longest matches first)
789 my @local_depends=();
791 foreach my $target_name (map (lc, (sort { $b cmp $a } keys %targets))) {
792 # Create the target...
794 target_init
($target);
795 @
$target[$T_NAME]=$target_name;
796 @
$target[$T_FLAGS]|=@
$project_settings[$T_FLAGS];
797 if ($target_name =~ /\.dll$/) {
798 @
$target[$T_TYPE]=$TT_DLL;
799 push @local_depends,"$target_name.so";
800 push @local_dlls,$target_name;
801 my $canon=canonize
($target_name);
802 push @
{@
$target[$T_LDFLAGS]},("-shared","\$(${canon}_MODULE:%=%.spec)");
804 @
$target[$T_TYPE]=$opt_target_type;
805 push @exe_list,$target;
806 push @
{@
$target[$T_LDFLAGS]},(@
$target[$T_TYPE] == $TT_CUIEXE ?
"-mconsole" : "-mwindows");
808 my $basename=$target_name;
809 $basename=~ s/\.(dll|exe)$//i;
810 # This is the default link list of Visual Studio, except odbccp32
811 # which we don't have in Wine.
812 my @std_imports=qw(odbc32 ole32 oleaut32 winspool);
813 my @std_libraries=qw(uuid);
814 if ((@
$target[$T_FLAGS] & $TF_NODLLS) == 0) {
815 @
$target[$T_DLLS]=\
@std_imports;
816 @
$target[$T_LIBRARIES]=\
@std_libraries;
818 @
$target[$T_DLLS]=[];
819 @
$target[$T_LIBRARIES]=[];
821 if ((@
$target[$T_FLAGS] & $TF_NOMSVCRT) == 0) {
822 push @
{@
$target[$T_LDFLAGS]},"-mno-cygwin";
824 push @
{@
$project[$P_TARGETS]},$target;
826 # Ask for target-specific options
827 if ($opt_ask_target_options == $OPT_ASK_YES) {
829 if ((@
$target[$T_FLAGS] & $TF_MFC)!=0) {
832 if ($flag_desc ne "") {
835 print "* Specify any link option (-P/-i/-L/-l/--mfc) specific to the target\n";
836 print "* \"$target_name\"$flag_desc or 'never' to not be asked this question again:\n";
840 if ($options eq "never") {
841 $opt_ask_target_options=$OPT_ASK_NO;
843 } elsif (source_set_options
($target,$options)) {
846 print "Please re-enter the options:\n";
849 if (@
$target[$T_FLAGS] & $TF_MFC) {
850 @
$project_settings[$T_FLAGS]|=$TF_MFC;
851 push @
{@
$target[$T_DLL_PATH]},"\$(MFC_LIBRARY_PATH)";
852 push @
{@
$target[$T_DLLS]},"mfc.dll";
853 # FIXME: Link with the MFC in the Unix sense, until we
854 # start exporting the functions properly.
855 push @
{@
$target[$T_LIBRARY_PATH]},"\$(MFC_LIBRARY_PATH)";
856 push @
{@
$target[$T_LIBRARIES]},"mfc";
860 if ($target_count == 1) {
861 push @
{@
$target[$T_SOURCES_C]},@
{@
$project_settings[$T_SOURCES_C]},@sources_c;
862 @
$project_settings[$T_SOURCES_C]=[];
865 push @
{@
$target[$T_SOURCES_CXX]},@
{@
$project_settings[$T_SOURCES_CXX]},@sources_cxx;
866 @
$project_settings[$T_SOURCES_CXX]=[];
869 push @
{@
$target[$T_SOURCES_RC]},@
{@
$project_settings[$T_SOURCES_RC]},@sources_rc;
870 @
$project_settings[$T_SOURCES_RC]=[];
873 push @
{@
$target[$T_SOURCES_MISC]},@
{@
$project_settings[$T_SOURCES_MISC]},@sources_misc;
874 # No need for sorting these sources
875 @
$project_settings[$T_SOURCES_MISC]=[];
878 foreach my $source (@sources_c) {
879 if ($source =~ /^$basename/i) {
880 push @
{@
$target[$T_SOURCES_C]},$source;
884 foreach my $source (@sources_cxx) {
885 if ($source =~ /^$basename/i) {
886 push @
{@
$target[$T_SOURCES_CXX]},$source;
890 foreach my $source (@sources_rc) {
891 if ($source =~ /^$basename/i) {
892 push @
{@
$target[$T_SOURCES_RC]},$source;
896 foreach my $source (@sources_misc) {
897 if ($source =~ /^$basename/i) {
898 push @
{@
$target[$T_SOURCES_MISC]},$source;
903 @
$target[$T_SOURCES_C]=[sort @
{@
$target[$T_SOURCES_C]}];
904 @
$target[$T_SOURCES_CXX]=[sort @
{@
$target[$T_SOURCES_CXX]}];
905 @
$target[$T_SOURCES_RC]=[sort @
{@
$target[$T_SOURCES_RC]}];
906 @
$target[$T_SOURCES_MISC]=[sort @
{@
$target[$T_SOURCES_MISC]}];
908 if ($opt_ask_target_options == $OPT_ASK_SKIP) {
909 $opt_ask_target_options=$OPT_ASK_YES;
912 if ((@
$project_settings[$T_FLAGS] & $TF_NOMSVCRT) == 0) {
913 push @
{@
$project_settings[$T_CEXTRA]},"-mno-cygwin";
914 push @
{@
$project_settings[$T_CXXEXTRA]},"-mno-cygwin";
917 if (@
$project_settings[$T_FLAGS] & $TF_MFC) {
918 push @
{@
$project_settings[$T_INCLUDE_PATH]},"\$(MFC_INCLUDE_PATH)";
920 # The sources that did not match, if any, go to the extra
921 # source list of the project settings
922 foreach my $source (@sources_c) {
924 push @
{@
$project_settings[$T_SOURCES_C]},$source;
927 @
$project_settings[$T_SOURCES_C]=[sort @
{@
$project_settings[$T_SOURCES_C]}];
928 foreach my $source (@sources_cxx) {
930 push @
{@
$project_settings[$T_SOURCES_CXX]},$source;
933 @
$project_settings[$T_SOURCES_CXX]=[sort @
{@
$project_settings[$T_SOURCES_CXX]}];
934 foreach my $source (@sources_rc) {
936 push @
{@
$project_settings[$T_SOURCES_RC]},$source;
939 @
$project_settings[$T_SOURCES_RC]=[sort @
{@
$project_settings[$T_SOURCES_RC]}];
940 foreach my $source (@sources_misc) {
942 push @
{@
$project_settings[$T_SOURCES_MISC]},$source;
945 @
$project_settings[$T_SOURCES_MISC]=[sort @
{@
$project_settings[$T_SOURCES_MISC]}];
947 # Finally if we are building both libraries and programs in
948 # this directory, then the programs should be linked with all
950 if (@local_dlls > 0 and @exe_list > 0) {
951 foreach my $target (@exe_list) {
952 push @
{@
$target[$T_DLL_PATH]},"-L.";
953 push @
{@
$target[$T_DLLS]},@local_dlls;
959 # Scan the source directories in search of things to build
962 # If there's a single target then this is going to be the default target
963 if (defined $opt_single_target) {
964 # Create the main target
966 target_init
($main_target);
967 @
$main_target[$T_NAME]=$opt_single_target;
968 @
$main_target[$T_TYPE]=$opt_target_type;
971 push @
{$main_project[$P_TARGETS]},$main_target;
974 # The main directory is always going to be there
975 push @projects,\
@main_project;
977 # Now scan the directory tree looking for source files and, maybe, targets
978 print "Scanning the source directories...\n";
979 source_scan_directory
(\
@main_project,"","",0);
981 @projects=sort { @
$a[$P_PATH] cmp @
$b[$P_PATH] } @projects;
991 # Performs a directory traversal and renames the files so that:
992 # - they have the case desired by the user
993 # - their extension is of the appropriate case
994 # - they don't contain annoying characters like ' ', '$', '#', ...
995 # But only perform these changes for source files and directories.
996 sub fix_file_and_directory_names
($);
997 sub fix_file_and_directory_names
($)
1001 if (opendir(DIRECTORY
, "$dirname")) {
1002 foreach my $dentry (readdir DIRECTORY
) {
1003 if ($dentry =~ /^\./ or $dentry eq "CVS") {
1006 # Set $warn to 1 if the user should be warned of the renaming
1008 my $new_name=$dentry;
1010 if (-f
"$dirname/$dentry")
1012 # Don't rename Winemaker's makefiles
1013 next if ($dentry eq "Makefile" and
1014 `head -n 1 "$dirname/$dentry"` =~ /Generated by Winemaker
/);
1016 # Leave non-source files alone
1017 next if ($new_name !~ /(^makefile|\.(c|cpp|h|rc))$/i);
1019 # Only all lowercase extensions are supported (because of
1020 # rules like '.c.o:'.
1021 $new_name =~ s/\.C$/.c/;
1022 $new_name =~ s/\.cpp$/.cpp/i;
1023 $warn=1 if ($new_name =~ s/\.cxx$/.cpp/i);
1024 $new_name =~ s/\.rc$/.rc/i;
1025 # And this last one is to avoid confusion then running make
1026 $warn=1 if ($new_name =~ s/^makefile$/makefile.win/i);
1029 # Adjust the case to the user's preferences
1030 if (($opt_lower == $OPT_LOWER_ALL and $dentry =~ /[A-Z]/) or
1031 ($opt_lower == $OPT_LOWER_UPPERCASE and $dentry !~ /[a-z]/)
1033 $new_name=lc $new_name;
1036 # autoconf and make don't support these characters well
1037 $new_name =~ s/[ \$]/_/g;
1039 # And finally, perform the renaming
1040 if ($new_name ne $dentry) {
1042 print STDERR
"warning: in \"$dirname\", renaming \"$dentry\" to \"$new_name\"\n";
1044 if (!rename("$dirname/$dentry","$dirname/$new_name")) {
1045 print STDERR
"error: in \"$dirname\", unable to rename \"$dentry\" to \"$new_name\"\n";
1046 print STDERR
" $!\n";
1050 if (-d
"$dirname/$new_name") {
1051 fix_file_and_directory_names
("$dirname/$new_name");
1054 closedir(DIRECTORY
);
1067 # Try to find a file for the specified filename. The attempt is
1068 # case-insensitive which is why it's not trivial. If a match is
1069 # found then we return the pathname with the correct case.
1076 if ($dirname eq "" or $dirname eq ".") {
1078 } elsif ($dirname !~ m
+^/+) {
1079 $dirname=cwd
. "/" . $dirname;
1081 if ($dirname !~ m
+/$+) {
1085 foreach my $component (@
$path) {
1086 #print " looking for $component in \"$dirname\"\n";
1087 if ($component eq ".") {
1090 } elsif ($component eq "..") {
1092 $dirname=dirname
($dirname) . "/";
1095 # The file/directory may have been renamed before. Also try to
1096 # match the renamed file.
1097 my $renamed=$component;
1098 $renamed =~ s/[ \$]/_/g;
1099 if ($renamed eq $component) {
1103 my $directory=get_directory_contents
$dirname;
1105 foreach my $dentry (@
$directory) {
1106 if ($dentry =~ /^\Q$component\E$/i or
1107 (defined $renamed and $dentry =~ /^$renamed$/i)
1109 $dirname.="$dentry/";
1110 $real_path.="$dentry/";
1115 if (!defined $found) {
1117 #print " could not find $component in $dirname\n";
1122 $real_path=~ s
+/$++;
1123 #print " -> found $real_path\n";
1128 # Performs a case-insensitive search for the specified file in the
1130 # $line is the line number that should be referenced when an error occurs
1131 # $filename is the file we are looking for
1132 # $dirname is the directory of the file containing the '#include' directive
1133 # if '"' was used, it is an empty string otherwise
1134 # $project and $target specify part of the include path
1135 sub get_real_include_name
($$$$$)
1143 if ($filename =~ /^([a-zA-Z]:)?[\/]/ or $filename =~ /^[a
-zA
-Z
]:[\
/]?/) {
1144 # This is not a relative path, we cannot make any check
1145 my $warning="path:$filename";
1146 if (!defined $warnings{$warning}) {
1147 $warnings{$warning}="1";
1148 print STDERR
"warning: cannot check the case of absolute pathnames:\n";
1149 print STDERR
"$line: $filename\n";
1152 # Here's how we proceed:
1153 # - split the filename we look for into its components
1154 # - then for each directory in the include path
1155 # - trace the directory components starting from that directory
1156 # - if we fail to find a match at any point then continue with
1157 # the next directory in the include path
1158 # - otherwise, rejoice, our quest is over.
1159 my @file_components=split /[\/\\]+/, $filename;
1160 #print " Searching for $filename from @$project[$P_PATH]\n";
1163 if ($dirname ne "") {
1164 # This is an 'include ""' -> look in dirname first.
1165 #print " in $dirname (include \"\")\n";
1166 $real_filename=search_from
($dirname,\
@file_components);
1167 if (defined $real_filename) {
1168 return $real_filename;
1171 my $project_settings=@
$project[$P_SETTINGS];
1172 foreach my $include (@
{@
$target[$T_INCLUDE_PATH]}, @
{@
$project_settings[$T_INCLUDE_PATH]}) {
1173 my $dirname=$include;
1175 if (!is_absolute
($dirname)) {
1176 $dirname="@$project[$P_PATH]$dirname";
1178 $dirname=~ s
+^\
$\
(TOPSRCDIR\
)/++;
1179 $dirname=~ s
+^\
$\
(SRCDIR\
)/+@
$project[$P_PATH]+;
1181 #print " in $dirname\n";
1182 $real_filename=search_from
("$dirname",\
@file_components);
1183 if (defined $real_filename) {
1184 return $real_filename;
1187 my $dotdotpath=@
$project[$P_PATH];
1188 $dotdotpath =~ s/[^\/]+/../g
;
1189 foreach my $include (@
{$global_settings[$T_INCLUDE_PATH]}) {
1190 my $dirname=$include;
1192 $dirname=~ s
+^\
$\
(TOPSRCDIR\
)\
/++;
1193 $dirname=~ s
+^\
$\
(SRCDIR\
)\
/+@
$project[$P_PATH]+;
1194 #print " in $dirname (global setting)\n";
1195 $real_filename=search_from
("$dirname",\
@file_components);
1196 if (defined $real_filename) {
1197 return $real_filename;
1201 $filename =~ s
+\\\\+/+g
; # in include ""
1202 $filename =~ s
+\\+/+g
; # in include <> !
1203 if ($opt_lower_include) {
1204 return lc "$filename";
1215 if ($size =~ /^(1|2|4|8)$/) {
1216 print FILEO
"$indent#include <pshpack$size.h>$trailer";
1218 print FILEO
"$indent/* winemaker:warning: Unknown size \"$size\". Defaulting to 4 */\n";
1219 print FILEO
"$indent#include <pshpack4.h>$trailer";
1224 # 'Parses' a source file and fixes constructs that would not work with
1225 # Winelib. The parsing is rather simple and not all non-portable features
1226 # are corrected. The most important feature that is corrected is the case
1227 # and path separator of '#include' directives. This requires that each
1228 # source file be associated to a project & target so that the proper
1229 # include path is used.
1230 # Also note that the include path is relative to the directory in which the
1231 # compiler is run, i.e. that of the project, not to that of the file.
1237 $filename="@$project[$P_PATH]$filename";
1238 if (! -e
$filename) {
1242 my $is_rc=($filename =~ /\.(rc2?|dlg)$/i);
1243 my $dirname=dirname
($filename);
1245 if (defined $target and (@
$target[$T_FLAGS] & $TF_MFC)) {
1249 print " $filename\n";
1250 #FIXME:assuming that because there is a .bak file, this is what we want is
1251 #probably flawed. Or is it???
1252 if (! -e
"$filename.bak") {
1253 if (!copy
("$filename","$filename.bak")) {
1254 print STDERR
"error: unable to make a backup of $filename:\n";
1255 print STDERR
" $!\n";
1259 if (!open(FILEI
,"$filename.bak")) {
1260 print STDERR
"error: unable to open $filename.bak for reading:\n";
1261 print STDERR
" $!\n";
1264 if (!open(FILEO
,">$filename")) {
1265 print STDERR
"error: unable to open $filename for writing:\n";
1266 print STDERR
" $!\n";
1271 my $rc_block_depth=0;
1272 my $rc_textinclude_state=0;
1275 # Remove any trailing CtrlZ, which isn't strictly in the file
1283 # Make sure all files are '\n' terminated
1286 if ($is_rc and !$is_mfc and /^(\s*)(\#\s*include\s*)\"afxres\.h\"/) {
1287 # VC6 automatically includes 'afxres.h', an MFC specific header, in
1288 # the RC files it generates (even in non-MFC projects). So we replace
1289 # it with 'winres.h' its very close standard cousin so that non MFC
1290 # projects can compile in Wine without the MFC sources.
1291 my $warning="mfc:afxres.h";
1292 if (!defined $warnings{$warning}) {
1293 $warnings{$warning}="1";
1294 print STDERR
"warning: In non-MFC projects, winemaker replaces the MFC specific header 'afxres.h' with 'winres.h'\n";
1295 print STDERR
"warning: the above warning is issued only once\n";
1297 print FILEO
"$1/* winemaker: $2\"afxres.h\" */\n";
1298 print FILEO
"$1/* winemaker:warning: 'afxres.h' is an MFC specific header. Replacing it with 'winres.h' */\n";
1299 print FILEO
"$1$2\"winres.h\"$'";
1302 } elsif (/^(\s*\#\s*include\s*)([\"<])([^\"]+)([\">])/) {
1303 my $from_file=($2 eq "<"?
"":$dirname);
1304 my $real_include_name=get_real_include_name
($line,$3,$from_file,$project,$target);
1305 print FILEO
"$1$2$real_include_name$4$'";
1306 $modified|=($real_include_name ne $3);
1308 } elsif (s/^(\s*)(\#\s*pragma\s+pack\s*\(\s*)//) {
1309 # Pragma pack handling
1311 # pack_stack is an array of references describing the stack of
1312 # pack directives currently in effect. Each directive if described
1313 # by a reference to an array containing:
1314 # - "push" for pack(push,...) directives, "" otherwise
1315 # - the directive's identifier at index 1
1316 # - the directive's alignment value at index 2
1318 # Don't believe a word of what the documentation says: it's all wrong.
1319 # The code below is based on the actual behavior of Visual C/C++ 6.
1324 # Pushes the default stack alignment
1325 print FILEO
"$pack_indent/* winemaker: $pack_header$1 */\n";
1326 print FILEO
"$pack_indent/* winemaker:warning: Using 4 as the default alignment */\n";
1327 print_pack
($pack_indent,4,$');
1328 push @pack_stack, [ "", "", 4 ];
1330 } elsif (/^(pop\s*(,\s*\d+\s*)?\))/) {
1332 # pragma pack(pop,n)
1333 # Goes up the stack until it finds a pack(push,...), and pops it
1334 # Ignores any pack(n) entry
1335 # Issues a warning if the pack is of the form pack(push,label)
1336 print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n";
1337 my $pack_comment=$';
1338 $pack_comment =~ s/^\s*//;
1339 if ($pack_comment ne "") {
1340 print FILEO
"$pack_indent$pack_comment";
1343 my $alignment=pop @pack_stack;
1344 if (!defined $alignment) {
1345 print FILEO
"$pack_indent/* winemaker:warning: No pack(push,...) found. All the stack has been popped */\n";
1348 if (@
$alignment[1]) {
1349 print FILEO
"$pack_indent/* winemaker:warning: Anonymous pop of pack(push,@$alignment[1]) (@$alignment[2]) */\n";
1351 print FILEO
"$pack_indent#include <poppack.h>\n";
1352 if (@
$alignment[0]) {
1357 } elsif (/^(pop\s*,\s*(\w+)\s*(,\s*\d+\s*)?\))/) {
1358 # pragma pack(pop,label[,n])
1359 # Goes up the stack until finding a pack(push,...) and pops it.
1360 # 'n', if specified, is ignored.
1361 # Ignores any pack(n) entry
1362 # Issues a warning if the label of the pack does not match,
1363 # or if it is in fact a pack(push,n)
1365 print FILEO
"$pack_indent/* winemaker: $pack_header$1 */\n";
1366 my $pack_comment=$';
1367 $pack_comment =~ s/^\s*//;
1368 if ($pack_comment ne "") {
1369 print FILEO "$pack_indent$pack_comment";
1372 my $alignment=pop @pack_stack;
1373 if (!defined $alignment) {
1374 print FILEO "$pack_indent/* winemaker:warning: No pack(push,$label) found. All the stack has been popped */\n";
1377 if (@$alignment[1] and @$alignment[1] ne $label) {
1378 print FILEO "$pack_indent/* winemaker:warning: Push/pop mismatch: \"@$alignment[1]\" (@$alignment[2]) != \"$label\" */\n";
1380 print FILEO "$pack_indent#include <poppack.h>\n";
1381 if (@$alignment[0]) {
1386 } elsif (/^(push\s*\))/) {
1388 # Push the current alignment
1389 print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n";
1390 if (@pack_stack > 0) {
1391 my $alignment=$pack_stack[$#pack_stack];
1392 print_pack($pack_indent,@$alignment[2],$');
1393 push @pack_stack, [ "push", "", @
$alignment[2] ];
1395 print FILEO
"$pack_indent/* winemaker:warning: Using 4 as the default alignment */\n";
1396 print_pack
($pack_indent,4,$');
1397 push @pack_stack, [ "push", "", 4 ];
1400 } elsif (/^((push\s*,\s*)?(\d+)\s*\))/) {
1401 # pragma pack([push,]n)
1402 # Push new alignment n
1403 print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n";
1404 print_pack($pack_indent,$3,"$'");
1405 push @pack_stack, [ ($2 ? "push" : ""), "", $3 ];
1407 } elsif (/^((\w+)\s*\))/) {
1408 # pragma pack(label)
1409 # label must in fact be a macro that resolves to an integer
1410 # Then behaves like 'pragma pack(n)'
1411 print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n";
1412 print FILEO "$pack_indent/* winemaker:warning: Assuming $2 == 4 */\n";
1413 print_pack($pack_indent,4,$');
1414 push @pack_stack, [ "", "", 4 ];
1416 } elsif (/^(push\s*,\s*(\w+)\s*(,\s*(\d+)\s*)?\))/) {
1417 # pragma pack(push,label[,n])
1418 # Pushes a new label on the stack. It is possible to push the same
1419 # label multiple times. If 'n' is omitted then the alignment is
1420 # unchanged. Otherwise it becomes 'n'.
1421 print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n";
1425 } elsif (@pack_stack > 0) {
1426 my $alignment=$pack_stack[$#pack_stack];
1427 $size=@$alignment[2];
1429 print FILEO "$pack_indent/* winemaker:warning: Using 4 as the default alignment */\n";
1432 print_pack($pack_indent,$size,$');
1433 push @pack_stack, [ "push", $2, $size ];
1436 # pragma pack(??? -> What's that?
1437 print FILEO "$pack_indent/* winemaker:warning: Unknown type of pragma pack directive */\n";
1438 print FILEO "$pack_indent$pack_header$_";
1444 if ($rc_block_depth == 0 and /^(\w+\s+(BITMAP|CURSOR|FONT|FONTDIR|ICON|MESSAGETABLE|TEXT|RTF)\s+((DISCARDABLE|FIXED|IMPURE|LOADONCALL|MOVEABLE|PRELOAD|PURE)\s+)*)([\"<]?)([^\">\r\n]+)([\">]?)/) {
1445 my $from_file=($5 eq "<"?"":$dirname);
1446 my $real_include_name=get_real_include_name($line,$6,$from_file,$project,$target);
1447 print FILEO "$1$5$real_include_name$7$'";
1448 $modified|=($real_include_name ne $6);
1450 } elsif (/^(\s*RCINCLUDE\s*)([\"<]?)([^\">\r\n]+)([\">]?)/) {
1451 my $from_file=($2 eq "<"?"":$dirname);
1452 my $real_include_name=get_real_include_name($line,$3,$from_file,$project,$target);
1453 print FILEO "$1$2$real_include_name$4$'";
1454 $modified|=($real_include_name ne $3);
1456 } elsif ($is_rc and !$is_mfc and $rc_block_depth == 0 and /^\s*\d+\s+TEXTINCLUDE\s*/) {
1457 $rc_textinclude_state=1;
1460 } elsif ($rc_textinclude_state == 3 and /^(\s*\"\#\s*include\s*\"\")afxres\.h(\"\"\\r\\n\")/) {
1461 print FILEO "$1winres.h
$2$'";
1464 } elsif (/^\s*BEGIN(\W.*)?$/) {
1465 $rc_textinclude_state|=2;
1469 } elsif (/^\s*END(\W.*)?$/) {
1470 $rc_textinclude_state=0;
1471 if ($rc_block_depth>0) {
1487 if ($opt_backup == 0 or $modified == 0) {
1488 if (!unlink("$filename.bak")) {
1489 print STDERR "error: unable to delete $filename.bak:\n";
1490 print STDERR " $!\n";
1496 # Analyzes each source file in turn to find and correct issues
1497 # that would cause it not to compile.
1500 print "Fixing the source files...\n";
1501 foreach my $project (@projects) {
1502 foreach my $target (@$project[$P_SETTINGS],@{@$project[$P_TARGETS]}) {
1503 foreach my $source (@{@$target[$T_SOURCES_C]}, @{@$target[$T_SOURCES_CXX]}, @{@$target[$T_SOURCES_RC]}, @{@$target[$T_SOURCES_MISC]}) {
1504 fix_file($source,$project,$target);
1519 # A convenience function to generate all the lists (defines,
1520 # C sources, C++ source, etc.) in the Makefile
1521 sub generate_list($$$;$)
1530 printf FILEO "%-22s=",$name;
1532 if (defined $list) {
1533 foreach my $item (@$list) {
1535 if (defined $data) {
1536 $value=&$data($item);
1542 print FILEO " $value";
1545 print FILEO " \\\n\t\t\t$value";
1556 # Generates a project's Makefile
and all the target files
1557 sub generate_project_files
($)
1560 my $project_settings=@
$project[$P_SETTINGS];
1564 # Then sort the targets and separate the libraries from the programs
1565 foreach my $target (sort { @
$a[$T_NAME] cmp @
$b[$T_NAME] } @
{@
$project[$P_TARGETS]}) {
1566 if (@
$target[$T_TYPE] == $TT_DLL) {
1567 push @dll_list,$target;
1569 push @exe_list,$target;
1572 @
$project[$P_TARGETS]=[];
1573 push @
{@
$project[$P_TARGETS]}, @dll_list;
1574 push @
{@
$project[$P_TARGETS]}, @exe_list;
1576 if (!open(FILEO
,">@$project[$P_PATH]Makefile")) {
1577 print STDERR
"error: could not open \"@$project[$P_PATH]/Makefile\" for writing\n";
1578 print STDERR
" $!\n";
1582 print FILEO
"### Generated by Winemaker\n";
1585 generate_list
("SRCDIR",1,[ "." ]);
1586 if (@
$project[$P_PATH] eq "") {
1587 # This is the main project. It is also responsible for recursively
1588 # calling the other projects
1589 generate_list
("SUBDIRS",1,\
@projects,sub
1591 if ($_[0] != \
@main_project) {
1592 my $subdir=@
{$_[0]}[$P_PATH];
1596 # Eliminating the main project by returning undefined!
1599 if (@
{@
$project[$P_TARGETS]} > 0) {
1600 generate_list
("DLLS",1,\
@dll_list,sub
1602 return @
{$_[0]}[$T_NAME];
1604 generate_list
("EXES",1,\
@exe_list,sub
1606 return "@{$_[0]}[$T_NAME]";
1608 print FILEO
"\n\n\n";
1610 print FILEO
"### Common settings\n\n";
1611 # Make it so that the project-wide settings override the global settings
1612 generate_list
("CEXTRA",1,@
$project_settings[$T_CEXTRA]);
1613 generate_list
("CXXEXTRA",1,@
$project_settings[$T_CXXEXTRA]);
1614 generate_list
("RCEXTRA",1,@
$project_settings[$T_RCEXTRA]);
1615 generate_list
("INCLUDE_PATH",1,@
$project_settings[$T_INCLUDE_PATH]);
1616 generate_list
("DLL_PATH",1,@
$project_settings[$T_DLL_PATH]);
1617 generate_list
("LIBRARY_PATH",1,@
$project_settings[$T_LIBRARY_PATH]);
1618 generate_list
("LIBRARIES",1,@
$project_settings[$T_LIBRARIES]);
1621 my $extra_source_count=@
{@
$project_settings[$T_SOURCES_C]}+
1622 @
{@
$project_settings[$T_SOURCES_CXX]}+
1623 @
{@
$project_settings[$T_SOURCES_RC]};
1624 my $no_extra=($extra_source_count == 0);
1626 print FILEO
"### Extra source lists\n\n";
1627 generate_list
("EXTRA_C_SRCS",1,@
$project_settings[$T_SOURCES_C]);
1628 generate_list
("EXTRA_CXX_SRCS",1,@
$project_settings[$T_SOURCES_CXX]);
1629 generate_list
("EXTRA_RC_SRCS",1,@
$project_settings[$T_SOURCES_RC]);
1631 generate_list
("EXTRA_OBJS",1,["\$(EXTRA_C_SRCS:.c=.o)","\$(EXTRA_CXX_SRCS:.cpp=.o)"]);
1632 print FILEO
"\n\n\n";
1635 # Iterate over all the targets...
1636 foreach my $target (@
{@
$project[$P_TARGETS]}) {
1637 print FILEO
"### @$target[$T_NAME] sources and settings\n\n";
1638 my $canon=canonize
("@$target[$T_NAME]");
1641 generate_list
("${canon}_MODULE",1,[@
$target[$T_NAME]]);
1642 generate_list
("${canon}_C_SRCS",1,@
$target[$T_SOURCES_C]);
1643 generate_list
("${canon}_CXX_SRCS",1,@
$target[$T_SOURCES_CXX]);
1644 generate_list
("${canon}_RC_SRCS",1,@
$target[$T_SOURCES_RC]);
1645 generate_list
("${canon}_LDFLAGS",1,@
$target[$T_LDFLAGS]);
1646 generate_list
("${canon}_DLL_PATH",1,@
$target[$T_DLL_PATH]);
1647 generate_list
("${canon}_DLLS",1,@
$target[$T_DLLS]);
1648 generate_list
("${canon}_LIBRARY_PATH",1,@
$target[$T_LIBRARY_PATH]);
1649 generate_list
("${canon}_LIBRARIES",1,@
$target[$T_LIBRARIES]);
1651 generate_list
("${canon}_OBJS",1,["\$(${canon}_C_SRCS:.c=.o)","\$(${canon}_CXX_SRCS:.cpp=.o)","\$(${canon}_RC_SRCS:.rc=.res)"]);
1652 print FILEO
"\n\n\n";
1654 print FILEO
"### Global source lists\n\n";
1655 generate_list
("C_SRCS",$no_extra,@
$project[$P_TARGETS],sub
1657 my $canon=canonize
(@
{$_[0]}[$T_NAME]);
1659 return "\$(${canon}_C_SRCS)";
1662 generate_list
("",1,[ "\$(EXTRA_C_SRCS)" ]);
1664 generate_list
("CXX_SRCS",$no_extra,@
$project[$P_TARGETS],sub
1666 my $canon=canonize
(@
{$_[0]}[$T_NAME]);
1668 return "\$(${canon}_CXX_SRCS)";
1671 generate_list
("",1,[ "\$(EXTRA_CXX_SRCS)" ]);
1673 generate_list
("RC_SRCS",$no_extra,@
$project[$P_TARGETS],sub
1675 my $canon=canonize
(@
{$_[0]}[$T_NAME]);
1677 return "\$(${canon}_RC_SRCS)";
1680 generate_list
("",1,[ "\$(EXTRA_RC_SRCS)" ]);
1684 print FILEO
"### Tools\n\n";
1685 print FILEO
"CC = winegcc\n";
1686 print FILEO
"CXX = wineg++\n";
1687 print FILEO
"RC = wrc\n";
1690 print FILEO
"### Generic targets\n\n";
1692 if (@
$project[$P_PATH] eq "") {
1693 print FILEO
" \$(SUBDIRS)";
1695 if (@
{@
$project[$P_TARGETS]} > 0) {
1696 print FILEO
" \$(DLLS:%=%.so) \$(EXES:%=%.so)";
1699 print FILEO
"### Build rules\n";
1701 print FILEO
".PHONY: all clean dummy\n";
1703 print FILEO
"\$(SUBDIRS): dummy\n";
1704 print FILEO
"\t\@cd \$\@ && \$(MAKE)\n";
1706 print FILEO
"# Implicit rules\n";
1708 print FILEO
".SUFFIXES: .cpp .rc .res\n";
1709 print FILEO
"DEFINCL = \$(INCLUDE_PATH) \$(DEFINES) \$(OPTIONS)\n";
1711 print FILEO
".c.o:\n";
1712 print FILEO
"\t\$(CC) -c \$(CFLAGS) \$(CEXTRA) \$(DEFINCL) -o \$\@ \$<\n";
1714 print FILEO
".cpp.o:\n";
1715 print FILEO
"\t\$(CXX) -c \$(CXXFLAGS) \$(CXXEXTRA) \$(DEFINCL) -o \$\@ \$<\n";
1717 print FILEO
".cxx.o:\n";
1718 print FILEO
"\t\$(CXX) -c \$(CXXFLAGS) \$(CXXEXTRA) \$(DEFINCL) -o \$\@ \$<\n";
1720 print FILEO
".rc.res:\n";
1721 print FILEO
"\t\$(RC) \$(RCFLAGS) \$(RCEXTRA) \$(DEFINCL) -fo\$@ \$<\n";
1723 print FILEO
"# Rules for cleaning\n";
1725 print FILEO
"CLEAN_FILES = y.tab.c y.tab.h lex.yy.c core *.orig *.rej \\\n";
1726 print FILEO
" \\\\\\#*\\\\\\# *~ *% .\\\\\\#*\n";
1728 print FILEO
"clean:: \$(SUBDIRS:%=%/__clean__) \$(EXTRASUBDIRS:%=%/__clean__)\n";
1729 print FILEO
"\t\$(RM) \$(CLEAN_FILES) \$(RC_SRCS:.rc=.res) \$(C_SRCS:.c=.o) \$(CXX_SRCS:.cpp=.o)\n";
1730 print FILEO
"\t\$(RM) \$(DLLS:%=%.so) \$(EXES:%=%.so) \$(EXES:%.exe=%)\n";
1732 print FILEO
"\$(SUBDIRS:%=%/__clean__): dummy\n";
1733 print FILEO
"\tcd `dirname \$\@` && \$(MAKE) clean\n";
1735 print FILEO
"\$(EXTRASUBDIRS:%=%/__clean__): dummy\n";
1736 print FILEO
"\t-cd `dirname \$\@` && \$(RM) \$(CLEAN_FILES)\n";
1739 if (@
{@
$project[$P_TARGETS]} > 0) {
1740 print FILEO
"### Target specific build rules\n";
1741 print FILEO
"DEFLIB = \$(LIBRARY_PATH) \$(LIBRARIES) \$(DLL_PATH)\n\n";
1742 foreach my $target (@
{@
$project[$P_TARGETS]}) {
1743 my $canon=canonize
("@$target[$T_NAME]");
1746 print FILEO
"\$(${canon}_MODULE).so: \$(${canon}_OBJS)\n";
1747 if (@
{@
$target[$T_SOURCES_CXX]} > 0 or @
{@
$project_settings[$T_SOURCES_CXX]} > 0) {
1748 print FILEO
"\t\$(CXX)";
1750 print FILEO
"\t\$(CC)";
1752 print FILEO
" \$(${canon}_LDFLAGS) -o \$\@ \$(${canon}_OBJS) \$(${canon}_LIBRARY_PATH) \$(DEFLIB) \$(${canon}_DLLS:%=-l%) \$(${canon}_LIBRARIES:%=-l%)\n";
1762 # This is where we finally generate files. In fact this method does not
1763 # do anything itself but calls the methods that do the actual work.
1766 print "Generating project files...\n";
1768 foreach my $project (@projects) {
1769 my $path=@
$project[$P_PATH];
1776 generate_project_files
($project);
1789 $opt_lower=$OPT_LOWER_UPPERCASE;
1790 $opt_lower_include=1;
1792 $opt_work_dir=undef;
1793 $opt_single_target=undef;
1794 $opt_target_type=$TT_GUIEXE;
1796 $opt_is_interactive=$OPT_ASK_NO;
1797 $opt_ask_project_options=$OPT_ASK_NO;
1798 $opt_ask_target_options=$OPT_ASK_NO;
1799 $opt_no_generated_files=0;
1800 $opt_no_source_fix=0;
1813 print "Winemaker $version\n";
1814 print "Copyright 2000 Francois Gouget <fgouget\@codeweavers.com> for CodeWeavers\n";
1820 print STDERR
"Usage: winemaker [--nobanner] [--backup|--nobackup] [--nosource-fix]\n";
1821 print STDERR
" [--lower-none|--lower-all|--lower-uppercase]\n";
1822 print STDERR
" [--lower-include|--nolower-include] [--mfc|--nomfc]\n";
1823 print STDERR
" [--guiexe|--windows|--cuiexe|--console|--dll]\n";
1824 print STDERR
" [-Dmacro[=defn]] [-Idir] [-Pdir] [-idll] [-Ldir] [-llibrary]\n";
1825 print STDERR
" [--nodlls] [--nomsvcrt] [--interactive] [--single-target name]\n";
1826 print STDERR
" [--generated-files|--nogenerated-files]\n";
1827 print STDERR
" work_directory\n";
1828 print STDERR
"\nWinemaker is designed to recursively convert all the Windows sources found in\n";
1829 print STDERR
"the specified directory so that they can be compiled with Winelib. During this\n";
1830 print STDERR
"process it will modify and rename some of the files in that directory.\n";
1831 print STDERR
"\tPlease read the manual page before use.\n";
1835 target_init
(\
@global_settings);
1838 my $arg=shift @ARGV;
1840 if ($arg eq "--nobanner") {
1842 } elsif ($arg eq "--backup") {
1844 } elsif ($arg eq "--nobackup") {
1846 } elsif ($arg eq "--single-target") {
1847 $opt_single_target=shift @ARGV;
1848 } elsif ($arg eq "--lower-none") {
1849 $opt_lower=$OPT_LOWER_NONE;
1850 } elsif ($arg eq "--lower-all") {
1851 $opt_lower=$OPT_LOWER_ALL;
1852 } elsif ($arg eq "--lower-uppercase") {
1853 $opt_lower=$OPT_LOWER_UPPERCASE;
1854 } elsif ($arg eq "--lower-include") {
1855 $opt_lower_include=1;
1856 } elsif ($arg eq "--nolower-include") {
1857 $opt_lower_include=0;
1858 } elsif ($arg eq "--nosource-fix") {
1859 $opt_no_source_fix=1;
1860 } elsif ($arg eq "--generated-files") {
1861 $opt_no_generated_files=0;
1862 } elsif ($arg eq "--nogenerated-files") {
1863 $opt_no_generated_files=1;
1864 } elsif ($arg =~ /^-D/) {
1865 push @
{$global_settings[$T_DEFINES]},$arg;
1866 } elsif ($arg =~ /^-I/) {
1867 push @
{$global_settings[$T_INCLUDE_PATH]},$arg;
1868 } elsif ($arg =~ /^-P/) {
1869 push @
{$global_settings[$T_DLL_PATH]},"-L$'";
1870 } elsif ($arg =~ /^-i/) {
1871 push @
{$global_settings[$T_DLLS]},$';
1872 } elsif ($arg =~ /^-L/) {
1873 push @{$global_settings[$T_LIBRARY_PATH]},$arg;
1874 } elsif ($arg =~ /^-l/) {
1875 push @{$global_settings[$T_LIBRARIES]},$';
1877 # 'Source'-based method options
1878 } elsif ($arg eq "--dll") {
1879 $opt_target_type=$TT_DLL;
1880 } elsif ($arg eq "--guiexe" or $arg eq "--windows") {
1881 $opt_target_type=$TT_GUIEXE;
1882 } elsif ($arg eq "--cuiexe" or $arg eq "--console") {
1883 $opt_target_type=$TT_CUIEXE;
1884 } elsif ($arg eq "--interactive") {
1885 $opt_is_interactive=$OPT_ASK_YES;
1886 $opt_ask_project_options=$OPT_ASK_YES;
1887 $opt_ask_target_options=$OPT_ASK_YES;
1888 } elsif ($arg eq "--mfc") {
1889 $opt_flags|=$TF_MFC;
1890 } elsif ($arg eq "--nomfc") {
1891 $opt_flags&=~$TF_MFC;
1892 $opt_flags|=$TF_NOMFC;
1893 } elsif ($arg eq "--nodlls") {
1894 $opt_flags|=$TF_NODLLS;
1895 } elsif ($arg eq "--nomsvcrt") {
1896 $opt_flags|=$TF_NOMSVCRT;
1900 if ($arg ne "--help" and $arg ne "-h" and $arg ne "-?") {
1901 if (!defined $opt_work_dir) {
1904 print STDERR
"error: the work directory, \"$arg\", has already been specified (was \"$opt_work_dir\")\n";
1913 if (!defined $opt_work_dir) {
1914 print STDERR
"error: you must specify the directory containing the sources to be converted\n";
1916 } elsif (!chdir $opt_work_dir) {
1917 print STDERR
"error: could not chdir to the work directory\n";
1918 print STDERR
" $!\n";
1922 if ($opt_no_banner == 0) {
1926 project_init
(\
@main_project,"");
1928 # Fix the file and directory names
1929 fix_file_and_directory_names
(".");
1931 # Scan the sources to identify the projects and targets
1934 # Fix the source files
1935 if (! $opt_no_source_fix) {
1939 # Generate the Makefile and the spec file
1940 if (! $opt_no_generated_files) {