[Po4a-commits] "po4a/lib/Locale/Po4a TeX.pm,1.86,1.87"

[Nicolas FRANCOIS]

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

Modified Files:
	TeX.pm 
Log Message:
Allow space as an argument separator.
In texinfo, some commands are in a single line and a space separate the command and the rest of the line.


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -d -r1.86 -r1.87
--- TeX.pm	15 May 2006 15:58:56 -0000	1.86
+++ TeX.pm	15 May 2006 21:49:54 -0000	1.87
@@ -275,7 +275,7 @@
 # See read_file.
 our @exclude_include;
 
-my %type_end=('{'=>'}', '['=>']');
+my %type_end=('{'=>'}', '['=>']', ' '=>'');
 
 #########################
 #### DEBUGGING STUFF ####
@@ -1360,7 +1360,7 @@
 }
 
 sub register_generic_command {
-    if ($_[0] =~ m/^(.*),((\{_?\}|\[_?\])*)$/) {
+    if ($_[0] =~ m/^(.*),((\{_?\}|\[_?\]| _? )*)$/) {
         my $command = $1;
         my $arg_types = $2;
         if ($command =~ /^([-*+])(.*)$/) {
@@ -1371,7 +1371,7 @@
         my @translated = ();
         while (    defined $arg_types
                and length $arg_types
-               and $arg_types =~ m/^(?:([\{\[])(_?)[\}\]])(.*)$/) {
+               and $arg_types =~ m/^(?:([\{\[ ])(_?)[\}\] ])(.*)$/) {
             push @types, $1;
             push @translated, ($2 eq "_")?1:0;
             $arg_types = $3;