From 1bf50b63af76bad30fceebfb740ea39ffeda518e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 5 Feb 2009 13:26:45 +0000 Subject: add a script that can be used to update the perltk-en.sample file git-svn-id: svn://tug.org/texlive/trunk@12095 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tl-update-perltk-en | 97 ++++++++++++++++++++++++++++++++++++ 1 file changed, 97 insertions(+) create mode 100755 Master/tlpkg/bin/tl-update-perltk-en diff --git a/Master/tlpkg/bin/tl-update-perltk-en b/Master/tlpkg/bin/tl-update-perltk-en new file mode 100755 index 00000000000..0828fd09446 --- /dev/null +++ b/Master/tlpkg/bin/tl-update-perltk-en @@ -0,0 +1,97 @@ +#!/usr/bin/env perl +# $Id$ +# Copyright 2008 Norbert Preining +# This file is licensed under the GNU General Public License version 2 +# or any later version. +# +# Update the strings in tlpkg/installer/lang/perltk-en.sample +# from the strings in tlpkg/installer/install-translations.pl +# + +BEGIN { + $^W = 1; + ($mydir = $0) =~ s,/[^/]*$,,; + unshift (@INC, "$mydir/.."); +} + +use TeXLive::TLUtils; +use Getopt::Long; + +my $opt_help = 0; + +TeXLive::TLUtils::process_logging_options(); + +GetOptions("help|?" => \$opt_help) or pod2usage(1); +pod2usage(-exitstatus => 0, -verbose => 2) if $opt_help; + +exit (&main ()); + +sub main +{ + our %text; + our %labels; + require("installer/install-translations.pl"); + print "# +# english strings file for the TeX Live installer +# if you want to contribute a new translation please +# make a copy of this file, name it +# perltk-XX +# where XX is a language code, and translate the strings +# +"; + for my $l (sort keys %text) { + $text{$l} =~ s/\n/\\n/g; + print "text.$l: ", $text{$l}, "\n" + } + print "\n"; + for my $l (sort keys %labels) { + $labels{$l} =~ s/\n/\\n/g; + print "label.$l: ", $labels{$l}, "\n" + } + print " +# Local Variables: +# coding: utf-8 +# End: +# vim:set fileencoding=utf-8: # +"; +} + + +__END__ + +=head1 NAME + +tl-update-nsis - creates a .nsi file for tlmgr packages + +=head1 SYNOPSIS + +tl-update-nsis [OPTION]... + +=head1 OPTIONS + +Only the standard options B<-help> and B<-q>, B<-v>, and +B<-logfile>=I are accepted; see the C +function in L for details. + +=head1 DESCRIPTION + +Creates a C<.nsi> file that can be used with NSIS to create an update +executable for Windows, to work around Windows' inability to overwrite +open files, and for disaster recovery. It contains the tlmgr-related +infrastructure files. L explains +more. + +=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: # -- cgit v1.2.3