[Po4a-commits] "po4a/lib/Locale/Po4a Wml.pm,1.7,1.8"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Thu Feb 28 18:52:41 UTC 2008
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv8877/lib/Locale/Po4a
Modified Files:
Wml.pm
Log Message:
Enable handling define-tag tags.
Patch by: Noritada Kobayashi <nori1 at dolphin.c.u-tokyo.ac.jp>
Index: Wml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Wml.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Wml.pm 28 Feb 2008 18:51:25 -0000 1.7
+++ Wml.pm 28 Feb 2008 18:52:38 -0000 1.8
@@ -111,6 +111,9 @@
warn "FIXME: We should translate the page title: $1\n";
}
}
+
+ # Validate define-tag tag's argument
+ $file =~ s|(<define-tag\s+)([^\s>]+)|$1PO4ADUMMYATTR="$2"|g;
# Flush the result to disk
open OUTFILE,">$tmp_filename";
@@ -136,6 +139,7 @@
$file = join("",@{$xmlizer->{TT}{doc_out}});
$file =~ s/^<!--PO4ASHARPBEGIN(.*?)PO4ASHARPEND-->/#$1/mg;
$file =~ s/<!--PO4ABEGINPERL(.*?)PO4AENDPERL-->/<:$1:>/msg;
+ $file =~ s|(<define-tag\s+)PO4ADUMMYATTR="([^"]*)"|$1$2|g;
$file =~ s/PO4ALT/</msg;
$file =~ s/PO4AGT/>/msg;
More information about the Po4a-commits
mailing list