texinfo/tp/Texinfo/Convert HTML.pm

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/06/05 14:51:37

Modified files:
        tp/Texinfo/Convert: HTML.pm 

Log message:
        Handle @value with undefined flag.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Convert/HTML.pm?cvsroot=texinfo&r1=1.85&r2=1.86

Patches:
Index: HTML.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Convert/HTML.pm,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -b -r1.85 -r1.86
--- HTML.pm     5 Jun 2011 14:11:36 -0000       1.85
+++ HTML.pm     5 Jun 2011 14:51:37 -0000       1.86
@@ -1184,6 +1184,19 @@
   return $text;
 }
 
+sub _convert_value_command($$$$)
+{
+  my $self = shift;
+  my $cmdname = shift;
+  my $command = shift;
+  my $args = shift;
+
+  return $self->convert_tree ($self->gdt('@{No value for `{value}\'@}',
+                                        {'value' => $command->{'type'}}));
+}
+
+$default_commands_conversion{'value'} = \&_convert_value_command;
+
 sub _convert_email_command($$$$)
 {
   my $self = shift;
@@ -3638,8 +3651,9 @@
     }
   }
 
+  # FIXME put value in a category in Texinfo::Common?
   foreach my $command (keys(%misc_commands), keys(%brace_commands),
-     keys (%block_commands), keys(%no_brace_commands)) {
+     keys (%block_commands), keys(%no_brace_commands), 'value') {
     if (exists($Texinfo::Config::commands_conversion{$command})) {
       $self->{'commands_conversion'}->{$command} 
           = $Texinfo::Config::commands_conversion{$command};
@@ -5698,8 +5712,6 @@
 #    print STDERR "INDEX ENTRY lines_count $location->{'lines'}, index_entry 
$location->{'index_entry'}\n" 
 #       if ($self->get_conf('DEBUG'));
 
-  # TODO special: footnote
-
   # commands like @deffnx have both a cmdname and a def_line type.  It is
   # better to consider them as a def_line type, as the whole point of the
   # def_line type is to handle the same the def*x and def* line formatting. 
@@ -5941,15 +5953,6 @@
       return '';
     }
   }
-    #} elsif ($command eq 'value') {
-    #  my $expansion = $self->gdt('@{No value for `{value}\'@}', 
-    #                                {'value' => $root->{'type'}});
-    #  if ($formatter->{'_top_formatter'}) {
-    #    $expansion = {'type' => 'paragraph',
-    #                  'contents' => [$expansion]};
-    #  }
-    #  $result .= $self->_convert($expansion);
-    # }
   print STDERR "DEBUG: HERE!($root)\n";
 }