#!/usr/bin/env perl # $Id: generate-language 5188 2007-10-14 20:32:44Z karl $ # Copyright 2007 Norbert Preining. # This file is licensed under the GNU General Public License version 2 # or any later version. # # generate language.dat file from the data in the tlpdb and -- if present # -- with TEXMFLOCAL/tex/generic/config/language-local.dat BEGIN { $^W = 1; ($mydir = $0) =~ s,/[^/]*$,,; unshift (@INC, "$mydir/.."); } use strict; use TeXLive::TLConfig; use TeXLive::TLPOBJ; use TeXLive::TLPDB; use TeXLive::TLUtils qw/kpsewhich tllog/; use Getopt::Long; use Pod::Usage; use File::Path; use Cwd 'abs_path'; our $mydir; my $opt_debug = 0; my $help = 0; my $dest = ""; my $localconf = ""; GetOptions("debug!", "dest=s" => \$dest, "local=s" => \$localconf, "help|?" => \$help) or pod2usage(1); pod2usage(-exitstatus => 0, -verbose => 2) if $help; if ($opt_debug) { $::LOGLEVELFILE = $::LOG_DDDEBUG; $::LOGLEVELTERMINAL = $::LOG_DDDEBUG; } exit (&main ()); sub main { # get the db. my $Master = abs_path("$mydir/../.."); my $tlpdb = TeXLive::TLPDB->new ("root" => "$Master"); $dest || ($dest = kpsewhich("TEXMFSYSVAR") . "/tex/generic/config/language.dat"); $localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/tex/generic/config/language-local.dat"); tllog($::LOG_NORMAL, "writing language.dat data to $dest\n"); TeXLive::TLUtils::create_language($tlpdb, $dest, $localconf); } __END__ =head1 NAME generate-language - generate language.dat from a TLPDB and local additions =head1 SYNOPSIS generate-language [OPTION]... =head1 OPTIONS =over 8 =item C<-dest> I specifies the output file =item C<-local> I specifies the local additions =back The standard options C<-help> and C<-debug> are accepted. See the tlpfiles documentation for details. =head1 DESCRIPTION Missing =head1 AUTHORS AND COPYRIGHT This script and its documentation were written for the TeX Live distribution (L) and both are licensed under the GNU General Public License Version 2 or later. =cut ### Local Variables: ### perl-indent-level: 2 ### tab-width: 2 ### indent-tabs-mode: nil ### End: # vim:set tabstop=2 expandtab: #