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
98
99
100
101
102
|
#!/usr/bin/perl
use FindBin qw($RealBin);
use lib "$RealBin/../lib";
use strict;
use Locale::Maketext::Extract::Run 'xgettext';
xgettext(@ARGV);
=head1 NAME
xgettext.pl - Extract translatable strings from source
=head1 SYNOPSIS
B<xgettext.pl> [I<OPTION>] [I<INPUTFILE>]...
=head1 DESCRIPTION
This program extracts translatable strings from given input files, or
from B<STDIN> if none are given.
Please see L<Locale::Maketext::Extract> for a list of supported input file
formats.
=head1 OPTIONS
Mandatory arguments to long options are mandatory for short options too.
Similarly for optional arguments.
=head2 Input file location:
=over 4
=item I<INPUTFILE>...
Files to extract messages from. If not specified, B<STDIN> is assumed.
=item B<-f>, B<--files-from>=I<FILE>
Get list of input files from I<FILE>.
=item B<-D>, B<--directory>=I<DIRECTORY>
Add I<DIRECTORY> to list for input files search.
=back
=head2 Output file location:
=over 4
=item B<-d>, B<--default-domain>=I<NAME>
Use I<NAME>.po for output, instead of C<messages.po>.
=item B<-o>, B<--output>=I<FILE>
PO file name to be written or incrementally updated; C<-> means writing
to B<STDOUT>.
=item B<-p>, B<--output-dir>=I<DIR>
Output files will be placed in directory I<DIR>.
=back
=head2 Output details:
=over 4
=item B<-u>, B<--unescaped>
Disables conversion from B<Maketext> format to B<Gettext> format -- i.e.
leave all brackets alone. This is useful if you are also using the
B<Gettext> syntax in your program.
=item B<-g>, B<--gnu-gettext>
Enables GNU gettext interoperability by printing C<#, perl-maketext-format>
before each entry that has C<%> variables.
=back
=head1 SEE ALSO
L<Locale::Maketext::Extract>,
L<Locale::Maketext::Lexicon::Gettext>,
L<Locale::Maketext>
=head1 AUTHORS
Autrijus Tang E<lt>autrijus@autrijus.orgE<gt>
=head1 COPYRIGHT
Copyright 2002, 2003, 2004 by Autrijus Tang E<lt>autrijus@autrijus.orgE<gt>.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
See L<http://www.perl.com/perl/misc/Artistic.html>
=cut
|
