From 3680253bbf35e5188decbbe6a39a7d305b4e7a3d Mon Sep 17 00:00:00 2001
From: Kirill Maslinsky <kirill@altlinux.org>
Date: Sun, 17 May 2009 23:31:51 +0400
Subject: [PATCH] ctanify: added -o (--tdsoutdir) option

    Create package TDS tree in the directory, specified with
    --tdsoutdir option, do not create CTAN package (tarball).

    This option is intended for use when the main function required
    is mapping between CTAN source files and TDS hierarchy.
    This is a more general use of ctanify where it can serve
    in a process of creating TEXMF tree parts from CTAN sources,
    somewhat similar to `make install` step.

Signed-off-by: Kirill Maslinsky <kirill@altlinux.org>
---
 ctanify |   30 ++++++++++++++++++++++++++----
 1 files changed, 26 insertions(+), 4 deletions(-)

diff --git a/ctanify b/ctanify
index 5550ade..1234673 100644
--- a/ctanify
+++ b/ctanify
@@ -35,6 +35,7 @@ my $tdsdir = "";               # Absolute directory of the TDS tree
 my $pkgdir = "";               # Absolute directory of the package directory
 my $zipname;                   # Name of the TDS zip file
 my $tarname;                   # Name of the package tar file
+my $tdsoutdir;                 # Directory name where to output TDS tree
 my $usagestr = "Usage: ${progname} [--help] [--version] [--pkgname=<package>] [--[no]auto] [--[no]skip] [--[no]unixify] [--tdsonly=<filespec> ...] filename[=<dirname>] ...\n";
 
 # Associate file extensions with TDS directories.  "%s" is replaced
@@ -133,6 +134,7 @@ GetOptions("p|pkgname=s" => \$pkgname,
            "u|unixify!"  => \$unixify,       # Not documented; best not to use
            "t|tdsonly=s" => \@tdsonly,
            "a|auto!"     => \$autoinclude,
+           "o|tdsoutdir=s" => \$tdsoutdir,
            "V|version"   => \$wantversion,
            "h|help"      => \$wanthelp)
     || pod2usage(-verbose => 0,
@@ -227,7 +229,12 @@ foreach my $fname (@manifest) {
 
 # Create a working directory and populate it with TDS files.
 my $workdir = tempdir("$progname-XXXXXX", TMPDIR => 1, CLEANUP => 1);
-$tdsdir = "$workdir/texmf";
+if ($tdsoutdir) {
+    $tdsdir = $tdsoutdir;
+}
+else {
+    $tdsdir = "$workdir/texmf";
+}
 mkdir $tdsdir || die "${progname}: Failed to create $tdsdir ($!)\n";
 foreach my $fname (@manifest) {
     # Create a TDS subdirectory.
@@ -269,6 +276,8 @@ if (@bad_docs) {
     my $bad_docs = join ", ", @bad_docs;
     warn "${progname}: CTAN prefers having only PDF documentation (re: $bad_docs)\n";
 }
+# if tdsoutdir given, we don't need to proceed with CTAN packaging
+if (!$tdsoutdir) {
 
 # Store a listing of the TDS directory.
 my $prevdir = getcwd();
@@ -297,7 +306,7 @@ rmdir $tdsdir || die "${progname}: Failed to remove $tdsdir ($!)\n";
 $pkgdir = "$workdir/$pkgname";
 mkdir $pkgdir || die "${progname}: Failed to create $pkgdir ($!)\n";
 my %tdsonly = map {($_ => 1)} @tdsonly;
-foreach my $fname (@manifest) {
+foreach my $fname(@manifest) {
     my $relname = File::Spec->abs2rel($fname);
     next if defined $tdsonly{$relname};
     my ($namepart, $pathpart, $suffixpart) = fileparse($relname);
@@ -339,7 +348,7 @@ if ($zipname ne "") {
     }
 }
 print "\n";
-
+}
 ###########################################################################
 
 __END__
@@ -357,6 +366,7 @@ ctanify
 [B<--tdsonly>=I<filespec> ...]
 [B<-->[B<no>]B<unixify>]
 [B<-->[B<no>]B<skip>]
+[B<--tdsoutdir>]
 I<filespec>[=I<dirname>] ...
 
 ctanify
@@ -382,7 +392,7 @@ Live distribution.
 
 B<ctanify> accepts the following command-line options:
 
-=over 4
+=over 5
 
 =item B<-h>, B<--help>
 
@@ -404,6 +414,10 @@ produces.
 Do not automatically add files to the tarball.  Normally, B<ctanify>
 automatically includes all files mentioned in a F<.ins> file.
 
+=item B<-o> I<path>, B<--tdsoutdir>=I<path>
+
+Make package TDS tree in the specified directory, do not create CTAN tarball.
+
 =item B<-t> I<filespec>, B<--tdsonly>=I<filespec>
 
 Specify a subset of the files named on the command line to include
@@ -591,3 +605,11 @@ L<http://www.latex-project.org/lppl.txt>
 
 and S<version 1.3> or later is part of all distributions of LaTeX
 version 2005/12/01 or later.
+
+=head1 MODIFICATION NOTICE
+
+This file is modified for ALT Linux Sisyphus by Kirill Maslinsky
+I<kirill@altlinux.org>, 2009.
+
+Option -o (--tdsoutdir) was added to make use of ctanify in the task
+of arranging CTAN package sources into a TEXMF tree.
-- 
1.6.1.3.GIT