Update of /cvsroot/po4a/po4a/lib/Locale/Po4a In directory haydn:/tmp/cvs-serv2275 Modified Files: TransTractor.pm Log Message: First small step towars the encoding support :) Detect if the input document has non-ascii characters Index: TransTractor.pm =================================================================== RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v retrieving revision 1.27 retrieving revision 1.28 diff -u -d -r1.27 -r1.28 --- TransTractor.pm 29 Jul 2004 01:27:51 -0000 1.27 +++ TransTractor.pm 5 Aug 2004 12:19:59 -0000 1.28 @@ -21,6 +21,8 @@ use Locale::gettext qw(dgettext); +use Encode::Guess; + =head1 NAME Po4a TransTractor - Generic trans(lator ex)tractor. @@ -307,6 +309,8 @@ if (defined $options{'debug'}) { $self->{TT}{debug} = $options{'debug'}; } + # Input document is in ascii until we prove the opposite (in read()) + $self->{TT}{ascii_input}=1; ## initialize the plugin $self->initialize(%options); @@ -344,6 +348,15 @@ my $ref="$filename:$linenum"; my @entry=($textline,$ref); push @{$self->{TT}{doc_in}}, @entry; + + # Detect if this file has non-ascii characters + if($self->{TT}{ascii_input}) { + my $decoder = guess_encoding($textline); + if (!ref($decoder) or $decoder !~ /Encode::XS=/) { + # We have detected a non-ascii line + $self->{TT}{ascii_input} = 0; + } + } } close INPUT or croak (sprintf(dgettext("po4a","Can't close %s after reading: %s"),$filename,$!)."\n");