RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

Patch rtems-rc-20000705-1.diff from Ralf Corsepius <corsepiu@faw.uni-ulm.de>.

Browse Source 
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: ----------------------------------------------------------------------
This commit is contained in:
Joel Sherrill
2000-07-06 20:10:00 +00:00
parent 501d312a91
commit edb9d7008c
1 changed files with 19 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
tools/update/cipolish
View File

@@ -16,6 +16,7 @@ use strict ;
my @vars = () ; my @vars = () ;
my @buffer = () ; my @buffer = () ;
my %var_ ;
# find relative up-path to VERSION # find relative up-path to VERSION
my $rtems_cfg = &find_file(".","VERSION"); my $rtems_cfg = &find_file(".","VERSION");
@@ -129,8 +130,8 @@ while ( <> )
{ {
if ( /^[\s]*(RTEMS_ENABLE_LIBCDIR).*$/o ) if ( /^[\s]*(RTEMS_ENABLE_LIBCDIR).*$/o )
{ {
if ( ( not defined $main::var_RTEMS_PROG_CC_FOR_TARGET ) if ( ( not variable_seen( "RTEMS_PROG_CC_FOR_TARGET" ) )
and ( not defined $main::var_RTEMS_PROG_CXX_FOR_TARGET ) and ( not variable_seen( "RTEMS_PROG_CXX_FOR_TARGET" ) )
) )
{ {
push @tbuf, "$_" ; push @tbuf, "$_" ;
@@ -220,20 +221,27 @@ sub find_root()
die "Can't find VERSION\n" ; 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 ;
}
if ( not defined ${"var_$name"} ) sub define_variable($$)
{
my ($label,@value) = @_ ;
if ( not variable_seen("$label") )
{ {
# print STDERR "DEFINING $name = $value\n" ; # print STDERR "DEFINING $label\n" ;
push @vars, "$name" ; push @vars, "$label" ;
${"var_$name"} = "$value" ;
} }
else
foreach my $i ( @{value} )
{ {
# print STDERR "APPENDING <$name> <- <$value>\n" ; push @{$var_{"$label"}}, $i ;
${"var_$name"} .= " $value" ;
} }
} }