texinfo/tp TODO t/init/ignore_and_comments_outp...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/10/07 23:53:23

Modified files:
        tp             : TODO 
Added files:
        tp/t/init      : ignore_and_comments_output.init 

Log message:
        Port another init file which sets expansion of comments and ignore.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/TODO?cvsroot=texinfo&r1=1.187&r2=1.188
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/init/ignore_and_comments_output.init?cvsroot=texinfo&rev=1.1

Patches:
Index: TODO
===================================================================
RCS file: /sources/texinfo/texinfo/tp/TODO,v
retrieving revision 1.187
retrieving revision 1.188
diff -u -b -r1.187 -r1.188
--- TODO        5 Oct 2011 06:53:42 -0000       1.187
+++ TODO        7 Oct 2011 23:53:23 -0000       1.188
@@ -254,6 +254,16 @@
 sectioning_command_target_name
 node_target_name
 
+.init files:
+manuals/cvs.init
+manuals/mini_ker_t2h.init
+singular_manual/t2h_singular.init
+
+not relevant since indices cannot be split anymore
+indices/index_test.init     
+
+
+
 Incorporation of texi2html tests
 --------------------------------
 

Index: t/init/ignore_and_comments_output.init
===================================================================
RCS file: t/init/ignore_and_comments_output.init
diff -N t/init/ignore_and_comments_output.init
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ t/init/ignore_and_comments_output.init      7 Oct 2011 23:53:23 -0000       
1.1
@@ -0,0 +1,32 @@
+use strict;
+
+use vars qw(%commands_conversion);
+
+sub convert_comment_command($$$)
+{
+  my $self = shift;
+  my $cmdname = shift;
+  my $command = shift;
+
+  if ($command->{'args'} and $command->{'args'}->[0]) {
+    return $self->xml_comment($command->{'args'}->[0]->{'text'});
+  } else {
+    return '';
+  }
+}
+
+$commands_conversion{'comment'} = \&convert_comment_command;
+$commands_conversion{'c'} = \&convert_comment_command;
+
+sub convert_ignore_command($$$$)
+{
+  my $self = shift;
+  my $cmdname = shift;
+  my $command = shift;
+  my $content = shift;
+
+  # FIXME should the spacing be set differently for raw commands?
+  return $self->xml_comment(" ".$content."\n");
+}
+
+$commands_conversion{'ignore'} = \&convert_ignore_command;