summaryrefslogtreecommitdiffstats
path: root/tools/update/cipolish
diff options
context:
space:
mode:
authorRalf Corsepius <ralf.corsepius@rtems.org>2003-03-25 08:30:09 +0000
committerRalf Corsepius <ralf.corsepius@rtems.org>2003-03-25 08:30:09 +0000
commit24af9a0677c4707fd4641223ec49101436c219d3 (patch)
treeedec93dc418f0549c83b24b5e6de0d370564ad12 /tools/update/cipolish
parentdb3e91f2db1ec0d2e78fb118ec27678b161aca8a (diff)
downloadrtems-24af9a0677c4707fd4641223ec49101436c219d3.tar.bz2
Merger from rtems-4-6-branch.
Diffstat (limited to 'tools/update/cipolish')
-rwxr-xr-xtools/update/cipolish247
1 files changed, 0 insertions, 247 deletions
diff --git a/tools/update/cipolish b/tools/update/cipolish
deleted file mode 100755
index 94cf946b6e..0000000000
--- a/tools/update/cipolish
+++ /dev/null
@@ -1,247 +0,0 @@
-#!/usr/bin/perl
-
-#
-# Perl script to beautify and enhance RTEMS configure.in
-#
-# Reads from stdin and writes to stdout
-#
-# usage:
-# acpolish <configure.in >configure.in~
-# mv configure.in~ configure.in
-#
-
-# $Id$
-
-use strict ;
-
-my @vars = () ;
-my @buffer = () ;
-my %var_ ;
-
-# find relative up-path to VERSION
-my $rtems_cfg = &find_file(".","VERSION");
-my $rtems_root = &find_root() ;
-$rtems_root =~ tr/\//\-/ ;
-my $rtems_name = "rtems" ;
-$rtems_name .= "-" . "$rtems_root" if (length($rtems_root) > 0 ) ;
-
-while ( <> )
-{
- push @buffer, "$_" ;
-}
-
-{
- my @tbuf = () ;
-
- foreach ( @buffer )
- {
- if ( /^#.*list.*Makefile.*$/o ) {}
- elsif ( /^dnl[\s]+check.*target.*cc.*$/o ) {}
- elsif ( /^[\s]*AC_CONFIG_AUX_DIR\(.*\)[\s]*$/o )
- {
- push @tbuf, "AC_CONFIG_AUX_DIR($rtems_cfg)\n" ;
- }
- elsif ( /^[\s]*RTEMS_TOP\(.*\)[\s]*$/o )
- {
- push @tbuf, "RTEMS_TOP($rtems_cfg)\n" ;
- }
- elsif ( /^[\s]*AM_INIT_AUTOMAKE\(.*\)[\s]*$/o )
- {
- push @tbuf, "AM_INIT_AUTOMAKE($rtems_name,\$RTEMS_VERSION,no)\n" ;
- }
- elsif ( /^[\s]*AC_SUBST\(RTEMS_HAS_POSIX_API\)[\s]*$/o )
- {
- #remove the line
- }
- elsif ( /^[\s]*AC_SUBST\(RTEMS_HAS_ITRON_API\)[\s]*$/o )
- {
- #remove the line
- }
- elsif ( /^[\s]*AC_SUBST\(RTEMS_HAS_HWAPI\)[\s]*$/o )
- {
- #remove the line
- }
- elsif ( /^[\s]*AC_SUBST\(RTEMS_USE_MACROS\)[\s]*$/o )
- {
- #remove the line
- }
- elsif ( /^[\s]*AC_SUBST\(RTEMS_HAS_MULTIPROCESSING\)[\s]*$/o )
- {
- #remove the line
- }
- elsif ( /^[\s]*AC_SUBST\(RTEMS_HAS_RDBG\)[\s]*$/o )
- {
- #remove the line
- }
- elsif ( /^[\s\t]*AC_SUBST\(RTEMS_USE_OWN_PDIR\)[\s]*$/o )
- { # obsolete option
- #remove the line
- }
- elsif ( /^[\s\t]*RTEMS_ENABLE_GMAKE_PRINT[ ]*$/o )
- { # obsolete macro
- #remove the line
- }
- elsif ( /^[\s]*AC_SUBST\(RTEMS_HAS_NETWORKING\)[\s]*$/o )
- {
- #remove the line
- }
- elsif ( /^[\s]*AC_SUBST\(RTEMS_LIBC_DIR\)[\s]*$/o )
- {
- #remove the line
- }
- elsif ( /^[\s]*AC_SUBST\(PROJECT_ROOT\)[\s]*$/o )
- {
- #remove the line
- }
- elsif ( /^[\s]*AC_SUBST\(RTEMS_GAS_CODE16\)[\s]*$/o )
- {
- #remove the line
- }
- elsif ( /^[\s]*PROJECT_ROOT[\s]*=.*$/o )
- {
- #remove the line
- }
- elsif ( /^[\s]*(RTEMS_ENABLE_LIBCDIR).*$/o )
- { #remove the line
- &define_variable("$1","");
- push @tbuf, "$_" ;
- }
- elsif ( /^[\s]*(RTEMS_PROG_CC_FOR_TARGET).*$/o )
- {
- &define_variable("$1","");
- push @tbuf, "$_" ;
- }
- elsif ( /^[\s]*(RTEMS_PROG_CXX_FOR_TARGET).*$/o )
- {
- &define_variable("$1","");
- push @tbuf, "$_" ;
- }
- else
- {
- push @tbuf, "$_" ;
- }
- } # foreach
- @buffer = @tbuf ;
-}
-
-{
- my @tbuf = () ;
- foreach ( @buffer )
- {
- if ( /^[\s]*(RTEMS_ENABLE_LIBCDIR).*$/o )
- {
- if ( ( not variable_seen( "RTEMS_PROG_CC_FOR_TARGET" ) )
- and ( not variable_seen( "RTEMS_PROG_CXX_FOR_TARGET" ) )
- )
- {
- push @tbuf, "$_" ;
- }
- }
- elsif ( /^AC_OUTPUT.*$/o )
- {
- push @tbuf, "# Explicitly list all Makefiles here\n" ;
- push @tbuf, "$_" ;
- }
- else
- {
- push @tbuf, "$_" ;
- }
- }
- @buffer = @tbuf ;
-}
-
-{ ## pretty print
- my $out = join ('',@buffer) ;
- $out =~ s/\s\#\n(\#\n)+/\n/g ;
- $out =~ s/\n\n\#\n\n/\n/g ;
- $out =~ s/\n\n[\n]*/\n\n/g ;
- print $out ;
-}
-
-exit 1 ;
-
-# find a relative up-path to a file $file, starting at directory $pre
-sub find_file($$)
-{
- my $pre = $_[0] ;
- my $file= $_[1] ;
-
- my $top = "." ;
- if (not "$pre") { $pre = "." ; }
-
- for ( my $str = "$pre" . "/" . "$top" ;
- ( -d "$str" ) ;
- $str = "$pre" . "/" . "$top" )
- {
- if ( -f "${str}/${file}" )
- {
- return $top ;
- }
- if ( "$top" eq "." )
- {
- $top = ".." ;
- }
- else
- {
- $top .= "/.." ;
- }
- } ;
- die "Can't find file ${file}\n" ;
-}
-
-sub find_root()
-{
- my $top_builddir = "." ;
- my $subdir="";
- my $pwd = `pwd`; chomp $pwd;
- $pwd .= "/" ;
- my $len ;
-
- if ( -f "VERSION" ) { return $subdir ; }
- my $i = rindex($pwd,'/');
-
- $len = $i;
- $pwd = substr($pwd,0,$len);
- $i = rindex($pwd,'/');
- $subdir = substr($pwd,$i+1,$len - 1);
- $top_builddir = ".." ;
-
- while( -d "$top_builddir" )
- {
- if ( -f "${top_builddir}/VERSION" )
- {
- return $subdir ;
- }
- $len=$i;
- $pwd = substr($pwd,0,$len);
- $i = rindex($pwd,'/');
- $subdir = substr($pwd,$i+1,$len - 1) . "/$subdir";
- $top_builddir .= "/.." ;
- } ;
- die "Can't find VERSION\n" ;
-}
-
-sub variable_seen($)
-{
- my $label = "$_[0]" ;
- my $res = defined $var_{"$label"};
-#print STDERR "SEEN: $label ->$res<\n" ;
- return $res ;
-}
-
-sub define_variable($$)
-{
- my ($label,@value) = @_ ;
-
- if ( not variable_seen("$label") )
- {
-# print STDERR "DEFINING $label\n" ;
- push @vars, "$label" ;
- }
-
- foreach my $i ( @{value} )
- {
- push @{$var_{"$label"}}, $i ;
- }
-}
-