diff options
author | Karl Berry <karl@freefriends.org> | 2008-02-05 19:45:38 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-02-05 19:45:38 +0000 |
commit | f7c83f3af0702bc48b556a62f56f9bd1d0ddce5a (patch) | |
tree | a2f40b0c884f057cef2e81ae70770158b58a8862 /Master/tlpkg/installer/generate-language | |
parent | 208b4e0cc96ff0d8307f7b59cb66d52527123029 (diff) |
move installer stuff to installer directory, update README
git-svn-id: svn://tug.org/texlive/trunk@6509 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/generate-language')
-rwxr-xr-x | Master/tlpkg/installer/generate-language | 101 |
1 files changed, 101 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/generate-language b/Master/tlpkg/installer/generate-language new file mode 100755 index 00000000000..dc82106aa69 --- /dev/null +++ b/Master/tlpkg/installer/generate-language @@ -0,0 +1,101 @@ +#!/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<output file> + +specifies the output file + +=item C<-local> I<local conf file> + +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<http://tug.org/texlive>) 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: # |