[Po4a-commits] r2283 - /trunk/lib/Locale/Po4a/Texinfo.pm

[barbier-guest at users.alioth.debian.org]

Author: barbier-guest
Date: Sat Oct  2 09:00:45 2010
New Revision: 2283

URL: http://svn.debian.org/wsvn/po4a/?sc=1&rev=2283
Log:
Fix handling of @defcodeindex and @defindex commands

Those commands are special since they define new indices.
Also add handling of @clear.

Modified:
    trunk/lib/Locale/Po4a/Texinfo.pm

Modified: trunk/lib/Locale/Po4a/Texinfo.pm
URL: http://svn.debian.org/wsvn/po4a/trunk/lib/Locale/Po4a/Texinfo.pm?rev=2283&op=diff
==============================================================================
--- trunk/lib/Locale/Po4a/Texinfo.pm (original)
+++ trunk/lib/Locale/Po4a/Texinfo.pm Sat Oct  2 09:00:45 2010
@@ -267,6 +267,20 @@
     return ($translated,@$env);
 }
 
+sub defindex_line_command {
+    my $self = shift;
+    my ($command,$variant,$args,$env) = (shift,shift,shift,shift);
+    my $no_wrap = shift;
+    print "line_command($command,$variant,@$args,@$env,$no_wrap)="
+        if ($debug{'commands'});
+    my $idx = $$args[1]."index";
+    $commands{$idx} = \&line_command;
+    $break_line{$idx} = 1;
+    $translate_line_command{$idx} = 1;
+
+    return line_command($self,$command,$variant,$args,$env,$no_wrap);
+}
+
 sub translate_buffer_menu {
     my ($self,$buffer,$no_wrap, at env) = (shift,shift,shift, at _);
     print STDERR "translate_buffer_menu($buffer,$no_wrap, at env)="
@@ -357,10 +371,14 @@
     $break_line{$_} = 1;
     $translate_line_command{$_} = 1;
 }
-foreach (qw(c comment set setfilename setchapternewpage vskip synindex
+foreach (qw(c comment clear set setfilename setchapternewpage vskip synindex
             syncodeindex need fonttextsize printindex headings finalout sp
-            defcodeindex defindex definfoenclose)) {
+            definfoenclose)) {
     $commands{$_} = \&line_command;
+    $break_line{$_} = 1;
+}
+foreach (qw(defcodeindex defindex)) {
+    $commands{$_} = \&defindex_line_command;
     $break_line{$_} = 1;
 }
 # definfoenclose: command definition => translate?