Replaced with convertRelease.pl.
This commit is contained in:
Andrew Johnson
@@ -1,112 +0,0 @@
|
||||
# $Id$
|
||||
|
||||
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
|
||||
if $running_under_some_shell; # makeConfigAppInclude.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";
|
||||
|
||||
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;
|
||||
if ( -d "$post") { #check that directory exists
|
||||
print OUT "\n";
|
||||
if ( -d "$post/bin/$arch") { #check that directory exists
|
||||
print OUT "${prefix}_BIN = $app_post/bin/${arch}\n";
|
||||
}
|
||||
if ( -d "$post/bin/$arch") { #check that directory exists
|
||||
print OUT "${prefix}_HOST_BIN = $app_post/bin/\$(EPICS_HOST_ARCH)\n";
|
||||
}
|
||||
if ( -d "$post/lib/$arch") { #check that directory exists
|
||||
print OUT "${prefix}_LIB = $app_post/lib/${arch}\n";
|
||||
}
|
||||
if ( -d "$post/include") { #check that directory exists
|
||||
print OUT "INSTALL_INCLUDES += -I$app_post/include/os/\$(OS_CLASS)\n";
|
||||
}
|
||||
if ( -d "$post/include") { #check that directory exists
|
||||
print OUT "INSTALL_INCLUDES += -I$app_post/include\n";
|
||||
}
|
||||
if ( -d "$post/dbd") { #check that directory exists
|
||||
print OUT "INSTALL_DBDFLAGS += -I $app_post/dbd\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
close IN;
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
@files =();
|
||||
push(@files,"$top/configure/RELEASE");
|
||||
push(@files,"$top/configure/RELEASE.${hostarch}");
|
||||
foreach $filename (@files) {
|
||||
ProcessFile(${filename});
|
||||
}
|
||||
@@ -1,111 +0,0 @@
|
||||
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
|
||||
if $running_under_some_shell; # makeIocCdCommands.pl
|
||||
|
||||
use Cwd;
|
||||
|
||||
$cwd = cwd();
|
||||
#hack for sun4
|
||||
$cwd =~ s|/tmp_mnt||;
|
||||
#hack for win32
|
||||
$cwd =~ s|\\|\/|g;
|
||||
$arch = $ARGV[0];
|
||||
$iocsApplTop = $ARGV[1];
|
||||
#remove top parts of current working directory
|
||||
#and add ioc's appl top alias (if supplied)
|
||||
if ( $iocsApplTop ne "" ) {
|
||||
$cwd =~ s|.*(/iocBoot.*)|$1|;
|
||||
$cwd = $iocsApplTop . $cwd;
|
||||
}
|
||||
|
||||
unlink("cdCommands");
|
||||
open(OUT,">cdCommands") or die "$! opening cdCommands";
|
||||
print OUT "startup = \"$cwd\"\n";
|
||||
|
||||
#appbin is kept for compatibility with 3.13.1
|
||||
$appbin = $cwd;
|
||||
$appbin =~ s/iocBoot.*//;
|
||||
$appbin = $appbin . "/bin/${arch}";
|
||||
print OUT "appbin = \"$appbin\"\n";
|
||||
|
||||
$top = $cwd;
|
||||
$top =~ s/\/iocBoot.*//;
|
||||
$applications{TOP} = $top;
|
||||
print OUT "top = \"$top\"\n";
|
||||
$topbin = "${top}/bin/${arch}";
|
||||
#skip check that top/bin/${arch} exists; src may not have been builT
|
||||
print OUT "topbin = \"$topbin\"\n";
|
||||
$release = "$top/configure/RELEASE";
|
||||
ProcessFile($release);
|
||||
close OUT;
|
||||
|
||||
sub ProcessFile
|
||||
{
|
||||
local *IN;
|
||||
my ($file) = @_;
|
||||
my $line;
|
||||
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*(.*)/;
|
||||
} else {
|
||||
$base = $applications{$macro};
|
||||
if ($base eq "") {
|
||||
#print "error: $macro was not previously defined\n";
|
||||
} else {
|
||||
$post = $base . $post;
|
||||
}
|
||||
}
|
||||
$applications{$prefix} = $post;
|
||||
$app = lc($prefix);
|
||||
if ( -d "$post") { #check that directory exists
|
||||
print OUT "$app = \"$post\"\n";
|
||||
}
|
||||
if ( -d "$post/bin/$arch") { #check that directory exists
|
||||
print OUT "${app}bin = \"$post/bin/$arch\"\n";
|
||||
}
|
||||
}
|
||||
close IN;
|
||||
return ;
|
||||
}
|
||||
}
|
||||
|
||||
@@ -1,102 +0,0 @@
|
||||
# $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 ;
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user