← Back to branch summary

~ubuntu-branches/ubuntu/wily/po4a/wily

« back to all changes in this revision

Viewing changes to lib/Locale/Po4a/Wml.pm

  • Committer: Bazaar Package Importer
  • Author(s): Nicolas FRANCOIS (Nekral), Denis Barbier, Updated program translations, Updated documentation translations
  • Date: 2010-08-25 23:16:59 UTC
  • mfrom: (1.3.9 upstream)
  • Revision ID: james.westby@ubuntu.com-20100825231659-rln0fgarttc4up62
Tags: 0.40.1-1
http://bugs.debian.org/565422
http://bugs.debian.org/590502
http://bugs.debian.org/593106
http://bugs.debian.org/592041
http://bugs.debian.org/592330
http://bugs.debian.org/594258
[ Denis Barbier ]
* New upstream release.
  + Style update in documentation.
  + Mention po4a-build in po4a(1). Closes: #565422
  + Use 'Software in the Public Interest'. Closes: #590502
  + Change header entry in PO files to be consistent with
    xgettext when creating POT files.
  + Trailing spaces must not be removed from translations
    if they are escaped.  Closes: #593106
* debian/control: Upstream repository has switched
  from CVS to SVN, update Vcs-* fields.

[ Updated program translations ]

* French, by David Prévot
* Spanish, by Omar Campagne
* Japanese, by KURASAWA Nozomu
* Esperanto, by Joop Eggen
* Swedish, by Martin Bagge
* Russian, by Yuri Kozlov (Closes: #592041)
* Estonian, by Annika
* Ukrainian, by Yuri Chornoivan
* Czech, by Michal Šimůnek (Closes: #592330)
* Portuguese, by António Moreira
* German, by Thomas Müller (Closes: #594258)

[ Updated documentation translations ]

* French, by David Prévot
* Spanish, by Omar Campagne
* Japanese, by KURASAWA Nozomu

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Locale/Po4a/Wml.pm
2
2
 
3
3
# Po4a::Wml.pm
4
4
#
5
 
# extract and translate translatable strings from a wml (web markup language) documents
 
5
# extract and translate translatable strings from a WML (web markup language) documents
6
6
#
7
7
# This program is free software; you can redistribute it and/or modify
8
8
# it under the terms of the GNU General Public License as published by
24
24
 
25
25
=head1 NAME
26
26
 
27
 
Locale::Po4a::Wml - Convert wml (web markup language) documents from/to PO files
 
27
Locale::Po4a::Wml - convert WML (web markup language) documents from/to PO files
28
28
 
29
29
=head1 DESCRIPTION
30
30
 
31
 
The po4a (po for anything) project goal is to ease translations (and more
 
31
The po4a (PO for anything) project goal is to ease translations (and more
32
32
interestingly, the maintenance of translations) using gettext tools on
33
33
areas where they were not expected like documentation.
34
34
 
35
 
Locale::Po4a::Wml is a module to help the translation of wml documents into
 
35
Locale::Po4a::Wml is a module to help the translation of WML documents into
36
36
other [human] languages. Do not mixup the WML we are speaking about here
37
37
(web markup language) and the WAP crap used on cell phones.
38
38
 
50
50
This module works for some simple documents, but is still young.
51
51
Currently, the biggest issue of the module is probably that it cannot
52
52
handle documents that contain non-XML inline tags such as <email
53
 
"foo@example.org">, which are often defined in the Wml.  Improvements
 
53
"foo@example.org">, which are often defined in the WML.  Improvements
54
54
will be added in the future releases.
55
55
 
56
56
=cut
86
86
                                                SUFFIX => ".xml",
87
87
                                                OPEN   => 0,
88
88
                                                UNLINK => 0)
89
 
        or die wrap_msg(gettext("Can't create a temporary xml file: %s"), $!);
 
89
        or die wrap_msg(gettext("Can't create a temporary XML file: %s"), $!);
90
90
     my $file;
91
91
     open FILEIN,"$filename" or die "Cannot read $filename: $!\n";
92
92
     {
142
142
               s|$filename(:\d+)|$org_filename$1|o;
143
143
        }
144
144
 
145
 
        # Get the document back (undoing our wml masking)
 
145
        # Get the document back (undoing our WML masking)
146
146
        # FIXME: need to join the file first, and then split?
147
147
        my @doc_out;
148
148
        foreach my $line (@{$self->{TT}{doc_out}}) {