new script texdiff 0.4 (24sep09)

git-svn-id: svn://tug.org/texlive/trunk@15464 c570f23f-e606-0410-a88d-b1316a301751

10 files changed, 1450 insertions, 28 deletions

diff --git a/Build/source/texk/texlive/linked_scripts/Makefile.am b/Build/source/texk/texlive/linked_scripts/Makefile.am
index aa3c076ca63..a98a7c0edc4 100644
--- a/Build/source/texk/texlive/linked_scripts/Makefile.am
+++ b/Build/source/texk/texlive/linked_scripts/Makefile.am
@@ -83,6 +83,7 @@ nobase_dist_script_SCRIPTS = \
 	splitindex/perl/splitindex.pl \
 	svn-multi/svn-multi.pl \
 	texcount/texcount.pl \
+	texdiff/texdiff \
 	texdirflatten/texdirflatten \
 	texloganalyser/texloganalyser \
 	thumbpdf/thumbpdf.pl \
diff --git a/Build/source/texk/texlive/linked_scripts/Makefile.in b/Build/source/texk/texlive/linked_scripts/Makefile.in
index 18d67dc0a27..58ca08c698d 100644
--- a/Build/source/texk/texlive/linked_scripts/Makefile.in
+++ b/Build/source/texk/texlive/linked_scripts/Makefile.in
@@ -226,6 +226,7 @@ nobase_dist_script_SCRIPTS = \
 	splitindex/perl/splitindex.pl \
 	svn-multi/svn-multi.pl \
 	texcount/texcount.pl \
+	texdiff/texdiff \
 	texdirflatten/texdirflatten \
 	texloganalyser/texloganalyser \
 	thumbpdf/thumbpdf.pl \
diff --git a/Build/source/texk/texlive/linked_scripts/texdiff/texdiff b/Build/source/texk/texlive/linked_scripts/texdiff/texdiff
new file mode 100755
index 00000000000..4c27fab205a
--- /dev/null
+++ b/Build/source/texk/texlive/linked_scripts/texdiff/texdiff
@@ -0,0 +1,554 @@
+#! /usr/bin/env perl
+#
+# See POD documentation below or use:
+#
+# $ perldoc texdiff
+#
+# to see embedded documentation. Alternatively, you can create manual
+# or HTML pages using pod2man and pod2html.  Below the POD part you
+# can add your own macros to be skipped by the edit marks.
+#
+# $Id: texdiff 766 2009-09-24 19:19:38Z cengiz $
+
+=pod
+
+=head1 NAME
+
+B<texdiff> - Compares two (La)TeX documents to create a merged version showing changes, similar to that of 'Change Tracking' in some word processors.
+
+=head1 SYNOPSIS
+
+texdiff [--nofloats|-n] old.tex new.tex [diff.tex]
+
+=head1 DESCRIPTION
+
+The first two files are compared and a new TeX file is output. When
+the output file is processed with (La)TeX it marks new changes with
+blue and old text with red with a strike-through line. Furthermore,
+passages with changes are marked at the margin with grey bars by the
+LaTeX C<changebar> package (although only after running C<dvips>, in
+C<xdvi> the bars are one inch too far left to compensate the one inch
+offset inserted by TeX printer drivers).
+
+C<texdiff> uses and therefore requires the C<wdiff> command to insert
+these marks. If LaTeX macros are included in those striked out or
+underlined passages, the latex run will most likely fail. The source
+of most problems lies in C<wdiff> tearing apart pairs of
+braces. Therefore C<texdiff> is a perl script that calls C<wdiff> internally
+and fixes C<wdiff>'s output by re-pairing braces again and handling some
+commonly used LaTeX macros.
+
+For texdiff to work, the following LaTeX code must be inserted in the
+preamble of the LaTeX document:
+
+ \usepackage{xcolor} \usepackage{ulem} \usepackage{changebar}
+ \newcommand\TLSins[1]{\cbstart{}\textcolor{ins}{\uline{#1}}\cbend{}}
+ \newcommand\TLSdel[1]{\cbdelete{}\textcolor{del}{\sout{#1}}}
+
+Define editing colors C<ins> and C<del> with existing C<xcolor> color names:
+ \colorlet{ins}{blue} \colorlet{del}{red}
+
+Or from scratch:
+ \definecolor{ins}{rgb}{0, 0.5, 0}
+
+These macros are NOT automatically interted at \begin{document} like
+the original scripts did (see the B<ACKNOWLEDGMENTS> section below),
+because this will not work on files of a multi-file document (those
+included by \include or \input).  Furthermore, if you insert the
+macros manually, you can tune them as you like, i. e. change text
+color or position of changebars. Have a look at the documentation of
+the ulem and changebar packages on how to do this!
+
+=head1 OPTIONS
+
+=over
+
+=item B<--nofloats>, B<-n>
+
+If given, skips contents of figure environments, but does show
+insertions and deletions in the caption commands. This is done to
+avoid complex messups in subfloat or complex figure environments.
+
+=item B<--debug>, B<-d>
+
+Turns on debugging. Temporary files that contain numbered braces are
+kept and a raw difference file is written as output file name appended
+with '-wdiff.tex'. In addition, several regular expression diagnostics
+are printed. B<Warning: produces a lot of output.>
+
+=back
+
+=head1 AUTHOR
+
+Mark Doll <markdoll<AT>gmx.net>, Cengiz Gunay <cengique<AT>users.sf.net>.
+
+=head1 ACKNOWLEDGMENTS
+
+=over
+
+=item B<*>
+
+Version 0.4, by CG, 2009/09/15. Added use of GetOpt to take an optional
+parameter to skip float (e.g., figure or table) contents. Added an
+optional debug mode. Embedded POD documentation. Fixed problem
+with insertion and deletions appearing in the middle of sectioning
+commands by throwing off LaTeX.
+
+=item B<*>
+
+Version 0.3, modified by Cengiz Gunay <cengique@users.sf.net>,
+2009/06/30. Added some Latex commands that should be excluded and
+fixed handling of '\%' characters.
+
+=item B<*>
+
+Version 0.2, is a perl implementation of TeXdiff by Mark Doll
+<markdoll@gmx.net>, 2006/08/09. It was derived from the original bash
+and perl scripts created by Robert Maron <robmar@mimuw.edu.pl>,
+available at http://www.robmar.net/TexDiff/. This version of texdiff
+is available at http://mark.doll.name/texdiff/.
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyleft 2006-2009, Mark Doll and Cengiz Gunay
+
+This library is free software; you may redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+# TODO:
+#
+# - after removing excluded commands, unify deletions and insertions
+# if there're no other differences
+# - investigate causes of missing brace pairs
+# - put option to add preamble automatically?
+# - put option to flatten first?
+
+use Getopt::Long qw(GetOptions);
+use Pod::Usage;
+use strict;
+use re 'eval';			# CG: for RE code for skipping float contents
+
+## Problematic commands, that will be removed from deletions and moved
+## out of insertions. The array index equals the number of mandatory
+## command parameters.
+
+## INSERT YOUR HOMEBREW MACROS HERE!!!
+# Omit leading backslash and separate by '|', since this will be
+# interpreted as a regular expression.
+my @mycommands = (
+  'RCS\$[^\$]*\$',
+  'cite\w*p|citet|svnid|citep',
+  'if\w+',
+  '',
+  '',
+  'Abb(?:ildung)?(?:p[psw])?',
+);
+
+## standard LaTeX macros
+#FIXME: add more macros here!
+my @stdcommands = (
+  '\\\\|item|\%',   # will match one backslash inside regex
+  'includegraphics|begin|end|input|fancyfoot|subfig|subfloat',
+);
+
+# GetOpt::Long::
+my $nofloats = 0;
+my $help;
+my $DEBUG=0;
+
+my $result = GetOptions ("nofloats|n" => \$nofloats,
+			 "debug|d" => \$DEBUG,
+			 "help|?" => \$help );
+
+#print "Figs= $nofloats\n";
+
+pod2usage( -section => "SYNOPSIS") if ($#ARGV < 1 || $help);
+
+## allow nesting of braces (aka curly brackets) up to 10**$w-1 levels
+my $w = 2;
+
+## wdiff marker
+my $delstart = "TLSdel";
+my $delend   = "TLEdel";
+my $insstart = "TLSins";
+my $insend   = "TLEins";
+
+## LaTeX macros used to mark deletions/insertions in the output
+my $texdelstart = "\\protect\\TLSdel\{";
+my $texdelend   = "\}";
+my $texinsstart = "\\protect\\TLSins\{";
+my $texinsend   = "\}";
+
+
+## parse command line
+my ($in1,$in2,$out) = @ARGV;
+
+## create temp files from input files with all comments removed and
+## all braces numbered
+write_temp($w,$in1,'tmp1.'.$$);
+write_temp($w,$in2,'tmp2.'.$$);
+sub write_temp {
+    my ($w,$file,$tmp) = @_;
+
+    $_ = `cat $file`;
+
+    ## mark pairs of braces with the same $w digits.
+    # i. e. convert "{ { {} } {}}" to "{01 {02 {03}03 }02 {02}02}01" ($w=2).
+    #
+    # FIXME: marking braces before comparison makes them appear
+    # as changes if depth of nesting changes.
+
+    my $max=10**$w-1;
+    $::cnt = 0;
+    s/
+      (?<!\\)
+      (?:
+        \{ (?{ die "Fatal: Braces nested deeper than $max!\n" if ($::cnt >= $max);
+               sprintf("\{%0${w}d",++$::cnt) }) |
+        \} (?{ sprintf("\}%0${w}d",$::cnt--) })
+      )
+    /$^R/gx;
+
+    print STDERR "Warning: ".abs($::cnt)." unmatched ".($::cnt > 0 ? "opening" : "closing")
+         ." brace".(abs($::cnt) == 1 ? "" : "s")."\n" if ($::cnt != 0);
+
+    ## remove comments
+    # also remove trailing newline and all whitespace at the
+    # beginning of the following line like TeX does it
+    s/(?<!\\)%.*?\n[ \t]*//g;
+
+    ## output
+    open(O,">$tmp") or return("Can't open $tmp: $!\n");
+    print O;
+    close O;
+}
+
+my $wdiff_cmd = ( "wdiff --avoid-wraps"
+                . " --start-delete=\'$delstart\' --end-delete=\'$delend\'"
+                . " --start-insert=\'$insstart\' --end-insert=\'$insend\'"
+                . " tmp1.$$ tmp2.$$");
+$_ = `$wdiff_cmd`;
+
+if ($DEBUG) {
+  ## save wdiff output
+  if (open(O,">$out-wdiff.tex")) {
+    print O;
+    close O;
+  } else {
+    print STDERR "Failed to write wdiff output file $out-wdiff.tex.\n";;
+  }
+}
+
+###
+### Phase I: generic processing
+###
+
+## remove paragraph boundaries (two newlines) that wdiff falsely inserted
+# FIXME: Does wdiff always insert same spacing before deletion and the
+# following insertion?!
+s/(
+    ([ \t]*\n[ \t]*\n[ \t]*)
+    $delstart (?!$delend)
+    (?: . (?!$delend) )* .
+    $delend
+  )
+  \2
+  $insstart
+ /$1\n$insstart/gsx;
+
+
+## Restore backslashed Spaces (prevents falsely escaped right braces)
+# Escaped spaces '\ ' at the end of an insertion/deletion will result in the
+# backslash before the end marker and the space after it. Therefore swap
+# whitespace and end marker. (This might falsely make the insertion/deletion
+# span the following paragraph boundary, but this will be fixed by the next
+# step below).  When the end markers finally get replaced by $tex(ins|del)end,
+# which typically is a '}', without this swapping, this would result in escaped
+# right braces and LaTeX complaining about a missing right brace.
+s/(?<!\\)\\($delend|$insend)(\s+)/\\$2$1/g;
+
+
+## split up insertions and deletions that span multiple paragraphs
+while (
+  s/(
+      $delstart (?!$delend)
+      (?: . (?! [ \t]*\n[ \t]*\n[ \t]* | $delend ) )*? .?
+    )
+    ([ \t]*\n[ \t]*\n[ \t]*)
+   /$1$delend$2$delstart/gsx ) {}
+
+while (
+  s/(
+      $insstart (?!$insend)
+      (?: . (?! [ \t]*\n[ \t]*\n[ \t]* | $insend ) )*? .?
+    )
+    ([ \t]*\n[ \t]*\n[ \t]*)
+   /$1$insend$2$insstart/gsx ) {}
+
+
+## Handle unpaired braces
+# Search for all unpaired braces, meaning, they are inside a text
+# deletion or insertion passage, but their counterpart is not within
+# that passage. If they are located inside a deletion passage, simply
+# delete them.  If there a inside a insertion passage, move them out
+# by placing an insertion end marker before and an insertion start
+# marker after the brace. In case that a left brace belongs to a
+# preceding LaTeX command (plus and any more zero-parameter commands
+# directly preceding that command; that's matched by a non-whitespace
+# character sequence started by a backslash), also delete resp. move
+# that/these command(s) together with the left brace.
+#
+# FIXME: why is while loop necessary here, but not for handling right braces?
+#
+# FIXME: If there's not at least one character before the character
+# sequence specified in the look-ahead negative assertion, the match
+# would stop at the second occurence of that sequence instead of the
+# first. This leads to the effect, that the following regular
+# expressions may skip $(del|ins)end if it follows directly the left
+# brace (+number). The use of *? instead of * mitigates this effect,
+# but it's not perfect.
+
+## 1. unpaired left brace inside a deletion: delete brace and any preceding LaTeX command(s)
+while (
+  s/(						# $1: everything till unpaired '{'
+      $delstart (?!$delend)			# would otherwise not detect end marker of empty deletions!
+      (?: . (?!$delend))*?
+    )
+    ( (?<!\\) \\\S* )?				# $2: optional command(s) preceding the '{'
+    (?<!\\) \{([0-9]{$w}) (?!\}\3)		# '{' and $3: number
+    (						# $4: everything what's remaining
+      (?: . (?! (?<!\\)\}\3 | $delend) )*? .?	# will stop at a matching '}', too
+      $delend					# won't match if preceeding line found a matching '}'
+    )
+   /$1$4/sgx ) {}				# remove the '{' with number and any preceeding command(s)
+
+## 2. unpaired left brace inside an insertion: move brace out including any preceding LaTeX command(s)
+while (
+  s/(
+      $insstart (?!$insend)
+      (?: . (?!$insend))*?
+           )
+           ( \s* (?: (?<!\\) \\\S* )? )		# also move preceeding whitespace preceding out
+    (?<!\\) \{([0-9]{$w}) (?!\}\3)
+    (
+      (?: . (?! (?<!\\)\}\3 | $insend) )*? .?
+      $insend
+    )
+   /$1$insend$2\{$3$insstart$4/sgx ) {}		# move the '{' with number and any preceeding command(s) out
+
+## 3. unpaired right brace inside a deletion: delete brace
+s/(							# $1: everything till unpaired '}'
+    $delstart (?!$delend)				# would otherwise not detect end marker of empty deletions!
+    (?> (?:						## grab all paired braces (prevent backtracking):
+      (?: . (?! (?<!\\)\{[0-9]{$w} | $delend) )*? .?	# any text till next (unescaped) '{'
+      \{([0-9]{$w})					# '{' with $2: number
+      (?: . (?! (?<!\\)\}\2        | $delend) )*? .?	#any text till matching '}'
+      \}\2						# '}' with same number $2
+    )* )						## end of disabled backtracking
+    (?: . (?!$delend))*?				# any text
+  )
+  ( \}[0-9]{$w} )					# $3: the (first) unpaired '}' with number
+  (							# $4: everything what's remaining
+    (?: . (?!$delend))*? .?
+    $delend
+  )
+ /$1$4/sgx;						# remove the unpaired '}' with number
+
+## 4. unpaired right brace inside an insertion: move brace out
+s/(
+    $insstart (?! $insend)
+    (?> (?:
+      (?: . (?! (?<!\\)\{[0-9]{$w} | $insend ) )*? .?
+      \{([0-9]{$w})
+      (?: . (?! (?<!\\)\}\2        | $insend ) )*? .?
+      \}\2
+    )* )
+    (?: . (?!$insend))*?
+  )
+  ( \}[0-9]{$w} \s* )				# also move whitespace following the '}' out
+  (
+    (?: . (?!$insend))*? .?
+    $insend
+  )
+ /$1$insend$3$insstart$4/sgx;				# move the unpaired '}' with number out
+
+
+## concatenate consecutive insertions and consecutive deletions
+# Don't concatenate over paragraph (two newlines) boundaries, since
+# the LaTeX macros used to mark changed passages can't span multiple
+# paragraphs. Run this before handling LaTeX-commands specifically to
+# allow as much of a command inside a single passage as possible.
+s/$delend([ \t]*\n?[ \t]*)$delstart/$1/g;
+s/$insend([ \t]*\n?[ \t]*)$insstart/$1/g;
+
+
+
+###
+### Phase II: LaTeX-command specific processing
+###
+
+## For COMPLETELY removed/inserted sections, move section command out.
+#
+# May create empty insertions/removals, therefore execute this before
+# the removal of empty (or whitespace only) insertions/removals!
+#
+# Partly changed section titles have been handled by the preceding
+# rules. In case of removal, prevent renumbering by using asterisk
+# form; in case of insertion, add a short form without markers to
+# prevent problems when LaTeX'ing the diff.
+my $sectionre = "chapter|section|subsection|subsubsection|paragraph";
+s/
+  (						# $1: text before section command
+    $delstart (?!$delend)
+    (?: . (?!$delend) )*?
+  )
+  \\($sectionre)				# '\' and $2: section command
+  \{([0-9]{$w})					# '{' and $3: number
+  ( (?: . (?! (?<!\\)\}\3 | $delend) )*? .? )	# $4: section command parameter (title)
+  ( \}\3 \s* )				# '}' and same number plus following whitespace
+  /$1$delend\\$2\*\{$3$delstart$4$delend$5$delstart/sgx;
+  # move section commmand out and convert command to asterisk form
+
+s/
+  (						# $1: text before section command
+    $insstart (?!$insend)
+    (?: . (?!$insend) )*?
+  )
+  \\($sectionre)				# '\' and $2: section command
+  \{([0-9]{$w})					# '{' and $3: number
+  ( (?: . (?! (?<!\\)\}\3 | $insend) )*? .? )	# $4: section command parameter (title)
+  ( \}\3 \s* )				# $5: '}' and same number plus following whitespace
+  /$1$insend\\$2\[$4\]\{$3$insstart$4$insend$5$insstart/sgx;
+  # move sections command out and add short form without markers
+
+s/
+  \\($sectionre)				# '\' and $1: section command
+  (?{ $::titlecontents = ""; $::optcontents = "" }) # initialize vars
+  ( (?: \[ (?: (?! \] ) . )* \]			# $2: optional argument
+        (?{ print "====Found \\$1 opt arg '$^N'." if $DEBUG; })
+     )? )
+  \{([0-9]{$w})    				# '{' and $3: number
+  (?:			# Groups text followed by ins or del block
+      ( (?! \}\3) (?: (?! \}\3 ) . )*? (?= $insstart | $delstart ) )
+      (?{ print "=====Found ins\|del start before section end '$^N'!\n" if $DEBUG;
+          $::titlecontents .= $^N; $::optcontents .= $^N })
+      (?: ( $delstart (?: (?!$delend) . )* $delend )
+        (?{ print "=====Found del end!\n" if $DEBUG;
+            $::titlecontents .= $^N }) )?  # dont keep deletions in opt
+      (?: $insstart ( (?: (?!$insend) . )* ) $insend
+        (?{ print "=====Found ins end '$^N'!\n" if $DEBUG;
+            $::titlecontents .= "$insstart$^N$insend"; 
+            $::optcontents .= $^N }) )?  # keep insertions in opt
+  )+ #  end text + ins or del (need at least one for this to succeed)
+  (?: ( (?: (?! \}\3 ) . )+ )
+      (?{ print "=====Found text after ins\|del end and before section end: '$^N'!\n" if $DEBUG;
+          $::titlecontents .= $^N; $::optcontents .= $^N}) )?
+  (?: \}\3)				# '}' and same number
+  (?{ print "=====End of \\$1.\n" if $DEBUG;
+      $::optcontents = ($2 ne "" ? $2 : $::optcontents ) })
+  /\\$1\[$::optcontents\]\{$3$::titlecontents\}$3/sgx;
+  # Add a short form with removed insertions and deletions in section commands
+  # Will not add the short form if it already exists.
+
+## Remove problematic commands from deletions and move them out of insertions
+for my $num (0 .. ($#mycommands>$#stdcommands ? $#mycommands : $#stdcommands)) {
+  my $command = "";
+
+  $command .= $mycommands[$num]	 if ($mycommands[$num]                      );
+  $command .= "|"                if ($mycommands[$num] && $stdcommands[$num]);
+  $command .= $stdcommands[$num] if (                     $stdcommands[$num]);
+
+  next if(!$command);
+
+  s/
+    (						# $1: anything before the command
+      $delstart (?!$delend)
+      (?: . (?!$delend) )*? .?
+    )
+    (						# $2: the command with all its parameters
+      \\(?:$command)				# the command itself (preceded by a '\')
+      (?: \[ .*? (?<!\\)\] )*			# any optional parameters (enclosed in '[]')
+      (?: \{([0-9]{$w}) .*? (?<!\\)\}\3 ){$num} # $num mandatory parameters
+    )
+   /$1/gsx;
+
+  s/(
+      $insstart (?!$insend)
+      (?: . (?!$insend) )*? .?
+    )
+    (
+      \\(?:$command)
+      (?: \[ .*? (?<!\\)\] )*
+      (?: \{([0-9]{$w}) .*? (?<!\\)\}\3 ){$num}
+    )
+   /$1$insend$2$insstart/gsx;
+}
+
+## CG: optionally leave figure contents intact: remove deletions and keep
+## insertions. do not touch the caption command
+## => tested with multiple figures
+## => tested with multi-captions and no captions. should work with subfig and subfloat
+
+s/( \\begin\{[0-9]{$w}\s*((?:figure|table)\*?)(?{ $::floatname = $^N })\s*\}[0-9]{$w} )	 # begin figure or table line
+  (?{ print "=====Found figure!\n" if $DEBUG;
+      $::figcontents=$^N })            # Save into variable
+  (?: 			# Groups BLOCK + caption command
+    (?:			# BLOCK of insert and delete commands until caption
+      ( (?! \\caption) (?: (?! $insstart | $delstart | \\caption | \\end\{[0-9]{$w}\s*figure ) . )* )
+      (?{ print "=====Found ins\|del start or caption '$^N'!\n" if $DEBUG;
+          $::figcontents .= $^N })
+      (?: $delstart (?: (?!$delend) . )* $delend
+        (?{ print "=====Found del end!\n" if $DEBUG;  }) )?  # dont keep deletions
+      (?: $insstart ( (?: (?!$insend) . )* ) $insend
+        (?{ print "=====Found ins end '$^N'!\n" if $DEBUG; $::figcontents .= $^N }) )?  # keep insertions
+    )*?			#  end BLOCK
+    (?: (\\caption (?: \[ (?: (?! (?<!\\) \]) . )* \])? \s* 
+      \{ ([0-9]{$w}) (?{ $::captiondepth=$^N })
+      (?: (?! \}(??{ $::captiondepth })) . )* \}(??{$::captiondepth}) )
+      (?{ print "=====" . pos() . ": Found caption ($::captiondepth) '$^N'!\n" if $DEBUG; $::figcontents .= $^N }) )?  	 # caption
+  )*?			# end BLOCK + caption
+  ( \\end\{[0-9]{$w}\s*figure\*?\s*\}[0-9]{$w} )
+  (?{ print "=====Found figure end '$^N'!\n" if $DEBUG; $::figcontents .= $^N })
+  /$::figcontents/gsx;
+
+###
+### Phase III: cleaup, conversion, output
+###
+
+## remove insertions and removals that are empty or only mark whitespace
+s/$delstart(\s*)$delend/$1/g;
+s/$insstart(\s*)$insend/$1/g;
+
+
+## remove brace numbers
+s/(?<!\\)(?:(\{|\})[0-9]{$w})/$1/g;
+
+
+## substitute final LaTeX macro code
+s/$delstart/$texdelstart/g;
+s/$delend/$texdelend/g;
+s/$insstart/$texinsstart/g;
+s/$insend/$texinsend/g;
+
+
+## output
+if ($out ne "") {
+  if (open(O,">$out")) {
+    print O;
+    close O;
+  } else {
+    print STDERR "Failed to write output file $out.\n";
+  }
+} else {
+  print ;
+}
+
+## remove temp files
+if (!$DEBUG) {
+  unlink('tmp1.'.$$);
+  unlink('tmp2.'.$$);
+}
diff --git a/Master/texmf-dist/doc/support/texdiff/README b/Master/texmf-dist/doc/support/texdiff/README
new file mode 100644
index 00000000000..c0485dacbf0
--- /dev/null
+++ b/Master/texmf-dist/doc/support/texdiff/README
@@ -0,0 +1,84 @@
+NAME
+    texdiff - Compares two (La)TeX documents to create a merged version
+    showing changes, similar to that of 'Change Tracking' in some word
+    processors.
+
+SYNOPSIS
+    texdiff [--nofloats|-n] old.tex new.tex [diff.tex]
+
+DESCRIPTION
+    The first two files are compared and a new TeX file is output. When the
+    output file is processed with (La)TeX it marks new changes with blue and
+    old text with red with a strike-through line. Furthermore, passages with
+    changes are marked at the margin with grey bars by the LaTeX "changebar"
+    package (although only after running "dvips", in "xdvi" the bars are one
+    inch too far left to compensate the one inch offset inserted by TeX
+    printer drivers).
+
+    "texdiff" uses and therefore requires the "wdiff" command to insert
+    these marks. If LaTeX macros are included in those striked out or
+    underlined passages, the latex run will most likely fail. The source of
+    most problems lies in "wdiff" tearing apart pairs of braces. Therefore
+    "texdiff" is a perl script that calls "wdiff" internally and fixes
+    "wdiff"'s output by re-pairing braces again and handling some commonly
+    used LaTeX macros.
+
+    For texdiff to work, the following LaTeX code must be inserted in the
+    preamble of the LaTeX document:
+
+     \usepackage{xcolor} \usepackage{ulem} \usepackage{changebar}
+     \newcommand\TLSins[1]{\cbstart{}\textcolor{ins}{\uline{#1}}\cbend{}}
+     \newcommand\TLSdel[1]{\cbdelete{}\textcolor{del}{\sout{#1}}}
+
+    Define editing colors "ins" and "del" with existing "xcolor" color
+    names: \colorlet{ins}{blue} \colorlet{del}{red}
+
+    Or from scratch: \definecolor{ins}{rgb}{0, 0.5, 0}
+
+    These macros are NOT automatically interted at \begin{document} like the
+    original scripts did (see the ACKNOWLEDGMENTS section below), because
+    this will not work on files of a multi-file document (those included by
+    \include or \input). Furthermore, if you insert the macros manually, you
+    can tune them as you like, i. e. change text color or position of
+    changebars. Have a look at the documentation of the ulem and changebar
+    packages on how to do this!
+
+OPTIONS
+    --nofloats, -n
+        If given, skips contents of figure environments, but does show
+        insertions and deletions in the caption commands. This is done to
+        avoid complex messups in subfloat or complex figure environments.
+
+    --debug, -d
+        Turns on debugging. Temporary files that contain numbered braces are
+        kept and a raw difference file is written as output file name
+        appended with '-wdiff.tex'. In addition, several regular expression
+        diagnostics are printed. Warning: produces a lot of output.
+
+AUTHOR
+    Mark Doll <markdoll<AT>gmx.net>, Cengiz Gunay
+    <cengique<AT>users.sf.net>.
+
+ACKNOWLEDGMENTS
+    *   Version 0.4, by CG, 2009/09/15. Added use of GetOpt to take an
+        optional parameter to skip float (e.g., figure or table) contents.
+        Added an optional debug mode. Embedded POD documentation. Fixed
+        problem with insertion and deletions appearing in the middle of
+        sectioning commands by throwing off LaTeX.
+
+    *   Version 0.3, modified by Cengiz Gunay <cengique@users.sf.net>,
+        2009/06/30. Added some Latex commands that should be excluded and
+        fixed handling of '\%' characters.
+
+    *   Version 0.2, is a perl implementation of TeXdiff by Mark Doll
+        <markdoll@gmx.net>, 2006/08/09. It was derived from the original
+        bash and perl scripts created by Robert Maron <robmar@mimuw.edu.pl>,
+        available at http://www.robmar.net/TexDiff/. This version of texdiff
+        is available at http://mark.doll.name/texdiff/.
+
+COPYRIGHT AND LICENSE
+    Copyleft 2006-2009, Mark Doll and Cengiz Gunay
+
+    This library is free software; you may redistribute it and/or modify it
+    under the same terms as Perl itself.
+
diff --git a/Master/texmf-dist/scripts/texdiff/texdiff b/Master/texmf-dist/scripts/texdiff/texdiff
new file mode 100755
index 00000000000..4c27fab205a
--- /dev/null
+++ b/Master/texmf-dist/scripts/texdiff/texdiff
@@ -0,0 +1,554 @@
+#! /usr/bin/env perl
+#
+# See POD documentation below or use:
+#
+# $ perldoc texdiff
+#
+# to see embedded documentation. Alternatively, you can create manual
+# or HTML pages using pod2man and pod2html.  Below the POD part you
+# can add your own macros to be skipped by the edit marks.
+#
+# $Id: texdiff 766 2009-09-24 19:19:38Z cengiz $
+
+=pod
+
+=head1 NAME
+
+B<texdiff> - Compares two (La)TeX documents to create a merged version showing changes, similar to that of 'Change Tracking' in some word processors.
+
+=head1 SYNOPSIS
+
+texdiff [--nofloats|-n] old.tex new.tex [diff.tex]
+
+=head1 DESCRIPTION
+
+The first two files are compared and a new TeX file is output. When
+the output file is processed with (La)TeX it marks new changes with
+blue and old text with red with a strike-through line. Furthermore,
+passages with changes are marked at the margin with grey bars by the
+LaTeX C<changebar> package (although only after running C<dvips>, in
+C<xdvi> the bars are one inch too far left to compensate the one inch
+offset inserted by TeX printer drivers).
+
+C<texdiff> uses and therefore requires the C<wdiff> command to insert
+these marks. If LaTeX macros are included in those striked out or
+underlined passages, the latex run will most likely fail. The source
+of most problems lies in C<wdiff> tearing apart pairs of
+braces. Therefore C<texdiff> is a perl script that calls C<wdiff> internally
+and fixes C<wdiff>'s output by re-pairing braces again and handling some
+commonly used LaTeX macros.
+
+For texdiff to work, the following LaTeX code must be inserted in the
+preamble of the LaTeX document:
+
+ \usepackage{xcolor} \usepackage{ulem} \usepackage{changebar}
+ \newcommand\TLSins[1]{\cbstart{}\textcolor{ins}{\uline{#1}}\cbend{}}
+ \newcommand\TLSdel[1]{\cbdelete{}\textcolor{del}{\sout{#1}}}
+
+Define editing colors C<ins> and C<del> with existing C<xcolor> color names:
+ \colorlet{ins}{blue} \colorlet{del}{red}
+
+Or from scratch:
+ \definecolor{ins}{rgb}{0, 0.5, 0}
+
+These macros are NOT automatically interted at \begin{document} like
+the original scripts did (see the B<ACKNOWLEDGMENTS> section below),
+because this will not work on files of a multi-file document (those
+included by \include or \input).  Furthermore, if you insert the
+macros manually, you can tune them as you like, i. e. change text
+color or position of changebars. Have a look at the documentation of
+the ulem and changebar packages on how to do this!
+
+=head1 OPTIONS
+
+=over
+
+=item B<--nofloats>, B<-n>
+
+If given, skips contents of figure environments, but does show
+insertions and deletions in the caption commands. This is done to
+avoid complex messups in subfloat or complex figure environments.
+
+=item B<--debug>, B<-d>
+
+Turns on debugging. Temporary files that contain numbered braces are
+kept and a raw difference file is written as output file name appended
+with '-wdiff.tex'. In addition, several regular expression diagnostics
+are printed. B<Warning: produces a lot of output.>
+
+=back
+
+=head1 AUTHOR
+
+Mark Doll <markdoll<AT>gmx.net>, Cengiz Gunay <cengique<AT>users.sf.net>.
+
+=head1 ACKNOWLEDGMENTS
+
+=over
+
+=item B<*>
+
+Version 0.4, by CG, 2009/09/15. Added use of GetOpt to take an optional
+parameter to skip float (e.g., figure or table) contents. Added an
+optional debug mode. Embedded POD documentation. Fixed problem
+with insertion and deletions appearing in the middle of sectioning
+commands by throwing off LaTeX.
+
+=item B<*>
+
+Version 0.3, modified by Cengiz Gunay <cengique@users.sf.net>,
+2009/06/30. Added some Latex commands that should be excluded and
+fixed handling of '\%' characters.
+
+=item B<*>
+
+Version 0.2, is a perl implementation of TeXdiff by Mark Doll
+<markdoll@gmx.net>, 2006/08/09. It was derived from the original bash
+and perl scripts created by Robert Maron <robmar@mimuw.edu.pl>,
+available at http://www.robmar.net/TexDiff/. This version of texdiff
+is available at http://mark.doll.name/texdiff/.
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyleft 2006-2009, Mark Doll and Cengiz Gunay
+
+This library is free software; you may redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+# TODO:
+#
+# - after removing excluded commands, unify deletions and insertions
+# if there're no other differences
+# - investigate causes of missing brace pairs
+# - put option to add preamble automatically?
+# - put option to flatten first?
+
+use Getopt::Long qw(GetOptions);
+use Pod::Usage;
+use strict;
+use re 'eval';			# CG: for RE code for skipping float contents
+
+## Problematic commands, that will be removed from deletions and moved
+## out of insertions. The array index equals the number of mandatory
+## command parameters.
+
+## INSERT YOUR HOMEBREW MACROS HERE!!!
+# Omit leading backslash and separate by '|', since this will be
+# interpreted as a regular expression.
+my @mycommands = (
+  'RCS\$[^\$]*\$',
+  'cite\w*p|citet|svnid|citep',
+  'if\w+',
+  '',
+  '',
+  'Abb(?:ildung)?(?:p[psw])?',
+);
+
+## standard LaTeX macros
+#FIXME: add more macros here!
+my @stdcommands = (
+  '\\\\|item|\%',   # will match one backslash inside regex
+  'includegraphics|begin|end|input|fancyfoot|subfig|subfloat',
+);
+
+# GetOpt::Long::
+my $nofloats = 0;
+my $help;
+my $DEBUG=0;
+
+my $result = GetOptions ("nofloats|n" => \$nofloats,
+			 "debug|d" => \$DEBUG,
+			 "help|?" => \$help );
+
+#print "Figs= $nofloats\n";
+
+pod2usage( -section => "SYNOPSIS") if ($#ARGV < 1 || $help);
+
+## allow nesting of braces (aka curly brackets) up to 10**$w-1 levels
+my $w = 2;
+
+## wdiff marker
+my $delstart = "TLSdel";
+my $delend   = "TLEdel";
+my $insstart = "TLSins";
+my $insend   = "TLEins";
+
+## LaTeX macros used to mark deletions/insertions in the output
+my $texdelstart = "\\protect\\TLSdel\{";
+my $texdelend   = "\}";
+my $texinsstart = "\\protect\\TLSins\{";
+my $texinsend   = "\}";
+
+
+## parse command line
+my ($in1,$in2,$out) = @ARGV;
+
+## create temp files from input files with all comments removed and
+## all braces numbered
+write_temp($w,$in1,'tmp1.'.$$);
+write_temp($w,$in2,'tmp2.'.$$);
+sub write_temp {
+    my ($w,$file,$tmp) = @_;
+
+    $_ = `cat $file`;
+
+    ## mark pairs of braces with the same $w digits.
+    # i. e. convert "{ { {} } {}}" to "{01 {02 {03}03 }02 {02}02}01" ($w=2).
+    #
+    # FIXME: marking braces before comparison makes them appear
+    # as changes if depth of nesting changes.
+
+    my $max=10**$w-1;
+    $::cnt = 0;
+    s/
+      (?<!\\)
+      (?:
+        \{ (?{ die "Fatal: Braces nested deeper than $max!\n" if ($::cnt >= $max);
+               sprintf("\{%0${w}d",++$::cnt) }) |
+        \} (?{ sprintf("\}%0${w}d",$::cnt--) })
+      )
+    /$^R/gx;
+
+    print STDERR "Warning: ".abs($::cnt)." unmatched ".($::cnt > 0 ? "opening" : "closing")
+         ." brace".(abs($::cnt) == 1 ? "" : "s")."\n" if ($::cnt != 0);
+
+    ## remove comments
+    # also remove trailing newline and all whitespace at the
+    # beginning of the following line like TeX does it
+    s/(?<!\\)%.*?\n[ \t]*//g;
+
+    ## output
+    open(O,">$tmp") or return("Can't open $tmp: $!\n");
+    print O;
+    close O;
+}
+
+my $wdiff_cmd = ( "wdiff --avoid-wraps"
+                . " --start-delete=\'$delstart\' --end-delete=\'$delend\'"
+                . " --start-insert=\'$insstart\' --end-insert=\'$insend\'"
+                . " tmp1.$$ tmp2.$$");
+$_ = `$wdiff_cmd`;
+
+if ($DEBUG) {
+  ## save wdiff output
+  if (open(O,">$out-wdiff.tex")) {
+    print O;
+    close O;
+  } else {
+    print STDERR "Failed to write wdiff output file $out-wdiff.tex.\n";;
+  }
+}
+
+###
+### Phase I: generic processing
+###
+
+## remove paragraph boundaries (two newlines) that wdiff falsely inserted
+# FIXME: Does wdiff always insert same spacing before deletion and the
+# following insertion?!
+s/(
+    ([ \t]*\n[ \t]*\n[ \t]*)
+    $delstart (?!$delend)
+    (?: . (?!$delend) )* .
+    $delend
+  )
+  \2
+  $insstart
+ /$1\n$insstart/gsx;
+
+
+## Restore backslashed Spaces (prevents falsely escaped right braces)
+# Escaped spaces '\ ' at the end of an insertion/deletion will result in the
+# backslash before the end marker and the space after it. Therefore swap
+# whitespace and end marker. (This might falsely make the insertion/deletion
+# span the following paragraph boundary, but this will be fixed by the next
+# step below).  When the end markers finally get replaced by $tex(ins|del)end,
+# which typically is a '}', without this swapping, this would result in escaped
+# right braces and LaTeX complaining about a missing right brace.
+s/(?<!\\)\\($delend|$insend)(\s+)/\\$2$1/g;
+
+
+## split up insertions and deletions that span multiple paragraphs
+while (
+  s/(
+      $delstart (?!$delend)
+      (?: . (?! [ \t]*\n[ \t]*\n[ \t]* | $delend ) )*? .?
+    )
+    ([ \t]*\n[ \t]*\n[ \t]*)
+   /$1$delend$2$delstart/gsx ) {}
+
+while (
+  s/(
+      $insstart (?!$insend)
+      (?: . (?! [ \t]*\n[ \t]*\n[ \t]* | $insend ) )*? .?
+    )
+    ([ \t]*\n[ \t]*\n[ \t]*)
+   /$1$insend$2$insstart/gsx ) {}
+
+
+## Handle unpaired braces
+# Search for all unpaired braces, meaning, they are inside a text
+# deletion or insertion passage, but their counterpart is not within
+# that passage. If they are located inside a deletion passage, simply
+# delete them.  If there a inside a insertion passage, move them out
+# by placing an insertion end marker before and an insertion start
+# marker after the brace. In case that a left brace belongs to a
+# preceding LaTeX command (plus and any more zero-parameter commands
+# directly preceding that command; that's matched by a non-whitespace
+# character sequence started by a backslash), also delete resp. move
+# that/these command(s) together with the left brace.
+#
+# FIXME: why is while loop necessary here, but not for handling right braces?
+#
+# FIXME: If there's not at least one character before the character
+# sequence specified in the look-ahead negative assertion, the match
+# would stop at the second occurence of that sequence instead of the
+# first. This leads to the effect, that the following regular
+# expressions may skip $(del|ins)end if it follows directly the left
+# brace (+number). The use of *? instead of * mitigates this effect,
+# but it's not perfect.
+
+## 1. unpaired left brace inside a deletion: delete brace and any preceding LaTeX command(s)
+while (
+  s/(						# $1: everything till unpaired '{'
+      $delstart (?!$delend)			# would otherwise not detect end marker of empty deletions!
+      (?: . (?!$delend))*?
+    )
+    ( (?<!\\) \\\S* )?				# $2: optional command(s) preceding the '{'
+    (?<!\\) \{([0-9]{$w}) (?!\}\3)		# '{' and $3: number
+    (						# $4: everything what's remaining
+      (?: . (?! (?<!\\)\}\3 | $delend) )*? .?	# will stop at a matching '}', too
+      $delend					# won't match if preceeding line found a matching '}'
+    )
+   /$1$4/sgx ) {}				# remove the '{' with number and any preceeding command(s)
+
+## 2. unpaired left brace inside an insertion: move brace out including any preceding LaTeX command(s)
+while (
+  s/(
+      $insstart (?!$insend)
+      (?: . (?!$insend))*?
+           )
+           ( \s* (?: (?<!\\) \\\S* )? )		# also move preceeding whitespace preceding out
+    (?<!\\) \{([0-9]{$w}) (?!\}\3)
+    (
+      (?: . (?! (?<!\\)\}\3 | $insend) )*? .?
+      $insend
+    )
+   /$1$insend$2\{$3$insstart$4/sgx ) {}		# move the '{' with number and any preceeding command(s) out
+
+## 3. unpaired right brace inside a deletion: delete brace
+s/(							# $1: everything till unpaired '}'
+    $delstart (?!$delend)				# would otherwise not detect end marker of empty deletions!
+    (?> (?:						## grab all paired braces (prevent backtracking):
+      (?: . (?! (?<!\\)\{[0-9]{$w} | $delend) )*? .?	# any text till next (unescaped) '{'
+      \{([0-9]{$w})					# '{' with $2: number
+      (?: . (?! (?<!\\)\}\2        | $delend) )*? .?	#any text till matching '}'
+      \}\2						# '}' with same number $2
+    )* )						## end of disabled backtracking
+    (?: . (?!$delend))*?				# any text
+  )
+  ( \}[0-9]{$w} )					# $3: the (first) unpaired '}' with number
+  (							# $4: everything what's remaining
+    (?: . (?!$delend))*? .?
+    $delend
+  )
+ /$1$4/sgx;						# remove the unpaired '}' with number
+
+## 4. unpaired right brace inside an insertion: move brace out
+s/(
+    $insstart (?! $insend)
+    (?> (?:
+      (?: . (?! (?<!\\)\{[0-9]{$w} | $insend ) )*? .?
+      \{([0-9]{$w})
+      (?: . (?! (?<!\\)\}\2        | $insend ) )*? .?
+      \}\2
+    )* )
+    (?: . (?!$insend))*?
+  )
+  ( \}[0-9]{$w} \s* )				# also move whitespace following the '}' out
+  (
+    (?: . (?!$insend))*? .?
+    $insend
+  )
+ /$1$insend$3$insstart$4/sgx;				# move the unpaired '}' with number out
+
+
+## concatenate consecutive insertions and consecutive deletions
+# Don't concatenate over paragraph (two newlines) boundaries, since
+# the LaTeX macros used to mark changed passages can't span multiple
+# paragraphs. Run this before handling LaTeX-commands specifically to
+# allow as much of a command inside a single passage as possible.
+s/$delend([ \t]*\n?[ \t]*)$delstart/$1/g;
+s/$insend([ \t]*\n?[ \t]*)$insstart/$1/g;
+
+
+
+###
+### Phase II: LaTeX-command specific processing
+###
+
+## For COMPLETELY removed/inserted sections, move section command out.
+#
+# May create empty insertions/removals, therefore execute this before
+# the removal of empty (or whitespace only) insertions/removals!
+#
+# Partly changed section titles have been handled by the preceding
+# rules. In case of removal, prevent renumbering by using asterisk
+# form; in case of insertion, add a short form without markers to
+# prevent problems when LaTeX'ing the diff.
+my $sectionre = "chapter|section|subsection|subsubsection|paragraph";
+s/
+  (						# $1: text before section command
+    $delstart (?!$delend)
+    (?: . (?!$delend) )*?
+  )
+  \\($sectionre)				# '\' and $2: section command
+  \{([0-9]{$w})					# '{' and $3: number
+  ( (?: . (?! (?<!\\)\}\3 | $delend) )*? .? )	# $4: section command parameter (title)
+  ( \}\3 \s* )				# '}' and same number plus following whitespace
+  /$1$delend\\$2\*\{$3$delstart$4$delend$5$delstart/sgx;
+  # move section commmand out and convert command to asterisk form
+
+s/
+  (						# $1: text before section command
+    $insstart (?!$insend)
+    (?: . (?!$insend) )*?
+  )
+  \\($sectionre)				# '\' and $2: section command
+  \{([0-9]{$w})					# '{' and $3: number
+  ( (?: . (?! (?<!\\)\}\3 | $insend) )*? .? )	# $4: section command parameter (title)
+  ( \}\3 \s* )				# $5: '}' and same number plus following whitespace
+  /$1$insend\\$2\[$4\]\{$3$insstart$4$insend$5$insstart/sgx;
+  # move sections command out and add short form without markers
+
+s/
+  \\($sectionre)				# '\' and $1: section command
+  (?{ $::titlecontents = ""; $::optcontents = "" }) # initialize vars
+  ( (?: \[ (?: (?! \] ) . )* \]			# $2: optional argument
+        (?{ print "====Found \\$1 opt arg '$^N'." if $DEBUG; })
+     )? )
+  \{([0-9]{$w})    				# '{' and $3: number
+  (?:			# Groups text followed by ins or del block
+      ( (?! \}\3) (?: (?! \}\3 ) . )*? (?= $insstart | $delstart ) )
+      (?{ print "=====Found ins\|del start before section end '$^N'!\n" if $DEBUG;
+          $::titlecontents .= $^N; $::optcontents .= $^N })
+      (?: ( $delstart (?: (?!$delend) . )* $delend )
+        (?{ print "=====Found del end!\n" if $DEBUG;
+            $::titlecontents .= $^N }) )?  # dont keep deletions in opt
+      (?: $insstart ( (?: (?!$insend) . )* ) $insend
+        (?{ print "=====Found ins end '$^N'!\n" if $DEBUG;
+            $::titlecontents .= "$insstart$^N$insend"; 
+            $::optcontents .= $^N }) )?  # keep insertions in opt
+  )+ #  end text + ins or del (need at least one for this to succeed)
+  (?: ( (?: (?! \}\3 ) . )+ )
+      (?{ print "=====Found text after ins\|del end and before section end: '$^N'!\n" if $DEBUG;
+          $::titlecontents .= $^N; $::optcontents .= $^N}) )?
+  (?: \}\3)				# '}' and same number
+  (?{ print "=====End of \\$1.\n" if $DEBUG;
+      $::optcontents = ($2 ne "" ? $2 : $::optcontents ) })
+  /\\$1\[$::optcontents\]\{$3$::titlecontents\}$3/sgx;
+  # Add a short form with removed insertions and deletions in section commands
+  # Will not add the short form if it already exists.
+
+## Remove problematic commands from deletions and move them out of insertions
+for my $num (0 .. ($#mycommands>$#stdcommands ? $#mycommands : $#stdcommands)) {
+  my $command = "";
+
+  $command .= $mycommands[$num]	 if ($mycommands[$num]                      );
+  $command .= "|"                if ($mycommands[$num] && $stdcommands[$num]);
+  $command .= $stdcommands[$num] if (                     $stdcommands[$num]);
+
+  next if(!$command);
+
+  s/
+    (						# $1: anything before the command
+      $delstart (?!$delend)
+      (?: . (?!$delend) )*? .?
+    )
+    (						# $2: the command with all its parameters
+      \\(?:$command)				# the command itself (preceded by a '\')
+      (?: \[ .*? (?<!\\)\] )*			# any optional parameters (enclosed in '[]')
+      (?: \{([0-9]{$w}) .*? (?<!\\)\}\3 ){$num} # $num mandatory parameters
+    )
+   /$1/gsx;
+
+  s/(
+      $insstart (?!$insend)
+      (?: . (?!$insend) )*? .?
+    )
+    (
+      \\(?:$command)
+      (?: \[ .*? (?<!\\)\] )*
+      (?: \{([0-9]{$w}) .*? (?<!\\)\}\3 ){$num}
+    )
+   /$1$insend$2$insstart/gsx;
+}
+
+## CG: optionally leave figure contents intact: remove deletions and keep
+## insertions. do not touch the caption command
+## => tested with multiple figures
+## => tested with multi-captions and no captions. should work with subfig and subfloat
+
+s/( \\begin\{[0-9]{$w}\s*((?:figure|table)\*?)(?{ $::floatname = $^N })\s*\}[0-9]{$w} )	 # begin figure or table line
+  (?{ print "=====Found figure!\n" if $DEBUG;
+      $::figcontents=$^N })            # Save into variable
+  (?: 			# Groups BLOCK + caption command
+    (?:			# BLOCK of insert and delete commands until caption
+      ( (?! \\caption) (?: (?! $insstart | $delstart | \\caption | \\end\{[0-9]{$w}\s*figure ) . )* )
+      (?{ print "=====Found ins\|del start or caption '$^N'!\n" if $DEBUG;
+          $::figcontents .= $^N })
+      (?: $delstart (?: (?!$delend) . )* $delend
+        (?{ print "=====Found del end!\n" if $DEBUG;  }) )?  # dont keep deletions
+      (?: $insstart ( (?: (?!$insend) . )* ) $insend
+        (?{ print "=====Found ins end '$^N'!\n" if $DEBUG; $::figcontents .= $^N }) )?  # keep insertions
+    )*?			#  end BLOCK
+    (?: (\\caption (?: \[ (?: (?! (?<!\\) \]) . )* \])? \s* 
+      \{ ([0-9]{$w}) (?{ $::captiondepth=$^N })
+      (?: (?! \}(??{ $::captiondepth })) . )* \}(??{$::captiondepth}) )
+      (?{ print "=====" . pos() . ": Found caption ($::captiondepth) '$^N'!\n" if $DEBUG; $::figcontents .= $^N }) )?  	 # caption
+  )*?			# end BLOCK + caption
+  ( \\end\{[0-9]{$w}\s*figure\*?\s*\}[0-9]{$w} )
+  (?{ print "=====Found figure end '$^N'!\n" if $DEBUG; $::figcontents .= $^N })
+  /$::figcontents/gsx;
+
+###
+### Phase III: cleaup, conversion, output
+###
+
+## remove insertions and removals that are empty or only mark whitespace
+s/$delstart(\s*)$delend/$1/g;
+s/$insstart(\s*)$insend/$1/g;
+
+
+## remove brace numbers
+s/(?<!\\)(?:(\{|\})[0-9]{$w})/$1/g;
+
+
+## substitute final LaTeX macro code
+s/$delstart/$texdelstart/g;
+s/$delend/$texdelend/g;
+s/$insstart/$texinsstart/g;
+s/$insend/$texinsend/g;
+
+
+## output
+if ($out ne "") {
+  if (open(O,">$out")) {
+    print O;
+    close O;
+  } else {
+    print STDERR "Failed to write output file $out.\n";
+  }
+} else {
+  print ;
+}
+
+## remove temp files
+if (!$DEBUG) {
+  unlink('tmp1.'.$$);
+  unlink('tmp2.'.$$);
+}
diff --git a/Master/texmf/doc/man/man1/texdiff.1 b/Master/texmf/doc/man/man1/texdiff.1
new file mode 100644
index 00000000000..32317947d83
--- /dev/null
+++ b/Master/texmf/doc/man/man1/texdiff.1
@@ -0,0 +1,220 @@
+.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
+.\"
+.\" Standard preamble:
+.\" ========================================================================
+.de Sh \" Subsection heading
+.br
+.if t .Sp
+.ne 5
+.PP
+\fB\\$1\fR
+.PP
+..
+.de Sp \" Vertical space (when we can't use .PP)
+.if t .sp .5v
+.if n .sp
+..
+.de Vb \" Begin verbatim text
+.ft CW
+.nf
+.ne \\$1
+..
+.de Ve \" End verbatim text
+.ft R
+.fi
+..
+.\" Set up some character translations and predefined strings.  \*(-- will
+.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
+.\" double quote, and \*(R" will give a right double quote.  | will give a
+.\" real vertical bar.  \*(C+ will give a nicer C++.  Capital omega is used to
+.\" do unbreakable dashes and therefore won't be available.  \*(C` and \*(C'
+.\" expand to `' in nroff, nothing in troff, for use with C<>.
+.tr \(*W-|\(bv\*(Tr
+.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
+.ie n \{\
+.    ds -- \(*W-
+.    ds PI pi
+.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
+.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
+.    ds L" ""
+.    ds R" ""
+.    ds C` ""
+.    ds C' ""
+'br\}
+.el\{\
+.    ds -- \|\(em\|
+.    ds PI \(*p
+.    ds L" ``
+.    ds R" ''
+'br\}
+.\"
+.\" If the F register is turned on, we'll generate index entries on stderr for
+.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
+.\" entries marked with X<> in POD.  Of course, you'll have to process the
+.\" output yourself in some meaningful fashion.
+.if \nF \{\
+.    de IX
+.    tm Index:\\$1\t\\n%\t"\\$2"
+..
+.    nr % 0
+.    rr F
+.\}
+.\"
+.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
+.\" way too many mistakes in technical documents.
+.hy 0
+.if n .na
+.\"
+.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
+.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
+.    \" fudge factors for nroff and troff
+.if n \{\
+.    ds #H 0
+.    ds #V .8m
+.    ds #F .3m
+.    ds #[ \f1
+.    ds #] \fP
+.\}
+.if t \{\
+.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
+.    ds #V .6m
+.    ds #F 0
+.    ds #[ \&
+.    ds #] \&
+.\}
+.    \" simple accents for nroff and troff
+.if n \{\
+.    ds ' \&
+.    ds ` \&
+.    ds ^ \&
+.    ds , \&
+.    ds ~ ~
+.    ds /
+.\}
+.if t \{\
+.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
+.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
+.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
+.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
+.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
+.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
+.\}
+.    \" troff and (daisy-wheel) nroff accents
+.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
+.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
+.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
+.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
+.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
+.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
+.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
+.ds ae a\h'-(\w'a'u*4/10)'e
+.ds Ae A\h'-(\w'A'u*4/10)'E
+.    \" corrections for vroff
+.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
+.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
+.    \" for low resolution devices (crt and lpr)
+.if \n(.H>23 .if \n(.V>19 \
+\{\
+.    ds : e
+.    ds 8 ss
+.    ds o a
+.    ds d- d\h'-1'\(ga
+.    ds D- D\h'-1'\(hy
+.    ds th \o'bp'
+.    ds Th \o'LP'
+.    ds ae ae
+.    ds Ae AE
+.\}
+.rm #[ #] #H #V #F C
+.\" ========================================================================
+.\"
+.IX Title "TEXDIFF 1"
+.TH TEXDIFF 1 "2009-09-24" "perl v5.8.8" "User Contributed Perl Documentation"
+.SH "NAME"
+\&\fBtexdiff\fR \- Compares two (La)TeX documents to create a merged version showing changes, similar to that of 'Change Tracking' in some word processors.
+.SH "SYNOPSIS"
+.IX Header "SYNOPSIS"
+texdiff [\-\-nofloats|\-n] old.tex new.tex [diff.tex]
+.SH "DESCRIPTION"
+.IX Header "DESCRIPTION"
+The first two files are compared and a new TeX file is output. When
+the output file is processed with (La)TeX it marks new changes with
+blue and old text with red with a strike-through line. Furthermore,
+passages with changes are marked at the margin with grey bars by the
+LaTeX \f(CW\*(C`changebar\*(C'\fR package (although only after running \f(CW\*(C`dvips\*(C'\fR, in
+\&\f(CW\*(C`xdvi\*(C'\fR the bars are one inch too far left to compensate the one inch
+offset inserted by TeX printer drivers).
+.PP
+\&\f(CW\*(C`texdiff\*(C'\fR uses and therefore requires the \f(CW\*(C`wdiff\*(C'\fR command to insert
+these marks. If LaTeX macros are included in those striked out or
+underlined passages, the latex run will most likely fail. The source
+of most problems lies in \f(CW\*(C`wdiff\*(C'\fR tearing apart pairs of
+braces. Therefore \f(CW\*(C`texdiff\*(C'\fR is a perl script that calls \f(CW\*(C`wdiff\*(C'\fR internally
+and fixes \f(CW\*(C`wdiff\*(C'\fR's output by re-pairing braces again and handling some
+commonly used LaTeX macros.
+.PP
+For texdiff to work, the following LaTeX code must be inserted in the
+preamble of the LaTeX document:
+.PP
+.Vb 3
+\& \eusepackage{xcolor} \eusepackage{ulem} \eusepackage{changebar}
+\& \enewcommand\eTLSins[1]{\ecbstart{}\etextcolor{ins}{\euline{#1}}\ecbend{}}
+\& \enewcommand\eTLSdel[1]{\ecbdelete{}\etextcolor{del}{\esout{#1}}}
+.Ve
+.PP
+Define editing colors \f(CW\*(C`ins\*(C'\fR and \f(CW\*(C`del\*(C'\fR with existing \f(CW\*(C`xcolor\*(C'\fR color names:
+ \ecolorlet{ins}{blue} \ecolorlet{del}{red}
+.PP
+Or from scratch:
+ \edefinecolor{ins}{rgb}{0, 0.5, 0}
+.PP
+These macros are \s-1NOT\s0 automatically interted at \ebegin{document} like
+the original scripts did (see the \fB\s-1ACKNOWLEDGMENTS\s0\fR section below),
+because this will not work on files of a multi-file document (those
+included by \einclude or \einput).  Furthermore, if you insert the
+macros manually, you can tune them as you like, i. e. change text
+color or position of changebars. Have a look at the documentation of
+the ulem and changebar packages on how to do this!
+.SH "OPTIONS"
+.IX Header "OPTIONS"
+.IP "\fB\-\-nofloats\fR, \fB\-n\fR" 4
+.IX Item "--nofloats, -n"
+If given, skips contents of figure environments, but does show
+insertions and deletions in the caption commands. This is done to
+avoid complex messups in subfloat or complex figure environments.
+.IP "\fB\-\-debug\fR, \fB\-d\fR" 4
+.IX Item "--debug, -d"
+Turns on debugging. Temporary files that contain numbered braces are
+kept and a raw difference file is written as output file name appended
+with '\-wdiff.tex'. In addition, several regular expression diagnostics
+are printed. \fBWarning: produces a lot of output.\fR
+.SH "AUTHOR"
+.IX Header "AUTHOR"
+Mark Doll <markdoll<\s-1AT\s0>gmx.net>, Cengiz Gunay <cengique<\s-1AT\s0>users.sf.net>.
+.SH "ACKNOWLEDGMENTS"
+.IX Header "ACKNOWLEDGMENTS"
+.IP "\fB*\fR" 4
+.IX Item "*"
+Version 0.4, by \s-1CG\s0, 2009/09/15. Added use of GetOpt to take an optional
+parameter to skip float (e.g., figure or table) contents. Added an
+optional debug mode. Embedded \s-1POD\s0 documentation. Fixed problem
+with insertion and deletions appearing in the middle of sectioning
+commands by throwing off LaTeX.
+.IP "\fB*\fR" 4
+.IX Item "*"
+Version 0.3, modified by Cengiz Gunay <cengique@users.sf.net>,
+2009/06/30. Added some Latex commands that should be excluded and
+fixed handling of '\e%' characters.
+.IP "\fB*\fR" 4
+.IX Item "*"
+Version 0.2, is a perl implementation of TeXdiff by Mark Doll
+<markdoll@gmx.net>, 2006/08/09. It was derived from the original bash
+and perl scripts created by Robert Maron <robmar@mimuw.edu.pl>,
+available at http://www.robmar.net/TexDiff/. This version of texdiff
+is available at http://mark.doll.name/texdiff/.
+.SH "COPYRIGHT AND LICENSE"
+.IX Header "COPYRIGHT AND LICENSE"
+Copyleft 2006\-2009, Mark Doll and Cengiz Gunay
+.PP
+This library is free software; you may redistribute it and/or modify
+it under the same terms as Perl itself.
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 8f5de7fed6f..a6abec9662f 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -244,7 +244,7 @@ my @WorkingTLP = qw(
 	  tamethebeast tdclock tdsfrmath
           ted templates-fenn templates-sommer tengwarscript
           tensor termcal termlist teubner tex-ewd tex-gyre texcount
-          texdirflatten texilikecover texloganalyser texmate texments
+          texdiff texdirflatten texilikecover texloganalyser texmate texments
           texpower texshade
           textcase textfit textopo textpath textpos
           thailatex theoremref thesis-titlepage-fhac
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index ea6f4de284f..56be1c3b298 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -1133,20 +1133,21 @@ $standardtex='\.(cfg|sty|clo|ldf|cls|def|fd|cmap|4ht)$';
  'staves',	'fonts',
  'tamil-omega',		'omega',
  'texcount',		'support',
+ 'texdiff',		'support',
  'texdirflatten',	'support',
  'texloganalyser',	'support',
- 'texsis',	'texsis',
- 'textpath',	'metapost',
- 'trajan',	'fonts',
- 'tugboat-plain','plain',
- 'txfonts',	'fonts',
- 'universa',	'fonts',
- 'vancouver',	'bibtex',
- 'variations',	'generic',
- 'vaucanson-g',	'generic',
- 'velthuis',	'generic',
- 'vertex',	'plain',
- 'voss-de',	'german',
+ 'texsis',		'texsis',
+ 'textpath',		'metapost',
+ 'trajan',		'fonts',
+ 'tugboat-plain',	'plain',
+ 'txfonts',		'fonts',
+ 'universa',		'fonts',
+ 'vancouver',		'bibtex',
+ 'variations',		'generic',
+ 'vaucanson-g',		'generic',
+ 'velthuis',		'generic',
+ 'vertex',		'plain',
+ 'voss-de',		'german',
  'wasy2',		'fonts',
  'wsuipa',		'generic',
  'xepersian',		'xelatex',
@@ -1254,6 +1255,7 @@ $standardmp = '\.mp$';
  'textpath',    'textpath.mp',	# don't install textpathfigs.mp
 );
 
+
 # packages which need special BibTeX styles installed
 %specialcsf= ();
 $standardcsf='\.csf';
@@ -1411,6 +1413,7 @@ $standardocp='\.ocp';
 );
 $standardxmt='\.xmt';
 
+
 # executable scripts to install under texmf*/.../scripts.
 # if they should end up in $bindir too,
 # add to Build/source/texk/texlive/Makefile.in (and ChangeLog).
@@ -1436,22 +1439,25 @@ $standardxmt='\.xmt';
  'purifyeps'		=> 'purifyeps$',
  'svn-multi'		=> 'svn-multi\.pl$',
  'texcount'		=> '\.pl$',
+ 'texdiff'		=> 'texdiff$',
  'texdirflatten'	=> 'texdirflatten$',
  'texloganalyser'	=> 'texloganalyser',
  'ulqda'		=> '\.pl$',
  'vpe'			=> '\.pl$',
 );
 
+
 # packages which have info files to install.
 %specialinfos = (
  'latex2e-help-texinfo' => '\.info',
 );
 
-# packages which have man pages to install.  Assume section 1 for now.
+# packages which have man pages to install.  We assume section 1.
 %specialmans = (
  'findhyph'		=> 'findhyph.1',
  'pkfix-helper'		=> 'pkfix-helper.1',
  'purifyeps'		=> 'purifyeps.1',
+ 'texdiff'		=> 'texdiff.1',
  'texdirflatten'	=> 'texdirflatten.1',
 );
 
diff --git a/Master/tlpkg/tlpsrc/collection-binextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-binextra.tlpsrc
index ed32850da12..5b27ab9f206 100644
--- a/Master/tlpkg/tlpsrc/collection-binextra.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-binextra.tlpsrc
@@ -4,45 +4,47 @@ longdesc Various useful, but non-essential, support programs. Includes
 longdesc programs and macros for DVI file manipulation, literate
 longdesc programming, patgen, and the TeX Works Editor.
 depend collection-basic
+
 depend a2ping
 depend asymptote
 depend bibtex8
 depend ctie
+depend cweb
 depend detex
 depend dtl
 depend dvi2tty
+depend dviasm
 depend dvicopy
 depend dvidvi
 depend dviljk
 depend dvipng
 depend dvipos
 depend findhyph
-depend getnonfreefonts
-depend lacheck
-depend listings-ext
-depend patgen
-depend pdftools
-depend seetexk
-depend texdoc
-depend texware
-depend tie
-depend tpic2pdftex
-depend web
-depend cweb
-depend dviasm
 depend fragmaster
+depend getnonfreefonts
 depend hyphenex
+depend lacheck
 depend latex2man
 depend latexmk
+depend listings-ext
 depend mkind-english
 depend mkjobtexmf
+depend patgen
 depend pdfcrop
+depend pdftools
 depend pkfix
 depend pkfix-helper
 depend purifyeps
+depend seetexk
 depend synctex
 depend texcount
-depend texworks
+depend texdiff
 depend texdirflatten
+depend texdoc
 depend texloganalyser
+depend texware
+depend texworks
+depend tie
+depend tpic2pdftex
+depend web
 depend xindy
diff --git a/Master/tlpkg/tlpsrc/texdiff.tlpsrc b/Master/tlpkg/tlpsrc/texdiff.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/texdiff.tlpsrc