#!/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 converts TeX Live Package (tlp) files into TeX Live Database (tldb). =cut