[Texi2html-cvs] texi2html/test/nested_formats generate_all_texi.pl

[Patrice Dumas]

CVSROOT:        /cvsroot/texi2html
Module name:    texi2html
Changes by:     Patrice Dumas <pertusus>        09/08/25 10:49:13

Added files:
        test/nested_formats: generate_all_texi.pl 

Log message:
        Add a script that generates the expanded nested_formats manuals for all
        the formats tested, and try makeinfo on the resulting manuals.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texi2html/test/nested_formats/generate_all_texi.pl?cvsroot=texi2html&rev=1.1

Patches:
Index: generate_all_texi.pl
===================================================================
RCS file: generate_all_texi.pl
diff -N generate_all_texi.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ generate_all_texi.pl        25 Aug 2009 10:49:12 -0000      1.1
@@ -0,0 +1,34 @@
+#! /usr/bin/perl -w
+
+#Â expand the manuals with nested formats using texi2html and test
+#Â with makeinfo on these expanded manuals (it is likely that makeinfo 
+#Â cannot expand those manuals in some cases).
+use strict;
+
+open (TXT, 'tests.txt') or die "Cannot open tests.txt: $!\n";
+
+mkdir ("all_texi");
+
+while (<TXT>)
+{
+   next if /^\s*\#/;
+   if (/^(\w+) nested_formats.texi -D (\w+)$/)
+   {
+      my $dir = $1;
+      my $def = $2;
+      my $format;
+      mkdir ("all_texi/$dir");
+      if ($def =~ /[a-z]+_([a-z]+)$/)
+      {
+         $format = $1;
+      }
+      system("perl -w -x ../../texi2html.pl  nested_formats.texi -D $def 
--macro-expand=all_texi/$format-nested_formats.texi");
+      system ("cp all_texi/$format-nested_formats.texi 
all_texi/$dir/nested_formats.texi");
+      #system ("perl -w -x ../../texi2html.pl -D $def 
--expand-macro=all_texi/$dir/$format-nested_formats.texi");
+      system ("cd all_texi/$dir/ && makeinfo --force nested_formats.texi 
2>nested_formats.2");
+   }
+   else
+   {
+       print STDERR "Ignoring $_";
+   }
+}