#!/usr/bin/env perl

$num_libs = 1;
$num_classes = 2;
$num_methods = 2;
$num_mains = 2;

$gxx = "g++ -m64 -mcpu=ultrasparc";

# Build method declarations.
my $method_decl, @method_decl;
my $method_call, @method_call;

foreach $method (1 .. $num_methods) {
    push (@method_decl, "void method_${method} () { throw 1; }");
    push (@method_call, "to_destroy d_${method}; method_${method} ();");
}
$method_decl = join ("\n  ", @method_decl);
$method_call = join ("\n    ", @method_call);

foreach $lib (1 .. $num_libs) {
    my @objs;
    
    foreach $class (1 .. $num_classes) {
	my $header = "l_${lib}_${class}.h";
	open (HEADER, ">${header}") || die "Can not open $header";
	print HEADER <<EOH;

#include <iostream>
#include <string>

struct foo_${lib}_${class} 
{
  typedef foo_${lib}_${class} self_type;

  struct to_destroy
  {
      to_destroy () { self_type tem; tem.method_1 (); }
      ~to_destroy () { self_type tem; tem.method_1 (); }
  };

  foo_${lib}_${class} ()
  {
    $method_call
  }
  foo_${lib}_${class} (const self_type &)
  {
    $method_call
  }
  ~foo_${lib}_${class} ()
  {
    $method_call
  }

  $method_decl

  static self_type bar ();

  std::string _a_string;
};
EOH
	close (HEADER);
    }
    foreach $class (1 .. $num_classes) {
	my $source = "l_${lib}_${class}.cc";
	my $object = "l_${lib}_${class}.o";

        open (SOURCE, ">${source}") || die "Can not open $source";
        foreach $j (1 .. $lib) {
	    foreach $i (1 .. $num_classes) {
		print SOURCE <<EOS1;
#include "l_${j}_${i}.h"
EOS1
	    }
	}

        print SOURCE <<EOS2;
foo_${lib}_${class}
foo_${lib}_${class}::bar ()
{
  std::cout << "something to instanciate templates\\n";
EOS2

        foreach $j (1 .. $lib) {
	    foreach $i (1 .. $num_classes) {
		print SOURCE <<EOS3;
  foo_${j}_${i}::bar ();
EOS3
	    }
        }

        print SOURCE <<EOS4;
  return foo_${lib}_${class} ();
}
EOS4

      close SOURCE;

      my $compile = "${gxx} -fPIC -c $source";
      print $compile, "\n";
      system ($compile) && die "Compilation failed";

      push (@objs, $object);
    }

  my $link
    = "${gxx} --shared -o libl_${lib}.so "
    . join (' ', @objs)
    . " -L`pwd` "
    . join (' ', @libs);
  print $link, "\n";
  system ($link) && die "Link failed";

  push (@libs, "-ll_${lib}");
}

foreach $main (1 .. $num_mains) {
    my $source = "main_${main}.cc";
    my $object = "main_${main}.o";

    open (MAIN, ">${source}") || die "Can not open ${source}";

    foreach $lib (1 .. $num_libs) {
        foreach $class (1 .. $num_classes) {
	    print MAIN <<EOM1;
#include "l_${lib}_${class}.h"
EOM1
	}
    }

    my $main_name = ($main == 1 ? "main" : "main_${main}");

    print MAIN <<EOM2;
int
${main_name} ()
{
EOM2

    foreach $lib (1 .. $num_libs) {
	foreach $class (1 .. $num_classes) {
	    next if ($class % 2 == 0);

	    print MAIN <<EOM3;
  foo_${lib}_${class}::bar ();
EOM3
	}
    }

    print MAIN <<EOM4;
  return 0;
}
EOM4

    close MAIN;

    my $compile = "${gxx} -c $source";
    print $compile, "\n";
    system ($compile) && die "Compilation failed";

    push (@mains, $object);
}

my $link = "${gxx} -o link-test "
 . join (' ', @mains)
 . " -L`pwd` " . join (' ', @libs);

print $link, "\n";
system ($link) && die "Link failed";