diff options
author | Norbert Preining <preining@logic.at> | 2007-06-18 14:07:29 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-06-18 14:07:29 +0000 |
commit | 7fb60a74aab3febff8b73f2c8485f038d6a5e8cf (patch) | |
tree | 4f53da62ca86575bffd6cab33eddf4ec1bedce6c /Master/tlpkg/bin/tlpobj2tlpdb.pl | |
parent | 251011941e0fbafdda83480a711735c118a7fca0 (diff) |
its tlpsrc, not tlsrc now ...
updates to many of the tlpsrc
git-svn-id: svn://tug.org/texlive/trunk@4468 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tlpobj2tlpdb.pl')
-rwxr-xr-x | Master/tlpkg/bin/tlpobj2tlpdb.pl | 83 |
1 files changed, 83 insertions, 0 deletions
diff --git a/Master/tlpkg/bin/tlpobj2tlpdb.pl b/Master/tlpkg/bin/tlpobj2tlpdb.pl new file mode 100755 index 00000000000..c7ce7a97bc2 --- /dev/null +++ b/Master/tlpkg/bin/tlpobj2tlpdb.pl @@ -0,0 +1,83 @@ +#!/usr/bin/env perl +# +# tlp2tldb.pl +# convert a set of tlp files (given as arguments) into a tldb +# 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 TLP; +use TLDB; +use Getopt::Long; +use Pod::Usage; +use File::Path; + +our $opt_debug = 0; +my $man = 0; +my $help = 0; + +GetOptions("debug!", 'help|?' => \$help, man => \$man) or pod2usage(2); + +pod2usage(1) if $help; +pod2usage(-exitstatus => 0, -verbose => 2) if $man; + +my $tldb = TLDB->new; +foreach my $f (@ARGV) { + my $tlp = new TLP; + $tlp->from_file($f); + $tldb->add_tlp($tlp); +} +$tldb->writeout; + + +__END__ + +=head1 NAME + +tlp2tldb - Converting tlp files into a tldb file + +=head1 SYNOPSIS + +tlp2tldb [options] [tlsrcfiles ...] + + Options: + -help brief help message + -man full documentation + -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<-debug> + +Give debug messages from the TeX Live modules + +=back + +=head1 DESCRIPTION + +B<tlp2tldb> converts TeX Live Package (tlp) files into TeX Live Database +(tldb). + +=cut + |