X-Git-Url: https://git.distorted.org.uk/u/mdw/putty/blobdiff_plain/44747c53040ece195f0fe816f19cf493ffd6f465..3effbcf21a3e3af6994d9ab112db9ce7ba44bbce:/mkfiles.pl diff --git a/mkfiles.pl b/mkfiles.pl index 8f5aa6c7..830de491 100755 --- a/mkfiles.pl +++ b/mkfiles.pl @@ -17,8 +17,24 @@ use warnings; use FileHandle; +use File::Basename; use Cwd; +if ($#ARGV >= 0 and ($ARGV[0] eq "-u" or $ARGV[0] eq "-U")) { + # Convenience for Unix users: -u means that after we finish what + # we're doing here, we also run mkauto.sh and then 'configure' in + # the Unix subdirectory. So it's a one-stop shop for regenerating + # the actual end-product Unix makefile. + # + # Arguments supplied after -u go to configure. + # + # -U is identical, but runs 'configure' at the _top_ level, for + # people who habitually do that. + $do_unix = ($ARGV[0] eq "-U" ? 2 : 1); + shift @ARGV; + @confargs = @ARGV; +} + open IN, "Recipe" or do { # We want to deal correctly with being run from one of the # subdirs in the source tree. So if we can't find Recipe here, @@ -399,6 +415,8 @@ sub manpages { return (); } +$orig_dir = cwd; + # Now we're ready to output the actual Makefiles. if (defined $makefiles{'cygwin'}) { @@ -677,8 +695,6 @@ if (defined $makefiles{'vc'}) { if (defined $makefiles{'vcproj'}) { $dirpfx = &dirpfx($makefiles{'vcproj'}, "\\"); - $orig_dir = cwd; - ##-- MSVC 6 Workspace and projects # # Note: All files created in this section are written in binary @@ -1362,6 +1378,8 @@ if (defined $makefiles{'devcppproj'}) { create_devcpp_project(\%all_object_deps, $progname); } + chdir $orig_dir; + sub create_devcpp_project { my ($all_object_deps, $progname) = @_; # Construct program's dependency info (Taken from 'vcproj', seems to work right here, too.) @@ -1517,3 +1535,17 @@ if (defined $makefiles{'devcppproj'}) { chdir ".."; } } + +# All done, so do the Unix postprocessing if asked to. + +if ($do_unix) { + chdir $orig_dir; + system "./mkauto.sh"; + die "mkfiles.pl: mkauto.sh returned $?\n" if $? > 0; + if ($do_unix == 1) { + chdir ($targetdir = dirname($makefiles{"am"})) + or die "$targetdir: chdir: $!\n"; + } + system "./configure", @confargs; + die "mkfiles.pl: configure returned $?\n" if $? > 0; +}