#! /usr/bin/perl -s

#/*@@
#  @routine BuildHeaders
#  @date Sun 13 Sep 1999
#  @author Gabrielle Allen
#  @desc
#  Creates the dynamic header files requested in interface.ccl files
#  and writes them into the Bindings include directory
#  @enddesc
#  @calls
#  @calledby
#  @history
#  @endhistory
#@@*/

require "$sbin_dir/CSTUtils.pl";

sub BuildHeaders
{
  my($cctk_home,$bindings_dir,%database) = @_;
  my($start_dir,$thorn,$inc_file,$inc_file1,$inc_file2);

  $start_dir = `pwd`;
  chdir $bindings_dir;
  chdir include;

# First set all data strings 
  foreach $thorn (split(" ",$interface_database{"THORNS"}))
  {
    foreach $inc_file (split(" ",$interface_database{"\U$thorn USES HEADER"}))
    {
      $data{"$inc_file"} = "/* Include file $inc_file used by $thorn */\n";
    }
  }

# Add the my headers from thorns
  foreach $thorn (split(" ",$interface_database{"THORNS"}))
  {

    $arrangement = $interface_database{"\U$thorn ARRANGEMENT"};

    foreach $inc_file1 (split(" ",$interface_database{"\U$thorn ADD HEADER"}))
    {
      if ($inc_file1 !~ /^\s*$/)
      {
	$inc_file1 =~ s/ //g;
	$inc_file2 = $interface_database{"\U$thorn ADD HEADER $inc_file1 TO"};

	# Write information to the global include file
	$data{"$inc_file2"} .= "/* Including file $inc_file1 from $thorn */\n";
	
	# Now have to find the include file and copy it
	if (-e "$cctk_home/arrangements/$arrangement/$thorn/src/$inc_file1")
	{
	  open(HEADER,"<$cctk_home/arrangements/$arrangement/$thorn/src/$inc_file1");
	  while (<HEADER>)
	  {
	    $data{"$inc_file2"} .= $_;
	  }
	  $data{"$inc_file2"} .= "\n\n\n";
	  close HEADER;
	}
	elsif (-e "$cctk_home/arrangements/$arrangement/$thorn/src/include/$inc_file1")
	{
	  open(HEADER,"<$cctk_home/arrangements/$arrangement/$thorn/src/include/$inc_file1");
	  while (<HEADER>)
	  {
	    $data{"$inc_file2"} .= $_;
	  }
	  $data{"$inc_file2"} .= "\n\n\n";
	  close HEADER;
	}
	else
	{
	  $message = "Include file $inc_file1 not found in $arrangement/$thorn\n";
	  &CST_error(0,$message,__LINE__,__FILE__);
	}
	$data{"$inc_file2"} .= "/* End of include file $inc_file1 from $thorn */\n";
      }
    }
  }

  foreach $thorn (split(" ",$interface_database{"THORNS"}))
  {
    foreach $inc_file1 (split(" ",$interface_database{"\U$thorn USES HEADER"}))
    {
      &WriteFile($inc_file1,\$data{"$inc_file1"});
    }
  }

  chdir $start_dir;
  return;

}

1;