# $Id$ 

# This Perl script creates a RULES_INCLUDE file containing -include statements
# for RULES_BUILD files from external <top> definitions in the RELEASE file.

eval 'exec perl -S $0 ${1+"$@"}'  # -*- Mode: perl -*-
    if $running_under_some_shell; # makeRulesInclude.pl

use Cwd;

$hostarch = $ARGV[0];
$arch = $ARGV[1];
$outfile = $ARGV[2];
$top = $ARGV[3];
$applications{TOP} = $top;

unlink("${outfile}");
open(OUT,">${outfile}") or die "$! opening ${outfile}";
print OUT "#Do not modify this file.\n";
print OUT "#This file is created during the build.\n";

@files =();
push(@files,"$top/configure/RELEASE");
push(@files,"$top/configure/RELEASE.${hostarch}");
foreach $filename (@files) {
  ProcessFile($filename);
}


sub ProcessFile
{
  local *IN;
  my ($file) = @_;
  my $line;
  my $app_post;
  my $prefix;
  my $base;
  my ($macro,$post);

  if (-r "$file") {
    open(IN, "$file") or return;
    while ($line = <IN>) {
        next if ( $line =~ /\s*#/ );
	chomp($line);
		$line =~ s/[ 	]//g; # remove blanks and tabs
        next if ( $line =~ /^$/ ); # skip empty lines

        $_ = $line;

        #the following looks for
        # include $(macro)post
        ($macro,$post) = /include\s*\$\((.*)\)(.*)/;
        if ($macro ne "") { # true if macro is present
            $base = $applications{$macro};
            if ($base eq "") {
                #print "error: $macro was not previously defined\n";
                next;
            } else {
                $post = $base . $post;
                ProcessFile(${post});
                next;
            }
        }

        # the following looks for
        # include post
        ($post) = /include\s*(.*)/;
        if ($post ne "") {
            ProcessFile(${post});
            next;
        }

        #the following looks for
        # prefix = $(macro)post
        ($prefix,$macro,$post) = /(.*)\s*=\s*\$\((.*)\)(.*)/;
        if ($macro eq "") { # true if no macro is present
            # the following looks for
            # prefix = post
            ($prefix,$post) = /(.*)\s*=\s*(.*)/;
			$app_post = $post;
        } else {
            $base = $applications{$macro};
            if ($base eq "") {
                #print "error: $macro was not previously defined\n";
            } else {
				$app_post = "\$($macro)" . $post;
                $post = $base . $post;
            }
        }
        $applications{$prefix} = $post;
        next if ( $prefix eq "EPICS_BASE" );
        next if ( $prefix eq "TEMPLATE_TOP" );
        if ( -d "$post") { #check that directory exists
            if ( -d "$post/configure") { #check that directory exists
                print OUT "-include $app_post/configure/RULES_BUILD\n";
            }
        }
    }
    close IN;
    return ;
  }
}