[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.146,1.147"

[Nicolas FRANCOIS]

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

Modified Files:
	Man.pm 
Log Message:
More \c allowed


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.146
retrieving revision 1.147
diff -u -d -r1.146 -r1.147
--- Man.pm	3 Jun 2006 22:41:51 -0000	1.146
+++ Man.pm	4 Jun 2006 00:45:01 -0000	1.147
@@ -688,7 +688,7 @@
             $line = "$insert_font$line\\fR\n";
         }
 
-        if ($line =~ /^(.*)\\c\s*\\fR\n/) {
+        if ($line =~ /^(.*)\\c(\\f.)?\s*\\fR\n/) {
             my $begin = $1;
 
             my ($l2,$r2)=$self->SUPER::shiftline();
@@ -790,6 +790,13 @@
     }
 
     # Note: if you want to implement \c support, the gdb man page is your playground
+    if (    not defined $self->{type}) {
+        $str =~ s/^((?:.*)\n|)     #
+                   ([ \t]*[^.'][^\n]*(?<!\\)(?:\\\\)*) # a new line
+                   \\c[ \t]*\n     # ending by \c and followed by a line
+                   ([ \t]*[^.']    # which doesn't start by . or '
+                    (?:.*))$/$1$2$3/sgx;
+    }
     die wrap_ref_mod($ref, "po4a::man", dgettext("po4a","Escape sequence \\c encountered. This is not completely handled yet."))
 	if ($str =~ /\\c/);