From 0d2922fbcf43a46d3c3ca4d75557be0447e893d9 Mon Sep 17 00:00:00 2001 From: Andrew Johnson Date: Thu, 13 Sep 2001 19:19:15 +0000 Subject: [PATCH] Replaced with convertRelease.pl. --- configure/tools/makeConfigAppInclude.pl | 112 ------------------------ configure/tools/makeIocCdCommands.pl | 111 ----------------------- configure/tools/makeRulesInclude.pl | 102 --------------------- 3 files changed, 325 deletions(-) delete mode 100644 configure/tools/makeConfigAppInclude.pl delete mode 100644 configure/tools/makeIocCdCommands.pl delete mode 100644 configure/tools/makeRulesInclude.pl diff --git a/configure/tools/makeConfigAppInclude.pl b/configure/tools/makeConfigAppInclude.pl deleted file mode 100644 index 31cec79a1..000000000 --- a/configure/tools/makeConfigAppInclude.pl +++ /dev/null @@ -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 = ) { - 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}); -} diff --git a/configure/tools/makeIocCdCommands.pl b/configure/tools/makeIocCdCommands.pl deleted file mode 100644 index 3c1486b74..000000000 --- a/configure/tools/makeIocCdCommands.pl +++ /dev/null @@ -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 = ) { - 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 ; - } -} - diff --git a/configure/tools/makeRulesInclude.pl b/configure/tools/makeRulesInclude.pl deleted file mode 100644 index 0a9728e27..000000000 --- a/configure/tools/makeRulesInclude.pl +++ /dev/null @@ -1,102 +0,0 @@ -# $Id$ - -# This Perl script creates a RULES_INCLUDE file containing -include statements -# for RULES_BUILD files from external 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 = ) { - 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 ; - } -}