#! /usr/bin/env perl
# expand the manuals with nested formats using texi2any and test
# with makeinfo on these expanded manuals (it is likely that makeinfo 
# cannot expand those manuals in some cases).
#
# This script allowed to check the differences between texi2any and
# makeinfo in C.  It is certainly obsolete now.

use strict;

# emulates -w
BEGIN
{
  $^W = 1;
}

open (TXT, 'tests-parser.txt') or die "Cannot open tests-parser.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("../../texi2any.pl --force nested_formats.texi -D $def --macro-expand=all_texi/$format-nested_formats.texi -o /dev/null");
      system ("cp all_texi/$format-nested_formats.texi all_texi/$dir/nested_formats.texi");
      system ("cd all_texi/$dir/ && makeinfo --force nested_formats.texi 2>nested_formats.2");
   }
   else
   {
       print STDERR "Ignoring $_";
   }
}