#!/usr/bin/perl -w use strict; # Copyright 2000-2002 Francois Gouget for CodeWeavers # fgouget@codeweavers.com # # This library is free software; you can redistribute it and/or # modify it under the terms of the GNU Lesser General Public # License as published by the Free Software Foundation; either # version 2.1 of the License, or (at your option) any later version. # # This library is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this library; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # my $version="0.5.9"; use Cwd; use File::Basename; use File::Copy; ##### # # Options # ##### # The following constants define what we do with the case of filenames ## # Never rename a file to lowercase my $OPT_LOWER_NONE=0; ## # Rename all files to lowercase my $OPT_LOWER_ALL=1; ## # Rename only files that are all uppercase to lowercase my $OPT_LOWER_UPPERCASE=2; # The following constants define whether to ask questions or not ## # No (synonym of never) my $OPT_ASK_NO=0; ## # Yes (always) my $OPT_ASK_YES=1; ## # Skip the questions till the end of this scope my $OPT_ASK_SKIP=-1; # General options ## # This is the directory in which winemaker will operate. my $opt_work_dir; ## # Make a backup of the files my $opt_backup; ## # Defines which files to rename my $opt_lower; ## # If we don't find the file referenced by an include, lower it my $opt_lower_include; ## # If true then winemaker should not attempt to fix the source. This is # useful if the source is known to be already in a suitable form and is # readonly my $opt_no_source_fix; # Options for the 'Source' method ## # Specifies that we have only one target so that all sources relate # to this target. By default this variable is left undefined which # means winemaker should try to find out by itself what the targets # are. If not undefined then this contains the name of the default # target (without the extension). my $opt_single_target; ## # If '$opt_single_target' has been specified then this is the type of # that target. Otherwise it specifies whether the default target type # is guiexe or cuiexe. my $opt_target_type; ## # Contains the default set of flags to be used when creating a new target. my $opt_flags; ## # If true then winemaker should ask questions to the user as it goes # along. my $opt_is_interactive; my $opt_ask_project_options; my $opt_ask_target_options; ## # If false then winemaker should not generate any file, i.e. # no makefiles, but also no .spec files, no configure.in, etc. my $opt_no_generated_files; ## # If true then winemaker should not generate the spec files. # This is useful if winemaker is being used to create a build environment my $opt_no_generated_specs; ## # Specifies not to print the banner if set. my $opt_no_banner; ##### # # Target modelization # ##### # The description of a target is stored in an array. The constants # below identify what is stored at each index of the array. ## # This is the name of the target. my $T_NAME=0; ## # Defines the type of target we want to build. See the TT_xxx # constants below my $T_TYPE=1; ## # Defines the target's enty point, i.e. the function that is called # on startup. my $T_INIT=2; ## # This is a bitfield containing flags refining the way the target # should be handled. See the TF_xxx constants below my $T_FLAGS=3; ## # This is a reference to an array containing the list of the # resp. C, C++, RC, other (.h, .hxx, etc.) source files. my $T_SOURCES_C=4; my $T_SOURCES_CXX=5; my $T_SOURCES_RC=6; my $T_SOURCES_MISC=7; ## # This is a reference to an array containing the list of macro # definitions my $T_DEFINES=8; ## # This is a reference to an array containing the list of directory # names that constitute the include path my $T_INCLUDE_PATH=9; ## # Same as T_INCLUDE_PATH but for the dll search path my $T_DLL_PATH=10; ## # The list of Windows dlls to import my $T_DLLS=11; ## # Same as T_INCLUDE_PATH but for the library search path my $T_LIBRARY_PATH=12; ## # The list of Unix libraries to link with my $T_LIBRARIES=13; ## # The list of dependencies between targets my $T_DEPENDS=14; # The following constants define the recognized types of target ## # This is not a real target. This type of target is used to collect # the sources that don't seem to belong to any other target. Thus no # real target is generated for them, we just put the sources of the # fake target in the global source list. my $TT_SETTINGS=0; ## # For executables in the windows subsystem my $TT_GUIEXE=1; ## # For executables in the console subsystem my $TT_CUIEXE=2; ## # For dynamically linked libraries my $TT_DLL=3; # The following constants further refine how the target should be handled ## # This target needs a wrapper my $TF_WRAP=1; ## # This target is a wrapper my $TF_WRAPPER=2; ## # This target is an MFC-based target my $TF_MFC=4; ## # User has specified --nomfc option for this target or globally my $TF_NOMFC=8; ## # --nodlls option: Do not use standard DLL set my $TF_NODLLS=16; ## # Initialize a target: # - set the target type to TT_SETTINGS, i.e. no real target will # be generated. sub target_init($) { my $target=$_[0]; @$target[$T_TYPE]=$TT_SETTINGS; # leaving $T_INIT undefined @$target[$T_FLAGS]=$opt_flags; @$target[$T_SOURCES_C]=[]; @$target[$T_SOURCES_CXX]=[]; @$target[$T_SOURCES_RC]=[]; @$target[$T_SOURCES_MISC]=[]; @$target[$T_DEFINES]=[]; @$target[$T_INCLUDE_PATH]=[]; @$target[$T_DLL_PATH]=[]; @$target[$T_DLLS]=[]; @$target[$T_LIBRARY_PATH]=[]; @$target[$T_LIBRARIES]=[]; @$target[$T_DEPENDS]=[]; } sub get_default_init($) { my $type=$_[0]; if ($type == $TT_GUIEXE) { return "WinMain"; } elsif ($type == $TT_CUIEXE) { return "main"; } elsif ($type == $TT_DLL) { return "DllMain"; } } ##### # # Project modelization # ##### # First we have the notion of project. A project is described by an # array (since we don't have structs in perl). The constants below # identify what is stored at each index of the array. ## # This is the path in which this project is located. In other # words, this is the path to the Makefile. my $P_PATH=0; ## # This index contains a reference to an array containing the project-wide # settings. The structure of that arrray is actually identical to that of # a regular target since it can also contain extra sources. my $P_SETTINGS=1; ## # This index contains a reference to an array of targets for this # project. Each target describes how an executable or library is to # be built. For each target this description takes the same form as # that of the project: an array. So this entry is an array of arrays. my $P_TARGETS=2; ## # Initialize a project: # - set the project's path # - initialize the target list # - create a default target (will be removed later if unnecessary) sub project_init($$) { my $project=$_[0]; my $path=$_[1]; my $project_settings=[]; target_init($project_settings); @$project[$P_PATH]=$path; @$project[$P_SETTINGS]=$project_settings; @$project[$P_TARGETS]=[]; } ##### # # Global variables # ##### my %warnings; my %templates; ## # Contains the list of all projects. This list tells us what are # the subprojects of the main Makefile and where we have to generate # Makefiles. my @projects=(); ## # This is the main project, i.e. the one in the "." directory. # It may well be empty in which case the main Makefile will only # call out subprojects. my @main_project; ## # Contains the defaults for the include path, etc. # We store the defaults as if this were a target except that we only # exploit the defines, include path, library path, library list and misc # sources fields. my @global_settings; ## # If one of the projects requires the MFc then we set this global variable # to true so that configure asks the user to provide a path tothe MFC my $needs_mfc=0; ##### # # Utility functions # ##### ## # Cleans up a name to make it an acceptable Makefile # variable name. sub canonize($) { my $name=$_[0]; $name =~ tr/a-zA-Z0-9_/_/c; return $name; } ## # Returns true is the specified pathname is absolute. # Note: pathnames that start with a variable '$' or # '~' are considered absolute. sub is_absolute($) { my $path=$_[0]; return ($path =~ /^[\/~\$]/); } ## # Performs a binary search looking for the specified item sub bsearch($$) { my $array=$_[0]; my $item=$_[1]; my $last=@{$array}-1; my $first=0; while ($first<=$last) { my $index=int(($first+$last)/2); my $cmp=@$array[$index] cmp $item; if ($cmp<0) { $first=$index+1; } elsif ($cmp>0) { $last=$index-1; } else { return $index; } } } ##### # # 'Source'-based Project analysis # ##### ## # Allows the user to specify makefile and target specific options # - target: the structure in which to store the results # - options: the string containing the options sub source_set_options($$) { my $target=$_[0]; my $options=$_[1]; #FIXME: we must deal with escaping of stuff and all foreach my $option (split / /,$options) { if (@$target[$T_TYPE] == $TT_SETTINGS and $option =~ /^-D/) { push @{@$target[$T_DEFINES]},$option; } elsif (@$target[$T_TYPE] == $TT_SETTINGS and $option =~ /^-I/) { push @{@$target[$T_INCLUDE_PATH]},$option; } elsif ($option =~ /^-P/) { push @{@$target[$T_DLL_PATH]},"-L$'"; } elsif ($option =~ /^-i/) { my $dllname = $'; if ($dllname =~ /^[^.]*$/) { $dllname .= ".dll"; } if ($dllname =~ /^msvcrt\.dll$/) { push @{@$target[$T_INCLUDE_PATH]},"-I\$(WINE_INCLUDE_ROOT)/msvcrt"; } push @{@$target[$T_DLLS]},$dllname; } elsif ($option =~ /^-L/) { push @{@$target[$T_LIBRARY_PATH]},$option; } elsif ($option =~ /^-l/) { push @{@$target[$T_LIBRARIES]},"$'"; } elsif ($option =~ /^--wrap/) { if (@$target[$T_TYPE] != $TT_DLL) { @$target[$T_FLAGS]|=$TF_WRAP; } else { print STDERR "warning: option --wrap is illegal for DLLs - ignoring"; }; } elsif ($option =~ /^--nowrap/) { if (@$target[$T_TYPE] != $TT_DLL) { @$target[$T_FLAGS]&=~$TF_WRAP; } else { print STDERR "warning: option --nowrap is illegal for DLLs - ignoring"; } } elsif ($option =~ /^--mfc/) { @$target[$T_FLAGS]|=$TF_MFC; @$target[$T_FLAGS]&=~$TF_NOMFC; } elsif ($option =~ /^--nomfc/) { @$target[$T_FLAGS]&=~$TF_MFC; @$target[$T_FLAGS]|=$TF_NOMFC; } elsif ($option =~ /^--nodlls/) { @$target[$T_FLAGS]|=$TF_NODLLS; } else { print STDERR "error: unknown option \"$option\"\n"; return 0; } } if (@$target[$T_TYPE] != $TT_DLL && @$target[$T_FLAGS] & $TF_MFC && !(@$target[$T_FLAGS] & $TF_WRAP)) { print STDERR "info: option --mfc requires --wrap"; @$target[$T_FLAGS]|=$TF_WRAP; } return 1; } ## # Scans the specified directory to: # - see if we should create a Makefile in this directory. We normally do # so if we find a project file and sources # - get a list of targets for this directory # - get the list of source files sub source_scan_directory($$$$); sub source_scan_directory($$$$) { # a reference to the parent's project my $parent_project=$_[0]; # the full relative path to the current directory, including a # trailing '/', or an empty string if this is the top level directory my $path=$_[1]; # the name of this directory, including a trailing '/', or an empty # string if this is the top level directory my $dirname=$_[2]; # if set then no targets will be looked for and the sources will all # end up in the parent_project's 'misc' bucket my $no_target=$_[3]; # reference to the project for this directory. May not be used my $project; # list of targets found in the 'current' directory my %targets; # list of sources found in the current directory my @sources_c=(); my @sources_cxx=(); my @sources_rc=(); my @sources_misc=(); # true if this directory contains a Windows project my $has_win_project=0; # If we don't find any executable/library then we might make up targets # from the list of .dsp/.mak files we find since they usually have the # same name as their target. my @dsp_files=(); my @mak_files=(); if (defined $opt_single_target or $dirname eq "") { # Either there is a single target and thus a single project, # or we are in the top level directory for which a project # already exists $project=$parent_project; } else { $project=[]; project_init($project,$path); } my $project_settings=@$project[$P_SETTINGS]; # First find out what this directory contains: # collect all sources, targets and subdirectories my $directory=get_directory_contents($path); foreach my $dentry (@$directory) { if ($dentry =~ /^\./) { next; } my $fullentry="$path$dentry"; if (-d "$fullentry") { if ($dentry =~ /^(Release|Debug)/i) { # These directories are often used to store the object files and the # resulting executable/library. They should not contain anything else. my @candidates=grep /\.(exe|dll)$/i, @{get_directory_contents("$fullentry")}; foreach my $candidate (@candidates) { if ($candidate =~ s/\.exe$//i) { $targets{$candidate}=1; } elsif ($candidate =~ s/^(.*)\.dll$/lib$1.so/i) { $targets{$candidate}=1; } } } elsif ($dentry =~ /^include/i) { # This directory must contain headers we're going to need push @{@$project_settings[$T_INCLUDE_PATH]},"-I$dentry"; source_scan_directory($project,"$fullentry/","$dentry/",1); } else { # Recursively scan this directory. Any source file that cannot be # attributed to a project in one of the subdirectories will be # attributed to this project. source_scan_directory($project,"$fullentry/","$dentry/",$no_target); } } elsif (-f "$fullentry") { if ($dentry =~ s/\.exe$//i) { $targets{$dentry}=1; } elsif ($dentry =~ s/^(.*)\.dll$/lib$1.so/i) { $targets{$dentry}=1; } elsif ($dentry =~ /\.c$/i and $dentry !~ /\.spec\.c$/) { push @sources_c,"$dentry"; } elsif ($dentry =~ /\.(cpp|cxx)$/i) { if ($dentry =~ /^stdafx.cpp$/i && !(@$project_settings[$T_FLAGS] & $TF_NOMFC)) { push @sources_misc,"$dentry"; @$project_settings[$T_FLAGS]|=$TF_MFC; } else { push @sources_cxx,"$dentry"; } } elsif ($dentry =~ /\.rc$/i) { push @sources_rc,"$dentry"; } elsif ($dentry =~ /\.(h|hxx|hpp|inl|rc2|dlg)$/i) { push @sources_misc,"$dentry"; if ($dentry =~ /^stdafx.h$/i && !(@$project_settings[$T_FLAGS] & $TF_NOMFC)) { @$project_settings[$T_FLAGS]|=$TF_MFC; } } elsif ($dentry =~ /\.dsp$/i) { push @dsp_files,"$dentry"; $has_win_project=1; } elsif ($dentry =~ /\.mak$/i) { push @mak_files,"$dentry"; $has_win_project=1; } elsif ($dentry =~ /^makefile/i) { $has_win_project=1; } } } closedir(DIRECTORY); # If we have a single target then all we have to do is assign # all the sources to it and we're done # FIXME: does this play well with the --interactive mode? if ($opt_single_target) { my $target=@{@$project[$P_TARGETS]}[0]; push @{@$target[$T_SOURCES_C]},map "$path$_",@sources_c; push @{@$target[$T_SOURCES_CXX]},map "$path$_",@sources_cxx; push @{@$target[$T_SOURCES_RC]},map "$path$_",@sources_rc; push @{@$target[$T_SOURCES_MISC]},map "$path$_",@sources_misc; return; } if ($no_target) { my $parent_settings=@$parent_project[$P_SETTINGS]; push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_c; push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_cxx; push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_rc; push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_misc; push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@{@$project_settings[$T_SOURCES_MISC]}; return; } my $source_count=@sources_c+@sources_cxx+@sources_rc+ @{@$project_settings[$T_SOURCES_C]}+ @{@$project_settings[$T_SOURCES_CXX]}+ @{@$project_settings[$T_SOURCES_RC]}; if ($source_count == 0) { # A project without real sources is not a project, get out! if ($project!=$parent_project) { my $parent_settings=@$parent_project[$P_SETTINGS]; push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_misc; push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@{@$project_settings[$T_SOURCES_MISC]}; } return; } #print "targets=",%targets,"\n"; #print "target_count=$target_count\n"; #print "has_win_project=$has_win_project\n"; #print "dirname=$dirname\n"; my $target_count; if (($has_win_project != 0) or ($dirname eq "")) { # Deal with cases where we could not find any executable/library, and # thus have no target, although we did find some sort of windows project. $target_count=keys %targets; if ($target_count == 0) { # Try to come up with a target list based on .dsp/.mak files my $prj_list; if (@dsp_files > 0) { $prj_list=\@dsp_files; } else { $prj_list=\@mak_files; } foreach my $filename (@$prj_list) { $filename =~ s/\.(dsp|mak)$//i; if ($opt_target_type == $TT_DLL) { $filename = "lib$filename.so"; } $targets{$filename}=1; } $target_count=keys %targets; if ($target_count == 0) { # Still nothing, try the name of the directory my $name; if ($dirname eq "") { # Bad luck, this is the top level directory! $name=(split /\//, cwd)[-1]; } else { $name=$dirname; # Remove the trailing '/'. Also eliminate whatever is after the last # '.' as it is likely to be meaningless (.orig, .new, ...) $name =~ s+(/|\.[^.]*)$++; if ($name eq "src") { # 'src' is probably a subdirectory of the real project directory. # Try again with the parent (if any). my $parent=$path; if ($parent =~ s+([^/]*)/[^/]*/$+$1+) { $name=$parent; } else { $name=(split /\//, cwd)[-1]; } } } $name =~ s+(/|\.[^.]*)$++; if ($opt_target_type == $TT_DLL) { $name = "lib$name.so"; } $targets{$name}=1; } } # Ask confirmation to the user if he wishes so if ($opt_is_interactive == $OPT_ASK_YES) { my $target_list=join " ",keys %targets; print "\n*** In ",($path?$path:"./"),"\n"; print "* winemaker found the following list of (potential) targets\n"; print "* $target_list\n"; print "* Type enter to use it as is, your own comma-separated list of\n"; print "* targets, 'none' to assign the source files to a parent directory,\n"; print "* or 'ignore' to ignore everything in this directory tree.\n"; print "* Target list:\n"; $target_list=; chomp $target_list; if ($target_list eq "") { # Keep the target list as is, i.e. do nothing } elsif ($target_list eq "none") { # Empty the target list undef %targets; } elsif ($target_list eq "ignore") { # Ignore this subtree altogether return; } else { undef %targets; foreach my $target (split /,/,$target_list) { $target =~ s+^\s*++; $target =~ s+\s*$++; # Also accept .exe and .dll as a courtesy $target =~ s+(.*)\.dll$+lib$1.so+; $target =~ s+\.exe$++; $targets{$target}=1; } } } } # If we have no project at this level, then transfer all # the sources to the parent project $target_count=keys %targets; if ($target_count == 0) { if ($project!=$parent_project) { my $parent_settings=@$parent_project[$P_SETTINGS]; push @{@$parent_settings[$T_SOURCES_C]},map "$dirname$_",@sources_c; push @{@$parent_settings[$T_SOURCES_CXX]},map "$dirname$_",@sources_cxx; push @{@$parent_settings[$T_SOURCES_RC]},map "$dirname$_",@sources_rc; push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@sources_misc; push @{@$parent_settings[$T_SOURCES_MISC]},map "$dirname$_",@{@$project_settings[$T_SOURCES_MISC]}; } return; } # Otherwise add this project to the project list, except for # the main project which is already in the list. if ($dirname ne "") { push @projects,$project; } # Ask for project-wide options if ($opt_ask_project_options == $OPT_ASK_YES) { my $flag_desc=""; if ((@$project_settings[$T_FLAGS] & $TF_MFC)!=0) { $flag_desc="mfc"; } if ((@$project_settings[$T_FLAGS] & $TF_WRAP)!=0) { if ($flag_desc ne "") { $flag_desc.=", "; } $flag_desc.="wrapped"; } print "* Type any project-wide options (-D/-I/-P/-i/-L/-l/--mfc/--wrap),\n"; if (defined $flag_desc) { print "* (currently $flag_desc)\n"; } print "* or 'skip' to skip the target specific options,\n"; print "* or 'never' to not be asked this question again:\n"; while (1) { my $options=; chomp $options; if ($options eq "skip") { $opt_ask_target_options=$OPT_ASK_SKIP; last; } elsif ($options eq "never") { $opt_ask_project_options=$OPT_ASK_NO; last; } elsif (source_set_options($project_settings,$options)) { last; } print "Please re-enter the options:\n"; } } # - Create the targets # - Check if we have both libraries and programs # - Match each target with source files (sort in reverse # alphabetical order to get the longest matches first) my @local_dlls=(); my @local_depends=(); my @exe_list=(); foreach my $target_name (map (lc, (sort { $b cmp $a } keys %targets))) { # Create the target... my $basename; my $target=[]; target_init($target); @$target[$T_NAME]=$target_name; @$target[$T_FLAGS]|=@$project_settings[$T_FLAGS]; if ($target_name =~ /^lib(.*)\.so$/) { @$target[$T_TYPE]=$TT_DLL; @$target[$T_INIT]=get_default_init($TT_DLL); @$target[$T_FLAGS]&=~$TF_WRAP; $basename=$1; push @local_depends,$target_name; push @local_dlls,$basename; } else { @$target[$T_TYPE]=$opt_target_type; @$target[$T_INIT]=get_default_init($opt_target_type); $basename=$target_name; push @exe_list,$target; } # This is the default link list of Visual Studio, except odbccp32 # which we don't have in Wine. Also I add ntdll which seems # necessary for Winelib. my @std_dlls=qw(advapi32.dll comdlg32.dll gdi32.dll kernel32.dll ntdll.dll odbc32.dll ole32.dll oleaut32.dll shell32.dll user32.dll winspool.drv); if ((@$target[$T_FLAGS] & $TF_NODLLS) == 0) { @$target[$T_DLLS]=\@std_dlls; } else { @$target[$T_DLLS]=[]; } push @{@$project[$P_TARGETS]},$target; # Ask for target-specific options if ($opt_ask_target_options == $OPT_ASK_YES) { my $flag_desc=""; if ((@$target[$T_FLAGS] & $TF_MFC)!=0) { $flag_desc=" (mfc"; } if ((@$target[$T_FLAGS] & $TF_WRAP)!=0) { if ($flag_desc ne "") { $flag_desc.=", "; } else { $flag_desc=" ("; } $flag_desc.="wrapped"; } if ($flag_desc ne "") { $flag_desc.=")"; } print "* Specify any link option (-P/-i/-L/-l/--mfc/--wrap) specific to the target\n"; print "* \"$target_name\"$flag_desc or 'never' to not be asked this question again:\n"; while (1) { my $options=; chomp $options; if ($options eq "never") { $opt_ask_target_options=$OPT_ASK_NO; last; } elsif (source_set_options($target,$options)) { last; } print "Please re-enter the options:\n"; } } push @{@$target[$T_DLL_PATH]},"-L\$(WINE_DLL_ROOT)"; if (@$target[$T_FLAGS] & $TF_MFC) { @$project_settings[$T_FLAGS]|=$TF_MFC; push @{@$target[$T_DLL_PATH]},"\$(MFC_LIBRARY_PATH)"; push @{@$target[$T_DLLS]},"mfc.dll"; # FIXME: Link with the MFC in the Unix sense, until we # start exporting the functions properly. push @{@$target[$T_LIBRARY_PATH]},"\$(MFC_LIBRARY_PATH)"; push @{@$target[$T_LIBRARIES]},"mfc"; } # Match sources... if ($target_count == 1) { push @{@$target[$T_SOURCES_C]},@{@$project_settings[$T_SOURCES_C]},@sources_c; @$project_settings[$T_SOURCES_C]=[]; @sources_c=(); push @{@$target[$T_SOURCES_CXX]},@{@$project_settings[$T_SOURCES_CXX]},@sources_cxx; @$project_settings[$T_SOURCES_CXX]=[]; @sources_cxx=(); push @{@$target[$T_SOURCES_RC]},@{@$project_settings[$T_SOURCES_RC]},@sources_rc; @$project_settings[$T_SOURCES_RC]=[]; @sources_rc=(); push @{@$target[$T_SOURCES_MISC]},@{@$project_settings[$T_SOURCES_MISC]},@sources_misc; # No need for sorting these sources @$project_settings[$T_SOURCES_MISC]=[]; @sources_misc=(); } else { foreach my $source (@sources_c) { if ($source =~ /^$basename/i) { push @{@$target[$T_SOURCES_C]},$source; $source=""; } } foreach my $source (@sources_cxx) { if ($source =~ /^$basename/i) { push @{@$target[$T_SOURCES_CXX]},$source; $source=""; } } foreach my $source (@sources_rc) { if ($source =~ /^$basename/i) { push @{@$target[$T_SOURCES_RC]},$source; $source=""; } } foreach my $source (@sources_misc) { if ($source =~ /^$basename/i) { push @{@$target[$T_SOURCES_MISC]},$source; $source=""; } } } @$target[$T_SOURCES_C]=[sort @{@$target[$T_SOURCES_C]}]; @$target[$T_SOURCES_CXX]=[sort @{@$target[$T_SOURCES_CXX]}]; @$target[$T_SOURCES_RC]=[sort @{@$target[$T_SOURCES_RC]}]; @$target[$T_SOURCES_MISC]=[sort @{@$target[$T_SOURCES_MISC]}]; } if ($opt_ask_target_options == $OPT_ASK_SKIP) { $opt_ask_target_options=$OPT_ASK_YES; } if (@$project_settings[$T_FLAGS] & $TF_MFC) { push @{@$project_settings[$T_INCLUDE_PATH]},"\$(MFC_INCLUDE_PATH)"; } # The sources that did not match, if any, go to the extra # source list of the project settings foreach my $source (@sources_c) { if ($source ne "") { push @{@$project_settings[$T_SOURCES_C]},$source; } } @$project_settings[$T_SOURCES_C]=[sort @{@$project_settings[$T_SOURCES_C]}]; foreach my $source (@sources_cxx) { if ($source ne "") { push @{@$project_settings[$T_SOURCES_CXX]},$source; } } @$project_settings[$T_SOURCES_CXX]=[sort @{@$project_settings[$T_SOURCES_CXX]}]; foreach my $source (@sources_rc) { if ($source ne "") { push @{@$project_settings[$T_SOURCES_RC]},$source; } } @$project_settings[$T_SOURCES_RC]=[sort @{@$project_settings[$T_SOURCES_RC]}]; foreach my $source (@sources_misc) { if ($source ne "") { push @{@$project_settings[$T_SOURCES_MISC]},$source; } } @$project_settings[$T_SOURCES_MISC]=[sort @{@$project_settings[$T_SOURCES_MISC]}]; # Finally if we are building both libraries and programs in # this directory, then the programs should be linked with all # the libraries if (@local_dlls > 0 and @exe_list > 0) { foreach my $target (@exe_list) { push @{@$target[$T_DLL_PATH]},"-L."; push @{@$target[$T_DLLS]},map { "$_.dll" } @local_dlls; # Also link in the Unix sense since none of the functions # will be exported. push @{@$target[$T_LIBRARY_PATH]},"-L."; push @{@$target[$T_LIBRARIES]},@local_dlls; push @{@$target[$T_DEPENDS]},@local_depends; } } } ## # Scan the source directories in search of things to build sub source_scan() { # If there's a single target then this is going to be the default target if (defined $opt_single_target) { # Create the main target my $main_target=[]; target_init($main_target); if ($opt_target_type == $TT_DLL) { @$main_target[$T_NAME]="lib$opt_single_target.so"; } else { @$main_target[$T_NAME]="$opt_single_target"; } @$main_target[$T_TYPE]=$opt_target_type; # Add it to the list push @{$main_project[$P_TARGETS]},$main_target; } # The main directory is always going to be there push @projects,\@main_project; # Now scan the directory tree looking for source files and, maybe, targets print "Scanning the source directories...\n"; source_scan_directory(\@main_project,"","",0); @projects=sort { @$a[$P_PATH] cmp @$b[$P_PATH] } @projects; } ##### # # 'vc.dsp'-based Project analysis # ##### #sub analyze_vc_dsp #{ # #} ##### # # Creating the wrapper targets # ##### sub postprocess_targets() { foreach my $project (@projects) { foreach my $target (@{@$project[$P_TARGETS]}) { if ((@$target[$T_FLAGS] & $TF_WRAP) != 0) { my $wrapper=[]; target_init($wrapper); @$wrapper[$T_NAME]=@$target[$T_NAME]; @$wrapper[$T_TYPE]=@$target[$T_TYPE]; @$wrapper[$T_INIT]=get_default_init(@$target[$T_TYPE]); @$wrapper[$T_FLAGS]=$TF_WRAPPER | (@$target[$T_FLAGS] & $TF_MFC); @$wrapper[$T_DLLS]=[ "kernel32.dll", "ntdll.dll", "user32.dll" ]; push @{@$wrapper[$T_LIBRARIES]}, "dl"; push @{@$wrapper[$T_SOURCES_C]},"@$wrapper[$T_NAME]_wrapper.c"; my $index=bsearch(@$target[$T_SOURCES_C],"@$wrapper[$T_NAME]_wrapper.c"); if (defined $index) { splice(@{@$target[$T_SOURCES_C]},$index,1); } @$target[$T_NAME]="lib@$target[$T_NAME].so"; @$target[$T_TYPE]=$TT_DLL; push @{@$project[$P_TARGETS]},$wrapper; } if ((@$target[$T_FLAGS] & $TF_MFC) != 0) { @{@$project[$P_SETTINGS]}[$T_FLAGS]|=$TF_MFC; $needs_mfc=1; } } } } ##### # # Source search # ##### ## # Performs a directory traversal and renames the files so that: # - they have the case desired by the user # - their extension is of the appropriate case # - they don't contain annoying characters like ' ', '$', '#', ... sub fix_file_and_directory_names($); sub fix_file_and_directory_names($) { my $dirname=$_[0]; if (opendir(DIRECTORY, "$dirname")) { foreach my $dentry (readdir DIRECTORY) { if ($dentry =~ /^\./ or $dentry eq "CVS") { next; } # Set $warn to 1 if the user should be warned of the renaming my $warn=0; # autoconf and make don't support these characters well my $new_name=$dentry; $new_name =~ s/[ \$]/_/g; # Only all lowercase extensions are supported (because of the # transformations ':.c=.o') . if (-f "$dirname/$new_name") { if ($new_name =~ /\.C$/) { $new_name =~ s/\.C$/.c/; } if ($new_name =~ /\.cpp$/i) { $new_name =~ s/\.cpp$/.cpp/i; } if ($new_name =~ s/\.cxx$/.cpp/i) { $warn=1; } if ($new_name =~ /\.rc$/i) { $new_name =~ s/\.rc$/.rc/i; } # And this last one is to avoid confusion then running make if ($new_name =~ s/^makefile$/makefile.win/) { $warn=1; } } # Adjust the case to the user's preferences if (($opt_lower == $OPT_LOWER_ALL and $dentry =~ /[A-Z]/) or ($opt_lower == $OPT_LOWER_UPPERCASE and $dentry !~ /[a-z]/) ) { $new_name=lc $new_name; } # And finally, perform the renaming if ($new_name ne $dentry) { if ($warn) { print STDERR "warning: in \"$dirname\", renaming \"$dentry\" to \"$new_name\"\n"; } if (!rename("$dirname/$dentry","$dirname/$new_name")) { print STDERR "error: in \"$dirname\", unable to rename \"$dentry\" to \"$new_name\"\n"; print STDERR " $!\n"; $new_name=$dentry; } } if (-d "$dirname/$new_name") { fix_file_and_directory_names("$dirname/$new_name"); } } closedir(DIRECTORY); } } ##### # # Source fixup # ##### ## # This maps a directory name to a reference to an array listing # its contents (files and directories) my %directories; ## # Retrieves the contents of the specified directory. # We either get it from the directories hashtable which acts as a # cache, or use opendir, readdir, closedir and store the result # in the hashtable. sub get_directory_contents($) { my $dirname=$_[0]; my $directory; #print "getting the contents of $dirname\n"; # check for a cached version $dirname =~ s+/$++; if ($dirname eq "") { $dirname=cwd; } $directory=$directories{$dirname}; if (defined $directory) { #print "->@$directory\n"; return $directory; } # Read this directory if (opendir(DIRECTORY, "$dirname")) { my @files=readdir DIRECTORY; closedir(DIRECTORY); $directory=\@files; } else { # Return an empty list #print "error: cannot open $dirname\n"; my @files; $directory=\@files; } #print "->@$directory\n"; $directories{$dirname}=$directory; return $directory; } ## # Try to find a file for the specified filename. The attempt is # case-insensitive which is why it's not trivial. If a match is # found then we return the pathname with the correct case. sub search_from($$) { my $dirname=$_[0]; my $path=$_[1]; my $real_path=""; if ($dirname eq "" or $dirname eq ".") { $dirname=cwd; } elsif ($dirname =~ m+^[^/]+) { $dirname=cwd . "/" . $dirname; } if ($dirname !~ m+/$+) { $dirname.="/"; } foreach my $component (@$path) { #print " looking for $component in \"$dirname\"\n"; if ($component eq ".") { # Pass it as is $real_path.="./"; } elsif ($component eq "..") { # Go up one level $dirname=dirname($dirname) . "/"; $real_path.="../"; } else { # The file/directory may have been renamed before. Also try to # match the renamed file. my $renamed=$component; $renamed =~ s/[ \$]/_/g; if ($renamed eq $component) { undef $renamed; } my $directory=get_directory_contents $dirname; my $found; foreach my $dentry (@$directory) { if ($dentry =~ /^$component$/i or (defined $renamed and $dentry =~ /^$renamed$/i) ) { $dirname.="$dentry/"; $real_path.="$dentry/"; $found=1; last; } } if (!defined $found) { # Give up #print " could not find $component in $dirname\n"; return; } } } $real_path=~ s+/$++; #print " -> found $real_path\n"; return $real_path; } ## # Performs a case-insensitive search for the specified file in the # include path. # $line is the line number that should be referenced when an error occurs # $filename is the file we are looking for # $dirname is the directory of the file containing the '#include' directive # if '"' was used, it is an empty string otherwise # $project and $target specify part of the include path sub get_real_include_name($$$$$) { my $line=$_[0]; my $filename=$_[1]; my $dirname=$_[2]; my $project=$_[3]; my $target=$_[4]; if ($filename =~ /^([a-zA-Z]:)?[\/]/ or $filename =~ /^[a-zA-Z]:[\/]?/) { # This is not a relative path, we cannot make any check my $warning="path:$filename"; if (!defined $warnings{$warning}) { $warnings{$warning}="1"; print STDERR "warning: cannot check the case of absolute pathnames:\n"; print STDERR "$line: $filename\n"; } } else { # Here's how we proceed: # - split the filename we look for into its components # - then for each directory in the include path # - trace the directory components starting from that directory # - if we fail to find a match at any point then continue with # the next directory in the include path # - otherwise, rejoice, our quest is over. my @file_components=split /[\/\\]+/, $filename; #print " Searching for $filename from @$project[$P_PATH]\n"; my $real_filename; if ($dirname ne "") { # This is an 'include ""' -> look in dirname first. #print " in $dirname (include \"\")\n"; $real_filename=search_from($dirname,\@file_components); if (defined $real_filename) { return $real_filename; } } my $project_settings=@$project[$P_SETTINGS]; foreach my $include (@{@$target[$T_INCLUDE_PATH]}, @{@$project_settings[$T_INCLUDE_PATH]}) { my $dirname=$include; $dirname=~ s+^-I++; if (!is_absolute($dirname)) { $dirname="@$project[$P_PATH]$dirname"; } else { $dirname=~ s+^\$\(TOPSRCDIR\)/++; $dirname=~ s+^\$\(SRCDIR\)/+@$project[$P_PATH]+; } #print " in $dirname\n"; $real_filename=search_from("$dirname",\@file_components); if (defined $real_filename) { return $real_filename; } } my $dotdotpath=@$project[$P_PATH]; $dotdotpath =~ s/[^\/]+/../g; foreach my $include (@{$global_settings[$T_INCLUDE_PATH]}) { my $dirname=$include; $dirname=~ s+^-I++; $dirname=~ s+^\$\(TOPSRCDIR\)\/++; $dirname=~ s+^\$\(SRCDIR\)\/+@$project[$P_PATH]+; #print " in $dirname (global setting)\n"; $real_filename=search_from("$dirname",\@file_components); if (defined $real_filename) { return $real_filename; } } } $filename =~ s+\\\\+/+g; # in include "" $filename =~ s+\\+/+g; # in include <> ! if ($opt_lower_include) { return lc "$filename"; } return $filename; } sub print_pack($$$) { my $indent=$_[0]; my $size=$_[1]; my $trailer=$_[2]; if ($size =~ /^(1|2|4|8)$/) { print FILEO "$indent#include $trailer"; } else { print FILEO "$indent/* winemaker:warning: Unknown size \"$size\". Defaulting to 4 */\n"; print FILEO "$indent#include $trailer"; } } ## # 'Parses' a source file and fixes constructs that would not work with # Winelib. The parsing is rather simple and not all non-portable features # are corrected. The most important feature that is corrected is the case # and path separator of '#include' directives. This requires that each # source file be associated to a project & target so that the proper # include path is used. # Also note that the include path is relative to the directory in which the # compiler is run, i.e. that of the project, not to that of the file. sub fix_file($$$) { my $filename=$_[0]; my $project=$_[1]; my $target=$_[2]; $filename="@$project[$P_PATH]$filename"; if (! -e $filename) { return; } my $is_rc=($filename =~ /\.(rc2?|dlg)$/i); my $dirname=dirname($filename); my $is_mfc=0; if (defined $target and (@$target[$T_FLAGS] & $TF_MFC)) { $is_mfc=1; } print " $filename\n"; #FIXME:assuming that because there is a .bak file, this is what we want is #probably flawed. Or is it??? if (! -e "$filename.bak") { if (!copy("$filename","$filename.bak")) { print STDERR "error: unable to make a backup of $filename:\n"; print STDERR " $!\n"; return; } } if (!open(FILEI,"$filename.bak")) { print STDERR "error: unable to open $filename.bak for reading:\n"; print STDERR " $!\n"; return; } if (!open(FILEO,">$filename")) { print STDERR "error: unable to open $filename for writing:\n"; print STDERR " $!\n"; return; } my $line=0; my $modified=0; my $rc_block_depth=0; my $rc_textinclude_state=0; my @pack_stack; while () { # Remove any trailing CtrlZ, which isn't strictly in the file if (/\x1A/) { s/\x1A//; last if (/^$/) } $line++; s/\r\n$/\n/; if (!/\n$/) { # Make sure all files are '\n' terminated $_ .= "\n"; } if ($is_rc and !$is_mfc and /^(\s*)(\#\s*include\s*)\"afxres\.h\"/) { # VC6 automatically includes 'afxres.h', an MFC specific header, in # the RC files it generates (even in non-MFC projects). So we replace # it with 'winres.h' its very close standard cousin so that non MFC # projects can compile in Wine without the MFC sources. my $warning="mfc:afxres.h"; if (!defined $warnings{$warning}) { $warnings{$warning}="1"; print STDERR "warning: In non-MFC projects, winemaker replaces the MFC specific header 'afxres.h' with 'winres.h'\n"; print STDERR "warning: the above warning is issued only once\n"; } print FILEO "$1/* winemaker: $2\"afxres.h\" */\n"; print FILEO "$1/* winemaker:warning: 'afxres.h' is an MFC specific header. Replacing it with 'winres.h' */\n"; print FILEO "$1$2\"winres.h\"$'"; $modified=1; } elsif (/^(\s*\#\s*include\s*)([\"<])([^\"]+)([\">])/) { my $from_file=($2 eq "<"?"":$dirname); my $real_include_name=get_real_include_name($line,$3,$from_file,$project,$target); print FILEO "$1$2$real_include_name$4$'"; $modified|=($real_include_name ne $3); } elsif (s/^(\s*)(\#\s*pragma\s+pack\s*\(\s*)//) { # Pragma pack handling # # pack_stack is an array of references describing the stack of # pack directives currently in effect. Each directive if described # by a reference to an array containing: # - "push" for pack(push,...) directives, "" otherwise # - the directive's identifier at index 1 # - the directive's alignement value at index 2 # # Don't believe a word of what the documentation says: it's all wrong. # The code below is based on the actual behavior of Visual C/C++ 6. my $pack_indent=$1; my $pack_header=$2; if (/^(\))/) { # pragma pack() # Pushes the default stack alignment print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n"; print FILEO "$pack_indent/* winemaker:warning: Using 4 as the default alignment */\n"; print_pack($pack_indent,4,$'); push @pack_stack, [ "", "", 4 ]; } elsif (/^(pop\s*(,\s*\d+\s*)?\))/) { # pragma pack(pop) # pragma pack(pop,n) # Goes up the stack until it finds a pack(push,...), and pops it # Ignores any pack(n) entry # Issues a warning if the pack is of the form pack(push,label) print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n"; my $pack_comment=$'; $pack_comment =~ s/^\s*//; if ($pack_comment ne "") { print FILEO "$pack_indent$pack_comment"; } while (1) { my $alignment=pop @pack_stack; if (!defined $alignment) { print FILEO "$pack_indent/* winemaker:warning: No pack(push,...) found. All the stack has been popped */\n"; last; } if (@$alignment[1]) { print FILEO "$pack_indent/* winemaker:warning: Anonymous pop of pack(push,@$alignment[1]) (@$alignment[2]) */\n"; } print FILEO "$pack_indent#include \n"; if (@$alignment[0]) { last; } } } elsif (/^(pop\s*,\s*(\w+)\s*(,\s*\d+\s*)?\))/) { # pragma pack(pop,label[,n]) # Goes up the stack until finding a pack(push,...) and pops it. # 'n', if specified, is ignored. # Ignores any pack(n) entry # Issues a warning if the label of the pack does not match, # or if it is in fact a pack(push,n) my $label=$2; print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n"; my $pack_comment=$'; $pack_comment =~ s/^\s*//; if ($pack_comment ne "") { print FILEO "$pack_indent$pack_comment"; } while (1) { my $alignment=pop @pack_stack; if (!defined $alignment) { print FILEO "$pack_indent/* winemaker:warning: No pack(push,$label) found. All the stack has been popped */\n"; last; } if (@$alignment[1] and @$alignment[1] ne $label) { print FILEO "$pack_indent/* winemaker:warning: Push/pop mismatch: \"@$alignment[1]\" (@$alignment[2]) != \"$label\" */\n"; } print FILEO "$pack_indent#include \n"; if (@$alignment[0]) { last; } } } elsif (/^(push\s*\))/) { # pragma pack(push) # Push the current alignment print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n"; if (@pack_stack > 0) { my $alignment=$pack_stack[$#pack_stack]; print_pack($pack_indent,@$alignment[2],$'); push @pack_stack, [ "push", "", @$alignment[2] ]; } else { print FILEO "$pack_indent/* winemaker:warning: Using 4 as the default alignment */\n"; print_pack($pack_indent,4,$'); push @pack_stack, [ "push", "", 4 ]; } } elsif (/^((push\s*,\s*)?(\d+)\s*\))/) { # pragma pack([push,]n) # Push new alignment n print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n"; print_pack($pack_indent,$3,"$'"); push @pack_stack, [ ($2 ? "push" : ""), "", $3 ]; } elsif (/^((\w+)\s*\))/) { # pragma pack(label) # label must in fact be a macro that resolves to an integer # Then behaves like 'pragma pack(n)' print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n"; print FILEO "$pack_indent/* winemaker:warning: Assuming $2 == 4 */\n"; print_pack($pack_indent,4,$'); push @pack_stack, [ "", "", 4 ]; } elsif (/^(push\s*,\s*(\w+)\s*(,\s*(\d+)\s*)?\))/) { # pragma pack(push,label[,n]) # Pushes a new label on the stack. It is possible to push the same # label multiple times. If 'n' is omitted then the alignment is # unchanged. Otherwise it becomes 'n'. print FILEO "$pack_indent/* winemaker: $pack_header$1 */\n"; my $size; if (defined $4) { $size=$4; } elsif (@pack_stack > 0) { my $alignment=$pack_stack[$#pack_stack]; $size=@$alignment[2]; } else { print FILEO "$pack_indent/* winemaker:warning: Using 4 as the default alignment */\n"; $size=4; } print_pack($pack_indent,$size,$'); push @pack_stack, [ "push", $2, $size ]; } else { # pragma pack(??? -> What's that? print FILEO "$pack_indent/* winemaker:warning: Unknown type of pragma pack directive */\n"; print FILEO "$pack_indent$pack_header$_"; } $modified=1; } elsif ($is_rc) { 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]+)([\">]?)/) { my $from_file=($5 eq "<"?"":$dirname); my $real_include_name=get_real_include_name($line,$6,$from_file,$project,$target); print FILEO "$1$5$real_include_name$7$'"; $modified|=($real_include_name ne $6); } elsif (/^(\s*RCINCLUDE\s*)([\"<]?)([^\">\r\n]+)([\">]?)/) { my $from_file=($2 eq "<"?"":$dirname); my $real_include_name=get_real_include_name($line,$3,$from_file,$project,$target); print FILEO "$1$2$real_include_name$4$'"; $modified|=($real_include_name ne $3); } elsif ($is_rc and !$is_mfc and $rc_block_depth == 0 and /^\s*\d+\s+TEXTINCLUDE\s*/) { $rc_textinclude_state=1; print FILEO; } elsif ($rc_textinclude_state == 3 and /^(\s*\"\#\s*include\s*\"\")afxres\.h(\"\"\\r\\n\")/) { print FILEO "$1winres.h$2$'"; $modified=1; } elsif (/^\s*BEGIN(\W.*)?$/) { $rc_textinclude_state|=2; $rc_block_depth++; print FILEO; } elsif (/^\s*END(\W.*)?$/) { $rc_textinclude_state=0; if ($rc_block_depth>0) { $rc_block_depth--; } print FILEO; } else { print FILEO; } } else { print FILEO; } } close(FILEI); close(FILEO); if ($opt_backup == 0 or $modified == 0) { if (!unlink("$filename.bak")) { print STDERR "error: unable to delete $filename.bak:\n"; print STDERR " $!\n"; } } } ## # Analyzes each source file in turn to find and correct issues # that would cause it not to compile. sub fix_source() { print "Fixing the source files...\n"; foreach my $project (@projects) { foreach my $target (@$project[$P_SETTINGS],@{@$project[$P_TARGETS]}) { if (@$target[$T_FLAGS] & $TF_WRAPPER) { next; } foreach my $source (@{@$target[$T_SOURCES_C]}, @{@$target[$T_SOURCES_CXX]}, @{@$target[$T_SOURCES_RC]}, @{@$target[$T_SOURCES_MISC]}) { fix_file($source,$project,$target); } } } } ##### # # File generation # ##### ## # Generates a target's .spec file sub generate_spec_file($$$) { if ($opt_no_generated_specs) { return; } my $path=$_[0]; my $target=$_[1]; my $project_settings=$_[2]; my $basename=@$target[$T_NAME]; $basename =~ s+\.so$++; if (@$target[$T_FLAGS] & $TF_WRAP) { $basename =~ s+^lib++; } elsif (@$target[$T_FLAGS] & $TF_WRAPPER) { $basename.="_wrapper"; } if (@$target[$T_TYPE] != $TT_DLL) { $basename .= '.exe'; } if (!open(FILEO,">$path$basename.spec")) { print STDERR "error: could not open \"$path$basename.spec\" for writing\n"; print STDERR " $!\n"; return; } if (defined @$target[$T_INIT] and ((@$target[$T_FLAGS] & $TF_WRAP) == 0)) { print FILEO "init @$target[$T_INIT]\n"; } print FILEO "\n"; # Don't forget to export the 'Main' function for wrapped executables, # except for MFC ones! if ((@$target[$T_FLAGS]&($TF_WRAP|$TF_WRAPPER|$TF_MFC)) == $TF_WRAP) { if (@$target[$T_TYPE] == $TT_GUIEXE) { print FILEO "\n@ stdcall @$target[$T_INIT](long long ptr long) @$target[$T_INIT]\n"; } elsif (@$target[$T_TYPE] == $TT_CUIEXE) { print FILEO "\n@ stdcall @$target[$T_INIT](long ptr ptr) @$target[$T_INIT]\n"; } else { print FILEO "\n@ stdcall @$target[$T_INIT](ptr long ptr) @$target[$T_INIT]\n"; } } close(FILEO); } ## # Generates a target's wrapper file sub generate_wrapper_file($$) { my $path=$_[0]; my $target=$_[1]; my $app_name=@$target[$T_NAME]; return generate_from_template("$path${app_name}_wrapper.c","wrapper.c",[ ["APP_NAME",@$target[$T_NAME]], ["APP_TYPE",(@$target[$T_TYPE]==$TT_GUIEXE?"GUIEXE":"CUIEXE")], ["APP_INIT",(@$target[$T_TYPE]==$TT_GUIEXE?"\"WinMain\"":"\"main\"")], ["APP_MFC",(@$target[$T_FLAGS] & $TF_MFC?"\"mfc\"":"NULL")]]); } ## # A convenience function to generate all the lists (defines, # C sources, C++ source, etc.) in the Makefile sub generate_list($$$;$) { my $name=$_[0]; my $last=$_[1]; my $list=$_[2]; my $data=$_[3]; my $first=$name; if ($name) { printf FILEO "%-22s=",$name; } if (defined $list) { foreach my $item (@$list) { my $value; if (defined $data) { $value=&$data($item); } else { $value=$item; } if ($value ne "") { if ($first) { print FILEO " $value"; $first=0; } else { print FILEO " \\\n\t\t\t$value"; } } } } if ($last) { print FILEO "\n"; } } ## # Generates a project's Makefile.in and all the target files sub generate_project_files($) { my $project=$_[0]; my $project_settings=@$project[$P_SETTINGS]; my @dll_list=(); my @exe_list=(); # Then sort the targets and separate the libraries from the programs foreach my $target (sort { @$a[$T_NAME] cmp @$b[$T_NAME] } @{@$project[$P_TARGETS]}) { if (@$target[$T_TYPE] == $TT_DLL) { push @dll_list,$target; } else { push @exe_list,$target; } } @$project[$P_TARGETS]=[]; push @{@$project[$P_TARGETS]}, @dll_list; push @{@$project[$P_TARGETS]}, @exe_list; if (!open(FILEO,">@$project[$P_PATH]Makefile.in")) { print STDERR "error: could not open \"@$project[$P_PATH]/Makefile.in\" for writing\n"; print STDERR " $!\n"; return; } print FILEO "### Generated by Winemaker\n"; print FILEO "\n\n"; print FILEO "### Generic autoconf variables\n\n"; generate_list("TOPSRCDIR",1,[ "\@top_srcdir\@" ]); my $dotdotpath=@$project[$P_PATH]; $dotdotpath =~ s%[^/]+%..%g; $dotdotpath =~ s%/$%%; $dotdotpath = "." if ($dotdotpath eq ""); generate_list("TOPOBJDIR",1,[ $dotdotpath ]); generate_list("SRCDIR",1,[ "\@srcdir\@" ]); generate_list("VPATH",1,[ "\@srcdir\@" ]); print FILEO "\n"; if (@$project[$P_PATH] eq "") { # This is the main project. It is also responsible for recursively # calling the other projects generate_list("SUBDIRS",1,\@projects,sub { if ($_[0] != \@main_project) { my $subdir=@{$_[0]}[$P_PATH]; $subdir =~ s+/$++; return $subdir; } # Eliminating the main project by returning undefined! }); } if (@{@$project[$P_TARGETS]} > 0) { generate_list("DLLS",1,\@dll_list,sub { return @{$_[0]}[$T_NAME]; }); generate_list("EXES",1,\@exe_list,sub { return "@{$_[0]}[$T_NAME].exe"; }); print FILEO "\n\n\n"; print FILEO "### Common settings\n\n"; # Make it so that the project-wide settings override the global settings generate_list("DEFINES",1,@$project_settings[$T_DEFINES]); generate_list("INCLUDE_PATH",1,@$project_settings[$T_INCLUDE_PATH]); generate_list("DLL_PATH",1,@$project_settings[$T_DLL_PATH]); generate_list("LIBRARY_PATH",1,@$project_settings[$T_LIBRARY_PATH]); generate_list("LIBRARIES",1,@$project_settings[$T_LIBRARIES]); print FILEO "\n\n"; my $extra_source_count=@{@$project_settings[$T_SOURCES_C]}+ @{@$project_settings[$T_SOURCES_CXX]}+ @{@$project_settings[$T_SOURCES_RC]}; my $no_extra=($extra_source_count == 0); if (!$no_extra) { print FILEO "### Extra source lists\n\n"; generate_list("EXTRA_C_SRCS",1,@$project_settings[$T_SOURCES_C]); generate_list("EXTRA_CXX_SRCS",1,@$project_settings[$T_SOURCES_CXX]); generate_list("EXTRA_RC_SRCS",1,@$project_settings[$T_SOURCES_RC]); print FILEO "\n"; generate_list("EXTRA_OBJS",1,["\$(EXTRA_C_SRCS:.c=.o)","\$(EXTRA_CXX_SRCS:.cpp=.o)"]); print FILEO "\n\n\n"; } # Iterate over all the targets... foreach my $target (@{@$project[$P_TARGETS]}) { print FILEO "### @$target[$T_NAME] sources and settings\n\n"; my $canon=canonize("@$target[$T_NAME]"); $canon =~ s+_so$++; generate_list("${canon}_C_SRCS",1,@$target[$T_SOURCES_C]); generate_list("${canon}_CXX_SRCS",1,@$target[$T_SOURCES_CXX]); generate_list("${canon}_RC_SRCS",1,@$target[$T_SOURCES_RC]); my $basename=@$target[$T_NAME]; $basename =~ s+\.so$++; if (@$target[$T_FLAGS] & $TF_WRAP) { $basename =~ s+^lib++; } elsif (@$target[$T_FLAGS] & $TF_WRAPPER) { $basename.="_wrapper"; } if (@$target[$T_TYPE] != $TT_DLL) { generate_list("${canon}_SPEC_SRCS",1,[ "$basename.exe.spec" ]); } else { generate_list("${canon}_SPEC_SRCS",1,[ "$basename.spec" ]); } generate_list("${canon}_DLL_PATH",1,@$target[$T_DLL_PATH]); generate_list("${canon}_DLLS",1,@$target[$T_DLLS]); generate_list("${canon}_LIBRARY_PATH",1,@$target[$T_LIBRARY_PATH]); generate_list("${canon}_LIBRARIES",1,@$target[$T_LIBRARIES]); generate_list("${canon}_DEPENDS",1,@$target[$T_DEPENDS]); print FILEO "\n"; generate_list("${canon}_OBJS",1,["\$(${canon}_C_SRCS:.c=.o)","\$(${canon}_CXX_SRCS:.cpp=.o)","\$(EXTRA_OBJS)"]); print FILEO "\n\n\n"; } print FILEO "### Global source lists\n\n"; generate_list("C_SRCS",$no_extra,@$project[$P_TARGETS],sub { my $canon=canonize(@{$_[0]}[$T_NAME]); $canon =~ s+_so$++; return "\$(${canon}_C_SRCS)"; }); if (!$no_extra) { generate_list("",1,[ "\$(EXTRA_C_SRCS)" ]); } generate_list("CXX_SRCS",$no_extra,@$project[$P_TARGETS],sub { my $canon=canonize(@{$_[0]}[$T_NAME]); $canon =~ s+_so$++; return "\$(${canon}_CXX_SRCS)"; }); if (!$no_extra) { generate_list("",1,[ "\$(EXTRA_CXX_SRCS)" ]); } generate_list("RC_SRCS",$no_extra,@$project[$P_TARGETS],sub { my $canon=canonize(@{$_[0]}[$T_NAME]); $canon =~ s+_so$++; return "\$(${canon}_RC_SRCS)"; }); if (!$no_extra) { generate_list("",1,[ "\$(EXTRA_RC_SRCS)" ]); } generate_list("SPEC_SRCS",1,@$project[$P_TARGETS],sub { my $canon=canonize(@{$_[0]}[$T_NAME]); $canon =~ s+_so$++; return "\$(${canon}_SPEC_SRCS)"; }); } print FILEO "\n\n\n"; print FILEO "### Generic autoconf targets\n\n"; print FILEO "all:"; if (@$project[$P_PATH] eq "") { print FILEO " wineapploader"; print FILEO " \$(SUBDIRS)"; } if (@{@$project[$P_TARGETS]} > 0) { print FILEO " \$(DLLS) \$(EXES:%=%.so)"; } print FILEO "\n\n"; if (@$project[$P_PATH] eq "") { print FILEO "wineapploader: wineapploader.in\n"; print FILEO "\tsed -e 's,\@bindir\\\@,\$(bindir),g' " . "-e 's,\@winelibdir\\\@,.,g' " . "\$(SRCDIR)/wineapploader.in >\$\@ || \$(RM) \$\@\n"; print FILEO "\n"; } print FILEO "\@MAKE_RULES\@\n"; print FILEO "\n"; print FILEO "install::\n"; if (@$project[$P_PATH] eq "") { # This is the main project. It is also responsible for recursively # calling the other projects print FILEO "\t_list=\"\$(SUBDIRS)\"; for i in \$\$_list; do (cd \$\$i; \$(MAKE) install) || exit 1; done\n"; } if (@{@$project[$P_TARGETS]} > 0) { print FILEO "\t_list=\"\$(EXES:%=%.so)\"; for i in \$\$_list; do \$(INSTALL_PROGRAM) \$\$i \$(dlldir); done\n"; print FILEO "\t_list=\"\$(DLLS)\"; for i in \$\$_list; do \$(INSTALL_PROGRAM) \$\$i \$(libdir); done\n"; } print FILEO "\n"; print FILEO "uninstall::\n"; if (@$project[$P_PATH] eq "") { # This is the main project. It is also responsible for recursively # calling the other projects print FILEO "\t_list=\"\$(SUBDIRS)\"; for i in \$\$_list; do (cd \$\$i; \$(MAKE) uninstall) || exit 1; done\n"; } if (@{@$project[$P_TARGETS]} > 0) { print FILEO "\t_list=\"\$(EXES:%=%.so)\"; for i in \$\$_list; do \$(RM) \$(dlldir)/\$\$i;done\n"; print FILEO "\t_list=\"\$(DLLS)\"; for i in \$\$_list; do \$(RM) \$(libdir)/\$\$i;done\n"; } print FILEO "\n"; print FILEO "clean::\n"; print FILEO "\t\$(RM)"; if (@$project[$P_PATH] eq "") { print FILEO " wineapploader"; } if (@{@$project[$P_TARGETS]} > 0) { print FILEO " \$(EXES)"; } print FILEO "\n\n"; if (@{@$project[$P_TARGETS]} > 0) { print FILEO "### Target specific build rules\n\n"; foreach my $target (@{@$project[$P_TARGETS]}) { my $canon=canonize("@$target[$T_NAME]"); my $mode; my $all_dlls; my $all_libs; $canon =~ s/_so$//; if (@$target[$T_TYPE] == $TT_GUIEXE) { $mode = '-m gui'; } elsif (@$target[$T_TYPE] == $TT_CUIEXE) { $mode = '-m cui'; } else { $mode = ''; } if (@$target[$T_FLAGS] & $TF_WRAPPER) { $all_dlls="\$(${canon}_DLLS:%=-l%)"; $all_libs="\$(${canon}_LIBRARIES:%=-l%) \$(WINE_LIBRARIES)"; } else { $all_dlls="\$(${canon}_DLLS:%=-l%) \$(GLOBAL_DLLS:%=-l%)"; $all_libs="\$(${canon}_LIBRARIES:%=-l%) \$(ALL_LIBRARIES)"; } print FILEO "\$(${canon}_SPEC_SRCS:.spec=.spec.c): \$(${canon}_SPEC_SRCS) \$(${canon}_OBJS) \$(${canon}_RC_SRCS:.rc=.res)\n"; print FILEO "\t\$(LD_PATH) \$(WINEBUILD) -fPIC \$(${canon}_DLL_PATH) \$(ALL_DLL_PATH) $all_dlls \$(${canon}_RC_SRCS:%.rc=-res %.res) $mode \$(${canon}_OBJS) -o \$\@ -spec \$(SRCDIR)/\$(${canon}_SPEC_SRCS)\n"; print FILEO "\n"; my $t_name=@$target[$T_NAME]; if (@$target[$T_TYPE]!=$TT_DLL) { $t_name.=".exe.so"; } print FILEO "$t_name: \$(${canon}_SPEC_SRCS:.spec=.spec.o) \$(${canon}_OBJS) \$(${canon}_DEPENDS) \n"; if (@{@$target[$T_SOURCES_CXX]} > 0 or @{@$project_settings[$T_SOURCES_CXX]} > 0) { print FILEO "\t\$(LDXXSHARED)"; } else { print FILEO "\t\$(LDSHARED)"; } print FILEO " \$(LDDLLFLAGS) -o \$\@ \$(${canon}_OBJS) \$(${canon}_SPEC_SRCS:.spec=.spec.o) \$(${canon}_LIBRARY_PATH) \$(ALL_LIBRARY_PATH) $all_libs \$(LIBS)\n"; if (@$target[$T_TYPE] ne $TT_DLL) { print FILEO "\ttest -f @$target[$T_NAME] || \$(INSTALL_SCRIPT) wineapploader @$target[$T_NAME]\n"; } print FILEO "\n\n"; } } close(FILEO); foreach my $target (@{@$project[$P_TARGETS]}) { generate_spec_file(@$project[$P_PATH],$target,$project_settings); if (@$target[$T_FLAGS] & $TF_WRAPPER) { generate_wrapper_file(@$project[$P_PATH],$target); } } } ## # Perform the replacements in the template configure files # Return 1 for success, 0 for failure sub generate_from_template($$;$) { my $filename=$_[0]; my $template=$_[1]; my $substitutions=$_[2]; if (!defined $templates{$template}) { print STDERR "winemaker: internal error: No template called '$template'\n"; return 0; } if (!open(FILEO,">$filename")) { print STDERR "error: unable to open \"$filename\" for writing:\n"; print STDERR " $!\n"; return 0; } my $warned; foreach my $line (@{$templates{$template}}) { if ($line =~ /(\#\#WINEMAKER_[A-Z_]+\#\#)/) { if (defined $substitutions) { foreach my $pattern (@$substitutions) { $line =~ s%\#\#WINEMAKER_@$pattern[0]\#\#%@$pattern[1]%; } } if (!$warned and $line =~ /(\#\#WINEMAKER_[A-Z_]+\#\#)/) { print STDERR "warning: no value was provided for template $1 in \"$filename\"\n"; $warned=1; } } print FILEO $line; } close(FILEO); return 1; } ## # Generates the global files: # configure # configure.ac # Make.rules.in # wineapploader.in sub generate_global_files() { my @include_path; foreach my $path (@{$global_settings[$T_INCLUDE_PATH]}) { if ($path !~ /^-L/ or is_absolute($')) { push @include_path, $path; } else { push @include_path, "-L\$(TOPSRCDIR)/$'"; } } my @dll_path; foreach my $path (@{$global_settings[$T_DLL_PATH]}) { if ($path !~ /^-L/ or is_absolute($')) { push @dll_path, $path; } else { push @dll_path, "-L\$(TOPSRCDIR)/$'"; } } my @library_path; foreach my $path (@{$global_settings[$T_LIBRARY_PATH]}) { if ($path !~ /^-L/ or is_absolute($')) { push @library_path, $path; } else { push @library_path, "-L\$(TOPSRCDIR)/$'"; } } generate_from_template("Make.rules.in","Make.rules.in",[ ["DEFINES", join(" ", @{$global_settings[$T_DEFINES]}) ], ["INCLUDE_PATH", join(" ", @include_path) ], ["DLL_PATH", join(" ", @dll_path) ], ["DLLS", join(" ", @{$global_settings[$T_DLLS]}) ], ["LIBRARY_PATH", join(" ", @library_path) ], ["LIBRARIES", join(" ", @{$global_settings[$T_LIBRARIES]}) ]]); generate_from_template("wineapploader.in","wineapploader.in"); # Get the name of a source file for configure.ac my $a_source_file; search_a_file: foreach my $project (@projects) { foreach my $target (@{@$project[$P_TARGETS]}, @$project[$P_SETTINGS]) { $a_source_file=@{@$target[$T_SOURCES_C]}[0]; if (!defined $a_source_file) { $a_source_file=@{@$target[$T_SOURCES_CXX]}[0]; } if (!defined $a_source_file) { $a_source_file=@{@$target[$T_SOURCES_RC]}[0]; } if (defined $a_source_file) { $a_source_file="@$project[$P_PATH]$a_source_file"; last search_a_file; } } } if (!defined $a_source_file) { $a_source_file="Makefile.in"; } generate_from_template("configure.ac","configure.ac",[ ["PROJECTS",join("\n",map { "@$_[$P_PATH]Makefile" } @projects)], ["SOURCE","$a_source_file"], ["NEEDS_MFC","$needs_mfc"]]); system("autoconf configure.ac > configure"); # Add execute permission to configure for whoever has the right to read it my @st=stat("configure"); if (@st) { my $mode=$st[2]; $mode|=($mode & 0444) >>2; chmod($mode,"configure"); } else { print "warning: could not generate the configure script. You need to run autoconf\n"; } } ## # sub generate_read_templates() { my $file; while () { if (/^--- ((\w\.?)+) ---$/) { my $filename=$1; if (defined $templates{$filename}) { print STDERR "winemaker: internal error: There is more than one template for $filename\n"; undef $file; } else { $file=[]; $templates{$filename}=$file; } } elsif (defined $file) { push @$file, $_; } } } ## # This is where we finally generate files. In fact this method does not # do anything itself but calls the methods that do the actual work. sub generate() { print "Generating project files...\n"; generate_read_templates(); generate_global_files(); foreach my $project (@projects) { my $path=@$project[$P_PATH]; if ($path eq "") { $path="."; } else { $path =~ s+/$++; } print " $path\n"; generate_project_files($project); } } ##### # # Option defaults # ##### $opt_backup=1; $opt_lower=$OPT_LOWER_UPPERCASE; $opt_lower_include=1; # $opt_work_dir= # $opt_single_target= $opt_target_type=$TT_GUIEXE; $opt_flags=0; $opt_is_interactive=$OPT_ASK_NO; $opt_ask_project_options=$OPT_ASK_NO; $opt_ask_target_options=$OPT_ASK_NO; $opt_no_generated_files=0; $opt_no_generated_specs=0; $opt_no_source_fix=0; $opt_no_banner=0; ##### # # Main # ##### sub print_banner() { print "Winemaker $version\n"; print "Copyright 2000 Francois Gouget for CodeWeavers\n"; } sub usage() { print_banner(); print STDERR "Usage: winemaker [--nobanner] [--backup|--nobackup] [--nosource-fix]\n"; print STDERR " [--lower-none|--lower-all|--lower-uppercase]\n"; print STDERR " [--lower-include|--nolower-include]\n"; print STDERR " [--guiexe|--windows|--cuiexe|--console|--dll]\n"; print STDERR " [--wrap|--nowrap] [--mfc|--nomfc]\n"; print STDERR " [-Dmacro[=defn]] [-Idir] [-Pdir] [-idll] [-Ldir] [-llibrary]\n"; print STDERR " [--nodlls] [--interactive] [--single-target name]\n"; print STDERR " [--generated-files|--nogenerated-files] [--nogenerated-specs]\n"; print STDERR " work_directory\n"; print STDERR "\nWinemaker is designed to recursively convert all the Windows sources found in\n"; print STDERR "the specified directory so that they can be compiled with Winelib. During this\n"; print STDERR "process it will modify and rename some of the files in that directory.\n"; print STDERR "\tPlease read the manual page before use.\n"; exit (2); } target_init(\@global_settings); while (@ARGV>0) { my $arg=shift @ARGV; # General options if ($arg eq "--nobanner") { $opt_no_banner=1; } elsif ($arg eq "--backup") { $opt_backup=1; } elsif ($arg eq "--nobackup") { $opt_backup=0; } elsif ($arg eq "--single-target") { $opt_single_target=shift @ARGV; } elsif ($arg eq "--lower-none") { $opt_lower=$OPT_LOWER_NONE; } elsif ($arg eq "--lower-all") { $opt_lower=$OPT_LOWER_ALL; } elsif ($arg eq "--lower-uppercase") { $opt_lower=$OPT_LOWER_UPPERCASE; } elsif ($arg eq "--lower-include") { $opt_lower_include=1; } elsif ($arg eq "--nolower-include") { $opt_lower_include=0; } elsif ($arg eq "--nosource-fix") { $opt_no_source_fix=1; } elsif ($arg eq "--generated-files") { $opt_no_generated_files=0; } elsif ($arg eq "--nogenerated-files") { $opt_no_generated_files=1; } elsif ($arg eq "--nogenerated-specs") { $opt_no_generated_specs=1; } elsif ($arg =~ /^-D/) { push @{$global_settings[$T_DEFINES]},$arg; } elsif ($arg =~ /^-I/) { push @{$global_settings[$T_INCLUDE_PATH]},$arg; } elsif ($arg =~ /^-P/) { push @{$global_settings[$T_DLL_PATH]},"-L$'"; } elsif ($arg =~ /^-i/) { my $dllname = $'; if ($dllname =~ /^[^.]*$/) { $dllname .= ".dll"; } if ($dllname =~ /^msvcrt\.dll$/) { push @{$global_settings[$T_INCLUDE_PATH]},"-I\$(WINE_INCLUDE_ROOT)/msvcrt"; } push @{$global_settings[$T_DLLS]},$dllname; } elsif ($arg =~ /^-L/) { push @{$global_settings[$T_LIBRARY_PATH]},$arg; } elsif ($arg =~ /^-l/) { push @{$global_settings[$T_LIBRARIES]},$'; # 'Source'-based method options } elsif ($arg eq "--dll") { $opt_target_type=$TT_DLL; } elsif ($arg eq "--guiexe" or $arg eq "--windows") { $opt_target_type=$TT_GUIEXE; } elsif ($arg eq "--cuiexe" or $arg eq "--console") { $opt_target_type=$TT_CUIEXE; } elsif ($arg eq "--interactive") { $opt_is_interactive=$OPT_ASK_YES; $opt_ask_project_options=$OPT_ASK_YES; $opt_ask_target_options=$OPT_ASK_YES; } elsif ($arg eq "--wrap") { $opt_flags|=$TF_WRAP; } elsif ($arg eq "--nowrap") { $opt_flags&=~$TF_WRAP; } elsif ($arg eq "--mfc") { $opt_flags|=$TF_MFC; $needs_mfc=1; } elsif ($arg eq "--nomfc") { $opt_flags&=~$TF_MFC; $opt_flags|=$TF_NOMFC; $needs_mfc=0; } elsif ($arg eq "--nodlls") { $opt_flags|=$TF_NODLLS; # Catch errors } else { if ($arg ne "--help" and $arg ne "-h" and $arg ne "-?") { if (!defined $opt_work_dir) { $opt_work_dir=$arg; } else { print STDERR "error: the work directory, \"$arg\", has already been specified (was \"$opt_work_dir\")\n"; usage(); } } else { usage(); } } if ($opt_flags & $TF_MFC && $opt_target_type != $TT_DLL) { print STDERR "info: option --mfc requires --wrap\n"; $opt_flags |= $TF_WRAP; }; } if (!defined $opt_work_dir) { print STDERR "error: you must specify the directory containing the sources to be converted\n"; usage(); } elsif (!chdir $opt_work_dir) { print STDERR "error: could not chdir to the work directory\n"; print STDERR " $!\n"; usage(); } if ($opt_no_banner == 0) { print_banner(); } project_init(\@main_project,""); # Fix the file and directory names fix_file_and_directory_names("."); # Scan the sources to identify the projects and targets source_scan(); # Create targets for wrappers, etc. postprocess_targets(); # Fix the source files if (! $opt_no_source_fix) { fix_source(); } # Generate the Makefile and the spec file if (! $opt_no_generated_files) { generate(); } __DATA__ --- configure.ac --- dnl Process this file with autoconf to produce a configure script. dnl Author: Michael Patra dnl dnl Francois Gouget for CodeWeavers AC_REVISION([configure.ac 1.00]) AC_INIT(##WINEMAKER_SOURCE##) NEEDS_MFC=##WINEMAKER_NEEDS_MFC## dnl **** Command-line arguments **** AC_SUBST(OPTIONS) dnl **** Check for some programs **** AC_PROG_MAKE_SET AC_PROG_CC AC_PROG_CXX AC_PROG_CPP AC_PROG_LN_S dnl **** Check for some libraries **** dnl Check for -lm for BeOS AC_CHECK_LIB(m,sqrt) dnl Check for -lw for Solaris AC_CHECK_LIB(w,iswalnum) dnl Check for -lnsl for Solaris AC_CHECK_FUNCS(gethostbyname,, AC_CHECK_LIB(nsl, gethostbyname, X_EXTRA_LIBS="$X_EXTRA_LIBS -lnsl", AC_CHECK_LIB(socket, gethostbyname, X_EXTRA_LIBS="$X_EXTRA_LIBS -lnsl", , -lnsl), -lsocket)) dnl Check for -lsocket for Solaris AC_CHECK_FUNCS(connect,,AC_CHECK_LIB(socket,connect)) dnl **** Check for gcc strength-reduce bug **** if test "x${GCC}" = "xyes" then AC_CACHE_CHECK( "for gcc strength-reduce bug", ac_cv_c_gcc_strength_bug, AC_TRY_RUN([ int main(void) { static int Array[[3]]; unsigned int B = 3; int i; for(i=0; i conftest_asm.s <],,ac_found=1;ac_cv_pheader_$1="$ac_dir";break) done CPPFLAGS="$save_CPPFLAGS" ifelse([$3],,,[if test -z "$ac_found" then $3 fi ]) ]) $1="$ac_cv_pheader_$1" if test -n "$ac_found" -o -n "[$]$1" then AC_MSG_RESULT([$]$1) else AC_MSG_RESULT(no) fi AC_SUBST($1) ]) dnl AC_PATH_LIBRARY(variable,libraries,extra libs,action-if-not-found,default-locations) AC_DEFUN(AC_PATH_LIBRARY,[ AC_MSG_CHECKING([for $2]) AC_CACHE_VAL(ac_cv_plibrary_$1, [ ac_found= ac_dummy="ifelse([$5], , :/usr/local/lib, [$5])" save_LIBS="$LIBS" IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" for ac_dir in $ac_dummy; do IFS="$ac_save_ifs" if test -z "$ac_dir" then LIBS="$2 $3 $save_LIBS" else LIBS="-L$ac_dir $2 $3 $save_LIBS" fi AC_TRY_LINK(,,ac_found=1;ac_cv_plibrary_$1="$ac_dir";break) done LIBS="$save_LIBS" ifelse([$4],,,[if test -z "$ac_found" then $4 fi ]) ]) $1="$ac_cv_plibrary_$1" if test -n "$ac_found" -o -n "[$]$1" then AC_MSG_RESULT([$]$1) else AC_MSG_RESULT(no) fi AC_SUBST($1) ]) dnl **** Try to find where winelib is located **** LD_PATH="" WINE_INCLUDE_ROOT="" WINE_INCLUDE_PATH="" WINE_LIBRARY_ROOT="" WINE_LIBRARY_PATH="" WINE_DLL_ROOT="" WINE_DLL_PATH="" WINE_TOOL_PATH="" WINE="" WINEBUILD="" WRC="" AC_ARG_WITH(wine, [ --with-wine=DIR the Wine package (or sources) is in DIR], [if test "$withval" != "no"; then WINE_ROOT="$withval"; WINE_INCLUDES=""; WINE_LIBRARIES=""; WINE_TOOLS=""; else WINE_ROOT=""; fi]) if test -n "$WINE_ROOT" then WINE_INCLUDE_ROOT="$WINE_ROOT/include:$WINE_ROOT/include/wine" WINE_LIBRARY_ROOT="$WINE_ROOT:$WINE_ROOT/lib:$WINE_ROOT/library" WINE_UNICODE_ROOT="$WINE_ROOT:$WINE_ROOT/lib:$WINE_ROOT/unicode" WINE_UUID_ROOT="$WINE_ROOT:$WINE_ROOT/lib:$WINE_ROOT/ole" WINE_TOOL_PATH="$WINE_ROOT:$WINE_ROOT/bin:$WINE_ROOT/tools/wrc:$WINE_ROOT/tools/winebuild" WINE_DLL_ROOT="$WINE_ROOT/dlls:$WINE_ROOT/lib" fi AC_ARG_WITH(wine-includes, [ --with-wine-includes=DIR the Wine includes are in DIR], [if test "$withval" != "no"; then WINE_INCLUDES="$withval"; else WINE_INCLUDES=""; fi]) if test -n "$WINE_INCLUDES" then WINE_INCLUDE_ROOT="$WINE_INCLUDES" fi AC_ARG_WITH(wine-libraries, [ --with-wine-libraries=DIR the Wine libraries are in DIR], [if test "$withval" != "no"; then WINE_LIBRARIES="$withval"; else WINE_LIBRARIES=""; fi]) if test -n "$WINE_LIBRARIES" then WINE_LIBRARY_ROOT="$WINE_LIBRARIES" WINE_UNICODE_ROOT="$WINE_LIBRARIES:$WINE_LIBRARIES/unicode:$WINE_LIBRARIES/../unicode" WINE_UUID_ROOT="$WINE_LIBRARIES:$WINE_LIBRARIES/ole:$WINE_LIBRARIES/../ole" fi AC_ARG_WITH(wine-dlls, [ --with-wine-dlls=DIR the Wine dlls are in DIR], [if test "$withval" != "no"; then WINE_DLLS="$withval"; else WINE_DLLS=""; fi]) if test -n "$WINE_DLLS" then WINE_DLL_ROOT="$WINE_DLLS" fi AC_ARG_WITH(wine-tools, [ --with-wine-tools=DIR the Wine tools are in DIR], [if test "$withval" != "no"; then WINE_TOOLS="$withval"; else WINE_TOOLS=""; fi]) if test -n "$WINE_TOOLS" then WINE_TOOL_PATH="$WINE_TOOLS:$WINE_TOOLS/tools/wrc:$WINE_TOOLS/tools/winebuild" fi if test -z "$WINE_INCLUDE_ROOT" then WINE_INCLUDE_ROOT=":/usr/include/wine:/usr/local/include/wine:/opt/wine/include:/opt/wine/include/wine"; else AC_PATH_FILE(WINE_INCLUDE_ROOT,[windef.h],[ AC_MSG_ERROR([Could not find the Wine headers (windef.h)]) ],$WINE_INCLUDE_ROOT) fi AC_PATH_HEADER(WINE_INCLUDE_ROOT,[windef.h],[ AC_MSG_ERROR([Could not include the Wine headers (windef.h)]) ],$WINE_INCLUDE_ROOT) if test -n "$WINE_INCLUDE_ROOT" then WINE_INCLUDE_PATH="-I$WINE_INCLUDE_ROOT" else WINE_INCLUDE_PATH="" fi if test -z "$WINE_LIBRARY_ROOT" then WINE_LIBRARY_ROOT=":/usr/lib/wine:/usr/local/lib:/usr/local/lib/wine:/opt/wine/lib" else AC_PATH_FILE(WINE_LIBRARY_ROOT,[libwine.so],[ AC_MSG_ERROR([Could not find the Wine libraries (libwine.so)]) ],$WINE_LIBRARY_ROOT) fi AC_PATH_LIBRARY(WINE_LIBRARY_ROOT,[-lwine],[],[ AC_MSG_ERROR([Could not link with the Wine libraries (libwine.so)]) ],$WINE_LIBRARY_ROOT) if test -n "$WINE_LIBRARY_ROOT" then WINE_LIBRARY_PATH="-L$WINE_LIBRARY_ROOT" LD_PATH="$WINE_LIBRARY_ROOT" else WINE_LIBRARY_PATH="" fi if test -z "$WINE_UNICODE_ROOT" then WINE_UNICODE_ROOT=":/usr/lib/wine:/usr/local/lib:/usr/local/lib/wine:/opt/wine/lib" else AC_PATH_FILE(WINE_UNICODE_ROOT,[libwine_unicode.so],[ AC_MSG_ERROR([Could not find the Wine libraries (libwine_unicode.so)]) ],$WINE_UNICODE_ROOT) fi AC_PATH_LIBRARY(WINE_UNICODE_ROOT,[-lwine_unicode],[$WINE_LIBRARY_PATH -lwine],[ AC_MSG_ERROR([Could not link with the Wine libraries (libwine_unicode.so)]) ],[$WINE_UNICODE_ROOT]) if test -n "$WINE_UNICODE_ROOT" -a "$WINE_UNICODE_ROOT" != "$WINE_LIBRARY_ROOT" then WINE_LIBRARY_PATH="$WINE_LIBRARY_PATH -L$WINE_UNICODE_ROOT" LD_PATH="$LD_PATH:$WINE_UNICODE_ROOT" fi if test -z "$WINE_UUID_ROOT" then WINE_UUID_ROOT=":/usr/lib/wine:/usr/local/lib:/usr/local/lib/wine:/opt/wine/lib" else AC_PATH_FILE(WINE_UUID_ROOT,[libwine_uuid.a],[ AC_MSG_ERROR([Could not find the Wine libraries (libwine_uuid.a)]) ],$WINE_UUID_ROOT) fi AC_PATH_LIBRARY(WINE_UUID_ROOT,[-lwine_uuid],[$WINE_LIBRARY_PATH -lwine],[ AC_MSG_ERROR([Could not link with the Wine libraries (libwine_uuid.a)]) ],[$WINE_UUID_ROOT]) if test -n "$WINE_UUID_ROOT" -a "$WINE_UUID_ROOT" != "$WINE_LIBRARY_ROOT" then WINE_LIBRARY_PATH="$WINE_LIBRARY_PATH -L$WINE_UUID_ROOT" LD_PATH="$LD_PATH:$WINE_UUID_ROOT" fi if test -z "$WINE_DLL_ROOT" then if test -n "$WINE_LIBRARY_ROOT" then WINE_DLL_ROOT="$WINE_LIBRARY_ROOT:$WINE_LIBRARY_ROOT/dlls" else WINE_DLL_ROOT="/lib:/lib/wine:/usr/lib:/usr/lib/wine:/usr/local/lib:/usr/local/lib/wine" fi fi AC_PATH_FILE(WINE_DLL_ROOT,[libntdll.dll.so],[ AC_MSG_ERROR([Could not find the Wine dlls (libntdll.dll.so)]) ],[$WINE_DLL_ROOT]) AC_PATH_LIBRARY(WINE_DLL_ROOT,[-lntdll.dll],[$WINE_LIBRARY_PATH -lwine -lwine_unicode],[ AC_MSG_ERROR([Could not link with the Wine dlls (libntdll.dll.so)]) ],[$WINE_DLL_ROOT]) WINE_DLL_PATH="-L$WINE_DLL_ROOT/wine" if test -n "$LD_PATH" then LD_PATH="$LD_PATH:$WINE_DLL_ROOT" else LD_PATH="$WINE_DLL_ROOT" fi LD_PATH="LD_LIBRARY_PATH=\"$LD_PATH:\$\$LD_LIBRARY_PATH\"" if test -z "$WINE_TOOL_PATH" then WINE_TOOL_PATH="$PATH:/usr/local/bin:/opt/wine/bin" fi AC_PATH_PROG(WINE,wine,,$WINE_TOOL_PATH) if test -z "$WINE" then AC_MSG_ERROR([Could not find Wine's wine tool]) fi AC_PATH_PROG(WINEBUILD,winebuild,,$WINE_TOOL_PATH) if test -z "$WINEBUILD" then AC_MSG_ERROR([Could not find Wine's winebuild tool]) fi AC_PATH_PROG(WRC,wrc,,$WINE_TOOL_PATH) if test -z "$WRC" then AC_MSG_ERROR([Could not find Wine's wrc tool]) fi AC_SUBST(LD_PATH) AC_SUBST(WINE_INCLUDE_PATH) AC_SUBST(WINE_LIBRARY_PATH) AC_SUBST(WINE_DLL_PATH) dnl **** Try to find where the MFC are located **** AC_LANG_CPLUSPLUS() if test "x$NEEDS_MFC" = "x1" then ATL_INCLUDE_ROOT=""; ATL_INCLUDE_PATH=""; MFC_INCLUDE_ROOT=""; MFC_INCLUDE_PATH=""; MFC_LIBRARY_ROOT=""; MFC_LIBRARY_PATH=""; AC_ARG_WITH(mfc, [ --with-mfc=DIR the MFC package (or sources) is in DIR], [if test "$withval" != "no"; then MFC_ROOT="$withval"; ATL_INCLUDES=""; MFC_INCLUDES=""; MFC_LIBRARIES=""; else MFC_ROOT=""; fi]) if test -n "$MFC_ROOT" then ATL_INCLUDE_ROOT="$MFC_ROOT"; MFC_INCLUDE_ROOT="$MFC_ROOT"; MFC_LIBRARY_ROOT="$MFC_ROOT"; fi AC_ARG_WITH(atl-includes, [ --with-atl-includes=DIR the ATL includes are in DIR], [if test "$withval" != "no"; then ATL_INCLUDES="$withval"; else ATL_INCLUDES=""; fi]) if test -n "$ATL_INCLUDES" then ATL_INCLUDE_ROOT="$ATL_INCLUDES"; fi AC_ARG_WITH(mfc-includes, [ --with-mfc-includes=DIR the MFC includes are in DIR], [if test "$withval" != "no"; then MFC_INCLUDES="$withval"; else MFC_INCLUDES=""; fi]) if test -n "$MFC_INCLUDES" then MFC_INCLUDE_ROOT="$MFC_INCLUDES"; fi AC_ARG_WITH(mfc-libraries, [ --with-mfc-libraries=DIR the MFC libraries are in DIR], [if test "$withval" != "no"; then MFC_LIBRARIES="$withval"; else MFC_LIBRARIES=""; fi]) if test -n "$MFC_LIBRARIES" then MFC_LIBRARY_ROOT="$MFC_LIBRARIES"; fi OLDCPPFLAGS="$CPPFLAGS" dnl FIXME: We should not have defines in any of the include paths CPPFLAGS="$WINE_INCLUDE_PATH -I$WINE_INCLUDE_ROOT/msvcrt -D_DLL -D_MT $CPPFLAGS" ATL_INCLUDE_PATH="-I\$(WINE_INCLUDE_ROOT)/msvcrt -D_DLL -D_MT" if test -z "$ATL_INCLUDE_ROOT" then ATL_INCLUDE_ROOT=":$WINE_INCLUDE_ROOT/atl:/usr/include/atl:/usr/local/include/atl:/opt/mfc/include/atl:/opt/atl/include" else ATL_INCLUDE_ROOT="$ATL_INCLUDE_ROOT:$ATL_INCLUDE_ROOT/atl:$ATL_INCLUDE_ROOT/atl/include" fi AC_PATH_HEADER(ATL_INCLUDE_ROOT,atldef.h,[ AC_MSG_ERROR([Could not find the ATL includes]) ],$ATL_INCLUDE_ROOT) if test -n "$ATL_INCLUDE_ROOT" then ATL_INCLUDE_PATH="$ATL_INCLUDE_PATH -I$ATL_INCLUDE_ROOT" fi MFC_INCLUDE_PATH="$ATL_INCLUDE_PATH" if test -z "$MFC_INCLUDE_ROOT" then MFC_INCLUDE_ROOT=":$WINE_INCLUDE_ROOT/mfc:/usr/include/mfc:/usr/local/include/mfc:/opt/mfc/include/mfc:/opt/mfc/include" else MFC_INCLUDE_ROOT="$MFC_INCLUDE_ROOT:$MFC_INCLUDE_ROOT/mfc:$MFC_INCLUDE_ROOT/mfc/include" fi AC_PATH_HEADER(MFC_INCLUDE_ROOT,afx.h,[ AC_MSG_ERROR([Could not find the MFC includes]) ],$MFC_INCLUDE_ROOT) if test -n "$MFC_INCLUDE_ROOT" -a "$ATL_INCLUDE_ROOT" != "$MFC_INCLUDE_ROOT" then MFC_INCLUDE_PATH="$MFC_INCLUDE_PATH -I$MFC_INCLUDE_ROOT" fi CPPFLAGS="$OLDCPPFLAGS" if test -z "$MFC_LIBRARY_ROOT" then MFC_LIBRARY_ROOT=":$WINE_LIBRARY_ROOT:/usr/lib/mfc:/usr/local/lib:/usr/local/lib/mfc:/opt/mfc/lib"; else MFC_LIBRARY_ROOT="$MFC_LIBRARY_ROOT:$MFC_LIBRARY_ROOT/lib:$MFC_LIBRARY_ROOT/mfc/src"; fi AC_PATH_LIBRARY(MFC_LIBRARY_ROOT,[-lmfc],[$WINE_LIBRARY_PATH -lwine -lwine_unicode],[ AC_MSG_ERROR([Could not find the MFC library]) ],$MFC_LIBRARY_ROOT) if test -n "$MFC_LIBRARY_ROOT" -a "$MFC_LIBRARY_ROOT" != "$WINE_LIBRARY_ROOT" then MFC_LIBRARY_PATH="-L$MFC_LIBRARY_ROOT" else MFC_LIBRARY_PATH="" fi AC_SUBST(ATL_INCLUDE_PATH) AC_SUBST(MFC_INCLUDE_PATH) AC_SUBST(MFC_LIBRARY_PATH) fi AC_LANG_C() dnl **** Generate output files **** MAKE_RULES=Make.rules AC_SUBST_FILE(MAKE_RULES) AC_OUTPUT([ Make.rules ##WINEMAKER_PROJECTS## ]) echo echo "Configure finished. Do 'make' to build the project." echo dnl Local Variables: dnl comment-start: "dnl " dnl comment-end: "" dnl comment-start-skip: "\\bdnl\\b\\s *" dnl compile-command: "autoconf" dnl End: --- Make.rules.in --- # Copyright 2000 Francois Gouget for CodeWeavers # fgouget@codeweavers.com # # Global rules shared by all makefiles -*-Makefile-*- # # Each individual makefile must define the following variables: # TOPOBJDIR : top-level object directory # SRCDIR : source directory for this module # # Each individual makefile may define the following additional variables: # # SUBDIRS : subdirectories that contain a Makefile # DLLS : WineLib libraries to be built # EXES : WineLib executables to be built # # CEXTRA : extra c flags (e.g. '-Wall') # CXXEXTRA : extra c++ flags (e.g. '-Wall') # WRCEXTRA : extra wrc flags (e.g. '-p _SysRes') # DEFINES : defines (e.g. -DSTRICT) # INCLUDE_PATH : additional include path # LIBRARY_PATH : additional library path # LIBRARIES : additional Unix libraries to link with # # C_SRCS : C sources for the module # CXX_SRCS : C++ sources for the module # RC_SRCS : resource source files # SPEC_SRCS : interface definition files # Where is Wine WINE_INCLUDE_ROOT = @WINE_INCLUDE_ROOT@ WINE_INCLUDE_PATH = @WINE_INCLUDE_PATH@ WINE_LIBRARY_ROOT = @WINE_LIBRARY_ROOT@ WINE_LIBRARY_PATH = @WINE_LIBRARY_PATH@ WINE_DLL_ROOT = @WINE_DLL_ROOT@ WINE_DLL_PATH = @WINE_DLL_PATH@ LD_PATH = @LD_PATH@ # Where are the MFC ATL_INCLUDE_ROOT = @ATL_INCLUDE_ROOT@ ATL_INCLUDE_PATH = @ATL_INCLUDE_PATH@ MFC_INCLUDE_ROOT = @MFC_INCLUDE_ROOT@ MFC_INCLUDE_PATH = @MFC_INCLUDE_PATH@ MFC_LIBRARY_ROOT = @MFC_LIBRARY_ROOT@ MFC_LIBRARY_PATH = @MFC_LIBRARY_PATH@ # Global definitions and options GLOBAL_DEFINES = ##WINEMAKER_DEFINES## GLOBAL_INCLUDE_PATH = ##WINEMAKER_INCLUDE_PATH## GLOBAL_DLL_PATH = ##WINEMAKER_DLL_PATH## GLOBAL_DLLS = ##WINEMAKER_DLLS## GLOBAL_LIBRARY_PATH = ##WINEMAKER_LIBRARY_PATH## GLOBAL_LIBRARIES = ##WINEMAKER_LIBRARIES## # First some useful definitions SHELL = /bin/sh CC = @CC@ CPP = @CPP@ CXX = @CXX@ WRC = @WRC@ CFLAGS = @CFLAGS@ CXXFLAGS = @CXXFLAGS@ WRCFLAGS = -r -L OPTIONS = @OPTIONS@ -D_REENTRANT -DWINELIB $(GLOBAL_DEFINES) $(GLOBAL_INCLUDE_PATH) LIBS = @LIBS@ $(LIBRARY_PATH) ALLFLAGS = $(DEFINES) -I$(SRCDIR) $(INCLUDE_PATH) $(WINE_INCLUDE_PATH) ALLCFLAGS = $(CFLAGS) $(CEXTRA) $(OPTIONS) $(ALLFLAGS) ALLCXXFLAGS=$(CXXFLAGS) $(CXXEXTRA) $(OPTIONS) $(ALLFLAGS) ALLWRCFLAGS=$(WRCFLAGS) $(WRCEXTRA) $(OPTIONS) $(ALLFLAGS) ALL_DLL_PATH = $(DLL_PATH) $(GLOBAL_DLL_PATH) $(WINE_DLL_PATH) ALL_LIBRARY_PATH = $(LIBRARY_PATH) $(GLOBAL_LIBRARY_PATH) $(WINE_LIBRARY_PATH) WINE_LIBRARIES = -lwine -lwine_unicode -lwine_uuid ALL_LIBRARIES = $(LIBRARIES:%=-l%) $(GLOBAL_LIBRARIES:%=-l%) $(WINE_LIBRARIES) LDCOMBINE = ld -r LDSHARED = @LDSHARED@ LDXXSHARED= @LDXXSHARED@ LDDLLFLAGS= @LDDLLFLAGS@ STRIP = strip STRIPFLAGS= --strip-unneeded LN_S = @LN_S@ RM = rm -f MV = mv MKDIR = mkdir -p WINE = @WINE@ WINEBUILD = @WINEBUILD@ @SET_MAKE@ # Installation infos INSTALL = install INSTALL_PROGRAM = $(INSTALL) INSTALL_SCRIPT = $(INSTALL) INSTALL_DATA = $(INSTALL) -m 644 prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ dlldir = @libdir@/wine prog_manext = 1 conf_manext = 5 OBJS = $(C_SRCS:.c=.o) $(CXX_SRCS:.cpp=.o) \ $(SPEC_SRCS:.spec=.spec.o) CLEAN_FILES = *.spec.c y.tab.c y.tab.h lex.yy.c \ core *.orig *.rej \ \\\#*\\\# *~ *% .\\\#* # Implicit rules .SUFFIXES: .cpp .rc .res .spec .spec.c .spec.o .c.o: $(CC) -c $(ALLCFLAGS) -o $@ $< .cpp.o: $(CXX) -c $(ALLCXXFLAGS) -o $@ $< .cxx.o: $(CXX) -c $(ALLCXXFLAGS) -o $@ $< .rc.res: $(LD_PATH) $(WRC) $(ALLWRCFLAGS) -o $@ $< .PHONY: all install uninstall clean distclean depend dummy # 'all' target first in case the enclosing Makefile didn't define any target all: Makefile # Rules for makefile Makefile: Makefile.in $(TOPSRCDIR)/configure @echo $@ is older than $?, please rerun $(TOPSRCDIR)/configure @exit 1 # Rules for cleaning $(SUBDIRS:%=%/__clean__): dummy cd `dirname $@` && $(MAKE) clean $(EXTRASUBDIRS:%=%/__clean__): dummy -cd `dirname $@` && $(RM) $(CLEAN_FILES) clean:: $(SUBDIRS:%=%/__clean__) $(EXTRASUBDIRS:%=%/__clean__) $(RM) $(CLEAN_FILES) $(RC_SRCS:.rc=.res) $(OBJS) $(EXES) $(EXES:%=%.so) $(DLLS) # Rules for installing $(SUBDIRS:%=%/__install__): dummy cd `dirname $@` && $(MAKE) install $(SUBDIRS:%=%/__uninstall__): dummy cd `dirname $@` && $(MAKE) uninstall # Misc. rules $(SUBDIRS): dummy @cd $@ && $(MAKE) dummy: # End of global rules --- wineapploader.in --- #!/bin/sh # # Wrapper script to start a Winelib application once it is installed # # Copyright (C) 2002 Alexandre Julliard # determine the app Winelib library name appname=`basename "$0" .exe`.exe #allow Wine to load Winelib application from the current directory export WINEDLLPATH=$WINEDLLPATH:@winelibdir@ # first try explicit WINELOADER if [ -x "$WINELOADER" ]; then exec "$WINELOADER" "$appname" "$@"; fi # then default bin directory if [ -x "@bindir@/wine" ]; then exec "@bindir@/wine" "$appname" "$@"; fi # now try the directory containing $0 appdir="" case "$0" in */*) # $0 contains a path, use it appdir=`dirname "$0"` ;; *) # no directory in $0, search in PATH saved_ifs=$IFS IFS=: for d in $PATH do IFS=$saved_ifs if [ -x "$d/$0" ]; then appdir="$d"; break; fi done ;; esac if [ -x "$appdir/wine" ]; then exec "$appdir/wine" "$appname" "$@"; fi # finally look in PATH exec wine "$appname" "$@" --- wrapper.c --- /* * Copyright 2000 Francois Gouget for CodeWeavers */ #ifndef STRICT #define STRICT #endif #include #include /* * Describe the wrapped application */ /** * This is either CUIEXE for a console based application or * GUIEXE for a regular windows application. */ #define GUIEXE 0 #define CUIEXE 1 #define APP_TYPE ##WINEMAKER_APP_TYPE## /** * This is the application library's base name, i.e. 'hello' if the * library is called 'libhello.so'. */ static char* appName = "##WINEMAKER_APP_NAME##"; /** * This is the name of the application's Windows module. If left NULL * then appName is used. */ static char* appModule = NULL; /** * This is the application's entry point. This is usually "WinMain" for a * GUIEXE and 'main' for a CUIEXE application. */ static char* appInit = ##WINEMAKER_APP_INIT##; /** * This is either non-NULL for MFC-based applications and is the name of the * MFC's module. This is the module in which we will take the 'WinMain' * function. */ static char* mfcModule = ##WINEMAKER_APP_MFC##; /* * Implement the main. */ #if APP_TYPE == GUIEXE typedef int WINAPI (*WinMainFunc)(HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int iCmdShow); #else typedef int WINAPI (*MainFunc)(int argc, char** argv, char** envp); #endif #if APP_TYPE == GUIEXE int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int iCmdShow) #else int WINAPI main(int argc, char** argv, char** envp) #endif { void* appLibrary; HINSTANCE hApp = 0, hMFC = 0, hMain = 0; void* appMain; char* libName; int retcode; /* Load the application's library */ libName=(char*)malloc(strlen(appName)+5+3+1); /* FIXME: we should get the wrapper's path and use that as the base for * the library */ sprintf(libName,"./lib%s.so",appName); appLibrary=dlopen(libName,RTLD_NOW); if (appLibrary==NULL) { sprintf(libName,"lib%s.so",appName); appLibrary=dlopen(libName,RTLD_NOW); } if (appLibrary==NULL) { char format[]="Could not load the %s library:\r\n%s"; char* error; char* msg; error=dlerror(); msg=(char*)malloc(strlen(format)+strlen(libName)+strlen(error)); sprintf(msg,format,libName,error); MessageBox(NULL,msg,"dlopen error",MB_OK); free(msg); return 1; } /* Then if this application is MFC based, load the MFC module */ /* FIXME: I'm not sure this is really necessary */ if (mfcModule!=NULL) { hMFC=LoadLibrary(mfcModule); if (hMFC==NULL) { char format[]="Could not load the MFC module %s (%d)"; char* msg; msg=(char*)malloc(strlen(format)+strlen(mfcModule)+11); sprintf(msg,format,mfcModule,GetLastError()); MessageBox(NULL,msg,"LoadLibrary error",MB_OK); free(msg); return 1; } /* MFC is a special case: the WinMain is in the MFC library, * instead of the application's library. */ hMain=hMFC; } else { hMFC=NULL; } /* Load the application's module */ if (appModule==NULL) { appModule=appName; } hApp=LoadLibrary(appModule); if (hApp==NULL) { char format[]="Could not load the application's module %s (%d)"; char* msg; msg=(char*)malloc(strlen(format)+strlen(appModule)+11); sprintf(msg,format,appModule,GetLastError()); MessageBox(NULL,msg,"LoadLibrary error",MB_OK); free(msg); return 1; } else if (hMain==NULL) { hMain=hApp; } /* Get the address of the application's entry point */ appMain=GetProcAddress(hMain, appInit); if (appMain==NULL) { char format[]="Could not get the address of %s (%d)"; char* msg; msg=(char*)malloc(strlen(format)+strlen(appInit)+11); sprintf(msg,format,appInit,GetLastError()); MessageBox(NULL,msg,"GetProcAddress error",MB_OK); free(msg); return 1; } /* And finally invoke the application's entry point */ #if APP_TYPE == GUIEXE retcode=(*((WinMainFunc)appMain))(hApp,hPrevInstance,szCmdLine,iCmdShow); #else retcode=(*((MainFunc)appMain))(argc,argv,envp); #endif /* Cleanup and done */ FreeLibrary(hApp); if (hMFC!=NULL) { FreeLibrary(hMFC); } dlclose(appLibrary); free(libName); return retcode; }