- remove the .pl extensions of the various scripts

- move temporary scripts or scripts I used for development but which are
  not of real use to tlpkg/etc


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

1 files changed, 115 insertions, 0 deletions

diff --git a/Master/tlpkg/bin/tlpsrc2tlpobj b/Master/tlpkg/bin/tlpsrc2tlpobj
new file mode 100755
index 00000000000..892b7448c2d
--- /dev/null
+++ b/Master/tlpkg/bin/tlpsrc2tlpobj
@@ -0,0 +1,115 @@
+#!/usr/bin/env perl
+#
+# tlpsrc2tlpobj
+# convert a set of tlpsrc files (given as arguments) into tlpobj
+# Copyright 2007 Norbert Preining
+#
+# This file is licensed under the GNU General Public Licence version 2
+# or any later version
+#
+
+BEGIN {
+  $^W = 1;
+  ($mydir = $0) =~ s,/[^/]*$,,;
+  unshift (@INC, "$mydir/..");
+}
+
+use strict;
+
+use TeXLive::TLPSRC;
+use TeXLive::TLPOBJ;
+use TeXLive::TLTREE;
+use Getopt::Long;
+use Pod::Usage;
+use File::Path;
+
+
+my $opt_master = "/src/TeX/texlive-svn/Master";
+my $opt_outputdir = "./tlpobj";
+our $opt_debug = 0;
+my $man = 0;
+my $help = 0;
+
+GetOptions("debug!",	# debug mode
+		"master=s" => \$opt_master,	# location of the tree
+		"outputdir=s" => \$opt_outputdir,
+		'help|?' => \$help, man => \$man
+	) or pod2usage(2);
+
+pod2usage(1) if $help;
+pod2usage(-exitstatus => 0, -verbose => 2) if $man;
+
+if (! -d "$opt_master") {
+	die "Master $opt_master does not exists!";
+}
+
+if (! -d "$opt_outputdir") {
+	mkpath("$opt_outputdir") or die "Cannot mkdir $opt_outputdir!";
+}
+	
+my $tltree = TeXLive::TLTREE->new( 'svnroot' => "$opt_master" );
+$tltree->init_from_svn;
+
+foreach my $f (@ARGV) {
+	my $tlsrc = new TeXLive::TLPSRC;
+	$tlsrc->from_file($f);
+	my $tlp = $tlsrc->make_tlpobj($tltree);
+	my $name = $tlp->name;
+	open(FOO,">$opt_outputdir/$name.tlpobj") or die "Cannot create $opt_outputdir/$name.tlpobj!";
+	$tlp->writeout(\*FOO);
+	close(FOO);
+}
+
+
+__END__
+
+=head1 NAME
+
+tlpsrc2tlpobj - Converting tlpsrc files into tlpobj files
+
+=head1 SYNOPSIS
+
+tlpsrc2tlpobj [options] [tlpsrcfiles ...]
+
+ Options:
+   -help            brief help message
+   -man             full documentation
+   -master=s        set Master of TeX Live tree
+   -outputdir=s     specify the directory where tlp files are created
+   -debug           get debug messages from TL* modules
+
+=head1 OPTIONS
+
+=over 8
+
+=item B<-help>
+
+Print a brief help message and exits.
+
+=item B<-man>
+
+Prints the manual page and exits.
+
+=item B<-master>
+
+The location given by B<-master> must point to a valid svn repository
+of TeX Live Master direcory. Defaults to /src/TeX/texlive-svn/Master
+
+=item B<-outputdir>
+
+Specifies the location where tlp files are created. Defaults to ./tlp
+
+=item B<-debug>
+
+Give debug messages from the TeX Live modules
+
+=back
+
+=head1 DESCRIPTION
+
+B<tlpsrc2tlpobj> converts TeX Live Package Source files (tlpsrc) into 
+TeX Live Package Object files (tlpobj).
+
+=cut
+
+