[Po4a-commits] po4a po4a-translate,1.25,1.26

[Jordi Vilalta]

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

Modified Files:
	po4a-translate 
Log Message:
Implemented addendum recoding
jvprat was here ;)


Index: po4a-translate
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a-translate,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- po4a-translate	19 Jul 2004 10:21:12 -0000	1.25
+++ po4a-translate	14 Aug 2004 14:32:19 -0000	1.26
@@ -177,6 +177,7 @@
 my ($outfile,$width,$threshold)=('-',80,80);
 my ($help,$help_fmt,$verbose,$debug,@addfiles,$format,@options);
 my ($master_filename,$po_filename);
+my ($mastchar,$addchar);
 GetOptions(
         'help|h'        => \$help,
         'help-format'   => \$help_fmt,
@@ -187,6 +188,9 @@
 	'addendum|a=s'  => \@addfiles,
 	'format|f=s'    => \$format,
 
+	'master-charset|M=s'    => \$mastchar,
+	'addendum-charset|A=s' => \$addchar,
+
         'option|o=s'    => \@options,
     
 	'width|w=s'     => \$width,
@@ -224,8 +228,10 @@
 my $doc=Locale::Po4a::Chooser::new($format,%options);
 
 # Prepare the document to be used as translator, but not parser
-$doc->process('po_in_name'   => \@pos,
-	      'file_in_name' => \@masters);
+$doc->process('po_in_name'       => \@pos,
+	      'file_in_name'     => \@masters,
+	      'file_in_charset'  => $mastchar,
+	      'addendum_charset' => $addchar);
 
 
 my ($percent,$hit,$queries) = $doc->stats();