[Po4a-commits] po4a/lib/Locale/Po4a Wml.pm,NONE,1.1

[Martin Quinson]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv19608

Added Files:
	Wml.pm 
Log Message:
Very preliminary testing, nothing usable

--- NEW FILE: Wml.pm ---
#!/usr/bin/perl -w

# Po4a::Wml.pm
# 
# extract and translate translatable strings from a wml (web markup language) documents
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
########################################################################

=head1 NAME

Locale::Po4a::Wml - Convert wml (web markup language) documents from/to PO files

=head1 DESCRIPTION

The po4a (po for anything) project goal is to ease translations (and more
interestingly, the maintenance of translations) using gettext tools on
areas where they were not expected like documentation.

Locale::Po4a::Wml is a module to help the translation of wml documents into
other [human] languages. Do not mixup the WML we are speaking about here
(web markup language) and the WAP crap used on cell phones.

=head1 OPTIONS ACCEPTED BY THIS MODULE

NONE.

=head1 STATUS OF THIS MODULE

Still to be implemented.

=head1 TODO

Faut charger le fichier wml en mémoire 
Faut faire toutes les embrouilles pour cacher ce que xml ne saurait voir
    while ($file =~ /^(.*?)<perl>(.*?)</perl>(.*?)$) {
       my ($pre,$in,$post) = ($1,$2,$3):
       Ensuite, dans $in, tu changes tous les "<" par PO4ALT et ">" par PO4AGT
       comme ca, le perl va plus te faire chier
       Et tu remplace $file par ${pre}<!--PO4ABEGINPERL${in}PO4AENDPERL-->$post
    Ensuite, tu lances le module xml sur $file

Faut écrire le tout dans un fichier temporaire sur disque
Faut créer un TransTractor de type xml sur ce fichier
Faut lui voler son fichier po
Faut récupérer le fichier traduit qu'il a produit
Et faut défaire toutes les cochonneries qu'on a faites
Dans le po, faut corriger les références pour pointer sur le fichier de départ, pas le temporaire 

(12:11:26) adn: et pour les # du début ?
(12:11:57) adn: si y a moyen juste de sortir le pagetitle="foo" en <title>foo</title>, c'est encore mieux
(00:42:51) adn: #use wml::debian::mainpage title="Le système d'exploitation universel"

=cut

package Locale::Po4a::Wml;

use 5.006;
use strict;
use warnings;

require Exporter;
use vars qw(@ISA @EXPORT);
@ISA = qw(Locale::Po4a::TransTractor);
@EXPORT = qw();

use Locale::Po4a::TransTractor;
use Locale::Po4a::Common;


sub initialize {}

sub read {
    my ($self,$filename)=@_;
    
    push @{$self->{DOCWML}{infile}}, $filename;
}
    

sub parse {
    my $self = shift;

    foreach my $filename,@{$self->{DOCWML}{infile}} {
      my $file;
      open FILEIN,"$filename" || die "Cannot read $filename: $!\n";
      {
        $/ = undef; 
        $file=<>;
        while ($file =~ m|^(.*?)<perl>(.*?)</perl>(.*?)$|ms ||Â $file =~ m|^(.*?)<:(.*?):>(.*?)$|ms) {
          my ($pre,$in,$post) = ($1,$2,$3):
          $in =~ s/</PO4ALT/g;
          $in =~ s/>/PO4AGT/g;
          # ok, perl parts should be dead
          $file = "${pre}<!--PO4ABEGINPERL${in}PO4AENDPERL-->$post"
        }
        
        while ($file =~ s|^#(.*)$|<!--PO4ASHARPBEGIN$1PO4ASHARPEND-->|s) {
          my $line = $1;
          if ($line =~ m/^use wml::debian::mainpage title="([^"]*)") {#"){
            warn "We should translate the page title: $1\n";
          }          
        }
        
        
        (undef,$tmp_filename)=File::Temp->tempfile("po4aXXXX",
                                                   DIR    => "/tmp",
						   SUFFIX => ".xml",
                                                   OPEN   => 0,
						   UNLINK => 0)
		or die wrap_msg(gettext("Can't create a temporary xml file: %s"), $!);
        open OUTFILE,">$tmp_filename";
        print OUTFILE, $file;
        close INFILE;
        close OUTFILE || die "Cannot write $tmp_filename: $!\n";
      }
    }
}

1;

=head1 AUTHORS

This module will be implemented by Martin Quinson (mquinson#debian.org), amonst other (I hope).

=head1 COPYRIGHT AND LICENSE

 Copyright 2005 by SPI, inc.

This program is free software; you may redistribute it and/or modify it
under the terms of GPL (see the COPYING file).