summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/latexmk/latexmk.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/scripts/latexmk/latexmk.pl')
-rwxr-xr-xMaster/texmf-dist/scripts/latexmk/latexmk.pl565
1 files changed, 355 insertions, 210 deletions
diff --git a/Master/texmf-dist/scripts/latexmk/latexmk.pl b/Master/texmf-dist/scripts/latexmk/latexmk.pl
index dfcea37feaf..0455c015067 100755
--- a/Master/texmf-dist/scripts/latexmk/latexmk.pl
+++ b/Master/texmf-dist/scripts/latexmk/latexmk.pl
@@ -1,5 +1,8 @@
#!/usr/bin/env perl
+# N.B. !!!!!!!!!!! See 17 July 2012 comments !!!!!!!!!!!!!!!!!!
+
+
# On a UNIX-like system, the above enables latexmk to run independently
# of the location of the perl executable. This line relies on the
# existence of the program /usr/bin/env
@@ -10,7 +13,6 @@
# with the path of the perl executable adjusted for your system.
-
use warnings;
# Delete #??!! when working
@@ -109,8 +111,8 @@ use warnings;
$my_name = 'latexmk';
$My_name = 'Latexmk';
-$version_num = '4.31';
-$version_details = "$My_name, John Collins, 30 March 2012";
+$version_num = '4.33b';
+$version_details = "$My_name, John Collins, 12 Aug. 2012";
use Config;
use File::Copy;
@@ -180,36 +182,71 @@ else {
## Modification log from 9 Dec 2011 onwards in detail
##
## 12 Jan 2012 STILL NEED TO DOCUMENT some items below
-## 29, 30 Mar 2012, John Collins Optimize file checking, and # calcs of MD5
-## 24 Jan 2012, John Collins Remove unneeded call to traceback
-## 23 Jan 2012, John Collins Remove initial ./ from ./foo entries in .fls file
-## 16 Jan 2012, John Collins Make aux and/or out directories if it/they
-## don't exist
-## 14 Jan 2012, John Collins Correct bug in parse_quotes
-## 12 Jan 2012, John Collins $success_cmd, $compiling_cmd, $failure_cmd
-## allow actions (e.g., to set window title)
-## after successful compilation, before
-## compilation, and after failure, in -pvc mode
-## Thanks to Aasmud Ervik (12 Jan 2012)
-## 2 Jan 2012, John Collins Add MikTeX-specific options to pass-through list
-## Remove redundancy of subroutines rdb_ext_cmd and rdb_ext_cmd1
-## In rdb_one_file, give &$file_act null argument list
-## 30 Dec 2011 STILL NEED TO DOCUMENT next items
-## 30 Dec 2011, John Collins Add nostart to possible keywords in commands
-## Insert start before command called from view
-## 24 Dec 2011, John Collins Add -xelatex option
-## Change OS-X defaults for viewers.
-## 21 Dec 2011, John Collins Add options reproducing options of (pdf)latex
-## 21 Dec 2011, John Collins Add -latexoption=... option
-## 20 Dec 2011, John Collins Command specification string can start
-## with "include routine" to invoke a Perl
-## subroutine instead of an external cmd.
-## 19 Dec 2011, John Collins Recorder option is now on by default.
-## 13 Dec 2011, John Collins Add -M -MP and -MF options, like gcc.
-## 9 Dec 2011, John Collins Use OS-dependent search path separator when
-## when manipulating TEXINPUTS, etc.
-## Correct treatment of current directory
-## when modifying TEXINPUTS, etc
+## 12 Aug 2012 John Collins V. 4.33b
+## Improve text displayed by -showextraoptions
+## 8 Aug 2012 John Collins V. 4.33a
+## Fix problem that with Cygwin,
+## latexmk runs very slowly, because
+## subroutine good_cwd() runs the
+## program cygpath on every
+## invocation. Solution: cach cwd.
+## 6 Aug 2012 John Collins Version number to 4.33
+## 4 Aug 2012 John Collins Further fixes of filename treatment:
+## normalize_filename routine to remove
+## string for current directory, and
+## convert '\' directory separator to '/'
+## (Note MiKTeX uses BOTH, see e.g., its
+## log file, so MSWin systems are NOT
+## guaranteed to be consistent. But latexmk
+## needs to treat filenames differing by
+## change of directory separator as equivalent.
+## Warning: SOME MWWin programs, e.g., current
+## cmd.exe (as tested yesterday on PSU computer
+## in library) do not accept '/' as directory
+## separator, so it may be worth allowing conversion
+## to '\' in executed files.)
+## Also improve running when $silent is on:
+## don't print warnings about undefined references
+## and citations, but simply display a summary, whose
+## criterion for being shown had to be fixed.
+## 3 Aug 2012 John Collins Fix finding of files in aux-dir
+## 1 Aug 2012 John Collins Handle aliasing of cwd in output file
+## to avoid unnecessary warnings about
+## actual o/p file .ne. expected with MiKTeX
+## Clean up subroutine names:
+## parse_logB to parse_log
+## make_preview_continuousB to make_preview_continuous
+## rdb_find_new_filesB to rdb_find_new_files
+## rdb_set_dependentsA to rdb_set_dependents
+## rdb_makeB to rdb_make
+## rdb_makeB1 to rdb_make1
+## rdb_one_depA to rdb_one_dep
+## rdb_recurseA to rdb_recurse
+## rdb_update_filesA to rdb_update_files
+## 28, 29, 30 Jul 2012 John Collins Try better file-name normalization in reading fls file.
+## 18 Jul 2012 John Collins Change ver. to 4.32d.
+## Merge changes from 29 June 2012:
+## Add $dvipdf_silent_switch
+## 17 Jul 2012 John Collins Try better fix for error/rerun and retest issue.
+## Now rdb_primary_run doesn't have so many complications
+## rdb_makeB's PASS loop is simpler
+## rdb_submakeB is unneeded.
+## See the lines starting #??
+## See comments nearby
+## Compare w/ v. 4.32a
+## V. 4.32b
+## 17 Jul 2012 John Collins Fix problem that after finding error in a run
+## of (pdf)latex, latexmk didn't check for
+## changed files before giving up.
+## To do that, I reverted some changes in
+## rdb_primary_run to pre v. 4.31
+## Remove unused code
+## v. 4.32a
+## 8 May 2012 John Collins Possibility to substitute backslashes for
+## forward slashes in file and directory
+## names in executed command line,
+## for MSWin
+## 5 May 2012 John Collins Comment on ctrl/C handling in WAIT loop
##
## 1998-2010, John Collins. Many improvements and fixes.
## See CHANGE-log.txt for full list, and CHANGES for summary
@@ -542,6 +579,12 @@ $makeindex_silent_switch = '-q';
## Command to convert dvi file to pdf file directly:
$dvipdf = 'dvipdf %O %S %D';
+# N.B. Standard dvipdf runs dvips and gs with their silent switch, so for
+# standard dvipdf $dvipdf_silent_switch is unneeded, but innocuous.
+# But dvipdfmx can be used instead, and it has a silent switch (-q).
+# So implementing $dvipdf_silent_switch is useful.
+
+$dvipdf_silent_switch = '-q';
## Command to convert dvi file to ps file:
$dvips = 'dvips %O -o %D %S';
@@ -576,6 +619,10 @@ $print_type = 'ps'; # When printing, print the postscript file.
## Current tex's treat extensions like UNIX teTeX:
$extension_treatment = 'unix';
+## Substitute backslashes in file and directory names for
+## MSWin command line
+$MSWin_back_slash = 1;
+
$dvi_update_signal = undef;
$ps_update_signal = undef;
$pdf_update_signal = undef;
@@ -1046,8 +1093,11 @@ $dependents_list = 0; # Whether to display list(s) of dependencies
$dependents_phony = 0; # Whether list(s) of dependencies includes phony targets
# (as with 'gcc -MP').
$deps_file = '-'; # File for dependency list output. Default stdout.
-$rules_list = 0; # Whether to display list(s) of dependencies
-@dir_stack = (); # Stack of pushed directories.
+$rules_list = 0; # Whether to display list(s) of dependencies
+@dir_stack = (); # Stack of pushed directories, each of form of
+ # pointer to array [ cwd, good_cwd ], where
+ # good_cwd differs from cwd by being converted
+ # to native MSWin path when cygwin is used.
$cleanup_mode = 0; # No cleanup of nonessential LaTex-related files.
# $cleanup_mode = 0: no cleanup
# $cleanup_mode = 1: full cleanup
@@ -1097,6 +1147,10 @@ $reference_changed = 0;
$bad_reference = 0;
$bad_citation = 0;
+# Cache of expensive-to-compute state variables, e.g., cwd in form
+# fixed to deal with cygwin issues.
+%cache = ();
+&cache_good_cwd;
# Set search paths for includes.
# Set them early so that they can be overridden
@@ -1229,7 +1283,7 @@ if (!$BIBINPUTS) { $BIBINPUTS = '.'; }
%primaries = (); # Hash of rules for primary part of make. Keys are
# currently 'latex', 'pdflatex' or both. Value is
# currently irrelevant. Use hash for ease of lookup
- # Make remove this later, if use makeB
+ # Make remove this later, if use rdb_makeB
# Hashes, whose keys give names of particular kinds of rule. We use
# hashes for ease of lookup.
@@ -1530,10 +1584,17 @@ while ($_ = $ARGV[0])
elsif (/^-rules$/ ) { $rules_list = 1; }
elsif (/^-norules$/ || /^-rules-$/ ) { $rules_list = 0; }
elsif (/^-showextraoptions$/) {
- print "List of extra latex and pdflatex options recognized by $my_name:\n",
+ print "List of extra latex and pdflatex options recognized by $my_name.\n",
"These are passed as is to (pdf)latex. They may not be recognized by\n",
"particular versions of (pdf)latex. This list is a combination of those\n",
- "for TeXLive and MikTeX.\n\n";
+ "for TeXLive and MikTeX.\n",
+ "\n",
+ "Note that in addition to the options in this list, there are several\n",
+ "options known to the (pdf)latex programs that are also recognized by\n",
+ "latexmk and trigger special behavior by latexmk. Since these options\n",
+ "appear in the main list given by running 'latexmk --help', they do not\n",
+ "appear in the following list\n",
+ "\n";
foreach $option ( sort( keys %allowed_latex_options, keys %allowed_latex_options_with_arg ) ) {
if (exists $allowed_latex_options{$option} ) { print " $allowed_latex_options{$option}\n"; }
if (exists $allowed_latex_options_with_arg{$option} ) { print " $allowed_latex_options_with_arg{$option}\n"; }
@@ -1642,6 +1703,11 @@ if ( ($out_dir ne '') && ($aux_dir eq '') ){
$aux_dir = $out_dir;
}
+foreach ($out_dir, $aux_dir) {
+ # Remove aliases to cwd:
+ $_ = normalize_filename( $_ );
+ if ($_ eq '.' ) { $_ = ''; }
+}
# Versions terminating in directory/path separator
$out_dir1 = $out_dir;
$aux_dir1 = $aux_dir;
@@ -1794,6 +1860,7 @@ if ( $silent ) {
add_option( "$biber_silent_switch", \$biber );
add_option( "$bibtex_silent_switch", \$bibtex );
add_option( "$makeindex_silent_switch", \$makeindex );
+ add_option( "$dvipdf_silent_switch", \$dvipdf );
add_option( "$dvips_silent_switch", \$dvips );
}
@@ -2031,10 +2098,10 @@ foreach $filename ( @file_list )
);
}
else {
- # No fdb file, so do inferior job by parse_logB
+ # No fdb file, so do inferior job by parse_log
print "$My_name: Examining log file '$log_name' for generated files...\n";
- # Variables set by parse_logB. Can I remove them
+ # Variables set by parse_log. Can I remove them
local %generated_log = ();
local %dependents = (); # Maps files to status. Not used here.
local @bbl_files = (); # Not used here.
@@ -2043,7 +2110,7 @@ foreach $filename ( @file_list )
# Maps output file created and read by (pdf)latex
# to source file of conversion.
local $primary_out = ''; # Actual output file (dvi or pdf). Not used here.
- &parse_logB;
+ &parse_log;
%other_generated = %generated_log;
}
@@ -2097,7 +2164,7 @@ foreach $filename ( @file_list )
if ($cleanup_only) { next FILE; }
-#??? The following are not needed if use makeB.
+#??? The following are not needed if use rdb_make.
# ?? They may be set too early?
# Arrays and hashes for picking out accessible rules.
# Distinguish rules for making files and others
@@ -2140,7 +2207,7 @@ foreach $filename ( @file_list )
# previous run. So use filetime criterion for make
# instead of change from previous run, until we have
# done our own make.
- rdb_recurseA( [keys %possible_primaries],
+ rdb_recurse( [keys %possible_primaries],
sub{ if ( $$Ptest_kind == 1 ) { $$Ptest_kind = 3;} }
);
if ( -e $log_name ) {
@@ -2158,7 +2225,7 @@ foreach $filename ( @file_list )
if ($go_mode) {
# Force everything to be remade.
- rdb_recurseA( [keys %requested_filerules], sub{$$Pout_of_date=1;} );
+ rdb_recurse( [keys %requested_filerules], sub{$$Pout_of_date=1;} );
}
@@ -2170,7 +2237,7 @@ foreach $filename ( @file_list )
#************************************************************
if ( $preview_continuous_mode ) {
- &make_preview_continuousB;
+ &make_preview_continuous;
# Will probably exit by ctrl/C and never arrive here.
next FILE;
}
@@ -2191,7 +2258,7 @@ foreach $filename ( @file_list )
#Initialize failure flags now.
$failure = 0;
$failure_msg = '';
- $failure = rdb_makeB( keys %requested_filerules );
+ $failure = rdb_make( keys %requested_filerules );
if ($failure > 0) { next FILE; }
rdb_for_some( [keys %one_time], \&rdb_run1 );
} # end FILE
@@ -2718,7 +2785,7 @@ sub find_basename
#************************************************************
-sub make_preview_continuousB {
+sub make_preview_continuous {
local @changed = ();
local @disappeared = ();
local @no_dest = (); # Non-existent destination files
@@ -2726,7 +2793,6 @@ sub make_preview_continuousB {
local @rules_to_apply = ();
local $failure = 0;
- local $runs = 0;
local %rules_applied = ();
local $updated = 0;
@@ -2796,7 +2862,7 @@ CHANGE:
if ($compiling_cmd) {
Run_subst( $compiling_cmd );
}
- $failure = rdb_makeB( @targets );
+ $failure = rdb_make( @targets );
## warn "=========Viewer PID = $$Pviewer_process; updated=$updated\n";
@@ -2878,6 +2944,10 @@ CHANGE:
print "\n=== Watching for updated files. Use ctrl/C to stop ...\n";
}
$waiting = 1; if ($diagnostics) { warn "WAITING\n"; }
+# During waiting for file changes, handle ctrl/C and ctrl/break here, rather than letting
+# system handle them by terminating script (and any script that calls it). This allows,
+# for example, the clean up code in the following command line to work:
+# latexmk -pvc foo; cleanup;
&catch_break;
$have_break = 0;
WAIT: while (1) {
@@ -2894,7 +2964,7 @@ CHANGE:
$processing_time1 = processing_time();
# Does this do this job????
local $new_files = 0;
- rdb_for_some( [keys %current_primaries], sub{ $new_files += &rdb_find_new_filesB } );
+ rdb_for_some( [keys %current_primaries], sub{ $new_files += &rdb_find_new_files } );
if ($new_files > 0) {
warn "$My_name: New file(s) found.\n";
last WAIT;
@@ -2908,7 +2978,7 @@ CHANGE:
}
$waiting = 0; if ($diagnostics) { warn "NOT WAITING\n"; }
} #end infinite_loop CHANGE:
-} #END sub make_preview_continuousB
+} #END sub make_preview_continuous
#************************************************************
@@ -3488,40 +3558,25 @@ sub check_bibtex_log {
#**************************************************
-sub force_directory {
- # Usage, force_directory( dir, filename )
- # If filename contains no path component, return concatenation
- # of dir and filename,
- # else return filename
+sub normalize_force_directory {
+ # Usage, normalize_force_directory( dir, filename )
+ # Perform the following operations:
+ # Clean filename
+ # If filename contains no path component, insert dir in front
+ # Normalize filename
+ # Return result
my $default_dir = $_[0];
- my $filename = $_[1];
+ my $filename = clean_filename( $_[1] );
my ($base_name, $path ) = fileparse( $filename );
- if ( $path ne '' ) { $filename = "$default_dir$filename"; }
- return $filename;
-}
-
-# ------------------------------
-
-sub clean_file_name {
- # Convert quoted filename as found in log file to filename without quotes
- # Allows arbitrarily embedded double-quoted substrings, includes the
- # cases
- # 1. `"string".ext', which arises e.g., from \jobname.bbl:
- # when the base filename contains spaces, \jobname has quotes.
- # and from \includegraphics with basename specified.
- # Also deals with filenames written by asymptote.sty
- # 2. Or "string.ext" from \includegraphcs with basename and ext specified.
- # and from MiKTeX logfile for input files with spaces.
- # Doubled quotes (e.g., A""B) don't get converted.
- # Neither do unmatched quotes.
- my $filename = $_[0];
- while ( $filename =~ s/^([^\"]*)\"([^\"]+)\"(.*)$/$1$2$3/ ) {}
- return $filename;
-}
+ if ( $base_name eq $filename ) {
+ $filename = "$default_dir$filename";
+ }
+ return normalize_filename( $filename );
+} #END normalize force_directory
# ------------------------------
-sub parse_logB {
+sub parse_log {
# Scan log file for: dependent files
# reference_changed, bad_reference, bad_citation
# Return value: 1 if success, 0 if no log file.
@@ -3660,8 +3715,9 @@ LINE:
# First line OK
next LINE;
} else {
- warn "$My_name: Error on first line of '$log_name'. ".
- "This is apparently not a TeX log file.\n";
+ warn "$My_name: Error on first line of '$log_name'.\n".
+ "This is apparently not a TeX log file. ",
+ "The first line is:\n$_\n";
$failure = 1;
$failure_msg = "Log file '$log_name' appears to have wrong format.";
return 0;
@@ -3674,7 +3730,7 @@ LINE:
if ( ($block_type eq 'conversion')
&& /^\($current_pkg\)\s+Output file: <([^>]+)>/ )
{
- $delegated_output = $1;
+ $delegated_output = normalize_clean_filename($1);
}
next LINE;
}
@@ -3688,20 +3744,20 @@ LINE:
}
# Check for changed references, bad references and bad citations:
if (/Rerun to get/) {
- warn "$My_name: References changed.\n";
+ warn "$My_name: References changed.\n" if ! $silent;
$reference_changed = 1;
}
if (/LaTeX Warning: (Reference[^\001]*undefined)./) {
- warn "$My_name: $1 \n";
- $bad_reference = 1;
+ warn "$My_name: $1 \n" unless $silent;
+ $bad_reference++;
}
if (/LaTeX Warning: (Citation[^\001]*undefined)./) {
- warn "$My_name: $1 \n";
- $bad_citation = 1;
+ warn "$My_name: $1 \n" unless $silent;
+ $bad_citation++;
}
if (/Package natbib Warning: (Citation[^\001]*undefined)./) {
- warn "$My_name: $1 \n";
- $bad_citation = 1;
+ warn "$My_name: $1 \n" unless $silent;
+ $bad_citation++;
}
if ( /^Document Class: / ) {
# Class sign-on line
@@ -3717,7 +3773,7 @@ LINE:
next LINE;
}
if ( /^Output written on\s+(.*)\s+\(\d+\s+page/ ) {
- $primary_out = clean_file_name($1);
+ $primary_out = normalize_clean_filename($1);
warn "$My_name: Log file says output to '$primary_out'\n"
unless $silent;
next LINE;
@@ -3734,15 +3790,15 @@ LINE:
# When (pdf)latex is run with an -output-directory
# or an -aux_directory, the file name does not contain
# the output path; fix this, after removing quotes:
- $generated_log{ force_directory( $aux_dir1, clean_file_name($1) )} = 1;
+ $generated_log{normalize_force_directory( $aux_dir1, $1 )} = 1;
next LINE;
}
# Test for conversion produced by package:
if ( /^Package (\S+) Info: Source file: <([^>]+)>/ ) {
# Info. produced by epstopdf (and possibly others)
# about file conversion
- $current_pkg = clean_file_name($1);
- $delegated_source = clean_file_name($2);
+ $current_pkg = normalize_clean_filename($1);
+ $delegated_source = normalize_clean_filename($2);
$block_type = 'conversion';
next LINE;
}
@@ -3774,7 +3830,7 @@ LINE:
# When (pdf)latex is run with an -output-directory
# or an -aux_directory, the file name does not contain
# the output path; fix this, after removing quotes:
- $idx_file = force_directory( $aux_dir1, clean_file_name($idx_file) );
+ $idx_file = normalize_force_directory( $aux_dir1, $idx_file );
my ($idx_base, $idx_path, $idx_ext) = fileparseA( $idx_file );
$idx_base = $idx_path.$idx_base;
$idx_file = $idx_base.$idx_ext;
@@ -3801,7 +3857,7 @@ LINE:
# When (pdf)latex is run with an -output-directory
# or an -aux_directory, the file name does not contain
# the output path; fix this, after removing quotes:
- my $bbl_file = force_directory( $aux_dir1, clean_file_name($1) );
+ my $bbl_file = normalize_force_directory( $aux_dir1, $1 );
warn "$My_name: Non-existent bbl file '$bbl_file'\n $_\n";
$dependents{$bbl_file} = 0;
push @bbl_files, $bbl_file;
@@ -3809,27 +3865,28 @@ LINE:
}
foreach my $pattern (@file_not_found) {
if ( /$pattern/ ) {
- my $file = clean_file_name($1);
- my ($base, $path) = fileparse( $file );
+ my $file = clean_filename($1);
warn "$My_name: Missing input file: '$file' from line\n '$_'\n"
unless $silent;
- $dependents{$file} = 0;
- if ( $aux_dir && ( ($path eq './') || ($path eq '') ) ) {
- # This allows for the possibility that latex generated
+ $dependents{normalize_filename($file)} = 0;
+ my $file1 = $file;
+ if ( $aux_dir ) {
+ # Allow for the possibility that latex generated
# a file in $aux_dir, from which the missing file can
# be created by a cusdep (or other) rule that puts
# the result in $out_dir. If the announced missing file
# has no path, then it would be effectively a missing
# file in $aux_dir, with a path. So give this alternate
# location.
- $dependents{$aux_dir1.$file} = 0;
+ my $file1 = normalize_force_directory( $aux_dir1, $file );
+ $dependents{$file1} = 0;
}
next LINE;
}
}
if ( /^File: (.+) Graphic file \(type / ) {
# First line of message from includegraphics/x
- $dependents{clean_file_name($1)} = 1;
+ $dependents{normalize_clean_filename($1)} = 1;
next LINE;
}
# Now test for generic lines to ignore, only after special cases!
@@ -3958,6 +4015,7 @@ LINE:
}
INCLUDE_NAME:
foreach my $include_name (@new_includes) {
+ $include_name = normalize_filename( $include_name );
my ($base, $path, $ext) = fileparseB( $include_name );
if ( ($path eq './') || ($path eq '.\\') ) {
$include_name = $base.$ext;
@@ -4145,7 +4203,7 @@ CANDIDATE_PAIR:
}
}
return 1;
-} #END parse_logB
+} #END parse_log
#************************************************************
@@ -4153,21 +4211,28 @@ sub parse_fls {
my ($fls_name, $Pinputs, $Poutputs ) = @_;
%$Pinputs = %$Poutputs = ();
my $fls_file = new FileHandle;
+ # Make a note of current working directory
+ # I'll update it from the fls file later
+ # Currently I don't use this, but it would be useful to use
+ # this when testing prefix for cwd in a filename, by
+ # giving (pdf)latex's best view of the cwd. Note that the
+ # value given by the cwd() function may be mangled, e.g., by cygwin
+ # compared with native MSWin32.
+ my $cwd = good_cwd();
if ( ! open ($fls_file, "<$fls_name") ) {
return 1;
}
foreach $_ ( <$fls_file> ) {
- if (/^\s*INPUT\s+(.*)\s+$/) {
- my $file = $1;
- # Take precautions against aliasing of ./foo and foo:
- $file =~ s(^\./)();
- $$Pinputs{$file} = 1;
+ if (/^\s*PWD\s+(.*)\s+$/) {
+ $cwd = $1;
+ }
+ elsif (/^\s*INPUT\s+(.*)\s+$/) {
+ # Take precautions against aliasing of foo, ./foo and other possibilities for cwd.
+ $$Pinputs{ normalize_filename( $1 )} = 1;
}
elsif (/^\s*OUTPUT\s+(.*)\s+$/) {
- my $file = $1;
- # Take precautions against aliasing of ./foo and foo:
- $file =~ s(^\./)();
- $$Poutputs{$file} = 1;
+ # Take precautions against aliasing of foo, ./foo and other possibilities for cwd.
+ $$Poutputs{ normalize_filename( $1 )} = 1;
}
}
close( $fls_file );
@@ -4176,6 +4241,68 @@ sub parse_fls {
#************************************************************
+sub clean_filename {
+ # Convert quoted filename as found in log file to filename without quotes
+ # Allows arbitrarily embedded double-quoted substrings, includes the
+ # cases
+ # 1. `"string".ext', which arises e.g., from \jobname.bbl:
+ # when the base filename contains spaces, \jobname has quotes.
+ # and from \includegraphics with basename specified.
+ # Also deals with filenames written by asymptote.sty
+ # 2. Or "string.ext" from \includegraphcs with basename and ext specified.
+ # and from MiKTeX logfile for input files with spaces.
+ # Doubled quotes (e.g., A""B) don't get converted.
+ # Neither do unmatched quotes.
+ my $filename = $_[0];
+ while ( $filename =~ s/^([^\"]*)\"([^\"]+)\"(.*)$/$1$2$3/ ) {}
+ return $filename;
+}
+
+# ------------------------------
+
+sub normalize_filename {
+ # Remove various forms for cwd at start of filename.
+ # Convert to have directory separator = '/' only
+ my $file = $_[0];
+ my $file1 = $file; # Saved original value
+ my $cwd = good_cwd();
+ # Normalize files to use / to separate directory components:
+ # (Note both / and \ are allowed under MSWin.)
+ $cwd =~ s(\\)(/)g;
+ $file =~ s(\\)(/)g;
+
+ # Remove current directory string:
+ $file =~ s(^\./)();
+ $file =~ s(^$cwd/)();
+
+ return $file;
+}
+
+# ------------------------------
+
+sub normalize_clean_filename {
+ # Remove quotes around filename --- see clean_filename --- as from log file.
+ # Then remove any string for cwd, and convert to use '/' for directory separator,
+ # (and any other standardization) done by normalize_filename.
+ return normalize_filename( clean_filename( $_[0] ));
+}
+
+#************************************************************
+
+sub OS_preferred_filename {
+ # Usage: OS_preferred_filename(name)
+ # Returns filename with directory separator '/' converted
+ # to preferred conventions for current OS.
+ # Currently implemented: only '\' for MSWin32
+ my $file = $_[0];
+ if ( $^O eq 'MSWin32' ) {
+ $file =~ s(/)(\\)g;
+ }
+ return $file;
+}
+
+#************************************************************
+
sub parse_aux {
#Usage: parse_aux( $aux_file, \@new_bib_files, \@new_aux_files, \@new_bst_files )
# Parse aux_file (recursively) for bib files, and bst files.
@@ -4570,7 +4697,7 @@ LINE:
}
undef $in_handle;
# Set cus dependencies.
- &rdb_set_dependentsA( keys %rule_db );
+ &rdb_set_dependents( keys %rule_db );
#?? Check from_rules exist.
@@ -4673,7 +4800,7 @@ sub rdb_set_latex_deps {
# The following are also returned, but are global, to be used by caller
# $reference_changed, $bad_reference $bad_citation
- &parse_logB;
+ &parse_log;
my $fls_file = "$aux_dir1$root_filename.fls";
if ($recorder && test_gen_file($fls_file) ) {
parse_fls( $fls_file, \%source_fls, \%generated_fls );
@@ -4681,6 +4808,7 @@ sub rdb_set_latex_deps {
$dependents{$_} = 4;
}
foreach (keys %generated_fls) {
+ $_ = normalize_filename($_);
rdb_add_generated( $_ );
if ( exists($dependents{$_}) ) {
$dependents{$_} = 6;
@@ -4696,7 +4824,7 @@ sub rdb_set_latex_deps {
# missing input file might be correctable by a run of some
# other program whose running is provoked AFTER a run of
# (pdf)latex, we'll set a diagnostic and leave it to the
- # rdb_makeB to handle after all circular dependencies are
+ # rdb_make to handle after all circular dependencies are
# resolved.
# 2. The output file might be of a different kind than expected
# (i.e., dvi instead of pdf, or vv). This could
@@ -4722,7 +4850,7 @@ sub rdb_set_latex_deps {
rdb_create_rule( $from_rule, 'external', $makeindex, '', 1,
$idx_file, $ind_file, $ind_base, 1, 0, 0 );
print " ===Source file '$ind_file' for '$rule'\n"
- if ($diagnostics > -1);
+ if ($diagnostics);
rdb_ensure_file( $rule, $ind_file, $from_rule );
}
# Make sure the .ind file is treated as a detected source file;
@@ -4842,7 +4970,7 @@ NEW_SOURCE:
}
}
- my @more_sources = &rdb_set_dependentsA( $rule );
+ my @more_sources = &rdb_set_dependents( $rule );
my $num_new = $#more_sources + 1;
foreach (@more_sources) {
$dependents{$_} = 4;
@@ -4894,8 +5022,8 @@ sub test_gen_file {
#************************************************************
-sub rdb_find_new_filesB {
- # Call: rdb_find_new_filesB
+sub rdb_find_new_files {
+ # Call: rdb_find_new_files
# Assumes rule context for primary rule.
# Deal with files which were missing and for which a method
# of finding them has become available:
@@ -4987,30 +5115,30 @@ MISSING_FILE:
}
}
return $found;
-} # END rdb_find_new_filesB
+} # END rdb_find_new_files
#************************************************************
-sub rdb_set_dependentsA {
- # Call rdb_set_dependentsA( rules ...)
+sub rdb_set_dependents {
+ # Call rdb_set_dependents( rules ...)
# Returns array (sorted), of new source files.
local @new_sources = ();
local @deletions = ();
# Shouldn't recurse. The definite rules to be examined are given.
- rdb_for_some( [@_], 0, \&rdb_one_depA );
-# OLD rdb_recurseA( [@_], 0, \&rdb_one_depA );
+ rdb_for_some( [@_], 0, \&rdb_one_dep );
+# OLD rdb_recurse( [@_], 0, \&rdb_one_dep );
foreach (@deletions) {
my ($rule, $file) = @$_;
rdb_remove_files( $rule, $file );
}
&rdb_make_links;
return uniqs( @new_sources );
-} #END rdb_set_dependentsA
+} #END rdb_set_dependents
#************************************************************
-sub rdb_one_depA {
+sub rdb_one_dep {
# Helper for finding dependencies. One case, $rule and $file given
# Assume file (and rule) context for DESTINATION file.
@@ -5019,7 +5147,7 @@ sub rdb_one_depA {
if ( (! exists $possible_primaries{$rule}) && ($rule !~ /^cusdep/) ) {
return;
}
-#print "=============ONE_DEPA: '$rule' '$file'\n";
+#print "=============ONE_DEP: '$rule' '$file'\n";
local $new_dest = $file;
my ($base_name, $path, $toext) = fileparseA( $new_dest );
$base_name = $path.$base_name;
@@ -5141,7 +5269,7 @@ DEP:
}
}
}
-} #END rdb_one_depA
+} #END rdb_one_dep
#************************************************************
@@ -5247,7 +5375,7 @@ sub rdb_accessible {
# Call: rdb_accessible( rule, ...)
# Returns array of rules accessible from the given rules
local @accessible = ();
- rdb_recurseA( [@_], sub{ push @accessible, $rule; } );
+ rdb_recurse( [@_], sub{ push @accessible, $rule; } );
return @accessible;
} #END rdb_accessible
@@ -5255,8 +5383,8 @@ sub rdb_accessible {
#************************************************************
#************************************************************
-sub rdb_makeB {
- # Call: rdb_makeB( target, ... )
+sub rdb_make {
+ # Call: rdb_make( target, ... )
# Makes the targets and prerequisites.
# Leaves one-time rules to last.
# Does appropriate repeated makes to resolve dependency loops
@@ -5416,7 +5544,7 @@ sub rdb_makeB {
local $failure = 0; # General accumulated error flag
local $missing_dvi_pdf = ''; # Did primary run fail to make its output file?
local $runs = 0;
- local $too_many_runs = 0;
+ local $too_many_passes = 0;
local %rules_applied = ();
my $retry_msg = 0; # Did I earlier say I was going to attempt
# another pass after a failure?
@@ -5437,25 +5565,14 @@ sub rdb_makeB {
if ($diagnostics) {
print "MakeB: doing pre_primary and primary...\n";
}
- rdb_for_some( [@pre_primary, $primary], \&rdb_makeB1 );
- if ( ($runs > 0) && ! $too_many_runs ) {
- $retry_msg = 0;
- if ( $failure && $newrule_nofile ) {
- $retry_msg = 1;
- print "$My_name: Error on run, but found possibility to ",
- "make new source files\n";
- next PASS;
- }
- elsif ( $force_mode || (! $failure) ) {
- next PASS;
- }
+ rdb_for_some( [@pre_primary, $primary], \&rdb_make1 );
+ if ( ($runs > 0) && ! $too_many_passes ) {
+ next PASS;
}
- elsif ($runs == 0) {
+ if ($runs == 0) {
# $failure not set on this pass, so use value from previous pass:
$failure = $previous_failure;
- if ($retry_msg) {
- print "But in fact no new files made\n";
- }
+ if ($failure && !$force_mode ) { last PASS; }
}
if ( $missing_dvi_pdf ) {
# No output from primary, after completing circular dependence
@@ -5463,19 +5580,13 @@ sub rdb_makeB {
$failure = 1;
last PASS;
}
- if ($failure && !$force_mode ) { last PASS; }
if ($diagnostics) {
print "MakeB: doing post_primary...\n";
}
- rdb_for_some( [@post_primary], \&rdb_makeB1 );
- if ($failure) { last PASS; }
- if ($runs > 0) {
- # If something was run, repeat the loop to test for any changes
- # that entail further processing.
- next PASS;
- }
- # Get here if nothing was run.
- last PASS;
+ rdb_for_some( [@post_primary], \&rdb_make1 );
+ if ($runs == 0) {
+ last PASS;
+ }
}
continue {
# Re-evaluate rule classification and accessibility,
@@ -5487,18 +5598,11 @@ sub rdb_makeB {
&rdb_make_links;
}
}
- rdb_for_some( [@one_time], \&rdb_makeB1 );
+ rdb_for_some( [@one_time], \&rdb_make1 );
rdb_write( $fdb_name );
- if (! $silent) {
- # Diagnose of the runs
- if ( $#{keys %rules_applied } > -1 ) {
- print "$My_name: $runs runs. Rules applied:\n";
- foreach (sort keys %rules_applied) {
- print " '$_'\n";
- }
- }
- elsif ($failure && $force_mode) {
+ if (! $silent) {
+ if ($failure && $force_mode) {
print "$My_name: Errors, in force_mode: so I tried finishing targets\n";
}
elsif ($failure) {
@@ -5511,7 +5615,7 @@ sub rdb_makeB {
}
}
return $failure;
-} #END rdb_makeB
+} #END rdb_make
#-------------------
@@ -5556,9 +5660,9 @@ sub rdb_show_rule_errors {
#-------------------
-sub rdb_makeB1 {
- # Call: rdb_makeB1
- # Helper routine for rdb_makeB.
+sub rdb_make1 {
+ # Call: rdb_make1
+ # Helper routine for rdb_make.
# Carries out make at level of given rule (all data available).
# Assumes contexts for recursion, make, and rule, and
# assumes that source files for the rule are to be considered
@@ -5672,7 +5776,7 @@ sub rdb_makeB1 {
"without getting stable files\n";
warn " Use the -f option to force complete processing.\n"
if (! $force_mode);
- $too_many_runs = 1;
+ $too_many_passes = 1;
# Treat rule as completed, else in -pvc mode get infinite reruns:
$$Pout_of_date = 0;
$failure = 1;
@@ -5723,7 +5827,7 @@ sub rdb_makeB1 {
# For a primary rule, i.e., (pdf)latex, not to produce the
# expected output file may not be an error condition.
# Diagnostics were handled in parsing the log file.
- # Special action in main loop in rdb_makeB
+ # Special action in main loop in rdb_make
$missing_dvi_pdf = $$Pdest;
}
elsif ($return == -2) {
@@ -5743,20 +5847,20 @@ sub rdb_makeB1 {
# !!?? $failure_msg = $$Plast_message;
}
-} #END rdb_makeB1
+} #END rdb_make1
#************************************************************
-sub rdb_submakeB {
- # Call: rdb_submakeB
- # Makes all the source files for a given rule.
- # Assumes contexts for recursion, for make, and rule.
- %visited = %visited_at_rule_start;
- local $failure = 0; # Error flag
- my @v = keys %visited;
- rdb_do_files( sub{ rdb_recurse_rule( $$Pfrom_rule, 0,0,0, \&rdb_makeB1 ) } );
- return $failure;
-} #END rdb_submakeB
+#??sub rdb_submake {
+#?? # Call: rdb_submake
+#?? # Makes all the source files for a given rule.
+#?? # Assumes contexts for recursion, for make, and rule.
+#?? %visited = %visited_at_rule_start;
+#?? local $failure = 0; # Error flag
+#?? my @v = keys %visited;
+#?? rdb_do_files( sub{ rdb_recurse_rule( $$Pfrom_rule, 0,0,0, \&rdb_make1 ) } );
+#?? return $failure;
+#??} #END rdb_submake
#************************************************************
@@ -5783,7 +5887,7 @@ sub rdb_classify_rules {
@post_primary = ();
@one_time = ();
- rdb_recurseA( \@requested_targets, \&rdb_classify1, 0,0, \&rdb_classify2 );
+ rdb_recurse( \@requested_targets, \&rdb_classify1, 0,0, \&rdb_classify2 );
# Reverse, as tendency is to find last rules first.
@pre_primary = reverse @pre_primary;
@@ -5878,7 +5982,7 @@ sub rdb_run1 {
# Source file data, by definition, correspond to the file state just
# before the latest run, and the run_time to the time just before the run:
- &rdb_update_filesA;
+ &rdb_update_files;
$$Prun_time = time;
$$Pchanged = 0; # No special changes in files
$$Plast_result = 0;
@@ -6019,7 +6123,7 @@ sub rdb_dummy_run1 {
# Source file data, by definition, correspond to the file state just before
# the latest run, and the run_time to the time just before the run:
- &rdb_update_filesA;
+ &rdb_update_files;
$$Prun_time = time;
$$Pchanged = 0; # No special changes in files
$$Plast_result = 0;
@@ -6085,6 +6189,11 @@ sub Run_subst {
'%Z' => $q.$out_dir1.$q,
'%%' => '%' # To allow literal %B, %R, etc, by %%B.
);
+ if ( ($^O eq "MSWin32" ) && $MSWin_back_slash ) {
+ foreach ( '%R', '%B', '%T', '%S', '%D', '%Y', '%Z' ) {
+ $subst{$_} =~ s(/)(\\)g;
+ }
+ }
my @tokens = split /(%.)/, $ext_cmd;
foreach (@tokens) {
@@ -6169,14 +6278,33 @@ sub rdb_primary_run {
# up-to-date:
rdb_do_files( sub { if ($$Pcorrect_after_primary) {&rdb_update1;} } );
+#?? # There may be new source files, and the run may have caused
+#?? # circular-dependency files to be changed. And the regular
+#?? # source files may have been updated during a lengthy run of
+#?? # latex. So redo the makes for sources of the current rule:
+#?? my $submake_return = &rdb_submake;
+#?? &rdb_clear_change_record;
+#?? &rdb_flag_changes_here(0);
+#?? if ($$Pout_of_date && !$silent) {
+#?? &rdb_diagnose_changes( "Rule '$rule': " );
+#?? }
+
$updated = 1; # Flag that some dependent file has been remade
+#?? # Fix the state of the files as of now: this will solve the
+#?? # problem of latex and pdflatex interfering with each other,
+#?? # at the expense of some non-optimality
+#?? #?? Check this is correct:
+#?? &rdb_update_files;
+
if ( $diagnostics ) {
print "$My_name: Rules after run: \n";
rdb_show();
}
$return = $return_latex;
+
+# ???? Is the following needed?
if ($return_latex && $$Pout_of_date_user) {
print "Error in (pdf)LaTeX, but change of user file(s), ",
"so ignore error & provoke rerun\n"
@@ -6187,12 +6315,12 @@ sub rdb_primary_run {
# Summarize issues that may have escaped notice:
my @warnings = ();
if ($bad_reference) {
- push @warnings, "Latex could not resolve all references";
+ push @warnings, "Latex failed to resolve $bad_reference reference(s)";
}
if ($bad_citation) {
- push @warnings, "Latex could not resolve all citations";
+ push @warnings, "Latex failed to resolve $bad_citation citation(s)";
}
- if ($#warnings > 0) {
+ if ($#warnings > -1) {
show_array( "$My_name: Summary of warnings:", @warnings );
}
return $return;
@@ -6296,7 +6424,7 @@ sub rdb_file_change1 {
sub rdb_new_changes {
&rdb_clear_change_record;
- rdb_recurseA( [@_], sub{ &rdb_flag_changes_here(1); } );
+ rdb_recurse( [@_], sub{ &rdb_flag_changes_here(1); } );
return ($#changed >= 0) || ($#no_dest >= 0) || ($#rules_to_apply >= 0);
} #END rdb_new_changes
@@ -6416,8 +6544,8 @@ sub rdb_diagnose_changes {
#************************************************************
-sub rdb_recurseA {
- # Call: rdb_recurseA( rule | [ rules],
+sub rdb_recurse {
+ # Call: rdb_recurse( rule | [ rules],
# \&rule_act1, \&file_act1, \&file_act2,
# \&rule_act2 )
# The actions are pointers to subroutines, and may be null (0, or
@@ -6451,7 +6579,7 @@ sub rdb_recurseA {
foreach $rule ( @heads ) { rdb_recurse_rule( $rule, @_ ); }
-} #END rdb_recurseA
+} #END rdb_recurse
#************************************************************
@@ -6533,7 +6661,7 @@ sub rdb_recurse_rule {
$depth++;
# We may need to repeat actions on dependent rules, without being
# blocked by the test on visited files. So save %visited:
- local %visited_at_rule_start = %visited;
+ # NOT CURRENTLY USED!! local %visited_at_rule_start = %visited;
# At end, the last value set for %visited wins.
rdb_one_rule( $rule, $rule_act1, \&rdb_recurse_file, $rule_act2 );
$depth--;
@@ -6797,8 +6925,8 @@ sub rdb_update_gen_files {
#************************************************************
-sub rdb_update_filesA {
- # Call: rdb_update_filesA
+sub rdb_update_files {
+ # Call: rdb_update_files
# Assumes rule context. Update source files of rule to current state.
rdb_do_files( \&rdb_update1 );
}
@@ -6897,7 +7025,7 @@ sub show_array {
# Then print rest of @_, one item per line preceeded by some space
warn "$_[0]\n";
shift;
- if ($#_ >= 0) { foreach (@_){ warn " '$_'\n";} }
+ if ($#_ >= 0) { foreach (@_){ warn " $_\n";} }
else { warn " NONE\n"; }
}
@@ -7131,6 +7259,7 @@ sub get_checksum_md5 {
my $md5 = Digest::MD5->new;
my $ignore_pattern = '';
+#&traceback;
#warn "======= GETTING MD5: $source\n";
if ( $source eq "" ) {
# STDIN:
@@ -7620,7 +7749,7 @@ sub Run {
# string is then to be obeyed by the system, and any necessary
# detaching (as of a previewer) is done by the executed command(s).
# internal: The following command string, of the form 'routine arguments'
-# specifies a called to the named Perl subroutine.
+# specifies a call to the named Perl subroutine.
# NONE: This does not run anything, but causes an error message to be
# printed. This is provided to allow program names defined in the
# configuration to flag themselves as unimplemented.
@@ -7797,10 +7926,11 @@ sub find_process_id {
#============================================
-sub good_cwd {
- # Return cwd, but under cygwin, convert to MSWin path
- # so that result can be used for input to MSWin programs
- # as well as cygwin programs
+sub cache_good_cwd {
+ # Set cached value of cwd to current cwd.
+ # Under cygwin, the cwd is converted to a native MSWin path so
+ # that the result can be used for input to MSWin programs as well
+ # as cygwin programs.
my $cwd = cwd();
if ( $^O eq "cygwin" ) {
my $cmd = "cygpath -w \"$cwd\"";
@@ -7818,22 +7948,37 @@ sub good_cwd {
" 'Win_cwd'\n";
}
}
- return $cwd;
-}
+ $cache{cwd} = $cwd;
+} # END cache_good_cwd
+
+#============================================
+
+sub good_cwd {
+ # Return cwd, but under cygwin, convert to MSWin path.
+ # Use cached result
+ return $cache{cwd};
+} # END good_cwd
#============================================
# Directory stack routines
sub pushd {
- push @dir_stack, cwd();
- if ( $#_ > -1) { chdir $_[0]; }
+ push @dir_stack, [cwd(), $cache{cwd}];
+ if ( $#_ > -1) {
+ chdir $_[0];
+ &cache_good_cwd;
+ }
}
#************************************************************
sub popd {
- if ($#dir_stack > -1 ) { chdir pop @dir_stack; }
+ if ($#dir_stack > -1 ) {
+ my $Parr = pop @dir_stack;
+ chdir $$Parr[0];
+ $cache{cwd} = $$Parr[1];
+ }
}
#************************************************************