diff options
author | Norbert Preining <preining@logic.at> | 2007-06-25 15:41:12 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-06-25 15:41:12 +0000 |
commit | abb3a7358c906a4a219315561eb258e1d8315fa3 (patch) | |
tree | a72f83c598c95a04ee84f9b3c592ff2dd92200a6 /Master/tlpkg/bin/tlpsrc2tlpobj | |
parent | 4a432271ddcd830bf55dca9d44d352a809d91a42 (diff) |
- 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
Diffstat (limited to 'Master/tlpkg/bin/tlpsrc2tlpobj')
-rwxr-xr-x | Master/tlpkg/bin/tlpsrc2tlpobj | 115 |
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 + + |