-mnew latex package verbatimcopy (without doc, lacking source :-( )

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

7 files changed, 108 insertions, 2 deletions

diff --git a/Master/texmf-dist/doc/latex/verbatimcopy/README b/Master/texmf-dist/doc/latex/verbatimcopy/README
new file mode 100644
index 00000000000..d0c16e2f192
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/verbatimcopy/README
@@ -0,0 +1,19 @@
+% (C) Lars Madsen, daleif@imf.au.dk, 2007/05/11
+% This material is subject to the LaTeX Project Public License. 
+% See http://www.ctan.org/tex-archive/help/Catalogue/licenses.lppl.html 
+% for the details of that license.
+
+The verbatimcopy package provides \VerbatimCopy{in}{out} that will enable LaTeX to 
+take a verbatim copy of one text file, and save it under another name.
+
+The code is due to Ulrich Diez published on  comp.text.tex
+http://groups.google.com/group/comp.text.tex/msg/153e3dc7a8d0e548?hl=en
+
+
+Versions
+--------
+
+  0.03 added extra code by Ulrich Diez, such that \setOutputDir 
+       automatically adds a trailing / if needed
+
+  0.02 Initial release
diff --git a/Master/texmf-dist/doc/latex/verbatimcopy/README.TEXLIVE b/Master/texmf-dist/doc/latex/verbatimcopy/README.TEXLIVE
new file mode 100644
index 00000000000..51932839916
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/verbatimcopy/README.TEXLIVE
@@ -0,0 +1,6 @@
+The following files have been removed in the TeX Live installation of
+the current package, typically due to duplication, lack of space, or
+missing source code.  You can find these files on CTAN.  If questions or
+concerns, email tex-live.org.
+
+	verbatimcopy.pdf
diff --git a/Master/texmf-dist/tex/latex/verbatimcopy/verbatimcopy.sty b/Master/texmf-dist/tex/latex/verbatimcopy/verbatimcopy.sty
new file mode 100644
index 00000000000..d495d865bc7
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/verbatimcopy/verbatimcopy.sty
@@ -0,0 +1,78 @@
+\ProvidesPackage{verbatimcopy}[2007/05/10 v0.03 by Lars Madsen]
+
+
+% This package be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2003/12/01 or later.
+%% 
+%% This work has the LPPL maintenance status "maintained".
+%% 
+%% The Current Maintainer of this work is Lars Madsen (daleif@imf.au.dk).
+%%
+
+\RequirePackage{verbatim}
+
+
+% addition by Ulrich Diez, automatically adds a trailing /
+\@ifdefinable\@setOutputDir{%
+  \def\@setOutputDir#1/\@nil#2\@nil/{%
+    \ifx\@nil#2\@nil
+      \expandafter\@firstoftwo
+    \else
+      \expandafter\@secondoftwo
+    \fi
+  }%
+}%
+\newcommand\setOutputDir[1]{%
+  \@setOutputDir#1\@nil/\@nil\@nil/%
+  {\def\VC@outputdir{#1/}}%
+  {\def\VC@outputdir{#1}}%
+}%
+
+% memoir defines this one, verbatim does not
+\@ifundefined{verbatim@out}{\newwrite\verbatim@out}{}
+
+
+% the following is basically based on an idea 
+% by Ulrich Diez on comp.text.tex
+% (http://groups.google.com/group/comp.text.tex/msg/153e3dc7a8d0e548?hl=en&) 
+
+% be very carefull, this will overwrite without asking
+
+% the idea is simply to mess with \verbatiminput such that it write
+% instead of read
+\newcommand*\VerbatimCopy[2]{% {from file}{to file}
+  \edef\VC@target{\VC@outputdir#2}%
+   \@bsphack
+   \IfFileExists{#1}%
+   {%
+     \bgroup
+     \def\@verbatim{%
+       \obeylines
+       \let\do\@makeother
+       \dospecials
+     }%
+     \let\endtrivlist\relax
+     \def\verbatim@processline{%
+       \immediate\write\verbatim@out{\the\verbatim@line}%
+     }%
+     \immediate\openout\verbatim@out\VC@target\relax
+     \verbatiminput{#1}%
+     \immediate\closeout\verbatim@out%
+     \egroup%
+   }%
+   {%
+     \PackageError{verbatimcopy}%
+     {Source-file cannot be found}%
+     {%
+       For copying source-file to target-file it would be nice to
+       have the source-file available.%
+     }%
+   }%
+   \@esphack
+}%
+
diff --git a/Master/tlpkg/bin/ctan2tds b/Master/tlpkg/bin/ctan2tds
index 076237c8f41..37515206309 100755
--- a/Master/tlpkg/bin/ctan2tds
+++ b/Master/tlpkg/bin/ctan2tds
@@ -421,7 +421,6 @@ chdir $startdir || die "chdir($startdir) failed: $!";  # back to raw
  'unitsdef',	"&MAKEflatten",
  'velthuis',	"&MAKEcopy",
  'venturisadf',	"die 'skipping, no tfm/etc. support'",
- 'verbatimcopy',"die 'skipping, no doc source'",
  'vhistory',	"&MAKEflatten",
  'vicentino',	"die 'skipping, nonfree license'",
  'voss-de',	"&MAKEvossde",
@@ -1314,6 +1313,7 @@ $standardclean = '\.head|\.tmp|\.dvi|\.log|\.out|\.aux|\.toc|\.lof|\.lot'
  'ptptex'       => 'overcite.sty|cite.sty|wrapfig.sty', # duplicated
  'stubs'	=> 'stubs.pdf',
  'susy'		=> 'susy.pdf',			# no source
+ 'verbatimcopy'	=> 'verbatimcopy.pdf',		# no source
  'xskak'	=> 'xskak.pdf',			# no source
 );
 
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 34881ada5c6..65b1bc52a5e 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -217,7 +217,7 @@ my @WorkingTLP = qw(
           umthesis umtypewriter underlin undertilde units unitsdef unroman
           upmethodology upquote urlbst ushort uwthesis
         vancouver variations varindex varsfromjobname
-          vector velthuis venn verbatimbox verse versions vertex
+          vector velthuis venn verbatimbox verbatimcopy verse versions vertex
           vhistory visualfaq vmargin vntex volumes vpe vwcol vxu
         wadalab wallpaper warning warpcol williams wordlike wrapfig
         xargs xcolor xdoc xecyr xepersian
diff --git a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
index c982afc3321..a58beb0031e 100644
--- a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
@@ -559,6 +559,7 @@ depend varindex
 depend varsfromjobname
 depend vector
 depend verbatimbox
+depend verbatimcopy
 depend versions
 depend vhistory
 depend vita
diff --git a/Master/tlpkg/tlpsrc/verbatimcopy.tlpsrc b/Master/tlpkg/tlpsrc/verbatimcopy.tlpsrc
new file mode 100644
index 00000000000..7531aa8e1a5
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/verbatimcopy.tlpsrc
@@ -0,0 +1,2 @@
+name verbatimcopy
+category Package