Release 1.3.7.
[wine/gsoc-2012-control.git] / tools / winemaker
blob317b07a55282c518f9a91f173b1b768eec6a3736
1 #!/usr/bin/perl -w
2 use strict;
4 # Copyright 2000-2004 Francois Gouget for CodeWeavers
5 # Copyright 2004 Dimitrie O. Paun
6 # Copyright 2009 André Hentschel
8 # This library is free software; you can redistribute it and/or
9 # modify it under the terms of the GNU Lesser General Public
10 # License as published by the Free Software Foundation; either
11 # version 2.1 of the License, or (at your option) any later version.
13 # This library is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 # Lesser General Public License for more details.
18 # You should have received a copy of the GNU Lesser General Public
19 # License along with this library; if not, write to the Free Software
20 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23 my $version="0.7.4";
25 use Cwd;
26 use File::Basename;
27 use File::Copy;
31 #####
33 # Options
35 #####
37 # The following constants define what we do with the case of filenames
40 # Never rename a file to lowercase
41 my $OPT_LOWER_NONE=0;
44 # Rename all files to lowercase
45 my $OPT_LOWER_ALL=1;
48 # Rename only files that are all uppercase to lowercase
49 my $OPT_LOWER_UPPERCASE=2;
52 # The following constants define whether to ask questions or not
55 # No (synonym of never)
56 my $OPT_ASK_NO=0;
59 # Yes (always)
60 my $OPT_ASK_YES=1;
63 # Skip the questions till the end of this scope
64 my $OPT_ASK_SKIP=-1;
67 # The following constants define the architecture
70 # Default Architecture will be choosen
71 my $OPT_ARCH_DEFAULT=0;
74 # 32-Bit Target
75 my $OPT_ARCH_32=32;
78 # 64-Bit Target
79 my $OPT_ARCH_64=64;
82 # General options
85 # This is the directory in which winemaker will operate.
86 my $opt_work_dir;
89 # This is the file in which winemaker will operate if a project file is specified.
90 my $opt_work_file;
93 # Make a backup of the files
94 my $opt_backup;
97 # Defines which files to rename
98 my $opt_lower;
101 # If we don't find the file referenced by an include, lower it
102 my $opt_lower_include;
105 # If true then winemaker should not attempt to fix the source. This is
106 # useful if the source is known to be already in a suitable form and is
107 # readonly
108 my $opt_no_source_fix;
110 # Options for the 'Source' method
113 # Specifies that we have only one target so that all sources relate
114 # to this target. By default this variable is left undefined which
115 # means winemaker should try to find out by itself what the targets
116 # are. If not undefined then this contains the name of the default
117 # target (without the extension).
118 my $opt_single_target;
121 # If '$opt_single_target' has been specified then this is the type of
122 # that target. Otherwise it specifies whether the default target type
123 # is guiexe or cuiexe.
124 my $opt_target_type;
127 # Contains the default set of flags to be used when creating a new target.
128 my $opt_flags;
131 # Contains 32 for 32-Bit-Targets and 64 for 64-Bit-Targets
132 my $opt_arch;
135 # If true then winemaker should ask questions to the user as it goes
136 # along.
137 my $opt_is_interactive;
138 my $opt_ask_project_options;
139 my $opt_ask_target_options;
142 # If false then winemaker should not generate the makefiles.
143 my $opt_no_generated_files;
146 # Specifies not to print the banner if set.
147 my $opt_no_banner;
151 #####
153 # Target modelization
155 #####
157 # The description of a target is stored in an array. The constants
158 # below identify what is stored at each index of the array.
161 # This is the name of the target.
162 my $T_NAME=0;
165 # Defines the type of target we want to build. See the TT_xxx
166 # constants below
167 my $T_TYPE=1;
170 # This is a bitfield containing flags refining the way the target
171 # should be handled. See the TF_xxx constants below
172 my $T_FLAGS=2;
175 # This is a reference to an array containing the list of the
176 # resp. C, C++, RC, other (.h, .hxx, etc.) source files.
177 my $T_SOURCES_C=3;
178 my $T_SOURCES_CXX=4;
179 my $T_SOURCES_RC=5;
180 my $T_SOURCES_MISC=6;
183 # This is a reference to an array containing the list of
184 # C compiler options
185 my $T_CEXTRA=7;
188 # This is a reference to an array containing the list of
189 # C++ compiler options
190 my $T_CXXEXTRA=8;
193 # This is a reference to an array containing the list of
194 # RC compiler options
195 my $T_RCEXTRA=9;
198 # This is a reference to an array containing the list of macro
199 # definitions
200 my $T_DEFINES=10;
203 # This is a reference to an array containing the list of directory
204 # names that constitute the include path
205 my $T_INCLUDE_PATH=11;
208 # Flags for the linker
209 my $T_LDFLAGS=12;
212 # Same as T_INCLUDE_PATH but for the dll search path
213 my $T_DLL_PATH=13;
216 # The list of Windows dlls to import
217 my $T_DLLS=14;
220 # Same as T_INCLUDE_PATH but for the library search path
221 my $T_LIBRARY_PATH=15;
224 # The list of Unix libraries to link with
225 my $T_LIBRARIES=16;
228 # The list of dependencies between targets
229 my $T_DEPENDS=17;
232 # The following constants define the recognized types of target
235 # This is not a real target. This type of target is used to collect
236 # the sources that don't seem to belong to any other target. Thus no
237 # real target is generated for them, we just put the sources of the
238 # fake target in the global source list.
239 my $TT_SETTINGS=0;
242 # For executables in the windows subsystem
243 my $TT_GUIEXE=1;
246 # For executables in the console subsystem
247 my $TT_CUIEXE=2;
250 # For dynamically linked libraries
251 my $TT_DLL=3;
254 # The following constants further refine how the target should be handled
257 # This target is an MFC-based target
258 my $TF_MFC=4;
261 # User has specified --nomfc option for this target or globally
262 my $TF_NOMFC=8;
265 # --nodlls option: Do not use standard DLL set
266 my $TF_NODLLS=16;
269 # --nomsvcrt option: Do not link with msvcrt
270 my $TF_NOMSVCRT=32;
273 # Initialize a target:
274 # - set the target type to TT_SETTINGS, i.e. no real target will
275 # be generated.
276 sub target_init($)
278 my $target=$_[0];
280 @$target[$T_TYPE]=$TT_SETTINGS;
281 # leaving $T_INIT undefined
282 @$target[$T_FLAGS]=$opt_flags;
283 @$target[$T_SOURCES_C]=[];
284 @$target[$T_SOURCES_CXX]=[];
285 @$target[$T_SOURCES_RC]=[];
286 @$target[$T_SOURCES_MISC]=[];
287 @$target[$T_CEXTRA]=[];
288 @$target[$T_CXXEXTRA]=[];
289 @$target[$T_RCEXTRA]=[];
290 @$target[$T_DEFINES]=[];
291 @$target[$T_INCLUDE_PATH]=[];
292 @$target[$T_LDFLAGS]=[];
293 @$target[$T_DLL_PATH]=[];
294 @$target[$T_DLLS]=[];
295 @$target[$T_LIBRARY_PATH]=[];
296 @$target[$T_LIBRARIES]=[];
301 #####
303 # Project modelization
305 #####
307 # First we have the notion of project. A project is described by an
308 # array (since we don't have structs in perl). The constants below
309 # identify what is stored at each index of the array.
312 # This is the path in which this project is located. In other
313 # words, this is the path to the Makefile.
314 my $P_PATH=0;
317 # This index contains a reference to an array containing the project-wide
318 # settings. The structure of that arrray is actually identical to that of
319 # a regular target since it can also contain extra sources.
320 my $P_SETTINGS=1;
323 # This index contains a reference to an array of targets for this
324 # project. Each target describes how an executable or library is to
325 # be built. For each target this description takes the same form as
326 # that of the project: an array. So this entry is an array of arrays.
327 my $P_TARGETS=2;
330 # Initialize a project:
331 # - set the project's path
332 # - initialize the target list
333 # - create a default target (will be removed later if unnecessary)
334 sub project_init($$$)
336 my ($project, $path, $global_settings)=@_;
338 my $project_settings=[];
339 target_init($project_settings);
340 @$project_settings[$T_DEFINES]=[@{@$global_settings[$T_DEFINES]}];
341 @$project_settings[$T_INCLUDE_PATH]=[@{@$global_settings[$T_INCLUDE_PATH]}];
342 @$project_settings[$T_DLL_PATH]=[@{@$global_settings[$T_DLL_PATH]}];
343 @$project_settings[$T_DLLS]=[@{@$global_settings[$T_DLLS]}];
344 @$project_settings[$T_LIBRARY_PATH]=[@{@$global_settings[$T_LIBRARY_PATH]}];
345 @$project_settings[$T_LIBRARIES]=[@{@$global_settings[$T_LIBRARIES]}];
347 @$project[$P_PATH]=$path;
348 @$project[$P_SETTINGS]=$project_settings;
349 @$project[$P_TARGETS]=[];
354 #####
356 # Global variables
358 #####
360 my %warnings;
362 my %templates;
365 # This maps a directory name to a reference to an array listing
366 # its contents (files and directories)
367 my %directories;
370 # Contains the list of all projects. This list tells us what are
371 # the subprojects of the main Makefile and where we have to generate
372 # Makefiles.
373 my @projects=();
376 # This is the main project, i.e. the one in the "." directory.
377 # It may well be empty in which case the main Makefile will only
378 # call out subprojects.
379 my @main_project;
382 # Contains the defaults for the include path, etc.
383 # We store the defaults as if this were a target except that we only
384 # exploit the defines, include path, library path, library list and misc
385 # sources fields.
386 my @global_settings;
390 #####
392 # Utility functions
394 #####
397 # Cleans up a name to make it an acceptable Makefile
398 # variable name.
399 sub canonize($)
401 my $name=$_[0];
403 $name =~ tr/a-zA-Z0-9_/_/c;
404 return $name;
408 # Returns true is the specified pathname is absolute.
409 # Note: pathnames that start with a variable '$' or
410 # '~' are considered absolute.
411 sub is_absolute($)
413 my $path=$_[0];
415 return ($path =~ /^[\/~\$]/);
419 # Retrieves the contents of the specified directory.
420 # We either get it from the directories hashtable which acts as a
421 # cache, or use opendir, readdir, closedir and store the result
422 # in the hashtable.
423 sub get_directory_contents($)
425 my $dirname=$_[0];
426 my $directory;
428 #print "getting the contents of $dirname\n";
430 # check for a cached version
431 $dirname =~ s+/$++;
432 if ($dirname eq "") {
433 $dirname=cwd;
435 $directory=$directories{$dirname};
436 if (defined $directory) {
437 #print "->@$directory\n";
438 return $directory;
441 # Read this directory
442 if (opendir(DIRECTORY, "$dirname")) {
443 my @files=readdir DIRECTORY;
444 closedir(DIRECTORY);
445 $directory=\@files;
446 } else {
447 # Return an empty list
448 #print "error: cannot open $dirname\n";
449 my @files;
450 $directory=\@files;
452 #print "->@$directory\n";
453 $directories{$dirname}=$directory;
454 return $directory;
458 # Removes a directory from the cache.
459 # This is needed if one of its files or subdirectory has been renamed.
460 sub clear_directory_cache($)
462 my ($dirname)=@_;
463 delete $directories{$dirname};
467 #####
469 # 'Source'-based Project analysis
471 #####
474 # Allows the user to specify makefile and target specific options
475 # - target: the structure in which to store the results
476 # - options: the string containing the options
477 sub source_set_options($$)
479 my $target=$_[0];
480 my $options=$_[1];
482 #FIXME: we must deal with escaping of stuff and all
483 foreach my $option (split / /,$options) {
484 if (@$target[$T_TYPE] == $TT_SETTINGS and $option =~ /^-D/) {
485 push @{@$target[$T_DEFINES]},$option;
486 } elsif (@$target[$T_TYPE] == $TT_SETTINGS and $option =~ /^-I/) {
487 push @{@$target[$T_INCLUDE_PATH]},$option;
488 } elsif ($option =~ /^-P/) {
489 push @{@$target[$T_DLL_PATH]},"-L$'";
490 } elsif ($option =~ /^-i/) {
491 push @{@$target[$T_DLLS]},"$'";
492 } elsif ($option =~ /^-L/) {
493 push @{@$target[$T_LIBRARY_PATH]},$option;
494 } elsif ($option =~ /^-l/) {
495 push @{@$target[$T_LIBRARIES]},"$'";
496 } elsif ($option =~ /^--mfc/) {
497 @$target[$T_FLAGS]|=$TF_MFC;
498 @$target[$T_FLAGS]&=~$TF_NOMFC;
499 } elsif ($option =~ /^--nomfc/) {
500 @$target[$T_FLAGS]&=~$TF_MFC;
501 @$target[$T_FLAGS]|=$TF_NOMFC;
502 } elsif ($option =~ /^--nodlls/) {
503 @$target[$T_FLAGS]|=$TF_NODLLS;
504 } elsif ($option =~ /^--nomsvcrt/) {
505 @$target[$T_FLAGS]|=$TF_NOMSVCRT;
506 } else {
507 print STDERR "error: unknown option \"$option\"\n";
508 return 0;
511 return 1;
515 # Scans the specified project file to:
516 # - get a list of targets for this project
517 # - get some settings
518 # - get the list of source files
519 sub source_scan_project_file($$$);
520 sub source_scan_project_file($$$)
522 # a reference to the parent's project
523 my $parent_project=$_[0];
524 # 0 if it is a single project, 1 if it is part of a workspace
525 my $is_sub_project=$_[1];
526 # the name of the project file, with complete path, or without if in
527 # the same directory
528 my $filename=$_[2];
530 # reference to the project for this file. May not be used
531 my $project;
532 # list of sources found in the current file
533 my @sources_c=();
534 my @sources_cxx=();
535 my @sources_rc=();
536 my @sources_misc=();
537 # some more settings
538 my $path=dirname($filename);
539 my $prj_target_cflags;
540 my $prj_target_defines;
541 my $prj_target_ldflags;
542 my $prj_target_libs;
543 my $prj_name;
544 my $found_cfg=0;
545 my $prj_cfg;
546 my $prj_target_type=$TT_GUIEXE;
547 my @prj_target_options;
549 if (!($path=~/\/$/)) {
550 $path.="/";
553 if (defined $opt_single_target or $is_sub_project == 0) {
554 # Either there is a single target and thus a single project,
555 # or we are a single project-file for which a project
556 # already exists
557 $project=$parent_project;
558 } else {
559 $project=[];
560 project_init($project, $path, \@global_settings);
562 my $project_settings=@$project[$P_SETTINGS];
564 if ($filename =~ /.dsp$/i) {
565 # First find out what this project file contains:
566 # collect all sources, find targets and settings
567 if (!open(FILEI,$filename)) {
568 print STDERR "error: unable to open $filename for reading:\n";
569 print STDERR " $!\n";
570 return;
572 my $sfilet;
573 while (<FILEI>) {
574 # Remove any trailing CtrlZ, which isn't strictly in the file
575 if (/\x1A/) {
576 s/\x1A//;
577 last if (/^$/)
580 # Remove any trailing CrLf
581 s/\r\n$/\n/;
582 if (!/\n$/) {
583 # Make sure all lines are '\n' terminated
584 $_ .= "\n";
587 if (/^\# Microsoft Developer Studio Project File - Name=\"([^\"]+)/) {
588 $prj_name="$1";
589 $prj_name=~s/\s+/_/g;
590 #print $prj_name;
591 next;
592 } elsif (/^# TARGTYPE/) {
593 if (/[[:space:]]0x0101$/) {
594 # Application
595 $prj_target_type=$TT_GUIEXE;
596 }elsif (/[[:space:]]0x0102$/) {
597 # Dynamic-Link Library
598 $prj_target_type=$TT_DLL;
599 }elsif (/[[:space:]]0x0103$/) {
600 # Console Application
601 $prj_target_type=$TT_CUIEXE;
602 }elsif (/[[:space:]]0x0104$/) {
603 # Static Library
605 next;
606 } elsif (/^# ADD CPP(.*)/ && $found_cfg==1) {
607 $prj_target_cflags=$1;
608 @prj_target_options=split(" /", $prj_target_cflags);
609 $prj_target_cflags="";
610 foreach ( @prj_target_options ) {
611 if ($_ eq "") {
612 # empty
613 } elsif (/nologo/) {
614 # Suppress Startup Banner and Information Messages
615 } elsif (/^W0$/) {
616 # Turns off all warning messages
617 $prj_target_cflags.="-w ";
618 } elsif (/^W[123]$/) {
619 # Warning Level
620 $prj_target_cflags.="-W ";
621 } elsif (/^W4$/) {
622 # Warning Level
623 $prj_target_cflags.="-Wall ";
624 } elsif (/^WX$/) {
625 # Warnings As Errors
626 $prj_target_cflags.="-Werror ";
627 } elsif (/^Gm$/) {
628 # Enable Minimal Rebuild
629 } elsif (/^GX$/) {
630 # Enable Exception Handling
631 $prj_target_cflags.="-fexceptions ";
632 } elsif (/^Z[d7iI]$/) {
633 # Debug Info
634 $prj_target_cflags.="-g ";
635 } elsif (/^Od$/) {
636 # Disable Optimizations
637 $prj_target_cflags.="-O0 ";
638 } elsif (/^O1$/) {
639 # Minimize Size
640 $prj_target_cflags.="-Os ";
641 } elsif (/^O2$/) {
642 # Maximize Speed
643 $prj_target_cflags.="-O2 ";
644 } elsif (/^Ob0$/) {
645 # Disables inline Expansion
646 $prj_target_cflags.="-fno-inline ";
647 } elsif (/^Ob1$/) {
648 #In-line Function Expansion
649 $prj_target_cflags.="-finline-functions ";
650 } elsif (/^Ob2$/) {
651 # auto In-line Function Expansion
652 $prj_target_cflags.="-finline-functions ";
653 } elsif (/^Ox$/) {
654 # Use maximum optimization
655 $prj_target_cflags.="-O3 ";
656 } elsif (/^Oy$/) {
657 # Frame-Pointer Omission
658 $prj_target_cflags.="-fomit-frame-pointer ";
659 } elsif (/^Oy-$/) {
660 # Frame-Pointer Omission
661 $prj_target_cflags.="-fno-omit-frame-pointer ";
662 } elsif (/^GZ$/) {
663 # Catch Release-Build Errors in Debug Build
664 } elsif (/^M[DLT]d?$/) {
665 # Use Multithreaded Run-Time Library
666 } elsif (/^D\s*\"(.*)\"/) {
667 # Preprocessor Definitions
668 $prj_target_defines.="-D".$1." ";
669 } elsif (/^I\s*\"(.*)\"/) {
670 # Additional Include Directories
671 $sfilet=$1;
672 $sfilet=~s/\\/\//g;
673 if ($sfilet=~/^\w:/) {
674 print STDERR "warning: Can't fix path $sfilet\n"
675 } else {
676 push @{@$project_settings[$T_INCLUDE_PATH]},"-I".$sfilet." ";
678 } elsif (/^U\s*\"(.*)\"/) {
679 # Undefines a previously defined symbol
680 $prj_target_cflags.="-U".$1." ";
681 } elsif (/^Fp/) {
682 # Name .PCH File
683 } elsif (/^F[Rr]/) {
684 # Create .SBR File
685 } elsif (/^YX$/) {
686 # Automatic Use of Precompiled Headers
687 } elsif (/^FD$/) {
688 # Generate File Dependencies
689 } elsif (/^c$/) {
690 # Compile Without Linking
691 # this option is always present and is already specified in the suffix rules
692 } elsif (/^GB$/) {
693 # Blend Optimization
694 $prj_target_cflags.="-D_M_IX86=500 ";
695 } elsif (/^G6$/) {
696 # Pentium Pro Optimization
697 $prj_target_cflags.="-D_M_IX86=600 ";
698 } elsif (/^G5$/) {
699 # Pentium Optimization
700 $prj_target_cflags.="-D_M_IX86=500 ";
701 } elsif (/^G3$/) {
702 # 80386 Optimization
703 $prj_target_cflags.="-D_M_IX86=300 ";
704 } elsif (/^G4$/) {
705 # 80486 Optimization
706 $prj_target_cflags.="-D_M_IX86=400 ";
707 } elsif (/^Yc/) {
708 # Create Precompiled Header
709 } elsif (/^Yu/) {
710 # Use Precompiled Header
711 } elsif (/^Za$/) {
712 # Disable Language Extensions
713 $prj_target_cflags.="-ansi ";
714 } elsif (/^Ze$/) {
715 # Enable Microsoft Extensions
716 } elsif (/^Zm[[:digit:]]+$/) {
717 # Specify Memory Allocation Limit
718 } elsif (/^Zp1?$/) {
719 # Packs structures on 1-byte boundaries
720 $prj_target_cflags.="-fpack-struct ";
721 } elsif (/^Zp(2|4|8|16)$/) {
722 # Struct Member Alignment
723 $prj_target_cflags.="-fpack-struct=".$1;
724 } else {
725 print "C compiler option $_ not implemented\n";
729 #print "\nOptions: $prj_target_cflags\n";
730 next;
731 } elsif (/^# ADD LINK32(.*)/ && $found_cfg==1) {
732 $prj_target_ldflags=$1;
733 @prj_target_options=split(" /", $prj_target_ldflags);
734 $prj_target_ldflags="";
735 $prj_target_libs=$prj_target_options[0];
736 $prj_target_libs=~s/\\/\//g;
737 $prj_target_libs=~s/\.lib//g;
738 $prj_target_libs=~s/\s+/ -l/g;
739 shift (@prj_target_options);
740 foreach ( @prj_target_options ) {
741 if ($_ eq "") {
742 # empty
743 } elsif (/^base:(.*)/) {
744 # Base Address
745 $prj_target_ldflags.="--image-base ".$1." ";
746 } elsif (/^debug$/) {
747 # Generate Debug Info
748 } elsif (/^dll$/) {
749 # Build a DLL
750 $prj_target_type=$TT_DLL;
751 } elsif (/^incremental:[[:alpha:]]+$/) {
752 # Link Incrmentally
753 } elsif (/^implib:/) {
754 # Name import library
755 } elsif (/^libpath:\"(.*)\"/) {
756 # Additional Libpath
757 push @{@$project_settings[$T_DLL_PATH]},"-L$1";
758 } elsif (/^machine:[[:alnum:]]+$/) {
759 # Specify Target Platform
760 } elsif (/^map/) {
761 # Generate Mapfile
762 if (/^map:(.*)/) {
763 $prj_target_ldflags.="-Map ".$1." ";
764 } else {
765 $prj_target_ldflags.="-Map ".$prj_name.".map ";
767 } elsif (/^nologo$/) {
768 # Suppress Startup Banner and Information Messages
769 } elsif (/^out:/) {
770 # Output File Name
771 # may use it as Target?
772 } elsif (/^pdbtype:/) {
773 # Program Database Storage
774 } elsif (/^subsystem:/) {
775 # Specify Subsystem
776 } elsif (/^version:[[:digit:].]+$/) {
777 # Version Information
778 } else {
779 print "Linker option $_ not implemented\n";
782 next;
783 } elsif (/^LIB32=/ && $found_cfg==1) {
784 #$libflag = 1;
785 next;
786 } elsif (/^SOURCE=(.*)$/) {
787 my @components=split /[\/\\]+/, $1;
788 $sfilet=search_from($path, \@components);
789 if (!defined $sfilet) { next; }
790 if ($sfilet =~ /\.c$/i and $sfilet !~ /\.(dbg|spec)\.c$/) {
791 push @sources_c,$sfilet;
792 } elsif ($sfilet =~ /\.(cpp|cxx)$/i) {
793 if ($sfilet =~ /^stdafx.cpp$/i && !(@$project_settings[$T_FLAGS] & $TF_NOMFC)) {
794 push @sources_misc,$sfilet;
795 @$project_settings[$T_FLAGS]|=$TF_MFC;
796 } else {
797 push @sources_cxx,$sfilet;
799 } elsif ($sfilet =~ /\.rc$/i) {
800 push @sources_rc,$sfilet;
801 } elsif ($sfilet =~ /\.(h|hxx|hpp|inl|rc2|dlg)$/i) {
802 push @sources_misc,$sfilet;
803 if ($sfilet =~ /^stdafx.h$/i && !(@$project_settings[$T_FLAGS] & $TF_NOMFC)) {
804 @$project_settings[$T_FLAGS]|=$TF_MFC;
807 next;
809 } elsif (/^# (Begin|End) Source File/) {
810 # Source-Files already handled
811 next;
812 } elsif (/^# (Begin|End) Group/) {
813 # Groups are ignored
814 next;
815 } elsif (/^# (Begin|End) Custom Build/) {
816 # Custom Builds are ignored
817 next;
818 } elsif (/^# ADD LIB32 /) {
819 #"ARFLAGS=rus"
820 next;
821 } elsif (/^# Begin Target$/) {
822 # Targets are ignored
823 next;
824 } elsif (/^# End Target$/) {
825 # Targets are ignored
826 next;
827 } elsif (/^!/) {
828 if ($found_cfg == 1) {
829 $found_cfg=0;
831 if (/if (.*)\(CFG\)" == "(.*)"/i) {
832 if ($2 eq $prj_cfg) {
833 $found_cfg=1;
836 next;
837 } elsif (/^CFG=(.*)/i) {
838 $prj_cfg=$1;
839 next;
841 else { # Line recognized
842 # print "|\n";
845 close(FILEI);
847 push @{@$project_settings[$T_LIBRARIES]},$prj_target_libs;
848 push @{@$project_settings[$T_CEXTRA]},$prj_target_cflags;
849 push @{@$project_settings[$T_CXXEXTRA]},$prj_target_cflags;
850 push @{@$project_settings[$T_DEFINES]},$prj_target_defines;
851 push @{@$project_settings[$T_LDFLAGS]},$prj_target_ldflags;
852 } elsif ($filename =~ /.vcproj$/i) {
853 # Import XML::LibXML, you need the libxml package (deb: libxml-libxml-perl, rpm: perl-libxml-perl)
854 require XML::LibXML;
856 my $xmlparser = XML::LibXML->new();
857 my $project_xml = $xmlparser->parse_file($filename);
858 my $sfilet;
859 my $configt;
861 foreach my $vc_project ($project_xml->findnodes('/VisualStudioProject')) {
862 foreach my $vc_project_attr ($vc_project->attributes) {
863 if ($vc_project_attr->getName eq "Name") {
864 $prj_name=$vc_project_attr->getValue;
865 $prj_name=~s/\s+/_/g;
866 last;
871 for (my $flevel = 0; $flevel <= 5; $flevel++) {
872 foreach my $vc_file ($project_xml->findnodes('/VisualStudioProject/Files/'.('Filter/' x $flevel).'File')) {
873 foreach my $vc_file_attr ($vc_file->attributes) {
874 if ($vc_file_attr->getName eq "RelativePath") {
875 $sfilet = $vc_file_attr->getValue;
876 $sfilet=~s/\\\\/\\/g; #remove double backslash
877 $sfilet=~s/^\.\\//; #remove starting 'this directory'
878 $sfilet=~s/\\/\//g; #make slashes out of backslashes
879 if ($sfilet =~ /\.c$/i and $sfilet !~ /\.(dbg|spec)\.c$/) {
880 push @sources_c,$sfilet;
881 } elsif ($sfilet =~ /\.(cpp|cxx)$/i) {
882 if ($sfilet =~ /^stdafx.cpp$/i && !(@$project_settings[$T_FLAGS] & $TF_NOMFC)) {
883 push @sources_misc,$sfilet;
884 @$project_settings[$T_FLAGS]|=$TF_MFC;
885 } else {
886 push @sources_cxx,$sfilet;
888 } elsif ($sfilet =~ /\.rc$/i) {
889 push @sources_rc,$sfilet;
890 } elsif ($sfilet =~ /\.(h|hxx|hpp|inl|rc2|dlg)$/i) {
891 push @sources_misc,$sfilet;
892 if ($sfilet =~ /^stdafx.h$/i && !(@$project_settings[$T_FLAGS] & $TF_NOMFC)) {
893 @$project_settings[$T_FLAGS]|=$TF_MFC;
901 my @vc_configurations = $project_xml->findnodes('/VisualStudioProject/Configurations/Configuration');
902 my $vc_configuration = $vc_configurations[0];
903 foreach my $vc_configuration_attr ($vc_configuration->attributes) {
904 if ($vc_configuration_attr->getName eq "ConfigurationType") {
905 if ($vc_configuration_attr->getValue==1) {
906 $prj_target_type=$TT_GUIEXE; # Application
907 } elsif ($vc_configuration_attr->getValue==2) {
908 $prj_target_type=$TT_DLL; # Dynamic-Link Library
913 foreach my $vc_configuration_tools ($vc_configuration->findnodes('Tool')) {
914 my @find_tool = $vc_configuration_tools->attributes;
915 if ($find_tool[0]->getValue eq "VCCLCompilerTool") {
916 foreach my $vc_compiler_tool ($vc_configuration_tools->attributes) {
917 if ($vc_compiler_tool->getName eq "Optimization") {$prj_target_cflags.="-O".$vc_compiler_tool->getValue." ";}
918 if ($vc_compiler_tool->getName eq "WarningLevel") {
919 if ($vc_compiler_tool->getValue==0) {
920 $prj_target_cflags.="-w ";
921 } elsif ($vc_compiler_tool->getValue<4) {
922 $prj_target_cflags.="-W ";
923 } elsif ($vc_compiler_tool->getValue==4) {
924 $prj_target_cflags.="-Wall ";
925 } elsif ($vc_compiler_tool->getValue eq "X") {
926 $prj_target_cflags.="-Werror ";
929 if ($vc_compiler_tool->getName eq "PreprocessorDefinitions") {
930 $configt=$vc_compiler_tool->getValue;
931 $configt=~s/;/ -D/g;
932 $prj_target_defines.="-D".$configt." ";
934 if ($vc_compiler_tool->getName eq "AdditionalIncludeDirectories") {
935 $configt=$vc_compiler_tool->getValue;
936 $configt=~s/\\/\//g;
937 $configt=~s/;/ -I/g;
938 push @{@$project_settings[$T_INCLUDE_PATH]},"-I".$configt;
942 if ($find_tool[0]->getValue eq "VCLinkerTool") {
943 foreach my $vc_linker_tool ($vc_configuration_tools->attributes) {
944 if ($vc_linker_tool->getName eq "AdditionalDependencies") {
945 $prj_target_libs=" ".$vc_linker_tool->getValue;
946 $prj_target_libs=~s/\\/\//g;
947 $prj_target_libs=~s/\.lib//g;
948 $prj_target_libs=~s/\s+/ -l/g;
954 push @{@$project_settings[$T_LIBRARIES]},$prj_target_libs;
955 push @{@$project_settings[$T_CEXTRA]},$prj_target_cflags;
956 push @{@$project_settings[$T_CXXEXTRA]},$prj_target_cflags;
957 push @{@$project_settings[$T_DEFINES]},$prj_target_defines;
960 # Add this project to the project list, except for
961 # the main project which is already in the list.
962 if ($is_sub_project == 1) {
963 push @projects,$project;
966 # Ask for project-wide options
967 if ($opt_ask_project_options == $OPT_ASK_YES) {
968 my $flag_desc="";
969 if ((@$project_settings[$T_FLAGS] & $TF_MFC)!=0) {
970 $flag_desc="mfc";
972 print "* Type any project-wide options (-D/-I/-P/-i/-L/-l/--mfc),\n";
973 if (defined $flag_desc) {
974 print "* (currently $flag_desc)\n";
976 print "* or 'skip' to skip the target specific options,\n";
977 print "* or 'never' to not be asked this question again:\n";
978 while (1) {
979 my $options=<STDIN>;
980 chomp $options;
981 if ($options eq "skip") {
982 $opt_ask_target_options=$OPT_ASK_SKIP;
983 last;
984 } elsif ($options eq "never") {
985 $opt_ask_project_options=$OPT_ASK_NO;
986 last;
987 } elsif (source_set_options($project_settings,$options)) {
988 last;
990 print "Please re-enter the options:\n";
994 my @local_dlls=();
995 my @local_depends=();
996 my @exe_list=();
998 # Create the target...
999 my $target=[];
1000 target_init($target);
1002 if ($prj_target_type!=$TT_DLL) {
1003 $prj_name=lc($prj_name.".exe");
1004 @$target[$T_TYPE]=$opt_target_type;
1005 push @exe_list,$target;
1006 push @{@$target[$T_LDFLAGS]},(@$target[$T_TYPE] == $TT_CUIEXE ? "-mconsole" : "-mwindows");
1007 } else {
1008 $prj_name=lc($prj_name.".dll");
1009 @$target[$T_TYPE]=$TT_DLL;
1010 push @local_depends,"$prj_name.so";
1011 push @local_dlls,$prj_name;
1012 my $canon=canonize($prj_name);
1013 push @{@$target[$T_LDFLAGS]},("-shared","\$(${canon}_MODULE:.dll=.spec)");
1016 @$target[$T_NAME]=$prj_name;
1017 @$target[$T_FLAGS]|=@$project_settings[$T_FLAGS];
1019 # This is the default link list of Visual Studio
1020 my @std_imports=qw(odbc32 ole32 oleaut32 winspool odbccp32);
1021 my @std_libraries=qw(uuid);
1022 if ((@$target[$T_FLAGS] & $TF_NODLLS) == 0) {
1023 @$target[$T_DLLS]=\@std_imports;
1024 @$target[$T_LIBRARIES]=\@std_libraries;
1025 } else {
1026 @$target[$T_DLLS]=[];
1027 @$target[$T_LIBRARIES]=[];
1029 if ((@$target[$T_FLAGS] & $TF_NOMSVCRT) == 0) {
1030 push @{@$target[$T_LDFLAGS]},"-mno-cygwin";
1031 if ($opt_arch != $OPT_ARCH_DEFAULT) {
1032 push @{@$target[$T_LDFLAGS]},"-m$opt_arch";
1035 push @{@$project[$P_TARGETS]},$target;
1037 # Ask for target-specific options
1038 if ($opt_ask_target_options == $OPT_ASK_YES) {
1039 my $flag_desc="";
1040 if ((@$target[$T_FLAGS] & $TF_MFC)!=0) {
1041 $flag_desc=" (mfc";
1043 if ($flag_desc ne "") {
1044 $flag_desc.=")";
1046 print "* Specify any link option (-P/-i/-L/-l/--mfc) specific to the target\n";
1047 print "* \"$prj_name\"$flag_desc or 'never' to not be asked this question again:\n";
1048 while (1) {
1049 my $options=<STDIN>;
1050 chomp $options;
1051 if ($options eq "never") {
1052 $opt_ask_target_options=$OPT_ASK_NO;
1053 last;
1054 } elsif (source_set_options($target,$options)) {
1055 last;
1057 print "Please re-enter the options:\n";
1060 if (@$target[$T_FLAGS] & $TF_MFC) {
1061 @$project_settings[$T_FLAGS]|=$TF_MFC;
1062 push @{@$target[$T_DLL_PATH]},"\$(MFC_LIBRARY_PATH)";
1063 push @{@$target[$T_DLLS]},"mfc.dll";
1064 # FIXME: Link with the MFC in the Unix sense, until we
1065 # start exporting the functions properly.
1066 push @{@$target[$T_LIBRARY_PATH]},"\$(MFC_LIBRARY_PATH)";
1067 push @{@$target[$T_LIBRARIES]},"mfc";
1070 # Match sources...
1071 push @{@$target[$T_SOURCES_C]},@{@$project_settings[$T_SOURCES_C]},@sources_c;
1072 @$project_settings[$T_SOURCES_C]=[];
1073 @sources_c=();
1074 push @{@$target[$T_SOURCES_CXX]},@{@$project_settings[$T_SOURCES_CXX]},@sources_cxx;
1075 @$project_settings[$T_SOURCES_CXX]=[];
1076 @sources_cxx=();
1077 push @{@$target[$T_SOURCES_RC]},@{@$project_settings[$T_SOURCES_RC]},@sources_rc;
1078 @$project_settings[$T_SOURCES_RC]=[];
1079 @sources_rc=();
1080 push @{@$target[$T_SOURCES_MISC]},@{@$project_settings[$T_SOURCES_MISC]},@sources_misc;
1081 @$project_settings[$T_SOURCES_MISC]=[];
1082 @sources_misc=();
1084 @$target[$T_SOURCES_C]=[sort @{@$target[$T_SOURCES_C]}];
1085 @$target[$T_SOURCES_CXX]=[sort @{@$target[$T_SOURCES_CXX]}];
1086 @$target[$T_SOURCES_RC]=[sort @{@$target[$T_SOURCES_RC]}];
1087 @$target[$T_SOURCES_MISC]=[sort @{@$target[$T_SOURCES_MISC]}];
1089 if ($opt_ask_target_options == $OPT_ASK_SKIP) {
1090 $opt_ask_target_options=$OPT_ASK_YES;
1093 if ((@$project_settings[$T_FLAGS] & $TF_NOMSVCRT) == 0) {
1094 push @{@$project_settings[$T_CEXTRA]},"-mno-cygwin";
1095 push @{@$project_settings[$T_CXXEXTRA]},"-mno-cygwin";
1096 if ($opt_arch != $OPT_ARCH_DEFAULT) {
1097 push @{@$project_settings[$T_CEXTRA]},"-m$opt_arch";
1098 push @{@$project_settings[$T_CXXEXTRA]},"-m$opt_arch";
1102 if (@$project_settings[$T_FLAGS] & $TF_MFC) {
1103 push @{@$project_settings[$T_INCLUDE_PATH]},"\$(MFC_INCLUDE_PATH)";
1105 # The sources that did not match, if any, go to the extra
1106 # source list of the project settings
1107 foreach my $source (@sources_c) {
1108 if ($source ne "") {
1109 push @{@$project_settings[$T_SOURCES_C]},$source;
1112 @$project_settings[$T_SOURCES_C]=[sort @{@$project_settings[$T_SOURCES_C]}];
1113 foreach my $source (@sources_cxx) {
1114 if ($source ne "") {
1115 push @{@$project_settings[$T_SOURCES_CXX]},$source;
1118 @$project_settings[$T_SOURCES_CXX]=[sort @{@$project_settings[$T_SOURCES_CXX]}];
1119 foreach my $source (@sources_rc) {
1120 if ($source ne "") {
1121 push @{@$project_settings[$T_SOURCES_RC]},$source;
1124 @$project_settings[$T_SOURCES_RC]=[sort @{@$project_settings[$T_SOURCES_RC]}];
1125 foreach my $source (@sources_misc) {
1126 if ($source ne "") {
1127 push @{@$project_settings[$T_SOURCES_MISC]},$source;
1130 @$project_settings[$T_SOURCES_MISC]=[sort @{@$project_settings[$T_SOURCES_MISC]}];
1134 # Scans the specified workspace file to find the project files
1135 sub source_scan_workspace_file($);
1136 sub source_scan_workspace_file($)
1138 my $filename=$_[0];
1139 my $path=dirname($filename);
1140 my @components;
1142 if (! -e $filename) {
1143 return;
1146 if (!open(FILEIWS,$filename)) {
1147 print STDERR "error: unable to open $filename for reading:\n";
1148 print STDERR " $!\n";
1149 return;
1152 my $prj_name;
1153 my $prj_path;
1155 if ($filename =~ /.dsw$/i) {
1156 while (<FILEIWS>) {
1157 # Remove any trailing CrLf
1158 s/\r\n$/\n/;
1160 # catch a project definition
1161 if (/^Project:\s\"(.*)\"=(.*)\s-/) {
1162 $prj_name=$1;
1163 $prj_path=$2;
1164 @components=split /[\/\\]+/, $prj_path;
1165 $prj_path=search_from($path, \@components);
1166 print "Name: $prj_name\nPath: $prj_path\n";
1167 source_scan_project_file(\@main_project,1,$prj_path);
1168 next;
1169 } elsif (/^#/) {
1170 # ignore Comments
1171 } elsif (/^Global:/) {
1172 # ignore the Global section
1173 } elsif (/\w:/) {
1174 print STDERR "unknown section $_\n";
1175 } elsif (/^Microsoft(.*)Studio(.*)File,\sFormat Version\s(.*)/) {
1176 print "\nFileversion: $3\n";
1179 close(FILEIWS);
1180 } elsif ($filename =~ /.sln$/i) {
1181 while (<FILEIWS>) {
1182 # Remove any trailing CrLf
1183 s/\r\n$/\n/;
1185 # catch a project definition
1186 if (/^Project(.*)=\s*"(.*)",\s*"(.*)",\s*"(.*)"/) {
1187 $prj_name=$2;
1188 $prj_path=$3;
1189 @components=split /[\/\\]+/, $3;
1190 $prj_path=search_from($path, \@components);
1191 print "Name: $prj_name\nPath: $prj_path\n";
1192 source_scan_project_file(\@main_project,1,$prj_path);
1193 next;
1194 } elsif (/^Microsoft(.*)Studio(.*)File,\sFormat Version\s(.*)/) {
1195 print "\nFileversion: $3\n";
1198 close(FILEIWS);
1201 @projects=sort { @$a[$P_PATH] cmp @$b[$P_PATH] } @projects;
1205 # Scans the specified directory to:
1206 # - see if we should create a Makefile in this directory. We normally do
1207 # so if we find a project file and sources
1208 # - get a list of targets for this directory
1209 # - get the list of source files
1210 sub source_scan_directory($$$$);
1211 sub source_scan_directory($$$$)
1213 # a reference to the parent's project
1214 my $parent_project=$_[0];
1215 # the full relative path to the current directory, including a
1216 # trailing '/', or an empty string if this is the top level directory
1217 my $path=$_[1];
1218 # the name of this directory, including a trailing '/', or an empty
1219 # string if this is the top level directory
1220 my $dirname=$_[2];
1221 # if set then no targets will be looked for and the sources will all
1222 # end up in the parent_project's 'misc' bucket
1223 my $no_target=$_[3];
1225 # reference to the project for this directory. May not be used
1226 my $project;
1227 # list of targets found in the 'current' directory
1228 my %targets;
1229 # list of sources found in the current directory
1230 my @sources_c=();
1231 my @sources_cxx=();
1232 my @sources_rc=();
1233 my @sources_misc=();
1234 # true if this directory contains a Windows project
1235 my $has_win_project=0;
1236 # true if this directory contains headers
1237 my $has_headers=0;
1238 # If we don't find any executable/library then we might make up targets
1239 # from the list of .dsp/.mak files we find since they usually have the
1240 # same name as their target.
1241 my @prj_files=();
1242 my @mak_files=();
1244 if (defined $opt_single_target or $dirname eq "") {
1245 # Either there is a single target and thus a single project,
1246 # or we are in the top level directory for which a project
1247 # already exists
1248 $project=$parent_project;
1249 } else {
1250 $project=[];
1251 project_init($project, $path, \@global_settings);
1253 my $project_settings=@$project[$P_SETTINGS];
1255 # First find out what this directory contains:
1256 # collect all sources, targets and subdirectories
1257 my $directory=get_directory_contents($path);
1258 foreach my $dentry (@$directory) {
1259 if ($dentry =~ /^\./) {
1260 next;
1262 my $fullentry="$path$dentry";
1263 if (-d "$fullentry") {
1264 if ($dentry =~ /^(Release|Debug)/i) {
1265 # These directories are often used to store the object files and the
1266 # resulting executable/library. They should not contain anything else.
1267 my @candidates=grep /\.(exe|dll)$/i, @{get_directory_contents("$fullentry")};
1268 foreach my $candidate (@candidates) {
1269 $targets{$candidate}=1;
1271 } elsif ($dentry =~ /^include/i) {
1272 # This directory must contain headers we're going to need
1273 push @{@$project_settings[$T_INCLUDE_PATH]},"-I$dentry";
1274 source_scan_directory($project,"$fullentry/","$dentry/",1);
1275 } else {
1276 # Recursively scan this directory. Any source file that cannot be
1277 # attributed to a project in one of the subdirectories will be
1278 # attributed to this project.
1279 source_scan_directory($project,"$fullentry/","$dentry/",$no_target);
1281 } elsif (-f "$fullentry") {
1282 if ($dentry =~ /\.(exe|dll)$/i) {
1283 $targets{$dentry}=1;
1284 } elsif ($dentry =~ /\.c$/i and $dentry !~ /\.(dbg|spec)\.c$/) {
1285 push @sources_c,"$dentry";
1286 } elsif ($dentry =~ /\.(cpp|cxx)$/i) {
1287 if ($dentry =~ /^stdafx.cpp$/i && !(@$project_settings[$T_FLAGS] & $TF_NOMFC)) {
1288 push @sources_misc,"$dentry";
1289 @$project_settings[$T_FLAGS]|=$TF_MFC;
1290 } else {
1291 push @sources_cxx,"$dentry";
1293 } elsif ($dentry =~ /\.rc$/i) {
1294 push @sources_rc,"$dentry";
1295 } elsif ($dentry =~ /\.(h|hxx|hpp|inl|rc2|dlg)$/i) {
1296 $has_headers=1;
1297 push @sources_misc,"$dentry";
1298 if ($dentry =~ /^stdafx.h$/i && !(@$project_settings[$T_FLAGS] & $TF_NOMFC)) {
1299 @$project_settings[$T_FLAGS]|=$TF_MFC;
1301 } elsif ($dentry =~ /\.(dsp|vcproj)$/i) {
1302 push @prj_files,"$dentry";
1303 $has_win_project=1;
1304 } elsif ($dentry =~ /\.mak$/i) {
1305 push @mak_files,"$dentry";
1306 $has_win_project=1;
1307 } elsif ($dentry =~ /^makefile/i) {
1308 $has_win_project=1;
1313 if ($has_headers) {
1314 push @{@$project_settings[$T_INCLUDE_PATH]},"-I.";
1316 # If we have a single target then all we have to do is assign
1317 # all the sources to it and we're done
1318 # FIXME: does this play well with the --interactive mode?
1319 if ($opt_single_target) {
1320 my $target=@{@$project[$P_TARGETS]}[0];
1321 push @{@$target[$T_SOURCES_C]},map "$path$_",@sources_c;
1322 push @{@$target[$T_SOURCES_CXX]},map "$path$_",@sources_cxx;
1323 push @{@$target[$T_SOURCES_RC]},map "$path$_",@sources_rc;
1324 push @{@$target[$T_SOURCES_MISC]},map "$path$_",@sources_misc;
1325 return;
1327 if ($no_target) {
1328 my $parent_settings=@$parent_project[$P_SETTINGS];
1329 push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_c;
1330 push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_cxx;
1331 push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_rc;
1332 push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_misc;
1333 push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@{@$project_settings[$T_SOURCES_MISC]};
1334 return;
1337 my $source_count=@sources_c+@sources_cxx+@sources_rc+
1338 @{@$project_settings[$T_SOURCES_C]}+
1339 @{@$project_settings[$T_SOURCES_CXX]}+
1340 @{@$project_settings[$T_SOURCES_RC]};
1341 if ($source_count == 0) {
1342 # A project without real sources is not a project, get out!
1343 if ($project!=$parent_project) {
1344 my $parent_settings=@$parent_project[$P_SETTINGS];
1345 push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_misc;
1346 push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@{@$project_settings[$T_SOURCES_MISC]};
1348 return;
1350 #print "targets=",%targets,"\n";
1351 #print "target_count=$target_count\n";
1352 #print "has_win_project=$has_win_project\n";
1353 #print "dirname=$dirname\n";
1355 my $target_count;
1356 if (($has_win_project != 0) or ($dirname eq "")) {
1357 # Deal with cases where we could not find any executable/library, and
1358 # thus have no target, although we did find some sort of windows project.
1359 $target_count=keys %targets;
1360 if ($target_count == 0) {
1361 # Try to come up with a target list based on .dsp/.mak files
1362 my $prj_list;
1363 if (@prj_files > 0) {
1364 print "Projectfile found! You might want to try using it directly.\n";
1365 $prj_list=\@prj_files;
1366 } else {
1367 $prj_list=\@mak_files;
1369 foreach my $filename (@$prj_list) {
1370 $filename =~ s/\.(dsp|vcproj|mak)$//i;
1371 if ($opt_target_type == $TT_DLL) {
1372 $filename = "$filename.dll";
1374 $targets{$filename}=1;
1376 $target_count=keys %targets;
1377 if ($target_count == 0) {
1378 # Still nothing, try the name of the directory
1379 my $name;
1380 if ($dirname eq "") {
1381 # Bad luck, this is the top level directory!
1382 $name=(split /\//, cwd)[-1];
1383 } else {
1384 $name=$dirname;
1385 # Remove the trailing '/'. Also eliminate whatever is after the last
1386 # '.' as it is likely to be meaningless (.orig, .new, ...)
1387 $name =~ s+(/|\.[^.]*)$++;
1388 if ($name eq "src") {
1389 # 'src' is probably a subdirectory of the real project directory.
1390 # Try again with the parent (if any).
1391 my $parent=$path;
1392 if ($parent =~ s+([^/]*)/[^/]*/$+$1+) {
1393 $name=$parent;
1394 } else {
1395 $name=(split /\//, cwd)[-1];
1399 $name =~ s+(/|\.[^.]*)$++;
1400 if ($opt_target_type == $TT_DLL) {
1401 $name = canonize($name).".dll";
1402 } else {
1403 $name = canonize($name).".exe";
1405 $targets{$name}=1;
1409 # Ask confirmation to the user if he wishes so
1410 if ($opt_is_interactive == $OPT_ASK_YES) {
1411 my $target_list=join " ",keys %targets;
1412 print "\n*** In ",($path?$path:"./"),"\n";
1413 print "* winemaker found the following list of (potential) targets\n";
1414 print "* $target_list\n";
1415 print "* Type enter to use it as is, your own comma-separated list of\n";
1416 print "* targets, 'none' to assign the source files to a parent directory,\n";
1417 print "* or 'ignore' to ignore everything in this directory tree.\n";
1418 print "* Target list:\n";
1419 $target_list=<STDIN>;
1420 chomp $target_list;
1421 if ($target_list eq "") {
1422 # Keep the target list as is, i.e. do nothing
1423 } elsif ($target_list eq "none") {
1424 # Empty the target list
1425 undef %targets;
1426 } elsif ($target_list eq "ignore") {
1427 # Ignore this subtree altogether
1428 return;
1429 } else {
1430 undef %targets;
1431 foreach my $target (split /,/,$target_list) {
1432 $target =~ s+^\s*++;
1433 $target =~ s+\s*$++;
1434 $targets{$target}=1;
1440 # If we have no project at this level, then transfer all
1441 # the sources to the parent project
1442 $target_count=keys %targets;
1443 if ($target_count == 0) {
1444 if ($project!=$parent_project) {
1445 my $parent_settings=@$parent_project[$P_SETTINGS];
1446 push @{@$parent_settings[$T_SOURCES_C]},map "$dirname$_",@sources_c;
1447 push @{@$parent_settings[$T_SOURCES_CXX]},map "$dirname$_",@sources_cxx;
1448 push @{@$parent_settings[$T_SOURCES_RC]},map "$dirname$_",@sources_rc;
1449 push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_misc;
1450 push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@{@$project_settings[$T_SOURCES_MISC]};
1452 return;
1455 # Otherwise add this project to the project list, except for
1456 # the main project which is already in the list.
1457 if ($dirname ne "") {
1458 push @projects,$project;
1461 # Ask for project-wide options
1462 if ($opt_ask_project_options == $OPT_ASK_YES) {
1463 my $flag_desc="";
1464 if ((@$project_settings[$T_FLAGS] & $TF_MFC)!=0) {
1465 $flag_desc="mfc";
1467 print "* Type any project-wide options (-D/-I/-P/-i/-L/-l/--mfc),\n";
1468 if (defined $flag_desc) {
1469 print "* (currently $flag_desc)\n";
1471 print "* or 'skip' to skip the target specific options,\n";
1472 print "* or 'never' to not be asked this question again:\n";
1473 while (1) {
1474 my $options=<STDIN>;
1475 chomp $options;
1476 if ($options eq "skip") {
1477 $opt_ask_target_options=$OPT_ASK_SKIP;
1478 last;
1479 } elsif ($options eq "never") {
1480 $opt_ask_project_options=$OPT_ASK_NO;
1481 last;
1482 } elsif (source_set_options($project_settings,$options)) {
1483 last;
1485 print "Please re-enter the options:\n";
1489 # - Create the targets
1490 # - Check if we have both libraries and programs
1491 # - Match each target with source files (sort in reverse
1492 # alphabetical order to get the longest matches first)
1493 my @local_dlls=();
1494 my @local_depends=();
1495 my @exe_list=();
1496 foreach my $target_name (map (lc, (sort { $b cmp $a } keys %targets))) {
1497 # Create the target...
1498 my $target=[];
1499 target_init($target);
1500 @$target[$T_NAME]=$target_name;
1501 @$target[$T_FLAGS]|=@$project_settings[$T_FLAGS];
1502 if ($target_name =~ /\.dll$/) {
1503 @$target[$T_TYPE]=$TT_DLL;
1504 push @local_depends,"$target_name.so";
1505 push @local_dlls,$target_name;
1506 my $canon=canonize($target_name);
1507 push @{@$target[$T_LDFLAGS]},("-shared","\$(${canon}_MODULE:.dll=.spec)");
1508 } else {
1509 @$target[$T_TYPE]=$opt_target_type;
1510 push @exe_list,$target;
1511 push @{@$target[$T_LDFLAGS]},(@$target[$T_TYPE] == $TT_CUIEXE ? "-mconsole" : "-mwindows");
1513 my $basename=$target_name;
1514 $basename=~ s/\.(dll|exe)$//i;
1515 # This is the default link list of Visual Studio
1516 my @std_imports=qw(odbc32 ole32 oleaut32 winspool odbccp32);
1517 my @std_libraries=qw(uuid);
1518 if ((@$target[$T_FLAGS] & $TF_NODLLS) == 0) {
1519 @$target[$T_DLLS]=\@std_imports;
1520 @$target[$T_LIBRARIES]=\@std_libraries;
1521 } else {
1522 @$target[$T_DLLS]=[];
1523 @$target[$T_LIBRARIES]=[];
1525 if ((@$target[$T_FLAGS] & $TF_NOMSVCRT) == 0) {
1526 push @{@$target[$T_LDFLAGS]},"-mno-cygwin";
1527 if ($opt_arch != $OPT_ARCH_DEFAULT) {
1528 push @{@$target[$T_LDFLAGS]},"-m$opt_arch";
1531 push @{@$project[$P_TARGETS]},$target;
1533 # Ask for target-specific options
1534 if ($opt_ask_target_options == $OPT_ASK_YES) {
1535 my $flag_desc="";
1536 if ((@$target[$T_FLAGS] & $TF_MFC)!=0) {
1537 $flag_desc=" (mfc";
1539 if ($flag_desc ne "") {
1540 $flag_desc.=")";
1542 print "* Specify any link option (-P/-i/-L/-l/--mfc) specific to the target\n";
1543 print "* \"$target_name\"$flag_desc or 'never' to not be asked this question again:\n";
1544 while (1) {
1545 my $options=<STDIN>;
1546 chomp $options;
1547 if ($options eq "never") {
1548 $opt_ask_target_options=$OPT_ASK_NO;
1549 last;
1550 } elsif (source_set_options($target,$options)) {
1551 last;
1553 print "Please re-enter the options:\n";
1556 if (@$target[$T_FLAGS] & $TF_MFC) {
1557 @$project_settings[$T_FLAGS]|=$TF_MFC;
1558 push @{@$target[$T_DLL_PATH]},"\$(MFC_LIBRARY_PATH)";
1559 push @{@$target[$T_DLLS]},"mfc.dll";
1560 # FIXME: Link with the MFC in the Unix sense, until we
1561 # start exporting the functions properly.
1562 push @{@$target[$T_LIBRARY_PATH]},"\$(MFC_LIBRARY_PATH)";
1563 push @{@$target[$T_LIBRARIES]},"mfc";
1566 # Match sources...
1567 if ($target_count == 1) {
1568 push @{@$target[$T_SOURCES_C]},@{@$project_settings[$T_SOURCES_C]},@sources_c;
1569 @$project_settings[$T_SOURCES_C]=[];
1570 @sources_c=();
1572 push @{@$target[$T_SOURCES_CXX]},@{@$project_settings[$T_SOURCES_CXX]},@sources_cxx;
1573 @$project_settings[$T_SOURCES_CXX]=[];
1574 @sources_cxx=();
1576 push @{@$target[$T_SOURCES_RC]},@{@$project_settings[$T_SOURCES_RC]},@sources_rc;
1577 @$project_settings[$T_SOURCES_RC]=[];
1578 @sources_rc=();
1580 push @{@$target[$T_SOURCES_MISC]},@{@$project_settings[$T_SOURCES_MISC]},@sources_misc;
1581 # No need for sorting these sources
1582 @$project_settings[$T_SOURCES_MISC]=[];
1583 @sources_misc=();
1584 } else {
1585 foreach my $source (@sources_c) {
1586 if ($source =~ /^$basename/i) {
1587 push @{@$target[$T_SOURCES_C]},$source;
1588 $source="";
1591 foreach my $source (@sources_cxx) {
1592 if ($source =~ /^$basename/i) {
1593 push @{@$target[$T_SOURCES_CXX]},$source;
1594 $source="";
1597 foreach my $source (@sources_rc) {
1598 if ($source =~ /^$basename/i) {
1599 push @{@$target[$T_SOURCES_RC]},$source;
1600 $source="";
1603 foreach my $source (@sources_misc) {
1604 if ($source =~ /^$basename/i) {
1605 push @{@$target[$T_SOURCES_MISC]},$source;
1606 $source="";
1610 @$target[$T_SOURCES_C]=[sort @{@$target[$T_SOURCES_C]}];
1611 @$target[$T_SOURCES_CXX]=[sort @{@$target[$T_SOURCES_CXX]}];
1612 @$target[$T_SOURCES_RC]=[sort @{@$target[$T_SOURCES_RC]}];
1613 @$target[$T_SOURCES_MISC]=[sort @{@$target[$T_SOURCES_MISC]}];
1615 if ($opt_ask_target_options == $OPT_ASK_SKIP) {
1616 $opt_ask_target_options=$OPT_ASK_YES;
1619 if ((@$project_settings[$T_FLAGS] & $TF_NOMSVCRT) == 0) {
1620 push @{@$project_settings[$T_CEXTRA]},"-mno-cygwin";
1621 push @{@$project_settings[$T_CXXEXTRA]},"-mno-cygwin";
1622 if ($opt_arch != $OPT_ARCH_DEFAULT) {
1623 push @{@$project_settings[$T_CEXTRA]},"-m$opt_arch";
1624 push @{@$project_settings[$T_CXXEXTRA]},"-m$opt_arch";
1628 if (@$project_settings[$T_FLAGS] & $TF_MFC) {
1629 push @{@$project_settings[$T_INCLUDE_PATH]},"\$(MFC_INCLUDE_PATH)";
1631 # The sources that did not match, if any, go to the extra
1632 # source list of the project settings
1633 foreach my $source (@sources_c) {
1634 if ($source ne "") {
1635 push @{@$project_settings[$T_SOURCES_C]},$source;
1638 @$project_settings[$T_SOURCES_C]=[sort @{@$project_settings[$T_SOURCES_C]}];
1639 foreach my $source (@sources_cxx) {
1640 if ($source ne "") {
1641 push @{@$project_settings[$T_SOURCES_CXX]},$source;
1644 @$project_settings[$T_SOURCES_CXX]=[sort @{@$project_settings[$T_SOURCES_CXX]}];
1645 foreach my $source (@sources_rc) {
1646 if ($source ne "") {
1647 push @{@$project_settings[$T_SOURCES_RC]},$source;
1650 @$project_settings[$T_SOURCES_RC]=[sort @{@$project_settings[$T_SOURCES_RC]}];
1651 foreach my $source (@sources_misc) {
1652 if ($source ne "") {
1653 push @{@$project_settings[$T_SOURCES_MISC]},$source;
1656 @$project_settings[$T_SOURCES_MISC]=[sort @{@$project_settings[$T_SOURCES_MISC]}];
1658 # Finally if we are building both libraries and programs in
1659 # this directory, then the programs should be linked with all
1660 # the libraries
1661 if (@local_dlls > 0 and @exe_list > 0) {
1662 foreach my $target (@exe_list) {
1663 push @{@$target[$T_DLL_PATH]},"-L.";
1664 push @{@$target[$T_DLLS]},@local_dlls;
1670 # Scan the source directories in search of things to build
1671 sub source_scan()
1673 # If there's a single target then this is going to be the default target
1674 if (defined $opt_single_target) {
1675 # Create the main target
1676 my $main_target=[];
1677 target_init($main_target);
1678 @$main_target[$T_NAME]=$opt_single_target;
1679 @$main_target[$T_TYPE]=$opt_target_type;
1681 # Add it to the list
1682 push @{$main_project[$P_TARGETS]},$main_target;
1685 # The main directory is always going to be there
1686 push @projects,\@main_project;
1688 if (defined $opt_work_dir) {
1689 # Now scan the directory tree looking for source files and, maybe, targets
1690 print "Scanning the source directories...\n";
1691 source_scan_directory(\@main_project,"","",0);
1692 @projects=sort { @$a[$P_PATH] cmp @$b[$P_PATH] } @projects;
1693 } elsif (defined $opt_work_file) {
1694 if ($opt_work_file =~ /.dsp$/i or $opt_work_file =~ /.vcproj$/i) {
1695 source_scan_project_file(\@main_project,0,$opt_work_file);
1696 } elsif ($opt_work_file =~ /.dsw$/i or $opt_work_file =~ /.sln$/i) {
1697 source_scan_workspace_file($opt_work_file);
1702 #####
1704 # Source search
1706 #####
1709 # Performs a directory traversal and renames the files so that:
1710 # - they have the case desired by the user
1711 # - their extension is of the appropriate case
1712 # - they don't contain annoying characters like ' ', '$', '#', ...
1713 # But only perform these changes for source files and directories.
1714 sub fix_file_and_directory_names($);
1715 sub fix_file_and_directory_names($)
1717 my $dirname=$_[0];
1719 my $directory=get_directory_contents($dirname);
1720 foreach my $dentry (@$directory)
1722 if ($dentry =~ /^\./ or $dentry eq "CVS") {
1723 next;
1725 # Set $warn to 1 if the user should be warned of the renaming
1726 my $warn;
1727 my $new_name=$dentry;
1729 if (-f "$dirname/$dentry")
1731 # Don't rename Winemaker's makefiles
1732 next if ($dentry eq "Makefile" and
1733 `head -n 1 "$dirname/$dentry"` =~ /Generated by Winemaker/);
1735 # Leave non-source files alone
1736 next if ($new_name !~ /(^makefile|\.(c|cpp|h|rc))$/i);
1738 # Only all lowercase extensions are supported (because of
1739 # rules like '.c.o:'.
1740 $new_name =~ s/\.C$/.c/;
1741 $new_name =~ s/\.cpp$/.cpp/i;
1742 $warn=1 if ($new_name =~ s/\.cxx$/.cpp/i);
1743 $new_name =~ s/\.rc$/.rc/i;
1744 # And this last one is to avoid confusion then running make
1745 $warn=1 if ($new_name =~ s/^makefile$/makefile.win/i);
1748 # Adjust the case to the user's preferences
1749 if (($opt_lower == $OPT_LOWER_ALL and $dentry =~ /[A-Z]/) or
1750 ($opt_lower == $OPT_LOWER_UPPERCASE and $dentry !~ /[a-z]/)
1752 $new_name=lc $new_name;
1755 # autoconf and make don't support these characters well
1756 $new_name =~ s/[ \$]/_/g;
1758 # And finally, perform the renaming
1759 if ($new_name ne $dentry)
1761 if ($warn) {
1762 print STDERR "warning: in \"$dirname\", renaming \"$dentry\" to \"$new_name\"\n";
1764 if (!rename("$dirname/$dentry","$dirname/$new_name")) {
1765 print STDERR "error: in \"$dirname\", unable to rename \"$dentry\" to \"$new_name\"\n";
1766 print STDERR " $!\n";
1767 $new_name=$dentry;
1769 else
1771 clear_directory_cache($dirname);
1774 if (-d "$dirname/$new_name") {
1775 fix_file_and_directory_names("$dirname/$new_name");
1782 #####
1784 # Source fixup
1786 #####
1789 # Try to find a file for the specified filename. The attempt is
1790 # case-insensitive which is why it's not trivial. If a match is
1791 # found then we return the pathname with the correct case.
1792 sub search_from($$)
1794 my $dirname=$_[0];
1795 my $path=$_[1];
1796 my $real_path="";
1798 if ($dirname eq "" or $dirname eq "." or $dirname eq "./") {
1799 $dirname=cwd;
1800 } elsif ($dirname !~ m+^/+) {
1801 $dirname=cwd . "/" . $dirname;
1803 if ($dirname !~ m+/$+) {
1804 $dirname.="/";
1807 foreach my $component (@$path) {
1808 $component=~s/^\"//;
1809 $component=~s/\"$//;
1810 #print " looking for $component in \"$dirname\"\n";
1811 if ($component eq ".") {
1812 # Pass it as is
1813 $real_path.="./";
1814 } elsif ($component eq "..") {
1815 # Go up one level
1816 $dirname=dirname($dirname) . "/";
1817 $real_path.="../";
1818 } else {
1819 # The file/directory may have been renamed before. Also try to
1820 # match the renamed file.
1821 my $renamed=$component;
1822 $renamed =~ s/[ \$]/_/g;
1823 if ($renamed eq $component) {
1824 undef $renamed;
1827 my $directory=get_directory_contents $dirname;
1828 my $found;
1829 foreach my $dentry (@$directory) {
1830 if ($dentry =~ /^\Q$component\E$/i or
1831 (defined $renamed and $dentry =~ /^$renamed$/i)
1833 $dirname.="$dentry/";
1834 $real_path.="$dentry/";
1835 $found=1;
1836 last;
1839 if (!defined $found) {
1840 # Give up
1841 #print " could not find $component in $dirname\n";
1842 return;
1846 $real_path=~ s+/$++;
1847 #print " -> found $real_path\n";
1848 return $real_path;
1852 # Performs a case-insensitive search for the specified file in the
1853 # include path.
1854 # $line is the line number that should be referenced when an error occurs
1855 # $filename is the file we are looking for
1856 # $dirname is the directory of the file containing the '#include' directive
1857 # if '"' was used, it is an empty string otherwise
1858 # $project and $target specify part of the include path
1859 sub get_real_include_name($$$$$)
1861 my $line=$_[0];
1862 my $filename=$_[1];
1863 my $dirname=$_[2];
1864 my $project=$_[3];
1865 my $target=$_[4];
1867 if ($filename =~ /^([a-zA-Z]:)?[\/]/ or $filename =~ /^[a-zA-Z]:[\/]?/) {
1868 # This is not a relative path, we cannot make any check
1869 my $warning="path:$filename";
1870 if (!defined $warnings{$warning}) {
1871 $warnings{$warning}="1";
1872 print STDERR "warning: cannot check the case of absolute pathnames:\n";
1873 print STDERR "$line: $filename\n";
1875 } else {
1876 # Here's how we proceed:
1877 # - split the filename we look for into its components
1878 # - then for each directory in the include path
1879 # - trace the directory components starting from that directory
1880 # - if we fail to find a match at any point then continue with
1881 # the next directory in the include path
1882 # - otherwise, rejoice, our quest is over.
1883 my @file_components=split /[\/\\]+/, $filename;
1884 #print " Searching for $filename from @$project[$P_PATH]\n";
1886 my $real_filename;
1887 if ($dirname ne "") {
1888 # This is an 'include ""' -> look in dirname first.
1889 #print " in $dirname (include \"\")\n";
1890 $real_filename=search_from($dirname,\@file_components);
1891 if (defined $real_filename) {
1892 return $real_filename;
1895 my $project_settings=@$project[$P_SETTINGS];
1896 foreach my $include (@{@$target[$T_INCLUDE_PATH]}, @{@$project_settings[$T_INCLUDE_PATH]}) {
1897 my $dirname=$include;
1898 $dirname=~ s+^-I++;
1899 $dirname=~ s+\s$++;
1900 if (!is_absolute($dirname)) {
1901 $dirname="@$project[$P_PATH]$dirname";
1902 } else {
1903 $dirname=~ s+^\$\(TOPSRCDIR\)/++;
1904 $dirname=~ s+^\$\(SRCDIR\)/+@$project[$P_PATH]+;
1906 #print " in $dirname\n";
1907 $real_filename=search_from("$dirname",\@file_components);
1908 if (defined $real_filename) {
1909 return $real_filename;
1912 my $dotdotpath=@$project[$P_PATH];
1913 $dotdotpath =~ s/[^\/]+/../g;
1914 foreach my $include (@{$global_settings[$T_INCLUDE_PATH]}) {
1915 my $dirname=$include;
1916 $dirname=~ s+^-I++;
1917 $dirname=~ s+^\$\(TOPSRCDIR\)\/++;
1918 $dirname=~ s+^\$\(SRCDIR\)\/+@$project[$P_PATH]+;
1919 #print " in $dirname (global setting)\n";
1920 $real_filename=search_from("$dirname",\@file_components);
1921 if (defined $real_filename) {
1922 return $real_filename;
1926 $filename =~ s+\\\\+/+g; # in include ""
1927 $filename =~ s+\\+/+g; # in include <> !
1928 if ($opt_lower_include) {
1929 return lc "$filename";
1931 return $filename;
1934 sub print_pack($$$)
1936 my $indent=$_[0];
1937 my $size=$_[1];
1938 my $trailer=$_[2];
1940 if ($size =~ /^(1|2|4|8)$/) {
1941 print FILEO "$indent#include <pshpack$size.h>$trailer";
1942 } else {
1943 print FILEO "$indent/* winemaker:warning: Unknown size \"$size\". Defaulting to 4 */\n";
1944 print FILEO "$indent#include <pshpack4.h>$trailer";
1949 # 'Parses' a source file and fixes constructs that would not work with
1950 # Winelib. The parsing is rather simple and not all non-portable features
1951 # are corrected. The most important feature that is corrected is the case
1952 # and path separator of '#include' directives. This requires that each
1953 # source file be associated to a project & target so that the proper
1954 # include path is used.
1955 # Also note that the include path is relative to the directory in which the
1956 # compiler is run, i.e. that of the project, not to that of the file.
1957 sub fix_file($$$)
1959 my $filename=$_[0];
1960 my $project=$_[1];
1961 my $target=$_[2];
1962 $filename="@$project[$P_PATH]$filename";
1963 if (! -e $filename) {
1964 return;
1967 my $is_rc=($filename =~ /\.(rc2?|dlg)$/i);
1968 my $dirname=dirname($filename);
1969 my $is_mfc=0;
1970 if (defined $target and (@$target[$T_FLAGS] & $TF_MFC)) {
1971 $is_mfc=1;
1974 print " $filename\n";
1975 #FIXME:assuming that because there is a .bak file, this is what we want is
1976 #probably flawed. Or is it???
1977 if (! -e "$filename.bak") {
1978 if (!copy("$filename","$filename.bak")) {
1979 print STDERR "error: unable to make a backup of $filename:\n";
1980 print STDERR " $!\n";
1981 return;
1984 if (!open(FILEI,"$filename.bak")) {
1985 print STDERR "error: unable to open $filename.bak for reading:\n";
1986 print STDERR " $!\n";
1987 return;
1989 if (!open(FILEO,">$filename")) {
1990 print STDERR "error: unable to open $filename for writing:\n";
1991 print STDERR " $!\n";
1992 return;
1994 my $line=0;
1995 my $modified=0;
1996 my $rc_block_depth=0;
1997 my $rc_textinclude_state=0;
1998 my @pack_stack;
1999 while (<FILEI>) {
2000 # Remove any trailing CtrlZ, which isn't strictly in the file
2001 if (/\x1A/) {
2002 s/\x1A//;
2003 last if (/^$/)
2005 $line++;
2006 s/\r\n$/\n/;
2007 if (!/\n$/) {
2008 # Make sure all files are '\n' terminated
2009 $_ .= "\n";
2011 if ($is_rc and !$is_mfc and /^(\s*)(\#\s*include\s*)\"afxres\.h\"/) {
2012 # VC6 automatically includes 'afxres.h', an MFC specific header, in
2013 # the RC files it generates (even in non-MFC projects). So we replace
2014 # it with 'winresrc.h' its very close standard cousin so that non MFC
2015 # projects can compile in Wine without the MFC sources.
2016 my $warning="mfc:afxres.h";
2017 if (!defined $warnings{$warning}) {
2018 $warnings{$warning}="1";
2019 print STDERR "warning: In non-MFC projects, winemaker replaces the MFC specific header 'afxres.h' with 'winresrc.h'\n";
2020 print STDERR "warning: the above warning is issued only once\n";
2022 print FILEO "$1/* winemaker: $2\"afxres.h\" */\n";
2023 print FILEO "$1/* winemaker:warning: 'afxres.h' is an MFC specific header. Replacing it with 'winresrc.h' */\n";
2024 print FILEO "$1$2\"winresrc.h\"$'";
2025 $modified=1;
2027 } elsif (/^(\s*\#\s*include\s*)([\"<])([^\"]+)([\">])/) {
2028 my $from_file=($2 eq "<"?"":$dirname);
2029 my $real_include_name=get_real_include_name($line,$3,$from_file,$project,$target);
2030 print FILEO "$1$2$real_include_name$4$'";
2031 $modified|=($real_include_name ne $3);
2033 } elsif (s/^(\s*)(\#\s*pragma\s+pack\s*\(\s*)//) {
2034 # Pragma pack handling
2036 # pack_stack is an array of references describing the stack of
2037 # pack directives currently in effect. Each directive if described
2038 # by a reference to an array containing:
2039 # - "push" for pack(push,...) directives, "" otherwise
2040 # - the directive's identifier at index 1
2041 # - the directive's alignment value at index 2
2043 # Don't believe a word of what the documentation says: it's all wrong.
2044 # The code below is based on the actual behavior of Visual C/C++ 6.
2045 my $pack_indent=$1;
2046 my $pack_header=$2;
2047 if (/^(\))/) {
2048 # pragma pack()
2049 # Pushes the default stack alignment
2050 print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n";
2051 print FILEO "$pack_indent/* winemaker:warning: Using 4 as the default alignment */\n";
2052 print_pack($pack_indent,4,$');
2053 push @pack_stack, [ "", "", 4 ];
2055 } elsif (/^(pop\s*(,\s*\d+\s*)?\))/) {
2056 # pragma pack(pop)
2057 # pragma pack(pop,n)
2058 # Goes up the stack until it finds a pack(push,...), and pops it
2059 # Ignores any pack(n) entry
2060 # Issues a warning if the pack is of the form pack(push,label)
2061 print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n";
2062 my $pack_comment=$';
2063 $pack_comment =~ s/^\s*//;
2064 if ($pack_comment ne "") {
2065 print FILEO "$pack_indent$pack_comment";
2067 while (1) {
2068 my $alignment=pop @pack_stack;
2069 if (!defined $alignment) {
2070 print FILEO "$pack_indent/* winemaker:warning: No pack(push,...) found. All the stack has been popped */\n";
2071 last;
2073 if (@$alignment[1]) {
2074 print FILEO "$pack_indent/* winemaker:warning: Anonymous pop of pack(push,@$alignment[1]) (@$alignment[2]) */\n";
2076 print FILEO "$pack_indent#include <poppack.h>\n";
2077 if (@$alignment[0]) {
2078 last;
2082 } elsif (/^(pop\s*,\s*(\w+)\s*(,\s*\d+\s*)?\))/) {
2083 # pragma pack(pop,label[,n])
2084 # Goes up the stack until finding a pack(push,...) and pops it.
2085 # 'n', if specified, is ignored.
2086 # Ignores any pack(n) entry
2087 # Issues a warning if the label of the pack does not match,
2088 # or if it is in fact a pack(push,n)
2089 my $label=$2;
2090 print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n";
2091 my $pack_comment=$';
2092 $pack_comment =~ s/^\s*//;
2093 if ($pack_comment ne "") {
2094 print FILEO "$pack_indent$pack_comment";
2096 while (1) {
2097 my $alignment=pop @pack_stack;
2098 if (!defined $alignment) {
2099 print FILEO "$pack_indent/* winemaker:warning: No pack(push,$label) found. All the stack has been popped */\n";
2100 last;
2102 if (@$alignment[1] and @$alignment[1] ne $label) {
2103 print FILEO "$pack_indent/* winemaker:warning: Push/pop mismatch: \"@$alignment[1]\" (@$alignment[2]) != \"$label\" */\n";
2105 print FILEO "$pack_indent#include <poppack.h>\n";
2106 if (@$alignment[0]) {
2107 last;
2111 } elsif (/^(push\s*\))/) {
2112 # pragma pack(push)
2113 # Push the current alignment
2114 print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n";
2115 if (@pack_stack > 0) {
2116 my $alignment=$pack_stack[$#pack_stack];
2117 print_pack($pack_indent,@$alignment[2],$');
2118 push @pack_stack, [ "push", "", @$alignment[2] ];
2119 } else {
2120 print FILEO "$pack_indent/* winemaker:warning: Using 4 as the default alignment */\n";
2121 print_pack($pack_indent,4,$');
2122 push @pack_stack, [ "push", "", 4 ];
2125 } elsif (/^((push\s*,\s*)?(\d+)\s*\))/) {
2126 # pragma pack([push,]n)
2127 # Push new alignment n
2128 print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n";
2129 print_pack($pack_indent,$3,"$'");
2130 push @pack_stack, [ ($2 ? "push" : ""), "", $3 ];
2132 } elsif (/^((\w+)\s*\))/) {
2133 # pragma pack(label)
2134 # label must in fact be a macro that resolves to an integer
2135 # Then behaves like 'pragma pack(n)'
2136 print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n";
2137 print FILEO "$pack_indent/* winemaker:warning: Assuming $2 == 4 */\n";
2138 print_pack($pack_indent,4,$');
2139 push @pack_stack, [ "", "", 4 ];
2141 } elsif (/^(push\s*,\s*(\w+)\s*(,\s*(\d+)\s*)?\))/) {
2142 # pragma pack(push,label[,n])
2143 # Pushes a new label on the stack. It is possible to push the same
2144 # label multiple times. If 'n' is omitted then the alignment is
2145 # unchanged. Otherwise it becomes 'n'.
2146 print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n";
2147 my $size;
2148 if (defined $4) {
2149 $size=$4;
2150 } elsif (@pack_stack > 0) {
2151 my $alignment=$pack_stack[$#pack_stack];
2152 $size=@$alignment[2];
2153 } else {
2154 print FILEO "$pack_indent/* winemaker:warning: Using 4 as the default alignment */\n";
2155 $size=4;
2157 print_pack($pack_indent,$size,$');
2158 push @pack_stack, [ "push", $2, $size ];
2160 } else {
2161 # pragma pack(??? -> What's that?
2162 print FILEO "$pack_indent/* winemaker:warning: Unknown type of pragma pack directive */\n";
2163 print FILEO "$pack_indent$pack_header$_";
2166 $modified=1;
2168 } elsif ($is_rc) {
2169 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]+)([\">]?)/) {
2170 my $from_file=($5 eq "<"?"":$dirname);
2171 my $real_include_name=get_real_include_name($line,$6,$from_file,$project,$target);
2172 print FILEO "$1$5$real_include_name$7$'";
2173 $modified|=($real_include_name ne $6);
2175 } elsif (/^(\s*RCINCLUDE\s*)([\"<]?)([^\">\r\n]+)([\">]?)/) {
2176 my $from_file=($2 eq "<"?"":$dirname);
2177 my $real_include_name=get_real_include_name($line,$3,$from_file,$project,$target);
2178 print FILEO "$1$2$real_include_name$4$'";
2179 $modified|=($real_include_name ne $3);
2181 } elsif ($is_rc and !$is_mfc and $rc_block_depth == 0 and /^\s*\d+\s+TEXTINCLUDE\s*/) {
2182 $rc_textinclude_state=1;
2183 print FILEO;
2185 } elsif ($rc_textinclude_state == 3 and /^(\s*\"\#\s*include\s*\"\")afxres\.h(\"\"\\r\\n\")/) {
2186 print FILEO "$1winresrc.h$2$'";
2187 $modified=1;
2189 } elsif (/^\s*BEGIN(\W.*)?$/) {
2190 $rc_textinclude_state|=2;
2191 $rc_block_depth++;
2192 print FILEO;
2194 } elsif (/^\s*END(\W.*)?$/) {
2195 $rc_textinclude_state=0;
2196 if ($rc_block_depth>0) {
2197 $rc_block_depth--;
2199 print FILEO;
2201 } else {
2202 print FILEO;
2205 } else {
2206 print FILEO;
2210 close(FILEI);
2211 close(FILEO);
2212 if ($opt_backup == 0 or $modified == 0) {
2213 if (!unlink("$filename.bak")) {
2214 print STDERR "error: unable to delete $filename.bak:\n";
2215 print STDERR " $!\n";
2221 # Analyzes each source file in turn to find and correct issues
2222 # that would cause it not to compile.
2223 sub fix_source()
2225 print "Fixing the source files...\n";
2226 foreach my $project (@projects) {
2227 foreach my $target (@$project[$P_SETTINGS],@{@$project[$P_TARGETS]}) {
2228 foreach my $source (@{@$target[$T_SOURCES_C]}, @{@$target[$T_SOURCES_CXX]}, @{@$target[$T_SOURCES_RC]}, @{@$target[$T_SOURCES_MISC]}) {
2229 fix_file($source,$project,$target);
2237 #####
2239 # File generation
2241 #####
2244 # A convenience function to generate all the lists (defines,
2245 # C sources, C++ source, etc.) in the Makefile
2246 sub generate_list($$$;$)
2248 my $name=$_[0];
2249 my $last=$_[1];
2250 my $list=$_[2];
2251 my $data=$_[3];
2252 my $first=$name;
2254 if ($name) {
2255 printf FILEO "%-22s=",$name;
2257 if (defined $list) {
2258 foreach my $item (@$list) {
2259 my $value;
2260 if (defined $data) {
2261 $value=&$data($item);
2262 } else {
2263 if (defined $item) {
2264 $value=$item;
2265 } else {
2266 $value="";
2269 if ($value ne "") {
2270 if ($first) {
2271 print FILEO " $value";
2272 $first=0;
2273 } else {
2274 print FILEO " \\\n\t\t\t$value";
2279 if ($last) {
2280 print FILEO "\n";
2285 # Generates a project's Makefile and all the target files
2286 sub generate_project_files($)
2288 my $project=$_[0];
2289 my $project_settings=@$project[$P_SETTINGS];
2290 my @dll_list=();
2291 my @exe_list=();
2293 # Then sort the targets and separate the libraries from the programs
2294 foreach my $target (sort { @$a[$T_NAME] cmp @$b[$T_NAME] } @{@$project[$P_TARGETS]}) {
2295 if (@$target[$T_TYPE] == $TT_DLL) {
2296 push @dll_list,$target;
2297 } else {
2298 push @exe_list,$target;
2301 @$project[$P_TARGETS]=[];
2302 push @{@$project[$P_TARGETS]}, @dll_list;
2303 push @{@$project[$P_TARGETS]}, @exe_list;
2305 if (!open(FILEO,">@$project[$P_PATH]Makefile")) {
2306 print STDERR "error: could not open \"@$project[$P_PATH]/Makefile\" for writing\n";
2307 print STDERR " $!\n";
2308 return;
2311 print FILEO "### Generated by Winemaker $version\n";
2312 print FILEO "\n\n";
2314 generate_list("SRCDIR",1,[ "." ]);
2315 if (@$project[$P_PATH] eq "") {
2316 # This is the main project. It is also responsible for recursively
2317 # calling the other projects
2318 generate_list("SUBDIRS",1,\@projects,sub
2320 if ($_[0] != \@main_project) {
2321 my $subdir=@{$_[0]}[$P_PATH];
2322 $subdir =~ s+/$++;
2323 return $subdir;
2325 # Eliminating the main project by returning undefined!
2328 if (@{@$project[$P_TARGETS]} > 0) {
2329 generate_list("DLLS",1,\@dll_list,sub
2331 return @{$_[0]}[$T_NAME];
2333 generate_list("EXES",1,\@exe_list,sub
2335 return "@{$_[0]}[$T_NAME]";
2337 print FILEO "\n\n\n";
2339 print FILEO "### Common settings\n\n";
2340 # Make it so that the project-wide settings override the global settings
2341 generate_list("CEXTRA",1,@$project_settings[$T_CEXTRA]);
2342 generate_list("CXXEXTRA",1,@$project_settings[$T_CXXEXTRA]);
2343 generate_list("RCEXTRA",1,@$project_settings[$T_RCEXTRA]);
2344 generate_list("DEFINES",1,@$project_settings[$T_DEFINES]);
2345 generate_list("INCLUDE_PATH",1,@$project_settings[$T_INCLUDE_PATH]);
2346 generate_list("DLL_PATH",1,@$project_settings[$T_DLL_PATH]);
2347 generate_list("DLL_IMPORTS",1,@$project_settings[$T_DLLS]);
2348 generate_list("LIBRARY_PATH",1,@$project_settings[$T_LIBRARY_PATH]);
2349 generate_list("LIBRARIES",1,@$project_settings[$T_LIBRARIES]);
2350 print FILEO "\n\n";
2352 my $extra_source_count=@{@$project_settings[$T_SOURCES_C]}+
2353 @{@$project_settings[$T_SOURCES_CXX]}+
2354 @{@$project_settings[$T_SOURCES_RC]};
2355 my $no_extra=($extra_source_count == 0);
2356 if (!$no_extra) {
2357 print FILEO "### Extra source lists\n\n";
2358 generate_list("EXTRA_C_SRCS",1,@$project_settings[$T_SOURCES_C]);
2359 generate_list("EXTRA_CXX_SRCS",1,@$project_settings[$T_SOURCES_CXX]);
2360 generate_list("EXTRA_RC_SRCS",1,@$project_settings[$T_SOURCES_RC]);
2361 print FILEO "\n";
2362 generate_list("EXTRA_OBJS",1,["\$(EXTRA_C_SRCS:.c=.o)","\$(EXTRA_CXX_SRCS:.cpp=.o)"]);
2363 print FILEO "\n\n\n";
2366 # Iterate over all the targets...
2367 foreach my $target (@{@$project[$P_TARGETS]}) {
2368 print FILEO "### @$target[$T_NAME] sources and settings\n\n";
2369 my $canon=canonize("@$target[$T_NAME]");
2370 $canon =~ s+_so$++;
2372 generate_list("${canon}_MODULE",1,[@$target[$T_NAME]]);
2373 generate_list("${canon}_C_SRCS",1,@$target[$T_SOURCES_C]);
2374 generate_list("${canon}_CXX_SRCS",1,@$target[$T_SOURCES_CXX]);
2375 generate_list("${canon}_RC_SRCS",1,@$target[$T_SOURCES_RC]);
2376 generate_list("${canon}_LDFLAGS",1,@$target[$T_LDFLAGS]);
2377 generate_list("${canon}_DLL_PATH",1,@$target[$T_DLL_PATH]);
2378 generate_list("${canon}_DLLS",1,@$target[$T_DLLS]);
2379 generate_list("${canon}_LIBRARY_PATH",1,@$target[$T_LIBRARY_PATH]);
2380 generate_list("${canon}_LIBRARIES",1,@$target[$T_LIBRARIES]);
2381 print FILEO "\n";
2382 generate_list("${canon}_OBJS",1,["\$(${canon}_C_SRCS:.c=.o)","\$(${canon}_CXX_SRCS:.cpp=.o)","\$(${canon}_RC_SRCS:.rc=.res)"]);
2383 print FILEO "\n\n\n";
2385 print FILEO "### Global source lists\n\n";
2386 generate_list("C_SRCS",$no_extra,@$project[$P_TARGETS],sub
2388 my $canon=canonize(@{$_[0]}[$T_NAME]);
2389 $canon =~ s+_so$++;
2390 return "\$(${canon}_C_SRCS)";
2392 if (!$no_extra) {
2393 generate_list("",1,[ "\$(EXTRA_C_SRCS)" ]);
2395 generate_list("CXX_SRCS",$no_extra,@$project[$P_TARGETS],sub
2397 my $canon=canonize(@{$_[0]}[$T_NAME]);
2398 $canon =~ s+_so$++;
2399 return "\$(${canon}_CXX_SRCS)";
2401 if (!$no_extra) {
2402 generate_list("",1,[ "\$(EXTRA_CXX_SRCS)" ]);
2404 generate_list("RC_SRCS",$no_extra,@$project[$P_TARGETS],sub
2406 my $canon=canonize(@{$_[0]}[$T_NAME]);
2407 $canon =~ s+_so$++;
2408 return "\$(${canon}_RC_SRCS)";
2410 if (!$no_extra) {
2411 generate_list("",1,[ "\$(EXTRA_RC_SRCS)" ]);
2414 print FILEO "\n\n";
2415 print FILEO "### Tools\n\n";
2416 print FILEO "CC = winegcc\n";
2417 print FILEO "CXX = wineg++\n";
2418 print FILEO "RC = wrc\n";
2419 print FILEO "\n\n";
2421 print FILEO "### Generic targets\n\n";
2422 print FILEO "all:";
2423 if (@$project[$P_PATH] eq "") {
2424 print FILEO " \$(SUBDIRS)";
2426 if (@{@$project[$P_TARGETS]} > 0) {
2427 print FILEO " \$(DLLS:%=%.so) \$(EXES:%=%.so)";
2429 print FILEO "\n\n";
2430 print FILEO "### Build rules\n";
2431 print FILEO "\n";
2432 print FILEO ".PHONY: all clean dummy\n";
2433 print FILEO "\n";
2434 print FILEO "\$(SUBDIRS): dummy\n";
2435 print FILEO "\t\@cd \$\@ && \$(MAKE)\n";
2436 print FILEO "\n";
2437 print FILEO "# Implicit rules\n";
2438 print FILEO "\n";
2439 print FILEO ".SUFFIXES: .cpp .rc .res\n";
2440 print FILEO "DEFINCL = \$(INCLUDE_PATH) \$(DEFINES) \$(OPTIONS)\n";
2441 print FILEO "\n";
2442 print FILEO ".c.o:\n";
2443 print FILEO "\t\$(CC) -c \$(CFLAGS) \$(CEXTRA) \$(DEFINCL) -o \$\@ \$<\n";
2444 print FILEO "\n";
2445 print FILEO ".cpp.o:\n";
2446 print FILEO "\t\$(CXX) -c \$(CXXFLAGS) \$(CXXEXTRA) \$(DEFINCL) -o \$\@ \$<\n";
2447 print FILEO "\n";
2448 print FILEO ".cxx.o:\n";
2449 print FILEO "\t\$(CXX) -c \$(CXXFLAGS) \$(CXXEXTRA) \$(DEFINCL) -o \$\@ \$<\n";
2450 print FILEO "\n";
2451 print FILEO ".rc.res:\n";
2452 print FILEO "\t\$(RC) \$(RCFLAGS) \$(RCEXTRA) \$(DEFINCL) -fo\$@ \$<\n";
2453 print FILEO "\n";
2454 print FILEO "# Rules for cleaning\n";
2455 print FILEO "\n";
2456 print FILEO "CLEAN_FILES = y.tab.c y.tab.h lex.yy.c core *.orig *.rej \\\n";
2457 print FILEO " \\\\\\#*\\\\\\# *~ *% .\\\\\\#*\n";
2458 print FILEO "\n";
2459 print FILEO "clean:: \$(SUBDIRS:%=%/__clean__) \$(EXTRASUBDIRS:%=%/__clean__)\n";
2460 print FILEO "\t\$(RM) \$(CLEAN_FILES) \$(RC_SRCS:.rc=.res) \$(C_SRCS:.c=.o) \$(CXX_SRCS:.cpp=.o)\n";
2461 print FILEO "\t\$(RM) \$(DLLS:%=%.so) \$(EXES:%=%.so) \$(EXES:%.exe=%)\n";
2462 print FILEO "\n";
2463 print FILEO "\$(SUBDIRS:%=%/__clean__): dummy\n";
2464 print FILEO "\tcd `dirname \$\@` && \$(MAKE) clean\n";
2465 print FILEO "\n";
2466 print FILEO "\$(EXTRASUBDIRS:%=%/__clean__): dummy\n";
2467 print FILEO "\t-cd `dirname \$\@` && \$(RM) \$(CLEAN_FILES)\n";
2468 print FILEO "\n";
2470 if (@{@$project[$P_TARGETS]} > 0) {
2471 print FILEO "### Target specific build rules\n";
2472 print FILEO "DEFLIB = \$(LIBRARY_PATH) \$(LIBRARIES) \$(DLL_PATH) \$(DLL_IMPORTS:%=-l%)\n\n";
2473 foreach my $target (@{@$project[$P_TARGETS]}) {
2474 my $canon=canonize("@$target[$T_NAME]");
2475 $canon =~ s/_so$//;
2477 print FILEO "\$(${canon}_MODULE).so: \$(${canon}_OBJS)\n";
2478 if (@{@$target[$T_SOURCES_CXX]} > 0 or @{@$project_settings[$T_SOURCES_CXX]} > 0) {
2479 print FILEO "\t\$(CXX)";
2480 } else {
2481 print FILEO "\t\$(CC)";
2483 print FILEO " \$(${canon}_LDFLAGS) -o \$\@ \$(${canon}_OBJS) \$(${canon}_LIBRARY_PATH) \$(DEFLIB) \$(${canon}_DLLS:%=-l%) \$(${canon}_LIBRARIES:%=-l%)\n";
2484 print FILEO "\n\n";
2487 close(FILEO);
2493 # This is where we finally generate files. In fact this method does not
2494 # do anything itself but calls the methods that do the actual work.
2495 sub generate()
2497 print "Generating project files...\n";
2499 foreach my $project (@projects) {
2500 my $path=@$project[$P_PATH];
2501 if ($path eq "") {
2502 $path=".";
2503 } else {
2504 $path =~ s+/$++;
2506 print " $path\n";
2507 generate_project_files($project);
2513 #####
2515 # Option defaults
2517 #####
2519 $opt_backup=1;
2520 $opt_lower=$OPT_LOWER_UPPERCASE;
2521 $opt_lower_include=1;
2523 $opt_work_dir=undef;
2524 $opt_single_target=undef;
2525 $opt_target_type=$TT_GUIEXE;
2526 $opt_flags=0;
2527 $opt_arch=$OPT_ARCH_DEFAULT;
2528 $opt_is_interactive=$OPT_ASK_NO;
2529 $opt_ask_project_options=$OPT_ASK_NO;
2530 $opt_ask_target_options=$OPT_ASK_NO;
2531 $opt_no_generated_files=0;
2532 $opt_no_source_fix=0;
2533 $opt_no_banner=0;
2537 #####
2539 # Main
2541 #####
2543 sub print_banner()
2545 print "Winemaker $version\n";
2546 print "Copyright 2000 Francois Gouget <fgouget\@codeweavers.com> for CodeWeavers\n";
2547 print "Copyright 2004 Dimitrie O. Paun\n";
2548 print "Copyright 2009 André Hentschel\n";
2551 sub usage()
2553 print_banner();
2554 print STDERR "Usage: winemaker [--nobanner] [--backup|--nobackup] [--nosource-fix]\n";
2555 print STDERR " [--lower-none|--lower-all|--lower-uppercase]\n";
2556 print STDERR " [--lower-include|--nolower-include] [--mfc|--nomfc]\n";
2557 print STDERR " [--guiexe|--windows|--cuiexe|--console|--dll]\n";
2558 print STDERR " [-Dmacro[=defn]] [-Idir] [-Pdir] [-idll] [-Ldir] [-llibrary]\n";
2559 print STDERR " [--nodlls] [--nomsvcrt] [--interactive] [--single-target name]\n";
2560 print STDERR " [--generated-files|--nogenerated-files]\n";
2561 print STDERR " [--wine32]\n";
2562 print STDERR " work_directory|project_file|workspace_file\n";
2563 print STDERR "\nWinemaker is designed to recursively convert all the Windows sources found in\n";
2564 print STDERR "the specified directory or project-file, so that they can be compiled with Winelib.\n";
2565 print STDERR "During this process it will modify and rename some of the corresponding files.\n";
2566 print STDERR "\tPlease read the manual page before use.\n";
2567 exit (2);
2570 target_init(\@global_settings);
2572 while (@ARGV>0) {
2573 my $arg=shift @ARGV;
2574 # General options
2575 if ($arg eq "--nobanner") {
2576 $opt_no_banner=1;
2577 } elsif ($arg eq "--backup") {
2578 $opt_backup=1;
2579 } elsif ($arg eq "--nobackup") {
2580 $opt_backup=0;
2581 } elsif ($arg eq "--single-target") {
2582 $opt_single_target=shift @ARGV;
2583 } elsif ($arg eq "--lower-none") {
2584 $opt_lower=$OPT_LOWER_NONE;
2585 } elsif ($arg eq "--lower-all") {
2586 $opt_lower=$OPT_LOWER_ALL;
2587 } elsif ($arg eq "--lower-uppercase") {
2588 $opt_lower=$OPT_LOWER_UPPERCASE;
2589 } elsif ($arg eq "--lower-include") {
2590 $opt_lower_include=1;
2591 } elsif ($arg eq "--nolower-include") {
2592 $opt_lower_include=0;
2593 } elsif ($arg eq "--nosource-fix") {
2594 $opt_no_source_fix=1;
2595 } elsif ($arg eq "--generated-files") {
2596 $opt_no_generated_files=0;
2597 } elsif ($arg eq "--nogenerated-files") {
2598 $opt_no_generated_files=1;
2599 } elsif ($arg eq "--wine32") {
2600 $opt_arch=$OPT_ARCH_32;
2601 } elsif ($arg =~ /^-D/) {
2602 push @{$global_settings[$T_DEFINES]},$arg;
2603 } elsif ($arg =~ /^-I/) {
2604 push @{$global_settings[$T_INCLUDE_PATH]},$arg;
2605 } elsif ($arg =~ /^-P/) {
2606 push @{$global_settings[$T_DLL_PATH]},"-L$'";
2607 } elsif ($arg =~ /^-i/) {
2608 push @{$global_settings[$T_DLLS]},$';
2609 } elsif ($arg =~ /^-L/) {
2610 push @{$global_settings[$T_LIBRARY_PATH]},$arg;
2611 } elsif ($arg =~ /^-l/) {
2612 push @{$global_settings[$T_LIBRARIES]},$';
2614 # 'Source'-based method options
2615 } elsif ($arg eq "--dll") {
2616 $opt_target_type=$TT_DLL;
2617 } elsif ($arg eq "--guiexe" or $arg eq "--windows") {
2618 $opt_target_type=$TT_GUIEXE;
2619 } elsif ($arg eq "--cuiexe" or $arg eq "--console") {
2620 $opt_target_type=$TT_CUIEXE;
2621 } elsif ($arg eq "--interactive") {
2622 $opt_is_interactive=$OPT_ASK_YES;
2623 $opt_ask_project_options=$OPT_ASK_YES;
2624 $opt_ask_target_options=$OPT_ASK_YES;
2625 } elsif ($arg eq "--mfc") {
2626 $opt_flags|=$TF_MFC;
2627 } elsif ($arg eq "--nomfc") {
2628 $opt_flags&=~$TF_MFC;
2629 $opt_flags|=$TF_NOMFC;
2630 } elsif ($arg eq "--nodlls") {
2631 $opt_flags|=$TF_NODLLS;
2632 } elsif ($arg eq "--nomsvcrt") {
2633 $opt_flags|=$TF_NOMSVCRT;
2635 # Catch errors
2636 } else {
2637 if ($arg ne "--help" and $arg ne "-h" and $arg ne "-?") {
2638 if (!defined $opt_work_dir and !defined $opt_work_file) {
2639 if (-f $arg) {
2640 $opt_work_file=$arg;
2642 else {
2643 $opt_work_dir=$arg;
2645 } else {
2646 print STDERR "error: the work directory, \"$arg\", has already been specified (was \"$opt_work_dir\")\n";
2647 usage();
2649 } else {
2650 usage();
2655 if (!defined $opt_work_dir and !defined $opt_work_file) {
2656 print STDERR "error: you must specify the directory or project file containing the sources to be converted\n";
2657 usage();
2658 } elsif (defined $opt_work_dir and !chdir $opt_work_dir) {
2659 print STDERR "error: could not chdir to the work directory\n";
2660 print STDERR " $!\n";
2661 usage();
2664 if ($opt_no_banner == 0) {
2665 print_banner();
2668 project_init(\@main_project, "", \@global_settings);
2670 # Fix the file and directory names
2671 fix_file_and_directory_names(".");
2673 # Scan the sources to identify the projects and targets
2674 source_scan();
2676 # Fix the source files
2677 if (! $opt_no_source_fix) {
2678 fix_source();
2681 # Generate the Makefile and the spec file
2682 if (! $opt_no_generated_files) {
2683 generate();