diff options
author | Norbert Preining <preining@logic.at> | 2008-02-08 09:13:03 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-02-08 09:13:03 +0000 |
commit | 2f484d484885e8507dae90bcebbf61a145027d7a (patch) | |
tree | 7eba06f4a5458ced85cac0cf36573ab52cb33ab7 /Build | |
parent | 1e66e3252cf6149c26a76a045c7d7e062f4b67a6 (diff) |
again
git-svn-id: svn://tug.org/texlive/trunk@6535 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rwxr-xr-x | Build/source/texk/texlive/generate-fmtutil | 107 | ||||
-rwxr-xr-x | Build/source/texk/texlive/generate-fmtutil.texlua | 2 | ||||
-rwxr-xr-x | Build/source/texk/texlive/generate-language | 104 | ||||
-rwxr-xr-x | Build/source/texk/texlive/generate-language.texlua | 2 | ||||
-rwxr-xr-x | Build/source/texk/texlive/generate-updmap | 110 | ||||
-rwxr-xr-x | Build/source/texk/texlive/generate-updmap.texlua | 2 |
6 files changed, 3 insertions, 324 deletions
diff --git a/Build/source/texk/texlive/generate-fmtutil b/Build/source/texk/texlive/generate-fmtutil deleted file mode 100755 index 19824aaa11f..00000000000 --- a/Build/source/texk/texlive/generate-fmtutil +++ /dev/null @@ -1,107 +0,0 @@ -#!/usr/bin/env perl -# $Id: generate-fmtutil 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 fmtutil.cnf file from the data in the tlpdb and -- if present -# -- with TEXMFLOCAL/web2c/fmtutil-local.cnf - -BEGIN { - $^W = 1; - $master = `kpsewhich -var-value=SELFAUTOPARENT`; - chomp($master); - if (-r "$master/tlpkg/TeXLive") { - unshift (@INC, "$master/tlpkg"); - } else { - die("Cannot find TeX Live's Perl modules, exiting!\n"); - } -} - -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; - -my $opt_debug = 0; -my $help = 0; -my $dest = ""; -my $localconf = ""; -our $master; - -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 $tlpdb = TeXLive::TLPDB->new ("root" => "$master"); - if (!defined($tlpdb)) { - die "Cannot find texlive.tlpdb below $master: $!\n"; - } - $dest || ($dest = kpsewhich("TEXMFSYSVAR") . "/web2c/fmtutil.cnf"); - $localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/web2c/fmtutil-local.cnf"); - tllog($::LOG_NORMAL, "writing fmtutil.cnf data to $dest\n"); - TeXLive::TLUtils::create_fmtutil($tlpdb, $dest, $localconf); -} - - -__END__ - -=head1 NAME - -generate-fmtutil - generate fmtutil.cnf from a TLPDB and local additions - -=head1 SYNOPSIS - -generate-fmtutil [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: # diff --git a/Build/source/texk/texlive/generate-fmtutil.texlua b/Build/source/texk/texlive/generate-fmtutil.texlua index efa451eb423..bc497f26fa2 100755 --- a/Build/source/texk/texlive/generate-fmtutil.texlua +++ b/Build/source/texk/texlive/generate-fmtutil.texlua @@ -1,4 +1,4 @@ -#!/xusr/bin/env texlua +#!/usr/bin/env texlua --*-Lua-*- -- $Id: generate-updmap.fmtutil 6485 2008-02-01 20:15:06Z reinhardk $ diff --git a/Build/source/texk/texlive/generate-language b/Build/source/texk/texlive/generate-language deleted file mode 100755 index 3def1f1e757..00000000000 --- a/Build/source/texk/texlive/generate-language +++ /dev/null @@ -1,104 +0,0 @@ -#!/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; - $master = `kpsewhich -var-value=SELFAUTOPARENT`; - chomp($master); - if (-r "$master/tlpkg/TeXLive") { - unshift (@INC, "$master/tlpkg"); - } else { - die("Cannot find TeX Live's Perl modules, exiting!\n"); - } -} - -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; - -our $master; -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 $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: # diff --git a/Build/source/texk/texlive/generate-language.texlua b/Build/source/texk/texlive/generate-language.texlua index 1180c984881..1f16e0ab345 100755 --- a/Build/source/texk/texlive/generate-language.texlua +++ b/Build/source/texk/texlive/generate-language.texlua @@ -1,4 +1,4 @@ -#!/xusr/bin/env texlua +#!/usr/bin/env texlua --*-Lua-*- -- $Id: generate-language.texlua 6485 2008-02-01 20:15:06Z reinhardk $ diff --git a/Build/source/texk/texlive/generate-updmap b/Build/source/texk/texlive/generate-updmap deleted file mode 100755 index 10b22bfffa4..00000000000 --- a/Build/source/texk/texlive/generate-updmap +++ /dev/null @@ -1,110 +0,0 @@ -#!/usr/bin/env perl -# $Id: generate-updmap 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 updmap.cfg file from the data in the tlpdb and -- if present -# -- with TEXMFLOCAL/web2c/updmap-local.cfg - -BEGIN { - $^W = 1; - $master = `kpsewhich -var-value=SELFAUTOPARENT`; - chomp($master); - if (-r "$master/tlpkg/TeXLive") { - unshift (@INC, "$master/tlpkg"); - } else { - die("Cannot find TeX Live's Perl modules, exiting!\n"); - } -} - -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; - -our $master; -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 $tlpdb = TeXLive::TLPDB->new ("root" => "$master"); - $dest || ($dest = kpsewhich("TEXMFSYSVAR") . "/web2c/updmap.cfg"); - $localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/web2c/updmap-local.cfg"); - tllog($::LOG_NORMAL, "$0: writing new updmap.cfg to $dest\n"); - TeXLive::TLUtils::create_updmap ($tlpdb, $dest, $localconf); -} - - -__END__ - -=head1 NAME - -generate-updmap - generate updmap.cfg from a TeX Live db and local additions - -=head1 SYNOPSIS - -generate-updmap [OPTION]... - -=head1 OPTIONS - -=over 8 - -=item C<-dest> I<output_file> - -specifies the output file; defaults to -C<$TEXMFSYSVAR/texmf/web2c/updmap.cfg>. - -=item C<-local> I<local_conf_file> - -specifies the local additions, if any; defaults to -C<$TEXMFLOCAL/web2c/updmap-local.cfg>. - -=back - -The standard options C<-help> and C<-debug> are accepted. -See the tlpfiles documentation for details. - -=head1 DESCRIPTION - -B<generate-updmap> creates an updated C<updmap.cfg> file with the C<Map> -and C<MixedMap> entries taken from the TL database, plus (optionally) -local additions. - -No repository actions are performed in any case. - -=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: # diff --git a/Build/source/texk/texlive/generate-updmap.texlua b/Build/source/texk/texlive/generate-updmap.texlua index ca362add834..b5ef265bd55 100755 --- a/Build/source/texk/texlive/generate-updmap.texlua +++ b/Build/source/texk/texlive/generate-updmap.texlua @@ -1,4 +1,4 @@ -#!/xusr/bin/env texlua +#!/usr/bin/env texlua --*-Lua-*- -- $Id: generate-updmap.texlua 6485 2008-02-01 20:15:06Z reinhardk $ |