blob: e7a72c92abcaee3732e8f0ba80e265ab2b239dd2 (
plain) (
tree)
|
|
#!/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
#
# ATTENTION: This file contains embedded tabs
my $nl_seen = 0 ;
# 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 ( $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" ;
}
# find relative up-path to configure.in
my $rtems_cfg = find_file(".","VERSION");
while( <> )
{
if ( /^[ ]*$/o )
{
$nl_seen = $nl_seen+1;
}
if ( /^[ ]*AC_CONFIG_AUX_DIR\(.*\)[ ]*$/o )
{
print "AC_CONFIG_AUX_DIR($rtems_cfg)\n" ;
}
elsif ( /^[ ]*RTEMS_TOP\(.*\)[ ]*$/o )
{
print "RTEMS_TOP($rtems_cfg)\n" ;
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_HAS_POSIX_API\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_HAS_HWAPI\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_USE_MACROS\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_HAS_MULTIPROCESSING\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_HAS_RDBG\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[\s\t]*AC_SUBST\(RTEMS_USE_OWN_PDIR\)[ ]*$/o )
{ # obsolete option
#remove the line
}
elsif ( /^[\s\t]*RTEMS_ENABLE_GMAKE_PRINT[ ]*$/o )
{ # obsolete macro
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_HAS_NETWORKING\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_LIBC_DIR\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(PROJECT_ROOT\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_GAS_CODE16\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*PROJECT_ROOT[ ]*=.*$/o )
{
#remove the line
}
elsif ( /^[ ]*$/o )
{
print "$_" if $nl_seen < 2 ;
}
else
{
print "$_" ;
$nl_seen = 0;
}
} # while
;1
|