diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2000-07-06 20:10:00 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2000-07-06 20:10:00 +0000 |
commit | edb9d7008c680768de29a7615b7fe47ffe6d8612 (patch) | |
tree | 998d40050e538fe89d2bd48ecea829b78108d591 /tools/update/cipolish | |
parent | Added baseline for h8 simulator BSP to support the simulator in gdb 5.0 (diff) | |
download | rtems-edb9d7008c680768de29a7615b7fe47ffe6d8612.tar.bz2 |
Patch rtems-rc-20000705-1.diff from Ralf Corsepius <corsepiu@faw.uni-ulm.de>.
CVS: ----------------------------------------------------------------------
CVS: Enter Log. Lines beginning with `CVS:' are removed automatically
CVS:
CVS: Committing in .
CVS:
CVS: Modified Files:
CVS: c/src/tests/libtests/termios/init.c
CVS: ----------------------------------------------------------------------
Diffstat (limited to '')
-rwxr-xr-x | tools/update/cipolish | 30 |
1 files changed, 19 insertions, 11 deletions
diff --git a/tools/update/cipolish b/tools/update/cipolish index dd3bb8084f..94cf946b6e 100755 --- a/tools/update/cipolish +++ b/tools/update/cipolish @@ -16,6 +16,7 @@ use strict ; my @vars = () ; my @buffer = () ; +my %var_ ; # find relative up-path to VERSION my $rtems_cfg = &find_file(".","VERSION"); @@ -129,8 +130,8 @@ while ( <> ) { if ( /^[\s]*(RTEMS_ENABLE_LIBCDIR).*$/o ) { - if ( ( not defined $main::var_RTEMS_PROG_CC_FOR_TARGET ) - and ( not defined $main::var_RTEMS_PROG_CXX_FOR_TARGET ) + if ( ( not variable_seen( "RTEMS_PROG_CC_FOR_TARGET" ) ) + and ( not variable_seen( "RTEMS_PROG_CXX_FOR_TARGET" ) ) ) { push @tbuf, "$_" ; @@ -220,20 +221,27 @@ sub find_root() die "Can't find VERSION\n" ; } -sub define_variable +sub variable_seen($) { - my ($name,$value) = @_ ; + my $label = "$_[0]" ; + my $res = defined $var_{"$label"}; +#print STDERR "SEEN: $label ->$res<\n" ; + return $res ; +} + +sub define_variable($$) +{ + my ($label,@value) = @_ ; - if ( not defined ${"var_$name"} ) + if ( not variable_seen("$label") ) { -# print STDERR "DEFINING $name = $value\n" ; - push @vars, "$name" ; - ${"var_$name"} = "$value" ; +# print STDERR "DEFINING $label\n" ; + push @vars, "$label" ; } - else + + foreach my $i ( @{value} ) { -# print STDERR "APPENDING <$name> <- <$value>\n" ; - ${"var_$name"} .= " $value" ; + push @{$var_{"$label"}}, $i ; } } |