Changeset edb9d70 in rtems for tools


Ignore:
Timestamp:
Jul 6, 2000, 8:10:00 PM (20 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
6c5aba2
Parents:
501d312
Message:

Patch rtems-rc-20000705-1.diff from Ralf Corsepius <corsepiu@…>.
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: ----------------------------------------------------------------------

File:
1 edited

Legend:

Unmodified
Added
Removed
  • tools/update/cipolish

    r501d312 redb9d70  
    1717my @vars = () ;
    1818my @buffer = () ;
     19my %var_ ;
    1920
    2021# find relative up-path to VERSION
     
    130131    if ( /^[\s]*(RTEMS_ENABLE_LIBCDIR).*$/o )
    131132    {
    132       if (  ( not defined $main::var_RTEMS_PROG_CC_FOR_TARGET )
    133         and ( not defined $main::var_RTEMS_PROG_CXX_FOR_TARGET )
     133      if (  ( not variable_seen( "RTEMS_PROG_CC_FOR_TARGET" ) )
     134        and ( not variable_seen( "RTEMS_PROG_CXX_FOR_TARGET" ) )
    134135      )
    135136      {
     
    221222}
    222223
    223 sub define_variable
    224 {
    225   my ($name,$value) = @_ ;
    226 
    227   if ( not defined ${"var_$name"} )
    228   {
    229 # print STDERR "DEFINING $name = $value\n" ;
    230     push @vars, "$name" ;
    231     ${"var_$name"} = "$value" ;
     224sub variable_seen($)
     225{
     226  my $label = "$_[0]" ;
     227  my $res = defined $var_{"$label"};
     228#print STDERR "SEEN: $label ->$res<\n" ;
     229  return $res ;
     230}
     231
     232sub define_variable($$)
     233{
     234  my ($label,@value) = @_ ;
     235
     236  if ( not variable_seen("$label") )
     237  {
     238# print STDERR "DEFINING $label\n" ;
     239    push @vars, "$label" ;
    232240  }
    233   else
    234   {
    235 # print STDERR "APPENDING <$name> <- <$value>\n" ;
    236     ${"var_$name"} .= " $value" ;
     241
     242  foreach my $i ( @{value} )
     243  {
     244    push @{$var_{"$label"}}, $i ;
    237245  }
    238246}
Note: See TracChangeset for help on using the changeset viewer.