summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-perltk-en
blob: 0828fd09446a12981af4d3071edb634437407d1f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
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<file> are accepted; see the C<process_logging_options>
function in L<TeXLive::TLUtils> 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<http://tug.org/texlive/tlmgr.html> explains
more.

=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: #