[Po4a-commits] po4a po4a-translate,1.28,1.29

[Jordi Vilalta]

Update of /cvsroot/po4a/po4a
In directory haydn:/tmp/cvs-serv13190

Modified Files:
	po4a-translate 
Log Message:
Added the -L option to po4a and po4a-translate


Index: po4a-translate
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a-translate,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- po4a-translate	15 Aug 2004 07:28:15 -0000	1.28
+++ po4a-translate	6 Nov 2004 15:07:31 -0000	1.29
@@ -65,6 +65,10 @@
 
 File where the localized (translated) document should be written.
 
+=item -L, --localized-charset
+
+Charset of the file containing the localized document.
+
 =item -p, --po
 
 File from which the message catalog should be read.
@@ -177,7 +181,7 @@
 my ($outfile,$width,$threshold)=('-',80,80);
 my ($help,$help_fmt,@verbose,$debug,@addfiles,$format,@options);
 my ($master_filename,$po_filename);
-my ($mastchar,$addchar);
+my ($mastchar,$locchar,$addchar);
 GetOptions(
         'help|h'        => \$help,
         'help-format'   => \$help_fmt,
@@ -189,6 +193,7 @@
 	'format|f=s'    => \$format,
 
 	'master-charset|M=s'    => \$mastchar,
+	'localized-charset|L=s' => \$locchar,
 	'addendum-charset|A=s' => \$addchar,
 
         'option|o=s'    => \@options,
@@ -232,6 +237,7 @@
 $doc->process('po_in_name'       => \@pos,
 	      'file_in_name'     => \@masters,
 	      'file_in_charset'  => $mastchar,
+	      'file_out_charset' => $locchar,
 	      'addendum_charset' => $addchar);
 
 my ($percent,$hit,$queries) = $doc->stats();