103 lines
2.7 KiB
Perl
103 lines
2.7 KiB
Perl
# $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 ;
|
|
}
|
|
}
|